/*===========================================================================*/
/*   (Llib/os.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 Llib/os.scm -indent -o objs/obj_u/Llib/os.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

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

BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__osz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
BGL_EXPORTED_DECL obj_t BGl_pwdz00zz__osz00();
static obj_t BGl__defaultzd2executablezd2namez00zz__osz00(obj_t);
extern obj_t command_line;
extern obj_t c_signal(int, obj_t);
BGL_EXPORTED_DECL obj_t BGl_systemzd2ze3stringz31zz__osz00(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_filezd2separatorzd2zz__osz00();
static obj_t BGl__makezd2staticzd2libraryzd2namezd2zz__osz00(obj_t, obj_t);
extern bool_t bgl_chmod(char *, bool_t, bool_t, bool_t);
BGL_EXPORTED_DECL obj_t BGl_findzd2filezf2pathz20zz__osz00(obj_t, obj_t);
static obj_t BGl__prefixz00zz__osz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_getenvz00zz__osz00(char *);
BGL_EXPORTED_DECL obj_t BGl_putenvz00zz__osz00(char *, char *);
static obj_t BGl__oszd2tmpzd2zz__osz00(obj_t);
static obj_t BGl__pathzd2separatorzd2zz__osz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_systemz00zz__osz00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_chdirz00zz__osz00(char *);
BGL_EXPORTED_DECL bool_t BGl_chmodz00zz__osz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_dynamiczd2loadzd2zz__osz00(obj_t, obj_t);
extern int bgl_setenv(char *, char *);
static obj_t BGl__dirnamez00zz__osz00(obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__osz00();
BGL_EXPORTED_DECL obj_t BGl_basenamez00zz__osz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2filezd2pathz00zz__osz00(obj_t, obj_t, obj_t);
static obj_t BGl__getzd2signalzd2handlerz00zz__osz00(obj_t, obj_t);
extern bool_t bigloo_strcmp(obj_t, obj_t);
extern obj_t string_to_symbol(char *);
BGL_EXPORTED_DECL obj_t BGl_makezd2filezd2namez00zz__osz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_dirnamez00zz__osz00(obj_t);
extern bool_t fexists(char *);
extern obj_t close_input_port(obj_t);
static obj_t BGl_list2347z00zz__osz00 = BUNSPEC;
static obj_t BGl__signalz00zz__osz00(obj_t, obj_t, obj_t);
extern obj_t c_substring(obj_t, int, int);
extern obj_t get_signal_handler(int);
BGL_EXPORTED_DECL obj_t BGl_defaultzd2scriptzd2namez00zz__osz00();
static obj_t BGl__basenamez00zz__osz00(obj_t, obj_t);
extern obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t BGl_readzd2stringzd2zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl__makezd2sharedzd2libraryzd2namezd2zz__osz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_suffixz00zz__osz00(obj_t);
static obj_t BGl__oszd2versionzd2zz__osz00(obj_t);
extern obj_t string_append(obj_t, obj_t);
static obj_t BGl__unixzd2pathzd2ze3list2168ze3zz__osz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_oszd2classzd2zz__osz00();
static obj_t BGl__commandzd2linezd2zz__osz00(obj_t);
static obj_t BGl__sleep2165z00zz__osz00(obj_t, obj_t);
static obj_t BGl__makezd2filezd2namez00zz__osz00(obj_t, obj_t, obj_t);
extern obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__osz00();
BGL_EXPORTED_DECL obj_t BGl_makezd2staticzd2libraryzd2namezd2zz__osz00(obj_t);
extern char * bgl_dload_error();
static obj_t BGl_zc3exitza31080ze3z83zz__osz00(obj_t);
static obj_t BGl__pwdz00zz__osz00(obj_t);
static obj_t BGl__oszd2classzd2zz__osz00(obj_t);
extern obj_t blit_string(obj_t, int, obj_t, int, int);
static obj_t BGl__getenvz00zz__osz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_defaultzd2executablezd2namez00zz__osz00();
static obj_t BGl_requirezd2initializa7ationz75zz__osz00 = BUNSPEC;
extern char * c_date();
static obj_t BGl__systemz00zz__osz00(obj_t, obj_t);
extern char * executable_name;
BGL_EXPORTED_DECL obj_t BGl_oszd2versionzd2zz__osz00();
extern obj_t BGl_unwindzd2untilz12zc0zz__bexitz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_pathzd2separatorzd2zz__osz00();
BGL_EXPORTED_DEF obj_t BGl_za2dynamiczd2loadzd2pathza2z00zz__osz00 = BUNSPEC;
static obj_t BGl__defaultzd2scriptzd2namez00zz__osz00(obj_t);
static obj_t BGl__datez00zz__osz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_prefixz00zz__osz00(obj_t);
BGL_EXPORTED_DECL char * BGl_hostnamez00zz__osz00();
extern obj_t string_to_bstring(char *);
extern obj_t BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(obj_t);
static obj_t BGl__dynamiczd2loadzd2zz__osz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_oszd2tmpzd2zz__osz00();
static obj_t BGl__filezd2separatorzd2zz__osz00(obj_t);
extern void bgl_sleep(long);
BGL_EXPORTED_DECL obj_t BGl_unixzd2pathzd2ze3listze3zz__osz00(obj_t);
extern obj_t BGl_bigloozd2typezd2errorz00zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl__executablezd2namezd2zz__osz00(obj_t);
static obj_t BGl__systemzd2ze3stringz31zz__osz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2sharedzd2libraryzd2namezd2zz__osz00(obj_t);
static obj_t BGl__oszd2namezd2zz__osz00(obj_t);
extern int bgl_dload(char *, char *);
static obj_t BGl__oszd2archzd2zz__osz00(obj_t);
static obj_t BGl__hostnamez00zz__osz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_getzd2signalzd2handlerz00zz__osz00(int);
BGL_EXPORTED_DECL obj_t BGl_sleepz00zz__osz00(long);
static obj_t BGl__suffixz00zz__osz00(obj_t, obj_t);
static obj_t BGl__putenv2147z00zz__osz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_oszd2namezd2zz__osz00();
static obj_t BGl_symbol2362z00zz__osz00 = BUNSPEC;
extern obj_t BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(obj_t, obj_t);
extern char * bgl_gethostname();
static obj_t BGl_symbol2359z00zz__osz00 = BUNSPEC;
static obj_t BGl__makezd2filezd2path2160z00zz__osz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_oszd2archzd2zz__osz00();
static obj_t BGl_symbol2358z00zz__osz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_signalz00zz__osz00(int, obj_t);
BGL_EXPORTED_DECL char * BGl_executablezd2namezd2zz__osz00();
static obj_t BGl_symbol2357z00zz__osz00 = BUNSPEC;
static obj_t BGl__chdirz00zz__osz00(obj_t, obj_t);
static obj_t BGl__chmodz00zz__osz00(obj_t, obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zz__osz00();
static obj_t BGl__findzd2filezf2pathz20zz__osz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_za2defaultzd2javazd2packageza2z00zz__osz00 = BUNSPEC;
BGL_EXPORTED_DECL char * BGl_datez00zz__osz00();
BGL_EXPORTED_DECL obj_t BGl_commandzd2linezd2zz__osz00();
extern obj_t string_append_3(obj_t, obj_t, obj_t);
static obj_t *__cnst;


DEFINE_STRING( BGl_string2365z00zz__osz00, BgL_bgl_string2365za700za7za7__osza7002377z00, "dynamic-load", 12 );
DEFINE_STRING( BGl_string2364z00zz__osz00, BgL_bgl_string2364za700za7za7__osza7002378z00, "dynamic-load:", 13 );
DEFINE_STRING( BGl_string2363z00zz__osz00, BgL_bgl_string2363za700za7za7__osza7002379z00, "string", 6 );
DEFINE_STRING( BGl_string2361z00zz__osz00, BgL_bgl_string2361za700za7za7__osza7002380z00, "Unknown mode", 12 );
DEFINE_EXPORT_PROCEDURE( BGl_oszd2classzd2envz00zz__osz00, BgL_bgl__osza7d2classza7d2za7za7__osza7002381za7, BGl__oszd2classzd2zz__osz00, 0L, 0 );
DEFINE_STRING( BGl_string2360z00zz__osz00, BgL_bgl_string2360za700za7za7__osza7002382z00, "chmod", 5 );
DEFINE_STRING( BGl_string2356z00zz__osz00, BgL_bgl_string2356za700za7za7__osza7002383z00, "| ", 2 );
DEFINE_STRING( BGl_string2355z00zz__osz00, BgL_bgl_string2355za700za7za7__osza7002384z00, "HOME", 4 );
DEFINE_STRING( BGl_string2354z00zz__osz00, BgL_bgl_string2354za700za7za7__osza7002385z00, "win32", 5 );
DEFINE_STRING( BGl_string2353z00zz__osz00, BgL_bgl_string2353za700za7za7__osza7002386z00, "Wrong number of arguments", 25 );
DEFINE_STRING( BGl_string2352z00zz__osz00, BgL_bgl_string2352za700za7za7__osza7002387z00, "Illegal signal", 14 );
DEFINE_EXPORT_PROCEDURE( BGl_suffixzd2envzd2zz__osz00, BgL_bgl__suffixza700za7za7__osza7002388z00, BGl__suffixz00zz__osz00, 0L, 1 );
DEFINE_STRING( BGl_string2351z00zz__osz00, BgL_bgl_string2351za700za7za7__osza7002389z00, "signal", 6 );
DEFINE_STRING( BGl_string2350z00zz__osz00, BgL_bgl_string2350za700za7za7__osza7002390z00, "bigloo.foreign", 14 );
DEFINE_STRING( BGl_string2349z00zz__osz00, BgL_bgl_string2349za700za7za7__osza7002391z00, ".", 1 );
DEFINE_STRING( BGl_string2348z00zz__osz00, BgL_bgl_string2348za700za7za7__osza7002392z00, "", 0 );
DEFINE_EXPORT_PROCEDURE( BGl_datezd2envzd2zz__osz00, BgL_bgl__dateza700za7za7__osza7002393z00, BGl__datez00zz__osz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_oszd2tmpzd2envz00zz__osz00, BgL_bgl__osza7d2tmpza7d2za7za7__osza7002394za7, BGl__oszd2tmpzd2zz__osz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_basenamezd2envzd2zz__osz00, BgL_bgl__basenameza700za7za7__osza7002395z00, BGl__basenamez00zz__osz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_getenvzd2envzd2zz__osz00, BgL_bgl__getenvza700za7za7__osza7002396z00, BGl__getenvz00zz__osz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_defaultzd2scriptzd2namezd2envzd2zz__osz00, BgL_bgl__defaultza7d2scriptza7d2nameza700za7za7__osza7002397z00, BGl__defaultzd2scriptzd2namez00zz__osz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2staticzd2libraryzd2namezd2envz00zz__osz00, BgL_bgl__makeza7d2staticza7d2libraryza7d2nameza7d2za7za7__osza7002398za7, BGl__makezd2staticzd2libraryzd2namezd2zz__osz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_dirnamezd2envzd2zz__osz00, BgL_bgl__dirnameza700za7za7__osza7002399z00, BGl__dirnamez00zz__osz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_systemzd2envzd2zz__osz00, BgL_bgl__systemza700za7za7__osza7002400z00, va_generic_entry, BGl__systemz00zz__osz00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_oszd2namezd2envz00zz__osz00, BgL_bgl__osza7d2nameza7d2za7za7__osza7002401za7, BGl__oszd2namezd2zz__osz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_pwdzd2envzd2zz__osz00, BgL_bgl__pwdza700za7za7__osza7002402z00, BGl__pwdz00zz__osz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2filezd2namezd2envzd2zz__osz00, BgL_bgl__makeza7d2fileza7d2nameza700za7za7__osza7002403z00, BGl__makezd2filezd2namez00zz__osz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_findzd2filezf2pathzd2envzf2zz__osz00, BgL_bgl__findza7d2fileza7f2pathza720za7za7__osza7002404z00, BGl__findzd2filezf2pathz20zz__osz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2sharedzd2libraryzd2namezd2envz00zz__osz00, BgL_bgl__makeza7d2sharedza7d2libraryza7d2nameza7d2za7za7__osza7002405za7, BGl__makezd2sharedzd2libraryzd2namezd2zz__osz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_oszd2archzd2envz00zz__osz00, BgL_bgl__osza7d2archza7d2za7za7__osza7002406za7, BGl__oszd2archzd2zz__osz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_dynamiczd2loadzd2envz00zz__osz00, BgL_bgl__dynamicza7d2loadza7d2za7za7__osza7002407za7, va_generic_entry, BGl__dynamiczd2loadzd2zz__osz00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_hostnamezd2envzd2zz__osz00, BgL_bgl__hostnameza700za7za7__osza7002408z00, BGl__hostnamez00zz__osz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_chmodzd2envzd2zz__osz00, BgL_bgl__chmodza700za7za7__osza7002409z00, va_generic_entry, BGl__chmodz00zz__osz00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_executablezd2namezd2envz00zz__osz00, BgL_bgl__executableza7d2nameza7d2za7za7__osza7002410za7, BGl__executablezd2namezd2zz__osz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_getzd2signalzd2handlerzd2envzd2zz__osz00, BgL_bgl__getza7d2signalza7d2handlerza700za7za7__osza7002411z00, BGl__getzd2signalzd2handlerz00zz__osz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_filezd2separatorzd2envz00zz__osz00, BgL_bgl__fileza7d2separatorza7d2za7za7__osza7002412za7, BGl__filezd2separatorzd2zz__osz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_defaultzd2executablezd2namezd2envzd2zz__osz00, BgL_bgl__defaultza7d2executableza7d2nameza700za7za7__osza7002413z00, BGl__defaultzd2executablezd2namez00zz__osz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2filezd2pathzd2envzd2zz__osz00, BgL_bgl__makeza7d2fileza7d2path2160za700za7za7__osza7002414z00, va_generic_entry, BGl__makezd2filezd2path2160z00zz__osz00, -3 );
DEFINE_EXPORT_PROCEDURE( BGl_putenvzd2envzd2zz__osz00, BgL_bgl__putenv2147za700za7za7__osza7002415z00, BGl__putenv2147z00zz__osz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_unixzd2pathzd2ze3listzd2envz31zz__osz00, BgL_bgl__unixza7d2pathza7d2za7e3list2168za7e3za7za7__osza7002416za7, BGl__unixzd2pathzd2ze3list2168ze3zz__osz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_oszd2versionzd2envz00zz__osz00, BgL_bgl__osza7d2versionza7d2za7za7__osza7002417za7, BGl__oszd2versionzd2zz__osz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_prefixzd2envzd2zz__osz00, BgL_bgl__prefixza700za7za7__osza7002418z00, BGl__prefixz00zz__osz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_systemzd2ze3stringzd2envze3zz__osz00, BgL_bgl__systemza7d2za7e3stringza731za7za7__osza7002419z00, va_generic_entry, BGl__systemzd2ze3stringz31zz__osz00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_sleepzd2envzd2zz__osz00, BgL_bgl__sleep2165za700za7za7__osza7002420z00, BGl__sleep2165z00zz__osz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_chdirzd2envzd2zz__osz00, BgL_bgl__chdirza700za7za7__osza7002421z00, BGl__chdirz00zz__osz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_signalzd2envzd2zz__osz00, BgL_bgl__signalza700za7za7__osza7002422z00, BGl__signalz00zz__osz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_pathzd2separatorzd2envz00zz__osz00, BgL_bgl__pathza7d2separatorza7d2za7za7__osza7002423za7, BGl__pathzd2separatorzd2zz__osz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_commandzd2linezd2envz00zz__osz00, BgL_bgl__commandza7d2lineza7d2za7za7__osza7002424za7, BGl__commandzd2linezd2zz__osz00, 0L, 0 );
DEFINE_STRING( BGl_string2368z00zz__osz00, BgL_bgl_string2368za700za7za7__osza7002425z00, "Can't find library", 18 );
DEFINE_STRING( BGl_string2367z00zz__osz00, BgL_bgl_string2367za700za7za7__osza7002426z00, "Not supported on this architecture", 34 );
DEFINE_STRING( BGl_string2366z00zz__osz00, BgL_bgl_string2366za700za7za7__osza7002427z00, "Can't find init symbol", 22 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__osz00(long BgL_checksumz00_1150, char * BgL_fromz00_1151)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__osz00))
{ 
BGl_requirezd2initializa7ationz75zz__osz00 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__osz00(); 
BGl_importedzd2moduleszd2initz00zz__osz00(); 
BGl_toplevelzd2initzd2zz__osz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 18 */
{ /* ./Llib/os.scm 488 */
obj_t BgL_auxz00_1158;
BgL_auxz00_1158 = 
MAKE_PAIR(BGl_string2349z00zz__osz00, BNIL); 
BGl_list2347z00zz__osz00 = 
MAKE_PAIR(BGl_string2348z00zz__osz00, BgL_auxz00_1158); } 
BGl_symbol2357z00zz__osz00 = 
string_to_symbol("read"); 
BGl_symbol2358z00zz__osz00 = 
string_to_symbol("write"); 
BGl_symbol2359z00zz__osz00 = 
string_to_symbol("execute"); 
return ( 
BGl_symbol2362z00zz__osz00 = 
string_to_symbol("make-file-path"), BUNSPEC) ;} 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 18 */
BGl_za2dynamiczd2loadzd2pathza2z00zz__osz00 = BGl_list2347z00zz__osz00; 
return ( 
BGl_za2defaultzd2javazd2packageza2z00zz__osz00 = BGl_string2350z00zz__osz00, BUNSPEC) ;} 
}



