/*===========================================================================*/
/*   (Ieee/input.scm)                                                        */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -O4 -mklib -cc gcc-2.95 -fsharing -q -s -copt -DBGL_NO_PIC -unsafe -c Ieee/input.scm -indent -o objs/obj_u/Ieee/input.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>
#include <signal.h>

static long BGl_STATEzd22zd21034_2540z00zz__r4_input_6_10_2z00(obj_t, long);
BGL_EXPORTED_DECL obj_t BGl_readzd2charzd2zz__r4_input_6_10_2z00(obj_t);
static long BGl_STATEzd22zd21034_2541z00zz__r4_input_6_10_2z00(obj_t, long);
static long BGl_loopz00zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long, char *);
extern obj_t bgl_sendchars(obj_t, obj_t, int);
static obj_t BGl__peekzd2charzd2zz__r4_input_6_10_2z00(obj_t, obj_t);
static obj_t BGl__readzd2chars2547zd2zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t);
extern obj_t make_string(int, unsigned char);
extern obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_readzf2rpzf2zz__r4_input_6_10_2z00(obj_t, obj_t);
static obj_t BGl__readzd2stringzd2zz__r4_input_6_10_2z00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31675ze3z83zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t);
static obj_t BGl_STATEzd20zd21003z00zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t);
extern int rgc_blit_string(obj_t, obj_t, int, int);
static obj_t BGl__readzd2ofzd2stringsz00zz__r4_input_6_10_2z00(obj_t, obj_t);
static obj_t BGl_STATEzd20zd21009z00zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_eofzd2objectzf3z21zz__r4_input_6_10_2z00(obj_t);
BGL_EXPORTED_DECL int BGl_sendzd2charszd2zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31226ze3z83zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t);
static obj_t BGl_STATEzd20zd21014z00zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31049ze3z83zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_za2aboutzd2tozd2readza2z00zz__r4_input_6_10_2z00 = BUNSPEC;
static long BGl_STATEzd20zd21032z00zz__r4_input_6_10_2z00(obj_t, obj_t);
static obj_t BGl__sendzd2chars2551zd2zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_STATEzd20zd21038z00zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_charzd2readyzf3z21zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl__readzf2lalrpzf2zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t c_substring(obj_t, int, int);
BGL_EXPORTED_DECL obj_t BGl_readzd2linezd2zz__r4_input_6_10_2z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_readzd2stringzd2zz__r4_input_6_10_2z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_readzd2charszd2zz__r4_input_6_10_2z00(int, obj_t);
static obj_t BGl__eofzd2objectzf3z21zz__r4_input_6_10_2z00(obj_t, obj_t);
extern obj_t BGl_displayzd22zd2zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_STATEzd20zd21032_2544z00zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__r4_input_6_10_2z00();
extern obj_t bgl_string_shrink(obj_t, int);
BGL_EXPORTED_DECL obj_t BGl_readzd2ofzd2stringsz00zz__r4_input_6_10_2z00(obj_t);
static long BGl_STATEzd22zd21034z00zz__r4_input_6_10_2z00(obj_t, long, obj_t);
static obj_t BGl__readzd2linezd2zz__r4_input_6_10_2z00(obj_t, obj_t);
extern obj_t blit_string(obj_t, int, obj_t, int, int);
static obj_t BGl_requirezd2initializa7ationz75zz__r4_input_6_10_2z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_readzd2lineszd2zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00 = BUNSPEC;
BGL_EXPORTED_DECL int BGl_readzd2fillzd2stringz12z12zz__r4_input_6_10_2z00(obj_t, int, int, obj_t);
static obj_t BGl__readzd2lineszd2zz__r4_input_6_10_2z00(obj_t, obj_t);
extern obj_t rgc_buffer_substring(obj_t, int, int);
static obj_t BGl_thezd2failurezd2zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl_thezd2failure_2535zd2zz__r4_input_6_10_2z00(obj_t);
extern obj_t make_string_sans_fill(int);
static long BGl_STATEzd21zd21033_2542z00zz__r4_input_6_10_2z00(obj_t, obj_t);
static long BGl_STATEzd21zd21033_2543z00zz__r4_input_6_10_2z00(obj_t, obj_t);
extern int default_io_bufsiz;
extern bool_t rgc_fill_buffer(obj_t);
extern bool_t rgc_buffer_eof_p(obj_t);
extern bool_t bgl_rgc_charready(obj_t);
static obj_t BGl_ignore_2539z00zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_ignorez00zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_ignore_2534z00zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31322ze3z83zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t);
static obj_t BGl__readzd2fillzd2stringz122549z12zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_peekzd2charzd2zz__r4_input_6_10_2z00(obj_t);
static long BGl_STATEzd21zd21033z00zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31427ze3z83zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t);
static obj_t BGl_thezd2substringzd2zz__r4_input_6_10_2z00(obj_t, long, long);
static obj_t BGl__readzd2charzd2zz__r4_input_6_10_2z00(obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zz__r4_input_6_10_2z00();
extern int rgc_buffer_unget_char(obj_t, int);
BGL_EXPORTED_DECL obj_t BGl_readzf2lalrpzf2zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__charzd2readyzf3z21zz__r4_input_6_10_2z00(obj_t, obj_t);
static obj_t BGl__readzf2rpzf2zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t);
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_readzd2stringzd2envz00zz__r4_input_6_10_2z00, BgL_bgl__readza7d2stringza7d2za7za7__r4_input_6_10_2za7002831za7, va_generic_entry, BGl__readzd2stringzd2zz__r4_input_6_10_2z00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_readzd2fillzd2stringz12zd2envzc0zz__r4_input_6_10_2z00, BgL_bgl__readza7d2fillza7d2stringza7122549za712za7za7__r4_input_6_10_2za7002832za7, va_generic_entry, BGl__readzd2fillzd2stringz122549z12zz__r4_input_6_10_2z00, -4 );
DEFINE_EXPORT_PROCEDURE( BGl_readzd2charzd2envz00zz__r4_input_6_10_2z00, BgL_bgl__readza7d2charza7d2za7za7__r4_input_6_10_2za7002833za7, va_generic_entry, BGl__readzd2charzd2zz__r4_input_6_10_2z00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_sendzd2charszd2envz00zz__r4_input_6_10_2z00, BgL_bgl__sendza7d2chars2551za7d2za7za7__r4_input_6_10_2za7002834za7, va_generic_entry, BGl__sendzd2chars2551zd2zz__r4_input_6_10_2z00, -3 );
DEFINE_EXPORT_PROCEDURE( BGl_peekzd2charzd2envz00zz__r4_input_6_10_2z00, BgL_bgl__peekza7d2charza7d2za7za7__r4_input_6_10_2za7002835za7, va_generic_entry, BGl__peekzd2charzd2zz__r4_input_6_10_2z00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_readzf2rpzd2envz20zz__r4_input_6_10_2z00, BgL_bgl__readza7f2rpza7f2za7za7__r4_input_6_10_2za7002836za7, BGl__readzf2rpzf2zz__r4_input_6_10_2z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_charzd2readyzf3zd2envzf3zz__r4_input_6_10_2z00, BgL_bgl__charza7d2readyza7f3za721za7za7__r4_input_6_10_2za7002837z00, va_generic_entry, BGl__charzd2readyzf3z21zz__r4_input_6_10_2z00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_readzd2lineszd2envz00zz__r4_input_6_10_2z00, BgL_bgl__readza7d2linesza7d2za7za7__r4_input_6_10_2za7002838za7, va_generic_entry, BGl__readzd2lineszd2zz__r4_input_6_10_2z00, -1 );
DEFINE_STRING( BGl_string2822z00zz__r4_input_6_10_2z00, BgL_bgl_string2822za700za7za7__r4_input_6_10_2za7002839z00, "Illegal range", 13 );
DEFINE_STRING( BGl_string2821z00zz__r4_input_6_10_2z00, BgL_bgl_string2821za700za7za7__r4_input_6_10_2za7002840z00, "the-substring", 13 );
DEFINE_STRING( BGl_string2820z00zz__r4_input_6_10_2z00, BgL_bgl_string2820za700za7za7__r4_input_6_10_2za7002841z00, "", 0 );
DEFINE_STRING( BGl_string2816z00zz__r4_input_6_10_2z00, BgL_bgl_string2816za700za7za7__r4_input_6_10_2za7002842z00, "Illegal match", 13 );
DEFINE_STRING( BGl_string2815z00zz__r4_input_6_10_2z00, BgL_bgl_string2815za700za7za7__r4_input_6_10_2za7002843z00, "regular-grammar", 15 );
DEFINE_EXPORT_PROCEDURE( BGl_readzd2linezd2envz00zz__r4_input_6_10_2z00, BgL_bgl__readza7d2lineza7d2za7za7__r4_input_6_10_2za7002844za7, va_generic_entry, BGl__readzd2linezd2zz__r4_input_6_10_2z00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_eofzd2objectzf3zd2envzf3zz__r4_input_6_10_2z00, BgL_bgl__eofza7d2objectza7f3za721za7za7__r4_input_6_10_2za7002845z00, BGl__eofzd2objectzf3z21zz__r4_input_6_10_2z00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc2817z00zz__r4_input_6_10_2z00, BgL_bgl_stateza7d20za7d21038za700za7za7__r4_input_6_10_2za7002846z00, BGl_STATEzd20zd21038z00zz__r4_input_6_10_2z00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc2818z00zz__r4_input_6_10_2z00, BgL_bgl_stateza7d20za7d21003za700za7za7__r4_input_6_10_2za7002847z00, BGl_STATEzd20zd21003z00zz__r4_input_6_10_2z00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc2819z00zz__r4_input_6_10_2z00, BgL_bgl_stateza7d20za7d21009za700za7za7__r4_input_6_10_2za7002848z00, BGl_STATEzd20zd21009z00zz__r4_input_6_10_2z00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc2823z00zz__r4_input_6_10_2z00, BgL_bgl_stateza7d20za7d21014za700za7za7__r4_input_6_10_2za7002849z00, BGl_STATEzd20zd21014z00zz__r4_input_6_10_2z00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc2824z00zz__r4_input_6_10_2z00, BgL_bgl_stateza7d20za7d21032_2544za700za7za7__r4_input_6_10_2za7002850z00, BGl_STATEzd20zd21032_2544z00zz__r4_input_6_10_2z00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_readzf2lalrpzd2envz20zz__r4_input_6_10_2z00, BgL_bgl__readza7f2lalrpza7f2za7za7__r4_input_6_10_2za7002851za7, va_generic_entry, BGl__readzf2lalrpzf2zz__r4_input_6_10_2z00, -4 );
DEFINE_EXPORT_PROCEDURE( BGl_readzd2charszd2envz00zz__r4_input_6_10_2z00, BgL_bgl__readza7d2chars2547za7d2za7za7__r4_input_6_10_2za7002852za7, va_generic_entry, BGl__readzd2chars2547zd2zz__r4_input_6_10_2z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_readzd2ofzd2stringszd2envzd2zz__r4_input_6_10_2z00, BgL_bgl__readza7d2ofza7d2stringsza700za7za7__r4_input_6_10_2za7002853z00, va_generic_entry, BGl__readzd2ofzd2stringsz00zz__r4_input_6_10_2z00, -1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(long BgL_checksumz00_2317, char * BgL_fromz00_2318)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__r4_input_6_10_2z00))
{ 
BGl_requirezd2initializa7ationz75zz__r4_input_6_10_2z00 = 
BBOOL(((bool_t)0)); 
BGl_importedzd2moduleszd2initz00zz__r4_input_6_10_2z00(); 
BGl_toplevelzd2initzd2zz__r4_input_6_10_2z00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__r4_input_6_10_2z00()
{ AN_OBJECT;
{ /* ./Ieee/input.scm 14 */
{ /* ./Ieee/input.scm 194 */
obj_t BgL_thezd2rgczd2contextz00_367;
BgL_thezd2rgczd2contextz00_367 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Ieee/input.scm 194 */
obj_t BgL_zc3anonymousza31049ze3z83_2174;
{ 
int BgL_auxz00_2326;int BgL_auxz00_2324;
BgL_auxz00_2326 = 
(int)(((long)1)); 
BgL_auxz00_2324 = 
(int)(((long)2)); 
BgL_zc3anonymousza31049ze3z83_2174 = 
make_fx_procedure(BGl_zc3anonymousza31049ze3z83zz__r4_input_6_10_2z00, BgL_auxz00_2324, BgL_auxz00_2326); } 
{ /* ./Ieee/input.scm 194 */
int BgL_auxz00_2329;
BgL_auxz00_2329 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31049ze3z83_2174, BgL_auxz00_2329, BgL_thezd2rgczd2contextz00_367); } 
BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00 = BgL_zc3anonymousza31049ze3z83_2174; } } 
return ( 
BGl_za2aboutzd2tozd2readza2z00zz__r4_input_6_10_2z00 = BUNSPEC, BUNSPEC) ;} 
}



/* ignore */
obj_t BGl_ignorez00zz__r4_input_6_10_2z00(obj_t BgL_statezd20zd21038z00_2178, obj_t BgL_thezd2rgczd2contextz00_2177, obj_t BgL_procz00_2176, obj_t BgL_inputzd2portzd2_2175)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 194 */
BGl_ignorez00zz__r4_input_6_10_2z00:
RGC_START_MATCH(BgL_inputzd2portzd2_2175); 
{ /* ./Ieee/input.scm 194 */
long BgL_matchz00_394;
if(
PROCEDUREP(BgL_procz00_2176))
{ /* ./Ieee/input.scm 194 */
obj_t BgL_auxz00_2335;
BgL_auxz00_2335 = 
PROCEDURE_ENTRY(BgL_procz00_2176)(BgL_procz00_2176, BgL_statezd20zd21038z00_2178, BgL_inputzd2portzd2_2175, 
BINT(((long)2)), 
CELL_REF(BgL_thezd2rgczd2contextz00_2177), BEOA); 
BgL_matchz00_394 = 
(long)CINT(BgL_auxz00_2335); }  else 
{ /* ./Ieee/input.scm 194 */
obj_t BgL_auxz00_2340;
BgL_auxz00_2340 = 
BGl_STATEzd20zd21038z00zz__r4_input_6_10_2z00(BgL_statezd20zd21038z00_2178, BgL_inputzd2portzd2_2175, 
BINT(((long)2)), 
CELL_REF(BgL_thezd2rgczd2contextz00_2177)); 
BgL_matchz00_394 = 
(long)CINT(BgL_auxz00_2340); } 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_2175); 
switch( BgL_matchz00_394) { case ((long)2) : 

return 
BGl_thezd2failurezd2zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_2175);break;case ((long)1) : 

{ /* ./Ieee/input.scm 198 */
obj_t BgL_res2485z00_1258;
{ /* ./Ieee/input.scm 198 */
int BgL_arg1120z00_1252;
{ /* ./Ieee/input.scm 198 */
int BgL_res2484z00_1254;
{ /* ./Ieee/input.scm 198 */
long BgL_auxz00_2346;
BgL_auxz00_2346 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_2175); 
BgL_res2484z00_1254 = 
(int)(BgL_auxz00_2346); } 
BgL_arg1120z00_1252 = BgL_res2484z00_1254; } 
{ /* ./Ieee/input.scm 198 */
int BgL_auxz00_2349;
BgL_auxz00_2349 = 
(int)(((long)0)); 
BgL_res2485z00_1258 = 
rgc_buffer_substring(BgL_inputzd2portzd2_2175, BgL_auxz00_2349, BgL_arg1120z00_1252); } } 
return BgL_res2485z00_1258;} break;case ((long)0) : 

{ 

goto BGl_ignorez00zz__r4_input_6_10_2z00;} break;
default: 
{ /* ./Ieee/input.scm 194 */
obj_t BgL_objectz00_1261;
BgL_objectz00_1261 = 
BINT(BgL_matchz00_394); 
FAILURE(BGl_string2815z00zz__r4_input_6_10_2z00,BGl_string2816z00zz__r4_input_6_10_2z00,BgL_objectz00_1261);} } } } 
}



/* the-failure */
obj_t BGl_thezd2failurezd2zz__r4_input_6_10_2z00(obj_t BgL_inputzd2portzd2_2179)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 194 */
{ /* ./Ieee/input.scm 194 */
bool_t BgL_test1075z00_408;
{ /* ./Ieee/input.scm 194 */
int BgL_arg1084z00_411;
{ /* ./Ieee/input.scm 194 */
int BgL_res2486z00_1269;
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2355;
BgL_auxz00_2355 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_2179); 
BgL_res2486z00_1269 = 
(int)(BgL_auxz00_2355); } 
BgL_arg1084z00_411 = BgL_res2486z00_1269; } 
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2358;
BgL_auxz00_2358 = 
(long)(BgL_arg1084z00_411); 
BgL_test1075z00_408 = 
(BgL_auxz00_2358==((long)0)); } } 
if(BgL_test1075z00_408)
{ /* ./Ieee/input.scm 194 */
return BCNST(256);}  else 
{ /* ./Ieee/input.scm 194 */
obj_t BgL_arg1079z00_409;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_res2488z00_1279;
{ /* ./Ieee/input.scm 194 */
int BgL_arg1120z00_1273;
{ /* ./Ieee/input.scm 194 */
int BgL_res2487z00_1275;
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2362;
BgL_auxz00_2362 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_2179); 
BgL_res2487z00_1275 = 
(int)(BgL_auxz00_2362); } 
BgL_arg1120z00_1273 = BgL_res2487z00_1275; } 
{ /* ./Ieee/input.scm 194 */
int BgL_auxz00_2365;
BgL_auxz00_2365 = 
(int)(((long)0)); 
BgL_res2488z00_1279 = 
rgc_buffer_substring(BgL_inputzd2portzd2_2179, BgL_auxz00_2365, BgL_arg1120z00_1273); } } 
BgL_arg1079z00_409 = BgL_res2488z00_1279; } 
{ /* ./Ieee/input.scm 194 */
unsigned char BgL_auxz00_2368;
{ /* ./Ieee/input.scm 194 */
int BgL_auxz00_2369;
BgL_auxz00_2369 = 
(int)(((long)0)); 
BgL_auxz00_2368 = 
STRING_REF(BgL_arg1079z00_409, BgL_auxz00_2369); } 
return 
BCHAR(BgL_auxz00_2368);} } } } 
}



/* <anonymous:1049> */
obj_t BGl_zc3anonymousza31049ze3z83zz__r4_input_6_10_2z00(obj_t BgL_envz00_2180, obj_t BgL_inputzd2portzd2_2182, obj_t BgL_procz00_2183)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 194 */
{ /* ./Ieee/input.scm 194 */
obj_t BgL_thezd2rgczd2contextz00_2181;
{ /* ./Ieee/input.scm 194 */
int BgL_auxz00_2373;
BgL_auxz00_2373 = 
(int)(((long)0)); 
BgL_thezd2rgczd2contextz00_2181 = 
PROCEDURE_REF(BgL_envz00_2180, BgL_auxz00_2373); } 
{ 
obj_t BgL_inputzd2portzd2_368;obj_t BgL_procz00_369;
BgL_inputzd2portzd2_368 = BgL_inputzd2portzd2_2182; 
BgL_procz00_369 = BgL_procz00_2183; 
return 
BGl_ignorez00zz__r4_input_6_10_2z00(BGl_proc2817z00zz__r4_input_6_10_2z00, BgL_thezd2rgczd2contextz00_2181, BgL_procz00_369, BgL_inputzd2portzd2_368);} } } 
}



