posixwin.c

Scheme跨平台编译器

	ZeroMemory(&pi,sizeof pi);
	ZeroMemory(&si,sizeof si);
	si.cb = sizeof si;
	si.dwFlags = STARTF_USESTDHANDLES;
	si.hStdInput = child_io_handles[0];
	si.hStdOutput = child_io_handles[1];
	si.hStdError = child_io_handles[2];

	/* FIXME passing 'app' param causes failure & possible stack corruption */
	success = CreateProcess(
	    NULL, (char*)cmdlin, NULL, NULL, TRUE, 0, envblk, NULL, &si, &pi);

	if (success)
	{
	    child_process=pi.hProcess;
	    CloseHandle(pi.hThread);
	}
	else
	    set_last_errno();
    }
    else
	set_last_errno();

    /****** cleanup & return *********/

    /* parent must close child end */
    for (i=0; i<3; ++i) CloseHandle(child_io_handles[i]);

    if (success)
    {
	*phandle = (int)child_process;
	*pstdin_fd = io_fds[0];
	*pstdout_fd = io_fds[1];
	*pstderr_fd = io_fds[2];
    }
    else
    {
	for (i=0; i<3; ++i) _close(io_fds[i]);
    }

    return success;
}

static C_PTABLE_ENTRY *create_ptable(void);
C_noret_decl(C_scheduler_toplevel)
C_externimport void C_ccall C_scheduler_toplevel(C_word c,C_word d,C_word k) C_noret;
C_noret_decl(C_regex_toplevel)
C_externimport void C_ccall C_regex_toplevel(C_word c,C_word d,C_word k) C_noret;
C_noret_decl(C_extras_toplevel)
C_externimport void C_ccall C_extras_toplevel(C_word c,C_word d,C_word k) C_noret;
C_noret_decl(C_utils_toplevel)
C_externimport void C_ccall C_utils_toplevel(C_word c,C_word d,C_word k) C_noret;
C_noret_decl(C_files_toplevel)
C_externimport void C_ccall C_files_toplevel(C_word c,C_word d,C_word k) C_noret;

