uports.c

Scheme跨平台编译器

f_319(t5,t1);}

/* loop in a312 in make-concatenated-port in k195 */
static void C_fcall f_319(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word ab[5],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)trf_319,NULL,2,t0,t1);}
if(C_truep((C_word)C_i_nullp(((C_word*)((C_word*)t0)[3])[1]))){
t2=t1;
((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,C_SCHEME_END_OF_FILE);}
else{
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_329,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=(C_word)C_u_i_car(((C_word*)((C_word*)t0)[3])[1]);
/* read-char/port */
t4=*((C_word*)lf[13]+1);
((C_proc3)(void*)(*((C_word*)t4+1)))(3,t4,t2,t3);}}

/* k327 in loop in a312 in make-concatenated-port in k195 */
static void C_ccall f_329(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(C_truep((C_word)C_eofp(t1))){
t2=(C_word)C_slot(((C_word*)((C_word*)t0)[4])[1],C_fix(1));
t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,t2);
/* ports.scm: 138  loop */
t4=((C_word*)((C_word*)t0)[3])[1];
f_319(t4,((C_word*)t0)[2]);}
else{
t2=((C_word*)t0)[2];
((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,t1);}}

/* make-broadcast-port in k195 */
static void C_ccall f_280(C_word c,C_word t0,C_word t1,...){
C_word tmp;
C_word t2;
va_list v;
C_word *a,c2=c;
C_save_rest(t1,c2,2);
C_check_for_interrupt;
if(!C_demand(c*C_SIZEOF_PAIR+6)){
C_save_and_reclaim((void*)tr2r,(void*)f_280r,2,t0,t1);}
else{
a=C_alloc((c-2)*3);
t2=C_restore_rest(a,C_rest_count(0));
f_280r(t0,t1,t2);}}

static void C_ccall f_280r(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a=C_alloc(6);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_286,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_298,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* ports.scm: 123  make-output-port */
t5=*((C_word*)lf[10]+1);
((C_proc5)(void*)(*((C_word*)t5+1)))(5,t5,t1,t3,*((C_word*)lf[11]+1),t4);}

/* a297 in make-broadcast-port in k195 */
static void C_ccall f_298(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_298,2,t0,t1);}
/* for-each */
t2=*((C_word*)lf[8]+1);
((C_proc4)(void*)(*((C_word*)t2+1)))(4,t2,t1,*((C_word*)lf[9]+1),((C_word*)t0)[2]);}

/* a285 in make-broadcast-port in k195 */
static void C_ccall f_286(C_word c,C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word ab[3],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr3,(void*)f_286,3,t0,t1,t2);}
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_292,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* for-each */
t4=*((C_word*)lf[8]+1);
((C_proc4)(void*)(*((C_word*)t4+1)))(4,t4,t1,t3,((C_word*)t0)[2]);}

/* a291 in a285 in make-broadcast-port in k195 */
static void C_ccall f_292(C_word c,C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr3,(void*)f_292,3,t0,t1,t2);}
/* write-string */
t3=*((C_word*)lf[7]+1);
((C_proc5)(void*)(*((C_word*)t3+1)))(5,t3,t1,((C_word*)t0)[2],C_SCHEME_FALSE,t2);}

/* port-fold in k195 */
static void C_ccall f_255(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word ab[7],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr5,(void*)f_255,5,t0,t1,t2,t3,t4);}
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_261,a[2]=t4,a[3]=t2,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t8=((C_word*)t6)[1];
f_261(t8,t1,t3);}

/* loop in port-fold in k195 */
static void C_fcall f_261(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word ab[6],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)trf_261,NULL,3,t0,t1,t2);}
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_265,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
/* ports.scm: 115  thunk */
t4=((C_word*)t0)[2];
((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,t3);}

