uregex.c

Scheme跨平台编译器

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

/* k494 */
static void C_ccall f_496(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 ab[76],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_496,2,t0,t1);}
t2=C_mutate(&lf[4],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_498,tmp=(C_word)a,a+=2,tmp));
t3=C_mutate(&lf[35],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_870,tmp=(C_word)a,a+=2,tmp));
t4=C_mutate((C_word*)lf[3]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_880,tmp=(C_word)a,a+=2,tmp));
t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_898,tmp=(C_word)a,a+=2,tmp);
t6=C_mutate((C_word*)lf[38]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_903,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=C_mutate((C_word*)lf[44]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_951,tmp=(C_word)a,a+=2,tmp));
t8=*((C_word*)lf[46]+1);
t9=C_mutate(&lf[47],(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_957,a[2]=t8,tmp=(C_word)a,a+=3,tmp));
t10=C_mutate(&lf[50],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_985,tmp=(C_word)a,a+=2,tmp));
t11=C_mutate((C_word*)lf[45]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1000,tmp=(C_word)a,a+=2,tmp));
t12=C_mutate((C_word*)lf[53]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1070,tmp=(C_word)a,a+=2,tmp));
t13=C_mutate((C_word*)lf[54]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1156,tmp=(C_word)a,a+=2,tmp));
t14=C_mutate(&lf[56],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1196,tmp=(C_word)a,a+=2,tmp));
t15=*((C_word*)lf[57]+1);
t16=C_mutate(&lf[58],(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1268,a[2]=t15,tmp=(C_word)a,a+=3,tmp));
t17=C_mutate(&lf[60],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1317,tmp=(C_word)a,a+=2,tmp));
t18=*((C_word*)lf[62]+1);
t19=C_mutate((C_word*)lf[63]+1,t18);
t20=*((C_word*)lf[62]+1);
t21=C_mutate((C_word*)lf[64]+1,t20);
t22=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1375,tmp=(C_word)a,a+=2,tmp);
t23=C_mutate((C_word*)lf[63]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1418,a[2]=t22,tmp=(C_word)a,a+=3,tmp));
t24=C_mutate((C_word*)lf[64]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1428,a[2]=t22,tmp=(C_word)a,a+=3,tmp));
t25=*((C_word*)lf[62]+1);
t26=C_mutate((C_word*)lf[66]+1,t25);
t27=*((C_word*)lf[62]+1);
t28=C_mutate((C_word*)lf[67]+1,t27);
t29=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1446,tmp=(C_word)a,a+=2,tmp);
t30=C_mutate((C_word*)lf[66]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1492,a[2]=t29,tmp=(C_word)a,a+=3,tmp));
t31=C_mutate((C_word*)lf[67]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1502,a[2]=t29,tmp=(C_word)a,a+=3,tmp));
t32=*((C_word*)lf[68]+1);
t33=*((C_word*)lf[57]+1);
t34=*((C_word*)lf[67]+1);
t35=C_mutate((C_word*)lf[69]+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1512,a[2]=t32,a[3]=t34,a[4]=t33,tmp=(C_word)a,a+=5,tmp));
t36=*((C_word*)lf[57]+1);
t37=*((C_word*)lf[68]+1);
t38=*((C_word*)lf[74]+1);
t39=*((C_word*)lf[67]+1);
t40=C_mutate((C_word*)lf[75]+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1694,a[2]=t39,a[3]=t37,a[4]=t36,tmp=(C_word)a,a+=5,tmp));
t41=*((C_word*)lf[75]+1);
t42=C_mutate((C_word*)lf[78]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1937,a[2]=t41,tmp=(C_word)a,a+=3,tmp));
t43=C_mutate((C_word*)lf[79]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1989,tmp=(C_word)a,a+=2,tmp));
t44=*((C_word*)lf[80]+1);
t45=*((C_word*)lf[81]+1);
t46=C_mutate((C_word*)lf[82]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2074,a[2]=t45,a[3]=t44,tmp=(C_word)a,a+=4,tmp));
t47=*((C_word*)lf[66]+1);
t48=C_mutate((C_word*)lf[85]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2342,a[2]=t47,tmp=(C_word)a,a+=3,tmp));
t49=*((C_word*)lf[86]+1);
t50=*((C_word*)lf[87]+1);
t51=C_mutate((C_word*)lf[88]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2382,a[2]=t49,a[3]=t50,tmp=(C_word)a,a+=4,tmp));
t52=*((C_word*)lf[46]+1);
t53=C_mutate((C_word*)lf[65]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2438,a[2]=t52,tmp=(C_word)a,a+=3,tmp));
t54=((C_word*)t0)[2];
((C_proc2)(void*)(*((C_word*)t54+1)))(2,t54,C_SCHEME_UNDEFINED);}

/* make-anchored-pattern in k494 */
static void C_ccall f_2438(C_word c,C_word t0,C_word t1,C_word t2,...){
C_word tmp;
C_word t3;
va_list v;
C_word *a,c2=c;
C_save_rest(t2,c2,3);
if(!C_demand(c*C_SIZEOF_PAIR+10)){
C_save_and_reclaim((void*)tr3r,(void*)f_2438r,3,t0,t1,t2);}
else{
a=C_alloc((c-3)*3);
t3=C_restore_rest(a,C_rest_count(0));
f_2438r(t0,t1,t2,t3);}}

static void C_ccall f_2438r(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
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 *a=C_alloc(10);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2440,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2485,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2490,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
if(C_truep((C_word)C_i_nullp(t3))){
/* def-nos421437 */
t7=t6;
f_2490(t7,t1);}
else{
t7=(C_word)C_u_i_car(t3);
t8=(C_word)C_slot(t3,C_fix(1));
if(C_truep((C_word)C_i_nullp(t8))){
/* def-noe422435 */
t9=t5;
f_2485(t9,t1,t7);}
else{
t9=(C_word)C_u_i_car(t8);
t10=(C_word)C_slot(t8,C_fix(1));
/* body419424 */
t11=t4;
f_2440(t11,t1,t7,t9);}}}

/* def-nos421 in make-anchored-pattern in k494 */
static void C_fcall f_2490(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)trf_2490,NULL,2,t0,t1);}
/* def-noe422435 */
t2=((C_word*)t0)[2];
f_2485(t2,t1,C_SCHEME_FALSE);}

/* def-noe422 in make-anchored-pattern in k494 */
static void C_fcall f_2485(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)trf_2485,NULL,3,t0,t1,t2);}
/* body419424 */
t3=((C_word*)t0)[2];
f_2440(t3,t1,t2,C_SCHEME_FALSE);}

/* body419 in make-anchored-pattern in k494 */
static void C_fcall f_2440(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word ab[4],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)trf_2440,NULL,4,t0,t1,t2,t3);}
if(C_truep((C_word)C_i_stringp(((C_word*)t0)[3]))){
t4=(C_truep(t2)?lf[90]:lf[91]);
t5=(C_truep(t3)?lf[92]:lf[93]);
/* regex.scm: 647  string-append */
t6=((C_word*)t0)[2];
((C_proc5)(void*)(*((C_word*)t6+1)))(5,t6,t1,t4,((C_word*)t0)[3],t5);}
else{
t4=(C_word)C_i_check_structure_2(((C_word*)t0)[3],lf[45],lf[65]);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2464,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t6=t2;
t7=(C_truep(t6)?t6:t3);
if(C_truep(t7)){
/* regex.scm: 651  warning */
t8=*((C_word*)lf[94]+1);
((C_proc4)(void*)(*((C_word*)t8+1)))(4,t8,t5,lf[65],lf[95]);}
else{