/* default-executable-name */
BGL_EXPORTED_DEF obj_t BGl_defaultzd2executablezd2namez00zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 178 */
return 
string_to_bstring(BGL_DEFAULT_A_OUT);} 
}



/* _default-executable-name */
obj_t BGl__defaultzd2executablezd2namez00zz__osz00(obj_t BgL_envz00_1080)
{ AN_OBJECT;
{ /* ./Llib/os.scm 178 */
return 
BGl_defaultzd2executablezd2namez00zz__osz00();} 
}



/* default-script-name */
BGL_EXPORTED_DEF obj_t BGl_defaultzd2scriptzd2namez00zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 179 */
return 
string_to_bstring(BGL_DEFAULT_A_BAT);} 
}



/* _default-script-name */
obj_t BGl__defaultzd2scriptzd2namez00zz__osz00(obj_t BgL_envz00_1081)
{ AN_OBJECT;
{ /* ./Llib/os.scm 179 */
return 
BGl_defaultzd2scriptzd2namez00zz__osz00();} 
}



/* os-class */
BGL_EXPORTED_DEF obj_t BGl_oszd2classzd2zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 180 */
return 
string_to_bstring(OS_CLASS);} 
}



/* _os-class */
obj_t BGl__oszd2classzd2zz__osz00(obj_t BgL_envz00_1082)
{ AN_OBJECT;
{ /* ./Llib/os.scm 180 */
return 
BGl_oszd2classzd2zz__osz00();} 
}



/* os-name */
BGL_EXPORTED_DEF obj_t BGl_oszd2namezd2zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 181 */
return 
string_to_bstring(OS_NAME);} 
}



/* _os-name */
obj_t BGl__oszd2namezd2zz__osz00(obj_t BgL_envz00_1083)
{ AN_OBJECT;
{ /* ./Llib/os.scm 181 */
return 
BGl_oszd2namezd2zz__osz00();} 
}



/* os-arch */
BGL_EXPORTED_DEF obj_t BGl_oszd2archzd2zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 182 */
return 
string_to_bstring(OS_ARCH);} 
}



/* _os-arch */
obj_t BGl__oszd2archzd2zz__osz00(obj_t BgL_envz00_1084)
{ AN_OBJECT;
{ /* ./Llib/os.scm 182 */
return 
BGl_oszd2archzd2zz__osz00();} 
}



/* os-version */
BGL_EXPORTED_DEF obj_t BGl_oszd2versionzd2zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 183 */
return 
string_to_bstring(OS_VERSION);} 
}



/* _os-version */
obj_t BGl__oszd2versionzd2zz__osz00(obj_t BgL_envz00_1085)
{ AN_OBJECT;
{ /* ./Llib/os.scm 183 */
return 
BGl_oszd2versionzd2zz__osz00();} 
}



/* os-tmp */
BGL_EXPORTED_DEF obj_t BGl_oszd2tmpzd2zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 184 */
return 
string_to_bstring(OS_TMP);} 
}



/* _os-tmp */
obj_t BGl__oszd2tmpzd2zz__osz00(obj_t BgL_envz00_1086)
{ AN_OBJECT;
{ /* ./Llib/os.scm 184 */
return 
BGl_oszd2tmpzd2zz__osz00();} 
}



/* file-separator */
BGL_EXPORTED_DEF obj_t BGl_filezd2separatorzd2zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 185 */
return 
BCHAR(FILE_SEPARATOR);} 
}



/* _file-separator */
obj_t BGl__filezd2separatorzd2zz__osz00(obj_t BgL_envz00_1087)
{ AN_OBJECT;
{ /* ./Llib/os.scm 185 */
return 
BGl_filezd2separatorzd2zz__osz00();} 
}



/* path-separator */
BGL_EXPORTED_DEF obj_t BGl_pathzd2separatorzd2zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 186 */
return 
BCHAR(PATH_SEPARATOR);} 
}



/* _path-separator */
obj_t BGl__pathzd2separatorzd2zz__osz00(obj_t BgL_envz00_1088)
{ AN_OBJECT;
{ /* ./Llib/os.scm 186 */
return 
BGl_pathzd2separatorzd2zz__osz00();} 
}



/* command-line */
BGL_EXPORTED_DEF obj_t BGl_commandzd2linezd2zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 191 */
return command_line;} 
}



/* _command-line */
obj_t BGl__commandzd2linezd2zz__osz00(obj_t BgL_envz00_1089)
{ AN_OBJECT;
{ /* ./Llib/os.scm 191 */
return command_line;} 
}



/* executable-name */
BGL_EXPORTED_DEF char * BGl_executablezd2namezd2zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 197 */
return executable_name;} 
}



/* _executable-name */
obj_t BGl__executablezd2namezd2zz__osz00(obj_t BgL_envz00_1090)
{ AN_OBJECT;
{ /* ./Llib/os.scm 197 */
{ /* ./Llib/os.scm 198 */
char * BgL_auxz00_1183;
BgL_auxz00_1183 = executable_name; 
return 
string_to_bstring(BgL_auxz00_1183);} } 
}



/* signal */
BGL_EXPORTED_DEF obj_t BGl_signalz00zz__osz00(int BgL_numz00_1, obj_t BgL_procz00_2)
{ AN_OBJECT;
{ /* ./Llib/os.scm 203 */
{ /* ./Llib/os.scm 205 */
bool_t BgL_test1009z00_363;
{ /* ./Llib/os.scm 205 */
int BgL_arg1018z00_366;
BgL_arg1018z00_366 = 
PROCEDURE_ARITY(BgL_procz00_2); 
{ /* ./Llib/os.scm 205 */
long BgL_auxz00_1186;
BgL_auxz00_1186 = 
(long)(BgL_arg1018z00_366); 
BgL_test1009z00_363 = 
(BgL_auxz00_1186==((long)1)); } } 
if(BgL_test1009z00_363)
{ /* ./Llib/os.scm 207 */
bool_t BgL_test1010z00_364;
{ /* ./Llib/os.scm 207 */
bool_t BgL_testz00_1190;
{ /* ./Llib/os.scm 207 */
long BgL_auxz00_1191;
BgL_auxz00_1191 = 
(long)(BgL_numz00_1); 
BgL_testz00_1190 = 
(BgL_auxz00_1191<((long)0)); } 
if(BgL_testz00_1190)
{ /* ./Llib/os.scm 207 */
BgL_test1010z00_364 = ((bool_t)1); }  else 
{ /* ./Llib/os.scm 207 */
long BgL_auxz00_1194;
BgL_auxz00_1194 = 
(long)(BgL_numz00_1); 
BgL_test1010z00_364 = 
(BgL_auxz00_1194>((long)31)); } } 
if(BgL_test1010z00_364)
{ /* ./Llib/os.scm 207 */
{ /* ./Llib/os.scm 208 */
obj_t BgL_objectz00_745;
BgL_objectz00_745 = 
BINT(BgL_numz00_1); 
FAILURE(BGl_string2351z00zz__osz00,BGl_string2352z00zz__osz00,BgL_objectz00_745);} }  else 
{ /* ./Llib/os.scm 207 */
return 
c_signal(BgL_numz00_1, BgL_procz00_2);} }  else 
{ /* ./Llib/os.scm 205 */
FAILURE(BGl_string2351z00zz__osz00,BGl_string2353z00zz__osz00,BgL_procz00_2);} } } 
}