/* k263 in loop in port-fold in k195 */
static void C_ccall f_265(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;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_265,2,t0,t1);}
t2=(C_word)C_eqp(t1,C_SCHEME_END_OF_FILE);
if(C_truep(t2)){
t3=((C_word*)t0)[5];
((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,((C_word*)t0)[4]);}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_278,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* ports.scm: 118  fn */
t4=((C_word*)t0)[2];
((C_proc4)(void*)(*((C_word*)t4+1)))(4,t4,t3,t1,((C_word*)t0)[4]);}}

/* k276 in k263 in loop in port-fold in k195 */
static void C_ccall f_278(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
/* ports.scm: 118  loop */
t2=((C_word*)((C_word*)t0)[3])[1];
f_261(t2,((C_word*)t0)[2],t1);}

/* port-map in k195 */
static void C_ccall f_223(C_word c,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 ab[8],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr4,(void*)f_223,4,t0,t1,t2,t3);}
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_229,a[2]=t3,a[3]=t2,a[4]=t5,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp));
t7=((C_word*)t5)[1];
f_229(t7,t1,C_SCHEME_END_OF_LIST);}

/* loop in port-map in k195 */
static void C_fcall f_229(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word ab[7],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)trf_229,NULL,3,t0,t1,t2);}
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_233,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=t1,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* ports.scm: 108  thunk */
t4=((C_word*)t0)[2];
((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,t3);}

/* k231 in loop in port-map in k195 */
static void C_ccall f_233(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word ab[5],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_233,2,t0,t1);}
t2=(C_word)C_eqp(t1,C_SCHEME_END_OF_FILE);
if(C_truep(t2)){
/* ports.scm: 110  reverse */
t3=((C_word*)t0)[6];
((C_proc3)(void*)(*((C_word*)t3+1)))(3,t3,((C_word*)t0)[5],((C_word*)t0)[4]);}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_253,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* ports.scm: 111  fn */
t4=((C_word*)t0)[2];
((C_proc3)(void*)(*((C_word*)t4+1)))(3,t4,t3,t1);}}

/* k251 in k231 in loop in port-map in k195 */
static void C_ccall f_253(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[3],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_253,2,t0,t1);}
t2=(C_word)C_a_i_cons(&a,2,t1,((C_word*)t0)[4]);
/* ports.scm: 111  loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_229(t3,((C_word*)t0)[2],t2);}

/* port-for-each in k195 */
static void C_ccall f_199(C_word c,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 ab[7],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr4,(void*)f_199,4,t0,t1,t2,t3);}
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_205,a[2]=t3,a[3]=t2,a[4]=t5,tmp=(C_word)a,a+=5,tmp));
t7=((C_word*)t5)[1];
f_205(t7,t1);}

/* loop in port-for-each in k195 */
static void C_fcall f_205(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[5],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)trf_205,NULL,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_209,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* ports.scm: 99   thunk */
t3=((C_word*)t0)[2];
((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,t2);}

/* k207 in loop in port-for-each in k195 */
static void C_ccall f_209(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;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_209,2,t0,t1);}
t2=(C_word)C_eqp(t1,C_SCHEME_END_OF_FILE);
if(C_truep(t2)){
t3=((C_word*)t0)[4];
((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,C_SCHEME_UNDEFINED);}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_218,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* ports.scm: 101  fn */
t4=((C_word*)t0)[2];
((C_proc3)(void*)(*((C_word*)t4+1)))(3,t4,t3,t1);}}

/* k216 in k207 in loop in port-for-each in k195 */
static void C_ccall f_218(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
/* ports.scm: 102  loop */
t2=((C_word*)((C_word*)t0)[3])[1];
f_205(t2,((C_word*)t0)[2]);}

