regex.c

Scheme跨平台编译器

/* regex.scm: 109  register-feature! */
t5=*((C_word*)lf[98]+1);
((C_proc4)C_retrieve_proc(t5))(4,t5,t4,lf[99],lf[100]);}

/* 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[104],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_496,2,t0,t1);}
t2=C_mutate(&lf[6],(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_498,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp));
t3=C_mutate(&lf[37],(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_870,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp));
t4=C_mutate((C_word*)lf[5]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_880,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp));
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_898,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp);
t6=C_mutate((C_word*)lf[40]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_903,a[2]=t5,a[3]=((C_word)li6),tmp=(C_word)a,a+=4,tmp));
t7=C_mutate((C_word*)lf[46]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_958,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp));
t8=*((C_word*)lf[48]+1);
t9=C_mutate(&lf[49],(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_964,a[2]=t8,a[3]=((C_word)li8),tmp=(C_word)a,a+=4,tmp));
t10=C_mutate(&lf[52],(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1000,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp));
t11=C_mutate((C_word*)lf[47]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1015,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp));
t12=C_mutate((C_word*)lf[55]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1085,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp));
t13=C_mutate((C_word*)lf[56]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1174,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp));
t14=C_mutate(&lf[58],(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1222,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp));
t15=*((C_word*)lf[59]+1);
t16=C_mutate(&lf[60],(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1294,a[2]=t15,a[3]=((C_word)li20),tmp=(C_word)a,a+=4,tmp));
t17=C_mutate(&lf[62],(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1359,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp));
t18=*((C_word*)lf[64]+1);
t19=C_mutate((C_word*)lf[65]+1,t18);
t20=*((C_word*)lf[64]+1);
t21=C_mutate((C_word*)lf[66]+1,t20);
t22=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1417,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp);
t23=C_mutate((C_word*)lf[65]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1460,a[2]=t22,a[3]=((C_word)li23),tmp=(C_word)a,a+=4,tmp));
t24=C_mutate((C_word*)lf[66]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1470,a[2]=t22,a[3]=((C_word)li24),tmp=(C_word)a,a+=4,tmp));
t25=*((C_word*)lf[64]+1);
t26=C_mutate((C_word*)lf[68]+1,t25);
t27=*((C_word*)lf[64]+1);
t28=C_mutate((C_word*)lf[69]+1,t27);
t29=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1488,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp);
t30=C_mutate((C_word*)lf[68]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1534,a[2]=t29,a[3]=((C_word)li26),tmp=(C_word)a,a+=4,tmp));
t31=C_mutate((C_word*)lf[69]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1544,a[2]=t29,a[3]=((C_word)li27),tmp=(C_word)a,a+=4,tmp));
t32=*((C_word*)lf[70]+1);
t33=*((C_word*)lf[59]+1);
t34=*((C_word*)lf[69]+1);
t35=C_mutate((C_word*)lf[71]+1,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1554,a[2]=t32,a[3]=t34,a[4]=t33,a[5]=((C_word)li34),tmp=(C_word)a,a+=6,tmp));
t36=*((C_word*)lf[59]+1);
t37=*((C_word*)lf[70]+1);
t38=*((C_word*)lf[76]+1);
t39=*((C_word*)lf[69]+1);
t40=C_mutate((C_word*)lf[77]+1,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1736,a[2]=t39,a[3]=t37,a[4]=t36,a[5]=((C_word)li39),tmp=(C_word)a,a+=6,tmp));
t41=*((C_word*)lf[77]+1);
t42=C_mutate((C_word*)lf[80]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1979,a[2]=t41,a[3]=((C_word)li41),tmp=(C_word)a,a+=4,tmp));
t43=C_mutate((C_word*)lf[81]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2031,a[2]=((C_word)li43),tmp=(C_word)a,a+=3,tmp));
t44=*((C_word*)lf[82]+1);
t45=*((C_word*)lf[83]+1);
t46=C_mutate((C_word*)lf[84]+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2116,a[2]=t45,a[3]=t44,a[4]=((C_word)li47),tmp=(C_word)a,a+=5,tmp));
t47=*((C_word*)lf[68]+1);
t48=C_mutate((C_word*)lf[87]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2384,a[2]=t47,a[3]=((C_word)li49),tmp=(C_word)a,a+=4,tmp));
t49=*((C_word*)lf[88]+1);
t50=*((C_word*)lf[89]+1);
t51=C_mutate((C_word*)lf[90]+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2424,a[2]=t49,a[3]=t50,a[4]=((C_word)li51),tmp=(C_word)a,a+=5,tmp));
t52=*((C_word*)lf[48]+1);
t53=C_mutate((C_word*)lf[67]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2480,a[2]=t52,a[3]=((C_word)li55),tmp=(C_word)a,a+=4,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_2480(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<3) C_bad_min_argc_2(c,3,t0);
if(!C_demand(c*C_SIZEOF_PAIR+13)){
C_save_and_reclaim((void*)tr3r,(void*)f_2480r,3,t0,t1,t2);}
else{
a=C_alloc((c-3)*3);
t3=C_restore_rest(a,C_rest_count(0));
f_2480r(t0,t1,t2,t3);}}

static void C_ccall f_2480r(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(13);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2482,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li52),tmp=(C_word)a,a+=5,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2527,a[2]=t4,a[3]=((C_word)li53),tmp=(C_word)a,a+=4,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2532,a[2]=t5,a[3]=((C_word)li54),tmp=(C_word)a,a+=4,tmp);
if(C_truep((C_word)C_i_nullp(t3))){
/* def-nos421437 */
t7=t6;
f_2532(t7,t1);}
else{
t7=(C_word)C_i_car(t3);
t8=(C_word)C_i_cdr(t3);
if(C_truep((C_word)C_i_nullp(t8))){
/* def-noe422435 */
t9=t5;
f_2527(t9,t1,t7);}
else{
t9=(C_word)C_i_car(t8);
t10=(C_word)C_i_cdr(t8);
if(C_truep((C_word)C_i_nullp(t10))){
/* body419424 */
t11=t4;
f_2482(t11,t1,t7,t9);}
else{
/* ##sys#error */
t11=*((C_word*)lf[3]+1);
((C_proc4)(void*)(*((C_word*)t11+1)))(4,t11,t1,lf[0],t10);}}}}

