files.c

Scheme跨平台编译器

lf[32]=C_h_intern(&lf[32],12,"string-match");
lf[33]=C_h_intern(&lf[33],6,"regexp");
lf[34]=C_h_intern(&lf[34],20,"\003syswindows-platform");
lf[35]=C_decode_literal(C_heaptop,"\376B\000\000\014([A-Za-z]:)\077");
lf[36]=C_decode_literal(C_heaptop,"\376B\000\000\000");
lf[37]=C_h_intern(&lf[37],18,"absolute-pathname\077");
lf[39]=C_h_intern(&lf[39],13,"\003syssubstring");
lf[40]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\012\000\000/\376\003\000\000\002\376\377\012\000\000\134\376\377\016");
lf[41]=C_h_intern(&lf[41],19,"\003sysundefined-value");
lf[42]=C_h_intern(&lf[42],13,"make-pathname");
lf[43]=C_h_intern(&lf[43],22,"make-absolute-pathname");
lf[44]=C_decode_literal(C_heaptop,"\376B\000\000\001/");
lf[45]=C_decode_literal(C_heaptop,"\376B\000\000\000");
lf[46]=C_decode_literal(C_heaptop,"\376B\000\000\000");
lf[47]=C_decode_literal(C_heaptop,"\376B\000\000\000");
lf[48]=C_decode_literal(C_heaptop,"\376B\000\000\000");
lf[49]=C_decode_literal(C_heaptop,"\376B\000\000\001.");
lf[50]=C_decode_literal(C_heaptop,"\376B\000\000\000");
lf[51]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\012\000\000\134\376\003\000\000\002\376\377\012\000\000/\376\377\016");
lf[52]=C_h_intern(&lf[52],17,"\003sysstring-append");
lf[53]=C_decode_literal(C_heaptop,"\376B\000\000\001/");
lf[54]=C_decode_literal(C_heaptop,"\376B\000\000\001\134");
lf[55]=C_h_intern(&lf[55],18,"decompose-pathname");
lf[56]=C_h_intern(&lf[56],18,"pathname-directory");
lf[57]=C_h_intern(&lf[57],13,"pathname-file");
lf[58]=C_h_intern(&lf[58],18,"pathname-extension");
lf[59]=C_h_intern(&lf[59],24,"pathname-strip-directory");
lf[60]=C_h_intern(&lf[60],24,"pathname-strip-extension");
lf[61]=C_h_intern(&lf[61],26,"pathname-replace-directory");
lf[62]=C_h_intern(&lf[62],21,"pathname-replace-file");
lf[63]=C_h_intern(&lf[63],26,"pathname-replace-extension");
lf[64]=C_h_intern(&lf[64],6,"getenv");
lf[65]=C_h_intern(&lf[65],21,"call-with-output-file");
lf[66]=C_h_intern(&lf[66],21,"create-temporary-file");
lf[67]=C_decode_literal(C_heaptop,"\376B\000\000\003tmp");
lf[68]=C_decode_literal(C_heaptop,"\376B\000\000\001t");
lf[69]=C_decode_literal(C_heaptop,"\376B\000\000\003TMP");
lf[70]=C_decode_literal(C_heaptop,"\376B\000\000\004TEMP");
lf[71]=C_decode_literal(C_heaptop,"\376B\000\000\006TMPDIR");
lf[72]=C_h_intern(&lf[72],15,"directory-null\077");
lf[73]=C_decode_literal(C_heaptop,"\376B\000\000\000");
lf[74]=C_decode_literal(C_heaptop,"\376B\000\000\001.");
lf[75]=C_h_intern(&lf[75],12,"string-split");
lf[76]=C_decode_literal(C_heaptop,"\376B\000\000\002/\134");
lf[77]=C_decode_literal(C_heaptop,"\376B\000\000\034^(.*[\134/\134\134])\077((\134.)\077[^\134/\134\134]+)$");
lf[78]=C_decode_literal(C_heaptop,"\376B\000\000&^(.*[\134/\134\134])\077([^\134/\134\134]+)(\134.([^\134/\134\134.]+))$");
lf[79]=C_h_intern(&lf[79],21,"make-anchored-pattern");
lf[80]=C_decode_literal(C_heaptop,"\376B\000\000\010[\134/\134\134].*");
lf[81]=C_h_intern(&lf[81],17,"register-feature!");
lf[82]=C_h_intern(&lf[82],5,"files");
C_register_lf2(lf,83,create_ptable());
t2=C_mutate(&lf[0],lf[1]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_412,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_regex_toplevel(2,C_SCHEME_UNDEFINED,t3);}