#ifdef C_ENABLE_PTABLES
static C_PTABLE_ENTRY ptable[82] = {
{"toplevelports.scm",(void*)C_ports_toplevel},
{"f_197ports.scm",(void*)f_197},
{"f_778ports.scm",(void*)f_778},
{"f_791ports.scm",(void*)f_791},
{"f_821ports.scm",(void*)f_821},
{"f_812ports.scm",(void*)f_812},
{"f_816ports.scm",(void*)f_816},
{"f_806ports.scm",(void*)f_806},
{"f_796ports.scm",(void*)f_796},
{"f_804ports.scm",(void*)f_804},
{"f_635ports.scm",(void*)f_635},
{"f_718ports.scm",(void*)f_718},
{"f_713ports.scm",(void*)f_713},
{"f_708ports.scm",(void*)f_708},
{"f_637ports.scm",(void*)f_637},
{"f_647ports.scm",(void*)f_647},
{"f_703ports.scm",(void*)f_703},
{"f_694ports.scm",(void*)f_694},
{"f_698ports.scm",(void*)f_698},
{"f_673ports.scm",(void*)f_673},
{"f_689ports.scm",(void*)f_689},
{"f_652ports.scm",(void*)f_652},
{"f_601ports.scm",(void*)f_601},
{"f_605ports.scm",(void*)f_605},
{"f_627ports.scm",(void*)f_627},
{"f_618ports.scm",(void*)f_618},
{"f_622ports.scm",(void*)f_622},
{"f_610ports.scm",(void*)f_610},
{"f_570ports.scm",(void*)f_570},
{"f_574ports.scm",(void*)f_574},
{"f_593ports.scm",(void*)f_593},
{"f_587ports.scm",(void*)f_587},
{"f_579ports.scm",(void*)f_579},
{"f_558ports.scm",(void*)f_558},
{"f_562ports.scm",(void*)f_562},
{"f_565ports.scm",(void*)f_565},
{"f_549ports.scm",(void*)f_549},
{"f_553ports.scm",(void*)f_553},
{"f_518ports.scm",(void*)f_518},
{"f_522ports.scm",(void*)f_522},
{"f_541ports.scm",(void*)f_541},
{"f_535ports.scm",(void*)f_535},
{"f_527ports.scm",(void*)f_527},
{"f_487ports.scm",(void*)f_487},
{"f_491ports.scm",(void*)f_491},
{"f_510ports.scm",(void*)f_510},
{"f_504ports.scm",(void*)f_504},
{"f_496ports.scm",(void*)f_496},
{"f_456ports.scm",(void*)f_456},
{"f_460ports.scm",(void*)f_460},
{"f_479ports.scm",(void*)f_479},
{"f_473ports.scm",(void*)f_473},
{"f_465ports.scm",(void*)f_465},
{"f_304ports.scm",(void*)f_304},
{"f_403ports.scm",(void*)f_403},
{"f_409ports.scm",(void*)f_409},
{"f_425ports.scm",(void*)f_425},
{"f_428ports.scm",(void*)f_428},
{"f_368ports.scm",(void*)f_368},
{"f_374ports.scm",(void*)f_374},
{"f_384ports.scm",(void*)f_384},
{"f_348ports.scm",(void*)f_348},
{"f_313ports.scm",(void*)f_313},
{"f_319ports.scm",(void*)f_319},
{"f_329ports.scm",(void*)f_329},
{"f_280ports.scm",(void*)f_280},
{"f_298ports.scm",(void*)f_298},
{"f_286ports.scm",(void*)f_286},
{"f_292ports.scm",(void*)f_292},
{"f_255ports.scm",(void*)f_255},
{"f_261ports.scm",(void*)f_261},
{"f_265ports.scm",(void*)f_265},
{"f_278ports.scm",(void*)f_278},
{"f_223ports.scm",(void*)f_223},
{"f_229ports.scm",(void*)f_229},
{"f_233ports.scm",(void*)f_233},
{"f_253ports.scm",(void*)f_253},
{"f_199ports.scm",(void*)f_199},
{"f_205ports.scm",(void*)f_205},
{"f_209ports.scm",(void*)f_209},
{"f_218ports.scm",(void*)f_218},
{NULL,NULL}};
#endif

static C_PTABLE_ENTRY *create_ptable(void){
#ifdef C_ENABLE_PTABLES
return ptable;
#else
return NULL;
#endif
}
/* end of file */