static C_TLS C_word lf[399];
static double C_possibly_force_alignment;
static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,38),40,112,111,115,105,120,45,101,114,114,111,114,32,116,121,112,101,55,32,108,111,99,56,32,109,115,103,57,32,46,32,97,114,103,115,49,48,41,0,0};
static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,39),40,102,105,108,101,45,111,112,101,110,32,102,105,108,101,110,97,109,101,49,51,32,102,108,97,103,115,49,52,32,46,32,109,111,100,101,49,53,41,0};
static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,17),40,102,105,108,101,45,99,108,111,115,101,32,102,100,50,51,41,0,0,0,0,0,0,0};
static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,34),40,102,105,108,101,45,114,101,97,100,32,102,100,50,55,32,115,105,122,101,50,56,32,46,32,98,117,102,102,101,114,50,57,41,0,0,0,0,0,0};
static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,35),40,102,105,108,101,45,119,114,105,116,101,32,102,100,51,55,32,98,117,102,102,101,114,51,56,32,46,32,115,105,122,101,51,57,41,0,0,0,0,0};
static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,25),40,102,105,108,101,45,109,107,115,116,101,109,112,32,116,101,109,112,108,97,116,101,52,56,41,0,0,0,0,0,0,0};
static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,19),40,35,35,115,121,115,35,115,116,97,116,32,102,105,108,101,53,53,41,0,0,0,0,0};
static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,23),40,102,105,108,101,45,115,116,97,116,32,102,53,57,32,46,32,103,53,56,54,48,41,0};
static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,15),40,102,105,108,101,45,115,105,122,101,32,102,54,54,41,0};
static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,28),40,102,105,108,101,45,109,111,100,105,102,105,99,97,116,105,111,110,45,116,105,109,101,32,102,54,56,41,0,0,0,0};
static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,22),40,102,105,108,101,45,97,99,99,101,115,115,45,116,105,109,101,32,102,55,48,41,0,0};
static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,22),40,102,105,108,101,45,99,104,97,110,103,101,45,116,105,109,101,32,102,55,50,41,0,0};
static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,16),40,102,105,108,101,45,111,119,110,101,114,32,102,55,52,41};
static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,22),40,102,105,108,101,45,112,101,114,109,105,115,115,105,111,110,115,32,102,55,54,41,0,0};
static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,23),40,114,101,103,117,108,97,114,45,102,105,108,101,63,32,102,110,97,109,101,55,56,41,0};
static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,24),40,115,121,109,98,111,108,105,99,45,108,105,110,107,63,32,102,110,97,109,101,56,49,41};
static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,16),40,102,95,49,53,53,53,32,102,110,97,109,101,56,53,41};
static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,18),40,115,116,97,116,45,116,121,112,101,32,110,97,109,101,56,52,41,0,0,0,0,0,0};
static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,22),40,102,105,108,101,45,112,111,115,105,116,105,111,110,32,112,111,114,116,57,51,41,0,0};
static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,44),40,115,101,116,45,102,105,108,101,45,112,111,115,105,116,105,111,110,33,32,112,111,114,116,57,55,32,112,111,115,57,56,32,46,32,119,104,101,110,99,101,57,57,41,0,0,0,0};
static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,15),40,97,49,55,49,51,32,120,49,49,56,49,51,55,41,0};
static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,36),40,99,114,101,97,116,101,45,100,105,114,101,99,116,111,114,121,32,110,97,109,101,49,50,57,32,46,32,103,49,50,56,49,51,48,41,0,0,0,0};
static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,26),40,99,104,97,110,103,101,45,100,105,114,101,99,116,111,114,121,32,110,97,109,101,49,52,55,41,0,0,0,0,0,0};
static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,26),40,100,101,108,101,116,101,45,100,105,114,101,99,116,111,114,121,32,110,97,109,101,49,53,48,41,0,0,0,0,0,0};
static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0};
static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,35),40,98,111,100,121,49,54,48,32,115,112,101,99,49,54,54,32,115,104,111,119,45,100,111,116,102,105,108,101,115,63,49,54,55,41,0,0,0,0,0};
static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,35),40,100,101,102,45,115,104,111,119,45,100,111,116,102,105,108,101,115,63,49,54,51,32,37,115,112,101,99,49,53,56,49,56,55,41,0,0,0,0,0};
static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,13),40,100,101,102,45,115,112,101,99,49,54,50,41,0,0,0};
static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,21),40,100,105,114,101,99,116,111,114,121,32,46,32,103,49,53,54,49,53,55,41,0,0,0};
static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,21),40,100,105,114,101,99,116,111,114,121,63,32,102,110,97,109,101,49,57,51,41,0,0,0};
static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,29),40,99,117,114,114,101,110,116,45,100,105,114,101,99,116,111,114,121,32,46,32,103,49,57,55,49,57,56,41,0,0,0};
static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,17),40,105,115,112,101,114,115,101,32,103,50,49,56,50,49,57,41,0,0,0,0,0,0,0};
static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,6),40,115,101,112,63,41,0,0};
static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,7),40,97,50,49,51,49,41,0};
static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,15),40,97,50,49,50,53,32,103,50,50,52,50,50,57,41,0};
static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,7),40,97,50,49,52,57,41,0};
static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,7),40,97,50,49,54,49,41,0};
static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,17),40,97,50,49,53,53,32,46,32,103,50,50,55,50,51,50,41,0,0,0,0,0,0,0};
static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,7),40,97,50,49,52,51,41,0};
static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,15),40,97,50,49,49,57,32,103,50,50,54,50,50,56,41,0};
static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,5),40,99,119,100,41,0,0,0};
static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,108,50,51,54,32,114,50,51,55,41};
static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,24),40,99,97,110,111,110,105,99,97,108,45,112,97,116,104,32,112,97,116,104,50,51,51,41};
static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,6),40,109,111,100,101,41,0,0};
static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,14),40,98,97,100,109,111,100,101,32,109,50,52,52,41,0,0};
static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,26),40,99,104,101,99,107,32,99,109,100,50,52,53,32,105,110,112,50,52,54,32,114,50,52,55,41,0,0,0,0,0,0};
static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,31),40,111,112,101,110,45,105,110,112,117,116,45,112,105,112,101,32,99,109,100,50,53,49,32,46,32,109,50,53,50,41,0};
static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,32),40,111,112,101,110,45,111,117,116,112,117,116,45,112,105,112,101,32,99,109,100,50,53,55,32,46,32,109,50,53,56,41};
static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,26),40,99,108,111,115,101,45,105,110,112,117,116,45,112,105,112,101,32,112,111,114,116,50,54,51,41,0,0,0,0,0,0};
static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,7),40,97,50,54,53,57,41,0};
static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,20),40,97,50,54,54,53,32,46,32,114,101,115,117,108,116,115,50,56,49,41,0,0,0,0};
static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,47),40,99,97,108,108,45,119,105,116,104,45,105,110,112,117,116,45,112,105,112,101,32,99,109,100,50,55,55,32,112,114,111,99,50,55,56,32,46,32,109,111,100,101,50,55,57,41,0};
static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,7),40,97,50,54,56,51,41,0};
static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,20),40,97,50,54,56,57,32,46,32,114,101,115,117,108,116,115,50,56,55,41,0,0,0,0};
static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,48),40,99,97,108,108,45,119,105,116,104,45,111,117,116,112,117,116,45,112,105,112,101,32,99,109,100,50,56,51,32,112,114,111,99,50,56,52,32,46,32,109,111,100,101,50,56,53,41};
static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,20),40,97,50,55,48,56,32,46,32,114,101,115,117,108,116,115,50,57,52,41,0,0,0,0};
static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,48),40,119,105,116,104,45,105,110,112,117,116,45,102,114,111,109,45,112,105,112,101,32,99,109,100,50,56,57,32,116,104,117,110,107,50,57,48,32,46,32,109,111,100,101,50,57,49,41};
static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,20),40,97,50,55,50,56,32,46,32,114,101,115,117,108,116,115,51,48,51,41,0,0,0,0};
static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,47),40,119,105,116,104,45,111,117,116,112,117,116,45,116,111,45,112,105,112,101,32,99,109,100,50,57,56,32,116,104,117,110,107,50,57,57,32,46,32,109,111,100,101,51,48,48,41,0};
static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,23),40,99,114,101,97,116,101,45,112,105,112,101,32,46,32,103,51,49,48,51,49,49,41,0};
static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,23),40,115,105,103,110,97,108,45,104,97,110,100,108,101,114,32,115,105,103,51,49,57,41,0};
static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,36),40,115,101,116,45,115,105,103,110,97,108,45,104,97,110,100,108,101,114,33,32,115,105,103,51,50,49,32,112,114,111,99,51,50,50,41,0,0,0,0};
static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,41),40,35,35,115,121,115,35,105,110,116,101,114,114,117,112,116,45,104,111,111,107,32,114,101,97,115,111,110,51,50,53,32,115,116,97,116,101,51,50,54,41,0,0,0,0,0,0,0};
static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,32),40,99,104,97,110,103,101,45,102,105,108,101,45,109,111,100,101,32,102,110,97,109,101,51,51,49,32,109,51,51,50,41};
static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,33),40,99,104,101,99,107,32,102,105,108,101,110,97,109,101,51,51,55,32,97,99,99,51,51,56,32,108,111,99,51,51,57,41,0,0,0,0,0,0,0};
static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,31),40,102,105,108,101,45,114,101,97,100,45,97,99,99,101,115,115,63,32,102,105,108,101,110,97,109,101,51,52,51,41,0};
static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,32),40,102,105,108,101,45,119,114,105,116,101,45,97,99,99,101,115,115,63,32,102,105,108,101,110,97,109,101,51,52,52,41};
static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,34),40,102,105,108,101,45,101,120,101,99,117,116,101,45,97,99,99,101,115,115,63,32,102,105,108,101,110,97,109,101,51,52,53,41,0,0,0,0,0,0};
static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,18),40,109,111,100,101,32,105,110,112,51,53,49,32,109,51,53,50,41,0,0,0,0,0,0};
static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,25),40,99,104,101,99,107,32,102,100,51,53,54,32,105,110,112,51,53,55,32,114,51,53,56,41,0,0,0,0,0,0,0};
static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,31),40,111,112,101,110,45,105,110,112,117,116,45,102,105,108,101,42,32,102,100,51,54,50,32,46,32,109,51,54,51,41,0};
static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,32),40,111,112,101,110,45,111,117,116,112,117,116,45,102,105,108,101,42,32,102,100,51,54,53,32,46,32,109,51,54,54,41};
static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,22),40,112,111,114,116,45,62,102,105,108,101,110,111,32,112,111,114,116,51,55,49,41,0,0};
static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,34),40,100,117,112,108,105,99,97,116,101,45,102,105,108,101,110,111,32,111,108,100,51,55,54,32,46,32,110,101,119,51,55,55,41,0,0,0,0,0,0};
static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,22),40,115,101,116,101,110,118,32,118,97,114,51,56,52,32,118,97,108,51,56,53,41,0,0};
static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,17),40,117,110,115,101,116,101,110,118,32,118,97,114,51,56,57,41,0,0,0,0,0,0,0};
static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,11),40,115,99,97,110,32,106,52,48,51,41,0,0,0,0,0};
static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,105,52,48,48,41,0,0,0,0,0};
static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,21),40,99,117,114,114,101,110,116,45,101,110,118,105,114,111,110,109,101,110,116,41,0,0,0};
static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,29),40,115,101,99,111,110,100,115,45,62,108,111,99,97,108,45,116,105,109,101,32,115,101,99,115,52,48,54,41,0,0,0};
static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,27),40,115,101,99,111,110,100,115,45,62,117,116,99,45,116,105,109,101,32,115,101,99,115,52,48,56,41,0,0,0,0,0};
static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,25),40,115,101,99,111,110,100,115,45,62,115,116,114,105,110,103,32,115,101,99,115,52,49,54,41,0,0,0,0,0,0,0};
static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,30),40,116,105,109,101,45,62,115,116,114,105,110,103,32,116,109,52,51,51,32,46,32,103,52,51,50,52,51,52,41,0,0};
static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,27),40,108,111,99,97,108,45,116,105,109,101,45,62,115,101,99,111,110,100,115,32,116,109,52,52,52,41,0,0,0,0,0};
static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,29),40,108,111,99,97,108,45,116,105,109,101,122,111,110,101,45,97,98,98,114,101,118,105,97,116,105,111,110,41,0,0,0};
static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,17),40,95,101,120,105,116,32,46,32,99,111,100,101,52,53,53,41,0,0,0,0,0,0,0};
static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,47),40,115,101,116,45,98,117,102,102,101,114,105,110,103,45,109,111,100,101,33,32,112,111,114,116,52,53,54,32,109,111,100,101,52,53,55,32,46,32,115,105,122,101,52,53,56,41,0};
static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,7),40,97,51,52,57,52,41,0};
static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,102,110,115,52,57,49,41,0,0,0};
static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,37),40,97,51,53,48,48,32,100,105,114,52,55,54,52,55,57,32,102,105,108,52,55,55,52,56,48,32,101,120,116,52,55,56,52,56,49,41,0,0,0};
static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,20),40,99,111,110,99,45,108,111,111,112,32,112,97,116,104,115,52,55,52,41,0,0,0,0};
static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,17),40,103,108,111,98,32,46,32,112,97,116,104,115,52,55,50,41,0,0,0,0,0,0,0};
static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,105,53,48,57,41,0,0,0,0,0};
static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,21),40,110,101,101,100,115,45,113,117,111,116,105,110,103,63,32,115,53,48,54,41,0,0,0};
static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,22),40,108,111,111,112,32,105,108,115,116,53,49,50,32,111,108,115,116,53,49,51,41,0,0};
static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,35),40,36,113,117,111,116,101,45,97,114,103,115,45,108,105,115,116,32,108,115,116,53,48,51,32,101,120,97,99,116,102,53,48,52,41,0,0,0,0,0};
static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,32),40,115,101,116,97,114,103,32,97,53,50,50,53,50,54,32,97,53,50,49,53,50,55,32,97,53,50,48,53,50,56,41};
static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,32),40,115,101,116,101,110,118,32,97,53,51,50,53,51,54,32,97,53,51,49,53,51,55,32,97,53,51,48,53,51,56,41};
static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,17),40,100,111,53,52,52,32,108,53,52,54,32,105,53,52,55,41,0,0,0,0,0,0,0};
static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,57),40,98,117,105,108,100,45,101,120,101,99,45,97,114,103,118,101,99,32,108,111,99,53,52,48,32,108,115,116,53,52,49,32,97,114,103,118,101,99,45,115,101,116,116,101,114,53,52,50,32,105,100,120,53,52,51,41,0,0,0,0,0,0,0};
static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,62),40,36,101,120,101,99,45,115,101,116,117,112,32,108,111,99,53,53,51,32,102,105,108,101,110,97,109,101,53,53,52,32,97,114,103,108,115,116,53,53,53,32,101,110,118,108,115,116,53,53,54,32,101,120,97,99,116,102,53,53,55,41,0,0};
static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,49),40,36,101,120,101,99,45,116,101,97,114,100,111,119,110,32,108,111,99,53,54,52,32,109,115,103,53,54,53,32,102,105,108,101,110,97,109,101,53,54,54,32,114,101,115,53,54,55,41,0,0,0,0,0,0,0};
static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,39),40,98,111,100,121,53,55,55,32,97,114,103,108,115,116,53,56,52,32,101,110,118,108,115,116,53,56,53,32,101,120,97,99,116,102,53,56,54,41,0};
static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,43),40,100,101,102,45,101,120,97,99,116,102,53,56,49,32,37,97,114,103,108,115,116,53,55,52,53,56,57,32,37,101,110,118,108,115,116,53,55,53,53,57,48,41,0,0,0,0,0};
static C_char C_TLS li104[] C_aligned={C_lihdr(0,0,29),40,100,101,102,45,101,110,118,108,115,116,53,56,48,32,37,97,114,103,108,115,116,53,55,52,53,57,50,41,0,0,0};
static C_char C_TLS li105[] C_aligned={C_lihdr(0,0,15),40,100,101,102,45,97,114,103,108,115,116,53,55,57,41,0};
static C_char C_TLS li106[] C_aligned={C_lihdr(0,0,39),40,112,114,111,99,101,115,115,45,101,120,101,99,117,116,101,32,102,105,108,101,110,97,109,101,53,55,50,32,46,32,103,53,55,49,53,55,51,41,0};
static C_char C_TLS li107[] C_aligned={C_lihdr(0,0,39),40,98,111,100,121,54,48,55,32,97,114,103,108,115,116,54,49,52,32,101,110,118,108,115,116,54,49,53,32,101,120,97,99,116,102,54,49,54,41,0};
static C_char C_TLS li108[] C_aligned={C_lihdr(0,0,43),40,100,101,102,45,101,120,97,99,116,102,54,49,49,32,37,97,114,103,108,115,116,54,48,52,54,49,57,32,37,101,110,118,108,115,116,54,48,53,54,50,48,41,0,0,0,0,0};
static C_char C_TLS li109[] C_aligned={C_lihdr(0,0,29),40,100,101,102,45,101,110,118,108,115,116,54,49,48,32,37,97,114,103,108,115,116,54,48,52,54,50,50,41,0,0,0};
static C_char C_TLS li110[] C_aligned={C_lihdr(0,0,15),40,100,101,102,45,97,114,103,108,115,116,54,48,57,41,0};
static C_char C_TLS li111[] C_aligned={C_lihdr(0,0,45),40,112,114,111,99,101,115,115,45,115,112,97,119,110,32,109,111,100,101,54,48,49,32,102,105,108,101,110,97,109,101,54,48,50,32,46,32,103,54,48,48,54,48,51,41,0,0,0};
static C_char C_TLS li112[] C_aligned={C_lihdr(0,0,20),40,99,117,114,114,101,110,116,45,112,114,111,99,101,115,115,45,105,100,41,0,0,0,0};
static C_char C_TLS li113[] C_aligned={C_lihdr(0,0,21),40,35,35,115,121,115,35,115,104,101,108,108,45,99,111,109,109,97,110,100,41,0,0,0};
static C_char C_TLS li114[] C_aligned={C_lihdr(0,0,41),40,35,35,115,121,115,35,115,104,101,108,108,45,99,111,109,109,97,110,100,45,97,114,103,117,109,101,110,116,115,32,99,109,100,108,105,110,54,51,53,41,0,0,0,0,0,0,0};
static C_char C_TLS li115[] C_aligned={C_lihdr(0,0,28),40,112,114,111,99,101,115,115,45,114,117,110,32,102,54,51,56,32,46,32,97,114,103,115,54,51,57,41,0,0,0,0};
static C_char C_TLS li116[] C_aligned={C_lihdr(0,0,22),40,99,108,111,115,101,45,104,97,110,100,108,101,32,97,54,52,49,54,52,52,41,0,0};
static C_char C_TLS li117[] C_aligned={C_lihdr(0,0,86),40,35,35,115,121,115,35,112,114,111,99,101,115,115,32,108,111,99,54,55,57,32,99,109,100,54,56,48,32,97,114,103,115,54,56,49,32,101,110,118,54,56,50,32,115,116,100,111,117,116,102,54,56,51,32,115,116,100,105,110,102,54,56,52,32,115,116,100,101,114,114,102,54,56,53,32,46,32,103,54,55,56,54,56,54,41,0,0};
static C_char C_TLS li118[] C_aligned={C_lihdr(0,0,15),40,97,52,50,50,56,32,103,55,50,54,55,50,55,41,0};
static C_char C_TLS li119[] C_aligned={C_lihdr(0,0,18),40,99,104,107,115,116,114,108,115,116,32,108,115,116,55,50,53,41,0,0,0,0,0,0};
static C_char C_TLS li120[] C_aligned={C_lihdr(0,0,7),40,97,52,50,52,54,41,0};
static C_char C_TLS li121[] C_aligned={C_lihdr(0,0,34),40,97,52,50,53,50,32,105,110,55,51,49,32,111,117,116,55,51,50,32,112,105,100,55,51,51,32,101,114,114,55,51,52,41,0,0,0,0,0,0};
static C_char C_TLS li122[] C_aligned={C_lihdr(0,0,57),40,37,112,114,111,99,101,115,115,32,108,111,99,55,49,56,32,101,114,114,63,55,49,57,32,99,109,100,55,50,48,32,97,114,103,115,55,50,49,32,101,110,118,55,50,50,32,101,120,97,99,116,102,55,50,51,41,0,0,0,0,0,0,0};
static C_char C_TLS li123[] C_aligned={C_lihdr(0,0,34),40,98,111,100,121,55,52,52,32,97,114,103,115,55,53,49,32,101,110,118,55,53,50,32,101,120,97,99,116,102,55,53,51,41,0,0,0,0,0,0};
static C_char C_TLS li124[] C_aligned={C_lihdr(0,0,38),40,100,101,102,45,101,120,97,99,116,102,55,52,56,32,37,97,114,103,115,55,52,49,55,53,53,32,37,101,110,118,55,52,50,55,53,54,41,0,0};
static C_char C_TLS li125[] C_aligned={C_lihdr(0,0,24),40,100,101,102,45,101,110,118,55,52,55,32,37,97,114,103,115,55,52,49,55,53,56,41};
static C_char C_TLS li126[] C_aligned={C_lihdr(0,0,13),40,100,101,102,45,97,114,103,115,55,52,54,41,0,0,0};
static C_char C_TLS li127[] C_aligned={C_lihdr(0,0,26),40,112,114,111,99,101,115,115,32,99,109,100,55,51,57,32,46,32,103,55,51,56,55,52,48,41,0,0,0,0,0,0};
static C_char C_TLS li128[] C_aligned={C_lihdr(0,0,34),40,98,111,100,121,55,55,50,32,97,114,103,115,55,55,57,32,101,110,118,55,56,48,32,101,120,97,99,116,102,55,56,49,41,0,0,0,0,0,0};
static C_char C_TLS li129[] C_aligned={C_lihdr(0,0,38),40,100,101,102,45,101,120,97,99,116,102,55,55,54,32,37,97,114,103,115,55,54,57,55,56,51,32,37,101,110,118,55,55,48,55,56,52,41,0,0};
static C_char C_TLS li130[] C_aligned={C_lihdr(0,0,24),40,100,101,102,45,101,110,118,55,55,53,32,37,97,114,103,115,55,54,57,55,56,54,41};
static C_char C_TLS li131[] C_aligned={C_lihdr(0,0,13),40,100,101,102,45,97,114,103,115,55,55,52,41,0,0,0};
static C_char C_TLS li132[] C_aligned={C_lihdr(0,0,27),40,112,114,111,99,101,115,115,42,32,99,109,100,55,54,55,32,46,32,103,55,54,54,55,54,56,41,0,0,0,0,0};
static C_char C_TLS li133[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,112,114,111,99,101,115,115,45,119,97,105,116,32,112,105,100,55,57,53,32,110,111,104,97,110,103,55,57,54,41,0,0,0};
static C_char C_TLS li134[] C_aligned={C_lihdr(0,0,7),40,97,52,52,55,50,41,0};
static C_char C_TLS li135[] C_aligned={C_lihdr(0,0,33),40,97,52,52,55,56,32,101,112,105,100,56,48,52,32,101,110,111,114,109,56,48,53,32,101,99,111,100,101,56,48,54,41,0,0,0,0,0,0,0};
static C_char C_TLS li136[] C_aligned={C_lihdr(0,0,31),40,112,114,111,99,101,115,115,45,119,97,105,116,32,112,105,100,55,57,55,32,46,32,97,114,103,115,55,57,56,41,0};
static C_char C_TLS li137[] C_aligned={C_lihdr(0,0,12),40,115,108,101,101,112,32,116,56,48,57,41,0,0,0,0};
static C_char C_TLS li138[] C_aligned={C_lihdr(0,0,15),40,103,101,116,45,104,111,115,116,45,110,97,109,101,41,0};
static C_char C_TLS li139[] C_aligned={C_lihdr(0,0,20),40,115,121,115,116,101,109,45,105,110,102,111,114,109,97,116,105,111,110,41,0,0,0,0};
static C_char C_TLS li140[] C_aligned={C_lihdr(0,0,19),40,99,117,114,114,101,110,116,45,117,115,101,114,45,110,97,109,101,41,0,0,0,0,0};
static C_char C_TLS li141[] C_aligned={C_lihdr(0,0,13),40,102,95,52,54,57,57,32,120,56,51,56,41,0,0,0};
static C_char C_TLS li142[] C_aligned={C_lihdr(0,0,7),40,97,52,54,51,57,41,0};
static C_char C_TLS li143[] C_aligned={C_lihdr(0,0,7),40,97,52,54,52,55,41,0};
static C_char C_TLS li144[] C_aligned={C_lihdr(0,0,7),40,97,52,54,54,49,41,0};
static C_char C_TLS li145[] C_aligned={C_lihdr(0,0,17),40,108,111,111,112,32,102,115,56,52,48,32,114,56,52,49,41,0,0,0,0,0,0,0};
static C_char C_TLS li146[] C_aligned={C_lihdr(0,0,15),40,102,95,52,55,49,53,32,46,32,95,56,51,54,41,0};
static C_char C_TLS li147[] C_aligned={C_lihdr(0,0,15),40,102,95,52,55,48,55,32,46,32,95,56,51,53,41,0};
static C_char C_TLS li148[] C_aligned={C_lihdr(0,0,34),40,98,111,100,121,56,50,51,32,97,99,116,105,111,110,56,51,48,32,105,100,56,51,49,32,108,105,109,105,116,56,51,50,41,0,0,0,0,0,0};
static C_char C_TLS li149[] C_aligned={C_lihdr(0,0,38),40,100,101,102,45,108,105,109,105,116,56,50,55,32,37,97,99,116,105,111,110,56,50,48,56,53,53,32,37,105,100,56,50,49,56,53,54,41,0,0};
static C_char C_TLS li150[] C_aligned={C_lihdr(0,0,25),40,100,101,102,45,105,100,56,50,54,32,37,97,99,116,105,111,110,56,50,48,56,53,56,41,0,0,0,0,0,0,0};
static C_char C_TLS li151[] C_aligned={C_lihdr(0,0,17),40,97,52,55,51,53,32,120,56,54,48,32,121,56,54,49,41,0,0,0,0,0,0,0};
static C_char C_TLS li152[] C_aligned={C_lihdr(0,0,15),40,100,101,102,45,97,99,116,105,111,110,56,50,53,41,0};
static C_char C_TLS li153[] C_aligned={C_lihdr(0,0,48),40,102,105,110,100,45,102,105,108,101,115,32,100,105,114,56,49,55,32,112,114,101,100,56,49,56,32,46,32,97,99,116,105,111,110,45,105,100,45,108,105,109,105,116,56,49,57,41};
static C_char C_TLS li154[] C_aligned={C_lihdr(0,0,26),40,99,104,97,110,103,101,45,102,105,108,101,45,111,119,110,101,114,32,46,32,95,56,54,56,41,0,0,0,0,0,0};
static C_char C_TLS li155[] C_aligned={C_lihdr(0,0,20),40,99,114,101,97,116,101,45,102,105,102,111,32,46,32,95,56,55,48,41,0,0,0,0};
static C_char C_TLS li156[] C_aligned={C_lihdr(0,0,23),40,99,114,101,97,116,101,45,115,101,115,115,105,111,110,32,46,32,95,56,55,49,41,0};
static C_char C_TLS li157[] C_aligned={C_lihdr(0,0,29),40,99,114,101,97,116,101,45,115,121,109,98,111,108,105,99,45,108,105,110,107,32,46,32,95,56,55,50,41,0,0,0};
static C_char C_TLS li158[] C_aligned={C_lihdr(0,0,35),40,99,117,114,114,101,110,116,45,101,102,102,101,99,116,105,118,101,45,103,114,111,117,112,45,105,100,32,46,32,95,56,55,51,41,0,0,0,0,0};
static C_char C_TLS li159[] C_aligned={C_lihdr(0,0,34),40,99,117,114,114,101,110,116,45,101,102,102,101,99,116,105,118,101,45,117,115,101,114,45,105,100,32,46,32,95,56,55,52,41,0,0,0,0,0,0};
static C_char C_TLS li160[] C_aligned={C_lihdr(0,0,36),40,99,117,114,114,101,110,116,45,101,102,102,101,99,116,105,118,101,45,117,115,101,114,45,110,97,109,101,32,46,32,95,56,55,53,41,0,0,0,0};
static C_char C_TLS li161[] C_aligned={C_lihdr(0,0,25),40,99,117,114,114,101,110,116,45,103,114,111,117,112,45,105,100,32,46,32,95,56,55,54,41,0,0,0,0,0,0,0};
static C_char C_TLS li162[] C_aligned={C_lihdr(0,0,24),40,99,117,114,114,101,110,116,45,117,115,101,114,45,105,100,32,46,32,95,56,55,55,41};
static C_char C_TLS li163[] C_aligned={C_lihdr(0,0,27),40,109,97,112,45,102,105,108,101,45,116,111,45,109,101,109,111,114,121,32,46,32,95,56,55,56,41,0,0,0,0,0};
static C_char C_TLS li164[] C_aligned={C_lihdr(0,0,18),40,102,105,108,101,45,108,105,110,107,32,46,32,95,56,55,57,41,0,0,0,0,0,0};
static C_char C_TLS li165[] C_aligned={C_lihdr(0,0,18),40,102,105,108,101,45,108,111,99,107,32,46,32,95,56,56,48,41,0,0,0,0,0,0};
static C_char C_TLS li166[] C_aligned={C_lihdr(0,0,27),40,102,105,108,101,45,108,111,99,107,47,98,108,111,99,107,105,110,103,32,46,32,95,56,56,49,41,0,0,0,0,0};
static C_char C_TLS li167[] C_aligned={C_lihdr(0,0,20),40,102,105,108,101,45,115,101,108,101,99,116,32,46,32,95,56,56,50,41,0,0,0,0};
static C_char C_TLS li168[] C_aligned={C_lihdr(0,0,23),40,102,105,108,101,45,116,101,115,116,45,108,111,99,107,32,46,32,95,56,56,51,41,0};
static C_char C_TLS li169[] C_aligned={C_lihdr(0,0,22),40,102,105,108,101,45,116,114,117,110,99,97,116,101,32,46,32,95,56,56,52,41,0,0};
static C_char C_TLS li170[] C_aligned={C_lihdr(0,0,20),40,102,105,108,101,45,117,110,108,111,99,107,32,46,32,95,56,56,53,41,0,0,0,0};
static C_char C_TLS li171[] C_aligned={C_lihdr(0,0,19),40,103,101,116,45,103,114,111,117,112,115,32,46,32,95,56,56,54,41,0,0,0,0,0};
static C_char C_TLS li172[] C_aligned={C_lihdr(0,0,26),40,103,114,111,117,112,45,105,110,102,111,114,109,97,116,105,111,110,32,46,32,95,56,56,55,41,0,0,0,0,0,0};
static C_char C_TLS li173[] C_aligned={C_lihdr(0,0,26),40,105,110,105,116,105,97,108,105,122,101,45,103,114,111,117,112,115,32,46,32,95,56,56,56,41,0,0,0,0,0,0};
static C_char C_TLS li174[] C_aligned={C_lihdr(0,0,35),40,109,101,109,111,114,121,45,109,97,112,112,101,100,45,102,105,108,101,45,112,111,105,110,116,101,114,32,46,32,95,56,56,57,41,0,0,0,0,0};
static C_char C_TLS li175[] C_aligned={C_lihdr(0,0,26),40,112,97,114,101,110,116,45,112,114,111,99,101,115,115,45,105,100,32,46,32,95,56,57,48,41,0,0,0,0,0,0};
static C_char C_TLS li176[] C_aligned={C_lihdr(0,0,21),40,112,114,111,99,101,115,115,45,102,111,114,107,32,46,32,95,56,57,49,41,0,0,0};
static C_char C_TLS li177[] C_aligned={C_lihdr(0,0,25),40,112,114,111,99,101,115,115,45,103,114,111,117,112,45,105,100,32,46,32,95,56,57,50,41,0,0,0,0,0,0,0};
static C_char C_TLS li178[] C_aligned={C_lihdr(0,0,23),40,112,114,111,99,101,115,115,45,115,105,103,110,97,108,32,46,32,95,56,57,51,41,0};
static C_char C_TLS li179[] C_aligned={C_lihdr(0,0,27),40,114,101,97,100,45,115,121,109,98,111,108,105,99,45,108,105,110,107,32,46,32,95,56,57,52,41,0,0,0,0,0};
static C_char C_TLS li180[] C_aligned={C_lihdr(0,0,19),40,115,101,116,45,97,108,97,114,109,33,32,46,32,95,56,57,53,41,0,0,0,0,0};
static C_char C_TLS li181[] C_aligned={C_lihdr(0,0,22),40,115,101,116,45,103,114,111,117,112,45,105,100,33,32,46,32,95,56,57,54,41,0,0};
static C_char C_TLS li182[] C_aligned={C_lihdr(0,0,20),40,115,101,116,45,103,114,111,117,112,115,33,32,46,32,95,56,57,55,41,0,0,0,0};
static C_char C_TLS li183[] C_aligned={C_lihdr(0,0,30),40,115,101,116,45,112,114,111,99,101,115,115,45,103,114,111,117,112,45,105,100,33,32,46,32,95,56,57,56,41,0,0};
static C_char C_TLS li184[] C_aligned={C_lihdr(0,0,28),40,115,101,116,45,114,111,111,116,45,100,105,114,101,99,116,111,114,121,33,32,46,32,95,56,57,57,41,0,0,0,0};
static C_char C_TLS li185[] C_aligned={C_lihdr(0,0,25),40,115,101,116,45,115,105,103,110,97,108,45,109,97,115,107,33,32,46,32,95,57,48,48,41,0,0,0,0,0,0,0};
static C_char C_TLS li186[] C_aligned={C_lihdr(0,0,21),40,115,101,116,45,117,115,101,114,45,105,100,33,32,46,32,95,57,48,49,41,0,0,0};
static C_char C_TLS li187[] C_aligned={C_lihdr(0,0,20),40,115,105,103,110,97,108,45,109,97,115,107,32,46,32,95,57,48,50,41,0,0,0,0};
static C_char C_TLS li188[] C_aligned={C_lihdr(0,0,21),40,115,105,103,110,97,108,45,109,97,115,107,33,32,46,32,95,57,48,51,41,0,0,0};
static C_char C_TLS li189[] C_aligned={C_lihdr(0,0,23),40,115,105,103,110,97,108,45,109,97,115,107,101,100,63,32,46,32,95,57,48,52,41,0};
static C_char C_TLS li190[] C_aligned={C_lihdr(0,0,23),40,115,105,103,110,97,108,45,117,110,109,97,115,107,33,32,46,32,95,57,48,53,41,0};
static C_char C_TLS li191[] C_aligned={C_lihdr(0,0,22),40,116,101,114,109,105,110,97,108,45,110,97,109,101,32,46,32,95,57,48,54,41,0,0};
static C_char C_TLS li192[] C_aligned={C_lihdr(0,0,23),40,116,101,114,109,105,110,97,108,45,112,111,114,116,63,32,46,32,95,57,48,55,41,0};
static C_char C_TLS li193[] C_aligned={C_lihdr(0,0,22),40,116,101,114,109,105,110,97,108,45,115,105,122,101,32,46,32,95,57,48,56,41,0,0};
static C_char C_TLS li194[] C_aligned={C_lihdr(0,0,31),40,117,110,109,97,112,45,102,105,108,101,45,102,114,111,109,45,109,101,109,111,114,121,32,46,32,95,57,48,57,41,0};
static C_char C_TLS li195[] C_aligned={C_lihdr(0,0,25),40,117,115,101,114,45,105,110,102,111,114,109,97,116,105,111,110,32,46,32,95,57,49,48,41,0,0,0,0,0,0,0};
static C_char C_TLS li196[] C_aligned={C_lihdr(0,0,26),40,117,116,99,45,116,105,109,101,45,62,115,101,99,111,110,100,115,32,46,32,95,57,49,49,41,0,0,0,0,0,0};
static C_char C_TLS li197[] C_aligned={C_lihdr(0,0,21),40,115,116,114,105,110,103,45,62,116,105,109,101,32,46,32,95,57,49,50,41,0,0,0};
static C_char C_TLS li198[] C_aligned={C_lihdr(0,0,12),40,102,105,102,111,63,32,95,57,49,51,41,0,0,0,0};
static C_char C_TLS li199[] C_aligned={C_lihdr(0,0,26),40,109,101,109,111,114,121,45,109,97,112,112,101,100,45,102,105,108,101,63,32,95,57,49,52,41,0,0,0,0,0,0};
static C_char C_TLS li200[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0};


/* from k4067 */
static C_word C_fcall stub654(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2,C_word C_a3,C_word C_a4,C_word C_a5,C_word C_a6,C_word C_a7) C_regparm;
C_regparm static C_word C_fcall stub654(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2,C_word C_a3,C_word C_a4,C_word C_a5,C_word C_a6,C_word C_a7){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
char * t0=(char * )C_string_or_null(C_a0);
char * t1=(char * )C_string_or_null(C_a1);
void * t2=(void * )C_c_pointer_or_null(C_a2);
int *t3=(int *)C_c_pointer_or_null(C_a3);