/* STATE-0-1038 */
obj_t BGl_STATEzd20zd21038z00zz__r4_input_6_10_2z00(obj_t BgL_envz00_2184, obj_t BgL_inputzd2portzd2_2185, obj_t BgL_lastzd2matchzd2_2186, obj_t BgL_thezd2rgczd2contextz00_2187)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 194 */
{ 
obj_t BgL_inputzd2portzd2_458;obj_t BgL_lastzd2matchzd2_459;obj_t BgL_thezd2rgczd2contextz00_460;
BgL_inputzd2portzd2_458 = BgL_inputzd2portzd2_2185; 
BgL_lastzd2matchzd2_459 = BgL_lastzd2matchzd2_2186; 
BgL_thezd2rgczd2contextz00_460 = BgL_thezd2rgczd2contextz00_2187; 
BgL_zc3anonymousza31162ze3z83_461:
{ 
obj_t BgL_inputzd2portzd2_469;obj_t BgL_lastzd2matchzd2_470;obj_t BgL_thezd2rgczd2contextz00_471;obj_t BgL_inputzd2portzd2_434;obj_t BgL_lastzd2matchzd2_435;obj_t BgL_thezd2rgczd2contextz00_436;obj_t BgL_inputzd2portzd2_446;long BgL_lastzd2matchzd2_447;obj_t BgL_thezd2rgczd2contextz00_448;obj_t BgL_inputzd2portzd2_480;long BgL_lastzd2matchzd2_481;obj_t BgL_thezd2rgczd2contextz00_482;
{ /* ./Ieee/input.scm 194 */
int BgL_currentzd2charzd2_462;
BgL_currentzd2charzd2_462 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_458); 
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_2378;
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2379;
BgL_auxz00_2379 = 
(long)(BgL_currentzd2charzd2_462); 
BgL_testz00_2378 = 
(BgL_auxz00_2379==((long)0)); } 
if(BgL_testz00_2378)
{ /* ./Ieee/input.scm 194 */
{ /* ./Ieee/input.scm 194 */
bool_t BgL_test1164z00_464;
BgL_test1164z00_464 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_458); 
if(BgL_test1164z00_464)
{ /* ./Ieee/input.scm 194 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_458))
{ 

goto BgL_zc3anonymousza31162ze3z83_461;}  else 
{ /* ./Ieee/input.scm 194 */
return BgL_lastzd2matchzd2_459;} }  else 
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2386;
BgL_inputzd2portzd2_434 = BgL_inputzd2portzd2_458; 
BgL_lastzd2matchzd2_435 = BgL_lastzd2matchzd2_459; 
BgL_thezd2rgczd2contextz00_436 = BgL_thezd2rgczd2contextz00_460; 
BgL_zc3anonymousza31126ze3z83_437:
{ /* ./Ieee/input.scm 194 */
long BgL_newzd2matchzd2_438;
RGC_STOP_MATCH(BgL_inputzd2portzd2_434); 
BgL_newzd2matchzd2_438 = ((long)1); 
{ /* ./Ieee/input.scm 194 */
int BgL_currentzd2charzd2_439;
BgL_currentzd2charzd2_439 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_434); 
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_2389;
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2390;
BgL_auxz00_2390 = 
(long)(BgL_currentzd2charzd2_439); 
BgL_testz00_2389 = 
(BgL_auxz00_2390==((long)0)); } 
if(BgL_testz00_2389)
{ /* ./Ieee/input.scm 194 */
{ /* ./Ieee/input.scm 194 */
bool_t BgL_test1128z00_441;
BgL_test1128z00_441 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_434); 
if(BgL_test1128z00_441)
{ /* ./Ieee/input.scm 194 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_434))
{ 

goto BgL_zc3anonymousza31126ze3z83_437;}  else 
{ /* ./Ieee/input.scm 194 */
BgL_auxz00_2386 = BgL_newzd2matchzd2_438
; } }  else 
{ /* ./Ieee/input.scm 194 */
BgL_inputzd2portzd2_446 = BgL_inputzd2portzd2_434; 
BgL_lastzd2matchzd2_447 = BgL_newzd2matchzd2_438; 
BgL_thezd2rgczd2contextz00_448 = BgL_thezd2rgczd2contextz00_436; 
BgL_zc3anonymousza31144ze3z83_449:
{ /* ./Ieee/input.scm 194 */
long BgL_newzd2matchzd2_450;
RGC_STOP_MATCH(BgL_inputzd2portzd2_446); 
BgL_newzd2matchzd2_450 = ((long)1); 
{ /* ./Ieee/input.scm 194 */
int BgL_currentzd2charzd2_451;
BgL_currentzd2charzd2_451 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_446); 
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_2399;
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2400;
BgL_auxz00_2400 = 
(long)(BgL_currentzd2charzd2_451); 
BgL_testz00_2399 = 
(BgL_auxz00_2400==((long)0)); } 
if(BgL_testz00_2399)
{ /* ./Ieee/input.scm 194 */
{ /* ./Ieee/input.scm 194 */
bool_t BgL_test1146z00_453;
BgL_test1146z00_453 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_446); 
if(BgL_test1146z00_453)
{ /* ./Ieee/input.scm 194 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_446))
{ 

goto BgL_zc3anonymousza31144ze3z83_449;}  else 
{ /* ./Ieee/input.scm 194 */
BgL_auxz00_2386 = BgL_newzd2matchzd2_450
; } }  else 
{ 
long BgL_lastzd2matchzd2_2407;
BgL_lastzd2matchzd2_2407 = BgL_newzd2matchzd2_450; 
BgL_lastzd2matchzd2_447 = BgL_lastzd2matchzd2_2407; 
goto BgL_zc3anonymousza31144ze3z83_449;} } }  else 
{ /* ./Ieee/input.scm 194 */
bool_t BgL_test1152z00_455;
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_2408;
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_2409;
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2410;
BgL_auxz00_2410 = 
(long)(BgL_currentzd2charzd2_451); 
BgL_testz00_2409 = 
(BgL_auxz00_2410==((long)10)); } 
if(BgL_testz00_2409)
{ /* ./Ieee/input.scm 194 */
BgL_testz00_2408 = ((bool_t)1)
; }  else 
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2413;
BgL_auxz00_2413 = 
(long)(BgL_currentzd2charzd2_451); 
BgL_testz00_2408 = 
(BgL_auxz00_2413==((long)9)); } } 
if(BgL_testz00_2408)
{ /* ./Ieee/input.scm 194 */
BgL_test1152z00_455 = ((bool_t)1); }  else 
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2416;
BgL_auxz00_2416 = 
(long)(BgL_currentzd2charzd2_451); 
BgL_test1152z00_455 = 
(BgL_auxz00_2416==((long)32)); } } 
if(BgL_test1152z00_455)
{ /* ./Ieee/input.scm 194 */
BgL_auxz00_2386 = BgL_newzd2matchzd2_450; }  else 
{ /* ./Ieee/input.scm 194 */
{ 
long BgL_lastzd2matchzd2_2420;
BgL_lastzd2matchzd2_2420 = BgL_newzd2matchzd2_450; 
BgL_lastzd2matchzd2_447 = BgL_lastzd2matchzd2_2420; 
goto BgL_zc3anonymousza31144ze3z83_449;} } } } } } } } }  else 
{ /* ./Ieee/input.scm 194 */
bool_t BgL_test1134z00_443;
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_2421;
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_2422;
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2423;
BgL_auxz00_2423 = 
(long)(BgL_currentzd2charzd2_439); 
BgL_testz00_2422 = 
(BgL_auxz00_2423==((long)10)); } 
if(BgL_testz00_2422)
{ /* ./Ieee/input.scm 194 */
BgL_testz00_2421 = ((bool_t)1)
; }  else 
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2426;
BgL_auxz00_2426 = 
(long)(BgL_currentzd2charzd2_439); 
BgL_testz00_2421 = 
(BgL_auxz00_2426==((long)9)); } } 
if(BgL_testz00_2421)
{ /* ./Ieee/input.scm 194 */
BgL_test1134z00_443 = ((bool_t)1); }  else 
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2429;
BgL_auxz00_2429 = 
(long)(BgL_currentzd2charzd2_439); 
BgL_test1134z00_443 = 
(BgL_auxz00_2429==((long)32)); } } 
if(BgL_test1134z00_443)
{ /* ./Ieee/input.scm 194 */
BgL_auxz00_2386 = BgL_newzd2matchzd2_438; }  else 
{ /* ./Ieee/input.scm 194 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2435;long BgL_lastzd2matchzd2_2434;obj_t BgL_inputzd2portzd2_2433;
BgL_inputzd2portzd2_2433 = BgL_inputzd2portzd2_434; 
BgL_lastzd2matchzd2_2434 = BgL_newzd2matchzd2_438; 
BgL_thezd2rgczd2contextz00_2435 = BgL_thezd2rgczd2contextz00_436; 
BgL_thezd2rgczd2contextz00_448 = BgL_thezd2rgczd2contextz00_2435; 
BgL_lastzd2matchzd2_447 = BgL_lastzd2matchzd2_2434; 
BgL_inputzd2portzd2_446 = BgL_inputzd2portzd2_2433; 
goto BgL_zc3anonymousza31144ze3z83_449;} } } } } } 
return 
BINT(BgL_auxz00_2386);} } }  else 
{ /* ./Ieee/input.scm 194 */
bool_t BgL_test1170z00_466;
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_2437;
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_2438;
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2439;
BgL_auxz00_2439 = 
(long)(BgL_currentzd2charzd2_462); 
BgL_testz00_2438 = 
(BgL_auxz00_2439==((long)10)); } 
if(BgL_testz00_2438)
{ /* ./Ieee/input.scm 194 */
BgL_testz00_2437 = ((bool_t)1)
; }  else 
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2442;
BgL_auxz00_2442 = 
(long)(BgL_currentzd2charzd2_462); 
BgL_testz00_2437 = 
(BgL_auxz00_2442==((long)9)); } } 
if(BgL_testz00_2437)
{ /* ./Ieee/input.scm 194 */
BgL_test1170z00_466 = ((bool_t)1); }  else 
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2445;
BgL_auxz00_2445 = 
(long)(BgL_currentzd2charzd2_462); 
BgL_test1170z00_466 = 
(BgL_auxz00_2445==((long)32)); } } 
if(BgL_test1170z00_466)
{ /* ./Ieee/input.scm 194 */
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2449;
BgL_inputzd2portzd2_469 = BgL_inputzd2portzd2_458; 
BgL_lastzd2matchzd2_470 = BgL_lastzd2matchzd2_459; 
BgL_thezd2rgczd2contextz00_471 = BgL_thezd2rgczd2contextz00_460; 
BgL_zc3anonymousza31180ze3z83_472:
{ /* ./Ieee/input.scm 194 */
long BgL_newzd2matchzd2_473;
RGC_STOP_MATCH(BgL_inputzd2portzd2_469); 
BgL_newzd2matchzd2_473 = ((long)0); 
{ /* ./Ieee/input.scm 194 */
int BgL_currentzd2charzd2_474;
BgL_currentzd2charzd2_474 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_469); 
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_2452;
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2453;
BgL_auxz00_2453 = 
(long)(BgL_currentzd2charzd2_474); 
BgL_testz00_2452 = 
(BgL_auxz00_2453==((long)0)); } 
if(BgL_testz00_2452)
{ /* ./Ieee/input.scm 194 */
{ /* ./Ieee/input.scm 194 */
bool_t BgL_test1182z00_476;
{ /* ./Ieee/input.scm 194 */
bool_t BgL_res2490z00_1333;
{ /* ./Ieee/input.scm 194 */
bool_t BgL__andtest_1047z00_1330;
BgL__andtest_1047z00_1330 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_469); 
if(BgL__andtest_1047z00_1330)
{ /* ./Ieee/input.scm 194 */
BgL_res2490z00_1333 = 
rgc_fill_buffer(BgL_inputzd2portzd2_469); }  else 
{ /* ./Ieee/input.scm 194 */
BgL_res2490z00_1333 = ((bool_t)0); } } 
BgL_test1182z00_476 = BgL_res2490z00_1333; } 
if(BgL_test1182z00_476)
{ 

goto BgL_zc3anonymousza31180ze3z83_472;}  else 
{ /* ./Ieee/input.scm 194 */
BgL_auxz00_2449 = BgL_newzd2matchzd2_473
; } } }  else 
{ /* ./Ieee/input.scm 194 */
bool_t BgL_test1185z00_477;
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_2460;
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_2461;
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2462;
BgL_auxz00_2462 = 
(long)(BgL_currentzd2charzd2_474); 
BgL_testz00_2461 = 
(BgL_auxz00_2462==((long)10)); } 
if(BgL_testz00_2461)
{ /* ./Ieee/input.scm 194 */
BgL_testz00_2460 = ((bool_t)1)
; }  else 
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2465;
BgL_auxz00_2465 = 
(long)(BgL_currentzd2charzd2_474); 
BgL_testz00_2460 = 
(BgL_auxz00_2465==((long)9)); } } 
if(BgL_testz00_2460)
{ /* ./Ieee/input.scm 194 */
BgL_test1185z00_477 = ((bool_t)1); }  else 
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2468;
BgL_auxz00_2468 = 
(long)(BgL_currentzd2charzd2_474); 
BgL_test1185z00_477 = 
(BgL_auxz00_2468==((long)32)); } } 
if(BgL_test1185z00_477)
{ /* ./Ieee/input.scm 194 */
BgL_inputzd2portzd2_480 = BgL_inputzd2portzd2_469; 
BgL_lastzd2matchzd2_481 = BgL_newzd2matchzd2_473; 
BgL_thezd2rgczd2contextz00_482 = BgL_thezd2rgczd2contextz00_471; 
BgL_zc3anonymousza31195ze3z83_483:
{ /* ./Ieee/input.scm 194 */
long BgL_newzd2matchzd2_484;
RGC_STOP_MATCH(BgL_inputzd2portzd2_480); 
BgL_newzd2matchzd2_484 = ((long)0); 
{ /* ./Ieee/input.scm 194 */
int BgL_currentzd2charzd2_485;
BgL_currentzd2charzd2_485 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_480); 
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_2474;
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2475;
BgL_auxz00_2475 = 
(long)(BgL_currentzd2charzd2_485); 
BgL_testz00_2474 = 
(BgL_auxz00_2475==((long)0)); } 
if(BgL_testz00_2474)
{ /* ./Ieee/input.scm 194 */
{ /* ./Ieee/input.scm 194 */
bool_t BgL_test1197z00_487;
{ /* ./Ieee/input.scm 194 */
bool_t BgL_res2491z00_1348;
{ /* ./Ieee/input.scm 194 */
bool_t BgL__andtest_1047z00_1345;
BgL__andtest_1047z00_1345 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_480); 
if(BgL__andtest_1047z00_1345)
{ /* ./Ieee/input.scm 194 */
BgL_res2491z00_1348 = 
rgc_fill_buffer(BgL_inputzd2portzd2_480); }  else 
{ /* ./Ieee/input.scm 194 */
BgL_res2491z00_1348 = ((bool_t)0); } } 
BgL_test1197z00_487 = BgL_res2491z00_1348; } 
if(BgL_test1197z00_487)
{ 

goto BgL_zc3anonymousza31195ze3z83_483;}  else 
{ /* ./Ieee/input.scm 194 */
BgL_auxz00_2449 = BgL_newzd2matchzd2_484
; } } }  else 
{ /* ./Ieee/input.scm 194 */
bool_t BgL_test1200z00_488;
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_2482;
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_2483;
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2484;
BgL_auxz00_2484 = 
(long)(BgL_currentzd2charzd2_485); 
BgL_testz00_2483 = 
(BgL_auxz00_2484==((long)10)); } 
if(BgL_testz00_2483)
{ /* ./Ieee/input.scm 194 */
BgL_testz00_2482 = ((bool_t)1)
; }  else 
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2487;
BgL_auxz00_2487 = 
(long)(BgL_currentzd2charzd2_485); 
BgL_testz00_2482 = 
(BgL_auxz00_2487==((long)9)); } } 
if(BgL_testz00_2482)
{ /* ./Ieee/input.scm 194 */
BgL_test1200z00_488 = ((bool_t)1); }  else 
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2490;
BgL_auxz00_2490 = 
(long)(BgL_currentzd2charzd2_485); 
BgL_test1200z00_488 = 
(BgL_auxz00_2490==((long)32)); } } 
if(BgL_test1200z00_488)
{ /* ./Ieee/input.scm 194 */
{ 
long BgL_lastzd2matchzd2_2494;
BgL_lastzd2matchzd2_2494 = BgL_newzd2matchzd2_484; 
BgL_lastzd2matchzd2_481 = BgL_lastzd2matchzd2_2494; 
goto BgL_zc3anonymousza31195ze3z83_483;} }  else 
{ /* ./Ieee/input.scm 194 */
BgL_auxz00_2449 = BgL_newzd2matchzd2_484; } } } } } }  else 
{ /* ./Ieee/input.scm 194 */
BgL_auxz00_2449 = BgL_newzd2matchzd2_473; } } } } } 
return 
BINT(BgL_auxz00_2449);} }  else 
{ /* ./Ieee/input.scm 194 */
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2496;
{ 
obj_t BgL_thezd2rgczd2contextz00_2499;obj_t BgL_lastzd2matchzd2_2498;obj_t BgL_inputzd2portzd2_2497;
BgL_inputzd2portzd2_2497 = BgL_inputzd2portzd2_458; 
BgL_lastzd2matchzd2_2498 = BgL_lastzd2matchzd2_459; 
BgL_thezd2rgczd2contextz00_2499 = BgL_thezd2rgczd2contextz00_460; 
BgL_thezd2rgczd2contextz00_436 = BgL_thezd2rgczd2contextz00_2499; 
BgL_lastzd2matchzd2_435 = BgL_lastzd2matchzd2_2498; 
BgL_inputzd2portzd2_434 = BgL_inputzd2portzd2_2497; 
goto BgL_zc3anonymousza31126ze3z83_437;} 
return 
BINT(BgL_auxz00_2496);} } } } } } } } 
}



/* read/rp */
BGL_EXPORTED_DEF obj_t BGl_readzf2rpzf2zz__r4_input_6_10_2z00(obj_t BgL_grammarz00_1, obj_t BgL_portz00_2)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 74 */
return 
PROCEDURE_ENTRY(BgL_grammarz00_1)(BgL_grammarz00_1, BgL_portz00_2, BFALSE, BEOA);} 
}



/* _read/rp */
obj_t BGl__readzf2rpzf2zz__r4_input_6_10_2z00(obj_t BgL_envz00_2188, obj_t BgL_grammarz00_2189, obj_t BgL_portz00_2190)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 74 */
return 
PROCEDURE_ENTRY(BgL_grammarz00_2189)(BgL_grammarz00_2189, BgL_portz00_2190, BFALSE, BEOA);} 
}



/* read/lalrp */
BGL_EXPORTED_DEF obj_t BGl_readzf2lalrpzf2zz__r4_input_6_10_2z00(obj_t BgL_lalrz00_3, obj_t BgL_rgcz00_4, obj_t BgL_portz00_5, obj_t BgL_eofzd2funzf3z21_6)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 80 */
if(
NULLP(BgL_eofzd2funzf3z21_6))
{ /* ./Ieee/input.scm 81 */
return 
PROCEDURE_ENTRY(BgL_lalrz00_3)(BgL_lalrz00_3, BgL_rgcz00_4, BgL_portz00_5, BGl_eofzd2objectzf3zd2envzf3zz__r4_input_6_10_2z00, BEOA);}  else 
{ /* ./Ieee/input.scm 81 */
obj_t BgL_arg1215z00_2306;
BgL_arg1215z00_2306 = 
CAR(BgL_eofzd2funzf3z21_6); 
return 
PROCEDURE_ENTRY(BgL_lalrz00_3)(BgL_lalrz00_3, BgL_rgcz00_4, BgL_portz00_5, BgL_arg1215z00_2306, BEOA);} } 
}



/* _read/lalrp */
obj_t BGl__readzf2lalrpzf2zz__r4_input_6_10_2z00(obj_t BgL_envz00_2191, obj_t BgL_lalrz00_2192, obj_t BgL_rgcz00_2193, obj_t BgL_portz00_2194, obj_t BgL_eofzd2funzf3z21_2195)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 80 */
if(
NULLP(BgL_eofzd2funzf3z21_2195))
{ /* ./Ieee/input.scm 81 */
return 
PROCEDURE_ENTRY(BgL_lalrz00_2192)(BgL_lalrz00_2192, BgL_rgcz00_2193, BgL_portz00_2194, BGl_eofzd2objectzf3zd2envzf3zz__r4_input_6_10_2z00, BEOA);}  else 
{ /* ./Ieee/input.scm 81 */
obj_t BgL_arg1215z00_2311;
BgL_arg1215z00_2311 = 
CAR(BgL_eofzd2funzf3z21_2195); 
return 
PROCEDURE_ENTRY(BgL_lalrz00_2192)(BgL_lalrz00_2192, BgL_rgcz00_2193, BgL_portz00_2194, BgL_arg1215z00_2311, BEOA);} } 
}



