1 |
|
|
2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "mislib.h" |
#include "mislib.h" |
4 |
init_mislib(){do_init(VV);} |
void init_mislib(){do_init(VV);} |
5 |
/* macro definition for TIME */ |
/* macro definition for TIME */ |
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); |
25 |
|
|
26 |
object V3; |
object V3; |
27 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
28 |
|
goto TTL; |
29 |
TTL:; |
TTL:; |
30 |
base[0]= (V3); |
base[0]= (V3); |
31 |
base[1]= small_fixnum(4); |
base[1]= small_fixnum(4); |
37 |
goto T1;} |
goto T1;} |
38 |
{object V5 = Cnil; |
{object V5 = Cnil; |
39 |
VMR2(V5)} |
VMR2(V5)} |
40 |
|
goto T1; |
41 |
T1:; |
T1:; |
42 |
base[0]= (V3); |
base[0]= (V3); |
43 |
base[1]= small_fixnum(100); |
base[1]= small_fixnum(100); |
49 |
goto T6;} |
goto T6;} |
50 |
{object V7 = Ct; |
{object V7 = Ct; |
51 |
VMR2(V7)} |
VMR2(V7)} |
52 |
|
goto T6; |
53 |
T6:; |
T6:; |
54 |
base[0]= (V3); |
base[0]= (V3); |
55 |
base[1]= small_fixnum(400); |
base[1]= small_fixnum(400); |
59 |
V8= vs_base[0]; |
V8= vs_base[0]; |
60 |
{object V9 = (number_compare(small_fixnum(0),V8)==0?Ct:Cnil); |
{object V9 = (number_compare(small_fixnum(0),V8)==0?Ct:Cnil); |
61 |
VMR2(V9)} |
VMR2(V9)} |
62 |
|
base[0]=base[0]; |
63 |
|
return Cnil; |
64 |
} |
} |
65 |
/* local entry for function NUMBER-OF-DAYS-FROM-1900 */ |
/* local entry for function NUMBER-OF-DAYS-FROM-1900 */ |
66 |
|
|
68 |
|
|
69 |
object V11; |
object V11; |
70 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
71 |
|
goto TTL; |
72 |
TTL:; |
TTL:; |
73 |
{object V12; |
{object V12; |
74 |
V12= one_minus((V11)); |
V12= one_minus((V11)); |
99 |
vs_top=sup; |
vs_top=sup; |
100 |
{object V15 = vs_base[0]; |
{object V15 = vs_base[0]; |
101 |
VMR3(V15)}} |
VMR3(V15)}} |
102 |
|
base[0]=base[0]; |
103 |
|
return Cnil; |
104 |
} |
} |
105 |
/* function definition for DECODE-UNIVERSAL-TIME */ |
/* function definition for DECODE-UNIVERSAL-TIME */ |
106 |
|
|
107 |
static L4() |
static void L4() |
108 |
{register object *base=vs_base; |
{register object *base=vs_base; |
109 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
110 |
vs_reserve(VM4); |
vs_reserve(VM4); |
118 |
V17=(base[1]); |
V17=(base[1]); |
119 |
vs_top=sup; |
vs_top=sup; |
120 |
goto T28; |
goto T28; |
121 |
|
goto T27; |
122 |
T27:; |
T27:; |
123 |
V17= symbol_value(VV[9]); |
V17= symbol_value(VV[9]); |
124 |
|
goto T28; |
125 |
T28:; |
T28:; |
126 |
{object V18; |
{object V18; |
127 |
object V19; |
object V19; |
196 |
V23= number_plus(VV[8],V26); |
V23= number_plus(VV[8],V26); |
197 |
{register object V27; |
{register object V27; |
198 |
V27= Cnil; |
V27= Cnil; |
199 |
|
goto T55; |
200 |
T55:; |
T55:; |
201 |
V28= (*(LnkLI13))((V23)); |
V28= (*(LnkLI13))((V23)); |
202 |
V27= number_minus((V21),/* INLINE-ARGS */V28); |
V27= number_minus((V21),/* INLINE-ARGS */V28); |
204 |
goto T62;} |
goto T62;} |
205 |
V29= small_fixnum(366); |
V29= small_fixnum(366); |
206 |
goto T60; |
goto T60; |
207 |
|
goto T62; |
208 |
T62:; |
T62:; |
209 |
V29= small_fixnum(365); |
V29= small_fixnum(365); |
210 |
|
goto T60; |
211 |
T60:; |
T60:; |
212 |
if(!(number_compare((V27),V29)<0)){ |
if(!(number_compare((V27),V29)<0)){ |
213 |
goto T56;} |
goto T56;} |
214 |
V21= one_plus((V27)); |
V21= one_plus((V27)); |
215 |
goto T53; |
goto T53; |
216 |
|
goto T56; |
217 |
T56:; |
T56:; |
218 |
V23= number_plus((V23),small_fixnum(1)); |
V23= number_plus((V23),small_fixnum(1)); |
219 |
goto T55;} |
goto T55;} |
220 |
|
goto T53; |
221 |
T53:; |
T53:; |
222 |
if(((*(LnkLI14))((V23)))==Cnil){ |
if(((*(LnkLI14))((V23)))==Cnil){ |
223 |
goto T70;} |
goto T70;} |
234 |
base[10]= (V17); |
base[10]= (V17); |
235 |
vs_top=(vs_base=base+2)+9; |
vs_top=(vs_base=base+2)+9; |
236 |
return; |
return; |
237 |
|
goto T73; |
238 |
T73:; |
T73:; |
239 |
if(!(number_compare((V21),small_fixnum(60))>0)){ |
if(!(number_compare((V21),small_fixnum(60))>0)){ |
240 |
goto T70;} |
goto T70;} |
241 |
V21= number_minus((V21),small_fixnum(1)); |
V21= number_minus((V21),small_fixnum(1)); |
242 |
|
goto T70; |
243 |
T70:; |
T70:; |
244 |
{register object V30; |
{register object V30; |
245 |
V30= VV[12]; |
V30= VV[12]; |
246 |
|
goto T90; |
247 |
T90:; |
T90:; |
248 |
if(!(number_compare((V21),car((V30)))<=0)){ |
if(!(number_compare((V21),car((V30)))<=0)){ |
249 |
goto T91;} |
goto T91;} |
250 |
V31 = make_fixnum(length((V30))); |
V31 = make_fixnum(length((V30))); |
251 |
V22= number_minus(small_fixnum(13),V31); |
V22= number_minus(small_fixnum(13),V31); |
252 |
goto T88; |
goto T88; |
253 |
|
goto T91; |
254 |
T91:; |
T91:; |
255 |
V21= number_minus((V21),car((V30))); |
V21= number_minus((V21),car((V30))); |
256 |
V30= cdr((V30)); |
V30= cdr((V30)); |
257 |
goto T90;} |
goto T90;} |
258 |
|
goto T88; |
259 |
T88:; |
T88:; |
260 |
base[2]= (V18); |
base[2]= (V18); |
261 |
base[3]= (V19); |
base[3]= (V19); |
285 |
object V42; |
object V42; |
286 |
register object V43; |
register object V43; |
287 |
object V44; |
object V44; |
288 |
|
Vcs[0]=Vcs[0]; |
289 |
|
va_start(ap); |
290 |
if(narg <6) too_few_arguments(); |
if(narg <6) too_few_arguments(); |
291 |
V38= V37; |
V38= V37; |
292 |
V39= V36; |
V39= V36; |
297 |
narg = narg - 6; |
narg = narg - 6; |
298 |
if (narg <= 0) goto T110; |
if (narg <= 0) goto T110; |
299 |
else { |
else { |
|
va_start(ap); |
|
300 |
V44= va_arg(ap,object);} |
V44= va_arg(ap,object);} |
301 |
--narg; goto T111; |
--narg; goto T111; |
302 |
|
goto T110; |
303 |
T110:; |
T110:; |
304 |
V44= symbol_value(VV[9]); |
V44= symbol_value(VV[9]); |
305 |
|
goto T111; |
306 |
T111:; |
T111:; |
307 |
V40= number_plus((V40),(V44)); |
V40= number_plus((V40),(V44)); |
308 |
base[0]= small_fixnum(0); |
base[0]= small_fixnum(0); |
352 |
V53= vs_base[0]; |
V53= vs_base[0]; |
353 |
vs_top=sup; |
vs_top=sup; |
354 |
goto T131; |
goto T131; |
355 |
|
goto T122; |
356 |
T122:; |
T122:; |
357 |
V45= Cnil; |
V45= Cnil; |
358 |
|
goto T123; |
359 |
T123:; |
T123:; |
360 |
V46= Cnil; |
V46= Cnil; |
361 |
|
goto T124; |
362 |
T124:; |
T124:; |
363 |
V47= Cnil; |
V47= Cnil; |
364 |
|
goto T125; |
365 |
T125:; |
T125:; |
366 |
V48= Cnil; |
V48= Cnil; |
367 |
|
goto T126; |
368 |
T126:; |
T126:; |
369 |
V49= Cnil; |
V49= Cnil; |
370 |
|
goto T127; |
371 |
T127:; |
T127:; |
372 |
V50= Cnil; |
V50= Cnil; |
373 |
|
goto T128; |
374 |
T128:; |
T128:; |
375 |
V51= Cnil; |
V51= Cnil; |
376 |
|
goto T129; |
377 |
T129:; |
T129:; |
378 |
V52= Cnil; |
V52= Cnil; |
379 |
|
goto T130; |
380 |
T130:; |
T130:; |
381 |
V53= Cnil; |
V53= Cnil; |
382 |
|
goto T131; |
383 |
T131:; |
T131:; |
384 |
base[0]= (V50); |
base[0]= (V50); |
385 |
base[1]= small_fixnum(100); |
base[1]= small_fixnum(100); |
394 |
goto T138;} |
goto T138;} |
395 |
V43= number_plus((V43),small_fixnum(100)); |
V43= number_plus((V43),small_fixnum(100)); |
396 |
goto T115; |
goto T115; |
397 |
|
goto T138; |
398 |
T138:; |
T138:; |
399 |
V57= number_minus((V43),(V50)); |
V57= number_minus((V43),(V50)); |
400 |
if(!(number_compare(/* INLINE-ARGS */V57,small_fixnum(50))>=0)){ |
if(!(number_compare(/* INLINE-ARGS */V57,small_fixnum(50))>=0)){ |
401 |
goto T115;} |
goto T115;} |
402 |
V43= number_minus((V43),small_fixnum(100));} |
V43= number_minus((V43),small_fixnum(100));} |
403 |
|
goto T115; |
404 |
T115:; |
T115:; |
405 |
if(((*(LnkLI14))((V43)))==Cnil){ |
if(((*(LnkLI14))((V43)))==Cnil){ |
406 |
goto T145;} |
goto T145;} |
407 |
if(number_compare((V42),small_fixnum(2))>0){ |
if(number_compare((V42),small_fixnum(2))>0){ |
408 |
goto T144;} |
goto T144;} |
409 |
|
goto T145; |
410 |
T145:; |
T145:; |
411 |
V41= number_minus((V41),small_fixnum(1)); |
V41= number_minus((V41),small_fixnum(1)); |
412 |
|
goto T144; |
413 |
T144:; |
T144:; |
414 |
base[1]= (V41); |
base[1]= (V41); |
415 |
base[2]= (*(LnkLI13))((V43)); |
base[2]= (*(LnkLI13))((V43)); |
435 |
Lplus(); |
Lplus(); |
436 |
vs_top=sup; |
vs_top=sup; |
437 |
{object V60 = vs_base[0]; |
{object V60 = vs_base[0]; |
438 |
VMR5(V60)}} |
VMR5(V60)} |
439 |
|
va_end(ap); |
440 |
|
base[0]=base[0]; |
441 |
|
return Cnil;} |
442 |
} |
} |
443 |
static LnkT15(){ call_or_link(VV[15],&Lnk15);} /* GET-DECODED-TIME */ |
static void LnkT15(){ call_or_link(VV[15],(void **)&Lnk15);} /* GET-DECODED-TIME */ |
444 |
static object LnkTLI14(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[14],&LnkLI14,1,ap);} /* LEAP-YEAR-P */ |
static object LnkTLI14(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[14],(void **)&LnkLI14,1,ap);} /* LEAP-YEAR-P */ |
445 |
static object LnkTLI13(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[13],&LnkLI13,1,ap);} /* NUMBER-OF-DAYS-FROM-1900 */ |
static object LnkTLI13(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[13],(void **)&LnkLI13,1,ap);} /* NUMBER-OF-DAYS-FROM-1900 */ |
446 |
|
|
447 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
448 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |