srfi-69.c

Scheme跨平台编译器

lf[45]=C_decode_literal(C_heaptop,"\376U0.5\000");
lf[46]=C_decode_literal(C_heaptop,"\376U0.8\000");
lf[47]=C_h_intern(&lf[47],7,"warning");
lf[48]=C_decode_literal(C_heaptop,"\376B\000\000\033user test without user hash");
lf[49]=C_h_intern(&lf[49],5,"error");
lf[50]=C_decode_literal(C_heaptop,"\376B\000\000\036min-load greater than max-load");
lf[51]=C_h_intern(&lf[51],5,"\000test");
lf[52]=C_h_intern(&lf[52],17,"\003syscheck-closure");
lf[53]=C_h_intern(&lf[53],5,"\000hash");
lf[54]=C_h_intern(&lf[54],5,"\000size");
lf[55]=C_h_intern(&lf[55],19,"hash-table-max-size");
lf[56]=C_decode_literal(C_heaptop,"\376B\000\000\014invalid size");
lf[57]=C_h_intern(&lf[57],8,"\000initial");
lf[58]=C_h_intern(&lf[58],9,"\000min-load");
lf[59]=C_decode_literal(C_heaptop,"\376U0.0\000");
lf[60]=C_decode_literal(C_heaptop,"\376U1.0\000");
lf[61]=C_decode_literal(C_heaptop,"\376B\000\000\020invalid min-load");
lf[62]=C_h_intern(&lf[62],17,"\003syscheck-inexact");
lf[63]=C_h_intern(&lf[63],9,"\000max-load");
lf[64]=C_decode_literal(C_heaptop,"\376U0.0\000");
lf[65]=C_decode_literal(C_heaptop,"\376U1.0\000");
lf[66]=C_decode_literal(C_heaptop,"\376B\000\000\020invalid max-load");
lf[67]=C_h_intern(&lf[67],10,"\000weak-keys");
lf[68]=C_h_intern(&lf[68],12,"\000weak-values");
lf[69]=C_decode_literal(C_heaptop,"\376B\000\000\017unknown keyword");
lf[70]=C_decode_literal(C_heaptop,"\376B\000\000\025missing keyword value");
lf[71]=C_decode_literal(C_heaptop,"\376B\000\000\017missing keyword");
lf[72]=C_decode_literal(C_heaptop,"\376B\000\000\014invalid size");
lf[73]=C_h_intern(&lf[73],11,"hash-table\077");
lf[74]=C_h_intern(&lf[74],15,"hash-table-size");
lf[75]=C_h_intern(&lf[75],31,"hash-table-equivalence-function");
lf[76]=C_h_intern(&lf[76],24,"hash-table-hash-function");
lf[77]=C_h_intern(&lf[77],19,"hash-table-min-load");
lf[78]=C_h_intern(&lf[78],19,"hash-table-max-load");
lf[79]=C_h_intern(&lf[79],20,"hash-table-weak-keys");
lf[80]=C_h_intern(&lf[80],22,"hash-table-weak-values");
lf[81]=C_h_intern(&lf[81],23,"hash-table-has-initial\077");
lf[82]=C_h_intern(&lf[82],18,"hash-table-initial");
lf[83]=C_h_intern(&lf[83],24,"\007srfi-69%hash-table-copy");
lf[84]=C_h_intern(&lf[84],15,"hash-table-copy");
lf[85]=C_h_intern(&lf[85],25,"\007srfi-69hash-table-rehash");
lf[86]=C_h_intern(&lf[86],5,"floor");
lf[87]=C_h_intern(&lf[87],27,"\007srfi-69%hash-table-update!");
lf[88]=C_h_intern(&lf[88],18,"hash-table-update!");
lf[89]=C_h_intern(&lf[89],13,"\000access-error");
lf[90]=C_decode_literal(C_heaptop,"\376B\000\000\037hash-table does not contain key");
lf[91]=C_h_intern(&lf[91],8,"identity");
lf[92]=C_h_intern(&lf[92],26,"hash-table-update!/default");
lf[93]=C_h_intern(&lf[93],15,"hash-table-set!");
lf[94]=C_h_intern(&lf[94],23,"\007srfi-69%hash-table-ref");
lf[95]=C_h_intern(&lf[95],14,"hash-table-ref");
lf[96]=C_h_intern(&lf[96],22,"hash-table-ref/default");
lf[97]=C_h_intern(&lf[97],18,"hash-table-exists\077");
lf[98]=C_h_intern(&lf[98],18,"hash-table-delete!");
lf[99]=C_h_intern(&lf[99],18,"hash-table-remove!");
lf[100]=C_h_intern(&lf[100],17,"hash-table-clear!");
lf[101]=C_h_intern(&lf[101],12,"vector-fill!");
lf[102]=C_h_intern(&lf[102],26,"\007srfi-69%hash-table-merge!");
lf[103]=C_h_intern(&lf[103],17,"hash-table-merge!");
lf[104]=C_h_intern(&lf[104],16,"hash-table-merge");
lf[105]=C_h_intern(&lf[105],17,"hash-table->alist");
lf[106]=C_h_intern(&lf[106],17,"alist->hash-table");
lf[107]=C_h_intern(&lf[107],12,"\003sysfor-each");
lf[108]=C_h_intern(&lf[108],15,"hash-table-keys");
lf[109]=C_h_intern(&lf[109],17,"hash-table-values");
lf[110]=C_h_intern(&lf[110],28,"\007srfi-69%hash-table-for-each");
lf[111]=C_h_intern(&lf[111],24,"\007srfi-69%hash-table-fold");
lf[112]=C_h_intern(&lf[112],15,"hash-table-fold");
lf[113]=C_h_intern(&lf[113],19,"hash-table-for-each");
lf[114]=C_h_intern(&lf[114],15,"hash-table-walk");
lf[115]=C_h_intern(&lf[115],14,"hash-table-map");
lf[116]=C_decode_literal(C_heaptop,"\376B\000\000\037hash-table does not contain key");
lf[117]=C_h_intern(&lf[117],18,"getter-with-setter");
lf[118]=C_h_intern(&lf[118],17,"register-feature!");
lf[119]=C_h_intern(&lf[119],7,"srfi-69");
C_register_lf2(lf,120,create_ptable());
t2=C_mutate(&lf[0],lf[1]);
t3=*((C_word*)lf[2]+1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_611,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* srfi-69.scm: 76   register-feature! */
t5=*((C_word*)lf[118]+1);
((C_proc3)C_retrieve_proc(t5))(3,t5,t4,lf[119]);}