/* _signal */
obj_t BGl__signalz00zz__osz00(obj_t BgL_envz00_1091, obj_t BgL_numz00_1092, obj_t BgL_procz00_1093)
{ AN_OBJECT;
{ /* ./Llib/os.scm 203 */
return 
BGl_signalz00zz__osz00(
CINT(BgL_numz00_1092), BgL_procz00_1093);} 
}



/* get-signal-handler */
BGL_EXPORTED_DEF obj_t BGl_getzd2signalzd2handlerz00zz__osz00(int BgL_numz00_3)
{ AN_OBJECT;
{ /* ./Llib/os.scm 215 */
return 
get_signal_handler(BgL_numz00_3);} 
}



/* _get-signal-handler */
obj_t BGl__getzd2signalzd2handlerz00zz__osz00(obj_t BgL_envz00_1094, obj_t BgL_numz00_1095)
{ AN_OBJECT;
{ /* ./Llib/os.scm 215 */
{ /* ./Llib/os.scm 216 */
int BgL_auxz00_1205;
BgL_auxz00_1205 = 
CINT(BgL_numz00_1095); 
return 
get_signal_handler(BgL_auxz00_1205);} } 
}



/* getenv */
BGL_EXPORTED_DEF obj_t BGl_getenvz00zz__osz00(char * BgL_stringz00_4)
{ AN_OBJECT;
{ /* ./Llib/os.scm 221 */
{ /* ./Llib/os.scm 222 */
bool_t BgL_test1023z00_368;
{ /* ./Llib/os.scm 222 */
bool_t BgL_test1024z00_369;
{ /* ./Llib/os.scm 222 */
char * BgL_arg1028z00_370;
BgL_arg1028z00_370 = OS_CLASS; 
{ /* ./Llib/os.scm 222 */
obj_t BgL_auxz00_1208;
BgL_auxz00_1208 = 
string_to_bstring(BgL_arg1028z00_370); 
BgL_test1024z00_369 = 
bigloo_strcmp(BgL_auxz00_1208, BGl_string2354z00zz__osz00); } } 
if(BgL_test1024z00_369)
{ /* ./Llib/os.scm 223 */
obj_t BgL_auxz00_1212;
BgL_auxz00_1212 = 
string_to_bstring(BgL_stringz00_4); 
BgL_test1023z00_368 = 
bigloo_strcmp(BgL_auxz00_1212, BGl_string2355z00zz__osz00); }  else 
{ /* ./Llib/os.scm 222 */
BgL_test1023z00_368 = ((bool_t)0); } } 
if(BgL_test1023z00_368)
{ /* ./Llib/os.scm 222 */
BgL_stringz00_4 = "USERPROFILE"; }  else 
{ /* ./Llib/os.scm 222 */BFALSE; } } 
{ /* ./Llib/os.scm 225 */
bool_t BgL_test1032z00_372;
BgL_test1032z00_372 = 
(long)getenv(BgL_stringz00_4); 
if(BgL_test1032z00_372)
{ /* ./Llib/os.scm 226 */
char * BgL_resultz00_373;
BgL_resultz00_373 = 
(char *)getenv(BgL_stringz00_4); 
{ /* ./Llib/os.scm 227 */
bool_t BgL_test1033z00_374;
BgL_test1033z00_374 = 
STRING_PTR_NULL(BgL_resultz00_373); 
if(BgL_test1033z00_374)
{ /* ./Llib/os.scm 227 */
return BFALSE;}  else 
{ /* ./Llib/os.scm 227 */
return 
string_to_bstring(BgL_resultz00_373);} } }  else 
{ /* ./Llib/os.scm 225 */
return BFALSE;} } } 
}



/* _getenv */
obj_t BGl__getenvz00zz__osz00(obj_t BgL_envz00_1096, obj_t BgL_stringz00_1097)
{ AN_OBJECT;
{ /* ./Llib/os.scm 221 */
return 
BGl_getenvz00zz__osz00(
BSTRING_TO_STRING(BgL_stringz00_1097));} 
}



/* putenv */
BGL_EXPORTED_DEF obj_t BGl_putenvz00zz__osz00(char * BgL_stringz00_5, char * BgL_valz00_6)
{ AN_OBJECT;
{ /* ./Llib/os.scm 235 */
{ /* ./Llib/os.scm 236 */
bool_t BgL_test1037z00_375;
{ /* ./Llib/os.scm 236 */
bool_t BgL_test1038z00_376;
{ /* ./Llib/os.scm 236 */
char * BgL_arg1041z00_377;
BgL_arg1041z00_377 = OS_CLASS; 
{ /* ./Llib/os.scm 236 */
obj_t BgL_auxz00_1224;
BgL_auxz00_1224 = 
string_to_bstring(BgL_arg1041z00_377); 
BgL_test1038z00_376 = 
bigloo_strcmp(BgL_auxz00_1224, BGl_string2354z00zz__osz00); } } 
if(BgL_test1038z00_376)
{ /* ./Llib/os.scm 237 */
obj_t BgL_auxz00_1228;
BgL_auxz00_1228 = 
string_to_bstring(BgL_stringz00_5); 
BgL_test1037z00_375 = 
bigloo_strcmp(BgL_auxz00_1228, BGl_string2355z00zz__osz00); }  else 
{ /* ./Llib/os.scm 236 */
BgL_test1037z00_375 = ((bool_t)0); } } 
if(BgL_test1037z00_375)
{ /* ./Llib/os.scm 236 */
BgL_stringz00_5 = "USERPROFILE"; }  else 
{ /* ./Llib/os.scm 236 */BFALSE; } } 
{ /* ./Llib/os.scm 239 */
int BgL_arg1046z00_379;
BgL_arg1046z00_379 = 
bgl_setenv(BgL_stringz00_5, BgL_valz00_6); 
{ /* ./Llib/os.scm 239 */
bool_t BgL_auxz00_1233;
{ /* ./Llib/os.scm 239 */
long BgL_auxz00_1234;
BgL_auxz00_1234 = 
(long)(BgL_arg1046z00_379); 
BgL_auxz00_1233 = 
(BgL_auxz00_1234==((long)0)); } 
return 
BBOOL(BgL_auxz00_1233);} } } 
}



/* _putenv2147 */
obj_t BGl__putenv2147z00zz__osz00(obj_t BgL_envz00_1098, obj_t BgL_stringz00_1099, obj_t BgL_valz00_1100)
{ AN_OBJECT;
{ /* ./Llib/os.scm 235 */
return 
BGl_putenvz00zz__osz00(
BSTRING_TO_STRING(BgL_stringz00_1099), 
BSTRING_TO_STRING(BgL_valz00_1100));} 
}



/* system */
BGL_EXPORTED_DEF obj_t BGl_systemz00zz__osz00(obj_t BgL_stringsz00_7)
{ AN_OBJECT;
{ /* ./Llib/os.scm 244 */
if(
NULLP(BgL_stringsz00_7))
{ /* ./Llib/os.scm 246 */
return BFALSE;}  else 
{ /* ./Llib/os.scm 248 */
bool_t BgL_testz00_1243;
{ /* ./Llib/os.scm 248 */
obj_t BgL_auxz00_1244;
BgL_auxz00_1244 = 
CDR(BgL_stringsz00_7); 
BgL_testz00_1243 = 
NULLP(BgL_auxz00_1244); } 
if(BgL_testz00_1243)
{ /* ./Llib/os.scm 248 */
{ /* ./Llib/os.scm 249 */
obj_t BgL_arg1053z00_383;
BgL_arg1053z00_383 = 
CAR(BgL_stringsz00_7); 
{ /* ./Llib/os.scm 249 */
int BgL_auxz00_1248;
{ /* ./Llib/os.scm 249 */
char * BgL_auxz00_1249;
BgL_auxz00_1249 = 
BSTRING_TO_STRING(BgL_arg1053z00_383); 
BgL_auxz00_1248 = 
system(BgL_auxz00_1249); } 
return 
BINT(BgL_auxz00_1248);} } }  else 
{ /* ./Llib/os.scm 248 */
{ /* ./Llib/os.scm 251 */
obj_t BgL_arg1058z00_384;
BgL_arg1058z00_384 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_stringsz00_7); 
{ /* ./Llib/os.scm 251 */
int BgL_auxz00_1254;
{ /* ./Llib/os.scm 251 */
char * BgL_auxz00_1255;
BgL_auxz00_1255 = 
BSTRING_TO_STRING(BgL_arg1058z00_384); 
BgL_auxz00_1254 = 
system(BgL_auxz00_1255); } 
return 
BINT(BgL_auxz00_1254);} } } } } 
}



/* _system */
obj_t BGl__systemz00zz__osz00(obj_t BgL_envz00_1101, obj_t BgL_stringsz00_1102)
{ AN_OBJECT;
{ /* ./Llib/os.scm 244 */
return 
BGl_systemz00zz__osz00(BgL_stringsz00_1102);} 
}



/* system->string */
BGL_EXPORTED_DEF obj_t BGl_systemzd2ze3stringz31zz__osz00(obj_t BgL_stringsz00_8)
{ AN_OBJECT;
{ /* ./Llib/os.scm 256 */
{ /* ./Llib/os.scm 257 */
obj_t BgL_cz00_387;
{ /* ./Llib/os.scm 257 */
obj_t BgL_runner1092z00_399;
{ /* ./Llib/os.scm 257 */
obj_t BgL_list1090z00_398;
BgL_list1090z00_398 = 
MAKE_PAIR(BgL_stringsz00_8, BNIL); 
BgL_runner1092z00_399 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BGl_string2356z00zz__osz00, BgL_list1090z00_398); } 
BgL_cz00_387 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_runner1092z00_399); } 
{ /* ./Llib/os.scm 257 */
obj_t BgL_pz00_388;
BgL_pz00_388 = 
BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(BgL_cz00_387, BNIL); 
{ /* ./Llib/os.scm 258 */

{ /* ./Llib/os.scm 259 */
obj_t BgL_val1003z00_389;
BgL_val1003z00_389 = 
BGl_zc3exitza31080ze3z83zz__osz00(BgL_pz00_388); 
close_input_port(BgL_pz00_388); 
{ /* ./Llib/os.scm 260 */
bool_t BgL_testz00_1266;
{ /* ./Llib/os.scm 260 */
obj_t BgL_auxz00_1267;
BgL_auxz00_1267 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1003z00_389); 
BgL_testz00_1266 = 
CBOOL(BgL_auxz00_1267); } 
if(BgL_testz00_1266)
{ /* ./Llib/os.scm 260 */
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(
CAR(BgL_val1003z00_389), 
CDR(BgL_val1003z00_389));}  else 
{ /* ./Llib/os.scm 260 */
return BgL_val1003z00_389;} } } } } } } 
}



/* <exit:1080> */
obj_t BGl_zc3exitza31080ze3z83zz__osz00(obj_t BgL_pz00_1142)
{ AN_OBJECT;
{ /* ./Llib/os.scm 260 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1004z00_394;
if( SET_EXIT(BgL_an_exit1004z00_394) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1004z00_394 = 
(obj_t)jmpbuf; 
{ /* ./Llib/os.scm 260 */

PUSH_EXIT(BgL_an_exit1004z00_394, ((bool_t)0)); 
{ /* ./Llib/os.scm 259 */
obj_t BgL_val1005z00_395;
{ /* ./Llib/os.scm 259 */
obj_t BgL_list1085z00_396;
BgL_list1085z00_396 = 
MAKE_PAIR(BgL_pz00_1142, BNIL); 
BgL_val1005z00_395 = 
BGl_readzd2stringzd2zz__r4_input_6_10_2z00(BgL_list1085z00_396); } 
POP_EXIT(); 
return BgL_val1005z00_395;} } 
} } 
}



/* _system->string */
obj_t BGl__systemzd2ze3stringz31zz__osz00(obj_t BgL_envz00_1103, obj_t BgL_stringsz00_1104)
{ AN_OBJECT;
{ /* ./Llib/os.scm 256 */
return 
BGl_systemzd2ze3stringz31zz__osz00(BgL_stringsz00_1104);} 
}



