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 |
|
|