/* k609 */
static void C_ccall f_611(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 t37;
C_word t38;
C_word t39;
C_word t40;
C_word t41;
C_word t42;
C_word t43;
C_word t44;
C_word t45;
C_word t46;
C_word t47;
C_word t48;
C_word t49;
C_word t50;
C_word t51;
C_word t52;
C_word t53;
C_word t54;
C_word t55;
C_word ab[128],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_611,2,t0,t1);}
t2=C_mutate((C_word*)lf[3]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_613,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp));
t3=C_mutate((C_word*)lf[5]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_619,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp));
t4=C_mutate((C_word*)lf[7]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_625,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp));
t5=C_mutate((C_word*)lf[14]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_698,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp));
t6=C_mutate((C_word*)lf[15]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_704,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp));
t7=C_mutate((C_word*)lf[16]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_752,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp));
t8=C_mutate((C_word*)lf[18]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_804,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp));
t9=C_mutate((C_word*)lf[22]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_830,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp));
t10=C_mutate((C_word*)lf[23]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_882,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp));
t11=C_mutate((C_word*)lf[24]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_943,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp));
t12=C_mutate((C_word*)lf[25]+1,*((C_word*)lf[24]+1));
t13=C_mutate((C_word*)lf[26]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_992,a[2]=((C_word)li10),tmp=(C_word)a,a+=3,tmp));
t14=C_mutate((C_word*)lf[27]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1072,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp));
t15=C_mutate((C_word*)lf[6]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1120,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp));
t16=C_mutate((C_word*)lf[29]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1392,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp));
t17=C_mutate((C_word*)lf[30]+1,*((C_word*)lf[29]+1));
t18=C_mutate((C_word*)lf[17]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1441,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp));
t19=C_mutate((C_word*)lf[31]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1489,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp));
t20=C_mutate(&lf[32],lf[33]);
t21=C_mutate((C_word*)lf[34]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1538,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp));
t22=*((C_word*)lf[35]+1);
t23=C_mutate((C_word*)lf[36]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1568,a[2]=t22,a[3]=((C_word)li22),tmp=(C_word)a,a+=4,tmp));
t24=*((C_word*)lf[38]+1);
t25=*((C_word*)lf[39]+1);
t26=*((C_word*)lf[40]+1);
t27=*((C_word*)lf[41]+1);
t28=*((C_word*)lf[42]+1);
t29=*((C_word*)lf[43]+1);
t30=C_mutate((C_word*)lf[44]+1,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1599,a[2]=t29,a[3]=t28,a[4]=t27,a[5]=t26,a[6]=t25,a[7]=t24,a[8]=((C_word)li26),tmp=(C_word)a,a+=9,tmp));
t31=C_mutate((C_word*)lf[73]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1962,a[2]=((C_word)li27),tmp=(C_word)a,a+=3,tmp));
t32=C_mutate((C_word*)lf[74]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1968,a[2]=((C_word)li28),tmp=(C_word)a,a+=3,tmp));
t33=C_mutate((C_word*)lf[75]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1977,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp));
t34=C_mutate((C_word*)lf[76]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1986,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp));
t35=C_mutate((C_word*)lf[77]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1995,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp));
t36=C_mutate((C_word*)lf[78]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2004,a[2]=((C_word)li32),tmp=(C_word)a,a+=3,tmp));
t37=C_mutate((C_word*)lf[79]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2013,a[2]=((C_word)li33),tmp=(C_word)a,a+=3,tmp));
t38=C_mutate((C_word*)lf[80]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2022,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp));
t39=C_mutate((C_word*)lf[81]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2031,a[2]=((C_word)li35),tmp=(C_word)a,a+=3,tmp));
t40=C_mutate((C_word*)lf[82]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2043,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp));
t41=*((C_word*)lf[35]+1);
t42=C_mutate((C_word*)lf[83]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2058,a[2]=t41,a[3]=((C_word)li39),tmp=(C_word)a,a+=4,tmp));
t43=C_mutate((C_word*)lf[84]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2170,a[2]=((C_word)li40),tmp=(C_word)a,a+=3,tmp));
t44=C_mutate((C_word*)lf[85]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2179,a[2]=((C_word)li43),tmp=(C_word)a,a+=3,tmp));
t45=*((C_word*)lf[38]+1);
t46=*((C_word*)lf[86]+1);
t47=C_mutate((C_word*)lf[87]+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2258,a[2]=t46,a[3]=t45,a[4]=((C_word)li47),tmp=(C_word)a,a+=5,tmp));
t48=C_mutate((C_word*)lf[88]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2494,a[2]=((C_word)li52),tmp=(C_word)a,a+=3,tmp));
t49=C_mutate((C_word*)lf[92]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2575,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp));
t50=C_mutate((C_word*)lf[93]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2590,a[2]=((C_word)li56),tmp=(C_word)a,a+=3,tmp));
t51=*((C_word*)lf[38]+1);
t52=C_mutate((C_word*)lf[94]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2604,a[2]=t51,a[3]=((C_word)li59),tmp=(C_word)a,a+=4,tmp));
t53=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2715,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t54=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3492,a[2]=((C_word)li100),tmp=(C_word)a,a+=3,tmp);
/* srfi-69.scm: 773  getter-with-setter */
t55=*((C_word*)lf[117]+1);
((C_proc4)C_retrieve_proc(t55))(4,t55,t53,t54,*((C_word*)lf[93]+1));}

