eval.c

Scheme跨平台编译器

/* Generated from eval.scm by the CHICKEN compiler
   http://www.call-with-current-continuation.org
   2008-09-23 22:55
   Version 3.3.0 - linux-unix-gnu-x86	[ manyargs dload ptables applyhook ]
   SVN rev. 11106	compiled 2008-07-08 on galinha (Linux)
   command line: eval.scm -quiet -no-trace -optimize-level 2 -include-path . -include-path ./ -explicit-use -output-file eval.c
   unit: eval
*/

#include "chicken.h"


#ifndef C_INSTALL_EGG_HOME
# define C_INSTALL_EGG_HOME    "."
#endif

#ifndef C_INSTALL_SHARE_HOME
# define C_INSTALL_SHARE_HOME NULL
#endif


#define C_store_result(x, ptr)   (*((C_word *)C_block_item(ptr, 0)) = (x), C_SCHEME_TRUE)


#define C_copy_result_string(str, buf, n)  (C_memcpy((char *)C_block_item(buf, 0), C_c_string(str), C_unfix(n)), ((char *)C_block_item(buf, 0))[ C_unfix(n) ] = '\0', C_SCHEME_TRUE)


C_externexport  void  CHICKEN_get_error_message(char *t0,int t1);

C_externexport  int  CHICKEN_load(char * t0);

C_externexport  int  CHICKEN_read(char * t0,C_word *t1);

C_externexport  int  CHICKEN_apply_to_string(C_word t0,C_word t1,char *t2,int t3);

C_externexport  int  CHICKEN_apply(C_word t0,C_word t1,C_word *t2);

C_externexport  int  CHICKEN_eval_string_to_string(char * t0,char *t1,int t2);

C_externexport  int  CHICKEN_eval_to_string(C_word t0,char *t1,int t2);

C_externexport  int  CHICKEN_eval_string(char * t0,C_word *t1);

C_externexport  int  CHICKEN_eval(C_word t0,C_word *t1);

C_externexport  int  CHICKEN_yield();

static C_PTABLE_ENTRY *create_ptable(void);