/* read-char */
BGL_EXPORTED_DEF obj_t BGl_readzd2charzd2zz__r4_input_6_10_2z00(obj_t BgL_ipz00_7)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 88 */
{ /* ./Ieee/input.scm 89 */
obj_t BgL_grammarz00_519;
{ /* ./Ieee/input.scm 89 */
obj_t BgL_thezd2rgczd2contextz00_522;
BgL_thezd2rgczd2contextz00_522 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Ieee/input.scm 89 */
obj_t BgL_zc3anonymousza31226ze3z83_2199;
{ 
int BgL_auxz00_2519;
BgL_auxz00_2519 = 
(int)(((long)1)); 
BgL_zc3anonymousza31226ze3z83_2199 = 
MAKE_EL_PROCEDURE_1(BgL_auxz00_2519); } 
{ /* ./Ieee/input.scm 89 */
int BgL_auxz00_2522;
BgL_auxz00_2522 = 
(int)(((long)0)); 
PROCEDURE_1_EL_SET(BgL_zc3anonymousza31226ze3z83_2199, BgL_auxz00_2522, BgL_thezd2rgczd2contextz00_522); } 
BgL_grammarz00_519 = BgL_zc3anonymousza31226ze3z83_2199; } } 
{ /* ./Ieee/input.scm 92 */
obj_t BgL_arg1220z00_520;
if(
NULLP(BgL_ipz00_7))
{ /* ./Ieee/input.scm 92 */
BgL_arg1220z00_520 = 
BGL_CURRENT_INPUT_PORT(); }  else 
{ /* ./Ieee/input.scm 92 */
BgL_arg1220z00_520 = 
CAR(BgL_ipz00_7); } 
return 
BGl_zc3anonymousza31226ze3z83zz__r4_input_6_10_2z00(BgL_grammarz00_519, BgL_arg1220z00_520, BFALSE);} } } 
}



/* _read-char */
obj_t BGl__readzd2charzd2zz__r4_input_6_10_2z00(obj_t BgL_envz00_2200, obj_t BgL_ipz00_2201)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 88 */
return 
BGl_readzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_2201);} 
}



/* <anonymous:1226> */
obj_t BGl_zc3anonymousza31226ze3z83zz__r4_input_6_10_2z00(obj_t BgL_envz00_2202, obj_t BgL_inputzd2portzd2_2204, obj_t BgL_procz00_2205)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 89 */
{ /* ./Ieee/input.scm 89 */
obj_t BgL_thezd2rgczd2contextz00_2203;
{ /* ./Ieee/input.scm 89 */
int BgL_auxz00_2532;
BgL_auxz00_2532 = 
(int)(((long)0)); 
BgL_thezd2rgczd2contextz00_2203 = 
PROCEDURE_1_EL_REF(BgL_envz00_2202, BgL_auxz00_2532); } 
{ 
obj_t BgL_inputzd2portzd2_523;obj_t BgL_procz00_524;
BgL_inputzd2portzd2_523 = BgL_inputzd2portzd2_2204; 
BgL_procz00_524 = BgL_procz00_2205; 
{ 

RGC_START_MATCH(BgL_inputzd2portzd2_523); 
{ /* ./Ieee/input.scm 89 */
long BgL_matchz00_546;
if(
PROCEDUREP(BgL_procz00_524))
{ /* ./Ieee/input.scm 89 */
obj_t BgL_auxz00_2538;
BgL_auxz00_2538 = 
PROCEDURE_ENTRY(BgL_procz00_524)(BgL_procz00_524, BGl_proc2818z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_523, 
BINT(((long)1)), 
CELL_REF(BgL_thezd2rgczd2contextz00_2203), BEOA); 
BgL_matchz00_546 = 
(long)CINT(BgL_auxz00_2538); }  else 
{ 

BgL_statezd20zd21003z00_1361:
{ /* ./Ieee/input.scm 89 */
int BgL_currentzd2charzd2_1362;
BgL_currentzd2charzd2_1362 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_523); 
{ /* ./Ieee/input.scm 89 */
bool_t BgL_testz00_2544;
{ /* ./Ieee/input.scm 89 */
long BgL_auxz00_2545;
BgL_auxz00_2545 = 
(long)(BgL_currentzd2charzd2_1362); 
BgL_testz00_2544 = 
(BgL_auxz00_2545==((long)0)); } 
if(BgL_testz00_2544)
{ /* ./Ieee/input.scm 89 */
{ /* ./Ieee/input.scm 89 */
bool_t BgL_test1303z00_1364;
BgL_test1303z00_1364 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_523); 
if(BgL_test1303z00_1364)
{ /* ./Ieee/input.scm 89 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_523))
{ /* ./Ieee/input.scm 89 */
goto BgL_statezd20zd21003z00_1361;}  else 
{ /* ./Ieee/input.scm 89 */
BgL_matchz00_546 = ((long)1); } }  else 
{ /* ./Ieee/input.scm 89 */
obj_t BgL_thezd2rgczd2contextz00_1373;
BgL_thezd2rgczd2contextz00_1373 = 
CELL_REF(BgL_thezd2rgczd2contextz00_2203); 
{ /* ./Ieee/input.scm 89 */
long BgL_newzd2matchzd2_1374;
RGC_STOP_MATCH(BgL_inputzd2portzd2_523); 
BgL_newzd2matchzd2_1374 = ((long)0); 
BgL_matchz00_546 = BgL_newzd2matchzd2_1374; } } } }  else 
{ /* ./Ieee/input.scm 89 */
{ /* ./Ieee/input.scm 89 */
obj_t BgL_thezd2rgczd2contextz00_1378;
BgL_thezd2rgczd2contextz00_1378 = 
CELL_REF(BgL_thezd2rgczd2contextz00_2203); 
{ /* ./Ieee/input.scm 89 */
long BgL_newzd2matchzd2_1379;
RGC_STOP_MATCH(BgL_inputzd2portzd2_523); 
BgL_newzd2matchzd2_1379 = ((long)0); 
BgL_matchz00_546 = BgL_newzd2matchzd2_1379; } } } } } } 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_523); 
switch( BgL_matchz00_546) { case ((long)1) : 

{ /* ./Ieee/input.scm 89 */
bool_t BgL_test1251z00_560;
{ /* ./Ieee/input.scm 89 */
int BgL_arg1259z00_563;
{ /* ./Ieee/input.scm 89 */
int BgL_res2492z00_1393;
{ /* ./Ieee/input.scm 89 */
long BgL_auxz00_2555;
BgL_auxz00_2555 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_523); 
BgL_res2492z00_1393 = 
(int)(BgL_auxz00_2555); } 
BgL_arg1259z00_563 = BgL_res2492z00_1393; } 
{ /* ./Ieee/input.scm 89 */
long BgL_auxz00_2558;
BgL_auxz00_2558 = 
(long)(BgL_arg1259z00_563); 
BgL_test1251z00_560 = 
(BgL_auxz00_2558==((long)0)); } } 
if(BgL_test1251z00_560)
{ /* ./Ieee/input.scm 89 */
return BCNST(256);}  else 
{ /* ./Ieee/input.scm 89 */
obj_t BgL_arg1254z00_561;
{ /* ./Ieee/input.scm 89 */
obj_t BgL_res2494z00_1403;
{ /* ./Ieee/input.scm 89 */
int BgL_arg1295z00_1397;
{ /* ./Ieee/input.scm 89 */
int BgL_res2493z00_1399;
{ /* ./Ieee/input.scm 89 */
long BgL_auxz00_2562;
BgL_auxz00_2562 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_523); 
BgL_res2493z00_1399 = 
(int)(BgL_auxz00_2562); } 
BgL_arg1295z00_1397 = BgL_res2493z00_1399; } 
{ /* ./Ieee/input.scm 89 */
int BgL_auxz00_2565;
BgL_auxz00_2565 = 
(int)(((long)0)); 
BgL_res2494z00_1403 = 
rgc_buffer_substring(BgL_inputzd2portzd2_523, BgL_auxz00_2565, BgL_arg1295z00_1397); } } 
BgL_arg1254z00_561 = BgL_res2494z00_1403; } 
{ /* ./Ieee/input.scm 89 */
unsigned char BgL_auxz00_2568;
{ /* ./Ieee/input.scm 89 */
int BgL_auxz00_2569;
BgL_auxz00_2569 = 
(int)(((long)0)); 
BgL_auxz00_2568 = 
STRING_REF(BgL_arg1254z00_561, BgL_auxz00_2569); } 
return 
BCHAR(BgL_auxz00_2568);} } } break;case ((long)0) : 

{ /* ./Ieee/input.scm 91 */
char BgL_auxz00_2573;
BgL_auxz00_2573 = 
RGC_BUFFER_CHARACTER(BgL_inputzd2portzd2_523); 
return 
BCHAR(BgL_auxz00_2573);} break;
default: 
{ /* ./Ieee/input.scm 89 */
obj_t BgL_objectz00_1385;
BgL_objectz00_1385 = 
BINT(BgL_matchz00_546); 
FAILURE(BGl_string2815z00zz__r4_input_6_10_2z00,BGl_string2816z00zz__r4_input_6_10_2z00,BgL_objectz00_1385);} } } } } } } 
}



/* STATE-0-1003 */
obj_t BGl_STATEzd20zd21003z00zz__r4_input_6_10_2z00(obj_t BgL_envz00_2206, obj_t BgL_inputzd2portzd2_2207, obj_t BgL_lastzd2matchzd2_2208, obj_t BgL_thezd2rgczd2contextz00_2209)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 89 */
{ 
obj_t BgL_inputzd2portzd2_586;obj_t BgL_lastzd2matchzd2_587;obj_t BgL_thezd2rgczd2contextz00_588;
BgL_inputzd2portzd2_586 = BgL_inputzd2portzd2_2207; 
BgL_lastzd2matchzd2_587 = BgL_lastzd2matchzd2_2208; 
BgL_thezd2rgczd2contextz00_588 = BgL_thezd2rgczd2contextz00_2209; 
BgL_zc3anonymousza31301ze3z83_589:
{ /* ./Ieee/input.scm 89 */
int BgL_currentzd2charzd2_1415;
BgL_currentzd2charzd2_1415 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_586); 
{ /* ./Ieee/input.scm 89 */
bool_t BgL_testz00_2580;
{ /* ./Ieee/input.scm 89 */
long BgL_auxz00_2581;
BgL_auxz00_2581 = 
(long)(BgL_currentzd2charzd2_1415); 
BgL_testz00_2580 = 
(BgL_auxz00_2581==((long)0)); } 
if(BgL_testz00_2580)
{ /* ./Ieee/input.scm 89 */
{ /* ./Ieee/input.scm 89 */
bool_t BgL_test1303z00_1417;
BgL_test1303z00_1417 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_586); 
if(BgL_test1303z00_1417)
{ /* ./Ieee/input.scm 89 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_586))
{ /* ./Ieee/input.scm 89 */
int BgL_currentzd2charzd2_1427;
BgL_currentzd2charzd2_1427 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_586); 
{ /* ./Ieee/input.scm 89 */
bool_t BgL_testz00_2589;
{ /* ./Ieee/input.scm 89 */
long BgL_auxz00_2590;
BgL_auxz00_2590 = 
(long)(BgL_currentzd2charzd2_1427); 
BgL_testz00_2589 = 
(BgL_auxz00_2590==((long)0)); } 
if(BgL_testz00_2589)
{ /* ./Ieee/input.scm 89 */
{ /* ./Ieee/input.scm 89 */
bool_t BgL_test1303z00_1429;
BgL_test1303z00_1429 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_586); 
if(BgL_test1303z00_1429)
{ /* ./Ieee/input.scm 89 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_586))
{ 

goto BgL_zc3anonymousza31301ze3z83_589;}  else 
{ /* ./Ieee/input.scm 89 */
return BgL_lastzd2matchzd2_587;} }  else 
{ /* ./Ieee/input.scm 89 */
long BgL_newzd2matchzd2_1439;
RGC_STOP_MATCH(BgL_inputzd2portzd2_586); 
BgL_newzd2matchzd2_1439 = ((long)0); 
return 
BINT(BgL_newzd2matchzd2_1439);} } }  else 
{ /* ./Ieee/input.scm 89 */
{ /* ./Ieee/input.scm 89 */
long BgL_newzd2matchzd2_1444;
RGC_STOP_MATCH(BgL_inputzd2portzd2_586); 
BgL_newzd2matchzd2_1444 = ((long)0); 
return 
BINT(BgL_newzd2matchzd2_1444);} } } }  else 
{ /* ./Ieee/input.scm 89 */
return BgL_lastzd2matchzd2_587;} }  else 
{ /* ./Ieee/input.scm 89 */
long BgL_newzd2matchzd2_1449;
RGC_STOP_MATCH(BgL_inputzd2portzd2_586); 
BgL_newzd2matchzd2_1449 = ((long)0); 
return 
BINT(BgL_newzd2matchzd2_1449);} } }  else 
{ /* ./Ieee/input.scm 89 */
{ /* ./Ieee/input.scm 89 */
long BgL_newzd2matchzd2_1454;
RGC_STOP_MATCH(BgL_inputzd2portzd2_586); 
BgL_newzd2matchzd2_1454 = ((long)0); 
return 
BINT(BgL_newzd2matchzd2_1454);} } } } } } 
}



/* peek-char */
BGL_EXPORTED_DEF obj_t BGl_peekzd2charzd2zz__r4_input_6_10_2z00(obj_t BgL_ipz00_8)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 97 */
{ /* ./Ieee/input.scm 98 */
obj_t BgL_grammarz00_622;
{ /* ./Ieee/input.scm 98 */
obj_t BgL_thezd2rgczd2contextz00_625;
BgL_thezd2rgczd2contextz00_625 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Ieee/input.scm 98 */
obj_t BgL_zc3anonymousza31322ze3z83_2211;
{ 
int BgL_auxz00_2605;
BgL_auxz00_2605 = 
(int)(((long)1)); 
BgL_zc3anonymousza31322ze3z83_2211 = 
MAKE_EL_PROCEDURE_1(BgL_auxz00_2605); } 
{ /* ./Ieee/input.scm 98 */
int BgL_auxz00_2608;
BgL_auxz00_2608 = 
(int)(((long)0)); 
PROCEDURE_1_EL_SET(BgL_zc3anonymousza31322ze3z83_2211, BgL_auxz00_2608, BgL_thezd2rgczd2contextz00_625); } 
BgL_grammarz00_622 = BgL_zc3anonymousza31322ze3z83_2211; } } 
{ /* ./Ieee/input.scm 103 */
obj_t BgL_arg1316z00_623;
if(
NULLP(BgL_ipz00_8))
{ /* ./Ieee/input.scm 103 */
BgL_arg1316z00_623 = 
BGL_CURRENT_INPUT_PORT(); }  else 
{ /* ./Ieee/input.scm 103 */
BgL_arg1316z00_623 = 
CAR(BgL_ipz00_8); } 
return 
BGl_zc3anonymousza31322ze3z83zz__r4_input_6_10_2z00(BgL_grammarz00_622, BgL_arg1316z00_623, BFALSE);} } } 
}



/* _peek-char */
obj_t BGl__peekzd2charzd2zz__r4_input_6_10_2z00(obj_t BgL_envz00_2212, obj_t BgL_ipz00_2213)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 97 */
return 
BGl_peekzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_2213);} 
}



/* <anonymous:1322> */
obj_t BGl_zc3anonymousza31322ze3z83zz__r4_input_6_10_2z00(obj_t BgL_envz00_2214, obj_t BgL_inputzd2portzd2_2216, obj_t BgL_procz00_2217)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 98 */
{ /* ./Ieee/input.scm 98 */
obj_t BgL_thezd2rgczd2contextz00_2215;
{ /* ./Ieee/input.scm 98 */
int BgL_auxz00_2618;
BgL_auxz00_2618 = 
(int)(((long)0)); 
BgL_thezd2rgczd2contextz00_2215 = 
PROCEDURE_1_EL_REF(BgL_envz00_2214, BgL_auxz00_2618); } 
{ 
obj_t BgL_inputzd2portzd2_626;obj_t BgL_procz00_627;
BgL_inputzd2portzd2_626 = BgL_inputzd2portzd2_2216; 
BgL_procz00_627 = BgL_procz00_2217; 
{ 

RGC_START_MATCH(BgL_inputzd2portzd2_626); 
{ /* ./Ieee/input.scm 98 */
long BgL_matchz00_649;
if(
PROCEDUREP(BgL_procz00_627))
{ /* ./Ieee/input.scm 98 */
obj_t BgL_auxz00_2624;
BgL_auxz00_2624 = 
PROCEDURE_ENTRY(BgL_procz00_627)(BgL_procz00_627, BGl_proc2819z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_626, 
BINT(((long)1)), 
CELL_REF(BgL_thezd2rgczd2contextz00_2215), BEOA); 
BgL_matchz00_649 = 
(long)CINT(BgL_auxz00_2624); }  else 
{ 

BgL_statezd20zd21009z00_1464:
{ /* ./Ieee/input.scm 98 */
int BgL_currentzd2charzd2_1465;
BgL_currentzd2charzd2_1465 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_626); 
{ /* ./Ieee/input.scm 98 */
bool_t BgL_testz00_2630;
{ /* ./Ieee/input.scm 98 */
long BgL_auxz00_2631;
BgL_auxz00_2631 = 
(long)(BgL_currentzd2charzd2_1465); 
BgL_testz00_2630 = 
(BgL_auxz00_2631==((long)0)); } 
if(BgL_testz00_2630)
{ /* ./Ieee/input.scm 98 */
{ /* ./Ieee/input.scm 98 */
bool_t BgL_test1405z00_1467;
BgL_test1405z00_1467 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_626); 
if(BgL_test1405z00_1467)
{ /* ./Ieee/input.scm 98 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_626))
{ /* ./Ieee/input.scm 98 */
goto BgL_statezd20zd21009z00_1464;}  else 
{ /* ./Ieee/input.scm 98 */
BgL_matchz00_649 = ((long)1); } }  else 
{ /* ./Ieee/input.scm 98 */
obj_t BgL_thezd2rgczd2contextz00_1476;
BgL_thezd2rgczd2contextz00_1476 = 
CELL_REF(BgL_thezd2rgczd2contextz00_2215); 
{ /* ./Ieee/input.scm 98 */
long BgL_newzd2matchzd2_1477;
RGC_STOP_MATCH(BgL_inputzd2portzd2_626); 
BgL_newzd2matchzd2_1477 = ((long)0); 
BgL_matchz00_649 = BgL_newzd2matchzd2_1477; } } } }  else 
{ /* ./Ieee/input.scm 98 */
{ /* ./Ieee/input.scm 98 */
obj_t BgL_thezd2rgczd2contextz00_1481;
BgL_thezd2rgczd2contextz00_1481 = 
CELL_REF(BgL_thezd2rgczd2contextz00_2215); 
{ /* ./Ieee/input.scm 98 */
long BgL_newzd2matchzd2_1482;
RGC_STOP_MATCH(BgL_inputzd2portzd2_626); 
BgL_newzd2matchzd2_1482 = ((long)0); 
BgL_matchz00_649 = BgL_newzd2matchzd2_1482; } } } } } } 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_626); 
switch( BgL_matchz00_649) { case ((long)1) : 

{ /* ./Ieee/input.scm 98 */
bool_t BgL_test1353z00_666;
{ /* ./Ieee/input.scm 98 */
int BgL_arg1360z00_669;
{ /* ./Ieee/input.scm 98 */
int BgL_res2497z00_1500;
{ /* ./Ieee/input.scm 98 */
long BgL_auxz00_2641;
BgL_auxz00_2641 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_626); 
BgL_res2497z00_1500 = 
(int)(BgL_auxz00_2641); } 
BgL_arg1360z00_669 = BgL_res2497z00_1500; } 
{ /* ./Ieee/input.scm 98 */
long BgL_auxz00_2644;
BgL_auxz00_2644 = 
(long)(BgL_arg1360z00_669); 
BgL_test1353z00_666 = 
(BgL_auxz00_2644==((long)0)); } } 
if(BgL_test1353z00_666)
{ /* ./Ieee/input.scm 98 */
return BCNST(256);}  else 
{ /* ./Ieee/input.scm 98 */
obj_t BgL_arg1355z00_667;
{ /* ./Ieee/input.scm 98 */
obj_t BgL_res2499z00_1510;
{ /* ./Ieee/input.scm 98 */
int BgL_arg1397z00_1504;
{ /* ./Ieee/input.scm 98 */
int BgL_res2498z00_1506;
{ /* ./Ieee/input.scm 98 */
long BgL_auxz00_2648;
BgL_auxz00_2648 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_626); 
BgL_res2498z00_1506 = 
(int)(BgL_auxz00_2648); } 
BgL_arg1397z00_1504 = BgL_res2498z00_1506; } 
{ /* ./Ieee/input.scm 98 */
int BgL_auxz00_2651;
BgL_auxz00_2651 = 
(int)(((long)0)); 
BgL_res2499z00_1510 = 
rgc_buffer_substring(BgL_inputzd2portzd2_626, BgL_auxz00_2651, BgL_arg1397z00_1504); } } 
BgL_arg1355z00_667 = BgL_res2499z00_1510; } 
{ /* ./Ieee/input.scm 98 */
unsigned char BgL_auxz00_2654;
{ /* ./Ieee/input.scm 98 */
int BgL_auxz00_2655;
BgL_auxz00_2655 = 
(int)(((long)0)); 
BgL_auxz00_2654 = 
STRING_REF(BgL_arg1355z00_667, BgL_auxz00_2655); } 
return 
BCHAR(BgL_auxz00_2654);} } } break;case ((long)0) : 

