srfi-14.c

Scheme跨平台编译器

C_adjust_stack(-2);
f_661(t0,t1);}

C_noret_decl(tr7)
static void C_fcall tr7(C_proc7 k) C_regparm C_noret;
C_regparm static void C_fcall tr7(C_proc7 k){
C_word t6=C_pick(0);
C_word t5=C_pick(1);
C_word t4=C_pick(2);
C_word t3=C_pick(3);
C_word t2=C_pick(4);
C_word t1=C_pick(5);
C_word t0=C_pick(6);
C_adjust_stack(-7);
(k)(7,t0,t1,t2,t3,t4,t5,t6);}

C_noret_decl(tr6)
static void C_fcall tr6(C_proc6 k) C_regparm C_noret;
C_regparm static void C_fcall tr6(C_proc6 k){
C_word t5=C_pick(0);
C_word t4=C_pick(1);
C_word t3=C_pick(2);
C_word t2=C_pick(3);
C_word t1=C_pick(4);
C_word t0=C_pick(5);
C_adjust_stack(-6);
(k)(6,t0,t1,t2,t3,t4,t5);}

C_noret_decl(tr5)
static void C_fcall tr5(C_proc5 k) C_regparm C_noret;
C_regparm static void C_fcall tr5(C_proc5 k){
C_word t4=C_pick(0);
C_word t3=C_pick(1);
C_word t2=C_pick(2);
C_word t1=C_pick(3);
C_word t0=C_pick(4);
C_adjust_stack(-5);
(k)(5,t0,t1,t2,t3,t4);}

C_noret_decl(tr3)
static void C_fcall tr3(C_proc3 k) C_regparm C_noret;
C_regparm static void C_fcall tr3(C_proc3 k){
C_word t2=C_pick(0);
C_word t1=C_pick(1);
C_word t0=C_pick(2);
C_adjust_stack(-3);
(k)(3,t0,t1,t2);}

C_noret_decl(tr4)
static void C_fcall tr4(C_proc4 k) C_regparm C_noret;
C_regparm static void C_fcall tr4(C_proc4 k){
C_word t3=C_pick(0);
C_word t2=C_pick(1);
C_word t1=C_pick(2);
C_word t0=C_pick(3);
C_adjust_stack(-4);
(k)(4,t0,t1,t2,t3);}

C_noret_decl(tr2)
static void C_fcall tr2(C_proc2 k) C_regparm C_noret;
C_regparm static void C_fcall tr2(C_proc2 k){
C_word t1=C_pick(0);
C_word t0=C_pick(1);
C_adjust_stack(-2);
(k)(2,t0,t1);}

C_noret_decl(tr6r)
static void C_fcall tr6r(C_proc6 k) C_regparm C_noret;
C_regparm static void C_fcall tr6r(C_proc6 k){
int n;
C_word *a,t6;
C_word t5=C_pick(0);
C_word t4=C_pick(1);
C_word t3=C_pick(2);
C_word t2=C_pick(3);
C_word t1=C_pick(4);
C_word t0=C_pick(5);
C_adjust_stack(-6);
n=C_rest_count(0);
a=C_alloc(n*3);
t6=C_restore_rest(a,n);
(k)(t0,t1,t2,t3,t4,t5,t6);}

C_noret_decl(tr2r)
static void C_fcall tr2r(C_proc2 k) C_regparm C_noret;
C_regparm static void C_fcall tr2r(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*3);
t2=C_restore_rest(a,n);
(k)(t0,t1,t2);}

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

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);}