/* k410 */
static void C_ccall f_412(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[3],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_412,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_415,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* files.scm: 78   register-feature! */
t3=*((C_word*)lf[81]+1);
((C_proc3)C_retrieve_proc(t3))(3,t3,t2,lf[82]);}

/* k413 in k410 */
static void C_ccall f_415(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 ab[19],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_415,2,t0,t1);}
t2=*((C_word*)lf[2]+1);
t3=*((C_word*)lf[3]+1);
t4=C_mutate((C_word*)lf[4]+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_417,a[2]=t2,a[3]=t3,a[4]=((C_word)li0),tmp=(C_word)a,a+=5,tmp));
t5=C_mutate((C_word*)lf[5]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_432,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp));
t6=C_mutate((C_word*)lf[24]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_779,a[2]=((C_word)li59),tmp=(C_word)a,a+=3,tmp));
t7=*((C_word*)lf[32]+1);
t8=*((C_word*)lf[33]+1);
t9=*((C_word*)lf[11]+1);
t10=(C_truep(*((C_word*)lf[34]+1))?lf[35]:lf[36]);
t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1192,a[2]=t8,a[3]=((C_word*)t0)[2],a[4]=t7,tmp=(C_word)a,a+=5,tmp);
t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1952,a[2]=t11,tmp=(C_word)a,a+=3,tmp);
/* files.scm: 188  string-append */
t13=t9;
((C_proc4)C_retrieve_proc(t13))(4,t13,t12,t10,lf[80]);}

/* k1950 in k413 in k410 */
static void C_ccall f_1952(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
/* files.scm: 188  make-anchored-pattern */
t2=*((C_word*)lf[79]+1);
((C_proc3)C_retrieve_proc(t2))(3,t2,((C_word*)t0)[2],t1);}

/* k1190 in k413 in k410 */
static void C_ccall f_1192(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[4],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_1192,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1195,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* files.scm: 189  regexp */
t3=((C_word*)t0)[2];
((C_proc3)C_retrieve_proc(t3))(3,t3,t2,t1);}

/* k1193 in k1190 in k413 in k410 */
static void C_ccall f_1195(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 ab[38],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_1195,2,t0,t1);}
t2=C_mutate((C_word*)lf[37]+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1196,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word)li60),tmp=(C_word)a,a+=5,tmp));
t3=C_mutate(&lf[38],(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1209,a[2]=((C_word)li61),tmp=(C_word)a,a+=3,tmp));
t4=*((C_word*)lf[41]+1);
t5=C_mutate((C_word*)lf[42]+1,t4);
t6=*((C_word*)lf[41]+1);
t7=C_mutate((C_word*)lf[43]+1,t6);
t8=*((C_word*)lf[11]+1);
t9=*((C_word*)lf[37]+1);
t10=lf[44];
t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1263,a[2]=t8,a[3]=t10,a[4]=((C_word)li63),tmp=(C_word)a,a+=5,tmp);
t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1324,a[2]=t11,a[3]=((C_word)li64),tmp=(C_word)a,a+=4,tmp);
t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1355,a[2]=t8,a[3]=((C_word)li65),tmp=(C_word)a,a+=4,tmp);
t14=C_mutate((C_word*)lf[42]+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1436,a[2]=t12,a[3]=t13,a[4]=((C_word)li69),tmp=(C_word)a,a+=5,tmp));
t15=C_mutate((C_word*)lf[43]+1,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1500,a[2]=t12,a[3]=t9,a[4]=t10,a[5]=t13,a[6]=((C_word)li73),tmp=(C_word)a,a+=7,tmp));
t16=*((C_word*)lf[32]+1);
t17=*((C_word*)lf[33]+1);
t18=*((C_word*)lf[11]+1);
t19=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1579,a[2]=t17,a[3]=((C_word*)t0)[2],a[4]=t16,tmp=(C_word)a,a+=5,tmp);
/* files.scm: 272  regexp */
t20=t17;
((C_proc3)C_retrieve_proc(t20))(3,t20,t19,lf[78]);}

/* k1577 in k1193 in k1190 in k413 in k410 */
static void C_ccall f_1579(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_1579,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1582,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* files.scm: 273  regexp */
t3=((C_word*)t0)[2];
((C_proc3)C_retrieve_proc(t3))(3,t3,t2,lf[77]);}