/* date */
BGL_EXPORTED_DEF char * BGl_datez00zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 265 */
{ /* ./Llib/os.scm 266 */
char * BgL_dtz00_400;
BgL_dtz00_400 = 
c_date(); 
{ /* ./Llib/os.scm 266 */
int BgL_lenz00_401;
{ /* ./Llib/os.scm 267 */
obj_t BgL_auxz00_1281;
BgL_auxz00_1281 = 
string_to_bstring(BgL_dtz00_400); 
BgL_lenz00_401 = 
STRING_LENGTH(BgL_auxz00_1281); } 
{ /* ./Llib/os.scm 267 */

{ /* ./Llib/os.scm 268 */
bool_t BgL_testz00_1284;
{ /* ./Llib/os.scm 268 */
unsigned char BgL_auxz00_1285;
{ /* ./Llib/os.scm 268 */
int BgL_auxz00_1288;obj_t BgL_auxz00_1286;
{ /* ./Llib/os.scm 268 */
long BgL_auxz00_1289;
{ /* ./Llib/os.scm 268 */
long BgL_auxz00_1290;
BgL_auxz00_1290 = 
(long)(BgL_lenz00_401); 
BgL_auxz00_1289 = 
(BgL_auxz00_1290-((long)1)); } 
BgL_auxz00_1288 = 
(int)(BgL_auxz00_1289); } 
BgL_auxz00_1286 = 
string_to_bstring(BgL_dtz00_400); 
BgL_auxz00_1285 = 
STRING_REF(BgL_auxz00_1286, BgL_auxz00_1288); } 
BgL_testz00_1284 = 
(BgL_auxz00_1285==((unsigned char)'\n')); } 
if(BgL_testz00_1284)
{ /* ./Llib/os.scm 269 */
long BgL_arg1096z00_404;
{ /* ./Llib/os.scm 269 */
long BgL_auxz00_1296;
BgL_auxz00_1296 = 
(long)(BgL_lenz00_401); 
BgL_arg1096z00_404 = 
(BgL_auxz00_1296-((long)1)); } 
{ /* ./Llib/os.scm 269 */
obj_t BgL_stringz00_776;int BgL_startz00_777;int BgL_endz00_778;
BgL_stringz00_776 = 
string_to_bstring(BgL_dtz00_400); 
BgL_startz00_777 = 
(int)(((long)0)); 
BgL_endz00_778 = 
(int)(BgL_arg1096z00_404); 
{ /* ./Llib/os.scm 269 */
obj_t BgL_auxz00_1302;
BgL_auxz00_1302 = 
c_substring(BgL_stringz00_776, BgL_startz00_777, BgL_endz00_778); 
return 
BSTRING_TO_STRING(BgL_auxz00_1302);} } }  else 
{ /* ./Llib/os.scm 268 */
return BgL_dtz00_400;} } } } } } 
}



/* _date */
obj_t BGl__datez00zz__osz00(obj_t BgL_envz00_1105)
{ AN_OBJECT;
{ /* ./Llib/os.scm 265 */
{ /* ./Llib/os.scm 266 */
char * BgL_auxz00_1305;
BgL_auxz00_1305 = 
BGl_datez00zz__osz00(); 
return 
string_to_bstring(BgL_auxz00_1305);} } 
}



/* chdir */
BGL_EXPORTED_DEF bool_t BGl_chdirz00zz__osz00(char * BgL_dirnamez00_9)
{ AN_OBJECT;
{ /* ./Llib/os.scm 275 */
{ /* ./Llib/os.scm 276 */
bool_t BgL_test1108z00_1145;
BgL_test1108z00_1145 = 
chdir(BgL_dirnamez00_9); 
if(BgL_test1108z00_1145)
{ /* ./Llib/os.scm 276 */
return ((bool_t)0);}  else 
{ /* ./Llib/os.scm 276 */
return ((bool_t)1);} } } 
}



/* _chdir */
obj_t BGl__chdirz00zz__osz00(obj_t BgL_envz00_1106, obj_t BgL_dirnamez00_1107)
{ AN_OBJECT;
{ /* ./Llib/os.scm 275 */
{ /* ./Llib/os.scm 276 */
bool_t BgL_auxz00_1310;
{ /* ./Llib/os.scm 276 */
bool_t BgL_res2370z00_1148;
{ /* ./Llib/os.scm 276 */
char * BgL_dirnamez00_1146;
BgL_dirnamez00_1146 = 
BSTRING_TO_STRING(BgL_dirnamez00_1107); 
{ /* ./Llib/os.scm 276 */
bool_t BgL_test1108z00_1147;
BgL_test1108z00_1147 = 
chdir(BgL_dirnamez00_1146); 
if(BgL_test1108z00_1147)
{ /* ./Llib/os.scm 276 */
BgL_res2370z00_1148 = ((bool_t)0); }  else 
{ /* ./Llib/os.scm 276 */
BgL_res2370z00_1148 = ((bool_t)1); } } } 
BgL_auxz00_1310 = BgL_res2370z00_1148; } 
return 
BBOOL(BgL_auxz00_1310);} } 
}



/* pwd */
BGL_EXPORTED_DEF obj_t BGl_pwdz00zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 281 */
{ /* ./Llib/os.scm 282 */
obj_t BgL_stringz00_780;
{ /* ./Llib/os.scm 282 */
int BgL_auxz00_1315;
BgL_auxz00_1315 = 
(int)(((long)1024)); 
BgL_stringz00_780 = 
make_string(BgL_auxz00_1315, ((unsigned char)' ')); } 
{ /* ./Llib/os.scm 282 */
char * BgL_auxz00_1318;
{ /* ./Llib/os.scm 282 */
int BgL_auxz00_1321;char * BgL_auxz00_1319;
BgL_auxz00_1321 = 
(int)(((long)1024)); 
BgL_auxz00_1319 = 
BSTRING_TO_STRING(BgL_stringz00_780); 
BgL_auxz00_1318 = 
(char *)(long)getcwd(BgL_auxz00_1319, BgL_auxz00_1321); } 
return 
string_to_bstring(BgL_auxz00_1318);} } } 
}



/* _pwd */
obj_t BGl__pwdz00zz__osz00(obj_t BgL_envz00_1108)
{ AN_OBJECT;
{ /* ./Llib/os.scm 281 */
return 
BGl_pwdz00zz__osz00();} 
}



/* basename */
BGL_EXPORTED_DEF obj_t BGl_basenamez00zz__osz00(obj_t BgL_stringz00_10)
{ AN_OBJECT;
{ /* ./Llib/os.scm 288 */
{ /* ./Llib/os.scm 289 */
long BgL_lenz00_410;
{ /* ./Llib/os.scm 289 */
long BgL_auxz00_1326;
{ /* ./Llib/os.scm 289 */
int BgL_auxz00_1327;
BgL_auxz00_1327 = 
STRING_LENGTH(BgL_stringz00_10); 
BgL_auxz00_1326 = 
(long)(BgL_auxz00_1327); } 
BgL_lenz00_410 = 
(BgL_auxz00_1326-((long)1)); } 
{ /* ./Llib/os.scm 289 */
long BgL_startz00_411;
{ /* ./Llib/os.scm 290 */
bool_t BgL_testz00_1331;
if(
(BgL_lenz00_410>((long)0)))
{ /* ./Llib/os.scm 291 */
unsigned char BgL_auxz00_1338;unsigned char BgL_auxz00_1334;
BgL_auxz00_1338 = 
(unsigned char)(FILE_SEPARATOR); 
{ /* ./Llib/os.scm 291 */
int BgL_auxz00_1335;
BgL_auxz00_1335 = 
(int)(BgL_lenz00_410); 
BgL_auxz00_1334 = 
STRING_REF(BgL_stringz00_10, BgL_auxz00_1335); } 
BgL_testz00_1331 = 
(BgL_auxz00_1334==BgL_auxz00_1338); }  else 
{ /* ./Llib/os.scm 290 */
BgL_testz00_1331 = ((bool_t)0)
; } 
if(BgL_testz00_1331)
{ /* ./Llib/os.scm 290 */
BgL_startz00_411 = 
(BgL_lenz00_410-((long)1)); }  else 
{ /* ./Llib/os.scm 290 */
BgL_startz00_411 = BgL_lenz00_410; } } 
{ /* ./Llib/os.scm 290 */

{ 
long BgL_indexz00_412;
BgL_indexz00_412 = BgL_startz00_411; 
BgL_loopz00_413:
if(
(BgL_indexz00_412==((long)-1)))
{ /* ./Llib/os.scm 297 */
return BgL_stringz00_10;}  else 
{ /* ./Llib/os.scm 299 */
bool_t BgL_testz00_1344;
{ /* ./Llib/os.scm 299 */
unsigned char BgL_auxz00_1349;unsigned char BgL_auxz00_1345;
BgL_auxz00_1349 = 
(unsigned char)(FILE_SEPARATOR); 
{ /* ./Llib/os.scm 299 */
int BgL_auxz00_1346;
BgL_auxz00_1346 = 
(int)(BgL_indexz00_412); 
BgL_auxz00_1345 = 
STRING_REF(BgL_stringz00_10, BgL_auxz00_1346); } 
BgL_testz00_1344 = 
(BgL_auxz00_1345==BgL_auxz00_1349); } 
if(BgL_testz00_1344)
{ /* ./Llib/os.scm 299 */
{ /* ./Llib/os.scm 300 */
long BgL_arg1117z00_416;long BgL_arg1118z00_417;
BgL_arg1117z00_416 = 
(BgL_indexz00_412+((long)1)); 
BgL_arg1118z00_417 = 
(BgL_startz00_411+((long)1)); 
{ /* ./Llib/os.scm 300 */
int BgL_auxz00_1356;int BgL_auxz00_1354;
BgL_auxz00_1356 = 
(int)(BgL_arg1118z00_417); 
BgL_auxz00_1354 = 
(int)(BgL_arg1117z00_416); 
return 
c_substring(BgL_stringz00_10, BgL_auxz00_1354, BgL_auxz00_1356);} } }  else 
{ /* ./Llib/os.scm 299 */
{ 
long BgL_indexz00_1359;
BgL_indexz00_1359 = 
(BgL_indexz00_412-((long)1)); 
BgL_indexz00_412 = BgL_indexz00_1359; 
goto BgL_loopz00_413;} } } } } } } } 
}



/* _basename */
obj_t BGl__basenamez00zz__osz00(obj_t BgL_envz00_1109, obj_t BgL_stringz00_1110)
{ AN_OBJECT;
{ /* ./Llib/os.scm 288 */
return 
BGl_basenamez00zz__osz00(BgL_stringz00_1110);} 
}