/* def-nos421 in make-anchored-pattern in k494 */
static void C_fcall f_2532(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_2532,NULL,2,t0,t1);}
/* def-noe422435 */
t2=((C_word*)t0)[2];
f_2527(t2,t1,C_SCHEME_FALSE);}

/* def-noe422 in make-anchored-pattern in k494 */
static void C_fcall f_2527(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_2527,NULL,3,t0,t1,t2);}
/* body419424 */
t3=((C_word*)t0)[2];
f_2482(t3,t1,t2,C_SCHEME_FALSE);}

/* body419 in make-anchored-pattern in k494 */
static void C_fcall f_2482(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_2482,NULL,4,t0,t1,t2,t3);}
if(C_truep((C_word)C_i_stringp(((C_word*)t0)[3]))){
t4=(C_truep(t2)?lf[92]:lf[93]);
t5=(C_truep(t3)?lf[94]:lf[95]);
/* regex.scm: 647  string-append */
t6=((C_word*)t0)[2];
((C_proc5)C_retrieve_proc(t6))(5,t6,t1,t4,((C_word*)t0)[3],t5);}
else{
t4=(C_word)C_i_check_structure_2(((C_word*)t0)[3],lf[47],lf[67]);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2506,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[96]+1);
((C_proc4)C_retrieve_proc(t8))(4,t8,t5,lf[67],lf[97]);}
else{
t8=t5;
f_2506(2,t8,C_SCHEME_UNDEFINED);}}}

/* k2504 in body419 in make-anchored-pattern in k494 */
static void C_ccall f_2506(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 ab[6],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_2506,2,t0,t1);}
t2=((C_word*)t0)[3];
t3=*((C_word*)lf[47]+1);
t4=(C_word)C_slot(t3,C_fix(3));
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2520,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
/* regex.scm: 655  pcre-option->number */
f_498(t5,lf[11]);}

/* k2518 in k2504 in body419 in make-anchored-pattern in k494 */
static void C_ccall f_2520(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word ab[4],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_2520,2,t0,t1);}
t2=(C_word)C_a_i_bitwise_ior(&a,2,((C_word*)t0)[5],t1);
t3=(C_word)C_i_setslot(((C_word*)t0)[4],C_fix(3),t2);
t4=((C_word*)t0)[3];
((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,((C_word*)t0)[2]);}

