extras.c

Scheme跨平台编译器

C_noret_decl(tr3r)
static void C_fcall tr3r(C_proc3 k) C_regparm C_noret;
C_regparm static void C_fcall tr3r(C_proc3 k){
int n;
C_word *a,t3;
C_word t2=C_pick(0);
C_word t1=C_pick(1);
C_word t0=C_pick(2);
C_adjust_stack(-3);
n=C_rest_count(0);
a=C_alloc(n*3);
t3=C_restore_rest(a,n);
(k)(t0,t1,t2,t3);}

C_noret_decl(tr2rv)
static void C_fcall tr2rv(C_proc2 k) C_regparm C_noret;
C_regparm static void C_fcall tr2rv(C_proc2 k){
int n;
C_word *a,t2;
C_word t1=C_pick(0);
C_word t0=C_pick(1);
C_adjust_stack(-2);
n=C_rest_count(0);
a=C_alloc(n+1);
t2=C_restore_rest_vector(a,n);
(k)(t0,t1,t2);}

C_noret_decl(tr3rv)
static void C_fcall tr3rv(C_proc3 k) C_regparm C_noret;
C_regparm static void C_fcall tr3rv(C_proc3 k){
int n;
C_word *a,t3;
C_word t2=C_pick(0);
C_word t1=C_pick(1);
C_word t0=C_pick(2);
C_adjust_stack(-3);
n=C_rest_count(0);
a=C_alloc(n+1);
t3=C_restore_rest_vector(a,n);
(k)(t0,t1,t2,t3);}

