/[gcl]/gcl/cmpnew/gcl_cmpvs.c
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmpvs.c

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

revision 1.1 by camm, Sun Sep 14 02:30:34 2003 UTC revision 1.2 by camm, Sun Sep 14 02:43:02 2003 UTC
# Line 0  Line 1 
1    
2    #include "cmpinclude.h"
3    #include "gcl_cmpvs.h"
4    void init_gcl_cmpvs(){do_init(VV);}
5    /*      local entry for function VS-PUSH        */
6    
7    static object LI1()
8    
9    {        VMB1 VMS1 VMV1
10            goto TTL;
11    TTL:;
12            {object V1;
13            V1= make_cons(symbol_value(VV[0]),symbol_value(VV[1]));
14            setq(VV[1],number_plus(symbol_value(VV[1]),small_fixnum(1)));
15            setq(VV[2],(number_compare(symbol_value(VV[1]),symbol_value(VV[2]))>=0?(symbol_value(VV[1])):symbol_value(VV[2])));
16            {object V2 = (V1);
17            VMR1(V2)}}
18            return Cnil;
19    }
20    /*      local entry for function SET-VS */
21    
22    static object LI2(V5,V6)
23    
24    register object V5;object V6;
25    {        VMB2 VMS2 VMV2
26            goto TTL;
27    TTL:;
28            if(!(type_of((V5))==t_cons)){
29            goto T6;}
30            if(!((car((V5)))==(VV[3]))){
31            goto T6;}
32            if(equal(cadr((V5)),(V6))){
33            goto T7;}
34            goto T6;
35    T6:;
36            princ_str("\n   ",VV[4]);
37            (void)((*(LnkLI12))((V6)));
38            princ_str("= ",VV[4]);
39            (void)((*(LnkLI13))((V5)));
40            princ_char(59,VV[4]);
41            {object V7 = Cnil;
42            VMR2(V7)}
43            goto T7;
44    T7:;
45            {object V8 = Cnil;
46            VMR2(V8)}
47            return Cnil;
48    }
49    /*      local entry for function WT-VS  */
50    
51    static object LI3(V10)
52    
53    register object V10;
54    {        VMB3 VMS3 VMV3
55            goto TTL;
56    TTL:;
57            if(!((car((V10)))==(VV[5]))){
58            goto T19;}
59            princ_char(86,VV[4]);
60            (void)((*(LnkLI13))(cadr((V10))));
61            {object V11 = Cnil;
62            VMR3(V11)}
63            goto T19;
64    T19:;
65            if(!((car((V10)))==(VV[6]))){
66            goto T24;}
67            setq(VV[7],Ct);
68            princ_str("Vcs[",VV[4]);
69            (void)((*(LnkLI13))(cdr((V10))));
70            princ_char(93,VV[4]);
71            {object V12 = Cnil;
72            VMR3(V12)}
73            goto T24;
74    T24:;
75            if(!(number_compare(car((V10)),symbol_value(VV[0]))==0)){
76            goto T32;}
77            princ_str("base[",VV[4]);
78            (void)((*(LnkLI13))(cdr((V10))));
79            princ_char(93,VV[4]);
80            {object V13 = Cnil;
81            VMR3(V13)}
82            goto T32;
83    T32:;
84            princ_str("base",VV[4]);
85            (void)((*(LnkLI13))(car((V10))));
86            princ_char(91,VV[4]);
87            (void)((*(LnkLI13))(cdr((V10))));
88            princ_char(93,VV[4]);
89            {object V14 = Cnil;
90            VMR3(V14)}
91            return Cnil;
92    }
93    /*      local entry for function WT-VS* */
94    
95    static object LI4(V16)
96    
97    object V16;
98    {        VMB4 VMS4 VMV4
99            goto TTL;
100    TTL:;
101            princ_char(40,VV[4]);
102            (void)((*(LnkLI12))((V16)));
103            princ_str("->c.c_car)",VV[4]);
104            {object V17 = Cnil;
105            VMR4(V17)}
106            return Cnil;
107    }
108    /*      local entry for function WT-CCB-VS      */
109    
110    static object LI5(V19)
111    
112    object V19;
113    {        VMB5 VMS5 VMV5
114            goto TTL;
115    TTL:;
116            princ_str("(base0[",VV[4]);
117            V20= number_minus(symbol_value(VV[8]),(V19));
118            (void)((*(LnkLI13))(/* INLINE-ARGS */V20));
119            princ_str("]->c.c_car)",VV[4]);
120            {object V21 = Cnil;
121            VMR5(V21)}
122            return Cnil;
123    }
124    /*      local entry for function CLINK  */
125    
126    static object LI6(V23)
127    
128    object V23;
129    {        VMB6 VMS6 VMV6
130            goto TTL;
131    TTL:;
132            setq(VV[9],(V23));
133            {object V24 = symbol_value(VV[9]);
134            VMR6(V24)}
135            return Cnil;
136    }
137    /*      local entry for function WT-CLINK       */
138    
139    static object LI7(object first,...)
140    {      
141            va_list ap;
142            int narg = VFUN_NARGS; VMB7 VMS7 VMV7
143            {object V25;
144            va_start(ap,first);
145            narg = narg - 0;
146            if (narg <= 0) goto T50;
147            else {
148            V25= first;}
149            --narg; goto T51;
150            goto T50;
151    T50:;
152            V25= symbol_value(VV[9]);
153            goto T51;
154    T51:;
155            if(((V25))!=Cnil){
156            goto T54;}
157            princ_str("Cnil",VV[4]);
158            {object V26 = Cnil;
159            VMR7(V26)}
160            goto T54;
161    T54:;
162            {object V27 = (*(LnkLI12))((V25));
163            VMR7(V27)}
164            va_end(ap);
165            return Cnil;}
166            }
167    /*      local entry for function CCB-VS-PUSH    */
168    
169    static object LI8()
170    
171    {        VMB8 VMS8 VMV8
172            goto TTL;
173    TTL:;
174            setq(VV[10],number_plus(symbol_value(VV[10]),small_fixnum(1)));
175            {object V28 = symbol_value(VV[10]);
176            VMR8(V28)}
177            return Cnil;
178    }
179    /*      local entry for function CVS-PUSH       */
180    
181    static object LI9()
182    
183    {        VMB9 VMS9 VMV9
184            goto TTL;
185    TTL:;
186            {object V29;
187            V29= make_cons(VV[6],symbol_value(VV[11]));
188            setq(VV[11],number_plus(symbol_value(VV[11]),small_fixnum(1)));
189            {object V30 = (V29);
190            VMR9(V30)}}
191            return Cnil;
192    }
193    /*      local entry for function WT-LIST        */
194    
195    static object LI10(V32)
196    
197    object V32;
198    {        VMB10 VMS10 VMV10
199            goto TTL;
200    TTL:;
201            {register object V33;
202            V33= (V32);
203            goto T62;
204    T62:;
205            if(((V33))!=Cnil){
206            goto T63;}
207            {object V34 = Cnil;
208            VMR10(V34)}
209            goto T63;
210    T63:;
211            (void)((*(LnkLI13))(car((V33))));
212            if(!((cdr((V33)))==Cnil)){
213            goto T70;}
214            goto T69;
215            goto T70;
216    T70:;
217            princ_char(44,VV[4]);
218            goto T69;
219    T69:;
220            V33= cdr((V33));
221            goto T62;}
222            return Cnil;
223    }
224    static object  LnkTLI13(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[13],(void **)(void *)&LnkLI13,1,first,ap);va_end(ap);return V1;} /* WT1 */
225    static object  LnkTLI12(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[12],(void **)(void *)&LnkLI12,1,first,ap);va_end(ap);return V1;} /* WT-VS */
226    
227    #ifdef SYSTEM_SPECIAL_INIT
228    SYSTEM_SPECIAL_INIT
229    #endif
230    

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