chicken-bug.c

Scheme跨平台编译器

C_noret_decl(f_205)
static void C_ccall f_205(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_208)
static void C_ccall f_208(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_364)
static void C_ccall f_364(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_211)
static void C_ccall f_211(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_360)
static void C_ccall f_360(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_214)
static void C_ccall f_214(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_356)
static void C_ccall f_356(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_217)
static void C_ccall f_217(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_352)
static void C_ccall f_352(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_220)
static void C_ccall f_220(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_348)
static void C_ccall f_348(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_223)
static void C_ccall f_223(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_344)
static void C_ccall f_344(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_226)
static void C_ccall f_226(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_229)
static void C_ccall f_229(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_232)
static void C_ccall f_232(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_340)
static void C_ccall f_340(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_336)
static void C_ccall f_336(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_332)
static void C_ccall f_332(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_299)
static void C_ccall f_299(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_303)
static void C_ccall f_303(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_308)
static void C_ccall f_308(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_316)
static void C_ccall f_316(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_235)
static void C_ccall f_235(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_238)
static void C_ccall f_238(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_297)
static void C_ccall f_297(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_283)
static void C_ccall f_283(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_285)
static void C_ccall f_285(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_293)
static void C_ccall f_293(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_241)
static void C_ccall f_241(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_244)
static void C_ccall f_244(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_279)
static void C_ccall f_279(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_253)
static void C_ccall f_253(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_256)
static void C_ccall f_256(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_261)
static void C_ccall f_261(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_269)
static void C_ccall f_269(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_247)
static void C_ccall f_247(C_word c,C_word t0,C_word t1) C_noret;