/* k1580 in k1577 in k1193 in k1190 in k413 in k410 */
static void C_ccall f_1582(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 ab[52],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_1582,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1583,a[2]=((C_word)li74),tmp=(C_word)a,a+=3,tmp);
t3=C_mutate((C_word*)lf[55]+1,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1597,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word)li75),tmp=(C_word)a,a+=7,tmp));
t4=*((C_word*)lf[41]+1);
t5=C_mutate((C_word*)lf[56]+1,t4);
t6=*((C_word*)lf[41]+1);
t7=C_mutate((C_word*)lf[57]+1,t6);
t8=*((C_word*)lf[41]+1);
t9=C_mutate((C_word*)lf[58]+1,t8);
t10=*((C_word*)lf[41]+1);
t11=C_mutate((C_word*)lf[59]+1,t10);
t12=*((C_word*)lf[41]+1);
t13=C_mutate((C_word*)lf[60]+1,t12);
t14=*((C_word*)lf[41]+1);
t15=C_mutate((C_word*)lf[61]+1,t14);
t16=*((C_word*)lf[41]+1);
t17=C_mutate((C_word*)lf[62]+1,t16);
t18=*((C_word*)lf[41]+1);
t19=C_mutate((C_word*)lf[63]+1,t18);
t20=*((C_word*)lf[55]+1);
t21=C_mutate((C_word*)lf[56]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1705,a[2]=t20,a[3]=((C_word)li78),tmp=(C_word)a,a+=4,tmp));
t22=C_mutate((C_word*)lf[57]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1720,a[2]=t20,a[3]=((C_word)li81),tmp=(C_word)a,a+=4,tmp));
t23=C_mutate((C_word*)lf[58]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1735,a[2]=t20,a[3]=((C_word)li84),tmp=(C_word)a,a+=4,tmp));
t24=C_mutate((C_word*)lf[59]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1750,a[2]=t20,a[3]=((C_word)li87),tmp=(C_word)a,a+=4,tmp));
t25=C_mutate((C_word*)lf[60]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1768,a[2]=t20,a[3]=((C_word)li90),tmp=(C_word)a,a+=4,tmp));
t26=C_mutate((C_word*)lf[61]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1786,a[2]=t20,a[3]=((C_word)li93),tmp=(C_word)a,a+=4,tmp));
t27=C_mutate((C_word*)lf[62]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1804,a[2]=t20,a[3]=((C_word)li96),tmp=(C_word)a,a+=4,tmp));
t28=C_mutate((C_word*)lf[63]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1822,a[2]=t20,a[3]=((C_word)li99),tmp=(C_word)a,a+=4,tmp));
t29=*((C_word*)lf[64]+1);
t30=*((C_word*)lf[42]+1);
t31=*((C_word*)lf[2]+1);
t32=*((C_word*)lf[65]+1);
t33=C_mutate((C_word*)lf[66]+1,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1840,a[2]=t29,a[3]=t30,a[4]=t31,a[5]=t32,a[6]=((C_word)li102),tmp=(C_word)a,a+=7,tmp));
t34=C_mutate((C_word*)lf[72]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1905,a[2]=((C_word)li104),tmp=(C_word)a,a+=3,tmp));
t35=((C_word*)t0)[2];
((C_proc2)(void*)(*((C_word*)t35+1)))(2,t35,C_SCHEME_UNDEFINED);}

/* directory-null? in k1580 in k1577 in k1193 in k1190 in k413 in k410 */
static void C_ccall f_1905(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[3],*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_1905,3,t0,t1,t2);}
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1913,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
if(C_truep((C_word)C_i_listp(t2))){
t4=t3;
f_1913(2,t4,t2);}
else{
t4=(C_word)C_i_check_string_2(t2,lf[72]);
/* files.scm: 367  string-split */
t5=*((C_word*)lf[75]+1);
((C_proc5)C_retrieve_proc(t5))(5,t5,t3,t2,lf[76],C_SCHEME_TRUE);}}

/* k1911 in directory-null? in k1580 in k1577 in k1193 in k1190 in k413 in k410 */
static void C_ccall f_1913(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[3],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_1913,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1915,a[2]=((C_word)li103),tmp=(C_word)a,a+=3,tmp);
t3=((C_word*)t0)[2];
((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,f_1915(t1));}

/* loop in k1911 in directory-null? in k1580 in k1577 in k1193 in k1190 in k413 in k410 */
static C_word C_fcall f_1915(C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
loop:
C_stack_check;