/* toplevel */
static C_TLS int toplevel_initialized=0;
C_noret_decl(toplevel_trampoline)
static void C_fcall toplevel_trampoline(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall toplevel_trampoline(void *dummy){
C_extras_toplevel(2,C_SCHEME_UNDEFINED,C_restore);}

void C_ccall C_extras_toplevel(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(toplevel_initialized) C_kontinue(t1,C_SCHEME_UNDEFINED);
else C_toplevel_entry(C_text("extras_toplevel"));
C_check_nursery_minimum(3);
if(!C_demand(3)){
C_save(t1);
C_reclaim((void*)toplevel_trampoline,NULL);}
toplevel_initialized=1;
if(!C_demand_2(880)){
C_save(t1);
C_rereclaim2(880*sizeof(C_word), 1);
t1=C_restore;}
a=C_alloc(3);
C_initialize_lf(lf,136);
lf[1]=C_decode_literal(C_heaptop,"\376B\000\000\033too many optional arguments");
lf[2]=C_h_intern(&lf[2],19,"\003sysundefined-value");
lf[3]=C_h_intern(&lf[3],4,"read");
lf[4]=C_h_intern(&lf[4],7,"reverse");
lf[5]=C_h_intern(&lf[5],20,"call-with-input-file");
lf[6]=C_h_intern(&lf[6],9,"read-file");
lf[7]=C_h_intern(&lf[7],5,"port\077");
lf[8]=C_h_intern(&lf[8],18,"\003sysstandard-input");
lf[9]=C_h_intern(&lf[9],9,"\003syserror");
lf[10]=C_h_intern(&lf[10],11,"random-seed");
lf[11]=C_h_intern(&lf[11],17,"\003syscheck-integer");
lf[12]=C_h_intern(&lf[12],15,"current-seconds");
lf[13]=C_decode_literal(C_heaptop,"\376B\000\000\022too many arguments");
lf[14]=C_h_intern(&lf[14],6,"random");
lf[15]=C_h_intern(&lf[15],9,"randomize");
lf[16]=C_h_intern(&lf[16],11,"make-string");
lf[17]=C_h_intern(&lf[17],9,"read-line");
lf[18]=C_h_intern(&lf[18],13,"\003syssubstring");
lf[19]=C_h_intern(&lf[19],15,"\003sysread-char-0");
lf[20]=C_h_intern(&lf[20],9,"peek-char");
lf[21]=C_h_intern(&lf[21],17,"\003sysstring-append");
lf[22]=C_h_intern(&lf[22],15,"\003sysmake-string");
lf[23]=C_h_intern(&lf[23],14,"\003syscheck-port");
lf[24]=C_h_intern(&lf[24],10,"read-lines");
lf[25]=C_h_intern(&lf[25],16,"\003sysread-string!");
lf[26]=C_h_intern(&lf[26],12,"read-string!");
lf[27]=C_h_intern(&lf[27],18,"open-output-string");
lf[28]=C_h_intern(&lf[28],17,"get-output-string");
lf[29]=C_h_intern(&lf[29],20,"\003sysread-string/port");
lf[30]=C_h_intern(&lf[30],11,"read-string");
lf[31]=C_h_intern(&lf[31],19,"\003syswrite-char/port");
lf[32]=C_h_intern(&lf[32],10,"read-token");
lf[33]=C_h_intern(&lf[33],16,"\003syswrite-char-0");
lf[34]=C_h_intern(&lf[34],15,"\003syspeek-char-0");
lf[35]=C_h_intern(&lf[35],7,"display");
lf[36]=C_h_intern(&lf[36],12,"write-string");
lf[37]=C_h_intern(&lf[37],19,"\003sysstandard-output");
lf[38]=C_h_intern(&lf[38],7,"newline");
lf[39]=C_h_intern(&lf[39],10,"write-line");
lf[40]=C_h_intern(&lf[40],9,"read-byte");
lf[41]=C_h_intern(&lf[41],10,"write-byte");
lf[42]=C_h_intern(&lf[42],20,"\006extrasgeneric-write");
lf[43]=C_h_intern(&lf[43],5,"quote");
lf[44]=C_h_intern(&lf[44],10,"quasiquote");
lf[45]=C_h_intern(&lf[45],7,"unquote");
lf[46]=C_h_intern(&lf[46],16,"unquote-splicing");
lf[47]=C_decode_literal(C_heaptop,"\376B\000\000\001\047");
lf[48]=C_decode_literal(C_heaptop,"\376B\000\000\001`");
lf[49]=C_decode_literal(C_heaptop,"\376B\000\000\001,");
lf[50]=C_decode_literal(C_heaptop,"\376B\000\000\002,@");
lf[51]=C_decode_literal(C_heaptop,"\376B\000\000\001 ");
lf[52]=C_decode_literal(C_heaptop,"\376B\000\000\001)");
lf[53]=C_decode_literal(C_heaptop,"\376B\000\000\001)");
lf[54]=C_decode_literal(C_heaptop,"\376B\000\000\003 . ");
lf[55]=C_decode_literal(C_heaptop,"\376B\000\000\001(");
lf[56]=C_decode_literal(C_heaptop,"\376B\000\000\002()");
lf[57]=C_decode_literal(C_heaptop,"\376B\000\000\006#<eof>");
lf[58]=C_decode_literal(C_heaptop,"\376B\000\000\001#");
lf[59]=C_h_intern(&lf[59],12,"vector->list");
lf[60]=C_decode_literal(C_heaptop,"\376B\000\000\002#t");
lf[61]=C_decode_literal(C_heaptop,"\376B\000\000\002#f");
lf[62]=C_h_intern(&lf[62],18,"\003sysnumber->string");
lf[63]=C_h_intern(&lf[63],9,"\003sysprint");
lf[64]=C_h_intern(&lf[64],21,"\003sysprocedure->string");
lf[65]=C_decode_literal(C_heaptop,"\376B\000\000\001\134");
lf[66]=C_decode_literal(C_heaptop,"\376B\000\000\001\042");
lf[67]=C_decode_literal(C_heaptop,"\376B\000\000\001\042");
lf[68]=C_decode_literal(C_heaptop,"\376B\000\000\001x");
lf[69]=C_decode_literal(C_heaptop,"\376B\000\000\001U");
lf[70]=C_decode_literal(C_heaptop,"\376B\000\000\001u");
lf[71]=C_h_intern(&lf[71],9,"char-name");
lf[72]=C_decode_literal(C_heaptop,"\376B\000\000\002#\134");
lf[73]=C_decode_literal(C_heaptop,"\376B\000\000\006#<eof>");
lf[74]=C_decode_literal(C_heaptop,"\376B\000\000\016#<unspecified>");
lf[75]=C_h_intern(&lf[75],19,"\003syspointer->string");
lf[76]=C_h_intern(&lf[76],28,"\003sysarbitrary-unbound-symbol");
lf[77]=C_decode_literal(C_heaptop,"\376B\000\000\020#<unbound value>");
lf[78]=C_h_intern(&lf[78],19,"\003sysuser-print-hook");
lf[79]=C_h_intern(&lf[79],13,"string-append");
lf[80]=C_decode_literal(C_heaptop,"\376B\000\000\007#<port ");
lf[81]=C_decode_literal(C_heaptop,"\376B\000\000\001>");
lf[82]=C_decode_literal(C_heaptop,"\376B\000\000\001>");
lf[83]=C_decode_literal(C_heaptop,"\376B\000\000\025#<static blob of size");
lf[84]=C_decode_literal(C_heaptop,"\376B\000\000\017#<blob of size ");
lf[85]=C_decode_literal(C_heaptop,"\376B\000\000\002#>");
lf[86]=C_h_intern(&lf[86],23,"\003syslambda-info->string");
lf[87]=C_decode_literal(C_heaptop,"\376B\000\000\016#<lambda info ");
lf[88]=C_decode_literal(C_heaptop,"\376B\000\000\025#<unprintable object>");
lf[89]=C_h_intern(&lf[89],11,"\003sysnumber\077");
lf[90]=C_decode_literal(C_heaptop,"\376B\000\000\010        ");
lf[91]=C_decode_literal(C_heaptop,"\376B\000\000\010        ");
lf[92]=C_h_intern(&lf[92],28,"\006extrasreverse-string-append");
lf[93]=C_decode_literal(C_heaptop,"\376B\000\000\001#");
lf[94]=C_h_intern(&lf[94],3,"max");
lf[95]=C_h_intern(&lf[95],28,"\003syssymbol->qualified-string");
lf[96]=C_decode_literal(C_heaptop,"\376B\000\000\001(");
lf[97]=C_decode_literal(C_heaptop,"\376B\000\000\001(");
lf[98]=C_decode_literal(C_heaptop,"\376B\000\000\001)");
lf[99]=C_decode_literal(C_heaptop,"\376B\000\000\001)");
lf[100]=C_decode_literal(C_heaptop,"\376B\000\000\001.");
lf[101]=C_decode_literal(C_heaptop,"\376B\000\000\001 ");
lf[102]=C_decode_literal(C_heaptop,"\376B\000\000\001(");
lf[103]=C_h_intern(&lf[103],6,"lambda");
lf[104]=C_h_intern(&lf[104],2,"if");
lf[105]=C_h_intern(&lf[105],4,"set!");
lf[106]=C_h_intern(&lf[106],4,"cond");
lf[107]=C_h_intern(&lf[107],4,"case");
lf[108]=C_h_intern(&lf[108],3,"and");
lf[109]=C_h_intern(&lf[109],2,"or");
lf[110]=C_h_intern(&lf[110],3,"let");
lf[111]=C_h_intern(&lf[111],5,"begin");
lf[112]=C_h_intern(&lf[112],2,"do");
lf[113]=C_h_intern(&lf[113],4,"let*");
lf[114]=C_h_intern(&lf[114],6,"letrec");
lf[115]=C_h_intern(&lf[115],6,"define");
lf[116]=C_h_intern(&lf[116],18,"pretty-print-width");
lf[117]=C_h_intern(&lf[117],12,"pretty-print");
lf[118]=C_h_intern(&lf[118],19,"current-output-port");
lf[119]=C_h_intern(&lf[119],2,"pp");
lf[120]=C_h_intern(&lf[120],5,"write");
lf[121]=C_h_intern(&lf[121],15,"\006extrasfprintf0");
lf[122]=C_decode_literal(C_heaptop,"\376B\000\000/too few arguments to formatted output procedure");
lf[123]=C_h_intern(&lf[123],16,"\003sysflush-output");
lf[124]=C_decode_literal(C_heaptop,"\376B\000\000\037illegal format-string character");
lf[125]=C_h_intern(&lf[125],13,"\003systty-port\077");
lf[126]=C_h_intern(&lf[126],7,"fprintf");
lf[127]=C_h_intern(&lf[127],6,"printf");
lf[128]=C_h_intern(&lf[128],7,"sprintf");
lf[129]=C_h_intern(&lf[129],6,"format");
lf[130]=C_decode_literal(C_heaptop,"\376B\000\000\023illegal destination");
lf[131]=C_h_intern(&lf[131],12,"output-port\077");
lf[132]=C_h_intern(&lf[132],17,"register-feature!");
lf[133]=C_h_intern(&lf[133],7,"srfi-28");
lf[134]=C_h_intern(&lf[134],14,"make-parameter");
lf[135]=C_h_intern(&lf[135],6,"extras");
C_register_lf2(lf,136,create_ptable());
t2=C_mutate(&lf[0],lf[1]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_591,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_data_structures_toplevel(2,C_SCHEME_UNDEFINED,t3);}

/* k589 */
static void C_ccall f_591(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[3],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_591,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_594,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_ports_toplevel(2,C_SCHEME_UNDEFINED,t2);}

/* k592 in k589 */
static void C_ccall f_594(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word ab[3],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_594,2,t0,t1);}
t2=*((C_word*)lf[2]+1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_600,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* extras.scm: 91   register-feature! */
t4=*((C_word*)lf[132]+1);
((C_proc3)C_retrieve_proc(t4))(3,t4,t3,lf[135]);}

/* k598 in k592 in k589 */
static void C_ccall f_600(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word t27;
C_word t28;
C_word t29;
C_word t30;
C_word t31;
C_word t32;
C_word t33;
C_word t34;
C_word t35;
C_word t36;
C_word ab[70],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_600,2,t0,t1);}
t2=*((C_word*)lf[3]+1);
t3=*((C_word*)lf[4]+1);
t4=*((C_word*)lf[5]+1);
t5=C_mutate((C_word*)lf[6]+1,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_602,a[2]=t2,a[3]=t4,a[4]=t3,a[5]=((C_word)li6),tmp=(C_word)a,a+=6,tmp));
t6=C_mutate((C_word*)lf[10]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_743,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp));
t7=C_mutate((C_word*)lf[14]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_781,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp));
t8=C_mutate((C_word*)lf[15]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_793,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp));
t9=*((C_word*)lf[16]+1);
t10=C_mutate((C_word*)lf[17]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_836,a[2]=t9,a[3]=((C_word)li11),tmp=(C_word)a,a+=4,tmp));
t11=*((C_word*)lf[17]+1);
t12=*((C_word*)lf[5]+1);
t13=*((C_word*)lf[4]+1);
t14=C_mutate((C_word*)lf[24]+1,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_980,a[2]=t12,a[3]=t11,a[4]=t13,a[5]=((C_word)li14),tmp=(C_word)a,a+=6,tmp));
t15=C_mutate((C_word*)lf[25]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1070,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp));
t16=C_mutate((C_word*)lf[26]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1160,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp));
t17=*((C_word*)lf[27]+1);
t18=*((C_word*)lf[28]+1);
t19=C_mutate((C_word*)lf[29]+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1257,a[2]=t17,a[3]=t18,a[4]=((C_word)li22),tmp=(C_word)a,a+=5,tmp));
t20=C_mutate((C_word*)lf[30]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1330,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp));
t21=*((C_word*)lf[27]+1);
t22=*((C_word*)lf[28]+1);
t23=C_mutate((C_word*)lf[32]+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1390,a[2]=t21,a[3]=t22,a[4]=((C_word)li28),tmp=(C_word)a,a+=5,tmp));
t24=*((C_word*)lf[35]+1);
t25=C_mutate((C_word*)lf[36]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1459,a[2]=t24,a[3]=((C_word)li32),tmp=(C_word)a,a+=4,tmp));
t26=*((C_word*)lf[35]+1);
t27=*((C_word*)lf[38]+1);
t28=C_mutate((C_word*)lf[39]+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1548,a[2]=t26,a[3]=t27,a[4]=((C_