{ /* ./Ieee/input.scm 100 */
char BgL_cz00_653;
BgL_cz00_653 = 
RGC_BUFFER_CHARACTER(BgL_inputzd2portzd2_626); 
{ /* ./Ieee/input.scm 101 */
long BgL_arg1331z00_655;
{ /* ./Ieee/input.scm 101 */
unsigned char BgL_auxz00_2660;
BgL_auxz00_2660 = 
(unsigned char)(BgL_cz00_653); 
BgL_arg1331z00_655 = 
(BgL_auxz00_2660); } 
{ /* ./Ieee/input.scm 101 */
int BgL_auxz00_2663;
BgL_auxz00_2663 = 
(int)(BgL_arg1331z00_655); 
rgc_buffer_unget_char(BgL_inputzd2portzd2_626, BgL_auxz00_2663); } } 
return 
BCHAR(BgL_cz00_653);} break;
default: 
{ /* ./Ieee/input.scm 98 */
obj_t BgL_objectz00_1492;
BgL_objectz00_1492 = 
BINT(BgL_matchz00_649); 
FAILURE(BGl_string2815z00zz__r4_input_6_10_2z00,BGl_string2816z00zz__r4_input_6_10_2z00,BgL_objectz00_1492);} } } } } } } 
}



/* STATE-0-1009 */
obj_t BGl_STATEzd20zd21009z00zz__r4_input_6_10_2z00(obj_t BgL_envz00_2218, obj_t BgL_inputzd2portzd2_2219, obj_t BgL_lastzd2matchzd2_2220, obj_t BgL_thezd2rgczd2contextz00_2221)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 98 */
{ 
obj_t BgL_inputzd2portzd2_692;obj_t BgL_lastzd2matchzd2_693;obj_t BgL_thezd2rgczd2contextz00_694;
BgL_inputzd2portzd2_692 = BgL_inputzd2portzd2_2219; 
BgL_lastzd2matchzd2_693 = BgL_lastzd2matchzd2_2220; 
BgL_thezd2rgczd2contextz00_694 = BgL_thezd2rgczd2contextz00_2221; 
BgL_zc3anonymousza31403ze3z83_695:
{ /* ./Ieee/input.scm 98 */
int BgL_currentzd2charzd2_1522;
BgL_currentzd2charzd2_1522 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_692); 
{ /* ./Ieee/input.scm 98 */
bool_t BgL_testz00_2671;
{ /* ./Ieee/input.scm 98 */
long BgL_auxz00_2672;
BgL_auxz00_2672 = 
(long)(BgL_currentzd2charzd2_1522); 
BgL_testz00_2671 = 
(BgL_auxz00_2672==((long)0)); } 
if(BgL_testz00_2671)
{ /* ./Ieee/input.scm 98 */
{ /* ./Ieee/input.scm 98 */
bool_t BgL_test1405z00_1524;
BgL_test1405z00_1524 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_692); 
if(BgL_test1405z00_1524)
{ /* ./Ieee/input.scm 98 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_692))
{ /* ./Ieee/input.scm 98 */
int BgL_currentzd2charzd2_1534;
BgL_currentzd2charzd2_1534 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_692); 
{ /* ./Ieee/input.scm 98 */
bool_t BgL_testz00_2680;
{ /* ./Ieee/input.scm 98 */
long BgL_auxz00_2681;
BgL_auxz00_2681 = 
(long)(BgL_currentzd2charzd2_1534); 
BgL_testz00_2680 = 
(BgL_auxz00_2681==((long)0)); } 
if(BgL_testz00_2680)
{ /* ./Ieee/input.scm 98 */
{ /* ./Ieee/input.scm 98 */
bool_t BgL_test1405z00_1536;
BgL_test1405z00_1536 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_692); 
if(BgL_test1405z00_1536)
{ /* ./Ieee/input.scm 98 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_692))
{ 

goto BgL_zc3anonymousza31403ze3z83_695;}  else 
{ /* ./Ieee/input.scm 98 */
return BgL_lastzd2matchzd2_693;} }  else 
{ /* ./Ieee/input.scm 98 */
long BgL_newzd2matchzd2_1546;
RGC_STOP_MATCH(BgL_inputzd2portzd2_692); 
BgL_newzd2matchzd2_1546 = ((long)0); 
return 
BINT(BgL_newzd2matchzd2_1546);} } }  else 
{ /* ./Ieee/input.scm 98 */
{ /* ./Ieee/input.scm 98 */
long BgL_newzd2matchzd2_1551;
RGC_STOP_MATCH(BgL_inputzd2portzd2_692); 
BgL_newzd2matchzd2_1551 = ((long)0); 
return 
BINT(BgL_newzd2matchzd2_1551);} } } }  else 
{ /* ./Ieee/input.scm 98 */
return BgL_lastzd2matchzd2_693;} }  else 
{ /* ./Ieee/input.scm 98 */
long BgL_newzd2matchzd2_1556;
RGC_STOP_MATCH(BgL_inputzd2portzd2_692); 
BgL_newzd2matchzd2_1556 = ((long)0); 
return 
BINT(BgL_newzd2matchzd2_1556);} } }  else 
{ /* ./Ieee/input.scm 98 */
{ /* ./Ieee/input.scm 98 */
long BgL_newzd2matchzd2_1561;
RGC_STOP_MATCH(BgL_inputzd2portzd2_692); 
BgL_newzd2matchzd2_1561 = ((long)0); 
return 
BINT(BgL_newzd2matchzd2_1561);} } } } } } 
}



/* eof-object? */
BGL_EXPORTED_DEF bool_t BGl_eofzd2objectzf3z21zz__r4_input_6_10_2z00(obj_t BgL_objectz00_9)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 108 */
return 
EOF_OBJECTP(BgL_objectz00_9);} 
}



/* _eof-object? */
obj_t BGl__eofzd2objectzf3z21zz__r4_input_6_10_2z00(obj_t BgL_envz00_2196, obj_t BgL_objectz00_2197)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 108 */
{ /* ./Ieee/input.scm 109 */
bool_t BgL_auxz00_2697;
BgL_auxz00_2697 = 
EOF_OBJECTP(BgL_objectz00_2197); 
return 
BBOOL(BgL_auxz00_2697);} } 
}



/* char-ready? */
BGL_EXPORTED_DEF bool_t BGl_charzd2readyzf3z21zz__r4_input_6_10_2z00(obj_t BgL_portz00_10)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 114 */
{ /* ./Ieee/input.scm 115 */
obj_t BgL_arg1419z00_2313;
if(
PAIRP(BgL_portz00_10))
{ /* ./Ieee/input.scm 115 */
BgL_arg1419z00_2313 = 
CAR(BgL_portz00_10); }  else 
{ /* ./Ieee/input.scm 115 */
BgL_arg1419z00_2313 = 
BGL_CURRENT_INPUT_PORT(); } 
return 
bgl_rgc_charready(BgL_arg1419z00_2313);} } 
}



/* _char-ready? */
obj_t BGl__charzd2readyzf3z21zz__r4_input_6_10_2z00(obj_t BgL_envz00_2222, obj_t BgL_portz00_2223)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 114 */
{ /* ./Ieee/input.scm 115 */
bool_t BgL_auxz00_2705;
{ /* ./Ieee/input.scm 115 */
bool_t BgL_res2825z00_2316;
{ /* ./Ieee/input.scm 115 */
obj_t BgL_arg1419z00_2315;
if(
PAIRP(BgL_portz00_2223))
{ /* ./Ieee/input.scm 115 */
BgL_arg1419z00_2315 = 
CAR(BgL_portz00_2223); }  else 
{ /* ./Ieee/input.scm 115 */
BgL_arg1419z00_2315 = 
BGL_CURRENT_INPUT_PORT(); } 
BgL_res2825z00_2316 = 
bgl_rgc_charready(BgL_arg1419z00_2315); } 
BgL_auxz00_2705 = BgL_res2825z00_2316; } 
return 
BBOOL(BgL_auxz00_2705);} } 
}



/* read-line */
BGL_EXPORTED_DEF obj_t BGl_readzd2linezd2zz__r4_input_6_10_2z00(obj_t BgL_inputzd2portzd2_11)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 120 */
{ /* ./Ieee/input.scm 121 */
obj_t BgL_portz00_730;
if(
PAIRP(BgL_inputzd2portzd2_11))
{ /* ./Ieee/input.scm 121 */
BgL_portz00_730 = 
CAR(BgL_inputzd2portzd2_11); }  else 
{ /* ./Ieee/input.scm 121 */
BgL_portz00_730 = 
BGL_CURRENT_INPUT_PORT(); } 
{ /* ./Ieee/input.scm 122 */
bool_t BgL_test1425z00_731;
{ /* ./Ieee/input.scm 122 */
int BgL_arg1642z00_936;
BgL_arg1642z00_936 = 
INPUT_PORT_BUFSIZ(BgL_portz00_730); 
{ /* ./Ieee/input.scm 122 */
long BgL_auxz00_2717;
BgL_auxz00_2717 = 
(long)(BgL_arg1642z00_936); 
BgL_test1425z00_731 = 
(BgL_auxz00_2717>((long)2)); } } 
if(BgL_test1425z00_731)
{ /* ./Ieee/input.scm 123 */
obj_t BgL_grammarz00_732;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_thezd2rgczd2contextz00_733;
BgL_thezd2rgczd2contextz00_733 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Ieee/input.scm 123 */
obj_t BgL_zc3anonymousza31427ze3z83_2228;
{ 
int BgL_auxz00_2721;
BgL_auxz00_2721 = 
(int)(((long)1)); 
BgL_zc3anonymousza31427ze3z83_2228 = 
MAKE_EL_PROCEDURE_1(BgL_auxz00_2721); } 
{ /* ./Ieee/input.scm 123 */
int BgL_auxz00_2724;
BgL_auxz00_2724 = 
(int)(((long)0)); 
PROCEDURE_1_EL_SET(BgL_zc3anonymousza31427ze3z83_2228, BgL_auxz00_2724, BgL_thezd2rgczd2contextz00_733); } 
BgL_grammarz00_732 = BgL_zc3anonymousza31427ze3z83_2228; } } 
return 
BGl_zc3anonymousza31427ze3z83zz__r4_input_6_10_2z00(BgL_grammarz00_732, BgL_portz00_730, BFALSE);}  else 
{ 
obj_t BgL_cz00_912;long BgL_wz00_913;long BgL_mz00_914;obj_t BgL_accz00_915;
{ /* ./Ieee/input.scm 138 */
obj_t BgL_arg1599z00_917;obj_t BgL_arg1602z00_920;
{ /* ./Ieee/input.scm 138 */
obj_t BgL_list1605z00_921;
BgL_list1605z00_921 = 
MAKE_PAIR(BgL_portz00_730, BNIL); 
BgL_arg1599z00_917 = 
BGl_readzd2charzd2zz__r4_input_6_10_2z00(BgL_list1605z00_921); } 
{ /* ./Ieee/input.scm 141 */
int BgL_auxz00_2731;
BgL_auxz00_2731 = 
(int)(((long)80)); 
BgL_arg1602z00_920 = 
make_string(BgL_auxz00_2731, ((unsigned char)' ')); } 
BgL_cz00_912 = BgL_arg1599z00_917; 
BgL_wz00_913 = ((long)0); 
BgL_mz00_914 = ((long)80); 
BgL_accz00_915 = BgL_arg1602z00_920; 
BgL_loopz00_916:
{ /* ./Ieee/input.scm 143 */
bool_t BgL_test1609z00_923;
BgL_test1609z00_923 = 
EOF_OBJECTP(BgL_cz00_912); 
if(BgL_test1609z00_923)
{ /* ./Ieee/input.scm 143 */
if(
(BgL_wz00_913==((long)0)))
{ /* ./Ieee/input.scm 145 */
return BgL_cz00_912;}  else 
{ /* ./Ieee/input.scm 147 */
int BgL_auxz00_2740;int BgL_auxz00_2738;
BgL_auxz00_2740 = 
(int)(BgL_wz00_913); 
BgL_auxz00_2738 = 
(int)(((long)0)); 
return 
c_substring(BgL_accz00_915, BgL_auxz00_2738, BgL_auxz00_2740);} }  else 
{ /* ./Ieee/input.scm 148 */
bool_t BgL_test1613z00_925;
{ /* ./Ieee/input.scm 148 */
bool_t BgL_testz00_2743;
{ /* ./Ieee/input.scm 148 */
unsigned char BgL_auxz00_2744;
BgL_auxz00_2744 = 
(unsigned char)CCHAR(BgL_cz00_912); 
BgL_testz00_2743 = 
(BgL_auxz00_2744==((unsigned char)'\n')); } 
if(BgL_testz00_2743)
{ /* ./Ieee/input.scm 148 */
BgL_test1613z00_925 = ((bool_t)1); }  else 
{ /* ./Ieee/input.scm 148 */
unsigned char BgL_auxz00_2747;
BgL_auxz00_2747 = 
(unsigned char)CCHAR(BgL_cz00_912); 
BgL_test1613z00_925 = 
(BgL_auxz00_2747==((unsigned char)'\r')); } } 
if(BgL_test1613z00_925)
{ /* ./Ieee/input.scm 148 */
{ /* ./Ieee/input.scm 150 */
int BgL_auxz00_2753;int BgL_auxz00_2751;
BgL_auxz00_2753 = 
(int)(BgL_wz00_913); 
BgL_auxz00_2751 = 
(int)(((long)0)); 
return 
c_substring(BgL_accz00_915, BgL_auxz00_2751, BgL_auxz00_2753);} }  else 
{ /* ./Ieee/input.scm 148 */
if(
(BgL_wz00_913==BgL_mz00_914))
{ /* ./Ieee/input.scm 151 */
{ /* ./Ieee/input.scm 155 */
long BgL_arg1617z00_927;obj_t BgL_arg1618z00_928;
BgL_arg1617z00_927 = 
(BgL_mz00_914*((long)2)); 
{ /* ./Ieee/input.scm 156 */
obj_t BgL_newzd2acczd2_929;
{ /* ./Ieee/input.scm 156 */
long BgL_arg1623z00_930;
BgL_arg1623z00_930 = 
(BgL_mz00_914*((long)2)); 
{ /* ./Ieee/input.scm 156 */
int BgL_auxz00_2760;
BgL_auxz00_2760 = 
(int)(BgL_arg1623z00_930); 
BgL_newzd2acczd2_929 = 
make_string(BgL_auxz00_2760, ((unsigned char)' ')); } } 
{ /* ./Ieee/input.scm 157 */
int BgL_auxz00_2767;int BgL_auxz00_2765;int BgL_auxz00_2763;
BgL_auxz00_2767 = 
(int)(BgL_mz00_914); 
BgL_auxz00_2765 = 
(int)(((long)0)); 
BgL_auxz00_2763 = 
(int)(((long)0)); 
blit_string(BgL_accz00_915, BgL_auxz00_2763, BgL_newzd2acczd2_929, BgL_auxz00_2765, BgL_auxz00_2767); } 
BgL_arg1618z00_928 = BgL_newzd2acczd2_929; } 
{ 
obj_t BgL_accz00_2771;long BgL_mz00_2770;
BgL_mz00_2770 = BgL_arg1617z00_927; 
BgL_accz00_2771 = BgL_arg1618z00_928; 
BgL_accz00_915 = BgL_accz00_2771; 
BgL_mz00_914 = BgL_mz00_2770; 
goto BgL_loopz00_916;} } }  else 
{ /* ./Ieee/input.scm 151 */
{ /* ./Ieee/input.scm 163 */
unsigned char BgL_auxz00_2774;int BgL_auxz00_2772;
BgL_auxz00_2774 = 
(unsigned char)CCHAR(BgL_cz00_912); 
BgL_auxz00_2772 = 
(int)(BgL_wz00_913); 
STRING_SET(BgL_accz00_915, BgL_auxz00_2772, BgL_auxz00_2774); } 
{ /* ./Ieee/input.scm 164 */
obj_t BgL_arg1629z00_932;long BgL_arg1630z00_933;
{ /* ./Ieee/input.scm 164 */
obj_t BgL_list1633z00_934;
BgL_list1633z00_934 = 
MAKE_PAIR(BgL_portz00_730, BNIL); 
BgL_arg1629z00_932 = 
BGl_readzd2charzd2zz__r4_input_6_10_2z00(BgL_list1633z00_934); } 
BgL_arg1630z00_933 = 
(BgL_wz00_913+((long)1)); 
{ 
long BgL_wz00_2781;obj_t BgL_cz00_2780;
BgL_cz00_2780 = BgL_arg1629z00_932; 
BgL_wz00_2781 = BgL_arg1630z00_933; 
BgL_wz00_913 = BgL_wz00_2781; 
BgL_cz00_912 = BgL_cz00_2780; 
goto BgL_loopz00_916;} } } } } } } } } } } 
}



/* _read-line */
obj_t BGl__readzd2linezd2zz__r4_input_6_10_2z00(obj_t BgL_envz00_2229, obj_t BgL_inputzd2portzd2_2230)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 120 */
return 
BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_2230);} 
}



/* ignore_2534 */
obj_t BGl_ignore_2534z00zz__r4_input_6_10_2z00(obj_t BgL_statezd20zd21014z00_2234, obj_t BgL_thezd2rgczd2contextz00_2233, obj_t BgL_procz00_2232, obj_t BgL_inputzd2portzd2_2231)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 123 */
RGC_START_MATCH(BgL_inputzd2portzd2_2231); 
{ /* ./Ieee/input.scm 123 */
long BgL_matchz00_764;
if(
PROCEDUREP(BgL_procz00_2232))
{ /* ./Ieee/input.scm 123 */
obj_t BgL_auxz00_2786;
BgL_auxz00_2786 = 
PROCEDURE_ENTRY(BgL_procz00_2232)(BgL_procz00_2232, BgL_statezd20zd21014z00_2234, BgL_inputzd2portzd2_2231, 
BINT(((long)4)), 
CELL_REF(BgL_thezd2rgczd2contextz00_2233), BEOA); 
BgL_matchz00_764 = 
(long)CINT(BgL_auxz00_2786); }  else 
{ /* ./Ieee/input.scm 123 */
obj_t BgL_auxz00_2791;
BgL_auxz00_2791 = 
BGl_STATEzd20zd21014z00zz__r4_input_6_10_2z00(BgL_statezd20zd21014z00_2234, BgL_inputzd2portzd2_2231, 
BINT(((long)4)), 
CELL_REF(BgL_thezd2rgczd2contextz00_2233)); 
BgL_matchz00_764 = 
(long)CINT(BgL_auxz00_2791); } 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_2231); 
switch( BgL_matchz00_764) { case ((long)4) : 

return 
BGl_thezd2failure_2535zd2zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_2231);break;case ((long)3) : 

return BGl_string2820z00zz__r4_input_6_10_2z00;break;case ((long)2) : 

