/*===========================================================================*/
/*   (Init/main.scm)                                                         */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -q -afile .afile -fsharing -fno-reflection -cc gcc-2.95 -lib-dir /users/serrano/prgm/project/bigloo/lib/2.6b -unsafev -no-hello -O2 -rm -unsafe -s -indent Init/main.scm)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>

BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzinit_mainz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzinit_setrcz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzinit_parsezd2argszd2(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_enginez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
static obj_t BGl_za2exitzd2biglooza2zd2zzinit_mainz00 = BUNSPEC;
static obj_t BGl_zc3exitza31017ze3z83zzinit_mainz00(obj_t);
BGL_IMPORT obj_t BGl_unwindzd2untilz12zc0zz__bexitz00(obj_t, obj_t);
extern obj_t BGl_enginez00zzengine_enginez00();
static obj_t BGl_zc3exitza31030ze3z83zzinit_mainz00(obj_t);
extern obj_t BGl_parsezd2argszd2zzinit_parsezd2argszd2(obj_t);
static obj_t BGl__exitzd2bigloozd2zzinit_mainz00(obj_t, obj_t);
extern obj_t BGl_setupzd2defaultzd2valuesz00zzinit_setrcz00();
static obj_t BGl__main1044z00zzinit_mainz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_mainz00zzinit_mainz00(obj_t);
BGL_EXPORTED_DECL obj_t bigloo_main(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzinit_mainz00();
static obj_t BGl_requirezd2initializa7ationz75zzinit_mainz00 = BUNSPEC;
BGL_IMPORT obj_t BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(obj_t);
static obj_t BGl_exitz00zzinit_mainz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_exitz00zz__errorz00(obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzinit_mainz00();
BGL_EXPORTED_DECL obj_t BGl_exitzd2bigloozd2zzinit_mainz00(obj_t);
BGL_IMPORT obj_t BGl_memberz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zzinit_mainz00();
static obj_t BGl_zc3anonymousza31010ze3z83zzinit_mainz00(obj_t, obj_t);
extern obj_t BGl_stopzd2tracezd2zztools_tracez00();
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_exitzd2bigloozd2envz00zzinit_mainz00, BgL_bgl__exitza7d2biglooza7d2za7za7init_mainza7001078za7, BGl__exitzd2bigloozd2zzinit_mainz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc1060z00zzinit_mainz00, BgL_bgl_za7c3anonymousza7a31010za7e3za783za7za7init_mainza7001079za7, BGl_zc3anonymousza31010ze3z83zzinit_mainz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_mainzd2envzd2zzinit_mainz00, BgL_bgl__main1044za700za7za7init_mainza7001080z00, BGl__main1044z00zzinit_mainz00, 0L, 1 );
DEFINE_STRING( BGl_string1061z00zzinit_mainz00, BgL_bgl_string1061za700za7za7init_mainza7001081z00, "-q", 2 );


long bigloo_abort(long n) { return n; }

int BIGLOO_MAIN(int argc, char *argv[], char *env[])
{_bigloo_main(argc, argv,env, &bigloo_main);}



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzinit_mainz00(long BgL_checksumz00_37, char * BgL_fromz00_38)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzinit_mainz00))
{ 
BGl_requirezd2initializa7ationz75zzinit_mainz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzinit_mainz00(); 
BGl_importedzd2moduleszd2initz00zzinit_mainz00(); 
BGl_toplevelzd2initzd2zzinit_mainz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* bigloo_main */
BGL_EXPORTED_DEF obj_t bigloo_main(obj_t BgL_argvz00_39)
{ AN_OBJECT;
{ 
BGl_modulezd2initializa7ationz75zzinit_mainz00(((long)0), "init_main"); 
{ 
obj_t BgL_arg1075z00_40;
BgL_arg1075z00_40 = 
BGl_mainz00zzinit_mainz00(BgL_argvz00_39); 
return 
BIGLOO_EXIT(BgL_arg1075z00_40);} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzinit_mainz00()
{ AN_OBJECT;
{ /* ./Init/main.scm 15 */
BGl_modulezd2initializa7ationz75zz__bexitz00(((long)0), "init_main"); 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)0), "init_main"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "init_main"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "init_main"); 
return BUNSPEC;} 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzinit_mainz00()
{ AN_OBJECT;
{ /* ./Init/main.scm 15 */
return ( 
BGl_za2exitzd2biglooza2zd2zzinit_mainz00 = BGl_proc1060z00zzinit_mainz00, BUNSPEC) ;} 
}



/* <anonymous:1010> */
obj_t BGl_zc3anonymousza31010ze3z83zzinit_mainz00(obj_t BgL_envz00_25, obj_t BgL_xz00_26)
{ AN_OBJECT;
{ /* ./Init/main.scm 29 */
{ 
obj_t BgL_xz00_3;
BgL_xz00_3 = BgL_xz00_26; 
{ /* ./Init/main.scm 29 */
obj_t BgL_list1012z00_21;
BgL_list1012z00_21 = 
MAKE_PAIR(BgL_xz00_3, BNIL); 
return 
BGl_exitz00zz__errorz00(BgL_list1012z00_21);} } } 
}



/* main */
BGL_EXPORTED_DEF obj_t BGl_mainz00zzinit_mainz00(obj_t BgL_argvz00_1)
{ AN_OBJECT;
{ /* ./Init/main.scm 34 */
{ /* ./Init/main.scm 38 */
bool_t BgL_test1014z00_6;
{ /* ./Init/main.scm 38 */
obj_t BgL_auxz00_56;
BgL_auxz00_56 = 
BGl_memberz00zz__r4_pairs_and_lists_6_3z00(BGl_string1061z00zzinit_mainz00, BgL_argvz00_1); 
BgL_test1014z00_6 = 
CBOOL(BgL_auxz00_56); } 
if(BgL_test1014z00_6)
{ /* ./Init/main.scm 38 */BFALSE; }  else 
{ /* ./Init/main.scm 38 */
BGl_setupzd2defaultzd2valuesz00zzinit_setrcz00(); } } 
return 
BGl_zc3exitza31017ze3z83zzinit_mainz00(BgL_argvz00_1);} 
}



/* <exit:1017> */
obj_t BGl_zc3exitza31017ze3z83zzinit_mainz00(obj_t BgL_argvz00_35)
{ AN_OBJECT;
{ /* ./Init/main.scm 39 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1003z00_8;
if( SET_EXIT(BgL_an_exit1003z00_8) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1003z00_8 = 
(obj_t)jmpbuf; 
{ /* ./Init/main.scm 39 */

PUSH_EXIT(BgL_an_exit1003z00_8, ((bool_t)1)); 
{ /* ./Init/main.scm 39 */
obj_t BgL_an_exitd1004z00_9;
BgL_an_exitd1004z00_9 = 
BGL_EXITD_TOP(); 
{ /* ./Init/main.scm 39 */
obj_t BgL_exitz00_27;
{ 
int BgL_auxz00_68;int BgL_auxz00_66;
BgL_auxz00_68 = 
(int)(((long)1)); 
BgL_auxz00_66 = 
(int)(((long)1)); 
BgL_exitz00_27 = 
make_fx_procedure(BGl_exitz00zzinit_mainz00, BgL_auxz00_66, BgL_auxz00_68); } 
{ /* ./Init/main.scm 39 */
int BgL_auxz00_71;
BgL_auxz00_71 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_exitz00_27, BgL_auxz00_71, BgL_an_exitd1004z00_9); } 
{ /* ./Init/main.scm 40 */
obj_t BgL_res1006z00_12;
BGl_za2exitzd2biglooza2zd2zzinit_mainz00 = BgL_exitz00_27; 
{ /* ./Init/main.scm 41 */
obj_t BgL_val1007z00_13;
BgL_val1007z00_13 = 
BGl_zc3exitza31030ze3z83zzinit_mainz00(BgL_argvz00_35); 
BGl_stopzd2tracezd2zztools_tracez00(); 
{ /* ./Init/main.scm 45 */
bool_t BgL_test1022z00_14;
{ /* ./Init/main.scm 45 */
obj_t BgL_auxz00_76;
BgL_auxz00_76 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1007z00_13); 
BgL_test1022z00_14 = 
CBOOL(BgL_auxz00_76); } 
if(BgL_test1022z00_14)
{ /* ./Init/main.scm 45 */
obj_t BgL_arg1024z00_15;obj_t BgL_arg1025z00_16;
BgL_arg1024z00_15 = 
CAR(BgL_val1007z00_13); 
BgL_arg1025z00_16 = 
CDR(BgL_val1007z00_13); 
BgL_res1006z00_12 = 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_arg1024z00_15, BgL_arg1025z00_16); }  else 
{ /* ./Init/main.scm 45 */
BgL_res1006z00_12 = BgL_val1007z00_13; } } } 
POP_EXIT(); 
return BgL_res1006z00_12;} } } } 
} } 
}



