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

Diff of /gcl/lsp/gcl_module.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_module.h"
4    void init_gcl_module(){do_init(VV);}
5    /*      local entry for function PROVIDE        */
6    
7    static object LI1(V2)
8    
9    object V2;
10    {        VMB1 VMS1 VMV1
11            goto TTL;
12    TTL:;
13            base[0]= coerce_to_string((V2));
14            base[1]= symbol_value(VV[0]);
15            base[2]= VV[1];
16            base[3]= symbol_function(VV[13]);
17            vs_top=(vs_base=base+0)+4;
18            Ladjoin();
19            vs_top=sup;
20            setq(VV[0],vs_base[0]);
21            {object V3 = symbol_value(VV[0]);
22            VMR1(V3)}
23            base[0]=base[0];
24            return Cnil;
25    }
26    /*      local entry for function REQUIRE        */
27    
28    static object LI2(object V4,object first,...)
29    {      
30            va_list ap;
31            int narg = VFUN_NARGS; VMB2 VMS2 VMV2
32            bds_check;
33            {object V5;
34            object V6;
35            va_start(ap,first);
36            if(narg <1) too_few_arguments();
37            V5= V4;
38            narg = narg - 1;
39            if (narg <= 0) goto T6;
40            else {
41            V6= first;}
42            --narg; goto T7;
43            goto T6;
44    T6:;
45            base[0]= coerce_to_string((V5));
46            vs_top=(vs_base=base+0)+1;
47            Lstring_downcase();
48            vs_top=sup;
49            V6= vs_base[0];
50            goto T7;
51    T7:;
52            bds_bind(VV[2],VV[3]);
53            base[1]= coerce_to_string((V5));
54            base[2]= symbol_value(VV[0]);
55            base[3]= VV[1];
56            base[4]= symbol_function(VV[13]);
57            vs_top=(vs_base=base+1)+4;
58            Lmember();
59            vs_top=sup;
60            if((vs_base[0])!=Cnil){
61            goto T11;}
62            if(!(type_of((V6))!=t_cons)){
63            goto T18;}
64            base[1]= (V6);
65            vs_top=(vs_base=base+1)+1;
66            (void) (*Lnk14)();
67            vs_top=sup;
68            {object V7 = vs_base[0];
69            bds_unwind1;
70            VMR2(V7)}
71            goto T18;
72    T18:;
73            {register object V8;
74            V8= (V6);
75            goto T22;
76    T22:;
77            if(!(endp_prop((V8)))){
78            goto T23;}
79            {object V9 = Cnil;
80            bds_unwind1;
81            VMR2(V9)}
82            goto T23;
83    T23:;
84            base[1]= car((V8));
85            vs_top=(vs_base=base+1)+1;
86            (void) (*Lnk14)();
87            vs_top=sup;
88            V8= cdr((V8));
89            goto T22;}
90            goto T11;
91    T11:;
92            {object V10 = Cnil;
93            bds_unwind1;
94            VMR2(V10)}
95            va_end(ap);
96            base[0]=base[0];
97            return Cnil;}
98            }
99    /*      local entry for function DOCUMENTATION  */
100    
101    static object LI3(V13,V14)
102    
103    register object V13;object V14;
104    {        VMB3 VMS3 VMV3
105            goto TTL;
106    TTL:;
107            {object V15= (V14);
108            if((V15!= VV[15]))goto T32;
109            {object V16 = get((V13),VV[4],Cnil);
110            VMR3(V16)}
111            goto T32;
112    T32:;
113            if((V15!= VV[16]))goto T33;
114            {object V17 = get((V13),VV[5],Cnil);
115            VMR3(V17)}
116            goto T33;
117    T33:;
118            if((V15!= VV[17]))goto T34;
119            {object V18 = get((V13),VV[6],Cnil);
120            VMR3(V18)}
121            goto T34;
122    T34:;
123            if((V15!= VV[18]))goto T35;
124            {object V19 = get((V13),VV[7],Cnil);
125            VMR3(V19)}
126            goto T35;
127    T35:;
128            if((V15!= VV[19]))goto T36;
129            {object V20 = get((V13),VV[8],Cnil);
130            VMR3(V20)}
131            goto T36;
132    T36:;
133            base[0]= (V13);
134            vs_top=(vs_base=base+0)+1;
135            Lpackagep();
136            vs_top=sup;
137            if((vs_base[0])==Cnil){
138            goto T38;}
139            base[1]= (V13);
140            vs_top=(vs_base=base+1)+1;
141            Lpackage_name();
142            vs_top=sup;
143            base[0]= vs_base[0];
144            base[1]= VV[9];
145            vs_top=(vs_base=base+0)+2;
146            Lfind_symbol();
147            vs_top=sup;
148            V21= vs_base[0];
149            {object V22 = get(V21,VV[10],Cnil);
150            VMR3(V22)}
151            goto T38;
152    T38:;
153            base[0]= VV[11];
154            base[1]= (V14);
155            vs_top=(vs_base=base+0)+2;
156            Lerror();
157            vs_top=sup;
158            {object V23 = vs_base[0];
159            VMR3(V23)}}
160            base[0]=base[0];
161            return Cnil;
162    }
163    /*      local entry for function FIND-DOCUMENTATION     */
164    
165    static object LI4(V25)
166    
167    register object V25;
168    {        VMB4 VMS4 VMV4
169            goto TTL;
170    TTL:;
171            if(endp_prop((V25))){
172            goto T47;}
173            if(!(endp_prop(cdr((V25))))){
174            goto T48;}
175            goto T47;
176    T47:;
177            {object V26 = Cnil;
178            VMR4(V26)}
179            goto T48;
180    T48:;
181            {register object V27;
182            base[0]= car((V25));
183            vs_top=(vs_base=base+0)+1;
184            Lmacroexpand();
185            vs_top=sup;
186            V27= vs_base[0];
187            if(!(type_of((V27))==t_string)){
188            goto T55;}
189            {object V28 = (V27);
190            VMR4(V28)}
191            goto T55;
192    T55:;
193            if(!(type_of((V27))==t_cons)){
194            goto T58;}
195            if(!((car((V27)))==(VV[12]))){
196            goto T58;}
197            V25= cdr((V25));
198            goto TTL;
199            goto T58;
200    T58:;
201            {object V29 = Cnil;
202            VMR4(V29)}}
203            base[0]=base[0];
204            return Cnil;
205    }
206    static void LnkT14(){ call_or_link(VV[14],(void **)(void *)&Lnk14);} /* LOAD */
207    
208    #ifdef SYSTEM_SPECIAL_INIT
209    SYSTEM_SPECIAL_INIT
210    #endif
211    

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