/* prefix */
BGL_EXPORTED_DEF obj_t BGl_prefixz00zz__osz00(obj_t BgL_stringz00_11)
{ AN_OBJECT;
{ /* ./Llib/os.scm 307 */
{ /* ./Llib/os.scm 308 */
long BgL_lenz00_425;
{ /* ./Llib/os.scm 308 */
long BgL_auxz00_1362;
{ /* ./Llib/os.scm 308 */
int BgL_auxz00_1363;
BgL_auxz00_1363 = 
STRING_LENGTH(BgL_stringz00_11); 
BgL_auxz00_1362 = 
(long)(BgL_auxz00_1363); } 
BgL_lenz00_425 = 
(BgL_auxz00_1362-((long)1)); } 
{ 
long BgL_ez00_426;long BgL_sz00_427;
BgL_ez00_426 = BgL_lenz00_425; 
BgL_sz00_427 = BgL_lenz00_425; 
BgL_loopz00_428:
if(
(BgL_sz00_427<=((long)0)))
{ /* ./Llib/os.scm 312 */
{ /* ./Llib/os.scm 313 */
long BgL_arg1148z00_431;
BgL_arg1148z00_431 = 
(((long)1)+BgL_ez00_426); 
{ /* ./Llib/os.scm 313 */
int BgL_auxz00_1372;int BgL_auxz00_1370;
BgL_auxz00_1372 = 
(int)(BgL_arg1148z00_431); 
BgL_auxz00_1370 = 
(int)(((long)0)); 
return 
c_substring(BgL_stringz00_11, BgL_auxz00_1370, BgL_auxz00_1372);} } }  else 
{ /* ./Llib/os.scm 312 */
{ /* ./Llib/os.scm 315 */
bool_t BgL_test1151z00_432;
{ /* ./Llib/os.scm 315 */
bool_t BgL_testz00_1375;
{ /* ./Llib/os.scm 315 */
obj_t BgL_auxz00_1382;obj_t BgL_auxz00_1376;
BgL_auxz00_1382 = 
BCHAR(((unsigned char)'.')); 
{ /* ./Llib/os.scm 315 */
unsigned char BgL_auxz00_1377;
{ /* ./Llib/os.scm 315 */
int BgL_auxz00_1378;
BgL_auxz00_1378 = 
(int)(BgL_sz00_427); 
BgL_auxz00_1377 = 
STRING_REF(BgL_stringz00_11, BgL_auxz00_1378); } 
BgL_auxz00_1376 = 
BCHAR(BgL_auxz00_1377); } 
BgL_testz00_1375 = 
(BgL_auxz00_1376==BgL_auxz00_1382); } 
if(BgL_testz00_1375)
{ /* ./Llib/os.scm 315 */
BgL_test1151z00_432 = 
(BgL_ez00_426==BgL_lenz00_425); }  else 
{ /* ./Llib/os.scm 315 */
BgL_test1151z00_432 = ((bool_t)0); } } 
if(BgL_test1151z00_432)
{ 
long BgL_sz00_1389;long BgL_ez00_1387;
BgL_ez00_1387 = 
(BgL_sz00_427-((long)1)); 
BgL_sz00_1389 = 
(BgL_sz00_427-((long)1)); 
BgL_sz00_427 = BgL_sz00_1389; 
BgL_ez00_426 = BgL_ez00_1387; 
goto BgL_loopz00_428;}  else 
{ 
long BgL_sz00_1391;
BgL_sz00_1391 = 
(BgL_sz00_427-((long)1)); 
BgL_sz00_427 = BgL_sz00_1391; 
goto BgL_loopz00_428;} } } } } } 
}



/* _prefix */
obj_t BGl__prefixz00zz__osz00(obj_t BgL_envz00_1111, obj_t BgL_stringz00_1112)
{ AN_OBJECT;
{ /* ./Llib/os.scm 307 */
return 
BGl_prefixz00zz__osz00(BgL_stringz00_1112);} 
}



/* dirname */
BGL_EXPORTED_DEF obj_t BGl_dirnamez00zz__osz00(obj_t BgL_stringz00_12)
{ AN_OBJECT;
{ /* ./Llib/os.scm 323 */
{ /* ./Llib/os.scm 324 */
long BgL_lenz00_440;
{ /* ./Llib/os.scm 324 */
long BgL_auxz00_1394;
{ /* ./Llib/os.scm 324 */
int BgL_auxz00_1395;
BgL_auxz00_1395 = 
STRING_LENGTH(BgL_stringz00_12); 
BgL_auxz00_1394 = 
(long)(BgL_auxz00_1395); } 
BgL_lenz00_440 = 
(BgL_auxz00_1394-((long)1)); } 
if(
(BgL_lenz00_440==((long)-1)))
{ /* ./Llib/os.scm 325 */
return BGl_string2349z00zz__osz00;}  else 
{ 
long BgL_readz00_442;
BgL_readz00_442 = BgL_lenz00_440; 
BgL_loopz00_443:
if(
(BgL_readz00_442==((long)0)))
{ /* ./Llib/os.scm 329 */
{ /* ./Llib/os.scm 330 */
bool_t BgL_testz00_1403;
{ /* ./Llib/os.scm 330 */
unsigned char BgL_auxz00_1408;unsigned char BgL_auxz00_1404;
BgL_auxz00_1408 = 
(unsigned char)(FILE_SEPARATOR); 
{ /* ./Llib/os.scm 330 */
int BgL_auxz00_1405;
BgL_auxz00_1405 = 
(int)(BgL_readz00_442); 
BgL_auxz00_1404 = 
STRING_REF(BgL_stringz00_12, BgL_auxz00_1405); } 
BgL_testz00_1403 = 
(BgL_auxz00_1404==BgL_auxz00_1408); } 
if(BgL_testz00_1403)
{ /* ./Llib/os.scm 331 */
obj_t BgL_list1180z00_446;
{ /* ./Llib/os.scm 331 */
obj_t BgL_auxz00_1411;
BgL_auxz00_1411 = 
BCHAR(FILE_SEPARATOR); 
BgL_list1180z00_446 = 
MAKE_PAIR(BgL_auxz00_1411, BNIL); } 
{ /* ./Llib/os.scm 331 */
obj_t BgL_res2130z00_852;
{ /* ./Llib/os.scm 331 */
int BgL_kz00_846;
BgL_kz00_846 = 
(int)(((long)1)); 
{ /* ./Llib/os.scm 331 */
obj_t BgL_arg1645z00_849;
BgL_arg1645z00_849 = 
CAR(BgL_list1180z00_446); 
{ /* ./Llib/os.scm 331 */
unsigned char BgL_auxz00_1416;
BgL_auxz00_1416 = 
(unsigned char)CCHAR(BgL_arg1645z00_849); 
BgL_res2130z00_852 = 
make_string(BgL_kz00_846, BgL_auxz00_1416); } } } 
return BgL_res2130z00_852;} }  else 
{ /* ./Llib/os.scm 330 */
return BGl_string2349z00zz__osz00;} } }  else 
{ /* ./Llib/os.scm 333 */
bool_t BgL_testz00_1419;
{ /* ./Llib/os.scm 333 */
unsigned char BgL_auxz00_1424;unsigned char BgL_auxz00_1420;
BgL_auxz00_1424 = 
(unsigned char)(FILE_SEPARATOR); 
{ /* ./Llib/os.scm 333 */
int BgL_auxz00_1421;
BgL_auxz00_1421 = 
(int)(BgL_readz00_442); 
BgL_auxz00_1420 = 
STRING_REF(BgL_stringz00_12, BgL_auxz00_1421); } 
BgL_testz00_1419 = 
(BgL_auxz00_1420==BgL_auxz00_1424); } 
if(BgL_testz00_1419)
{ /* ./Llib/os.scm 333 */
{ /* ./Llib/os.scm 334 */
int BgL_auxz00_1429;int BgL_auxz00_1427;
BgL_auxz00_1429 = 
(int)(BgL_readz00_442); 
BgL_auxz00_1427 = 
(int)(((long)0)); 
return 
c_substring(BgL_stringz00_12, BgL_auxz00_1427, BgL_auxz00_1429);} }  else 
{ /* ./Llib/os.scm 333 */
{ 
long BgL_readz00_1432;
BgL_readz00_1432 = 
(BgL_readz00_442-((long)1)); 
BgL_readz00_442 = BgL_readz00_1432; 
goto BgL_loopz00_443;} } } } } } 
}



/* _dirname */
obj_t BGl__dirnamez00zz__osz00(obj_t BgL_envz00_1113, obj_t BgL_stringz00_1114)
{ AN_OBJECT;
{ /* ./Llib/os.scm 323 */
return 
BGl_dirnamez00zz__osz00(BgL_stringz00_1114);} 
}



/* suffix */
BGL_EXPORTED_DEF obj_t BGl_suffixz00zz__osz00(obj_t BgL_stringz00_13)
{ AN_OBJECT;
{ /* ./Llib/os.scm 341 */
{ /* ./Llib/os.scm 342 */
int BgL_lenz00_453;
BgL_lenz00_453 = 
STRING_LENGTH(BgL_stringz00_13); 
{ /* ./Llib/os.scm 342 */
long BgL_lenzd21zd2_454;
{ /* ./Llib/os.scm 343 */
long BgL_auxz00_1436;
BgL_auxz00_1436 = 
(long)(BgL_lenz00_453); 
BgL_lenzd21zd2_454 = 
(BgL_auxz00_1436-((long)1)); } 
{ /* ./Llib/os.scm 343 */

{ 
long BgL_readz00_455;
BgL_readz00_455 = BgL_lenzd21zd2_454; 
BgL_loopz00_456:
if(
(BgL_readz00_455<((long)0)))
{ /* ./Llib/os.scm 346 */
return BGl_string2348z00zz__osz00;}  else 
{ /* ./Llib/os.scm 348 */
bool_t BgL_testz00_1441;
{ /* ./Llib/os.scm 348 */
unsigned char BgL_auxz00_1446;unsigned char BgL_auxz00_1442;
BgL_auxz00_1446 = 
(unsigned char)(FILE_SEPARATOR); 
{ /* ./Llib/os.scm 348 */
int BgL_auxz00_1443;
BgL_auxz00_1443 = 
(int)(BgL_readz00_455); 
BgL_auxz00_1442 = 
STRING_REF(BgL_stringz00_13, BgL_auxz00_1443); } 
BgL_testz00_1441 = 
(BgL_auxz00_1442==BgL_auxz00_1446); } 
if(BgL_testz00_1441)
{ /* ./Llib/os.scm 348 */
return BGl_string2348z00zz__osz00;}  else 
{ /* ./Llib/os.scm 350 */
bool_t BgL_testz00_1449;
{ /* ./Llib/os.scm 350 */
unsigned char BgL_auxz00_1450;
{ /* ./Llib/os.scm 350 */
int BgL_auxz00_1451;
BgL_auxz00_1451 = 
(int)(BgL_readz00_455); 
BgL_auxz00_1450 = 
STRING_REF(BgL_stringz00_13, BgL_auxz00_1451); } 
BgL_testz00_1449 = 
(BgL_auxz00_1450==((unsigned char)'.')); } 
if(BgL_testz00_1449)
{ /* ./Llib/os.scm 350 */
if(
(BgL_readz00_455==BgL_lenzd21zd2_454))
{ /* ./Llib/os.scm 352 */
return BGl_string2348z00zz__osz00;}  else 
{ /* ./Llib/os.scm 352 */
{ /* ./Llib/os.scm 355 */
long BgL_arg1209z00_461;
BgL_arg1209z00_461 = 
(BgL_readz00_455+((long)1)); 
{ /* ./Llib/os.scm 355 */
int BgL_auxz00_1458;
BgL_auxz00_1458 = 
(int)(BgL_arg1209z00_461); 
return 
c_substring(BgL_stringz00_13, BgL_auxz00_1458, BgL_lenz00_453);} } } }  else 
{ /* ./Llib/os.scm 350 */
{ 
long BgL_readz00_1461;
BgL_readz00_1461 = 
(BgL_readz00_455-((long)1)); 
BgL_readz00_455 = BgL_readz00_1461; 
goto BgL_loopz00_456;} } } } } } } } } 
}



/* _suffix */
obj_t BGl__suffixz00zz__osz00(obj_t BgL_envz00_1115, obj_t BgL_stringz00_1116)
{ AN_OBJECT;
{ /* ./Llib/os.scm 341 */
return 
BGl_suffixz00zz__osz00(BgL_stringz00_1116);} 
}