/* <exit:1030> */
obj_t BGl_zc3exitza31030ze3z83zzinit_mainz00(obj_t BgL_argvz00_36)
{ AN_OBJECT;
{ /* ./Init/main.scm 45 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1008z00_18;
if( SET_EXIT(BgL_an_exit1008z00_18) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1008z00_18 = 
(obj_t)jmpbuf; 
{ /* ./Init/main.scm 45 */

PUSH_EXIT(BgL_an_exit1008z00_18, ((bool_t)0)); 
{ /* ./Init/main.scm 42 */
obj_t BgL_val1009z00_19;
{ /* ./Init/main.scm 42 */
bool_t BgL_test1034z00_20;
{ /* ./Init/main.scm 42 */
obj_t BgL_auxz00_87;
BgL_auxz00_87 = 
BGl_parsezd2argszd2zzinit_parsezd2argszd2(BgL_argvz00_36); 
BgL_test1034z00_20 = 
CBOOL(BgL_auxz00_87); } 
if(BgL_test1034z00_20)
{ /* ./Init/main.scm 42 */
BgL_val1009z00_19 = 
BGl_enginez00zzengine_enginez00(); }  else 
{ /* ./Init/main.scm 42 */
BgL_val1009z00_19 = 
BINT(((long)-1)); } } 
POP_EXIT(); 
return BgL_val1009z00_19;} } 
} } 
}