{ /* ./Ieee/input.scm 130 */
obj_t BgL_res2502z00_1587;
{ /* ./Ieee/input.scm 130 */
int BgL_arg1514z00_1581;
{ /* ./Ieee/input.scm 130 */
int BgL_res2501z00_1583;
{ /* ./Ieee/input.scm 130 */
long BgL_auxz00_2797;
BgL_auxz00_2797 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_2231); 
BgL_res2501z00_1583 = 
(int)(BgL_auxz00_2797); } 
BgL_arg1514z00_1581 = BgL_res2501z00_1583; } 
{ /* ./Ieee/input.scm 130 */
int BgL_auxz00_2800;
BgL_auxz00_2800 = 
(int)(((long)0)); 
BgL_res2502z00_1587 = 
rgc_buffer_substring(BgL_inputzd2portzd2_2231, BgL_auxz00_2800, BgL_arg1514z00_1581); } } 
return BgL_res2502z00_1587;} break;case ((long)1) : 

{ /* ./Ieee/input.scm 128 */
long BgL_arg1437z00_769;
{ /* ./Ieee/input.scm 128 */
int BgL_arg1440z00_770;
{ /* ./Ieee/input.scm 128 */
int BgL_res2503z00_1589;
{ /* ./Ieee/input.scm 128 */
long BgL_auxz00_2803;
BgL_auxz00_2803 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_2231); 
BgL_res2503z00_1589 = 
(int)(BgL_auxz00_2803); } 
BgL_arg1440z00_770 = BgL_res2503z00_1589; } 
{ /* ./Ieee/input.scm 128 */
long BgL_auxz00_2806;
BgL_auxz00_2806 = 
(long)(BgL_arg1440z00_770); 
BgL_arg1437z00_769 = 
(BgL_auxz00_2806-((long)2)); } } 
return 
BGl_thezd2substringzd2zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_2231, ((long)0), BgL_arg1437z00_769);} break;case ((long)0) : 

{ /* ./Ieee/input.scm 126 */
long BgL_arg1446z00_773;
{ /* ./Ieee/input.scm 126 */
int BgL_arg1449z00_774;
{ /* ./Ieee/input.scm 126 */
int BgL_res2504z00_1593;
{ /* ./Ieee/input.scm 126 */
long BgL_auxz00_2810;
BgL_auxz00_2810 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_2231); 
BgL_res2504z00_1593 = 
(int)(BgL_auxz00_2810); } 
BgL_arg1449z00_774 = BgL_res2504z00_1593; } 
{ /* ./Ieee/input.scm 126 */
long BgL_auxz00_2813;
BgL_auxz00_2813 = 
(long)(BgL_arg1449z00_774); 
BgL_arg1446z00_773 = 
(BgL_auxz00_2813-((long)1)); } } 
return 
BGl_thezd2substringzd2zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_2231, ((long)0), BgL_arg1446z00_773);} break;
default: 
{ /* ./Ieee/input.scm 123 */
obj_t BgL_objectz00_1598;
BgL_objectz00_1598 = 
BINT(BgL_matchz00_764); 
FAILURE(BGl_string2815z00zz__r4_input_6_10_2z00,BGl_string2816z00zz__r4_input_6_10_2z00,BgL_objectz00_1598);} } } } 
}



/* the-substring */
obj_t BGl_thezd2substringzd2zz__r4_input_6_10_2z00(obj_t BgL_inputzd2portzd2_2235, long BgL_minz00_797, long BgL_maxz00_798)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 123 */
{ /* ./Ieee/input.scm 123 */
bool_t BgL_test1495z00_800;
if(
(BgL_minz00_797>=((long)0)))
{ /* ./Ieee/input.scm 123 */
bool_t BgL_test1504z00_805;
{ /* ./Ieee/input.scm 123 */
int BgL_arg1507z00_806;
{ /* ./Ieee/input.scm 123 */
int BgL_res2508z00_1623;
{ /* ./Ieee/input.scm 123 */
long BgL_auxz00_2822;
BgL_auxz00_2822 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_2235); 
BgL_res2508z00_1623 = 
(int)(BgL_auxz00_2822); } 
BgL_arg1507z00_806 = BgL_res2508z00_1623; } 
{ /* ./Ieee/input.scm 123 */
long BgL_auxz00_2825;
BgL_auxz00_2825 = 
(long)(BgL_arg1507z00_806); 
BgL_test1504z00_805 = 
(BgL_maxz00_798<=BgL_auxz00_2825); } } 
if(BgL_test1504z00_805)
{ /* ./Ieee/input.scm 123 */
BgL_test1495z00_800 = 
(BgL_maxz00_798>=BgL_minz00_797); }  else 
{ /* ./Ieee/input.scm 123 */
BgL_test1495z00_800 = ((bool_t)0); } }  else 
{ /* ./Ieee/input.scm 123 */
BgL_test1495z00_800 = ((bool_t)0); } 
if(BgL_test1495z00_800)
{ /* ./Ieee/input.scm 123 */
int BgL_auxz00_2833;int BgL_auxz00_2831;
BgL_auxz00_2833 = 
(int)(BgL_maxz00_798); 
BgL_auxz00_2831 = 
(int)(BgL_minz00_797); 
return 
rgc_buffer_substring(BgL_inputzd2portzd2_2235, BgL_auxz00_2831, BgL_auxz00_2833);}  else 
{ /* ./Ieee/input.scm 123 */
obj_t BgL_arg1500z00_803;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_auxz00_2838;obj_t BgL_auxz00_2836;
BgL_auxz00_2838 = 
BINT(BgL_maxz00_798); 
BgL_auxz00_2836 = 
BINT(BgL_minz00_797); 
BgL_arg1500z00_803 = 
MAKE_PAIR(BgL_auxz00_2836, BgL_auxz00_2838); } 
FAILURE(BGl_string2821z00zz__r4_input_6_10_2z00,BGl_string2822z00zz__r4_input_6_10_2z00,BgL_arg1500z00_803);} } } 
}



/* the-failure_2535 */
obj_t BGl_thezd2failure_2535zd2zz__r4_input_6_10_2z00(obj_t BgL_inputzd2portzd2_2236)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 123 */
{ /* ./Ieee/input.scm 123 */
bool_t BgL_test1470z00_786;
{ /* ./Ieee/input.scm 123 */
int BgL_arg1478z00_789;
{ /* ./Ieee/input.scm 123 */
int BgL_res2505z00_1606;
{ /* ./Ieee/input.scm 123 */
long BgL_auxz00_2842;
BgL_auxz00_2842 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_2236); 
BgL_res2505z00_1606 = 
(int)(BgL_auxz00_2842); } 
BgL_arg1478z00_789 = BgL_res2505z00_1606; } 
{ /* ./Ieee/input.scm 123 */
long BgL_auxz00_2845;
BgL_auxz00_2845 = 
(long)(BgL_arg1478z00_789); 
BgL_test1470z00_786 = 
(BgL_auxz00_2845==((long)0)); } } 
if(BgL_test1470z00_786)
{ /* ./Ieee/input.scm 123 */
return BCNST(256);}  else 
{ /* ./Ieee/input.scm 123 */
obj_t BgL_arg1472z00_787;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_res2507z00_1616;
{ /* ./Ieee/input.scm 123 */
int BgL_arg1514z00_1610;
{ /* ./Ieee/input.scm 123 */
int BgL_res2506z00_1612;
{ /* ./Ieee/input.scm 123 */
long BgL_auxz00_2849;
BgL_auxz00_2849 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_2236); 
BgL_res2506z00_1612 = 
(int)(BgL_auxz00_2849); } 
BgL_arg1514z00_1610 = BgL_res2506z00_1612; } 
{ /* ./Ieee/input.scm 123 */
int BgL_auxz00_2852;
BgL_auxz00_2852 = 
(int)(((long)0)); 
BgL_res2507z00_1616 = 
rgc_buffer_substring(BgL_inputzd2portzd2_2236, BgL_auxz00_2852, BgL_arg1514z00_1610); } } 
BgL_arg1472z00_787 = BgL_res2507z00_1616; } 
{ /* ./Ieee/input.scm 123 */
unsigned char BgL_auxz00_2855;
{ /* ./Ieee/input.scm 123 */
int BgL_auxz00_2856;
BgL_auxz00_2856 = 
(int)(((long)0)); 
BgL_auxz00_2855 = 
STRING_REF(BgL_arg1472z00_787, BgL_auxz00_2856); } 
return 
BCHAR(BgL_auxz00_2855);} } } } 
}



/* <anonymous:1427> */
obj_t BGl_zc3anonymousza31427ze3z83zz__r4_input_6_10_2z00(obj_t BgL_envz00_2237, obj_t BgL_inputzd2portzd2_2239, obj_t BgL_procz00_2240)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 123 */
{ /* ./Ieee/input.scm 123 */
obj_t BgL_thezd2rgczd2contextz00_2238;
{ /* ./Ieee/input.scm 123 */
int BgL_auxz00_2860;
BgL_auxz00_2860 = 
(int)(((long)0)); 
BgL_thezd2rgczd2contextz00_2238 = 
PROCEDURE_1_EL_REF(BgL_envz00_2237, BgL_auxz00_2860); } 
{ 
obj_t BgL_inputzd2portzd2_734;obj_t BgL_procz00_735;
BgL_inputzd2portzd2_734 = BgL_inputzd2portzd2_2239; 
BgL_procz00_735 = BgL_procz00_2240; 
return 
BGl_ignore_2534z00zz__r4_input_6_10_2z00(BGl_proc2823z00zz__r4_input_6_10_2z00, BgL_thezd2rgczd2contextz00_2238, BgL_procz00_735, BgL_inputzd2portzd2_734);} } } 
}



/* STATE-0-1014 */
obj_t BGl_STATEzd20zd21014z00zz__r4_input_6_10_2z00(obj_t BgL_envz00_2241, obj_t BgL_inputzd2portzd2_2242, obj_t BgL_lastzd2matchzd2_2243, obj_t BgL_thezd2rgczd2contextz00_2244)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 123 */
{ 
obj_t BgL_inputzd2portzd2_812;obj_t BgL_lastzd2matchzd2_813;obj_t BgL_thezd2rgczd2contextz00_814;
BgL_inputzd2portzd2_812 = BgL_inputzd2portzd2_2242; 
BgL_lastzd2matchzd2_813 = BgL_lastzd2matchzd2_2243; 
BgL_thezd2rgczd2contextz00_814 = BgL_thezd2rgczd2contextz00_2244; 
BgL_zc3anonymousza31520ze3z83_815:
{ 
obj_t BgL_inputzd2portzd2_822;obj_t BgL_lastzd2matchzd2_823;obj_t BgL_thezd2rgczd2contextz00_824;obj_t BgL_inputzd2portzd2_856;long BgL_lastzd2matchzd2_857;obj_t BgL_thezd2rgczd2contextz00_858;
{ /* ./Ieee/input.scm 123 */
int BgL_currentzd2charzd2_816;
BgL_currentzd2charzd2_816 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_812); 
switch( 
(long)(BgL_currentzd2charzd2_816)) { case ((long)0) : 

{ /* ./Ieee/input.scm 123 */
bool_t BgL_test1522z00_820;
BgL_test1522z00_820 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_812); 
if(BgL_test1522z00_820)
{ /* ./Ieee/input.scm 123 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_812))
{ 

goto BgL_zc3anonymousza31520ze3z83_815;}  else 
{ /* ./Ieee/input.scm 123 */
return BgL_lastzd2matchzd2_813;} }  else 
{ /* ./Ieee/input.scm 123 */
long BgL_auxz00_2869;
BgL_inputzd2portzd2_822 = BgL_inputzd2portzd2_812; 
BgL_lastzd2matchzd2_823 = BgL_lastzd2matchzd2_813; 
BgL_thezd2rgczd2contextz00_824 = BgL_thezd2rgczd2contextz00_814; 
BgL_zc3anonymousza31535ze3z83_825:
{ /* ./Ieee/input.scm 123 */
long BgL_newzd2matchzd2_826;
RGC_STOP_MATCH(BgL_inputzd2portzd2_822); 
BgL_newzd2matchzd2_826 = ((long)2); 
{ /* ./Ieee/input.scm 123 */
int BgL_currentzd2charzd2_827;
BgL_currentzd2charzd2_827 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_822); 
switch( 
(long)(BgL_currentzd2charzd2_827)) { case ((long)0) : 

{ /* ./Ieee/input.scm 123 */
bool_t BgL_test1537z00_831;
BgL_test1537z00_831 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_822); 
if(BgL_test1537z00_831)
{ /* ./Ieee/input.scm 123 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_822))
{ 

goto BgL_zc3anonymousza31535ze3z83_825;}  else 
{ /* ./Ieee/input.scm 123 */
BgL_auxz00_2869 = BgL_newzd2matchzd2_826
; } }  else 
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_856 = BgL_inputzd2portzd2_822; 
BgL_lastzd2matchzd2_857 = BgL_newzd2matchzd2_826; 
BgL_thezd2rgczd2contextz00_858 = BgL_thezd2rgczd2contextz00_824; 
BgL_zc3anonymousza31567ze3z83_859:
{ /* ./Ieee/input.scm 123 */
long BgL_newzd2matchzd2_860;
RGC_STOP_MATCH(BgL_inputzd2portzd2_856); 
BgL_newzd2matchzd2_860 = ((long)2); 
{ /* ./Ieee/input.scm 123 */
int BgL_currentzd2charzd2_861;
BgL_currentzd2charzd2_861 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_856); 
switch( 
(long)(BgL_currentzd2charzd2_861)) { case ((long)0) : 

{ /* ./Ieee/input.scm 123 */
bool_t BgL_test1569z00_865;
BgL_test1569z00_865 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_856); 
if(BgL_test1569z00_865)
{ /* ./Ieee/input.scm 123 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_856))
{ 

goto BgL_zc3anonymousza31567ze3z83_859;}  else 
{ /* ./Ieee/input.scm 123 */
BgL_auxz00_2869 = BgL_newzd2matchzd2_860
; } }  else 
{ 
long BgL_lastzd2matchzd2_2882;
BgL_lastzd2matchzd2_2882 = BgL_newzd2matchzd2_860; 
BgL_lastzd2matchzd2_857 = BgL_lastzd2matchzd2_2882; 
goto BgL_zc3anonymousza31567ze3z83_859;} } break;case ((long)13) : 

{ 

BgL_statezd28zd21022z00_1755:
{ /* ./Ieee/input.scm 123 */
long BgL_newzd2matchzd2_1756;
RGC_STOP_MATCH(BgL_inputzd2portzd2_856); 
BgL_newzd2matchzd2_1756 = ((long)0); 
{ /* ./Ieee/input.scm 123 */
int BgL_currentzd2charzd2_1757;
BgL_currentzd2charzd2_1757 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_856); 
{ /* ./Ieee/input.scm 123 */
bool_t BgL_testz00_2885;
{ /* ./Ieee/input.scm 123 */
long BgL_auxz00_2886;
BgL_auxz00_2886 = 
(long)(BgL_currentzd2charzd2_1757); 
BgL_testz00_2885 = 
(BgL_auxz00_2886==((long)0)); } 
if(BgL_testz00_2885)
{ /* ./Ieee/input.scm 123 */
{ /* ./Ieee/input.scm 123 */
bool_t BgL_test1587z00_1759;
{ /* ./Ieee/input.scm 123 */
bool_t BgL_res2514z00_1769;
{ /* ./Ieee/input.scm 123 */
bool_t BgL__andtest_1047z00_1766;
BgL__andtest_1047z00_1766 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_856); 
if(BgL__andtest_1047z00_1766)
{ /* ./Ieee/input.scm 123 */
BgL_res2514z00_1769 = 
rgc_fill_buffer(BgL_inputzd2portzd2_856); }  else 
{ /* ./Ieee/input.scm 123 */
BgL_res2514z00_1769 = ((bool_t)0); } } 
BgL_test1587z00_1759 = BgL_res2514z00_1769; } 
if(BgL_test1587z00_1759)
{ /* ./Ieee/input.scm 123 */
goto BgL_statezd28zd21022z00_1755;}  else 
{ /* ./Ieee/input.scm 123 */
BgL_auxz00_2869 = BgL_newzd2matchzd2_1756
; } } }  else 
{ /* ./Ieee/input.scm 123 */
bool_t BgL_testz00_2893;
{ /* ./Ieee/input.scm 123 */
long BgL_auxz00_2894;
BgL_auxz00_2894 = 
(long)(BgL_currentzd2charzd2_1757); 
BgL_testz00_2893 = 
(BgL_auxz00_2894==((long)10)); } 
if(BgL_testz00_2893)
{ /* ./Ieee/input.scm 123 */
{ /* ./Ieee/input.scm 123 */
long BgL_newzd2matchzd2_1775;
RGC_STOP_MATCH(BgL_inputzd2portzd2_856); 
BgL_newzd2matchzd2_1775 = ((long)1); 
BgL_auxz00_2869 = BgL_newzd2matchzd2_1775; } }  else 
{ /* ./Ieee/input.scm 123 */
BgL_auxz00_2869 = BgL_newzd2matchzd2_1756; } } } } } } break;case ((long)10) : 

{ /* ./Ieee/input.scm 123 */
long BgL_newzd2matchzd2_1780;
RGC_STOP_MATCH(BgL_inputzd2portzd2_856); 
BgL_newzd2matchzd2_1780 = ((long)0); 
BgL_auxz00_2869 = BgL_newzd2matchzd2_1780; } break;
default: 
{ 
long BgL_lastzd2matchzd2_2899;
BgL_lastzd2matchzd2_2899 = BgL_newzd2matchzd2_860; 
BgL_lastzd2matchzd2_857 = BgL_lastzd2matchzd2_2899; 
goto BgL_zc3anonymousza31567ze3z83_859;} } } } } } break;case ((long)13) : 

{ 

BgL_statezd28zd21022z00_1675:
{ /* ./Ieee/input.scm 123 */
long BgL_newzd2matchzd2_1676;
RGC_STOP_MATCH(BgL_inputzd2portzd2_822); 
BgL_newzd2matchzd2_1676 = ((long)0); 
{ /* ./Ieee/input.scm 123 */
int BgL_currentzd2charzd2_1677;
BgL_currentzd2charzd2_1677 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_822); 
{ /* ./Ieee/input.scm 123 */
bool_t BgL_testz00_2904;
{ /* ./Ieee/input.scm 123 */
long BgL_auxz00_2905;
BgL_auxz00_2905 = 
(long)(BgL_currentzd2charzd2_1677); 
BgL_testz00_2904 = 
(BgL_auxz00_2905==((long)0)); } 
if(BgL_testz00_2904)
{ /* ./Ieee/input.scm 123 */
{ /* ./Ieee/input.scm 123 */
bool_t BgL_test1587z00_1679;
{ /* ./Ieee/input.scm 123 */
bool_t BgL_res2511z00_1689;
{ /* ./Ieee/input.scm 123 */
bool_t BgL__andtest_1047z00_1686;
BgL__andtest_1047z00_1686 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_822); 
if(BgL__andtest_1047z00_1686)
{ /* ./Ieee/input.scm 123 */
BgL_res2511z00_1689 = 
rgc_fill_buffer(BgL_inputzd2portzd2_822); }  else 
{ /* ./Ieee/input.scm 123 */
BgL_res2511z00_1689 = ((bool_t)0); } } 
BgL_test1587z00_1679 = BgL_res2511z00_1689; } 
if(BgL_test1587z00_1679)
{ /* ./Ieee/input.scm 123 */
goto BgL_statezd28zd21022z00_1675;}  else 
{ /* ./Ieee/input.scm 123 */
BgL_auxz00_2869 = BgL_newzd2matchzd2_1676
; } } }  else 
{ /* ./Ieee/input.scm 123 */
bool_t BgL_testz00_2912;
{ /* ./Ieee/input.scm 123 */
long BgL_auxz00_2913;
BgL_auxz00_2913 = 
(long)(BgL_currentzd2charzd2_1677); 
BgL_testz00_2912 = 
(BgL_auxz00_2913==((long)10)); } 
if(BgL_testz00_2912)
{ /* ./Ieee/input.scm 123 */
{ /* ./Ieee/input.scm 123 */
long BgL_newzd2matchzd2_1695;
RGC_STOP_MATCH(BgL_inputzd2portzd2_822); 
BgL_newzd2matchzd2_1695 = ((long)1); 
BgL_auxz00_2869 = BgL_newzd2matchzd2_1695; } }  else 
{ /* ./Ieee/input.scm 123 */
BgL_auxz00_2869 = BgL_newzd2matchzd2_1676; } } } } } } break;case ((long)10) : 