static C_TLS C_word lf[526];
static double C_possibly_force_alignment;
static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,99,104,105,99,107,101,110,45,112,114,101,102,105,120,32,46,32,103,49,53,49,54,41,0,0};
static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,14),40,99,104,105,99,107,101,110,45,104,111,109,101,41,0,0};
static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,14),40,97,49,55,57,50,32,102,111,114,109,50,54,41,0,0};
static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,41),40,35,35,115,121,115,35,114,101,103,105,115,116,101,114,45,109,97,99,114,111,45,50,32,110,97,109,101,50,52,32,104,97,110,100,108,101,114,50,53,41,0,0,0,0,0,0,0};
static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,14),40,97,49,56,48,56,32,102,111,114,109,50,57,41,0,0};
static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,39),40,35,35,115,121,115,35,114,101,103,105,115,116,101,114,45,109,97,99,114,111,32,110,97,109,101,50,55,32,104,97,110,100,108,101,114,50,56,41,0};
static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,99,111,112,121,45,109,97,99,114,111,32,111,108,100,51,48,32,110,101,119,51,49,41,0,0};
static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,14),40,109,97,99,114,111,63,32,115,121,109,51,50,41,0,0};
static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,24),40,117,110,100,101,102,105,110,101,45,109,97,99,114,111,33,32,110,97,109,101,51,53,41};
static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,11),40,99,111,112,121,32,112,115,53,48,41,0,0,0,0,0};
static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,7),40,97,49,56,55,57,41,0};
static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,12),40,97,49,56,55,51,32,101,120,52,56,41,0,0,0,0};
static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,7),40,97,49,57,56,54,41,0};
static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,7),40,97,49,57,57,56,41,0};
static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,15),40,97,49,57,57,50,32,46,32,103,52,54,53,52,41,0};
static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,7),40,97,49,57,56,48,41,0};
static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,13),40,97,49,56,54,55,32,103,52,53,52,55,41,0,0,0};
static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,37),40,99,97,108,108,45,104,97,110,100,108,101,114,32,110,97,109,101,52,50,32,104,97,110,100,108,101,114,52,51,32,101,120,112,52,52,41,0,0,0};
static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,10),40,115,99,97,110,32,120,54,52,41,0,0,0,0,0,0};
static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,21),40,101,120,112,97,110,100,32,101,120,112,53,53,32,104,101,97,100,53,54,41,0,0,0};
static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,11),40,97,50,49,53,50,32,98,55,48,41,0,0,0,0,0};
static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,109,97,99,114,111,101,120,112,97,110,100,45,48,32,101,120,112,51,56,32,109,101,51,57,41};
static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,48),40,35,35,115,121,115,35,99,111,109,112,105,108,101,114,45,116,111,112,108,101,118,101,108,45,109,97,99,114,111,101,120,112,97,110,100,45,104,111,111,107,32,101,120,112,55,55,41};
static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,51),40,35,35,115,121,115,35,105,110,116,101,114,112,114,101,116,101,114,45,116,111,112,108,101,118,101,108,45,109,97,99,114,111,101,120,112,97,110,100,45,104,111,111,107,32,101,120,112,55,56,41,0,0,0,0,0};
static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,109,97,99,114,111,101,120,112,97,110,100,45,49,45,108,111,99,97,108,32,101,120,112,55,57,32,109,101,56,48,41,0,0};
static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,7),40,97,50,50,53,51,41,0};
static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,22),40,97,50,50,53,57,32,101,120,112,50,56,54,56,56,32,109,56,55,56,57,41,0,0};
static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,101,120,112,56,53,41,0,0,0,0};
static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,26),40,109,97,99,114,111,101,120,112,97,110,100,32,101,120,112,56,49,32,46,32,109,101,56,50,41,0,0,0,0,0,0};
static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,28),40,109,97,99,114,111,101,120,112,97,110,100,45,49,32,101,120,112,57,51,32,46,32,109,101,57,52,41,0,0,0,0};
static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,108,108,105,115,116,57,55,41,0,0};
static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,101,120,116,101,110,100,101,100,45,108,97,109,98,100,97,45,108,105,115,116,63,32,108,108,105,115,116,57,53,41,0,0,0};
static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,12),40,101,114,114,32,109,115,103,49,49,50,41,0,0,0,0};
static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,12),40,97,50,53,49,52,32,107,49,50,51,41,0,0,0,0};
static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,44),40,108,111,111,112,32,109,111,100,101,49,49,55,32,114,101,113,49,49,56,32,111,112,116,49,49,57,32,107,101,121,49,50,48,32,108,108,105,115,116,49,50,49,41,0,0,0,0};
static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,61),40,35,35,115,121,115,35,101,120,112,97,110,100,45,101,120,116,101,110,100,101,100,45,108,97,109,98,100,97,45,108,105,115,116,32,108,108,105,115,116,48,49,48,55,32,98,111,100,121,49,48,56,32,101,114,114,104,49,48,57,41,0,0,0};
static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,23),40,108,111,111,112,32,98,111,100,121,50,49,54,56,32,101,120,112,115,49,54,57,41,0};
static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,17),40,97,50,57,57,51,32,118,49,55,57,32,116,49,56,48,41,0,0,0,0,0,0,0};
static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,18),40,97,50,57,54,56,32,118,115,49,55,54,32,120,49,55,55,41,0,0,0,0,0,0};
static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,17),40,97,51,48,48,55,32,118,49,55,52,32,120,49,55,53,41,0,0,0,0,0,0,0};
static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,12),40,97,51,48,49,55,32,118,49,55,51,41,0,0,0,0};
static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,48),40,102,105,110,105,32,118,97,114,115,49,54,50,32,118,97,108,115,49,54,51,32,109,118,97,114,115,49,54,52,32,109,118,97,108,115,49,54,53,32,98,111,100,121,49,54,54,41};
static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,50,32,120,49,57,50,41,0,0,0,0};
static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,48),40,108,111,111,112,32,98,111,100,121,49,56,51,32,118,97,114,115,49,56,52,32,118,97,108,115,49,56,53,32,109,118,97,114,115,49,56,54,32,109,118,97,108,115,49,56,55,41};
static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,16),40,101,120,112,97,110,100,32,98,111,100,121,49,56,49,41};
static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,15),40,98,111,100,121,49,53,50,32,109,101,49,53,56,41,0};
static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,28),40,100,101,102,45,99,111,110,116,97,105,110,101,114,49,53,53,32,37,109,101,49,53,48,50,48,54,41,0,0,0,0};
static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,11),40,100,101,102,45,109,101,49,53,52,41,0,0,0,0,0};
static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,53),40,35,35,115,121,115,35,99,97,110,111,110,105,99,97,108,105,122,101,45,98,111,100,121,32,98,111,100,121,49,52,55,32,108,111,111,107,117,112,49,52,56,32,46,32,103,49,52,54,49,52,57,41,0,0,0};
static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,17),40,109,119,97,108,107,32,120,50,49,55,32,112,50,49,56,41,0,0,0,0,0,0,0};
static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,46),40,35,35,115,121,115,35,109,97,116,99,104,45,101,120,112,114,101,115,115,105,111,110,32,101,120,112,50,49,50,32,112,97,116,50,49,51,32,118,97,114,115,50,49,52,41,0,0};
static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,22),40,108,111,111,112,32,104,101,97,100,50,51,50,32,98,111,100,121,50,51,51,41,0,0};
static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,45),40,35,35,115,121,115,35,101,120,112,97,110,100,45,99,117,114,114,105,101,100,45,100,101,102,105,110,101,32,104,101,97,100,50,50,56,32,98,111,100,121,50,50,57,41,0,0,0};
static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,104,97,115,104,45,115,121,109,98,111,108,32,115,50,51,57,32,110,50,52,48,41,0,0,0};
static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0};
static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,104,97,115,104,45,116,97,98,108,101,45,114,101,102,32,104,116,50,52,52,32,107,101,121,50,52,53,41,0,0,0,0,0};
static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,98,117,99,107,101,116,50,53,55,41};
static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,43),40,35,35,115,121,115,35,104,97,115,104,45,116,97,98,108,101,45,115,101,116,33,32,104,116,50,53,49,32,107,101,121,50,53,50,32,118,97,108,50,53,51,41,0,0,0,0,0};
static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,63),40,35,35,115,121,115,35,104,97,115,104,45,116,97,98,108,101,45,117,112,100,97,116,101,33,32,104,116,50,54,48,32,107,101,121,50,54,49,32,117,112,100,116,102,117,110,99,50,54,50,32,118,97,108,117,102,117,110,99,50,54,51,41,0};
static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,17),40,97,51,54,52,57,32,98,117,99,107,101,116,50,55,50,41,0,0,0,0,0,0,0};
static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,12),40,100,111,50,54,57,32,105,50,55,49,41,0,0,0,0};
static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,104,97,115,104,45,116,97,98,108,101,45,102,111,114,45,101,97,99,104,32,112,50,54,54,32,104,116,50,54,55,41,0,0};
static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,24),40,108,111,111,112,50,32,98,117,99,107,101,116,50,56,49,32,108,115,116,50,56,50,41};
static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,18),40,108,111,111,112,32,105,50,55,56,32,108,115,116,50,55,57,41,0,0,0,0,0,0};
static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,104,97,115,104,45,116,97,98,108,101,45,62,97,108,105,115,116,32,104,116,50,55,53,41,0};
static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,98,117,99,107,101,116,50,57,51,41};
static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,48),40,35,35,115,121,115,35,104,97,115,104,45,116,97,98,108,101,45,108,111,99,97,116,105,111,110,32,104,116,50,56,55,32,107,101,121,50,56,56,32,97,100,100,112,50,56,57,41};
static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,12),40,97,51,56,48,48,32,120,51,48,50,41,0,0,0,0};
static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,17),40,97,51,56,49,51,32,112,51,48,51,32,105,51,48,52,41,0,0,0,0,0,0,0};
static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,46),40,35,35,115,121,115,35,101,118,97,108,45,100,101,99,111,114,97,116,111,114,32,112,50,57,56,32,108,108,50,57,57,32,104,51,48,48,32,99,110,116,114,51,48,49,41,0,0};
static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,97,108,105,97,115,45,103,108,111,98,97,108,45,104,111,111,107,32,115,51,48,56,41,0,0};
static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,105,51,54,51,41,0,0,0,0,0};
static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,20),40,108,111,111,112,32,101,110,118,115,51,51,56,32,101,105,51,51,57,41,0,0,0,0};
static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,20),40,108,111,111,107,117,112,32,118,97,114,51,51,53,32,101,51,51,54,41,0,0,0,0};
static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,7),40,97,51,56,57,50,41,0};
static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,17),40,97,51,56,57,56,32,105,51,52,54,32,106,51,52,55,41,0,0,0,0,0,0,0};
static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,22),40,100,101,102,105,110,101,100,63,32,118,97,114,51,52,52,32,101,51,52,53,41,0,0};
static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,33),40,109,97,99,114,111,101,120,112,97,110,100,45,49,45,99,104,101,99,107,101,100,32,120,51,54,53,32,101,51,54,54,41,0,0,0,0,0,0,0};
static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,33),40,101,109,105,116,45,116,114,97,99,101,45,105,110,102,111,32,105,110,102,111,51,55,49,32,99,110,116,114,51,55,50,41,0,0,0,0,0,0,0};
static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,40),40,101,109,105,116,45,115,121,110,116,97,120,45,116,114,97,99,101,45,105,110,102,111,32,105,110,102,111,51,55,52,32,99,110,116,114,51,55,53,41};
static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,34),40,100,101,99,111,114,97,116,101,32,112,51,55,54,32,108,108,51,55,55,32,104,51,55,56,32,99,110,116,114,51,55,57,41,0,0,0,0,0,0};
static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,15),40,102,95,52,48,56,52,32,46,32,118,51,56,53,41,0};
static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,7),40,97,52,48,56,57,41,0};
static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,13),40,102,95,52,49,54,50,32,118,51,57,53,41,0,0,0};
static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,13),40,102,95,52,49,55,49,32,118,51,57,54,41,0,0,0};
static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,15),40,102,95,52,49,49,54,32,46,32,118,51,57,48,41,0};
static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,15),40,102,95,52,49,51,54,32,46,32,118,51,57,51,41,0};
static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,17),40,97,52,48,57,53,32,105,51,56,54,32,106,51,56,55,41,0,0,0,0,0,0,0};
static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,15),40,102,95,52,49,56,56,32,46,32,118,51,57,57,41,0};
static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,15),40,102,95,52,49,57,54,32,46,32,118,52,48,48,41,0};
static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,15),40,102,95,52,50,48,52,32,46,32,118,52,48,49,41,0};
static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,15),40,102,95,52,50,49,50,32,46,32,118,52,48,50,41,0};
static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,15),40,102,95,52,50,49,52,32,46,32,118,52,48,51,41,0};
static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,15),40,102,95,52,50,50,53,32,46,32,118,52,48,52,41,0};
static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,15),40,102,95,52,50,50,55,32,46,32,118,52,48,53,41,0};
static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,15),40,102,95,52,50,51,56,32,46,32,118,52,49,48,41,0};
static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,15),40,102,95,52,50,57,55,32,46,32,118,52,49,56,41,0};
static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,15),40,102,95,52,51,48,53,32,46,32,118,52,49,57,41,0};
static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,15),40,102,95,52,51,49,51,32,46,32,118,52,50,48,41,0};
static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,15),40,102,95,52,51,50,49,32,46,32,118,52,50,49,41,0};
static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,15),40,102,95,52,51,50,57,32,46,32,118,52,50,50,41,0};
static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,15),40,102,95,52,51,51,55,32,46,32,118,52,50,51,41,0};