Ejemplo n.º 1
0
void C_ccall C_toplevel(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(toplevel_initialized) C_kontinue(t1,C_SCHEME_UNDEFINED);
else C_toplevel_entry(C_text("toplevel"));
C_resize_stack(131072);
C_check_nursery_minimum(3);
if(!C_demand(3)){
C_save(t1);
C_reclaim((void*)toplevel_trampoline,NULL);}
toplevel_initialized=1;
if(!C_demand_2(280)){
C_save(t1);
C_rereclaim2(280*sizeof(C_word), 1);
t1=C_restore;}
a=C_alloc(3);
C_initialize_lf(lf,3);
lf[0]=C_h_intern(&lf[0],29,"\003sysregister-primitive-module");
lf[1]=C_h_intern(&lf[1],5,"files");
lf[2]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\014delete-file*\376\003\000\000\002\376\001\000\000\011file-copy\376\003\000\000\002\376\001\000\000\011file-move\376\003\000\000\002\376\001\000\000\015make-pathn"
"ame\376\003\000\000\002\376\001\000\000\017directory-null\077\376\003\000\000\002\376\001\000\000\026make-absolute-pathname\376\003\000\000\002\376\001\000\000\032create-tem"
"porary-directory\376\003\000\000\002\376\001\000\000\025create-temporary-file\376\003\000\000\002\376\001\000\000\023decompose-directory\376\003\000\000"
"\002\376\001\000\000\022decompose-pathname\376\003\000\000\002\376\001\000\000\022absolute-pathname\077\376\003\000\000\002\376\001\000\000\022pathname-directory"
"\376\003\000\000\002\376\001\000\000\022pathname-extension\376\003\000\000\002\376\001\000\000\015pathname-file\376\003\000\000\002\376\001\000\000\032pathname-replace-di"
"rectory\376\003\000\000\002\376\001\000\000\032pathname-replace-extension\376\003\000\000\002\376\001\000\000\025pathname-replace-file\376\003\000\000\002\376"
"\001\000\000\030pathname-strip-directory\376\003\000\000\002\376\001\000\000\030pathname-strip-extension\376\003\000\000\002\376\001\000\000\022normaliz"
"e-pathname\376\377\016");
C_register_lf2(lf,3,create_ptable());
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_library_toplevel(2,C_SCHEME_UNDEFINED,t2);}
Ejemplo n.º 2
0
void C_ccall C_toplevel(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(toplevel_initialized) C_kontinue(t1,C_SCHEME_UNDEFINED);
else C_toplevel_entry(C_text("toplevel"));
C_resize_stack(131072);
C_check_nursery_minimum(3);
if(!C_demand(3)){
C_save(t1);
C_reclaim((void*)toplevel_trampoline,NULL);}
toplevel_initialized=1;
if(!C_demand_2(228)){
C_save(t1);
C_rereclaim2(228*sizeof(C_word), 1);
t1=C_restore;}
a=C_alloc(3);
C_initialize_lf(lf,3);
lf[0]=C_h_intern(&lf[0],29,"\003sysregister-primitive-module");
lf[1]=C_h_intern(&lf[1],3,"tcp");
lf[2]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\020tcp-abandon-port\376\003\000\000\002\376\001\000\000\012tcp-accept\376\003\000\000\002\376\001\000\000\021tcp-accept-ready\077\376\003\000\000\002\376\001"
"\000\000\022tcp-accept-timeout\376\003\000\000\002\376\001\000\000\015tcp-addresses\376\003\000\000\002\376\001\000\000\017tcp-buffer-size\376\003\000\000\002\376\001\000\000\011t"
"cp-close\376\003\000\000\002\376\001\000\000\013tcp-connect\376\003\000\000\002\376\001\000\000\023tcp-connect-timeout\376\003\000\000\002\376\001\000\000\012tcp-listen\376\003"
"\000\000\002\376\001\000\000\023tcp-listener-fileno\376\003\000\000\002\376\001\000\000\021tcp-listener-port\376\003\000\000\002\376\001\000\000\015tcp-listener\077\376\003\000"
"\000\002\376\001\000\000\020tcp-port-numbers\376\003\000\000\002\376\001\000\000\020tcp-read-timeout\376\003\000\000\002\376\001\000\000\021tcp-write-timeout\376\377\016");
C_register_lf2(lf,3,create_ptable());
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_library_toplevel(2,C_SCHEME_UNDEFINED,t2);}
Ejemplo n.º 3
0
void C_ccall C_toplevel(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(toplevel_initialized) C_kontinue(t1,C_SCHEME_UNDEFINED);
else C_toplevel_entry(C_text("toplevel"));
C_resize_stack(131072);
C_check_nursery_minimum(3);
if(!C_demand(3)){
C_save(t1);
C_reclaim((void*)toplevel_trampoline,NULL);}
toplevel_initialized=1;
if(!C_demand_2(30)){
C_save(t1);
C_rereclaim2(30*sizeof(C_word), 1);
t1=C_restore;}
a=C_alloc(3);
C_initialize_lf(lf,3);
lf[0]=C_h_intern(&lf[0],29,"\003sysregister-primitive-module");
lf[1]=C_h_intern(&lf[1],7,"foreign");
lf[2]=C_h_intern(&lf[2],33,"\003syschicken-ffi-macro-environment");
C_register_lf2(lf,3,create_ptable());
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_library_toplevel(2,C_SCHEME_UNDEFINED,t2);}
Ejemplo n.º 4
0
void C_ccall C_toplevel(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(toplevel_initialized) C_kontinue(t1,C_SCHEME_UNDEFINED);
else C_toplevel_entry(C_text("toplevel"));
C_resize_stack(131072);
C_check_nursery_minimum(3);
if(!C_demand(3)){
C_save(t1);
C_reclaim((void*)toplevel_trampoline,NULL);}
toplevel_initialized=1;
if(!C_demand_2(930)){
C_save(t1);
C_rereclaim2(930*sizeof(C_word), 1);
t1=C_restore;}
a=C_alloc(3);
C_initialize_lf(lf,3);
lf[0]=C_h_intern(&lf[0],29,"\003sysregister-primitive-module");
lf[1]=C_h_intern(&lf[1],7,"lolevel");
lf[2]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\020address->pointer\376\003\000\000\002\376\001\000\000\015align-to-word\376\003\000\000\002\376\001\000\000\010allocate\376\003\000\000\002\376\001\000\000\011blo"
"ck-ref\376\003\000\000\002\376\001\000\000\012block-set!\376\003\000\000\002\376\001\000\000\020extend-procedure\376\003\000\000\002\376\001\000\000\023extended-procedure"
"\077\376\003\000\000\002\376\001\000\000\004free\376\003\000\000\002\376\001\000\000\020locative->object\376\003\000\000\002\376\001\000\000\014locative-ref\376\003\000\000\002\376\001\000\000\015locativ"
"e-set!\376\003\000\000\002\376\001\000\000\011locative\077\376\003\000\000\002\376\001\000\000\015make-locative\376\003\000\000\002\376\001\000\000\024make-record-instance\376\003"
"\000\000\002\376\001\000\000\023make-pointer-vector\376\003\000\000\002\376\001\000\000\022make-weak-locative\376\003\000\000\002\376\001\000\000\014move-memory!\376\003\000"
"\000\002\376\001\000\000\020mutate-procedure\376\003\000\000\002\376\001\000\000\014null-pointer\376\003\000\000\002\376\001\000\000\015null-pointer\077\376\003\000\000\002\376\001\000\000\017nu"
"mber-of-bytes\376\003\000\000\002\376\001\000\000\017number-of-slots\376\003\000\000\002\376\001\000\000\017object->pointer\376\003\000\000\002\376\001\000\000\016object-"
"become!\376\003\000\000\002\376\001\000\000\013object-copy\376\003\000\000\002\376\001\000\000\014object-evict\376\003\000\000\002\376\001\000\000\030object-evict-to-loca"
"tion\376\003\000\000\002\376\001\000\000\017object-evicted\077\376\003\000\000\002\376\001\000\000\016object-release\376\003\000\000\002\376\001\000\000\013object-size\376\003\000\000\002\376"
"\001\000\000\016object-unevict\376\003\000\000\002\376\001\000\000\020pointer->address\376\003\000\000\002\376\001\000\000\015pointer-like\077\376\003\000\000\002\376\001\000\000\016poi"
"nter-offset\376\003\000\000\002\376\001\000\000\017pointer->object\376\003\000\000\002\376\001\000\000\017pointer-f32-ref\376\003\000\000\002\376\001\000\000\020pointer-f"
"32-set!\376\003\000\000\002\376\001\000\000\017pointer-f64-ref\376\003\000\000\002\376\001\000\000\020pointer-f64-set!\376\003\000\000\002\376\001\000\000\010pointer+\376\003\000\000"
"\002\376\001\000\000\017pointer-s16-ref\376\003\000\000\002\376\001\000\000\020pointer-s16-set!\376\003\000\000\002\376\001\000\000\017pointer-s32-ref\376\003\000\000\002\376\001\000"
"\000\020pointer-s32-set!\376\003\000\000\002\376\001\000\000\016pointer-s8-ref\376\003\000\000\002\376\001\000\000\017pointer-s8-set!\376\003\000\000\002\376\001\000\000\016poi"
"nter-vector\376\003\000\000\002\376\001\000\000\017pointer-vector\077\376\003\000\000\002\376\001\000\000\025pointer-vector-length\376\003\000\000\002\376\001\000\000\022poi"
"nter-vector-ref\376\003\000\000\002\376\001\000\000\023pointer-vector-set!\376\003\000\000\002\376\001\000\000\013pointer-tag\376\003\000\000\002\376\001\000\000\017point"
"er-u16-ref\376\003\000\000\002\376\001\000\000\020pointer-u16-set!\376\003\000\000\002\376\001\000\000\017pointer-u32-ref\376\003\000\000\002\376\001\000\000\020pointer-u"
"32-set!\376\003\000\000\002\376\001\000\000\016pointer-u8-ref\376\003\000\000\002\376\001\000\000\017pointer-u8-set!\376\003\000\000\002\376\001\000\000\011pointer=\077\376\003\000\000\002"
"\376\001\000\000\010pointer\077\376\003\000\000\002\376\001\000\000\016procedure-data\376\003\000\000\002\376\001\000\000\016record->vector\376\003\000\000\002\376\001\000\000\020record-in"
"stance\077\376\003\000\000\002\376\001\000\000\026record-instance-length\376\003\000\000\002\376\001\000\000\024record-instance-slot\376\003\000\000\002\376\001\000\000\031r"
"ecord-instance-slot-set!\376\003\000\000\002\376\001\000\000\024record-instance-type\376\003\000\000\002\376\001\000\000\023set-procedure-da"
"ta!\376\003\000\000\002\376\001\000\000\013tag-pointer\376\003\000\000\002\376\001\000\000\017tagged-pointer\077\376\377\016");
C_register_lf2(lf,3,create_ptable());
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_library_toplevel(2,C_SCHEME_UNDEFINED,t2);}
Ejemplo n.º 5
0
void C_ccall C_toplevel(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(toplevel_initialized) C_kontinue(t1,C_SCHEME_UNDEFINED);
else C_toplevel_entry(C_text("toplevel"));
C_resize_stack(131072);
C_check_nursery_minimum(3);
if(!C_demand(3)){
C_save(t1);
C_reclaim((void*)toplevel_trampoline,NULL);}
toplevel_initialized=1;
if(!C_demand_2(592)){
C_save(t1);
C_rereclaim2(592*sizeof(C_word), 1);
t1=C_restore;}
a=C_alloc(3);
C_initialize_lf(lf,3);
lf[0]=C_h_intern(&lf[0],29,"\003sysregister-primitive-module");
lf[1]=C_h_intern(&lf[1],7,"irregex");
lf[2]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\007irregex\376\003\000\000\002\376\001\000\000\023irregex-apply-match\376\003\000\000\002\376\001\000\000\013irregex-dfa\376\003\000\000\002\376\001\000\000\023irr"
"egex-dfa/extract\376\003\000\000\002\376\001\000\000\022irregex-dfa/search\376\003\000\000\002\376\001\000\000\017irregex-extract\376\003\000\000\002\376\001\000\000\015i"
"rregex-flags\376\003\000\000\002\376\001\000\000\014irregex-fold\376\003\000\000\002\376\001\000\000\024irregex-fold/chunked\376\003\000\000\002\376\001\000\000\017irrege"
"x-lengths\376\003\000\000\002\376\001\000\000\015irregex-match\376\003\000\000\002\376\001\000\000\016irregex-match\077\376\003\000\000\002\376\001\000\000\023irregex-match-"
"data\077\376\003\000\000\002\376\001\000\000\027irregex-match-end-chunk\376\003\000\000\002\376\001\000\000\027irregex-match-end-index\376\003\000\000\002\376\001\000\000"
"\023irregex-match-names\376\003\000\000\002\376\001\000\000\034irregex-match-num-submatches\376\003\000\000\002\376\001\000\000\031irregex-matc"
"h-start-chunk\376\003\000\000\002\376\001\000\000\031irregex-match-start-index\376\003\000\000\002\376\001\000\000\024irregex-match-string\376\003"
"\000\000\002\376\001\000\000\026irregex-match-subchunk\376\003\000\000\002\376\001\000\000\027irregex-match-substring\376\003\000\000\002\376\001\000\000\032irregex"
"-match-valid-index\077\376\003\000\000\002\376\001\000\000\025irregex-match/chunked\376\003\000\000\002\376\001\000\000\015irregex-names\376\003\000\000\002\376\001"
"\000\000\023irregex-new-matches\376\003\000\000\002\376\001\000\000\013irregex-nfa\376\003\000\000\002\376\001\000\000\026irregex-num-submatches\376\003\000\000\002"
"\376\001\000\000\013irregex-opt\376\003\000\000\002\376\001\000\000\015irregex-quote\376\003\000\000\002\376\001\000\000\017irregex-replace\376\003\000\000\002\376\001\000\000\023irrege"
"x-replace/all\376\003\000\000\002\376\001\000\000\026irregex-reset-matches!\376\003\000\000\002\376\001\000\000\016irregex-search\376\003\000\000\002\376\001\000\000\026i"
"rregex-search/chunked\376\003\000\000\002\376\001\000\000\026irregex-search/matches\376\003\000\000\002\376\001\000\000\015irregex-split\376\003\000\000"
"\002\376\001\000\000\010irregex\077\376\003\000\000\002\376\001\000\000\024make-irregex-chunker\376\003\000\000\002\376\001\000\000\021maybe-string->sre\376\003\000\000\002\376\001\000\000"
"\014sre->irregex\376\003\000\000\002\376\001\000\000\013sre->string\376\003\000\000\002\376\001\000\000\017string->irregex\376\003\000\000\002\376\001\000\000\013string->sre"
"\376\377\016");
C_register_lf2(lf,3,create_ptable());
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_library_toplevel(2,C_SCHEME_UNDEFINED,t2);}
Ejemplo n.º 6
0
void C_ccall C_toplevel(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(toplevel_initialized) C_kontinue(t1,C_SCHEME_UNDEFINED);
else C_toplevel_entry(C_text("toplevel"));
C_resize_stack(131072);
C_check_nursery_minimum(3);
if(!C_demand(3)){
C_save(t1);
C_reclaim((void*)toplevel_trampoline,NULL);}
toplevel_initialized=1;
if(!C_demand_2(787)){
C_save(t1);
C_rereclaim2(787*sizeof(C_word), 1);
t1=C_restore;}
a=C_alloc(3);
C_initialize_lf(lf,3);
lf[0]=C_h_intern(&lf[0],29,"\003sysregister-primitive-module");
lf[1]=C_h_intern(&lf[1],15,"data-structures");
lf[2]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\010->string\376\003\000\000\002\376\001\000\000\011alist-ref\376\003\000\000\002\376\001\000\000\015alist-update!\376\003\000\000\002\376\001\000\000\007always\077\376\003\000"
"\000\002\376\001\000\000\004any\077\376\003\000\000\002\376\001\000\000\005atom\077\376\003\000\000\002\376\001\000\000\015binary-search\376\003\000\000\002\376\001\000\000\007butlast\376\003\000\000\002\376\001\000\000\004chop"
"\376\003\000\000\002\376\001\000\000\012complement\376\003\000\000\002\376\001\000\000\007compose\376\003\000\000\002\376\001\000\000\010compress\376\003\000\000\002\376\001\000\000\004conc\376\003\000\000\002\376\001\000\000\007c"
"onjoin\376\003\000\000\002\376\001\000\000\012constantly\376\003\000\000\002\376\001\000\000\007disjoin\376\003\000\000\002\376\001\000\000\004each\376\003\000\000\002\376\001\000\000\007flatten\376\003\000\000\002\376"
"\001\000\000\004flip\376\003\000\000\002\376\001\000\000\010identity\376\003\000\000\002\376\001\000\000\013intersperse\376\003\000\000\002\376\001\000\000\004join\376\003\000\000\002\376\001\000\000\013list->que"
"ue\376\003\000\000\002\376\001\000\000\010list-of\077\376\003\000\000\002\376\001\000\000\012make-queue\376\003\000\000\002\376\001\000\000\005merge\376\003\000\000\002\376\001\000\000\006merge!\376\003\000\000\002\376\001\000\000"
"\006never\077\376\003\000\000\002\376\001\000\000\005none\077\376\003\000\000\002\376\001\000\000\001o\376\003\000\000\002\376\001\000\000\013queue->list\376\003\000\000\002\376\001\000\000\012queue-add!\376\003\000\000\002\376"
"\001\000\000\014queue-empty\077\376\003\000\000\002\376\001\000\000\013queue-first\376\003\000\000\002\376\001\000\000\012queue-last\376\003\000\000\002\376\001\000\000\020queue-push-ba"
"ck!\376\003\000\000\002\376\001\000\000\025queue-push-back-list!\376\003\000\000\002\376\001\000\000\015queue-remove!\376\003\000\000\002\376\001\000\000\006queue\077\376\003\000\000\002\376\001"
"\000\000\006rassoc\376\003\000\000\002\376\001\000\000\025reverse-string-append\376\003\000\000\002\376\001\000\000\007shuffle\376\003\000\000\002\376\001\000\000\004sort\376\003\000\000\002\376\001\000\000"
"\005sort!\376\003\000\000\002\376\001\000\000\007sorted\077\376\003\000\000\002\376\001\000\000\020topological-sort\376\003\000\000\002\376\001\000\000\014string-chomp\376\003\000\000\002\376\001\000\000"
"\013string-chop\376\003\000\000\002\376\001\000\000\017string-compare3\376\003\000\000\002\376\001\000\000\022string-compare3-ci\376\003\000\000\002\376\001\000\000\022strin"
"g-intersperse\376\003\000\000\002\376\001\000\000\014string-split\376\003\000\000\002\376\001\000\000\020string-translate\376\003\000\000\002\376\001\000\000\021string-tr"
"anslate*\376\003\000\000\002\376\001\000\000\016substring-ci=\077\376\003\000\000\002\376\001\000\000\017substring-index\376\003\000\000\002\376\001\000\000\022substring-ind"
"ex-ci\376\003\000\000\002\376\001\000\000\013substring=\077\376\003\000\000\002\376\001\000\000\005tail\077\376\377\016");
C_register_lf2(lf,3,create_ptable());
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_library_toplevel(2,C_SCHEME_UNDEFINED,t2);}
void C_ccall C_chicken_glib_toplevel(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(toplevel_initialized) C_kontinue(t1,C_SCHEME_UNDEFINED);
else C_toplevel_entry(C_text("chicken_glib_toplevel"));
C_check_nursery_minimum(3);
if(!C_demand(3)){
C_save(t1);
C_reclaim((void*)toplevel_trampoline,NULL);}
toplevel_initialized=1;
if(!C_demand_2(0)){
C_save(t1);
C_rereclaim2(0*sizeof(C_word), 1);
t1=C_restore;}
a=C_alloc(3);
C_initialize_lf(lf,1);
lf[0]=C_static_lambda_info(C_heaptop,10,"(toplevel)");
C_register_lf2(lf,1,create_ptable());
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_library_toplevel(2,C_SCHEME_UNDEFINED,t2);}