{ /* ./Ieee/input.scm 123 */
long BgL_newzd2matchzd2_1700;
RGC_STOP_MATCH(BgL_inputzd2portzd2_822); 
BgL_newzd2matchzd2_1700 = ((long)0); 
BgL_auxz00_2869 = BgL_newzd2matchzd2_1700; } break;
default: 
{ 
obj_t BgL_thezd2rgczd2contextz00_2920;long BgL_lastzd2matchzd2_2919;obj_t BgL_inputzd2portzd2_2918;
BgL_inputzd2portzd2_2918 = BgL_inputzd2portzd2_822; 
BgL_lastzd2matchzd2_2919 = BgL_newzd2matchzd2_826; 
BgL_thezd2rgczd2contextz00_2920 = BgL_thezd2rgczd2contextz00_824; 
BgL_thezd2rgczd2contextz00_858 = BgL_thezd2rgczd2contextz00_2920; 
BgL_lastzd2matchzd2_857 = BgL_lastzd2matchzd2_2919; 
BgL_inputzd2portzd2_856 = BgL_inputzd2portzd2_2918; 
goto BgL_zc3anonymousza31567ze3z83_859;} } } } 
return 
BINT(BgL_auxz00_2869);} } break;case ((long)13) : 

{ 

{ /* ./Ieee/input.scm 123 */
long BgL_auxz00_2924;
BgL_statezd23zd21017z00_1644:
{ /* ./Ieee/input.scm 123 */
long BgL_newzd2matchzd2_1645;
RGC_STOP_MATCH(BgL_inputzd2portzd2_812); 
BgL_newzd2matchzd2_1645 = ((long)3); 
{ /* ./Ieee/input.scm 123 */
int BgL_currentzd2charzd2_1646;
BgL_currentzd2charzd2_1646 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_812); 
{ /* ./Ieee/input.scm 123 */
bool_t BgL_testz00_2927;
{ /* ./Ieee/input.scm 123 */
long BgL_auxz00_2928;
BgL_auxz00_2928 = 
(long)(BgL_currentzd2charzd2_1646); 
BgL_testz00_2927 = 
(BgL_auxz00_2928==((long)0)); } 
if(BgL_testz00_2927)
{ /* ./Ieee/input.scm 123 */
{ /* ./Ieee/input.scm 123 */
bool_t BgL_test1555z00_1648;
{ /* ./Ieee/input.scm 123 */
bool_t BgL_res2510z00_1658;
{ /* ./Ieee/input.scm 123 */
bool_t BgL__andtest_1047z00_1655;
BgL__andtest_1047z00_1655 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_812); 
if(BgL__andtest_1047z00_1655)
{ /* ./Ieee/input.scm 123 */
BgL_res2510z00_1658 = 
rgc_fill_buffer(BgL_inputzd2portzd2_812); }  else 
{ /* ./Ieee/input.scm 123 */
BgL_res2510z00_1658 = ((bool_t)0); } } 
BgL_test1555z00_1648 = BgL_res2510z00_1658; } 
if(BgL_test1555z00_1648)
{ /* ./Ieee/input.scm 123 */
goto BgL_statezd23zd21017z00_1644;}  else 
{ /* ./Ieee/input.scm 123 */
BgL_auxz00_2924 = BgL_newzd2matchzd2_1645
; } } }  else 
{ /* ./Ieee/input.scm 123 */
bool_t BgL_testz00_2935;
{ /* ./Ieee/input.scm 123 */
long BgL_auxz00_2936;
BgL_auxz00_2936 = 
(long)(BgL_currentzd2charzd2_1646); 
BgL_testz00_2935 = 
(BgL_auxz00_2936==((long)10)); } 
if(BgL_testz00_2935)
{ /* ./Ieee/input.scm 123 */
{ /* ./Ieee/input.scm 123 */
long BgL_newzd2matchzd2_1664;
RGC_STOP_MATCH(BgL_inputzd2portzd2_812); 
BgL_newzd2matchzd2_1664 = ((long)3); 
BgL_auxz00_2924 = BgL_newzd2matchzd2_1664; } }  else 
{ /* ./Ieee/input.scm 123 */
BgL_auxz00_2924 = BgL_newzd2matchzd2_1645; } } } } } 
return 
BINT(BgL_auxz00_2924);} } break;case ((long)10) : 

{ /* ./Ieee/input.scm 123 */
long BgL_newzd2matchzd2_1669;
RGC_STOP_MATCH(BgL_inputzd2portzd2_812); 
BgL_newzd2matchzd2_1669 = ((long)3); 
return 
BINT(BgL_newzd2matchzd2_1669);} break;
default: 
{ /* ./Ieee/input.scm 123 */
long BgL_auxz00_2943;
{ 
obj_t BgL_thezd2rgczd2contextz00_2946;obj_t BgL_lastzd2matchzd2_2945;obj_t BgL_inputzd2portzd2_2944;
BgL_inputzd2portzd2_2944 = BgL_inputzd2portzd2_812; 
BgL_lastzd2matchzd2_2945 = BgL_lastzd2matchzd2_813; 
BgL_thezd2rgczd2contextz00_2946 = BgL_thezd2rgczd2contextz00_814; 
BgL_thezd2rgczd2contextz00_824 = BgL_thezd2rgczd2contextz00_2946; 
BgL_lastzd2matchzd2_823 = BgL_lastzd2matchzd2_2945; 
BgL_inputzd2portzd2_822 = BgL_inputzd2portzd2_2944; 
goto BgL_zc3anonymousza31535ze3z83_825;} 
return 
BINT(BgL_auxz00_2943);} } } } } } 
}



/* read-lines */
BGL_EXPORTED_DEF obj_t BGl_readzd2lineszd2zz__r4_input_6_10_2z00(obj_t BgL_inputzd2portzd2_12)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 172 */
{ /* ./Ieee/input.scm 173 */
obj_t BgL_portz00_939;
if(
PAIRP(BgL_inputzd2portzd2_12))
{ /* ./Ieee/input.scm 173 */
BgL_portz00_939 = 
CAR(BgL_inputzd2portzd2_12); }  else 
{ /* ./Ieee/input.scm 173 */
BgL_portz00_939 = 
BGL_CURRENT_INPUT_PORT(); } 
{ /* ./Ieee/input.scm 174 */
obj_t BgL_arg1651z00_943;
{ /* ./Ieee/input.scm 174 */
obj_t BgL_list1655z00_945;
BgL_list1655z00_945 = 
MAKE_PAIR(BgL_portz00_939, BNIL); 
BgL_arg1651z00_943 = 
BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_list1655z00_945); } 
{ 
obj_t BgL_lz00_1879;obj_t BgL_lsz00_1880;
BgL_lz00_1879 = BgL_arg1651z00_943; 
BgL_lsz00_1880 = BNIL; 
BgL_loopz00_1878:
{ /* ./Ieee/input.scm 174 */
bool_t BgL_test1657z00_1885;
BgL_test1657z00_1885 = 
EOF_OBJECTP(BgL_lz00_1879); 
if(BgL_test1657z00_1885)
{ /* ./Ieee/input.scm 174 */
return 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_lsz00_1880);}  else 
{ /* ./Ieee/input.scm 174 */
obj_t BgL_arg1660z00_1886;obj_t BgL_arg1661z00_1887;
{ /* ./Ieee/input.scm 174 */
obj_t BgL_list1664z00_1888;
BgL_list1664z00_1888 = 
MAKE_PAIR(BgL_portz00_939, BNIL); 
BgL_arg1660z00_1886 = 
BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_list1664z00_1888); } 
BgL_arg1661z00_1887 = 
MAKE_PAIR(BgL_lz00_1879, BgL_lsz00_1880); 
{ 
obj_t BgL_lsz00_2963;obj_t BgL_lz00_2962;
BgL_lz00_2962 = BgL_arg1660z00_1886; 
BgL_lsz00_2963 = BgL_arg1661z00_1887; 
BgL_lsz00_1880 = BgL_lsz00_2963; 
BgL_lz00_1879 = BgL_lz00_2962; 
goto BgL_loopz00_1878;} } } } } } } 
}



/* _read-lines */
obj_t BGl__readzd2lineszd2zz__r4_input_6_10_2z00(obj_t BgL_envz00_2245, obj_t BgL_inputzd2portzd2_2246)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 172 */
return 
BGl_readzd2lineszd2zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_2246);} 
}



/* read-string */
BGL_EXPORTED_DEF obj_t BGl_readzd2stringzd2zz__r4_input_6_10_2z00(obj_t BgL_inputzd2portzd2_13)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 183 */
{ /* ./Ieee/input.scm 184 */
obj_t BgL_portz00_951;
if(
PAIRP(BgL_inputzd2portzd2_13))
{ /* ./Ieee/input.scm 184 */
BgL_portz00_951 = 
CAR(BgL_inputzd2portzd2_13); }  else 
{ /* ./Ieee/input.scm 184 */
BgL_portz00_951 = 
BGL_CURRENT_INPUT_PORT(); } 
{ /* ./Ieee/input.scm 185 */
obj_t BgL_arg1673z00_952;
{ /* ./Ieee/input.scm 185 */
obj_t BgL_thezd2rgczd2contextz00_953;
BgL_thezd2rgczd2contextz00_953 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Ieee/input.scm 185 */
obj_t BgL_zc3anonymousza31675ze3z83_2256;
{ 
int BgL_auxz00_2969;
BgL_auxz00_2969 = 
(int)(((long)1)); 
BgL_zc3anonymousza31675ze3z83_2256 = 
MAKE_EL_PROCEDURE_1(BgL_auxz00_2969); } 
{ /* ./Ieee/input.scm 185 */
int BgL_auxz00_2972;
BgL_auxz00_2972 = 
(int)(((long)0)); 
PROCEDURE_1_EL_SET(BgL_zc3anonymousza31675ze3z83_2256, BgL_auxz00_2972, BgL_thezd2rgczd2contextz00_953); } 
BgL_arg1673z00_952 = BgL_zc3anonymousza31675ze3z83_2256; } } 
return 
BGl_zc3anonymousza31675ze3z83zz__r4_input_6_10_2z00(BgL_arg1673z00_952, BgL_portz00_951, BFALSE);} } } 
}



/* _read-string */
obj_t BGl__readzd2stringzd2zz__r4_input_6_10_2z00(obj_t BgL_envz00_2257, obj_t BgL_inputzd2portzd2_2258)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 183 */
return 
BGl_readzd2stringzd2zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_2258);} 
}



/* ignore_2539 */
obj_t BGl_ignore_2539z00zz__r4_input_6_10_2z00(obj_t BgL_thezd2rgczd2contextz00_2262, obj_t BgL_statezd20zd21032z00_2261, obj_t BgL_procz00_2260, obj_t BgL_inputzd2portzd2_2259)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 185 */
RGC_START_MATCH(BgL_inputzd2portzd2_2259); 
{ /* ./Ieee/input.scm 185 */
long BgL_matchz00_978;
if(
PROCEDUREP(BgL_procz00_2260))
{ /* ./Ieee/input.scm 185 */
obj_t BgL_auxz00_2981;
BgL_auxz00_2981 = 
PROCEDURE_ENTRY(BgL_procz00_2260)(BgL_procz00_2260, BgL_statezd20zd21032z00_2261, BgL_inputzd2portzd2_2259, 
BINT(((long)1)), 
CELL_REF(BgL_thezd2rgczd2contextz00_2262), BEOA); 
BgL_matchz00_978 = 
(long)CINT(BgL_auxz00_2981); }  else 
{ /* ./Ieee/input.scm 185 */
BgL_matchz00_978 = 
BGl_STATEzd20zd21032z00zz__r4_input_6_10_2z00(BgL_thezd2rgczd2contextz00_2262, BgL_inputzd2portzd2_2259); } 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_2259); 
switch( BgL_matchz00_978) { case ((long)1) : 

return BGl_string2820z00zz__r4_input_6_10_2z00;break;case ((long)0) : 

{ /* ./Ieee/input.scm 186 */
obj_t BgL_res2520z00_1924;
{ /* ./Ieee/input.scm 186 */
int BgL_arg1743z00_1918;
{ /* ./Ieee/input.scm 186 */
int BgL_res2519z00_1920;
{ /* ./Ieee/input.scm 186 */
long BgL_auxz00_2988;
BgL_auxz00_2988 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_2259); 
BgL_res2519z00_1920 = 
(int)(BgL_auxz00_2988); } 
BgL_arg1743z00_1918 = BgL_res2519z00_1920; } 
{ /* ./Ieee/input.scm 186 */
int BgL_auxz00_2991;
BgL_auxz00_2991 = 
(int)(((long)0)); 
BgL_res2520z00_1924 = 
rgc_buffer_substring(BgL_inputzd2portzd2_2259, BgL_auxz00_2991, BgL_arg1743z00_1918); } } 
return BgL_res2520z00_1924;} break;
default: 
{ /* ./Ieee/input.scm 185 */
obj_t BgL_objectz00_1927;
BgL_objectz00_1927 = 
BINT(BgL_matchz00_978); 
FAILURE(BGl_string2815z00zz__r4_input_6_10_2z00,BGl_string2816z00zz__r4_input_6_10_2z00,BgL_objectz00_1927);} } } } 
}



/* STATE-0-1032 */
long BGl_STATEzd20zd21032z00zz__r4_input_6_10_2z00(obj_t BgL_thezd2rgczd2contextz00_2264, obj_t BgL_inputzd2portzd2_2263)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 185 */
BGl_STATEzd20zd21032z00zz__r4_input_6_10_2z00:
{ /* ./Ieee/input.scm 185 */
int BgL_currentzd2charzd2_1907;
BgL_currentzd2charzd2_1907 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2263); 
{ /* ./Ieee/input.scm 185 */
bool_t BgL_testz00_2998;
{ /* ./Ieee/input.scm 185 */
long BgL_auxz00_2999;
BgL_auxz00_2999 = 
(long)(BgL_currentzd2charzd2_1907); 
BgL_testz00_2998 = 
(BgL_auxz00_2999==((long)0)); } 
if(BgL_testz00_2998)
{ /* ./Ieee/input.scm 185 */
{ /* ./Ieee/input.scm 185 */
bool_t BgL_test1775z00_1909;
BgL_test1775z00_1909 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2263); 
if(BgL_test1775z00_1909)
{ /* ./Ieee/input.scm 185 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_2263))
{ 

goto BGl_STATEzd20zd21032z00zz__r4_input_6_10_2z00;}  else 
{ /* ./Ieee/input.scm 185 */
return ((long)1);} }  else 
{ /* ./Ieee/input.scm 185 */
return 
BGl_STATEzd21zd21033z00zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_2263, 
BINT(((long)1)), 
CELL_REF(BgL_thezd2rgczd2contextz00_2264));} } }  else 
{ /* ./Ieee/input.scm 185 */
return 
BGl_STATEzd21zd21033z00zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_2263, 
BINT(((long)1)), 
CELL_REF(BgL_thezd2rgczd2contextz00_2264));} } } } 
}



/* STATE-1-1033 */
long BGl_STATEzd21zd21033z00zz__r4_input_6_10_2z00(obj_t BgL_inputzd2portzd2_1018, obj_t BgL_lastzd2matchzd2_1019, obj_t BgL_thezd2rgczd2contextz00_1020)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 185 */
BGl_STATEzd21zd21033z00zz__r4_input_6_10_2z00:
{ /* ./Ieee/input.scm 185 */
long BgL_newzd2matchzd2_1942;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1018); 
BgL_newzd2matchzd2_1942 = ((long)0); 
{ /* ./Ieee/input.scm 185 */
int BgL_currentzd2charzd2_1943;
BgL_currentzd2charzd2_1943 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1018); 
{ /* ./Ieee/input.scm 185 */
bool_t BgL_testz00_3012;
{ /* ./Ieee/input.scm 185 */
long BgL_auxz00_3013;
BgL_auxz00_3013 = 
(long)(BgL_currentzd2charzd2_1943); 
BgL_testz00_3012 = 
(BgL_auxz00_3013==((long)0)); } 
if(BgL_testz00_3012)
{ /* ./Ieee/input.scm 185 */
{ /* ./Ieee/input.scm 185 */
bool_t BgL_test1751z00_1945;
BgL_test1751z00_1945 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1018); 
if(BgL_test1751z00_1945)
{ /* ./Ieee/input.scm 185 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_1018))
{ /* ./Ieee/input.scm 185 */
long BgL_newzd2matchzd2_1956;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1018); 
BgL_newzd2matchzd2_1956 = ((long)0); 
{ /* ./Ieee/input.scm 185 */
int BgL_currentzd2charzd2_1957;
BgL_currentzd2charzd2_1957 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1018); 
{ /* ./Ieee/input.scm 185 */
bool_t BgL_testz00_3022;
{ /* ./Ieee/input.scm 185 */
long BgL_auxz00_3023;
BgL_auxz00_3023 = 
(long)(BgL_currentzd2charzd2_1957); 
BgL_testz00_3022 = 
(BgL_auxz00_3023==((long)0)); } 
if(BgL_testz00_3022)
{ /* ./Ieee/input.scm 185 */
{ /* ./Ieee/input.scm 185 */
bool_t BgL_test1751z00_1959;
BgL_test1751z00_1959 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1018); 
if(BgL_test1751z00_1959)
{ /* ./Ieee/input.scm 185 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_1018))
{ 

goto BGl_STATEzd21zd21033z00zz__r4_input_6_10_2z00;}  else 
{ /* ./Ieee/input.scm 185 */
return BgL_newzd2matchzd2_1956;} }  else 
{ /* ./Ieee/input.scm 185 */
return 
BGl_STATEzd22zd21034z00zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_1018, BgL_newzd2matchzd2_1956, BgL_thezd2rgczd2contextz00_1020);} } }  else 
{ /* ./Ieee/input.scm 185 */
return 
BGl_STATEzd22zd21034z00zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_1018, BgL_newzd2matchzd2_1956, BgL_thezd2rgczd2contextz00_1020);} } } }  else 
{ /* ./Ieee/input.scm 185 */
return BgL_newzd2matchzd2_1942;} }  else 
{ /* ./Ieee/input.scm 185 */
return 
BGl_STATEzd22zd21034_2540z00zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_1018, BgL_newzd2matchzd2_1942);} } }  else 
{ /* ./Ieee/input.scm 185 */
return 
BGl_STATEzd22zd21034_2541z00zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_1018, BgL_newzd2matchzd2_1942);} } } } } 
}



