/*===========================================================================*/
/*   (Tools/speek.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 Tools/speek.scm)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>

BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zztools_speekz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__pp_circlez00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long, char *);
BGL_EXPORTED_DECL obj_t BGl_verbosez00zztools_speekz00(obj_t, obj_t);
BGL_IMPORT bool_t BGl_2zc3zd3z10zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl_speekz00zztools_speekz00(obj_t, bool_t, obj_t);
extern obj_t BGl_za2verboseza2z00zzengine_paramz00;
BGL_IMPORT obj_t BGl_displayzd2circlezd2zz__pp_circlez00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zztools_speekz00();
static obj_t BGl_requirezd2initializa7ationz75zztools_speekz00 = BUNSPEC;
static obj_t BGl_libraryzd2moduleszd2initz00zztools_speekz00();
static obj_t BGl__verbosez00zztools_speekz00(obj_t, obj_t, obj_t);
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_verbosezd2envzd2zztools_speekz00, BgL_bgl__verboseza700za7za7tools_speekza7001034z00, va_generic_entry, BGl__verbosez00zztools_speekz00, -2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zztools_speekz00(long BgL_checksumz00_23, char * BgL_fromz00_24)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zztools_speekz00))
{ 
BGl_requirezd2initializa7ationz75zztools_speekz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zztools_speekz00(); 
BGl_importedzd2moduleszd2initz00zztools_speekz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zztools_speekz00()
{ AN_OBJECT;
{ /* ./Tools/speek.scm 15 */
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(((long)0), "tools_speek"); 
BGl_modulezd2initializa7ationz75zz__pp_circlez00(((long)0), "tools_speek"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "tools_speek"); 
return BUNSPEC;} 
}



/* speek */
obj_t BGl_speekz00zztools_speekz00(obj_t BgL_portz00_1, bool_t BgL_flagz00_2, obj_t BgL_argsz00_3)
{ AN_OBJECT;
{ /* ./Tools/speek.scm 22 */
if(BgL_flagz00_2)
{ /* ./Tools/speek.scm 23 */
{ 
obj_t BgL_l1003z00_6;
BgL_l1003z00_6 = BgL_argsz00_3; 
BgL_forzd2each1004zd2_7:
{ /* ./Tools/speek.scm 25 */
bool_t BgL_test1006z00_8;
BgL_test1006z00_8 = 
PAIRP(BgL_l1003z00_6); 
if(BgL_test1006z00_8)
{ /* ./Tools/speek.scm 25 */
{ /* ./Tools/speek.scm 25 */
obj_t BgL_vz00_9;
BgL_vz00_9 = 
CAR(BgL_l1003z00_6); 
{ /* ./Tools/speek.scm 25 */
obj_t BgL_list1008z00_10;
BgL_list1008z00_10 = 
MAKE_PAIR(BgL_portz00_1, BNIL); 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_vz00_9, BgL_list1008z00_10); } } 
{ /* ./Tools/speek.scm 25 */
obj_t BgL_arg1012z00_11;
BgL_arg1012z00_11 = 
CDR(BgL_l1003z00_6); 
{ 
obj_t BgL_l1003z00_40;
BgL_l1003z00_40 = BgL_arg1012z00_11; 
BgL_l1003z00_6 = BgL_l1003z00_40; 
goto BgL_forzd2each1004zd2_7;} } }  else 
{ /* ./Tools/speek.scm 25 */((bool_t)1); } } } 
return 
FLUSH_OUTPUT_PORT(BgL_portz00_1);}  else 
{ /* ./Tools/speek.scm 23 */
return BFALSE;} } 
}



/* verbose */
BGL_EXPORTED_DEF obj_t BGl_verbosez00zztools_speekz00(obj_t BgL_levelz00_4, obj_t BgL_argsz00_5)
{ AN_OBJECT;
{ /* ./Tools/speek.scm 31 */
{ /* ./Tools/speek.scm 32 */
obj_t BgL_arg1018z00_18;bool_t BgL_arg1019z00_19;
BgL_arg1018z00_18 = 
BGL_CURRENT_OUTPUT_PORT(); 
BgL_arg1019z00_19 = 
BGl_2zc3zd3z10zz__r4_numbers_6_5z00(BgL_levelz00_4, BGl_za2verboseza2z00zzengine_paramz00); 
return 
BGl_speekz00zztools_speekz00(BgL_arg1018z00_18, BgL_arg1019z00_19, BgL_argsz00_5);} } 
}



/* _verbose */
obj_t BGl__verbosez00zztools_speekz00(obj_t BgL_envz00_20, obj_t BgL_levelz00_21, obj_t BgL_argsz00_22)
{ AN_OBJECT;
{ /* ./Tools/speek.scm 31 */
return 
BGl_verbosez00zztools_speekz00(BgL_levelz00_21, BgL_argsz00_22);} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zztools_speekz00()
{ AN_OBJECT;
{ /* ./Tools/speek.scm 15 */
return 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "tools_speek");} 
}