/* regexp-escape in k494 */
static void C_ccall f_2424(C_word c,C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word ab[5],*a=ab;
if(c!=3) C_bad_argc_2(c,3,t0);
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr3,(void*)f_2424,3,t0,t1,t2);}
t3=(C_word)C_i_check_string_2(t2,lf[90]);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2431,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* regex.scm: 626  open-output-string */
t5=((C_word*)t0)[2];
((C_proc2)C_retrieve_proc(t5))(2,t5,t4);}

/* k2429 in regexp-escape in k494 */
static void C_ccall f_2431(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 ab[10],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_2431,2,t0,t1);}
t2=(C_word)C_block_size(((C_word*)t0)[4]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2439,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=t2,a[7]=((C_word)li50),tmp=(C_word)a,a+=8,tmp));
t6=((C_word*)t4)[1];
f_2439(t6,((C_word*)t0)[2],C_fix(0));}

/* loop in k2429 in regexp-escape in k494 */
static void C_fcall f_2439(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word ab[12],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)trf_2439,NULL,3,t0,t1,t2);}
if(C_truep((C_word)C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[6]))){
/* regex.scm: 629  get-output-string */
t3=((C_word*)t0)[5];
((C_proc3)C_retrieve_proc(t3))(3,t3,t1,((C_word*)t0)[4]);}
else{
t3=(C_word)C_subchar(((C_word*)t0)[3],t2);
if(C_truep((C_truep((C_word)C_eqp(t3,C_make_character(46)))?C_SCHEME_TRUE:(C_truep((C_word)C_eqp(t3,C_make_character(92)))?C_SCHEME_TRUE:(C_truep((C_word)C_eqp(t3,C_make_character(63)))?C_SCHEME_TRUE:(C_truep((C_word)C_eqp(t3,C_make_character(42)))?C_SCHEME_TRUE:(C_truep((C_word)C_eqp(t3,C_make_character(43)))?C_SCHEME_TRUE:(C_truep((C_word)C_eqp(t3,C_make_character(94)))?C_SCHEME_TRUE:(C_truep((C_word)C_eqp(t3,C_make_character(36)))?C_SCHEME_TRUE:(C_truep((C_word)C_eqp(t3,C_make_character(40)))?C_SCHEME_TRUE:(C_truep((C_word)C_eqp(t3,C_make_character(41)))?C_SCHEME_TRUE:(C_truep((C_word)C_eqp(t3,C_make_character(91)))?C_SCHEME_TRUE:(C_truep((C_word)C_eqp(t3,C_make_character(93)))?C_SCHEME_TRUE:(C_truep((C_word)C_eqp(t3,C_make_character(124)))?C_SCHEME_TRUE:(C_truep((C_word)C_eqp(t3,C_make_character(123)))?C_SCHEME_TRUE:(C_truep((C_word)C_eqp(t3,C_make_character(125)))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))))))))))))){
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2458,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[2],a[6]=t2,tmp=(C_word)a,a+=7,tmp);
/* regex.scm: 632  ##sys#write-char-0 */
t5=*((C_word*)lf[91]+1);
((C_proc4)(void*)(*((C_word*)t5+1)))(4,t5,t4,C_make_character(92),((C_word*)t0)[4]);}
else{
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2471,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* regex.scm: 636  ##sys#write-char-0 */
t5=*((C_word*)lf[91]+1);
((C_proc4)(void*)(*((C_word*)t5+1)))(4,t5,t4,(C_word)C_subchar(((C_word*)t0)[3],t2),((C_word*)t0)[4]);}}}

/* k2469 in loop in k2429 in regexp-escape in k494 */
static void C_ccall f_2471(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
t2=(C_word)C_fixnum_plus(((C_word*)t0)[4],C_fix(1));
/* regex.scm: 637  loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_2439(t3,((C_word*)t0)[2],t2);}

/* k2456 in loop in k2429 in regexp-escape in k494 */
static void C_ccall f_2458(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[5],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_2458,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2461,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
/* regex.scm: 633  ##sys#write-char-0 */