/* _main1044 */
obj_t BGl__main1044z00zzinit_mainz00(obj_t BgL_envz00_28, obj_t BgL_argvz00_29)
{ AN_OBJECT;
{ /* ./Init/main.scm 34 */
return 
BGl_mainz00zzinit_mainz00(BgL_argvz00_29);} 
}



/* exit */
obj_t BGl_exitz00zzinit_mainz00(obj_t BgL_envz00_30, obj_t BgL_val1005z00_32)
{ AN_OBJECT;
{ /* ./Init/main.scm 39 */
{ /* ./Init/main.scm 39 */
obj_t BgL_an_exitd1004z00_31;
{ /* ./Init/main.scm 39 */
int BgL_auxz00_95;
BgL_auxz00_95 = 
(int)(((long)0)); 
BgL_an_exitd1004z00_31 = 
PROCEDURE_REF(BgL_envz00_30, BgL_auxz00_95); } 
{ 
obj_t BgL_val1005z00_10;
BgL_val1005z00_10 = BgL_val1005z00_32; 
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_an_exitd1004z00_31, BgL_val1005z00_10);} } } 
}



/* exit-bigloo */
BGL_EXPORTED_DEF obj_t BGl_exitzd2bigloozd2zzinit_mainz00(obj_t BgL_valuez00_2)
{ AN_OBJECT;
{ /* ./Init/main.scm 50 */
return 
PROCEDURE_ENTRY(BGl_za2exitzd2biglooza2zd2zzinit_mainz00)(BGl_za2exitzd2biglooza2zd2zzinit_mainz00, BgL_valuez00_2, BEOA);} 
}



/* _exit-bigloo */
obj_t BGl__exitzd2bigloozd2zzinit_mainz00(obj_t BgL_envz00_33, obj_t BgL_valuez00_34)
{ AN_OBJECT;
{ /* ./Init/main.scm 50 */
return 
BGl_exitzd2bigloozd2zzinit_mainz00(BgL_valuez00_34);} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzinit_mainz00()
{ AN_OBJECT;
{ /* ./Init/main.scm 15 */
BGl_modulezd2initializa7ationz75zzinit_setrcz00(((long)1658), "init_main"); 
BGl_modulezd2initializa7ationz75zzinit_parsezd2argszd2(((long)29295), "init_main"); 
BGl_modulezd2initializa7ationz75zzengine_enginez00(((long)46992), "init_main"); 
return 
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "init_main");} 
}