/* STATE-2-1034 */
long BGl_STATEzd22zd21034z00zz__r4_input_6_10_2z00(obj_t BgL_inputzd2portzd2_1027, long BgL_lastzd2matchzd2_1028, obj_t BgL_thezd2rgczd2contextz00_1029)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 185 */
BGl_STATEzd22zd21034z00zz__r4_input_6_10_2z00:
{ /* ./Ieee/input.scm 185 */
long BgL_newzd2matchzd2_1993;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1027); 
BgL_newzd2matchzd2_1993 = ((long)0); 
{ /* ./Ieee/input.scm 185 */
int BgL_currentzd2charzd2_1994;
BgL_currentzd2charzd2_1994 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1027); 
{ /* ./Ieee/input.scm 185 */
bool_t BgL_testz00_3036;
{ /* ./Ieee/input.scm 185 */
long BgL_auxz00_3037;
BgL_auxz00_3037 = 
(long)(BgL_currentzd2charzd2_1994); 
BgL_testz00_3036 = 
(BgL_auxz00_3037==((long)0)); } 
if(BgL_testz00_3036)
{ /* ./Ieee/input.scm 185 */
{ /* ./Ieee/input.scm 185 */
bool_t BgL_test1763z00_1996;
BgL_test1763z00_1996 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1027); 
if(BgL_test1763z00_1996)
{ /* ./Ieee/input.scm 185 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_1027))
{ /* ./Ieee/input.scm 185 */
long BgL_newzd2matchzd2_2007;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1027); 
BgL_newzd2matchzd2_2007 = ((long)0); 
{ /* ./Ieee/input.scm 185 */
int BgL_currentzd2charzd2_2008;
BgL_currentzd2charzd2_2008 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1027); 
{ /* ./Ieee/input.scm 185 */
bool_t BgL_testz00_3046;
{ /* ./Ieee/input.scm 185 */
long BgL_auxz00_3047;
BgL_auxz00_3047 = 
(long)(BgL_currentzd2charzd2_2008); 
BgL_testz00_3046 = 
(BgL_auxz00_3047==((long)0)); } 
if(BgL_testz00_3046)
{ /* ./Ieee/input.scm 185 */
{ /* ./Ieee/input.scm 185 */
bool_t BgL_test1763z00_2010;
BgL_test1763z00_2010 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1027); 
if(BgL_test1763z00_2010)
{ /* ./Ieee/input.scm 185 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_1027))
{ 

goto BGl_STATEzd22zd21034z00zz__r4_input_6_10_2z00;}  else 
{ /* ./Ieee/input.scm 185 */
return BgL_newzd2matchzd2_2007;} }  else 
{ 
long BgL_lastzd2matchzd2_3054;
BgL_lastzd2matchzd2_3054 = BgL_newzd2matchzd2_2007; 
BgL_lastzd2matchzd2_1028 = BgL_lastzd2matchzd2_3054; 
goto BGl_STATEzd22zd21034z00zz__r4_input_6_10_2z00;} } }  else 
{ /* ./Ieee/input.scm 185 */
{ 
long BgL_lastzd2matchzd2_3055;
BgL_lastzd2matchzd2_3055 = BgL_newzd2matchzd2_2007; 
BgL_lastzd2matchzd2_1028 = BgL_lastzd2matchzd2_3055; 
goto BGl_STATEzd22zd21034z00zz__r4_input_6_10_2z00;} } } } }  else 
{ /* ./Ieee/input.scm 185 */
return BgL_newzd2matchzd2_1993;} }  else 
{ /* ./Ieee/input.scm 185 */
long BgL_newzd2matchzd2_2021;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1027); 
BgL_newzd2matchzd2_2021 = ((long)0); 
{ /* ./Ieee/input.scm 185 */
int BgL_currentzd2charzd2_2022;
BgL_currentzd2charzd2_2022 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1027); 
{ /* ./Ieee/input.scm 185 */
bool_t BgL_testz00_3058;
{ /* ./Ieee/input.scm 185 */
long BgL_auxz00_3059;
BgL_auxz00_3059 = 
(long)(BgL_currentzd2charzd2_2022); 
BgL_testz00_3058 = 
(BgL_auxz00_3059==((long)0)); } 
if(BgL_testz00_3058)
{ /* ./Ieee/input.scm 185 */
{ /* ./Ieee/input.scm 185 */
bool_t BgL_test1763z00_2024;
BgL_test1763z00_2024 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1027); 
if(BgL_test1763z00_2024)
{ /* ./Ieee/input.scm 185 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_1027))
{ 
long BgL_lastzd2matchzd2_3066;
BgL_lastzd2matchzd2_3066 = BgL_newzd2matchzd2_1993; 
BgL_lastzd2matchzd2_1028 = BgL_lastzd2matchzd2_3066; 
goto BGl_STATEzd22zd21034z00zz__r4_input_6_10_2z00;}  else 
{ /* ./Ieee/input.scm 185 */
return BgL_newzd2matchzd2_2021;} }  else 
{ 
long BgL_lastzd2matchzd2_3067;
BgL_lastzd2matchzd2_3067 = BgL_newzd2matchzd2_2021; 
BgL_lastzd2matchzd2_1028 = BgL_lastzd2matchzd2_3067; 
goto BGl_STATEzd22zd21034z00zz__r4_input_6_10_2z00;} } }  else 
{ /* ./Ieee/input.scm 185 */
{ 
long BgL_lastzd2matchzd2_3068;
BgL_lastzd2matchzd2_3068 = BgL_newzd2matchzd2_2021; 
BgL_lastzd2matchzd2_1028 = BgL_lastzd2matchzd2_3068; 
goto BGl_STATEzd22zd21034z00zz__r4_input_6_10_2z00;} } } } } } }  else 
{ /* ./Ieee/input.scm 185 */
{ /* ./Ieee/input.scm 185 */
long BgL_newzd2matchzd2_2035;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1027); 
BgL_newzd2matchzd2_2035 = ((long)0); 
{ /* ./Ieee/input.scm 185 */
int BgL_currentzd2charzd2_2036;
BgL_currentzd2charzd2_2036 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1027); 
{ /* ./Ieee/input.scm 185 */
bool_t BgL_testz00_3071;
{ /* ./Ieee/input.scm 185 */
long BgL_auxz00_3072;
BgL_auxz00_3072 = 
(long)(BgL_currentzd2charzd2_2036); 
BgL_testz00_3071 = 
(BgL_auxz00_3072==((long)0)); } 
if(BgL_testz00_3071)
{ /* ./Ieee/input.scm 185 */
{ /* ./Ieee/input.scm 185 */
bool_t BgL_test1763z00_2038;
BgL_test1763z00_2038 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1027); 
if(BgL_test1763z00_2038)
{ /* ./Ieee/input.scm 185 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_1027))
{ 
long BgL_lastzd2matchzd2_3079;
BgL_lastzd2matchzd2_3079 = BgL_newzd2matchzd2_1993; 
BgL_lastzd2matchzd2_1028 = BgL_lastzd2matchzd2_3079; 
goto BGl_STATEzd22zd21034z00zz__r4_input_6_10_2z00;}  else 
{ /* ./Ieee/input.scm 185 */
return BgL_newzd2matchzd2_2035;} }  else 
{ 
long BgL_lastzd2matchzd2_3080;
BgL_lastzd2matchzd2_3080 = BgL_newzd2matchzd2_2035; 
BgL_lastzd2matchzd2_1028 = BgL_lastzd2matchzd2_3080; 
goto BGl_STATEzd22zd21034z00zz__r4_input_6_10_2z00;} } }  else 
{ /* ./Ieee/input.scm 185 */
{ 
long BgL_lastzd2matchzd2_3081;
BgL_lastzd2matchzd2_3081 = BgL_newzd2matchzd2_2035; 
BgL_lastzd2matchzd2_1028 = BgL_lastzd2matchzd2_3081; 
goto BGl_STATEzd22zd21034z00zz__r4_input_6_10_2z00;} } } } } } } } } } 
}



/* STATE-2-1034_2540 */
long BGl_STATEzd22zd21034_2540z00zz__r4_input_6_10_2z00(obj_t BgL_inputzd2portzd2_2265, long BgL_lastzd2matchzd2_1968)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 185 */
BGl_STATEzd22zd21034_2540z00zz__r4_input_6_10_2z00:
{ /* ./Ieee/input.scm 185 */
long BgL_newzd2matchzd2_1969;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2265); 
BgL_newzd2matchzd2_1969 = ((long)0); 
{ /* ./Ieee/input.scm 185 */
int BgL_currentzd2charzd2_1970;
BgL_currentzd2charzd2_1970 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2265); 
{ /* ./Ieee/input.scm 185 */
bool_t BgL_testz00_3084;
{ /* ./Ieee/input.scm 185 */
long BgL_auxz00_3085;
BgL_auxz00_3085 = 
(long)(BgL_currentzd2charzd2_1970); 
BgL_testz00_3084 = 
(BgL_auxz00_3085==((long)0)); } 
if(BgL_testz00_3084)
{ /* ./Ieee/input.scm 185 */
{ /* ./Ieee/input.scm 185 */
bool_t BgL_test1763z00_1972;
BgL_test1763z00_1972 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2265); 
if(BgL_test1763z00_1972)
{ /* ./Ieee/input.scm 185 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_2265))
{ 

goto BGl_STATEzd22zd21034_2540z00zz__r4_input_6_10_2z00;}  else 
{ /* ./Ieee/input.scm 185 */
return BgL_newzd2matchzd2_1969;} }  else 
{ 
long BgL_lastzd2matchzd2_3092;
BgL_lastzd2matchzd2_3092 = BgL_newzd2matchzd2_1969; 
BgL_lastzd2matchzd2_1968 = BgL_lastzd2matchzd2_3092; 
goto BGl_STATEzd22zd21034_2540z00zz__r4_input_6_10_2z00;} } }  else 
{ /* ./Ieee/input.scm 185 */
{ 
long BgL_lastzd2matchzd2_3093;
BgL_lastzd2matchzd2_3093 = BgL_newzd2matchzd2_1969; 
BgL_lastzd2matchzd2_1968 = BgL_lastzd2matchzd2_3093; 
goto BGl_STATEzd22zd21034_2540z00zz__r4_input_6_10_2z00;} } } } } } 
}



/* STATE-2-1034_2541 */
long BGl_STATEzd22zd21034_2541z00zz__r4_input_6_10_2z00(obj_t BgL_inputzd2portzd2_2266, long BgL_lastzd2matchzd2_1981)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 185 */
BGl_STATEzd22zd21034_2541z00zz__r4_input_6_10_2z00:
{ /* ./Ieee/input.scm 185 */
long BgL_newzd2matchzd2_1982;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2266); 
BgL_newzd2matchzd2_1982 = ((long)0); 
{ /* ./Ieee/input.scm 185 */
int BgL_currentzd2charzd2_1983;
BgL_currentzd2charzd2_1983 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2266); 
{ /* ./Ieee/input.scm 185 */
bool_t BgL_testz00_3096;
{ /* ./Ieee/input.scm 185 */
long BgL_auxz00_3097;
BgL_auxz00_3097 = 
(long)(BgL_currentzd2charzd2_1983); 
BgL_testz00_3096 = 
(BgL_auxz00_3097==((long)0)); } 
if(BgL_testz00_3096)
{ /* ./Ieee/input.scm 185 */
{ /* ./Ieee/input.scm 185 */
bool_t BgL_test1763z00_1985;
BgL_test1763z00_1985 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2266); 
if(BgL_test1763z00_1985)
{ /* ./Ieee/input.scm 185 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_2266))
{ 

goto BGl_STATEzd22zd21034_2541z00zz__r4_input_6_10_2z00;}  else 
{ /* ./Ieee/input.scm 185 */
return BgL_newzd2matchzd2_1982;} }  else 
{ 
long BgL_lastzd2matchzd2_3104;
BgL_lastzd2matchzd2_3104 = BgL_newzd2matchzd2_1982; 
BgL_lastzd2matchzd2_1981 = BgL_lastzd2matchzd2_3104; 
goto BGl_STATEzd22zd21034_2541z00zz__r4_input_6_10_2z00;} } }  else 
{ /* ./Ieee/input.scm 185 */
{ 
long BgL_lastzd2matchzd2_3105;
BgL_lastzd2matchzd2_3105 = BgL_newzd2matchzd2_1982; 
BgL_lastzd2matchzd2_1981 = BgL_lastzd2matchzd2_3105; 
goto BGl_STATEzd22zd21034_2541z00zz__r4_input_6_10_2z00;} } } } } } 
}



/* STATE-1-1033_2542 */
long BGl_STATEzd21zd21033_2542z00zz__r4_input_6_10_2z00(obj_t BgL_thezd2rgczd2contextz00_2268, obj_t BgL_inputzd2portzd2_2267)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 185 */
BGl_STATEzd21zd21033_2542z00zz__r4_input_6_10_2z00:
{ /* ./Ieee/input.scm 185 */
long BgL_newzd2matchzd2_2068;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2267); 
BgL_newzd2matchzd2_2068 = ((long)0); 
{ /* ./Ieee/input.scm 185 */
int BgL_currentzd2charzd2_2069;
BgL_currentzd2charzd2_2069 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2267); 
{ /* ./Ieee/input.scm 185 */
bool_t BgL_testz00_3108;
{ /* ./Ieee/input.scm 185 */
long BgL_auxz00_3109;
BgL_auxz00_3109 = 
(long)(BgL_currentzd2charzd2_2069); 
BgL_testz00_3108 = 
(BgL_auxz00_3109==((long)0)); } 
if(BgL_testz00_3108)
{ /* ./Ieee/input.scm 185 */
{ /* ./Ieee/input.scm 185 */
bool_t BgL_test1751z00_2071;
BgL_test1751z00_2071 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2267); 
if(BgL_test1751z00_2071)
{ /* ./Ieee/input.scm 185 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_2267))
{ 

goto BGl_STATEzd21zd21033_2542z00zz__r4_input_6_10_2z00;}  else 
{ /* ./Ieee/input.scm 185 */
return BgL_newzd2matchzd2_2068;} }  else 
{ /* ./Ieee/input.scm 185 */
return 
BGl_STATEzd22zd21034z00zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_2267, BgL_newzd2matchzd2_2068, BgL_thezd2rgczd2contextz00_2268);} } }  else 
{ /* ./Ieee/input.scm 185 */
return 
BGl_STATEzd22zd21034z00zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_2267, BgL_newzd2matchzd2_2068, BgL_thezd2rgczd2contextz00_2268);} } } } } 
}



/* STATE-1-1033_2543 */
long BGl_STATEzd21zd21033_2543z00zz__r4_input_6_10_2z00(obj_t BgL_thezd2rgczd2contextz00_2270, obj_t BgL_inputzd2portzd2_2269)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 185 */
BGl_STATEzd21zd21033_2543z00zz__r4_input_6_10_2z00:
{ /* ./Ieee/input.scm 185 */
long BgL_newzd2matchzd2_2080;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2269); 
BgL_newzd2matchzd2_2080 = ((long)0); 
{ /* ./Ieee/input.scm 185 */
int BgL_currentzd2charzd2_2081;
BgL_currentzd2charzd2_2081 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2269); 
{ /* ./Ieee/input.scm 185 */
bool_t BgL_testz00_3120;
{ /* ./Ieee/input.scm 185 */
long BgL_auxz00_3121;
BgL_auxz00_3121 = 
(long)(BgL_currentzd2charzd2_2081); 
BgL_testz00_3120 = 
(BgL_auxz00_3121==((long)0)); } 
if(BgL_testz00_3120)
{ /* ./Ieee/input.scm 185 */
{ /* ./Ieee/input.scm 185 */
bool_t BgL_test1751z00_2083;
BgL_test1751z00_2083 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2269); 
if(BgL_test1751z00_2083)
{ /* ./Ieee/input.scm 185 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_2269))
{ 

goto BGl_STATEzd21zd21033_2543z00zz__r4_input_6_10_2z00;}  else 
{ /* ./Ieee/input.scm 185 */
return BgL_newzd2matchzd2_2080;} }  else 
{ /* ./Ieee/input.scm 185 */
return 
BGl_STATEzd22zd21034z00zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_2269, BgL_newzd2matchzd2_2080, BgL_thezd2rgczd2contextz00_2270);} } }  else 
{ /* ./Ieee/input.scm 185 */
return 
BGl_STATEzd22zd21034z00zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_2269, BgL_newzd2matchzd2_2080, BgL_thezd2rgczd2contextz00_2270);} } } } } 
}



/* <anonymous:1675> */
obj_t BGl_zc3anonymousza31675ze3z83zz__r4_input_6_10_2z00(obj_t BgL_envz00_2271, obj_t BgL_inputzd2portzd2_2273, obj_t BgL_procz00_2274)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 185 */
{ /* ./Ieee/input.scm 185 */
obj_t BgL_thezd2rgczd2contextz00_2272;
{ /* ./Ieee/input.scm 185 */
int BgL_auxz00_3130;
BgL_auxz00_3130 = 
(int)(((long)0)); 
BgL_thezd2rgczd2contextz00_2272 = 
PROCEDURE_1_EL_REF(BgL_envz00_2271, BgL_auxz00_3130); } 
{ 
obj_t BgL_inputzd2portzd2_954;obj_t BgL_procz00_955;
BgL_inputzd2portzd2_954 = BgL_inputzd2portzd2_2273; 
BgL_procz00_955 = BgL_procz00_2274; 
return 
BGl_ignore_2539z00zz__r4_input_6_10_2z00(BgL_thezd2rgczd2contextz00_2272, BGl_proc2824z00zz__r4_input_6_10_2z00, BgL_procz00_955, BgL_inputzd2portzd2_954);} } } 
}



/* STATE-0-1032_2544 */
obj_t BGl_STATEzd20zd21032_2544z00zz__r4_input_6_10_2z00(obj_t BgL_envz00_2275, obj_t BgL_inputzd2portzd2_2276, obj_t BgL_lastzd2matchzd2_2277, obj_t BgL_thezd2rgczd2contextz00_2278)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 185 */
{ 
obj_t BgL_inputzd2portzd2_1036;obj_t BgL_lastzd2matchzd2_1037;obj_t BgL_thezd2rgczd2contextz00_1038;
BgL_inputzd2portzd2_1036 = BgL_inputzd2portzd2_2276; 
BgL_lastzd2matchzd2_1037 = BgL_lastzd2matchzd2_2277; 
BgL_thezd2rgczd2contextz00_1038 = BgL_thezd2rgczd2contextz00_2278; 
BgL_zc3anonymousza31773ze3z83_1039:
{ /* ./Ieee/input.scm 185 */
int BgL_currentzd2charzd2_2046;
BgL_currentzd2charzd2_2046 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1036); 
{ /* ./Ieee/input.scm 185 */
bool_t BgL_testz00_3135;
{ /* ./Ieee/input.scm 185 */
long BgL_auxz00_3136;
BgL_auxz00_3136 = 
(long)(BgL_currentzd2charzd2_2046); 
BgL_testz00_3135 = 
(BgL_auxz00_3136==((long)0)); } 
if(BgL_testz00_3135)
{ /* ./Ieee/input.scm 185 */
{ /* ./Ieee/input.scm 185 */
bool_t BgL_test1775z00_2048;
BgL_test1775z00_2048 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1036); 
if(BgL_test1775z00_2048)
{ /* ./Ieee/input.scm 185 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_1036))
{ /* ./Ieee/input.scm 185 */
int BgL_currentzd2charzd2_2058;
BgL_currentzd2charzd2_2058 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1036); 
{ /* ./Ieee/input.scm 185 */
bool_t BgL_testz00_3144;
{ /* ./Ieee/input.scm 185 */
long BgL_auxz00_3145;
BgL_auxz00_3145 = 
(long)(BgL_currentzd2charzd2_2058); 
BgL_testz00_3144 = 
(BgL_auxz00_3145==((long)0)); } 
if(BgL_testz00_3144)
{ /* ./Ieee/input.scm 185 */
{ /* ./Ieee/input.scm 185 */
bool_t BgL_test1775z00_2060;
BgL_test1775z00_2060 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1036); 
if(BgL_test1775z00_2060)
{ /* ./Ieee/input.scm 185 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_1036))
{ 

goto BgL_zc3anonymousza31773ze3z83_1039;}  else 
{ /* ./Ieee/input.scm 185 */
return BgL_lastzd2matchzd2_1037;} }  else 
{ /* ./Ieee/input.scm 185 */
long BgL_auxz00_3152;
BgL_auxz00_3152 = 
BGl_STATEzd21zd21033z00zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_1036, BgL_lastzd2matchzd2_1037, BgL_thezd2rgczd2contextz00_1038); 
return 
BINT(BgL_auxz00_3152);} } }  else 
{ /* ./Ieee/input.scm 185 */
{ /* ./Ieee/input.scm 185 */
long BgL_auxz00_3155;
BgL_auxz00_3155 = 
BGl_STATEzd21zd21033z00zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_1036, BgL_lastzd2matchzd2_1037, BgL_thezd2rgczd2contextz00_1038); 
return 
BINT(BgL_auxz00_3155);} } } }  else 
{ /* ./Ieee/input.scm 185 */
return BgL_lastzd2matchzd2_1037;} }  else 
{ /* ./Ieee/input.scm 185 */
long BgL_auxz00_3158;
BgL_auxz00_3158 = 
BGl_STATEzd21zd21033_2542z00zz__r4_input_6_10_2z00(BgL_thezd2rgczd2contextz00_1038, BgL_inputzd2portzd2_1036); 
return 
BINT(BgL_auxz00_3158);} } }  else 
{ /* ./Ieee/input.scm 185 */
{ /* ./Ieee/input.scm 185 */
long BgL_auxz00_3161;
BgL_auxz00_3161 = 
BGl_STATEzd21zd21033_2543z00zz__r4_input_6_10_2z00(BgL_thezd2rgczd2contextz00_1038, BgL_inputzd2portzd2_1036); 
return 
BINT(BgL_auxz00_3161);} } } } } } 
}



