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

Diff of /gcl/lsp/gcl_readline.c

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

revision 1.1 by camm, Sun Sep 14 02:30:35 2003 UTC revision 1.2 by camm, Sun Sep 14 02:43:06 2003 UTC
# Line 0  Line 1 
1    
2    #include "cmpinclude.h"
3    #include "gcl_readline.h"
4    void init_gcl_readline(){do_init(VV);}
5    /*      function definition for INIT-READLINE   */
6    
7    static void L1()
8    {register object *base=vs_base;
9            register object *sup=base+VM1; VC1
10            vs_check;
11            vs_top=sup;
12            goto TTL;
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            {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            goto T11;
40    T11:;
41            base[0]= coerce_to_string((V5));
42            vs_top=(vs_base=base+0)+1;
43            Lfind_package();
44            vs_top=sup;
45            V2= vs_base[0];}
46            goto T7;
47    T7:;
48            V3= Cnil;
49            V4= Cnil;
50            {object V6;
51            object V7;
52            base[2]= (V2);
53            vs_top=(vs_base=base+2)+1;
54            Lpackage_use_list();
55            vs_top=sup;
56            V8= vs_base[0];
57            V6= make_cons((V2),V8);
58            V7= CMPcar((V6));
59            goto T20;
60    T20:;
61            if(!(((V6))==Cnil)){
62            goto T21;}
63            V3= Cnil;
64            goto T6;
65            goto T21;
66    T21:;
67            {long V9;
68            long V10;
69            base[2]= (V7);
70            vs_top=(vs_base=base+2)+1;
71            (void) (*Lnk6)();
72            if(vs_base>=vs_top){vs_top=sup;goto T30;}
73            V9= fix(vs_base[0]);
74            vs_base++;
75            if(vs_base>=vs_top){vs_top=sup;goto T31;}
76            V10= fix(vs_base[0]);
77            vs_top=sup;
78            goto T32;
79            goto T30;
80    T30:;
81            V9= fix(Cnil);
82            goto T31;
83    T31:;
84            V10= fix(Cnil);
85            goto T32;
86    T32:;
87            if(((V2))==((V7))){
88            goto T33;}
89            V10= 0;
90            goto T33;
91    T33:;
92            {object V11;
93            register object V12;
94            V13 = CMPmake_fixnum(V10);
95            V14 = CMPmake_fixnum(V9);
96            V11= number_plus(V13,V14);
97            V12= small_fixnum(0);
98            goto T40;
99    T40:;
100            if(!(number_compare((V12),(V11))>=0)){
101            goto T41;}
102            goto T27;
103            goto T41;
104    T41:;
105            V15 = CMPmake_fixnum(V10);
106            if(!(number_compare((V12),V15)<0)){
107            goto T50;}
108            base[3]= (V7);
109            base[4]= (V12);
110            vs_top=(vs_base=base+3)+2;
111            siLpackage_internal();
112            vs_top=sup;
113            V4= vs_base[0];
114            goto T48;
115            goto T50;
116    T50:;
117            base[3]= (V7);
118            V16 = CMPmake_fixnum(V10);
119            base[4]= number_minus((V12),V16);
120            vs_top=(vs_base=base+3)+2;
121            siLpackage_external();
122            vs_top=sup;
123            V4= vs_base[0];
124            goto T48;
125    T48:;
126            goto T46;
127    T46:;
128            if(((V4))!=Cnil){
129            goto T56;}
130            goto T47;
131            goto T56;
132    T56:;
133            V3= CMPcar((V4));
134            if(((V7))==((V2))){
135            goto T62;}
136            base[4]= symbol_name((V3));
137            base[5]= (V2);
138            vs_top=(vs_base=base+4)+2;
139            Lfind_symbol();
140            Llist();
141            vs_top=sup;
142            base[3]= vs_base[0];
143            vs_top=(vs_base=base+3)+1;
144            Llast();
145            vs_top=sup;
146            V17= vs_base[0];
147            if(!((VV[2])==(CMPcar(V17)))){
148            goto T61;}
149            goto T62;
150    T62:;
151            if(((V3))->s.s_dbind!=OBJNULL){
152            goto T72;}
153            base[3]= (V3);
154            vs_top=(vs_base=base+3)+1;
155            Lfboundp();
156            vs_top=sup;
157            if((vs_base[0])==Cnil){
158            goto T71;}
159            goto T72;
160    T72:;
161            V18= symbol_name((V3));
162            V1= make_cons(/* INLINE-ARGS */V18,(V1));
163            goto T71;
164    T71:;
165            goto T61;
166    T61:;
167            V4= CMPcdr((V4));
168            goto T46;
169            goto T47;
170    T47:;
171            goto T44;
172            goto T44;
173    T44:;
174            V12= one_plus((V12));
175            goto T40;}}
176            goto T27;
177    T27:;
178            V6= CMPcdr((V6));
179            V7= CMPcar((V6));
180            goto T20;}}
181            goto T6;
182    T6:;
183            goto T5;
184            goto T5;
185    T5:;
186            {object V19;
187            register object V20;
188            register object V21;
189            {object V22;
190            base[0]= VV[3];
191            vs_top=(vs_base=base+0)+1;
192            Lfind_package();
193            vs_top=sup;
194            V22= vs_base[0];
195            base[0]= (V22);
196            vs_top=(vs_base=base+0)+1;
197            Lpackagep();
198            vs_top=sup;
199            if((vs_base[0])==Cnil){
200            goto T95;}
201            V19= (V22);
202            goto T91;
203            goto T95;
204    T95:;
205            base[0]= coerce_to_string((V22));
206            vs_top=(vs_base=base+0)+1;
207            Lfind_package();
208            vs_top=sup;
209            V19= vs_base[0];}
210            goto T91;
211    T91:;
212            V20= Cnil;
213            V21= Cnil;
214            {object V23;
215            object V24;
216            base[2]= (V19);
217            vs_top=(vs_base=base+2)+1;
218            Lpackage_use_list();
219            vs_top=sup;
220            V25= vs_base[0];
221            V23= make_cons((V19),V25);
222            V24= CMPcar((V23));
223            goto T104;
224    T104:;
225            if(!(((V23))==Cnil)){
226            goto T105;}
227            V20= Cnil;
228            goto T90;
229            goto T105;
230    T105:;
231            {long V26;
232            long V27;
233            base[2]= (V24);
234            vs_top=(vs_base=base+2)+1;
235            (void) (*Lnk6)();
236            if(vs_base>=vs_top){vs_top=sup;goto T114;}
237            V26= fix(vs_base[0]);
238            vs_base++;
239            if(vs_base>=vs_top){vs_top=sup;goto T115;}
240            V27= fix(vs_base[0]);
241            vs_top=sup;
242            goto T116;
243            goto T114;
244    T114:;
245            V26= fix(Cnil);
246            goto T115;
247    T115:;
248            V27= fix(Cnil);
249            goto T116;
250    T116:;
251            if(((V19))==((V24))){
252            goto T117;}
253            V27= 0;
254            goto T117;
255    T117:;
256            {object V28;
257            register object V29;
258            V30 = CMPmake_fixnum(V27);
259            V31 = CMPmake_fixnum(V26);
260            V28= number_plus(V30,V31);
261            V29= small_fixnum(0);
262            goto T124;
263    T124:;
264            if(!(number_compare((V29),(V28))>=0)){
265            goto T125;}
266            goto T111;
267            goto T125;
268    T125:;
269            V32 = CMPmake_fixnum(V27);
270            if(!(number_compare((V29),V32)<0)){
271            goto T134;}
272            base[3]= (V24);
273            base[4]= (V29);
274            vs_top=(vs_base=base+3)+2;
275            siLpackage_internal();
276            vs_top=sup;
277            V21= vs_base[0];
278            goto T132;
279            goto T134;
280    T134:;
281            base[3]= (V24);
282            V33 = CMPmake_fixnum(V27);
283            base[4]= number_minus((V29),V33);
284            vs_top=(vs_base=base+3)+2;
285            siLpackage_external();
286            vs_top=sup;
287            V21= vs_base[0];
288            goto T132;
289    T132:;
290            goto T130;
291    T130:;
292            if(((V21))!=Cnil){
293            goto T140;}
294            goto T131;
295            goto T140;
296    T140:;
297            V20= CMPcar((V21));
298            if(((V24))==((V19))){
299            goto T146;}
300            base[4]= symbol_name((V20));
301            base[5]= (V19);
302            vs_top=(vs_base=base+4)+2;
303            Lfind_symbol();
304            Llist();
305            vs_top=sup;
306            base[3]= vs_base[0];
307            vs_top=(vs_base=base+3)+1;
308            Llast();
309            vs_top=sup;
310            V34= vs_base[0];
311            if(!((VV[2])==(CMPcar(V34)))){
312            goto T145;}
313            goto T146;
314    T146:;
315            if(((V20))->s.s_dbind!=OBJNULL){
316            goto T156;}
317            base[3]= (V20);
318            vs_top=(vs_base=base+3)+1;
319            Lfboundp();
320            vs_top=sup;
321            if((vs_base[0])==Cnil){
322            goto T155;}
323            goto T156;
324    T156:;
325            base[3]= Cnil;
326            base[4]= VV[4];
327            base[5]= (V20);
328            vs_top=(vs_base=base+3)+3;
329            Lformat();
330            vs_top=sup;
331            V35= vs_base[0];
332            V1= make_cons(V35,(V1));
333            goto T155;
334    T155:;
335            goto T145;
336    T145:;
337            V21= CMPcdr((V21));
338            goto T130;
339            goto T131;
340    T131:;
341            goto T128;
342            goto T128;
343    T128:;
344            V29= one_plus((V29));
345            goto T124;}}
346            goto T111;
347    T111:;
348            V23= CMPcdr((V23));
349            V24= CMPcar((V23));
350            goto T104;}}
351            goto T90;
352    T90:;
353            goto T89;
354            goto T89;
355    T89:;
356            base[0]= Ct;
357            base[1]= VV[5];
358            base[2]= small_fixnum(1);
359            base[3]= (V1);
360            vs_top=(vs_base=base+0)+4;
361            (void) (*Lnk0)();
362            return;}
363            goto T2;
364    T2:;
365            base[0]= Cnil;
366            vs_top=(vs_base=base+0)+1;
367            return;
368    }
369    static void LnkT0(){ call_or_link(VV[0],(void **)(void *)&Lnk0);} /* READLINE-INIT */
370    static void LnkT6(){ call_or_link(VV[6],(void **)(void *)&Lnk6);} /* PACKAGE-SIZE */
371    
372    #ifdef SYSTEM_SPECIAL_INIT
373    SYSTEM_SPECIAL_INIT
374    #endif
375    

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