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

Diff of /gcl/lsp/module.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 "module.h"  #include "module.h"
4  init_module(){do_init(VV);}  void init_module(){do_init(VV);}
5  /*      local entry for function PROVIDE        */  /*      local entry for function PROVIDE        */
6    
7  static object LI1(V2)  static object LI1(V2)
8    
9  object V2;  object V2;
10  {        VMB1 VMS1 VMV1  {        VMB1 VMS1 VMV1
11    goto TTL;
12  TTL:;  TTL:;
13          base[0]= coerce_to_string((V2));          base[0]= coerce_to_string((V2));
14          base[1]= symbol_value(VV[0]);          base[1]= symbol_value(VV[0]);
# Line 19  TTL:; Line 20  TTL:;
20          setq(VV[0],vs_base[0]);          setq(VV[0],vs_base[0]);
21          {object V3 = symbol_value(VV[0]);          {object V3 = symbol_value(VV[0]);
22          VMR1(V3)}          VMR1(V3)}
23            base[0]=base[0];
24            return Cnil;
25  }  }
26  /*      local entry for function REQUIRE        */  /*      local entry for function REQUIRE        */
27    
# Line 31  static object LI2(V4,va_alist) Line 34  static object LI2(V4,va_alist)
34          bds_check;          bds_check;
35          {object V5;          {object V5;
36          object V6;          object V6;
37            Vcs[0]=Vcs[0];
38            va_start(ap);
39          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
40          V5= V4;          V5= V4;
41          narg = narg - 1;          narg = narg - 1;
42          if (narg <= 0) goto T6;          if (narg <= 0) goto T6;
43          else {          else {
         va_start(ap);  
44          V6= va_arg(ap,object);}          V6= va_arg(ap,object);}
45          --narg; goto T7;          --narg; goto T7;
46    goto T6;
47  T6:;  T6:;
48          base[0]= coerce_to_string((V5));          base[0]= coerce_to_string((V5));
49          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
50          Lstring_downcase();          Lstring_downcase();
51          vs_top=sup;          vs_top=sup;
52          V6= vs_base[0];          V6= vs_base[0];
53    goto T7;
54  T7:;  T7:;
55          bds_bind(VV[2],VV[3]);          bds_bind(VV[2],VV[3]);
56          base[1]= coerce_to_string((V5));          base[1]= coerce_to_string((V5));
# Line 65  T7:; Line 71  T7:;
71          {object V7 = vs_base[0];          {object V7 = vs_base[0];
72          bds_unwind1;          bds_unwind1;
73          VMR2(V7)}          VMR2(V7)}
74    goto T18;
75  T18:;  T18:;
76          {register object V8;          {register object V8;
77          V8= (V6);          V8= (V6);
78    goto T22;
79  T22:;  T22:;
80          if(!(endp((V8)))){          if(!(endp((V8)))){
81          goto T23;}          goto T23;}
82          {object V9 = Cnil;          {object V9 = Cnil;
83          bds_unwind1;          bds_unwind1;
84          VMR2(V9)}          VMR2(V9)}
85    goto T23;
86  T23:;  T23:;
87          base[1]= car((V8));          base[1]= car((V8));
88          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 81  T23:; Line 90  T23:;
90          vs_top=sup;          vs_top=sup;
91          V8= cdr((V8));          V8= cdr((V8));
92          goto T22;}          goto T22;}
93    goto T11;
94  T11:;  T11:;
95          {object V10 = Cnil;          {object V10 = Cnil;
96          bds_unwind1;          bds_unwind1;
97          VMR2(V10)}}          VMR2(V10)}
98            va_end(ap);
99            base[0]=base[0];
100            return Cnil;}
101          }          }
102  /*      local entry for function DOCUMENTATION  */  /*      local entry for function DOCUMENTATION  */
103    
# Line 92  static object LI3(V13,V14) Line 105  static object LI3(V13,V14)
105    
106  register object V13;object V14;  register object V13;object V14;
107  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
108    goto TTL;
109  TTL:;  TTL:;
110          {object V15= (V14);          {object V15= (V14);
111          if((V15!= VV[13]))goto T32;          if((V15!= VV[13]))goto T32;
112          {object V16 = get((V13),VV[4],Cnil);          {object V16 = get((V13),VV[4],Cnil);
113          VMR3(V16)}          VMR3(V16)}
114    goto T32;
115  T32:;  T32:;
116          if((V15!= VV[14]))goto T33;          if((V15!= VV[14]))goto T33;
117          {object V17 = get((V13),VV[5],Cnil);          {object V17 = get((V13),VV[5],Cnil);
118          VMR3(V17)}          VMR3(V17)}
119    goto T33;
120  T33:;  T33:;
121          if((V15!= VV[15]))goto T34;          if((V15!= VV[15]))goto T34;
122          {object V18 = get((V13),VV[6],Cnil);          {object V18 = get((V13),VV[6],Cnil);
123          VMR3(V18)}          VMR3(V18)}
124    goto T34;
125  T34:;  T34:;
126          if((V15!= VV[16]))goto T35;          if((V15!= VV[16]))goto T35;
127          {object V19 = get((V13),VV[7],Cnil);          {object V19 = get((V13),VV[7],Cnil);
128          VMR3(V19)}          VMR3(V19)}
129    goto T35;
130  T35:;  T35:;
131          if((V15!= VV[17]))goto T36;          if((V15!= VV[17]))goto T36;
132          {object V20 = get((V13),VV[8],Cnil);          {object V20 = get((V13),VV[8],Cnil);
133          VMR3(V20)}          VMR3(V20)}
134    goto T36;
135  T36:;  T36:;
136          base[0]= VV[9];          base[0]= VV[9];
137          base[1]= (V14);          base[1]= (V14);
# Line 121  T36:; Line 140  T36:;
140          vs_top=sup;          vs_top=sup;
141          {object V21 = vs_base[0];          {object V21 = vs_base[0];
142          VMR3(V21)}}          VMR3(V21)}}
143            base[0]=base[0];
144            return Cnil;
145  }  }
146  /*      local entry for function FIND-DOCUMENTATION     */  /*      local entry for function FIND-DOCUMENTATION     */
147    
# Line 128  static object LI4(V23) Line 149  static object LI4(V23)
149    
150  register object V23;  register object V23;
151  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
152    goto TTL;
153  TTL:;  TTL:;
154          if(endp((V23))){          if(endp((V23))){
155          goto T39;}          goto T39;}
156          if(!(endp(cdr((V23))))){          if(!(endp(cdr((V23))))){
157          goto T40;}          goto T40;}
158    goto T39;
159  T39:;  T39:;
160          {object V24 = Cnil;          {object V24 = Cnil;
161          VMR4(V24)}          VMR4(V24)}
162    goto T40;
163  T40:;  T40:;
164          {register object V25;          {register object V25;
165          base[0]= car((V23));          base[0]= car((V23));
# Line 147  T40:; Line 171  T40:;
171          goto T47;}          goto T47;}
172          {object V26 = (V25);          {object V26 = (V25);
173          VMR4(V26)}          VMR4(V26)}
174    goto T47;
175  T47:;  T47:;
176          if(!(type_of((V25))==t_cons)){          if(!(type_of((V25))==t_cons)){
177          goto T50;}          goto T50;}
# Line 154  T47:; Line 179  T47:;
179          goto T50;}          goto T50;}
180          V23= cdr((V23));          V23= cdr((V23));
181          goto TTL;          goto TTL;
182    goto T50;
183  T50:;  T50:;
184          {object V27 = Cnil;          {object V27 = Cnil;
185          VMR4(V27)}}          VMR4(V27)}}
186            base[0]=base[0];
187            return Cnil;
188  }  }
189  static LnkT12(){ call_or_link(VV[12],&Lnk12);} /* LOAD */  static void LnkT12(){ call_or_link(VV[12],(void **)&Lnk12);} /* LOAD */
190    
191  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
192  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