/* read-of-strings */
BGL_EXPORTED_DEF obj_t BGl_readzd2ofzd2stringsz00zz__r4_input_6_10_2z00(obj_t BgL_inputzd2portzd2_14)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 203 */
{ /* ./Ieee/input.scm 204 */
obj_t BgL_portz00_2093;
if(
PAIRP(BgL_inputzd2portzd2_14))
{ /* ./Ieee/input.scm 204 */
BgL_portz00_2093 = 
CAR(BgL_inputzd2portzd2_14); }  else 
{ /* ./Ieee/input.scm 204 */
BgL_portz00_2093 = 
BGL_CURRENT_INPUT_PORT(); } 
return 
PROCEDURE_ENTRY(BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00)(BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00, BgL_portz00_2093, BFALSE, BEOA);} } 
}



/* _read-of-strings */
obj_t BGl__readzd2ofzd2stringsz00zz__r4_input_6_10_2z00(obj_t BgL_envz00_2279, obj_t BgL_inputzd2portzd2_2280)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 203 */
return 
BGl_readzd2ofzd2stringsz00zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_2280);} 
}



/* read-chars */
BGL_EXPORTED_DEF obj_t BGl_readzd2charszd2zz__r4_input_6_10_2z00(int BgL_lenz00_15, obj_t BgL_inputzd2portzd2_16)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 210 */
{ /* ./Ieee/input.scm 211 */
obj_t BgL_sz00_1071;
BgL_sz00_1071 = 
make_string_sans_fill(BgL_lenz00_15); 
{ /* ./Ieee/input.scm 211 */
obj_t BgL_pz00_1072;
if(
PAIRP(BgL_inputzd2portzd2_16))
{ /* ./Ieee/input.scm 212 */
BgL_pz00_1072 = 
CAR(BgL_inputzd2portzd2_16); }  else 
{ /* ./Ieee/input.scm 212 */
BgL_pz00_1072 = 
BGL_CURRENT_INPUT_PORT(); } 
{ /* ./Ieee/input.scm 212 */
int BgL_nz00_1073;
{ /* ./Ieee/input.scm 213 */
int BgL_auxz00_3176;
BgL_auxz00_3176 = 
(int)(((long)0)); 
BgL_nz00_1073 = 
rgc_blit_string(BgL_pz00_1072, BgL_sz00_1071, BgL_auxz00_3176, BgL_lenz00_15); } 
{ /* ./Ieee/input.scm 213 */

{ /* ./Ieee/input.scm 215 */
bool_t BgL_testz00_3179;
{ /* ./Ieee/input.scm 215 */
long BgL_auxz00_3180;
BgL_auxz00_3180 = 
(long)(BgL_nz00_1073); 
BgL_testz00_3179 = 
(BgL_auxz00_3180==((long)0)); } 
if(BgL_testz00_3179)
{ /* ./Ieee/input.scm 215 */
if(
rgc_buffer_eof_p(BgL_pz00_1072))
{ /* ./Ieee/input.scm 216 */
return BEOF;}  else 
{ /* ./Ieee/input.scm 216 */
return BGl_string2820z00zz__r4_input_6_10_2z00;} }  else 
{ /* ./Ieee/input.scm 219 */
bool_t BgL_testz00_3185;
{ /* ./Ieee/input.scm 219 */
long BgL_auxz00_3188;long BgL_auxz00_3186;
BgL_auxz00_3188 = 
(long)(BgL_lenz00_15); 
BgL_auxz00_3186 = 
(long)(BgL_nz00_1073); 
BgL_testz00_3185 = 
(BgL_auxz00_3186<BgL_auxz00_3188); } 
if(BgL_testz00_3185)
{ /* ./Ieee/input.scm 219 */
return 
bgl_string_shrink(BgL_sz00_1071, BgL_nz00_1073);}  else 
{ /* ./Ieee/input.scm 219 */
return BgL_sz00_1071;} } } } } } } } 
}



/* _read-chars2547 */
obj_t BGl__readzd2chars2547zd2zz__r4_input_6_10_2z00(obj_t BgL_envz00_2281, obj_t BgL_lenz00_2282, obj_t BgL_inputzd2portzd2_2283)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 210 */
return 
BGl_readzd2charszd2zz__r4_input_6_10_2z00(
CINT(BgL_lenz00_2282), BgL_inputzd2portzd2_2283);} 
}



/* read-fill-string! */
BGL_EXPORTED_DEF int BGl_readzd2fillzd2stringz12z12zz__r4_input_6_10_2z00(obj_t BgL_sz00_17, int BgL_oz00_18, int BgL_lenz00_19, obj_t BgL_inputzd2portzd2_20)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 227 */
{ /* ./Ieee/input.scm 228 */
obj_t BgL_portz00_2108;
if(
PAIRP(BgL_inputzd2portzd2_20))
{ /* ./Ieee/input.scm 228 */
BgL_portz00_2108 = 
CAR(BgL_inputzd2portzd2_20); }  else 
{ /* ./Ieee/input.scm 228 */
BgL_portz00_2108 = 
BGL_CURRENT_INPUT_PORT(); } 
return 
rgc_blit_string(BgL_portz00_2108, BgL_sz00_17, BgL_oz00_18, BgL_lenz00_19);} } 
}



/* _read-fill-string!2549 */
obj_t BGl__readzd2fillzd2stringz122549z12zz__r4_input_6_10_2z00(obj_t BgL_envz00_2284, obj_t BgL_sz00_2285, obj_t BgL_oz00_2286, obj_t BgL_lenz00_2287, obj_t BgL_inputzd2portzd2_2288)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 227 */
{ /* ./Ieee/input.scm 228 */
int BgL_auxz00_3199;
BgL_auxz00_3199 = 
BGl_readzd2fillzd2stringz12z12zz__r4_input_6_10_2z00(BgL_sz00_2285, 
CINT(BgL_oz00_2286), 
CINT(BgL_lenz00_2287), BgL_inputzd2portzd2_2288); 
return 
BINT(BgL_auxz00_3199);} } 
}



/* send-chars */
BGL_EXPORTED_DEF int BGl_sendzd2charszd2zz__r4_input_6_10_2z00(obj_t BgL_inputz00_21, obj_t BgL_outputz00_22, obj_t BgL_objz00_23)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 239 */
{ /* ./Ieee/input.scm 240 */
obj_t BgL_siza7eza7_1080;
{ /* ./Ieee/input.scm 240 */
obj_t BgL_cellvalz00_3204;
if(
NULLP(BgL_objz00_23))
{ /* ./Ieee/input.scm 240 */
BgL_cellvalz00_3204 = 
BINT(((long)-1))
; }  else 
{ /* ./Ieee/input.scm 240 */
BgL_cellvalz00_3204 = 
CAR(BgL_objz00_23)
; } 
BgL_siza7eza7_1080 = 
MAKE_CELL(BgL_cellvalz00_3204); } 
{ /* ./Ieee/input.scm 241 */
obj_t BgL__ortest_1046z00_1081;
{ /* ./Ieee/input.scm 241 */
int BgL_auxz00_3209;
{ /* ./Ieee/input.scm 241 */
obj_t BgL_auxz00_3210;
BgL_auxz00_3210 = 
CELL_REF(BgL_siza7eza7_1080); 
BgL_auxz00_3209 = 
CINT(BgL_auxz00_3210); } 
BgL__ortest_1046z00_1081 = 
bgl_sendchars(BgL_inputz00_21, BgL_outputz00_22, BgL_auxz00_3209); } 
if(
CBOOL(BgL__ortest_1046z00_1081))
{ /* ./Ieee/input.scm 241 */
return 
CINT(BgL__ortest_1046z00_1081);}  else 
{ /* ./Ieee/input.scm 242 */
obj_t BgL_bufsiza7eza7_1082;
{ /* ./Ieee/input.scm 242 */
bool_t BgL_test1836z00_1096;
{ /* ./Ieee/input.scm 242 */
long BgL_n1z00_2114;
{ /* ./Ieee/input.scm 242 */
obj_t BgL_auxz00_3216;
BgL_auxz00_3216 = 
CELL_REF(BgL_siza7eza7_1080); 
BgL_n1z00_2114 = 
(long)CINT(BgL_auxz00_3216); } 
BgL_test1836z00_1096 = 
(BgL_n1z00_2114==((long)-1)); } 
if(BgL_test1836z00_1096)
{ /* ./Ieee/input.scm 242 */
BgL_bufsiza7eza7_1082 = 
BINT(default_io_bufsiz); }  else 
{ /* ./Ieee/input.scm 244 */
bool_t BgL_test1837z00_1097;
{ /* ./Ieee/input.scm 244 */
long BgL_n1z00_2116;long BgL_n2z00_2117;
BgL_n1z00_2116 = 
(long)(default_io_bufsiz); 
{ /* ./Ieee/input.scm 244 */
obj_t BgL_auxz00_3222;
BgL_auxz00_3222 = 
CELL_REF(BgL_siza7eza7_1080); 
BgL_n2z00_2117 = 
(long)CINT(BgL_auxz00_3222); } 
BgL_test1837z00_1097 = 
(BgL_n1z00_2116<BgL_n2z00_2117); } 
if(BgL_test1837z00_1097)
{ /* ./Ieee/input.scm 244 */
BgL_bufsiza7eza7_1082 = 
BINT(default_io_bufsiz); }  else 
{ /* ./Ieee/input.scm 244 */
BgL_bufsiza7eza7_1082 = 
CELL_REF(BgL_siza7eza7_1080); } } } 
{ /* ./Ieee/input.scm 242 */
obj_t BgL_bufferz00_1083;
{ /* ./Ieee/input.scm 247 */
int BgL_auxz00_3227;
BgL_auxz00_3227 = 
CINT(BgL_bufsiza7eza7_1082); 
BgL_bufferz00_1083 = 
make_string(BgL_auxz00_3227, ((unsigned char)' ')); } 
{ /* ./Ieee/input.scm 247 */
obj_t BgL_charszd2tozd2readz00_1084;
BgL_charszd2tozd2readz00_1084 = 
MAKE_CELL(BgL_bufsiza7eza7_1082); 
{ /* ./Ieee/input.scm 248 */
obj_t BgL_charszd2readzd2_1085;
{ /* ./Ieee/input.scm 249 */
obj_t BgL_cellvalz00_3230;
BgL_cellvalz00_3230 = 
BINT(((long)0)); 
BgL_charszd2readzd2_1085 = 
MAKE_CELL(BgL_cellvalz00_3230); } 
{ /* ./Ieee/input.scm 249 */

{ /* ./Ieee/input.scm 250 */
long BgL_auxz00_3232;
BgL_auxz00_3232 = 
BGl_loopz00zz__r4_input_6_10_2z00(BgL_outputz00_22, BgL_bufsiza7eza7_1082, BgL_siza7eza7_1080, BgL_charszd2readzd2_1085, BgL_bufferz00_1083, BgL_inputz00_21, BgL_charszd2tozd2readz00_1084); 
return 
(int)(BgL_auxz00_3232);} } } } } } } } } 
}



/* loop */
long BGl_loopz00zz__r4_input_6_10_2z00(obj_t BgL_outputz00_2299, obj_t BgL_bufsiza7eza7_2298, obj_t BgL_siza7eza7_2297, obj_t BgL_charszd2readzd2_2296, obj_t BgL_bufferz00_2295, obj_t BgL_inputz00_2294, obj_t BgL_charszd2tozd2readz00_2293)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 250 */
BGl_loopz00zz__r4_input_6_10_2z00:
{ /* ./Ieee/input.scm 251 */
bool_t BgL_test1813z00_1087;
{ /* ./Ieee/input.scm 251 */
long BgL_n1z00_2125;
{ /* ./Ieee/input.scm 251 */
obj_t BgL_auxz00_3235;
BgL_auxz00_3235 = 
CELL_REF(BgL_charszd2tozd2readz00_2293); 
BgL_n1z00_2125 = 
(long)CINT(BgL_auxz00_3235); } 
BgL_test1813z00_1087 = 
(BgL_n1z00_2125==((long)0)); } 
if(BgL_test1813z00_1087)
{ /* ./Ieee/input.scm 252 */
obj_t BgL_auxz00_3239;
BgL_auxz00_3239 = 
CELL_REF(BgL_charszd2readzd2_2296); 
return 
(long)CINT(BgL_auxz00_3239);}  else 
{ /* ./Ieee/input.scm 253 */
int BgL_nz00_1088;
{ /* ./Ieee/input.scm 253 */
obj_t BgL_list1831z00_1094;
BgL_list1831z00_1094 = 
MAKE_PAIR(BgL_inputz00_2294, BNIL); 
{ /* ./Ieee/input.scm 253 */
int BgL_res2523z00_2135;
{ /* ./Ieee/input.scm 253 */
int BgL_oz00_2128;int BgL_lenz00_2129;
BgL_oz00_2128 = 
(int)(((long)0)); 
{ /* ./Ieee/input.scm 253 */
obj_t BgL_auxz00_3243;
BgL_auxz00_3243 = 
CELL_REF(BgL_charszd2tozd2readz00_2293); 
BgL_lenz00_2129 = 
CINT(BgL_auxz00_3243); } 
{ /* ./Ieee/input.scm 253 */
obj_t BgL_auxz00_3245;
BgL_auxz00_3245 = 
CAR(BgL_list1831z00_1094); 
BgL_res2523z00_2135 = 
rgc_blit_string(BgL_auxz00_3245, BgL_bufferz00_2295, BgL_oz00_2128, BgL_lenz00_2129); } } 
BgL_nz00_1088 = BgL_res2523z00_2135; } } 
{ /* ./Ieee/input.scm 257 */
obj_t BgL_auxz00_2300;
{ /* ./Ieee/input.scm 257 */
long BgL_za71za7_2136;long BgL_za72za7_2137;
{ /* ./Ieee/input.scm 257 */
obj_t BgL_auxz00_3248;
BgL_auxz00_3248 = 
CELL_REF(BgL_charszd2readzd2_2296); 
BgL_za71za7_2136 = 
(long)CINT(BgL_auxz00_3248); } 
BgL_za72za7_2137 = 
(long)(BgL_nz00_1088); 
{ /* ./Ieee/input.scm 257 */
long BgL_auxz00_3251;
BgL_auxz00_3251 = 
(BgL_za71za7_2136+BgL_za72za7_2137); 
BgL_auxz00_2300 = 
BINT(BgL_auxz00_3251); } } 
CELL_SET(BgL_charszd2readzd2_2296, BgL_auxz00_2300); } 
{ /* ./Ieee/input.scm 259 */
bool_t BgL_testz00_3254;
{ /* ./Ieee/input.scm 259 */
long BgL_auxz00_3255;
BgL_auxz00_3255 = 
(long)(BgL_nz00_1088); 
BgL_testz00_3254 = 
(((long)0)==BgL_auxz00_3255); } 
if(BgL_testz00_3254)
{ /* ./Ieee/input.scm 259 */
{ /* ./Ieee/input.scm 260 */
obj_t BgL_auxz00_2301;
BgL_auxz00_2301 = 
BINT(((long)0)); 
CELL_SET(BgL_charszd2tozd2readz00_2293, BgL_auxz00_2301); } }  else 
{ /* ./Ieee/input.scm 261 */
bool_t BgL_test1816z00_1090;
{ /* ./Ieee/input.scm 261 */
long BgL_n2z00_2141;
{ /* ./Ieee/input.scm 261 */
obj_t BgL_auxz00_3259;
BgL_auxz00_3259 = 
CELL_REF(BgL_siza7eza7_2297); 
BgL_n2z00_2141 = 
(long)CINT(BgL_auxz00_3259); } 
BgL_test1816z00_1090 = 
(((long)-1)==BgL_n2z00_2141); } 
if(BgL_test1816z00_1090)
{ /* ./Ieee/input.scm 261 */BFALSE; }  else 
{ /* ./Ieee/input.scm 261 */
{ /* ./Ieee/input.scm 262 */
obj_t BgL_auxz00_2302;
{ /* ./Ieee/input.scm 262 */
long BgL_za71za7_2142;long BgL_za72za7_2143;
{ /* ./Ieee/input.scm 262 */
obj_t BgL_auxz00_3263;
BgL_auxz00_3263 = 
CELL_REF(BgL_siza7eza7_2297); 
BgL_za71za7_2142 = 
(long)CINT(BgL_auxz00_3263); } 
BgL_za72za7_2143 = 
(long)(BgL_nz00_1088); 
{ /* ./Ieee/input.scm 262 */
long BgL_auxz00_3266;
BgL_auxz00_3266 = 
(BgL_za71za7_2142-BgL_za72za7_2143); 
BgL_auxz00_2302 = 
BINT(BgL_auxz00_3266); } } 
CELL_SET(BgL_siza7eza7_2297, BgL_auxz00_2302); } 
{ /* ./Ieee/input.scm 263 */
obj_t BgL_auxz00_2303;
{ /* ./Ieee/input.scm 264 */
bool_t BgL_test1818z00_1091;
{ /* ./Ieee/input.scm 264 */
long BgL_n1z00_2144;long BgL_n2z00_2145;
{ /* ./Ieee/input.scm 264 */
obj_t BgL_auxz00_3269;
BgL_auxz00_3269 = 
CELL_REF(BgL_siza7eza7_2297); 
BgL_n1z00_2144 = 
(long)CINT(BgL_auxz00_3269); } 
BgL_n2z00_2145 = 
(long)CINT(BgL_bufsiza7eza7_2298); 
BgL_test1818z00_1091 = 
(BgL_n1z00_2144<BgL_n2z00_2145); } 
if(BgL_test1818z00_1091)
{ /* ./Ieee/input.scm 264 */
BgL_auxz00_2303 = 
CELL_REF(BgL_siza7eza7_2297); }  else 
{ /* ./Ieee/input.scm 264 */
BgL_auxz00_2303 = BgL_bufsiza7eza7_2298; } } 
CELL_SET(BgL_charszd2tozd2readz00_2293, BgL_auxz00_2303); } } } } 
{ /* ./Ieee/input.scm 267 */
bool_t BgL_testz00_3274;
{ /* ./Ieee/input.scm 267 */
long BgL_auxz00_3277;long BgL_auxz00_3275;
BgL_auxz00_3277 = 
(long)(BgL_nz00_1088); 
BgL_auxz00_3275 = 
(long)CINT(BgL_bufsiza7eza7_2298); 
BgL_testz00_3274 = 
(BgL_auxz00_3275==BgL_auxz00_3277); } 
if(BgL_testz00_3274)
{ /* ./Ieee/input.scm 267 */
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_bufferz00_2295, BgL_outputz00_2299); }  else 
{ /* ./Ieee/input.scm 269 */
obj_t BgL_auxz00_3281;
{ /* ./Ieee/input.scm 269 */
int BgL_auxz00_3282;
BgL_auxz00_3282 = 
(int)(((long)0)); 
BgL_auxz00_3281 = 
c_substring(BgL_bufferz00_2295, BgL_auxz00_3282, BgL_nz00_1088); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_auxz00_3281, BgL_outputz00_2299); } } 
{ 

goto BGl_loopz00zz__r4_input_6_10_2z00;} } } } 
}



/* _send-chars2551 */
obj_t BGl__sendzd2chars2551zd2zz__r4_input_6_10_2z00(obj_t BgL_envz00_2289, obj_t BgL_inputz00_2290, obj_t BgL_outputz00_2291, obj_t BgL_objz00_2292)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 239 */
{ /* ./Ieee/input.scm 240 */
int BgL_auxz00_3286;
BgL_auxz00_3286 = 
BGl_sendzd2charszd2zz__r4_input_6_10_2z00(BgL_inputz00_2290, BgL_outputz00_2291, BgL_objz00_2292); 
return 
BINT(BgL_auxz00_3286);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__r4_input_6_10_2z00()
{ AN_OBJECT;
{ /* ./Ieee/input.scm 14 */
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__r4_input_6_10_2"); 
return 
BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(((long)45566), "__r4_input_6_10_2");} 
}