/* chmod */
BGL_EXPORTED_DEF bool_t BGl_chmodz00zz__osz00(obj_t BgL_filez00_14, obj_t BgL_modez00_15)
{ AN_OBJECT;
{ /* ./Llib/os.scm 362 */
{ 
obj_t BgL_modez00_465;bool_t BgL_readzf3zf3_466;bool_t BgL_writezf3zf3_467;bool_t BgL_execzf3zf3_468;
{ /* ./Llib/os.scm 363 */
obj_t BgL_auxz00_1464;
BgL_modez00_465 = BgL_modez00_15; 
BgL_readzf3zf3_466 = ((bool_t)0); 
BgL_writezf3zf3_467 = ((bool_t)0); 
BgL_execzf3zf3_468 = ((bool_t)0); 
BgL_loopz00_469:
if(
NULLP(BgL_modez00_465))
{ /* ./Llib/os.scm 368 */
{ /* ./Llib/os.scm 369 */
bool_t BgL_auxz00_1467;
{ /* ./Llib/os.scm 369 */
char * BgL_auxz00_1468;
BgL_auxz00_1468 = 
BSTRING_TO_STRING(BgL_filez00_14); 
BgL_auxz00_1467 = 
bgl_chmod(BgL_auxz00_1468, BgL_readzf3zf3_466, BgL_writezf3zf3_467, BgL_execzf3zf3_468); } 
BgL_auxz00_1464 = 
BBOOL(BgL_auxz00_1467); } }  else 
{ /* ./Llib/os.scm 370 */
bool_t BgL_testz00_1472;
{ /* ./Llib/os.scm 370 */
obj_t BgL_auxz00_1473;
BgL_auxz00_1473 = 
CAR(BgL_modez00_465); 
BgL_testz00_1472 = 
INTEGERP(BgL_auxz00_1473); } 
if(BgL_testz00_1472)
{ /* ./Llib/os.scm 370 */
{ /* ./Llib/os.scm 371 */
obj_t BgL_arg1233z00_472;
BgL_arg1233z00_472 = 
CAR(BgL_modez00_465); 
{ /* ./Llib/os.scm 371 */
bool_t BgL_auxz00_1477;
{ /* ./Llib/os.scm 371 */
int BgL_auxz00_1480;char * BgL_auxz00_1478;
BgL_auxz00_1480 = 
CINT(BgL_arg1233z00_472); 
BgL_auxz00_1478 = 
BSTRING_TO_STRING(BgL_filez00_14); 
BgL_auxz00_1477 = 
chmod(BgL_auxz00_1478, BgL_auxz00_1480); } 
BgL_auxz00_1464 = 
BBOOL(BgL_auxz00_1477); } } }  else 
{ /* ./Llib/os.scm 372 */
bool_t BgL_testz00_1484;
{ /* ./Llib/os.scm 372 */
obj_t BgL_auxz00_1485;
BgL_auxz00_1485 = 
CAR(BgL_modez00_465); 
BgL_testz00_1484 = 
(BgL_auxz00_1485==BGl_symbol2357z00zz__osz00); } 
if(BgL_testz00_1484)
{ /* ./Llib/os.scm 372 */
{ 
bool_t BgL_readzf3zf3_1490;obj_t BgL_modez00_1488;
BgL_modez00_1488 = 
CDR(BgL_modez00_465); 
BgL_readzf3zf3_1490 = ((bool_t)1); 
BgL_readzf3zf3_466 = BgL_readzf3zf3_1490; 
BgL_modez00_465 = BgL_modez00_1488; 
goto BgL_loopz00_469;} }  else 
{ /* ./Llib/os.scm 377 */
bool_t BgL_testz00_1491;
{ /* ./Llib/os.scm 377 */
obj_t BgL_auxz00_1492;
BgL_auxz00_1492 = 
CAR(BgL_modez00_465); 
BgL_testz00_1491 = 
(BgL_auxz00_1492==BGl_symbol2358z00zz__osz00); } 
if(BgL_testz00_1491)
{ /* ./Llib/os.scm 377 */
{ 
bool_t BgL_writezf3zf3_1497;obj_t BgL_modez00_1495;
BgL_modez00_1495 = 
CDR(BgL_modez00_465); 
BgL_writezf3zf3_1497 = ((bool_t)1); 
BgL_writezf3zf3_467 = BgL_writezf3zf3_1497; 
BgL_modez00_465 = BgL_modez00_1495; 
goto BgL_loopz00_469;} }  else 
{ /* ./Llib/os.scm 382 */
bool_t BgL_testz00_1498;
{ /* ./Llib/os.scm 382 */
obj_t BgL_auxz00_1499;
BgL_auxz00_1499 = 
CAR(BgL_modez00_465); 
BgL_testz00_1498 = 
(BgL_auxz00_1499==BGl_symbol2359z00zz__osz00); } 
if(BgL_testz00_1498)
{ /* ./Llib/os.scm 382 */
{ 
bool_t BgL_execzf3zf3_1504;obj_t BgL_modez00_1502;
BgL_modez00_1502 = 
CDR(BgL_modez00_465); 
BgL_execzf3zf3_1504 = ((bool_t)1); 
BgL_execzf3zf3_468 = BgL_execzf3zf3_1504; 
BgL_modez00_465 = BgL_modez00_1502; 
goto BgL_loopz00_469;} }  else 
{ /* ./Llib/os.scm 382 */
FAILURE(BGl_string2360z00zz__osz00,BGl_string2361z00zz__osz00,BgL_modez00_465);} } } } } 
return 
CBOOL(BgL_auxz00_1464);} } } 
}



/* _chmod */
obj_t BGl__chmodz00zz__osz00(obj_t BgL_envz00_1117, obj_t BgL_filez00_1118, obj_t BgL_modez00_1119)
{ AN_OBJECT;
{ /* ./Llib/os.scm 362 */
{ /* ./Llib/os.scm 363 */
bool_t BgL_auxz00_1507;
BgL_auxz00_1507 = 
BGl_chmodz00zz__osz00(BgL_filez00_1118, BgL_modez00_1119); 
return 
BBOOL(BgL_auxz00_1507);} } 
}



/* make-file-name */
BGL_EXPORTED_DEF obj_t BGl_makezd2filezd2namez00zz__osz00(obj_t BgL_directoryz00_16, obj_t BgL_filez00_17)
{ AN_OBJECT;
{ /* ./Llib/os.scm 396 */
{ /* ./Llib/os.scm 397 */
bool_t BgL_testz00_1510;
{ /* ./Llib/os.scm 397 */
long BgL_auxz00_1511;
{ /* ./Llib/os.scm 397 */
int BgL_auxz00_1512;
BgL_auxz00_1512 = 
STRING_LENGTH(BgL_directoryz00_16); 
BgL_auxz00_1511 = 
(long)(BgL_auxz00_1512); } 
BgL_testz00_1510 = 
(BgL_auxz00_1511==((long)0)); } 
if(BgL_testz00_1510)
{ /* ./Llib/os.scm 397 */
return BgL_filez00_17;}  else 
{ /* ./Llib/os.scm 399 */
int BgL_ldirz00_487;
BgL_ldirz00_487 = 
STRING_LENGTH(BgL_directoryz00_16); 
{ /* ./Llib/os.scm 399 */
int BgL_lfilez00_488;
BgL_lfilez00_488 = 
STRING_LENGTH(BgL_filez00_17); 
{ /* ./Llib/os.scm 400 */
long BgL_lenz00_489;
{ /* ./Llib/os.scm 401 */
long BgL_auxz00_1520;long BgL_auxz00_1518;
{ /* ./Llib/os.scm 401 */
long BgL_auxz00_1521;
BgL_auxz00_1521 = 
(long)(BgL_lfilez00_488); 
BgL_auxz00_1520 = 
(BgL_auxz00_1521+((long)1)); } 
BgL_auxz00_1518 = 
(long)(BgL_ldirz00_487); 
BgL_lenz00_489 = 
(BgL_auxz00_1518+BgL_auxz00_1520); } 
{ /* ./Llib/os.scm 401 */
obj_t BgL_strz00_490;
{ /* ./Llib/os.scm 402 */
obj_t BgL_list1282z00_493;
{ /* ./Llib/os.scm 402 */
obj_t BgL_auxz00_1525;
BgL_auxz00_1525 = 
BCHAR(FILE_SEPARATOR); 
BgL_list1282z00_493 = 
MAKE_PAIR(BgL_auxz00_1525, BNIL); } 
{ /* ./Llib/os.scm 402 */
obj_t BgL_res2131z00_912;
{ /* ./Llib/os.scm 402 */
int BgL_kz00_906;
BgL_kz00_906 = 
(int)(BgL_lenz00_489); 
{ /* ./Llib/os.scm 402 */
obj_t BgL_arg1645z00_909;
BgL_arg1645z00_909 = 
CAR(BgL_list1282z00_493); 
{ /* ./Llib/os.scm 402 */
unsigned char BgL_auxz00_1530;
BgL_auxz00_1530 = 
(unsigned char)CCHAR(BgL_arg1645z00_909); 
BgL_res2131z00_912 = 
make_string(BgL_kz00_906, BgL_auxz00_1530); } } } 
BgL_strz00_490 = BgL_res2131z00_912; } } 
{ /* ./Llib/os.scm 402 */

{ /* ./Llib/os.scm 403 */
int BgL_auxz00_1535;int BgL_auxz00_1533;
BgL_auxz00_1535 = 
(int)(((long)0)); 
BgL_auxz00_1533 = 
(int)(((long)0)); 
blit_string(BgL_directoryz00_16, BgL_auxz00_1533, BgL_strz00_490, BgL_auxz00_1535, BgL_ldirz00_487); } 
{ /* ./Llib/os.scm 404 */
long BgL_arg1278z00_492;
{ /* ./Llib/os.scm 404 */
long BgL_auxz00_1538;
BgL_auxz00_1538 = 
(long)(BgL_ldirz00_487); 
BgL_arg1278z00_492 = 
(((long)1)+BgL_auxz00_1538); } 
{ /* ./Llib/os.scm 404 */
int BgL_auxz00_1543;int BgL_auxz00_1541;
BgL_auxz00_1543 = 
(int)(BgL_arg1278z00_492); 
BgL_auxz00_1541 = 
(int)(((long)0)); 
blit_string(BgL_filez00_17, BgL_auxz00_1541, BgL_strz00_490, BgL_auxz00_1543, BgL_lfilez00_488); } } 
return BgL_strz00_490;} } } } } } } 
}



/* _make-file-name */
obj_t BGl__makezd2filezd2namez00zz__osz00(obj_t BgL_envz00_1120, obj_t BgL_directoryz00_1121, obj_t BgL_filez00_1122)
{ AN_OBJECT;
{ /* ./Llib/os.scm 396 */
return 
BGl_makezd2filezd2namez00zz__osz00(BgL_directoryz00_1121, BgL_filez00_1122);} 
}



