This is cmputil.c in view mode; [Download] [Up]
#include <cmpinclude.h> #include "cmputil.h" init_cmputil(){do_init(VV);} /* macro definition for SAFE-COMPILE */ static L1() {register object *base=vs_base; register object *sup=base+VM1; VC1 vs_reserve(VM1); check_arg(2); vs_top=sup; {object V1=base[0]->c.c_cdr; base[2]= V1;} base[3]= listA(3,VV[0],VV[1],base[2]); vs_top=(vs_base=base+3)+1; return; } /* local entry for function CMPERR */ static object LI2(V2,va_alist) object V2; va_dcl { va_list ap; int narg = VFUN_NARGS; VMB2 VMS2 VMV2 bds_check; {object V3; object V4; if(narg <1) too_few_arguments(); V3= V2; narg= narg - 1; va_start(ap); V5 = list_vector(narg,ap); V4= V5; bds_bind(VV[3],VV[2]); (void)((*(LnkLI58))()); base[1]= Ct; base[2]= VV[4]; vs_top=(vs_base=base+1)+2; Lformat(); vs_top=sup; base[1]= Ct; base[2]= (V3); {object V6; V6= (V4); vs_top=base+3; while(!endp(V6)) {vs_push(car(V6));V6=cdr(V6);} vs_base=base+1;} Lformat(); vs_top=sup; setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); {frame_ptr fr; fr=frs_sch_catch(VV[6]); if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[6]); base[1]= VV[7]; vs_top=(vs_base=base+1)+1; unwind(fr,VV[6]);}} } /* macro definition for CMPCK */ static L3() {register object *base=vs_base; register object *sup=base+VM3; VC3 vs_reserve(VM3); check_arg(2); vs_top=sup; {object V7=base[0]->c.c_cdr; if(endp(V7))invalid_macro_call(); base[2]= (V7->c.c_car); V7=V7->c.c_cdr; if(endp(V7))invalid_macro_call(); base[3]= (V7->c.c_car); V7=V7->c.c_cdr; base[4]= V7;} base[5]= list(3,VV[8],base[2],listA(3,VV[9],base[3],base[4])); vs_top=(vs_base=base+5)+1; return; } /* local entry for function TOO-MANY-ARGS */ static object LI4(V11,V12,V13) object V11;object V12;object V13; { VMB4 VMS4 VMV4 bds_check; TTL:; bds_bind(VV[3],VV[2]); (void)((*(LnkLI58))()); base[1]= Ct; base[2]= VV[10]; base[3]= (V11); base[4]= (V12); base[5]= (V13); vs_top=(vs_base=base+1)+5; Lformat(); vs_top=sup; setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); {frame_ptr fr; fr=frs_sch_catch(VV[6]); if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[6]); base[1]= VV[7]; vs_top=(vs_base=base+1)+1; unwind(fr,VV[6]);} } /* local entry for function TOO-FEW-ARGS */ static object LI5(V17,V18,V19) object V17;object V18;object V19; { VMB5 VMS5 VMV5 bds_check; TTL:; bds_bind(VV[3],VV[2]); (void)((*(LnkLI58))()); base[1]= Ct; base[2]= VV[11]; base[3]= (V17); base[4]= (V18); base[5]= (V19); vs_top=(vs_base=base+1)+5; Lformat(); vs_top=sup; setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); {frame_ptr fr; fr=frs_sch_catch(VV[6]); if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[6]); base[1]= VV[7]; vs_top=(vs_base=base+1)+1; unwind(fr,VV[6]);} } /* local entry for function CMPWARN */ static object LI6(V20,va_alist) object V20; va_dcl { va_list ap; int narg = VFUN_NARGS; VMB6 VMS6 VMV6 bds_check; {object V21; object V22; if(narg <1) too_few_arguments(); V21= V20; narg= narg - 1; va_start(ap); V23 = list_vector(narg,ap); V22= V23; bds_bind(VV[3],VV[2]); if((symbol_value(VV[12]))!=Cnil){ goto T32;} (void)((*(LnkLI58))()); base[1]= Ct; base[2]= VV[13]; vs_top=(vs_base=base+1)+2; Lformat(); vs_top=sup; base[1]= Ct; base[2]= (V21); {object V24; V24= (V22); vs_top=base+3; while(!endp(V24)) {vs_push(car(V24));V24=cdr(V24);} vs_base=base+1;} Lformat(); vs_top=sup; princ_char(10,Cnil); T32:; {object V25 = Cnil; bds_unwind1; VMR6(V25)}} } /* local entry for function CMPNOTE */ static object LI7(V26,va_alist) object V26; va_dcl { va_list ap; int narg = VFUN_NARGS; VMB7 VMS7 VMV7 bds_check; {object V27; object V28; if(narg <1) too_few_arguments(); V27= V26; narg= narg - 1; va_start(ap); V29 = list_vector(narg,ap); V28= V29; bds_bind(VV[3],VV[2]); if((symbol_value(VV[14]))!=Cnil){ goto T43;} princ_char(10,Cnil); base[1]= Ct; base[2]= VV[15]; vs_top=(vs_base=base+1)+2; Lformat(); vs_top=sup; base[1]= Ct; base[2]= (V27); {object V30; V30= (V28); vs_top=base+3; while(!endp(V30)) {vs_push(car(V30));V30=cdr(V30);} vs_base=base+1;} Lformat(); vs_top=sup; T43:; {object V31 = Cnil; bds_unwind1; VMR7(V31)}} } /* local entry for function PRINT-CURRENT-FORM */ static object LI8() { VMB8 VMS8 VMV8 bds_check; TTL:; if((symbol_value(VV[16]))==Cnil){ goto T53;} setq(VV[16],Cnil); vs_base=vs_top; Lfresh_line(); vs_top=sup; if(!(type_of(symbol_value(VV[17]))==t_cons)){ goto T60;} if(!((car(symbol_value(VV[17])))==(VV[18]))){ goto T60;} base[0]= Ct; base[1]= VV[19]; base[2]= cdr(symbol_value(VV[17])); vs_top=(vs_base=base+0)+3; Lformat(); vs_top=sup; goto T53; T60:; bds_bind(VV[20],small_fixnum(2)); bds_bind(VV[21],small_fixnum(2)); base[2]= Ct; base[3]= VV[22]; base[4]= symbol_value(VV[17]); vs_top=(vs_base=base+2)+3; Lformat(); vs_top=sup; bds_unwind1; bds_unwind1; T53:; {object V32 = Cnil; VMR8(V32)} } /* local entry for function UNDEFINED-VARIABLE */ static object LI9(V34) object V34; { VMB9 VMS9 VMV9 bds_check; TTL:; bds_bind(VV[3],VV[2]); (void)((*(LnkLI58))()); base[1]= Ct; base[2]= VV[23]; base[3]= (V34); vs_top=(vs_base=base+1)+3; Lformat(); vs_top=sup; {object V35 = Cnil; bds_unwind1; VMR9(V35)} } /* local entry for function BABOON */ static object LI10() { VMB10 VMS10 VMV10 bds_check; TTL:; bds_bind(VV[3],VV[2]); (void)((*(LnkLI58))()); base[1]= Ct; base[2]= VV[24]; vs_top=(vs_base=base+1)+2; Lformat(); vs_top=sup; setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); {object V36 = (VFUN_NARGS=0,(*(LnkLI59))()); bds_unwind1; VMR10(V36)} } /* macro definition for DOLIST* */ static L11() {register object *base=vs_base; register object *sup=base+VM11; VC11 vs_reserve(VM11); check_arg(2); vs_top=sup; {object V37=base[0]->c.c_cdr; if(endp(V37))invalid_macro_call(); {object V38= (V37->c.c_car); if(endp(V38))invalid_macro_call(); base[2]= (V38->c.c_car); V38=V38->c.c_cdr; if(endp(V38))invalid_macro_call(); base[3]= (V38->c.c_car); V38=V38->c.c_cdr; if(endp(V38)){ base[4]= Cnil; } else { base[4]= (V38->c.c_car); V38=V38->c.c_cdr;} if(!endp(V38))invalid_macro_call();} V37=V37->c.c_cdr; base[5]= V37;} {register object V39; vs_base=vs_top; Lgensym(); vs_top=sup; V39= vs_base[0]; V40= list(3,(V39),base[3],list(2,VV[26],(V39))); V41= list(2,VV[27],(V39)); V42= list(2,/* INLINE-ARGS */V40,list(3,base[2],/* INLINE-ARGS */V41,list(2,VV[27],(V39)))); V43= list(2,list(2,VV[28],(V39)),base[4]); base[6]= listA(5,VV[25],/* INLINE-ARGS */V42,/* INLINE-ARGS */V43,list(2,VV[29],list(2,VV[30],base[2])),base[5]); vs_top=(vs_base=base+6)+1; return;} } /* macro definition for DOLIST** */ static L12() {register object *base=vs_base; register object *sup=base+VM12; VC12 vs_reserve(VM12); check_arg(2); vs_top=sup; {object V44=base[0]->c.c_cdr; if(endp(V44))invalid_macro_call(); {object V45= (V44->c.c_car); if(endp(V45))invalid_macro_call(); base[2]= (V45->c.c_car); V45=V45->c.c_cdr; if(endp(V45))invalid_macro_call(); base[3]= (V45->c.c_car); V45=V45->c.c_cdr; if(endp(V45)){ base[4]= Cnil; } else { base[4]= (V45->c.c_car); V45=V45->c.c_cdr;} if(!endp(V45))invalid_macro_call();} V44=V44->c.c_cdr; base[5]= V44;} {register object V46; vs_base=vs_top; Lgensym(); vs_top=sup; V46= vs_base[0]; V47= list(3,(V46),base[3],list(2,VV[26],(V46))); V48= list(2,VV[27],(V46)); V49= list(2,/* INLINE-ARGS */V47,list(3,base[2],/* INLINE-ARGS */V48,list(2,VV[27],(V46)))); V50= list(2,list(2,VV[28],(V46)),base[4]); base[6]= listA(5,VV[25],/* INLINE-ARGS */V49,/* INLINE-ARGS */V50,list(2,VV[29],list(3,VV[30],(V46),base[2])),base[5]); vs_top=(vs_base=base+6)+1; return;} } /* macro definition for DOTIMES* */ static L13() {register object *base=vs_base; register object *sup=base+VM13; VC13 vs_reserve(VM13); check_arg(2); vs_top=sup; {object V51=base[0]->c.c_cdr; if(endp(V51))invalid_macro_call(); {object V52= (V51->c.c_car); if(endp(V52))invalid_macro_call(); base[2]= (V52->c.c_car); V52=V52->c.c_cdr; if(endp(V52))invalid_macro_call(); base[3]= (V52->c.c_car); V52=V52->c.c_cdr; if(endp(V52)){ base[4]= Cnil; } else { base[4]= (V52->c.c_car); V52=V52->c.c_cdr;} if(!endp(V52))invalid_macro_call();} V51=V51->c.c_cdr; base[5]= V51;} {object V53; vs_base=vs_top; Lgensym(); vs_top=sup; V53= vs_base[0]; V54= list(2,(V53),base[3]); V55= list(2,/* INLINE-ARGS */V54,list(3,base[2],small_fixnum(0),list(2,VV[31],base[2]))); V56= list(2,list(3,VV[32],base[2],(V53)),base[4]); base[6]= listA(5,VV[25],/* INLINE-ARGS */V55,/* INLINE-ARGS */V56,list(2,VV[29],list(2,VV[33],base[2])),base[5]); vs_top=(vs_base=base+6)+1; return;} } /* macro definition for DOTIMES** */ static L14() {register object *base=vs_base; register object *sup=base+VM14; VC14 vs_reserve(VM14); check_arg(2); vs_top=sup; {object V57=base[0]->c.c_cdr; if(endp(V57))invalid_macro_call(); {object V58= (V57->c.c_car); if(endp(V58))invalid_macro_call(); base[2]= (V58->c.c_car); V58=V58->c.c_cdr; if(endp(V58))invalid_macro_call(); base[3]= (V58->c.c_car); V58=V58->c.c_cdr; if(endp(V58)){ base[4]= Cnil; } else { base[4]= (V58->c.c_car); V58=V58->c.c_cdr;} if(!endp(V58))invalid_macro_call();} V57=V57->c.c_cdr; base[5]= V57;} {object V59; vs_base=vs_top; Lgensym(); vs_top=sup; V59= vs_base[0]; V60= list(2,(V59),base[3]); V61= list(2,/* INLINE-ARGS */V60,list(3,base[2],small_fixnum(0),list(2,VV[31],base[2]))); V62= list(2,list(3,VV[32],base[2],(V59)),base[4]); base[6]= listA(5,VV[25],/* INLINE-ARGS */V61,/* INLINE-ARGS */V62,list(2,VV[29],list(3,VV[33],(V59),base[2])),base[5]); vs_top=(vs_base=base+6)+1; return;} } /* function definition for CMP-EVAL */ static L15() {register object *base=vs_base; register object *sup=base+VM15; VC15 vs_reserve(VM15); bds_check; {object V63; check_arg(1); V63=(base[0]); vs_top=sup; TTL:; {object V64; base[1]= list(2,VV[34],list(2,VV[35],(V63))); vs_top=(vs_base=base+1)+1; (void) (*Lnk60)(); Llist(); vs_top=sup; V64= vs_base[0]; if((car((V64)))==Cnil){ goto T93;} bds_bind(VV[3],VV[2]); setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); (void)((*(LnkLI58))()); base[2]= Ct; base[3]= VV[36]; base[4]= (V63); vs_top=(vs_base=base+2)+3; Lformat(); vs_top=sup; base[2]= Cnil; vs_top=(vs_base=base+2)+1; bds_unwind1; return; T93:; base[1]= cdr((V64)); vs_top=(vs_base=base+1)+1; Lvalues_list(); return;} } } /* local entry for function CMP-MACROEXPAND */ static object LI16(V66) object V66; { VMB16 VMS16 VMV16 bds_check; TTL:; {register object V67; V67= Cnil; {register object V68; register object V69; V68= symbol_value(VV[37]); V69= car((V68)); T108:; if(!(endp((V68)))){ goto T109;} goto T104; T109:; if(!(type_of((V69))==t_cons)){ goto T113;} V70= list(3,car((V69)),VV[38],cadr((V69))); V67= make_cons(/* INLINE-ARGS */V70,(V67)); T113:; V68= cdr((V68)); V69= car((V68)); goto T108;} T104:; if(((V67))==Cnil){ goto T122;} V71= nreverse((V67)); V67= list(3,Cnil,/* INLINE-ARGS */V71,Cnil); T122:; {object V72; V73= list(2,VV[35],(V66)); base[0]= list(3,VV[39],/* INLINE-ARGS */V73,list(2,VV[35],(V67))); vs_top=(vs_base=base+0)+1; (void) (*Lnk60)(); Llist(); vs_top=sup; V72= vs_base[0]; if((car((V72)))==Cnil){ goto T130;} bds_bind(VV[3],VV[2]); setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); (void)((*(LnkLI58))()); base[1]= Ct; base[2]= VV[40]; base[3]= (V66); vs_top=(vs_base=base+1)+3; Lformat(); vs_top=sup; {object V74 = list(3,VV[41],VV[42],list(2,VV[35],(V66))); bds_unwind1; VMR16(V74)} T130:; {object V75 = cadr((V72)); VMR16(V75)}}} } /* local entry for function CMP-MACROEXPAND-1 */ static object LI17(V77) object V77; { VMB17 VMS17 VMV17 bds_check; TTL:; {register object V78; V78= Cnil; {register object V79; register object V80; V79= symbol_value(VV[37]); V80= car((V79)); T144:; if(!(endp((V79)))){ goto T145;} goto T140; T145:; if(!(type_of((V80))==t_cons)){ goto T149;} V81= list(3,car((V80)),VV[38],cadr((V80))); V78= make_cons(/* INLINE-ARGS */V81,(V78)); T149:; V79= cdr((V79)); V80= car((V79)); goto T144;} T140:; {object V82; V83= list(2,VV[35],(V77)); base[0]= list(3,VV[43],/* INLINE-ARGS */V83,list(2,VV[35],(V78))); vs_top=(vs_base=base+0)+1; (void) (*Lnk60)(); Llist(); vs_top=sup; V82= vs_base[0]; if((car((V82)))==Cnil){ goto T162;} bds_bind(VV[3],VV[2]); setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); (void)((*(LnkLI58))()); base[1]= Ct; base[2]= VV[44]; base[3]= (V77); vs_top=(vs_base=base+1)+3; Lformat(); vs_top=sup; {object V84 = list(3,VV[41],VV[45],list(2,VV[35],(V77))); bds_unwind1; VMR17(V84)} T162:; {object V85 = cadr((V82)); VMR17(V85)}}} } /* local entry for function CMP-EXPAND-MACRO */ static object LI18(V89,V90,V91) object V89;register object V90;object V91; { VMB18 VMS18 VMV18 bds_check; TTL:; {register object V92; V92= Cnil; {register object V93; register object V94; V93= symbol_value(VV[37]); V94= car((V93)); T176:; if(!(endp((V93)))){ goto T177;} goto T172; T177:; if(!(type_of((V94))==t_cons)){ goto T181;} V95= list(3,car((V94)),VV[38],cadr((V94))); V92= make_cons(/* INLINE-ARGS */V95,(V92)); T181:; V93= cdr((V93)); V94= car((V93)); goto T176;} T172:; if(symbol_value(VV[46])==Cnil){ goto T190;} (void)((*(LnkLI61))((V90))); T190:; if(((V92))==Cnil){ goto T191;} V96= nreverse((V92)); V92= list(3,Cnil,/* INLINE-ARGS */V96,Cnil); T191:; {object V97; V98= list(2,VV[35],(V89)); V99= list(2,VV[35],make_cons((V90),(V91))); base[0]= list(5,VV[47],VV[48],/* INLINE-ARGS */V98,/* INLINE-ARGS */V99,list(2,VV[35],(V92))); vs_top=(vs_base=base+0)+1; (void) (*Lnk60)(); Llist(); vs_top=sup; V97= vs_base[0]; if((car((V97)))==Cnil){ goto T199;} bds_bind(VV[3],VV[2]); setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); (void)((*(LnkLI58))()); base[1]= Ct; base[2]= VV[49]; base[3]= (V90); vs_top=(vs_base=base+1)+3; Lformat(); vs_top=sup; {object V100 = list(3,VV[41],VV[50],list(2,VV[35],make_cons((V90),(V91)))); bds_unwind1; VMR18(V100)} T199:; {object V101 = cadr((V97)); VMR18(V101)}}} } /* function definition for CMP-TOPLEVEL-EVAL */ static L19() {register object *base=vs_base; register object *sup=base+VM19; VC19 vs_reserve(VM19); bds_check; {object V102; check_arg(1); V102=(base[0]); vs_top=sup; TTL:; bds_bind(VV[51],symbol_value(VV[52])); vs_base=vs_top; (void) (*Lnk62)(); vs_top=sup; V103= vs_base[0]; bds_bind(VV[52],one_minus(V103)); bds_bind(VV[53],symbol_value(VV[54])); base[5]= VV[56]; vs_top=(vs_base=base+5)+1; Lfind_package(); vs_top=sup; V104= vs_base[0]; bds_bind(VV[55],make_cons(V104,symbol_value(VV[55]))); base[5]= (V102); vs_top=(vs_base=base+5)+1; (void) (*Lnk63)(); bds_unwind1; bds_unwind1; bds_unwind1; bds_unwind1; return; } } /* local entry for function COMPILER-DEF-HOOK */ static object LI20(V107,V108) object V107;object V108; { VMB20 VMS20 VMV20 TTL:; {object V109 = Cnil; VMR20(V109)} } /* local entry for function COMPILER-CLEAR-COMPILER-PROPERTIES */ static object LI21(V112,V113) register object V112;object V113; { VMB21 VMS21 VMV21 TTL:; {register object V114; register object V115; base[0]= (V112); vs_top=(vs_base=base+0)+1; Lsymbol_plist(); vs_top=sup; V114= vs_base[0]; V115= Cnil; T221:; V115= car((V114)); if(!(type_of((V115))==t_symbol)){ goto T226;} if((get((V115),VV[57],Cnil))==Cnil){ goto T226;} V114= cddr((V114)); (void)(remprop((V112),(V115))); goto T224; T226:; V114= cddr((V114)); T224:; if(!(((V114))==Cnil)){ goto T234;} goto T233; T234:; goto T221; T233:; goto T219; T219:; {object V116 = (*(LnkLI64))((V112),(V113)); VMR21(V116)}} } static object LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[64],&LnkLI64,2,ap);} /* COMPILER-DEF-HOOK */ static LnkT63(){ call_or_link(VV[63],&Lnk63);} /* ERROR-SET */ static LnkT62(){ call_or_link(VV[62],&Lnk62);} /* IHS-TOP */ static object LnkTLI61(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[61],&LnkLI61,1,ap);} /* ADD-MACRO-CALLEE */ static LnkT60(){ call_or_link(VV[60],&Lnk60);} /* CMP-TOPLEVEL-EVAL */ static object LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[59],&LnkLI59,ap);} /* BREAK */ static object LnkTLI58(){return call_proc0(VV[58],&LnkLI58);} /* PRINT-CURRENT-FORM */
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.