C_noret_decl(trf_624)
static void C_fcall trf_624(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_624(void *dummy){
C_word t1=C_pick(0);
C_word t0=C_pick(1);
C_adjust_stack(-2);
f_624(t0,t1);}

C_noret_decl(trf_635)
static void C_fcall trf_635(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_635(void *dummy){
C_word t1=C_pick(0);
C_word t0=C_pick(1);
C_adjust_stack(-2);
f_635(t0,t1);}

C_noret_decl(trf_436)
static void C_fcall trf_436(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_436(void *dummy){
C_word t1=C_pick(0);
C_word t0=C_pick(1);
C_adjust_stack(-2);
f_436(t0,t1);}

C_noret_decl(trf_448)
static void C_fcall trf_448(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_448(void *dummy){
C_word t1=C_pick(0);
C_word t0=C_pick(1);
C_adjust_stack(-2);
f_448(t0,t1);}

C_noret_decl(tr5)
static void C_fcall tr5(C_proc5 k) C_regparm C_noret;
C_regparm static void C_fcall tr5(C_proc5 k){
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);
(k)(5,t0,t1,t2,t3,t4);}

C_noret_decl(tr7)
static void C_fcall tr7(C_proc7 k) C_regparm C_noret;
C_regparm static void C_fcall tr7(C_proc7 k){
C_word t6=C_pick(0);
C_word t5=C_pick(1);
C_word t4=C_pick(2);
C_word t3=C_pick(3);
C_word t2=C_pick(4);
C_word t1=C_pick(5);
C_word t0=C_pick(6);
C_adjust_stack(-7);
(k)(7,t0,t1,t2,t3,t4,t5,t6);}

C_noret_decl(tr3)
static void C_fcall tr3(C_proc3 k) C_regparm C_noret;
C_regparm static void C_fcall tr3(C_proc3 k){
C_word t2=C_pick(0);
C_word t1=C_pick(1);
C_word t0=C_pick(2);
C_adjust_stack(-3);
(k)(3,t0,t1,t2);}

C_noret_decl(tr4)
static void C_fcall tr4(C_proc4 k) C_regparm C_noret;
C_regparm static void C_fcall tr4(C_proc4 k){
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);
(k)(4,t0,t1,t2,t3);}

C_noret_decl(tr6)
static void C_fcall tr6(C_proc6 k) C_regparm C_noret;
C_regparm static void C_fcall tr6(C_proc6 k){
C_word t5=C_pick(0);
C_word t4=C_pick(1);
C_word t3=C_pick(2);
C_word t2=C_pick(3);
C_word t1=C_pick(4);
C_word t0=C_pick(5);
C_adjust_stack(-6);
(k)(6,t0,t1,t2,t3,t4,t5);}

C_noret_decl(tr2)
static void C_fcall tr2(C_proc2 k) C_regparm C_noret;
C_regparm static void C_fcall tr2(C_proc2 k){
C_word t1=C_pick(0);
C_word t0=C_pick(1);
C_adjust_stack(-2);
(k)(2,t0,t1);}

C_noret_decl(tr2r)
static void C_fcall tr2r(C_proc2 k) C_regparm C_noret;
C_regparm static void C_fcall tr2r(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*3);
t2=C_restore_rest(a,n);
(k)(t0,t1,t2);}

/* toplevel */
static C_TLS int toplevel_initialized=0;
C_main_entry_point
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_toplevel(2,C_SCHEME_UNDEFINED,C_restore);}

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(636)){
C_save(t1);
C_rereclaim2(636*sizeof(C_word), 1);
t1=C_restore;}
a=C_alloc(3);
C_initialize_lf(lf,149);
lf[1]=C_decode_literal(C_heaptop,"\376B\000\000\033chicken-bug-report.~a-~a-~a");
lf[3]=C_decode_literal(C_heaptop,"\376B\000\[e-mail]\[e-mail]\012chicken-users@nongnu"
".org");
lf[5]=C_decode_literal(C_heaptop,"\376B\000\000\[e-mail]");
lf[7]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376B\000\000\014mx10.gnu.org\376\003\000\000\002\376B\000\000\014mx20.gnu.org\376\377\016");
lf[8]=C_h_intern(&lf[8],12,"collect-info");
lf[9]=C_h_intern(&lf[9],7,"newline");
lf[10]=C_h_intern(&lf[10],7,"display");
lf[11]=C_h_intern(&lf[11],8,"read-all");
lf[12]=C_h_intern(&lf[12],20,"with-input-from-pipe");
lf[13]=C_decode_literal(C_heaptop,"\376B\000\000\013gcc -v 2>&1");
lf[14]=C_h_intern(&lf[14],5,"print");
lf[15]=C_decode_literal(C_heaptop,"\376B\000\0000CC seems to be gcc, trying to obtain version...\012");
lf[16]=C_decode_literal(C_heaptop,"\376B\000\000\003gcc");
lf[17]=C_h_intern(&lf[17],8,"feature\077");
lf[18]=C_h_intern(&lf[18],4,"unix");
lf[19]=C_h_intern(&lf[19],17,"\003syspeek-c-string");
lf[20]=C_h_intern(&lf[20],20,"with-input-from-file");
lf[21]=C_h_intern(&lf[21],13,"make-pathname");
lf[22]=C_decode_literal(C_heaptop,"\376B\000\000\020chicken-config.h");
lf[23]=C_decode_literal(C_heaptop,"\376B\000\000\024\012\012chicken-config.h:\012");
lf[24]=C_h_intern(&lf[24],6,"printf");
lf[25]=C_decode_literal(C_heaptop,"\376B\000\000\004~a~a");
lf[26]=C_h_intern(&lf[26],11,"make-string");
lf[27]=C_h_intern(&lf[27],12,"\003sysfor-each");
lf[28]=C_decode_literal(C_heaptop,"\376B\000\000\003\012  ");
lf[29]=C_h_intern(&lf[29],4,"chop");
lf[30]=C_h_intern(&lf[30],4,"sort");
lf[31]=C_h_intern(&lf[31],8,"string<\077");
lf[32]=C_h_intern(&lf[32],7,"\003sysmap");
lf[33]=C_h_intern(&lf[33],15,"keyword->string");
lf[34]=C_h_intern(&lf[34],12,"\003sysfeatures");
lf[35]=C_decode_literal(C_heaptop,"\376B\000\000\011Features:");
lf[36]=C_decode_literal(C_heaptop,"\376B\000\000\024Include path:\011~s~%~%");
lf[37]=C_h_intern(&lf[37],21,"\003sysinclude-pathnames");
lf[38]=C_decode_literal(C_heaptop,"\376B\000\000\020Home directory:\011");
lf[39]=C_decode_literal(C_heaptop,"\376B\000\000\001\012");
lf[40]=C_h_intern(&lf[40],12,"chicken-home");
lf[41]=C_decode_literal(C_heaptop,"\376B\000\000\024CHICKEN version is:\012");
lf[42]=C_decode_literal(C_heaptop,"\376B\000\000\001\012");
lf[43]=C_h_intern(&lf[43],15,"chicken-version");
lf[44]=C_decode_literal(C_heaptop,"\376B\000\000\021\011build platform:\011");
lf[45]=C_decode_literal(C_heaptop,"\376B\000\000\001\012");
lf[46]=C_h_intern(&lf[46],14,"build-platform");
lf[47]=C_decode_literal(C_heaptop,"\376B\000\000\023\011software version:\011");
lf[48]=C_h_intern(&lf[48],16,"software-version");
lf[49]=C_decode_literal(C_heaptop,"\376B\000\000\020\011software type:\011");
lf[50]=C_h_intern(&lf[50],13,"software-type");
lf[51]=C_decode_literal(C_heaptop,"\376B\000\000\017\011machine type:\011");
lf[52]=C_h_intern(&lf[52],12,"machine-type");
lf[53]=C_decode_literal(C_heaptop,"\376B\000\000\022Host information:\012");
lf[54]=C_decode_literal(C_heaptop,"\376B\000\000\030User information:\011~s~%~%");
lf[55]=C_h_intern(&lf[55],16,"user-information");
lf[56]=C_h_intern(&lf[56],15,"current-user-id");
lf[57]=C_decode_literal(C_heaptop,"\376B\000\000\006Date:\011");
lf[58]=C_decode_literal(C_heaptop,"\376B\000\000\002\012\012");
lf[59]=C_h_intern(&lf[59],15,"seconds->string");
lf[60]=C_h_intern(&lf[60],15,"current-seconds");
lf[61]=C_decode_literal(C_heaptop,"\376B\000\0002This is a bug report generated by chicken-bug(1).\012");
lf[62]=C_decode_literal(C_heaptop,"\376B\000\0004\012--------------------------------------------------\012");
lf[63]=C_h_intern(&lf[63],5,"usage");
lf[64]=C_h_intern(&lf[64],4,"exit");
lf[65]=C_decode_literal(C_heaptop,"\376B\000\0017usage: chicken-bug [FILENAME ...]\012\012  -help  -h            show this message"
"\012  -to-stdout           write bug report to standard output\012  -                 "
"   read description from standard input\012\012Generates a bug report file from user i"
"nput or alternatively\012from the contents of files given on the command line.\012");
lf[66]=C_h_intern(&lf[66],10,"user-input");
lf[67]=C_decode_literal(C_heaptop,"\376B\000\001VThis is the CHICKEN bug report generator. Please enter a detailed\012descripti"
"on of the problem you have encountered and enter CTRL-D (EOF)\012once you have fini"
"shed. Press CTRL-C to abort the program. You can\012also pass the description from "
"a file (just abort now and re-invoke\012\042chicken-bug\042 with one or more input files "
"given on the command-line)\012");
lf[68]=C_h_intern(&lf[68],13,"\003systty-port\077");
lf[69]=C_h_intern(&lf[69],18,"current-input-port");
lf[70]=C_h_intern(&lf[70],7,"justify");
lf[71]=C_h_intern(&lf[71],13,"string-append");
lf[72]=C_decode_literal(C_heaptop,"\376B\000\000\0010");
lf[73]=C_h_intern(&lf[73],4,"main");
lf[74]=C_decode_literal(C_heaptop,"\376B\000\000\000");
lf[75]=C_h_intern(&lf[75],8,"try-mail");
lf[76]=C_h_intern(&lf[76],21,"with-output-to-string");
lf[77]=C_h_intern(&lf[77],12,"mail-headers");
lf[78]=C_h_intern(&lf[78],7,"sprintf");
lf[79]=C_h_intern(&lf[79],15,"\003sysmatch-error");
lf[80]=C_h_intern(&lf[80],19,"seconds->local-time");
lf[81]=C_decode_literal(C_heaptop,"\376B\000\000\002\012\012");
lf[82]=C_decode_literal(C_heaptop,"\376B\000\000\001-");
lf[83]=C_decode_literal(C_heaptop,"\376B\000\000\017\012\012User input:\012\012");
lf[84]=C_decode_literal(C_heaptop,"\376B\000\000\006--help");
lf[85]=C_decode_literal(C_heaptop,"\376B\000\000\002-h");
lf[86]=C_decode_literal(C_heaptop,"\376B\000\000\005-help");
lf[87]=C_decode_literal(C_heaptop,"\376B\000\000\012-to-stdout");
lf[88]=C_decode_literal(C_heaptop,"\376B\000\000\016\012\012File added: ");
lf[89]=C_decode_literal(C_heaptop,"\376B\000\000\002\012\012");
lf[90]=C_decode_literal(C_heaptop,"\376B\000\000!one of the following addresses:\012\012");
lf[91]=C_decode_literal(C_heaptop,"\376B\000\000G\012Could not send mail automatically!\012\012A bug report has been written to `");
lf[92]=C_decode_literal(C_heaptop,"\376B\000\000\025\047.  Please send it to");