regex.c

Scheme跨平台编译器

C_word t1=C_pick(1);
C_word t0=C_pick(2);
C_adjust_stack(-3);
f_1240(t0,t1,t2);}

C_noret_decl(trf_1274)
static void C_fcall trf_1274(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_1274(void *dummy){
C_word t1=C_pick(0);
C_word t0=C_pick(1);
C_adjust_stack(-2);
f_1274(t0,t1);}

C_noret_decl(trf_1119)
static void C_fcall trf_1119(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_1119(void *dummy){
C_word t1=C_pick(0);
C_word t0=C_pick(1);
C_adjust_stack(-2);
f_1119(t0,t1);}

C_noret_decl(trf_1114)
static void C_fcall trf_1114(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_1114(void *dummy){
C_word t2=C_pick(0);
C_word t1=C_pick(1);
C_word t0=C_pick(2);
C_adjust_stack(-3);
f_1114(t0,t1,t2);}

C_noret_decl(trf_1087)
static void C_fcall trf_1087(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_1087(void *dummy){
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);
f_1087(t0,t1,t2,t3);}

C_noret_decl(trf_1017)
static void C_fcall trf_1017(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_1017(void *dummy){
C_word t1=C_pick(0);
C_word t0=C_pick(1);
C_adjust_stack(-2);
f_1017(t0,t1);}

C_noret_decl(trf_1038)
static void C_fcall trf_1038(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_1038(void *dummy){
C_word t1=C_pick(0);
C_word t0=C_pick(1);
C_adjust_stack(-2);
f_1038(t0,t1);}

C_noret_decl(trf_1000)
static void C_fcall trf_1000(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_1000(void *dummy){
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);
f_1000(t0,t1,t2,t3);}

C_noret_decl(trf_964)
static void C_fcall trf_964(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_964(void *dummy){
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);
f_964(t0,t1,t2,t3,t4);}

C_noret_decl(trf_898)
static void C_fcall trf_898(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_898(void *dummy){
C_word t1=C_pick(0);
C_word t0=C_pick(1);
C_adjust_stack(-2);
f_898(t0,t1);}

C_noret_decl(trf_498)
static void C_fcall trf_498(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_498(void *dummy){
C_word t1=C_pick(0);
C_word t0=C_pick(1);
C_adjust_stack(-2);
f_498(t0,t1);}

C_noret_decl(trf_508)
static void C_fcall trf_508(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_508(void *dummy){
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);
f_508(t0,t1,t2,t3);}

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

C_noret_decl(tr5rv)
static void C_fcall tr5rv(C_proc5 k) C_regparm C_noret;
C_regparm static void C_fcall tr5rv(C_proc5 k){
int n;
C_word *a,t5;
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);
n=C_rest_count(0);
a=C_alloc(n+1);
t5=C_restore_rest_vector(a,n);
(k)(t0,t1,t2,t3,t4,t5);}

C_noret_decl(tr4rv)
static void C_fcall tr4rv(C_proc4 k) C_regparm C_noret;
C_regparm static void C_fcall tr4rv(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+1);
t4=C_restore_rest_vector(a,n);
(k)(t0,t1,t2,t3,t4);}

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

void C_ccall C_regex_toplevel(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 *a;
if(toplevel_initialized) C_kontinue(t1,C_SCHEME_UNDEFINED);
else C_toplevel_entry(C_text("regex_toplevel"));
C_check_nursery_minimum(6);
if(!C_demand(6)){
C_save(t1);
C_reclaim((void*)toplevel_trampoline,NULL);}
toplevel_initialized=1;
if(!C_demand_2(760)){
C_save(t1);
C_rereclaim2(760*sizeof(C_word), 1);
t1=C_restore;}
a=C_alloc(6);
C_initialize_lf(lf,101);
lf[1]=C_decode_literal(C_heaptop,"\376B\000\000\033too many optional arguments");
lf[2]=C_h_intern(&lf[2],23,"\003syscheck-chardef-table");
lf[3]=C_h_intern(&lf[3],9,"\003syserror");
lf[4]=C_decode_literal(C_heaptop,"\376B\000\000-invalid character definition tables structure");
lf[5]=C_h_intern(&lf[5],20,"regex-chardef-table\077");
lf[7]=C_h_intern(&lf[7],8,"caseless");
lf[8]=C_h_intern(&lf[8],9,"multiline");
lf[9]=C_h_intern(&lf[9],6,"dotall");
lf[10]=C_h_intern(&lf[10],8,"extended");
lf[11]=C_h_intern(&lf[11],8,"anchored");
lf[12]=C_h_intern(&lf[12],14,"dollar-endonly");
lf[13]=C_h_intern(&lf[13],5,"extra");
lf[14]=C_h_intern(&lf[14],6,"notbol");
lf[15]=C_h_intern(&lf[15],6,"noteol");
lf[16]=C_h_intern(&lf[16],8,"ungreedy");
lf[17]=C_h_intern(&lf[17],8,"notempty");
lf[18]=C_h_intern(&lf[18],4,"utf8");
lf[19]=C_h_intern(&lf[19],15,"no-auto-capture");
lf[20]=C_h_intern(&lf[20],13,"no-utf8-check");
lf[21]=C_h_intern(&lf[21],12,"auto-callout");
lf[22]=C_h_intern(&lf[22],7,"partial");
lf[23]=C_h_intern(&lf[23],12,"dfa-shortest");
lf[24]=C_h_intern(&lf[24],11,"dfa-restart");
lf[25]=C_h_intern(&lf[25],9,"firstline");
lf[26]=C_h_intern(&lf[26],8,"dupnames");
lf[27]=C_h_intern(&lf[27],10,"newline-cr");
lf[28]=C_h_intern(&lf[28],10,"newline-lf");
lf[29]=C_h_intern(&lf[29],12,"newline-crlf");
lf[30]=C_h_intern(&lf[30],11,"newline-any");
lf[31]=C_h_intern(&lf[31],15,"newline-anycrlf");
lf[32]=C_h_intern(&lf[32],11,"bsr-anycrlf");
lf[33]=C_h_intern(&lf[33],11,"bsr-unicode");
lf[34]=C_h_intern(&lf[34],5,"error");
lf[35]=C_decode_literal(C_heaptop,"\376B\000\000\024not a member of enum");
lf[36]=C_h_intern(&lf[36],11,"pcre-option");
lf[38]=C_h_intern(&lf[38],13,"chardef-table");
lf[39]=C_h_intern(&lf[39],23,"\003sysmake-tagged-pointer");
lf[40]=C_h_intern(&lf[40],19,"regex-chardef-table");
lf[41]=C_h_intern(&lf[41],15,"\003syssignal-hook");
lf[42]=C_h_intern(&lf[42],11,"\000type-error");
lf[43]=C_decode_literal(C_heaptop,"\376B\000\000!bad argument type - not a pointer");
lf[44]=C_h_intern(&lf[44],14,"set-finalizer!");
lf[45]=C_h_intern(&lf[45],14,"\003syserror-hook");
lf[46]=C_h_intern(&lf[46],7,"regexp\077");
lf[47]=C_h_intern(&lf[47],6,"regexp");
lf[48]=C_h_intern(&lf[48],13,"string-append");
lf[50]=C_decode_literal(C_heaptop,"\376B\000\000\003 - ");
lf[51]=C_h_intern(&lf[51],17,"\003syspeek-c-string");
lf[53]=C_decode_literal(C_heaptop,"\376B\000\000!cannot compile regular expression");
lf[54]=C_h_intern(&lf[54],17,"\003sysmake-c-string");
lf[55]=C_h_intern(&lf[55],7,"regexp*");
lf[56]=C_h_intern(&lf[56],15,"regexp-optimize");
lf[57]=C_decode_literal(C_heaptop,"\376B\000\000\042cannot optimize regular expression");
lf[59]=C_h_intern(&lf[59],9,"substring");
lf[61]=C_h_intern(&lf[61],7,"\003sysmap");
lf[63]=C_decode_literal(C_heaptop,"\376B\000\000\077bad argument type - not a string or compiled regular expression");
lf[64]=C_h_intern(&lf[64],19,"\003sysundefined-value");
lf[65]=C_h_intern(&lf[65],12,"string-match");
lf[66]=C_h_intern(&lf[66],22,"string-match-positions");
lf[67]=C_h_intern(&lf[67],21,"make-anchored-pattern");
lf[68]=C_h_intern(&lf[68],13,"string-search");
lf[69]=C_h_intern(&lf[69],23,"string-search-positions");
lf[70]=C_h_intern(&lf[70],7,"reverse");
lf[71]=C_h_intern(&lf[71],19,"string-split-fields");
lf[72]=C_h_intern(&lf[72],6,"\000infix");
lf[73]=C_h_intern(&lf[73],7,"\000suffix");
lf[74]=C_decode_literal(C_heaptop,"\376B\000\000\037record does not end with suffix");
lf[75]=C_decode_literal(C_heaptop,"\376B\000\000\000");
lf[76]=C_h_intern(&lf[76],11,"make-string");
lf[77]=C_h_intern(&lf[77],17,"string-substitute");
lf[78]=C_decode_literal(C_heaptop,"\376B\000\000\030empty substitution match");
lf[79]=C_h_intern(&lf[79],21,"\003sysfragments->string");
lf[80]=C_h_intern(&lf[80],18,"string-substitute*");
lf[81]=C_h_intern(&lf[81],5,"glob\077");
lf[82]=C_h_intern(&lf[82],12,"list->string");
lf[83]=C_h_intern(&lf[83],12,"string->list");
lf[84]=C_h_intern(&lf[84],12,"glob->regexp");
lf[85]=C_decode_literal(C_heaptop,"\376B\000\000!unexpected end of character class");
lf[86]=C_h_intern(&lf[86],15,"\003sysmatch-error");
lf[87]=C_h_intern(&lf[87],4,"grep");
lf[88]=C_h_intern(&lf[88],18,"open-output-string");
lf[89]=C_h_intern(&lf[89],17,"get-output-string");
lf[90]=C_h_intern(&lf[90],13,"regexp-escape");
lf[91]=C_h_intern(&lf[91],16,"\003syswrite-char-0");
lf[92]=C_decode_literal(C_heaptop,"\376B\000\000\000");
lf[93]=C_decode_literal(C_heaptop,"\376B\000\000\001^");
lf[94]=C_decode_literal(C_heaptop,"\376B\000\000\000");
lf[95]=C_decode_literal(C_heaptop,"\376B\000\000\001$");
lf[96]=C_h_intern(&lf[96],7,"warning");
lf[97]=C_decode_literal(C_heaptop,"\376B\000\000<cannot select partial anchor for compiled regular expression");
lf[98]=C_h_intern(&lf[98],17,"register-feature!");
lf[99]=C_h_intern(&lf[99],5,"regex");
lf[100]=C_h_intern(&lf[100],4,"pcre");
C_register_lf2(lf,101,create_ptable());
t2=C_mutate(&lf[0],lf[1]);
t3=C_mutate((C_word*)lf[2]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_483,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp));
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_496,a[2]=t1,tmp=(C_word)a,a+=3,tmp);