/[gcl]/gcl/lsp/readline.c
ViewVC logotype

Diff of /gcl/lsp/readline.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by camm, Thu Dec 20 00:00:27 2001 UTC revision 1.2 by camm, Sun Feb 3 18:44:07 2002 UTC
# Line 0  Line 1 
1    
2    #include <cmpinclude.h>
3    #include "readline.h"
4    init_readline(){do_init(VV);}
5    /*      function definition for INIT-READLINE   */
6    
7    static L1()
8    {register object *base=vs_base;
9            register object *sup=base+VM1; VC1
10            vs_reserve(VM1);
11            check_arg(0);
12            vs_top=sup;
13    TTL:;
14            base[0]= VV[0];
15            vs_top=(vs_base=base+0)+1;
16            Lfboundp();
17            vs_top=sup;
18            if((vs_base[0])==Cnil){
19            goto T2;}
20            {register object V1;
21            V1= Cnil;
22            {object V2;
23            register object V3;
24            register object V4;
25            {object V5;
26            base[0]= VV[1];
27            vs_top=(vs_base=base+0)+1;
28            Lfind_package();
29            vs_top=sup;
30            V5= vs_base[0];
31            base[0]= (V5);
32            vs_top=(vs_base=base+0)+1;
33            Lpackagep();
34            vs_top=sup;
35            if((vs_base[0])==Cnil){
36            goto T11;}
37            V2= (V5);
38            goto T7;
39    T11:;
40            base[0]= coerce_to_string((V5));
41            vs_top=(vs_base=base+0)+1;
42            Lfind_package();
43            vs_top=sup;
44            V2= vs_base[0];}
45    T7:;
46            V3= Cnil;
47            V4= Cnil;
48            {int V6;
49            int V7;
50            base[0]= (V2);
51            vs_top=(vs_base=base+0)+1;
52            (void) (*Lnk5)();
53            if(vs_base>=vs_top){vs_top=sup;goto T17;}
54            V6= fix(vs_base[0]);
55            vs_base++;
56            if(vs_base>=vs_top){vs_top=sup;goto T18;}
57            V7= fix(vs_base[0]);
58            vs_top=sup;
59            goto T19;
60    T17:;
61            V6= fix(Cnil);
62    T18:;
63            V7= fix(Cnil);
64    T19:;
65            {object V8;
66            register object V9;
67            V10 = make_fixnum(V7);
68            V11 = make_fixnum(V6);
69            V8= number_plus(V10,V11);
70            V9= small_fixnum(0);
71    T23:;
72            if(!(number_compare((V9),(V8))>=0)){
73            goto T24;}
74            V3= Cnil;
75            goto T6;
76    T24:;
77            V12 = make_fixnum(V7);
78            if(!(number_compare((V9),V12)<0)){
79            goto T35;}
80            base[1]= (V2);
81            base[2]= (V9);
82            vs_top=(vs_base=base+1)+2;
83            siLpackage_internal();
84            vs_top=sup;
85            V4= vs_base[0];
86            goto T33;
87    T35:;
88            base[1]= (V2);
89            V13 = make_fixnum(V7);
90            base[2]= number_minus((V9),V13);
91            vs_top=(vs_base=base+1)+2;
92            siLpackage_external();
93            vs_top=sup;
94            V4= vs_base[0];
95    T33:;
96    T31:;
97            if(((V4))!=Cnil){
98            goto T41;}
99            goto T32;
100    T41:;
101            V3= car((V4));
102            base[1]= (V3);
103            vs_top=(vs_base=base+1)+1;
104            Lboundp();
105            vs_top=sup;
106            if((vs_base[0])!=Cnil){
107            goto T47;}
108            base[1]= (V3);
109            vs_top=(vs_base=base+1)+1;
110            Lfboundp();
111            vs_top=sup;
112            if((vs_base[0])==Cnil){
113            goto T46;}
114    T47:;
115            V14= symbol_name((V3));
116            V1= make_cons(/* INLINE-ARGS */V14,(V1));
117    T46:;
118            V4= cdr((V4));
119            goto T31;
120    T32:;
121            goto T29;
122    T29:;
123            V9= one_plus((V9));
124            goto T23;}}}
125    T6:;
126            goto T5;
127    T5:;
128            {object V15;
129            register object V16;
130            register object V17;
131            {object V18;
132            base[0]= VV[2];
133            vs_top=(vs_base=base+0)+1;
134            Lfind_package();
135            vs_top=sup;
136            V18= vs_base[0];
137            base[0]= (V18);
138            vs_top=(vs_base=base+0)+1;
139            Lpackagep();
140            vs_top=sup;
141            if((vs_base[0])==Cnil){
142            goto T66;}
143            V15= (V18);
144            goto T62;
145    T66:;
146            base[0]= coerce_to_string((V18));
147            vs_top=(vs_base=base+0)+1;
148            Lfind_package();
149            vs_top=sup;
150            V15= vs_base[0];}
151    T62:;
152            V16= Cnil;
153            V17= Cnil;
154            {int V19;
155            int V20;
156            base[0]= (V15);
157            vs_top=(vs_base=base+0)+1;
158            (void) (*Lnk5)();
159            if(vs_base>=vs_top){vs_top=sup;goto T72;}
160            V19= fix(vs_base[0]);
161            vs_base++;
162            if(vs_base>=vs_top){vs_top=sup;goto T73;}
163            V20= fix(vs_base[0]);
164            vs_top=sup;
165            goto T74;
166    T72:;
167            V19= fix(Cnil);
168    T73:;
169            V20= fix(Cnil);
170    T74:;
171            {object V21;
172            register object V22;
173            V23 = make_fixnum(V20);
174            V24 = make_fixnum(V19);
175            V21= number_plus(V23,V24);
176            V22= small_fixnum(0);
177    T78:;
178            if(!(number_compare((V22),(V21))>=0)){
179            goto T79;}
180            V16= Cnil;
181            goto T61;
182    T79:;
183            V25 = make_fixnum(V20);
184            if(!(number_compare((V22),V25)<0)){
185            goto T90;}
186            base[1]= (V15);
187            base[2]= (V22);
188            vs_top=(vs_base=base+1)+2;
189            siLpackage_internal();
190            vs_top=sup;
191            V17= vs_base[0];
192            goto T88;
193    T90:;
194            base[1]= (V15);
195            V26 = make_fixnum(V20);
196            base[2]= number_minus((V22),V26);
197            vs_top=(vs_base=base+1)+2;
198            siLpackage_external();
199            vs_top=sup;
200            V17= vs_base[0];
201    T88:;
202    T86:;
203            if(((V17))!=Cnil){
204            goto T96;}
205            goto T87;
206    T96:;
207            V16= car((V17));
208            base[1]= (V16);
209            vs_top=(vs_base=base+1)+1;
210            Lboundp();
211            vs_top=sup;
212            if((vs_base[0])!=Cnil){
213            goto T102;}
214            base[1]= (V16);
215            vs_top=(vs_base=base+1)+1;
216            Lfboundp();
217            vs_top=sup;
218            if((vs_base[0])==Cnil){
219            goto T101;}
220    T102:;
221            base[1]= Cnil;
222            base[2]= VV[3];
223            base[3]= (V16);
224            vs_top=(vs_base=base+1)+3;
225            Lformat();
226            vs_top=sup;
227            V27= vs_base[0];
228            V1= make_cons(V27,(V1));
229    T101:;
230            V17= cdr((V17));
231            goto T86;
232    T87:;
233            goto T84;
234    T84:;
235            V22= one_plus((V22));
236            goto T78;}}}
237    T61:;
238            goto T60;
239    T60:;
240            base[0]= Ct;
241            base[1]= VV[4];
242            base[2]= small_fixnum(1);
243            base[3]= (V1);
244            vs_top=(vs_base=base+0)+4;
245            (void) (*Lnk0)();
246            return;}
247    T2:;
248            base[0]= Cnil;
249            vs_top=(vs_base=base+0)+1;
250            return;
251    }
252    static LnkT0(){ call_or_link(VV[0],&Lnk0);} /* READLINE-INIT */
253    static LnkT5(){ call_or_link(VV[5],&Lnk5);} /* PACKAGE-SIZE */
254    
255    #ifdef SYSTEM_SPECIAL_INIT
256    SYSTEM_SPECIAL_INIT
257    #endif
258    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26