/* 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_srfi_14_toplevel(2,C_SCHEME_UNDEFINED,C_restore);}

void C_ccall C_srfi_14_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("srfi_14_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(862)){
C_save(t1);
C_rereclaim2(862*sizeof(C_word), 1);
t1=C_restore;}
a=C_alloc(3);
C_initialize_lf(lf,109);
lf[1]=C_decode_literal(C_heaptop,"\376B\000\000\033too many optional arguments");
lf[4]=C_h_intern(&lf[4],13,"make-char-set");
lf[5]=C_h_intern(&lf[5],8,"char-set");
lf[6]=C_h_intern(&lf[6],10,"char-set:s");
lf[7]=C_h_intern(&lf[7],9,"char-set\077");
lf[9]=C_h_intern(&lf[9],9,"substring");
lf[11]=C_h_intern(&lf[11],9,"\003syserror");
lf[12]=C_decode_literal(C_heaptop,"\376B\000\000 BASE-CS parameter not a char-set");
lf[13]=C_decode_literal(C_heaptop,"\376B\000\0003Expected final base char set -- too many parameters");
lf[14]=C_h_intern(&lf[14],11,"make-string");
lf[16]=C_decode_literal(C_heaptop,"\376B\000\000\016Not a char-set");
lf[19]=C_h_intern(&lf[19],13,"char-set-copy");
lf[20]=C_h_intern(&lf[20],9,"char-set=");
lf[21]=C_h_intern(&lf[21],10,"char-set<=");
lf[22]=C_h_intern(&lf[22],13,"char-set-hash");
lf[23]=C_h_intern(&lf[23],6,"modulo");
lf[24]=C_h_intern(&lf[24],18,"char-set-contains\077");
lf[25]=C_h_intern(&lf[25],13,"char-set-size");
lf[26]=C_h_intern(&lf[26],14,"char-set-count");
lf[28]=C_h_intern(&lf[28],12,"\003sysfor-each");
lf[30]=C_h_intern(&lf[30],15,"char-set-adjoin");
lf[31]=C_h_intern(&lf[31],16,"char-set-adjoin!");
lf[32]=C_h_intern(&lf[32],15,"char-set-delete");
lf[33]=C_h_intern(&lf[33],16,"char-set-delete!");
lf[34]=C_h_intern(&lf[34],15,"char-set-cursor");
lf[36]=C_h_intern(&lf[36],16,"end-of-char-set\077");
lf[37]=C_h_intern(&lf[37],12,"char-set-ref");
lf[38]=C_h_intern(&lf[38],20,"char-set-cursor-next");
lf[39]=C_h_intern(&lf[39],17,"char-set-for-each");
lf[40]=C_h_intern(&lf[40],12,"char-set-map");
lf[41]=C_h_intern(&lf[41],13,"char-set-fold");
lf[42]=C_h_intern(&lf[42],14,"char-set-every");
lf[43]=C_h_intern(&lf[43],12,"char-set-any");
lf[45]=C_h_intern(&lf[45],15,"char-set-unfold");
lf[46]=C_h_intern(&lf[46],16,"char-set-unfold!");
lf[48]=C_h_intern(&lf[48],14,"list->char-set");
lf[49]=C_h_intern(&lf[49],15,"list->char-set!");
lf[50]=C_h_intern(&lf[50],14,"char-set->list");
lf[52]=C_h_intern(&lf[52],16,"string->char-set");
lf[53]=C_h_intern(&lf[53],17,"string->char-set!");
lf[54]=C_h_intern(&lf[54],16,"char-set->string");
lf[56]=C_h_intern(&lf[56],3,"min");
lf[57]=C_decode_literal(C_heaptop,"\376B\000\000`Requested UCS range contains unavailable characters -- this implementation "
"only supports Latin-1");
lf[58]=C_h_intern(&lf[58],19,"ucs-range->char-set");
lf[59]=C_h_intern(&lf[59],20,"ucs-range->char-set!");
lf[61]=C_h_intern(&lf[61],15,"char-set-filter");
lf[62]=C_h_intern(&lf[62],16,"char-set-filter!");
lf[63]=C_h_intern(&lf[63],10,"->char-set");
lf[64]=C_decode_literal(C_heaptop,"\376B\000\000\036Not a charset, string or char.");
lf[67]=C_h_intern(&lf[67],19,"char-set-complement");
lf[68]=C_h_intern(&lf[68],20,"char-set-complement!");
lf[69]=C_h_intern(&lf[69],15,"char-set-union!");
lf[70]=C_h_intern(&lf[70],14,"char-set-union");
lf[71]=C_h_intern(&lf[71],14,"char-set:empty");
lf[72]=C_h_intern(&lf[72],22,"char-set-intersection!");
lf[73]=C_h_intern(&lf[73],21,"char-set-intersection");
lf[74]=C_h_intern(&lf[74],13,"char-set:full");
lf[75]=C_h_intern(&lf[75],20,"char-set-difference!");
lf[76]=C_h_intern(&lf[76],19,"char-set-difference");
lf[77]=C_h_intern(&lf[77],13,"char-set-xor!");
lf[78]=C_h_intern(&lf[78],12,"char-set-xor");
lf[80]=C_h_intern(&lf[80],27,"char-set-diff+intersection!");
lf[81]=C_h_intern(&lf[81],26,"char-set-diff+intersection");
lf[82]=C_h_intern(&lf[82],11,"string-copy");
lf[83]=C_h_intern(&lf[83],19,"char-set:lower-case");
lf[84]=C_h_intern(&lf[84],19,"char-set:upper-case");
lf[85]=C_h_intern(&lf[85],19,"char-set:title-case");
lf[86]=C_h_intern(&lf[86],15,"char-set:letter");
lf[87]=C_h_intern(&lf[87],14,"char-set:digit");
lf[88]=C_h_intern(&lf[88],18,"char-set:hex-digit");
lf[89]=C_h_intern(&lf[89],21,"char-set:letter+digit");
lf[90]=C_h_intern(&lf[90],20,"char-set:punctuation");
lf[91]=C_h_intern(&lf[91],15,"char-set:symbol");
lf[92]=C_h_intern(&lf[92],16,"char-set:graphic");
lf[93]=C_h_intern(&lf[93],19,"char-set:whitespace");
lf[94]=C_h_intern(&lf[94],17,"char-set:printing");
lf[95]=C_h_intern(&lf[95],14,"char-set:blank");
lf[96]=C_h_intern(&lf[96],20,"char-set:iso-control");
lf[97]=C_h_intern(&lf[97],14,"char-set:ascii");
lf[98]=C_h_intern(&lf[98],7,"\003sysmap");
lf[99]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\001\000\000\000\011\376\003\000\000\002\376\377\001\000\000\000 \376\003\000\000\002\376\377\001\000\000\000\240\376\377\016");
lf[100]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\001\000\000\000\011\376\003\000\000\002\376\377\001\000\000\000\012\376\003\000\000\002\376\377\001\000\000\000\013\376\003\000\000\002\376\377\001\000\000\000\014\376\003\000\000\002\376\377\001\000\000\000\015\376\003\000\000\002\376\377\001\000\000\000 \376\003\000\000\002\376\377\001"
"\000\000\000\240\376\377\016");
lf[101]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\001\000\000\000\242\376\003\000\000\002\376\377\001\000\000\000\243\376\003\000\000\002\376\377\001\000\000\000\244\376\003\000\000\002\376\377\001\000\000\000\245\376\003\000\000\002\376\377\001\000\000\000\246\376\003\000\000\002\376\377\001\000\000\000\247\376\003\000\000\002\376\377\001"
"\000\000\000\250\376\003\000\000\002\376\377\001\000\000\000\251\376\003\000\000\002\376\377\001\000\000\000\254\376\003\000\000\002\376\377\001\000\000\000\256\376\003\000\000\002\376\377\001\000\000\000\257\376\003\000\000\002\376\377\001\000\000\000\260\376\003\000\000\002\376\377\001\000\000\000\261\376\003\000\000"
"\002\376\377\001\000\000\000\264\376\003\000\000\002\376\377\001\000\000\000\266\376\003\000\000\002\376\377\001\000\000\000\270\376\003\000\000\002\376\377\001\000\000\000\327\376\003\000\000\002\376\377\001\000\000\000\367\376\377\016");
lf[102]=C_decode_literal(C_heaptop,"\376B\000\000\011$+<=>^`|~");
lf[103]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\001\000\000\000\241\376\003\000\000\002\376\377\001\000\000\000\253\376\003\000\000\002\376\377\001\000\000\000\255\376\003\000\000\002\376\377\001\000\000\000\267\376\003\000\000\002\376\377\001\000\000\000\273\376\003\000\000\002\376\377\001\000\000\000\277\376\377\016");
lf[104]=C_decode_literal(C_heaptop,"\376B\000\000\027!\042#%&\047()*,-./:;\077@[\134]_{}");
lf[105]=C_decode_literal(C_heaptop,"\376B\000\000\0260123456789abcdefABCDEF");
lf[106]=C_decode_literal(C_heaptop,"\376B\000\000\0120123456789");
lf[107]=C_h_intern(&lf[107],17,"register-feature!");
lf[108]=C_h_intern(&lf[108],7,"srfi-14");
C_register_lf2(lf,109,create_ptable());
t2=C_mutate(&lf[0],lf[1]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_629,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* srfi-14.scm: 43   register-feature! */
t4=*((C_word*)lf[107]+1);
((C_proc3)C_retrieve_proc(t4))(3,t4,t3,lf[108]);}

/* k627 */
static void C_ccall f_629(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 ab[27],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_629,2,t0,t1);}
t2=C_mutate(&lf[2],(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_631,