/* a3491 in k609 */
static void C_ccall f_3492(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,...){
C_word tmp;
C_word t4;
va_list v;
C_word *a,c2=c;
C_save_rest(t3,c2,4);
if(c<4) C_bad_min_argc_2(c,4,t0);
C_check_for_interrupt;
if(!C_demand(c*C_SIZEOF_PAIR+10)){
C_save_and_reclaim((void*)tr4r,(void*)f_3492r,4,t0,t1,t2,t3);}
else{
a=C_alloc((c-4)*3);
t4=C_restore_rest(a,C_rest_count(0));
f_3492r(t0,t1,t2,t3,t4);}}

static void C_ccall f_3492r(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word *a=C_alloc(10);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3496,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
if(C_truep((C_word)C_i_nullp(t4))){
t6=t5;
f_3496(2,t6,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3509,a[2]=t2,a[3]=t3,a[4]=((C_word)li99),tmp=(C_word)a,a+=5,tmp));}
else{
t6=(C_word)C_i_cdr(t4);
if(C_truep((C_word)C_i_nullp(t6))){
t7=t5;
f_3496(2,t7,(C_word)C_i_car(t4));}
else{
/* ##sys#error */
t7=*((C_word*)lf[13]+1);
((C_proc4)(void*)(*((C_word*)t7+1)))(4,t7,t5,lf[0],t4);}}}

/* f_3509 in a3491 in k609 */
static void C_ccall f_3509(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_3509,2,t0,t1);}
/* srfi-69.scm: 775  ##sys#signal-hook */
t2=*((C_word*)lf[10]+1);
((C_proc7)(void*)(*((C_word*)t2+1)))(7,t2,t1,lf[89],lf[95],lf[116],((C_word*)t0)[3],((C_word*)t0)[2]);}

/* k3494 in a3491 in k609 */
static void C_ccall f_3496(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word ab[6],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_3496,2,t0,t1);}
t2=(C_word)C_i_check_structure_2(((C_word*)t0)[4],lf[37],lf[95]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3502,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
/* srfi-69.scm: 779  ##sys#check-closure */
t4=*((C_word*)lf[52]+1);
((C_proc4)(void*)(*((C_word*)t4+1)))(4,t4,t3,t1,lf[95]);}

/* k3500 in k3494 in a3491 in k609 */
static void C_ccall f_3502(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
/* srfi-69.scm: 780  %hash-table-ref */
t2=*((C_word*)lf[94]+1);
((C_proc5)C_retrieve_proc(t2))(5,t2,((C_word*)t0)[5],((C_word*)t0