/[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.3 by camm, Fri Jul 12 22:00:48 2002 UTC revision 1.4 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 1  Line 1 
1    
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "readline.h"  #include "readline.h"
4  init_readline(){do_init(VV);}  void init_readline(){do_init(VV);}
5  /*      function definition for INIT-READLINE   */  /*      function definition for INIT-READLINE   */
6    
7  static L1()  static void L1()
8  {register object *base=vs_base;  {register object *base=vs_base;
9          register object *sup=base+VM1; VC1          register object *sup=base+VM1; VC1
10          vs_reserve(VM1);          vs_reserve(VM1);
11          check_arg(0);          check_arg(0);
12          vs_top=sup;          vs_top=sup;
13    goto TTL;
14  TTL:;  TTL:;
15          base[0]= VV[0];          base[0]= VV[0];
16          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 36  TTL:; Line 37  TTL:;
37          goto T11;}          goto T11;}
38          V2= (V5);          V2= (V5);
39          goto T7;          goto T7;
40    goto T11;
41  T11:;  T11:;
42          base[0]= coerce_to_string((V5));          base[0]= coerce_to_string((V5));
43          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
44          Lfind_package();          Lfind_package();
45          vs_top=sup;          vs_top=sup;
46          V2= vs_base[0];}          V2= vs_base[0];}
47    goto T7;
48  T7:;  T7:;
49          V3= Cnil;          V3= Cnil;
50          V4= Cnil;          V4= Cnil;
# Line 57  T7:; Line 60  T7:;
60          V7= fix(vs_base[0]);          V7= fix(vs_base[0]);
61          vs_top=sup;          vs_top=sup;
62          goto T19;          goto T19;
63    goto T17;
64  T17:;  T17:;
65          V6= fix(Cnil);          V6= fix(Cnil);
66    goto T18;
67  T18:;  T18:;
68          V7= fix(Cnil);          V7= fix(Cnil);
69    goto T19;
70  T19:;  T19:;
71          {object V8;          {object V8;
72          register object V9;          register object V9;
# Line 68  T19:; Line 74  T19:;
74          V11 = make_fixnum(V6);          V11 = make_fixnum(V6);
75          V8= number_plus(V10,V11);          V8= number_plus(V10,V11);
76          V9= small_fixnum(0);          V9= small_fixnum(0);
77    goto T23;
78  T23:;  T23:;
79          if(!(number_compare((V9),(V8))>=0)){          if(!(number_compare((V9),(V8))>=0)){
80          goto T24;}          goto T24;}
81          V3= Cnil;          V3= Cnil;
82          goto T6;          goto T6;
83    goto T24;
84  T24:;  T24:;
85          V12 = make_fixnum(V7);          V12 = make_fixnum(V7);
86          if(!(number_compare((V9),V12)<0)){          if(!(number_compare((V9),V12)<0)){
# Line 84  T24:; Line 92  T24:;
92          vs_top=sup;          vs_top=sup;
93          V4= vs_base[0];          V4= vs_base[0];
94          goto T33;          goto T33;
95    goto T35;
96  T35:;  T35:;
97          base[1]= (V2);          base[1]= (V2);
98          V13 = make_fixnum(V7);          V13 = make_fixnum(V7);
# Line 92  T35:; Line 101  T35:;
101          siLpackage_external();          siLpackage_external();
102          vs_top=sup;          vs_top=sup;
103          V4= vs_base[0];          V4= vs_base[0];
104    goto T33;
105  T33:;  T33:;
106    goto T31;
107  T31:;  T31:;
108          if(((V4))!=Cnil){          if(((V4))!=Cnil){
109          goto T41;}          goto T41;}
110          goto T32;          goto T32;
111    goto T41;
112  T41:;  T41:;
113          V3= car((V4));          V3= car((V4));
114          base[1]= (V3);          base[1]= (V3);
# Line 111  T41:; Line 123  T41:;
123          vs_top=sup;          vs_top=sup;
124          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
125          goto T46;}          goto T46;}
126    goto T47;
127  T47:;  T47:;
128          V14= symbol_name((V3));          V14= symbol_name((V3));
129          V1= make_cons(/* INLINE-ARGS */V14,(V1));          V1= make_cons(/* INLINE-ARGS */V14,(V1));
130    goto T46;
131  T46:;  T46:;
132          V4= cdr((V4));          V4= cdr((V4));
133          goto T31;          goto T31;
134    goto T32;
135  T32:;  T32:;
136          goto T29;          goto T29;
137    goto T29;
138  T29:;  T29:;
139          V9= one_plus((V9));          V9= one_plus((V9));
140          goto T23;}}}          goto T23;}}}
141    goto T6;
142  T6:;  T6:;
143          goto T5;          goto T5;
144    goto T5;
145  T5:;  T5:;
146          {object V15;          {object V15;
147          register object V16;          register object V16;
# Line 142  T5:; Line 160  T5:;
160          goto T66;}          goto T66;}
161          V15= (V18);          V15= (V18);
162          goto T62;          goto T62;
163    goto T66;
164  T66:;  T66:;
165          base[0]= coerce_to_string((V18));          base[0]= coerce_to_string((V18));
166          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
167          Lfind_package();          Lfind_package();
168          vs_top=sup;          vs_top=sup;
169          V15= vs_base[0];}          V15= vs_base[0];}
170    goto T62;
171  T62:;  T62:;
172          V16= Cnil;          V16= Cnil;
173          V17= Cnil;          V17= Cnil;
# Line 163  T62:; Line 183  T62:;
183          V20= fix(vs_base[0]);          V20= fix(vs_base[0]);
184          vs_top=sup;          vs_top=sup;
185          goto T74;          goto T74;
186    goto T72;
187  T72:;  T72:;
188          V19= fix(Cnil);          V19= fix(Cnil);
189    goto T73;
190  T73:;  T73:;
191          V20= fix(Cnil);          V20= fix(Cnil);
192    goto T74;
193  T74:;  T74:;
194          {object V21;          {object V21;
195          register object V22;          register object V22;
# Line 174  T74:; Line 197  T74:;
197          V24 = make_fixnum(V19);          V24 = make_fixnum(V19);
198          V21= number_plus(V23,V24);          V21= number_plus(V23,V24);
199          V22= small_fixnum(0);          V22= small_fixnum(0);
200    goto T78;
201  T78:;  T78:;
202          if(!(number_compare((V22),(V21))>=0)){          if(!(number_compare((V22),(V21))>=0)){
203          goto T79;}          goto T79;}
204          V16= Cnil;          V16= Cnil;
205          goto T61;          goto T61;
206    goto T79;
207  T79:;  T79:;
208          V25 = make_fixnum(V20);          V25 = make_fixnum(V20);
209          if(!(number_compare((V22),V25)<0)){          if(!(number_compare((V22),V25)<0)){
# Line 190  T79:; Line 215  T79:;
215          vs_top=sup;          vs_top=sup;
216          V17= vs_base[0];          V17= vs_base[0];
217          goto T88;          goto T88;
218    goto T90;
219  T90:;  T90:;
220          base[1]= (V15);          base[1]= (V15);
221          V26 = make_fixnum(V20);          V26 = make_fixnum(V20);
# Line 198  T90:; Line 224  T90:;
224          siLpackage_external();          siLpackage_external();
225          vs_top=sup;          vs_top=sup;
226          V17= vs_base[0];          V17= vs_base[0];
227    goto T88;
228  T88:;  T88:;
229    goto T86;
230  T86:;  T86:;
231          if(((V17))!=Cnil){          if(((V17))!=Cnil){
232          goto T96;}          goto T96;}
233          goto T87;          goto T87;
234    goto T96;
235  T96:;  T96:;
236          V16= car((V17));          V16= car((V17));
237          base[1]= (V16);          base[1]= (V16);
# Line 217  T96:; Line 246  T96:;
246          vs_top=sup;          vs_top=sup;
247          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
248          goto T101;}          goto T101;}
249    goto T102;
250  T102:;  T102:;
251          base[1]= Cnil;          base[1]= Cnil;
252          base[2]= VV[3];          base[2]= VV[3];
# Line 226  T102:; Line 256  T102:;
256          vs_top=sup;          vs_top=sup;
257          V27= vs_base[0];          V27= vs_base[0];
258          V1= make_cons(V27,(V1));          V1= make_cons(V27,(V1));
259    goto T101;
260  T101:;  T101:;
261          V17= cdr((V17));          V17= cdr((V17));
262          goto T86;          goto T86;
263    goto T87;
264  T87:;  T87:;
265          goto T84;          goto T84;
266    goto T84;
267  T84:;  T84:;
268          V22= one_plus((V22));          V22= one_plus((V22));
269          goto T78;}}}          goto T78;}}}
270    goto T61;
271  T61:;  T61:;
272          goto T60;          goto T60;
273    goto T60;
274  T60:;  T60:;
275          base[0]= Ct;          base[0]= Ct;
276          base[1]= VV[4];          base[1]= VV[4];
# Line 244  T60:; Line 279  T60:;
279          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
280          (void) (*Lnk0)();          (void) (*Lnk0)();
281          return;}          return;}
282    goto T2;
283  T2:;  T2:;
284          base[0]= Cnil;          base[0]= Cnil;
285          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
286          return;          return;
287  }  }
288  static LnkT0(){ call_or_link(VV[0],&Lnk0);} /* READLINE-INIT */  static void LnkT0(){ call_or_link(VV[0],(void **)&Lnk0);} /* READLINE-INIT */
289  static LnkT5(){ call_or_link(VV[5],&Lnk5);} /* PACKAGE-SIZE */  static void LnkT5(){ call_or_link(VV[5],(void **)&Lnk5);} /* PACKAGE-SIZE */
290    
291  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
292  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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