/* make-file-path */
BGL_EXPORTED_DEF obj_t BGl_makezd2filezd2pathz00zz__osz00(obj_t BgL_directoryz00_18, obj_t BgL_filez00_19, obj_t BgL_objz00_20)
{ AN_OBJECT;
{ /* ./Llib/os.scm 413 */
{ /* ./Llib/os.scm 414 */
bool_t BgL_test1295z00_497;
{ /* ./Llib/os.scm 414 */
bool_t BgL_testz00_1547;
{ /* ./Llib/os.scm 414 */
long BgL_auxz00_1548;
{ /* ./Llib/os.scm 414 */
int BgL_auxz00_1549;
BgL_auxz00_1549 = 
STRING_LENGTH(BgL_directoryz00_18); 
BgL_auxz00_1548 = 
(long)(BgL_auxz00_1549); } 
BgL_testz00_1547 = 
(BgL_auxz00_1548==((long)0)); } 
if(BgL_testz00_1547)
{ /* ./Llib/os.scm 414 */
BgL_test1295z00_497 = 
NULLP(BgL_objz00_20); }  else 
{ /* ./Llib/os.scm 414 */
BgL_test1295z00_497 = ((bool_t)0); } } 
if(BgL_test1295z00_497)
{ /* ./Llib/os.scm 414 */
return BgL_filez00_19;}  else 
{ /* ./Llib/os.scm 416 */
int BgL_ldirz00_498;
BgL_ldirz00_498 = 
STRING_LENGTH(BgL_directoryz00_18); 
{ /* ./Llib/os.scm 416 */
int BgL_lfilez00_499;
BgL_lfilez00_499 = 
STRING_LENGTH(BgL_filez00_19); 
{ /* ./Llib/os.scm 417 */
obj_t BgL_lenz00_500;
{ 
obj_t BgL_objz00_520;long BgL_lz00_521;
BgL_objz00_520 = BgL_objz00_20; 
{ /* ./Llib/os.scm 419 */
long BgL_auxz00_1580;long BgL_auxz00_1578;
{ /* ./Llib/os.scm 419 */
long BgL_auxz00_1581;
BgL_auxz00_1581 = 
(long)(BgL_lfilez00_499); 
BgL_auxz00_1580 = 
(((long)1)+BgL_auxz00_1581); } 
BgL_auxz00_1578 = 
(long)(BgL_ldirz00_498); 
BgL_lz00_521 = 
(BgL_auxz00_1578+BgL_auxz00_1580); } 
BgL_loopz00_522:
if(
NULLP(BgL_objz00_520))
{ /* ./Llib/os.scm 421 */
BgL_lenz00_500 = 
BINT(BgL_lz00_521); }  else 
{ /* ./Llib/os.scm 423 */
bool_t BgL_testz00_1560;
{ /* ./Llib/os.scm 423 */
obj_t BgL_auxz00_1561;
BgL_auxz00_1561 = 
CAR(BgL_objz00_520); 
BgL_testz00_1560 = 
STRINGP(BgL_auxz00_1561); } 
if(BgL_testz00_1560)
{ /* ./Llib/os.scm 423 */
{ 
long BgL_lz00_1566;obj_t BgL_objz00_1564;
BgL_objz00_1564 = 
CDR(BgL_objz00_520); 
{ /* ./Llib/os.scm 428 */
long BgL_auxz00_1567;
{ /* ./Llib/os.scm 429 */
long BgL_auxz00_1568;
{ /* ./Llib/os.scm 429 */
int BgL_auxz00_1569;
{ /* ./Llib/os.scm 429 */
obj_t BgL_auxz00_1570;
BgL_auxz00_1570 = 
CAR(BgL_objz00_520); 
BgL_auxz00_1569 = 
STRING_LENGTH(BgL_auxz00_1570); } 
BgL_auxz00_1568 = 
(long)(BgL_auxz00_1569); } 
BgL_auxz00_1567 = 
(BgL_auxz00_1568+BgL_lz00_521); } 
BgL_lz00_1566 = 
(((long)1)+BgL_auxz00_1567); } 
BgL_lz00_521 = BgL_lz00_1566; 
BgL_objz00_520 = BgL_objz00_1564; 
goto BgL_loopz00_522;} }  else 
{ /* ./Llib/os.scm 423 */
BgL_lenz00_500 = 
BGl_bigloozd2typezd2errorz00zz__errorz00(BGl_symbol2362z00zz__osz00, BGl_string2363z00zz__osz00, 
CAR(BgL_objz00_520)); } } } 
{ /* ./Llib/os.scm 418 */
obj_t BgL_strz00_501;
{ /* ./Llib/os.scm 431 */
obj_t BgL_list1333z00_519;
{ /* ./Llib/os.scm 431 */
obj_t BgL_auxz00_1585;
BgL_auxz00_1585 = 
BCHAR(FILE_SEPARATOR); 
BgL_list1333z00_519 = 
MAKE_PAIR(BgL_auxz00_1585, BNIL); } 
{ /* ./Llib/os.scm 431 */
obj_t BgL_res2132z00_952;
{ /* ./Llib/os.scm 431 */
int BgL_kz00_946;
BgL_kz00_946 = 
CINT(BgL_lenz00_500); 
{ /* ./Llib/os.scm 431 */
obj_t BgL_arg1645z00_949;
BgL_arg1645z00_949 = 
CAR(BgL_list1333z00_519); 
{ /* ./Llib/os.scm 431 */
unsigned char BgL_auxz00_1590;
BgL_auxz00_1590 = 
(unsigned char)CCHAR(BgL_arg1645z00_949); 
BgL_res2132z00_952 = 
make_string(BgL_kz00_946, BgL_auxz00_1590); } } } 
BgL_strz00_501 = BgL_res2132z00_952; } } 
{ /* ./Llib/os.scm 431 */

{ /* ./Llib/os.scm 432 */
int BgL_auxz00_1595;int BgL_auxz00_1593;
BgL_auxz00_1595 = 
(int)(((long)0)); 
BgL_auxz00_1593 = 
(int)(((long)0)); 
blit_string(BgL_directoryz00_18, BgL_auxz00_1593, BgL_strz00_501, BgL_auxz00_1595, BgL_ldirz00_498); } 
{ /* ./Llib/os.scm 433 */
long BgL_arg1299z00_503;
{ /* ./Llib/os.scm 433 */
long BgL_auxz00_1598;
BgL_auxz00_1598 = 
(long)(BgL_ldirz00_498); 
BgL_arg1299z00_503 = 
(((long)1)+BgL_auxz00_1598); } 
{ /* ./Llib/os.scm 433 */
int BgL_auxz00_1603;int BgL_auxz00_1601;
BgL_auxz00_1603 = 
(int)(BgL_arg1299z00_503); 
BgL_auxz00_1601 = 
(int)(((long)0)); 
blit_string(BgL_filez00_19, BgL_auxz00_1601, BgL_strz00_501, BgL_auxz00_1603, BgL_lfilez00_499); } } 
{ 
obj_t BgL_objz00_504;long BgL_wz00_505;
BgL_objz00_504 = BgL_objz00_20; 
{ /* ./Llib/os.scm 435 */
long BgL_auxz00_1626;
{ /* ./Llib/os.scm 435 */
long BgL_auxz00_1629;long BgL_auxz00_1627;
BgL_auxz00_1629 = 
(long)(BgL_lfilez00_499); 
BgL_auxz00_1627 = 
(long)(BgL_ldirz00_498); 
BgL_auxz00_1626 = 
(BgL_auxz00_1627+BgL_auxz00_1629); } 
BgL_wz00_505 = 
(((long)1)+BgL_auxz00_1626); } 
BgL_loopz00_506:
if(
NULLP(BgL_objz00_504))
{ /* ./Llib/os.scm 436 */
return BgL_strz00_501;}  else 
{ /* ./Llib/os.scm 438 */
int BgL_loz00_511;
{ /* ./Llib/os.scm 438 */
obj_t BgL_auxz00_1608;
BgL_auxz00_1608 = 
CAR(BgL_objz00_504); 
BgL_loz00_511 = 
STRING_LENGTH(BgL_auxz00_1608); } 
{ /* ./Llib/os.scm 439 */
obj_t BgL_arg1312z00_512;long BgL_arg1314z00_514;
BgL_arg1312z00_512 = 
CAR(BgL_objz00_504); 
BgL_arg1314z00_514 = 
(((long)1)+BgL_wz00_505); 
{ /* ./Llib/os.scm 439 */
int BgL_auxz00_1615;int BgL_auxz00_1613;
BgL_auxz00_1615 = 
(int)(BgL_arg1314z00_514); 
BgL_auxz00_1613 = 
(int)(((long)0)); 
blit_string(BgL_arg1312z00_512, BgL_auxz00_1613, BgL_strz00_501, BgL_auxz00_1615, BgL_loz00_511); } } 
{ 
long BgL_wz00_1620;obj_t BgL_objz00_1618;
BgL_objz00_1618 = 
CDR(BgL_objz00_504); 
{ /* ./Llib/os.scm 440 */
long BgL_auxz00_1621;
{ /* ./Llib/os.scm 440 */
long BgL_auxz00_1622;
BgL_auxz00_1622 = 
(long)(BgL_loz00_511); 
BgL_auxz00_1621 = 
(BgL_auxz00_1622+((long)1)); } 
BgL_wz00_1620 = 
(BgL_wz00_505+BgL_auxz00_1621); } 
BgL_wz00_505 = BgL_wz00_1620; 
BgL_objz00_504 = BgL_objz00_1618; 
goto BgL_loopz00_506;} } } } } } } } } } 
}



/* _make-file-path2160 */
obj_t BGl__makezd2filezd2path2160z00zz__osz00(obj_t BgL_envz00_1123, obj_t BgL_directoryz00_1124, obj_t BgL_filez00_1125, obj_t BgL_objz00_1126)
{ AN_OBJECT;
{ /* ./Llib/os.scm 413 */
return 
BGl_makezd2filezd2pathz00zz__osz00(BgL_directoryz00_1124, BgL_filez00_1125, BgL_objz00_1126);} 
}



/* find-file/path */
BGL_EXPORTED_DEF obj_t BGl_findzd2filezf2pathz20zz__osz00(obj_t BgL_filezd2namezd2_21, obj_t BgL_pathz00_22)
{ AN_OBJECT;
{ /* ./Llib/os.scm 445 */
{ /* ./Llib/os.scm 447 */
bool_t BgL_testz00_1634;
{ /* ./Llib/os.scm 447 */
long BgL_auxz00_1635;
{ /* ./Llib/os.scm 447 */
int BgL_auxz00_1636;
BgL_auxz00_1636 = 
STRING_LENGTH(BgL_filezd2namezd2_21); 
BgL_auxz00_1635 = 
(long)(BgL_auxz00_1636); } 
BgL_testz00_1634 = 
(BgL_auxz00_1635==((long)0)); } 
if(BgL_testz00_1634)
{ /* ./Llib/os.scm 447 */
return BFALSE;}  else 
{ /* ./Llib/os.scm 449 */
bool_t BgL_testz00_1640;
{ /* ./Llib/os.scm 449 */
unsigned char BgL_auxz00_1645;unsigned char BgL_auxz00_1641;
BgL_auxz00_1645 = 
(unsigned char)(FILE_SEPARATOR); 
{ /* ./Llib/os.scm 449 */
int BgL_auxz00_1642;
BgL_auxz00_1642 = 
(int)(((long)0)); 
BgL_auxz00_1641 = 
STRING_REF(BgL_filezd2namezd2_21, BgL_auxz00_1642); } 
BgL_testz00_1640 = 
(BgL_auxz00_1641==BgL_auxz00_1645); } 
if(BgL_testz00_1640)
{ /* ./Llib/os.scm 449 */
{ /* ./Llib/os.scm 450 */
bool_t BgL_testz00_1648;
{ /* ./Llib/os.scm 450 */
char * BgL_auxz00_1649;
BgL_auxz00_1649 = 
BSTRING_TO_STRING(BgL_filezd2namezd2_21); 
BgL_testz00_1648 = 
fexists(BgL_auxz00_1649); } 
if(BgL_testz00_1648)
{ /* ./Llib/os.scm 450 */
return BgL_filezd2namezd2_21;}  else 
{ /* ./Llib/os.scm 450 */
return BFALSE;} } }  else 
{ /* ./Llib/os.scm 449 */
{ 
obj_t BgL_pathz00_543;
BgL_pathz00_543 = BgL_pathz00_22; 
BgL_loopz00_544:
if(
NULLP(BgL_pathz00_543))
{ /* ./Llib/os.scm 455 */
return BFALSE;}  else 
{ /* ./Llib/os.scm 457 */
obj_t BgL_fnamez00_546;
BgL_fnamez00_546 = 
BGl_makezd2filezd2namez00zz__osz00(
CAR(BgL_pathz00_543), BgL_filezd2namezd2_21); 
{ /* ./Llib/os.scm 458 */
bool_t BgL_testz00_1656;
{ /* ./Llib/os.scm 458 */
char * BgL_auxz00_1657;
BgL_auxz00_1657 = 
BSTRING_TO_STRING(BgL_fnamez00_546); 
BgL_testz00_1656 = 
fexists(BgL_auxz00_1657); } 
if(BgL_testz00_1656)
{ /* ./Llib/os.scm 458 */
return BgL_fnamez00_546;}  else 
{ 
obj_t BgL_pathz00_1660;
BgL_pathz00_1660 = 
CDR(BgL_pathz00_543); 
BgL_pathz00_543 = BgL_pathz00_1660; 
goto BgL_loopz00_544;} } } } } } } } 
}



/* _find-file/path */
obj_t BGl__findzd2filezf2pathz20zz__osz00(obj_t BgL_envz00_1127, obj_t BgL_filezd2namezd2_1128, obj_t BgL_pathz00_1129)
{ AN_OBJECT;
{ /* ./Llib/os.scm 445 */
return 
BGl_findzd2filezf2pathz20zz__osz00(BgL_filezd2namezd2_1128, BgL_pathz00_1129);} 
}



/* make-static-library-name */
BGL_EXPORTED_DEF obj_t BGl_makezd2staticzd2libraryzd2namezd2zz__osz00(obj_t BgL_libnamez00_23)
{ AN_OBJECT;
{ /* ./Llib/os.scm 467 */
{ /* ./Llib/os.scm 468 */
obj_t BgL_auxz00_1663;
BgL_auxz00_1663 = 
string_to_bstring(STATIC_LIB_SUFFIX); 
return 
string_append_3(BgL_libnamez00_23, BGl_string2349z00zz__osz00, BgL_auxz00_1663);} } 
}



/* _make-static-library-name */
obj_t BGl__makezd2staticzd2libraryzd2namezd2zz__osz00(obj_t BgL_envz00_1130, obj_t BgL_libnamez00_1131)
{ AN_OBJECT;
{ /* ./Llib/os.scm 467 */
return 
BGl_makezd2staticzd2libraryzd2namezd2zz__osz00(BgL_libnamez00_1131);} 
}



/* make-shared-library-name */
BGL_EXPORTED_DEF obj_t BGl_makezd2sharedzd2libraryzd2namezd2zz__osz00(obj_t BgL_libnamez00_24)
{ AN_OBJECT;
{ /* ./Llib/os.scm 475 */
{ /* ./Llib/os.scm 476 */
obj_t BgL_auxz00_1667;
BgL_auxz00_1667 = 
string_to_bstring(SHARED_LIB_SUFFIX); 
return 
string_append_3(BgL_libnamez00_24, BGl_string2349z00zz__osz00, BgL_auxz00_1667);} } 
}



/* _make-shared-library-name */
obj_t BGl__makezd2sharedzd2libraryzd2namezd2zz__osz00(obj_t BgL_envz00_1132, obj_t BgL_libnamez00_1133)
{ AN_OBJECT;
{ /* ./Llib/os.scm 475 */
return 
BGl_makezd2sharedzd2libraryzd2namezd2zz__osz00(BgL_libnamez00_1133);} 
}



/* sleep */
BGL_EXPORTED_DEF obj_t BGl_sleepz00zz__osz00(long BgL_msz00_25)
{ AN_OBJECT;
{ /* ./Llib/os.scm 481 */
bgl_sleep(BgL_msz00_25); 
return 
BINT(BgL_msz00_25);} 
}



/* _sleep2165 */
obj_t BGl__sleep2165z00zz__osz00(obj_t BgL_envz00_1134, obj_t BgL_msz00_1135)
{ AN_OBJECT;
{ /* ./Llib/os.scm 481 */
{ /* ./Llib/os.scm 482 */
long BgL_msz00_1149;
BgL_msz00_1149 = 
(long)CINT(BgL_msz00_1135); 
bgl_sleep(BgL_msz00_1149); 
return 
BINT(BgL_msz00_1149);} } 
}



/* dynamic-load */
BGL_EXPORTED_DEF obj_t BGl_dynamiczd2loadzd2zz__osz00(obj_t BgL_libz00_26, obj_t BgL_initsz00_27)
{ AN_OBJECT;
{ /* ./Llib/os.scm 502 */
{ /* ./Llib/os.scm 508 */
obj_t BgL_initz00_554;obj_t BgL_flibz00_555;
{ /* ./Llib/os.scm 508 */
bool_t BgL_testz00_1676;
if(
PAIRP(BgL_initsz00_27))
{ /* ./Llib/os.scm 508 */
obj_t BgL_auxz00_1679;
BgL_auxz00_1679 = 
CAR(BgL_initsz00_27); 
BgL_testz00_1676 = 
STRINGP(BgL_auxz00_1679); }  else 
{ /* ./Llib/os.scm 508 */
BgL_testz00_1676 = ((bool_t)0)
; } 
if(BgL_testz00_1676)
{ /* ./Llib/os.scm 508 */
BgL_initz00_554 = 
CAR(BgL_initsz00_27); }  else 
{ /* ./Llib/os.scm 508 */
BgL_initz00_554 = 
string_to_bstring(BGL_DYNAMIC_LOAD_INIT); } } 
BgL_flibz00_555 = 
BGl_findzd2filezf2pathz20zz__osz00(BgL_libz00_26, BGl_za2dynamiczd2loadzd2pathza2z00zz__osz00); 
if(
STRINGP(BgL_flibz00_555))
{ /* ./Llib/os.scm 521 */
int BgL_aux1007z00_558;
{ /* ./Llib/os.scm 520 */
char * BgL_auxz00_1689;char * BgL_auxz00_1687;
BgL_auxz00_1689 = 
BSTRING_TO_STRING(BgL_initz00_554); 
BgL_auxz00_1687 = 
BSTRING_TO_STRING(BgL_flibz00_555); 
BgL_aux1007z00_558 = 
bgl_dload(BgL_auxz00_1687, BgL_auxz00_1689); } 
switch( 
(long)(BgL_aux1007z00_558)) { case ((long)0) : 

return BgL_flibz00_555;break;case ((long)1) : 

{ /* ./Llib/os.scm 524 */
char * BgL_arg1416z00_560;
BgL_arg1416z00_560 = 
bgl_dload_error(); 
{ /* ./Llib/os.scm 524 */
obj_t BgL_arg1441z00_1005;
if(
STRINGP(BgL_flibz00_555))
{ /* ./Llib/os.scm 524 */
BgL_arg1441z00_1005 = 
string_append(BGl_string2364z00zz__osz00, BgL_flibz00_555); }  else 
{ /* ./Llib/os.scm 524 */
BgL_arg1441z00_1005 = BGl_string2365z00zz__osz00; } 
{ /* ./Llib/os.scm 524 */
obj_t BgL_messagez00_1009;
BgL_messagez00_1009 = 
string_to_bstring(BgL_arg1416z00_560); 
FAILURE(BgL_arg1441z00_1005,BgL_messagez00_1009,BgL_flibz00_555);} } } break;case ((long)2) : 

{ /* ./Llib/os.scm 526 */
char * BgL_arg1421z00_562;
BgL_arg1421z00_562 = 
bgl_dload_error(); 
{ /* ./Llib/os.scm 526 */
obj_t BgL_arg1441z00_1014;
BgL_arg1441z00_1014 = 
string_append(BGl_string2364z00zz__osz00, BGl_string2366z00zz__osz00); 
{ /* ./Llib/os.scm 526 */
obj_t BgL_objectz00_1019;
BgL_objectz00_1019 = 
string_to_bstring(BgL_arg1421z00_562); 
FAILURE(BgL_arg1441z00_1014,BgL_initz00_554,BgL_objectz00_1019);} } } break;case ((long)3) : 

{ /* ./Llib/os.scm 528 */
obj_t BgL_arg1441z00_1023;
BgL_arg1441z00_1023 = BGl_string2365z00zz__osz00; 
FAILURE(BgL_arg1441z00_1023,BGl_string2367z00zz__osz00,BgL_flibz00_555);} break;
default: 
return BUNSPEC;} }  else 
{ /* ./Llib/os.scm 519 */
obj_t BgL_arg1441z00_1032;
BgL_arg1441z00_1032 = BGl_string2365z00zz__osz00; 
FAILURE(BgL_arg1441z00_1032,BGl_string2368z00zz__osz00,BgL_libz00_26);} } } 
}



/* _dynamic-load */
obj_t BGl__dynamiczd2loadzd2zz__osz00(obj_t BgL_envz00_1136, obj_t BgL_libz00_1137, obj_t BgL_initsz00_1138)
{ AN_OBJECT;
{ /* ./Llib/os.scm 502 */
return 
BGl_dynamiczd2loadzd2zz__osz00(BgL_libz00_1137, BgL_initsz00_1138);} 
}



/* unix-path->list */
BGL_EXPORTED_DEF obj_t BGl_unixzd2pathzd2ze3listze3zz__osz00(obj_t BgL_strz00_28)
{ AN_OBJECT;
{ /* ./Llib/os.scm 534 */
{ /* ./Llib/os.scm 535 */
int BgL_stopz00_573;
BgL_stopz00_573 = 
STRING_LENGTH(BgL_strz00_28); 
{ 
long BgL_markz00_574;long BgL_rz00_575;obj_t BgL_resz00_576;
BgL_markz00_574 = ((long)0); 
BgL_rz00_575 = ((long)0); 
BgL_resz00_576 = BNIL; 
BgL_loopz00_577:
{ /* ./Llib/os.scm 540 */
bool_t BgL_testz00_1708;
{ /* ./Llib/os.scm 540 */
long BgL_auxz00_1709;
BgL_auxz00_1709 = 
(long)(BgL_stopz00_573); 
BgL_testz00_1708 = 
(BgL_auxz00_1709==BgL_rz00_575); } 
if(BgL_testz00_1708)
{ /* ./Llib/os.scm 540 */
{ /* ./Llib/os.scm 541 */
obj_t BgL_resz00_579;
if(
(BgL_markz00_574<BgL_rz00_575))
{ /* ./Llib/os.scm 542 */
obj_t BgL_auxz00_1714;
{ /* ./Llib/os.scm 542 */
int BgL_auxz00_1717;int BgL_auxz00_1715;
BgL_auxz00_1717 = 
(int)(BgL_rz00_575); 
BgL_auxz00_1715 = 
(int)(BgL_markz00_574); 
BgL_auxz00_1714 = 
c_substring(BgL_strz00_28, BgL_auxz00_1715, BgL_auxz00_1717); } 
BgL_resz00_579 = 
MAKE_PAIR(BgL_auxz00_1714, BgL_resz00_576); }  else 
{ /* ./Llib/os.scm 541 */
BgL_resz00_579 = BgL_resz00_576; } 
return 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_resz00_579);} }  else 
{ /* ./Llib/os.scm 545 */
bool_t BgL_testz00_1722;
{ /* ./Llib/os.scm 545 */
unsigned char BgL_auxz00_1723;
{ /* ./Llib/os.scm 545 */
int BgL_auxz00_1724;
BgL_auxz00_1724 = 
(int)(BgL_rz00_575); 
BgL_auxz00_1723 = 
STRING_REF(BgL_strz00_28, BgL_auxz00_1724); } 
BgL_testz00_1722 = 
(BgL_auxz00_1723==((unsigned char)':')); } 
if(BgL_testz00_1722)
{ /* ./Llib/os.scm 545 */
if(
(BgL_markz00_574<BgL_rz00_575))
{ /* ./Llib/os.scm 547 */
long BgL_arg1458z00_584;long BgL_arg1459z00_585;obj_t BgL_arg1461z00_586;
BgL_arg1458z00_584 = 
(((long)1)+BgL_rz00_575); 
BgL_arg1459z00_585 = 
(((long)1)+BgL_rz00_575); 
{ /* ./Llib/os.scm 547 */
obj_t BgL_auxz00_1732;
{ /* ./Llib/os.scm 547 */
int BgL_auxz00_1735;int BgL_auxz00_1733;
BgL_auxz00_1735 = 
(int)(BgL_rz00_575); 
BgL_auxz00_1733 = 
(int)(BgL_markz00_574); 
BgL_auxz00_1732 = 
c_substring(BgL_strz00_28, BgL_auxz00_1733, BgL_auxz00_1735); } 
BgL_arg1461z00_586 = 
MAKE_PAIR(BgL_auxz00_1732, BgL_resz00_576); } 
{ 
obj_t BgL_resz00_1741;long BgL_rz00_1740;long BgL_markz00_1739;
BgL_markz00_1739 = BgL_arg1458z00_584; 
BgL_rz00_1740 = BgL_arg1459z00_585; 
BgL_resz00_1741 = BgL_arg1461z00_586; 
BgL_resz00_576 = BgL_resz00_1741; 
BgL_rz00_575 = BgL_rz00_1740; 
BgL_markz00_574 = BgL_markz00_1739; 
goto BgL_loopz00_577;} }  else 
{ 
long BgL_rz00_1744;long BgL_markz00_1742;
BgL_markz00_1742 = 
(((long)1)+BgL_rz00_575); 
BgL_rz00_1744 = 
(((long)1)+BgL_rz00_575); 
BgL_rz00_575 = BgL_rz00_1744; 
BgL_markz00_574 = BgL_markz00_1742; 
goto BgL_loopz00_577;} }  else 
{ /* ./Llib/os.scm 545 */
{ 
long BgL_rz00_1746;
BgL_rz00_1746 = 
(((long)1)+BgL_rz00_575); 
BgL_rz00_575 = BgL_rz00_1746; 
goto BgL_loopz00_577;} } } } } } } 
}



/* _unix-path->list2168 */
obj_t BGl__unixzd2pathzd2ze3list2168ze3zz__osz00(obj_t BgL_envz00_1139, obj_t BgL_strz00_1140)
{ AN_OBJECT;
{ /* ./Llib/os.scm 534 */
return 
BGl_unixzd2pathzd2ze3listze3zz__osz00(BgL_strz00_1140);} 
}



/* hostname */
BGL_EXPORTED_DEF char * BGl_hostnamez00zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 555 */
return 
bgl_gethostname();} 
}



/* _hostname */
obj_t BGl__hostnamez00zz__osz00(obj_t BgL_envz00_1141)
{ AN_OBJECT;
{ /* ./Llib/os.scm 555 */
{ /* ./Llib/os.scm 556 */
char * BgL_auxz00_1750;
BgL_auxz00_1750 = 
bgl_gethostname(); 
return 
string_to_bstring(BgL_auxz00_1750);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 18 */
return 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__os");} 
}

