/* <anonymous:1901> */
obj_t BGl_zc3anonymousza31901ze3z83zz__rgc_configz00(obj_t BgL_envz00_1603,
obj_t BgL_xz00_1604)
{
AN_OBJECT;
{ /* Rgc/rgcconfig.scm 115 */
{
obj_t BgL_xz00_807;
{ /* Rgc/rgcconfig.scm 116 */
bool_t BgL_auxz00_1730;
BgL_xz00_807 = BgL_xz00_1604;
if (BGl_2ze3ze3zz__r4_numbers_6_5z00(BgL_xz00_807, BINT(((long) 0))))
{ /* Rgc/rgcconfig.scm 116 */
if (BGl_2zc3zc3zz__r4_numbers_6_5z00(BgL_xz00_807,
BINT(((long) 256))))
{ /* Rgc/rgcconfig.scm 116 */
BgL_auxz00_1730 = CHARP(BgL_xz00_807);
}
else
{ /* Rgc/rgcconfig.scm 116 */
BgL_auxz00_1730 = ((bool_t) 0);
}
}
else
{ /* Rgc/rgcconfig.scm 116 */
BgL_auxz00_1730 = ((bool_t) 0);
}
return BBOOL(BgL_auxz00_1730);
}
}
}
}
/* _foreign-eq? */
obj_t BGl__foreignzd2eqzf3z21zz__foreignz00(obj_t BgL_envz00_660, obj_t BgL_o1z00_661, obj_t BgL_o2z00_662)
{ AN_OBJECT;
{ /* Llib/foreign.scm 95 */
{ /* Llib/foreign.scm 96 */
bool_t BgL_auxz00_712;
{ /* Llib/foreign.scm 96 */
obj_t BgL_auxz00_720;obj_t BgL_auxz00_713;
if(
FOREIGNP(BgL_o2z00_662))
{ /* Llib/foreign.scm 96 */
BgL_auxz00_720 = BgL_o2z00_662
; } else
{
obj_t BgL_auxz00_723;
BgL_auxz00_723 =
BGl_typezd2errorzd2zz__errorz00(BGl_string1394z00zz__foreignz00,
BINT(((long)4136)), BGl_string1395z00zz__foreignz00, BGl_string1396z00zz__foreignz00, BgL_o2z00_662);
FAILURE(BgL_auxz00_723,BFALSE,BFALSE);}
if(
FOREIGNP(BgL_o1z00_661))
{ /* Llib/foreign.scm 96 */
BgL_auxz00_713 = BgL_o1z00_661
; } else
{
obj_t BgL_auxz00_716;
BgL_auxz00_716 =
BGl_typezd2errorzd2zz__errorz00(BGl_string1394z00zz__foreignz00,
BINT(((long)4133)), BGl_string1395z00zz__foreignz00, BGl_string1396z00zz__foreignz00, BgL_o1z00_661);
FAILURE(BgL_auxz00_716,BFALSE,BFALSE);}
BgL_auxz00_712 =
FOREIGN_EQP(BgL_auxz00_713, BgL_auxz00_720); }
return
BBOOL(BgL_auxz00_712);} }
}
/* _process-pid */
obj_t BGl__processzd2pidzd2zz__processz00(obj_t BgL_envz00_1470,
obj_t BgL_procz00_1471)
{
AN_OBJECT;
{ /* Llib/process.scm 134 */
{ /* Llib/process.scm 135 */
int BgL_auxz00_1568;
{ /* Llib/process.scm 135 */
obj_t BgL_procz00_1532;
if (PROCESSP(BgL_procz00_1471))
{ /* Llib/process.scm 135 */
BgL_procz00_1532 = BgL_procz00_1471;
}
else
{
obj_t BgL_auxz00_1571;
BgL_auxz00_1571 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2202z00zz__processz00,
BINT(((long) 5703)), BGl_string2203z00zz__processz00,
BGl_string2204z00zz__processz00, BgL_procz00_1471);
FAILURE(BgL_auxz00_1571, BFALSE, BFALSE);
}
BgL_auxz00_1568 = PROCESS_PID(BgL_procz00_1532);
}
return BINT(BgL_auxz00_1568);
}
}
}
/* _tvector-length */
obj_t BGl__tvectorzd2lengthzd2zz__tvectorz00(obj_t BgL_envz00_1634,
obj_t BgL_objz00_1635)
{
AN_OBJECT;
{ /* Llib/tvector.scm 96 */
{ /* Llib/tvector.scm 97 */
int BgL_auxz00_1700;
{ /* Llib/tvector.scm 97 */
obj_t BgL_objz00_1679;
if (TVECTORP(BgL_objz00_1635))
{ /* Llib/tvector.scm 97 */
BgL_objz00_1679 = BgL_objz00_1635;
}
else
{
obj_t BgL_auxz00_1703;
BgL_auxz00_1703 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2198z00zz__tvectorz00,
BINT(((long) 3513)), BGl_string2199z00zz__tvectorz00,
BGl_string2200z00zz__tvectorz00, BgL_objz00_1635);
FAILURE(BgL_auxz00_1703, BFALSE, BFALSE);
}
BgL_auxz00_1700 = TVECTOR_LENGTH(BgL_objz00_1679);
}
return BINT(BgL_auxz00_1700);
}
}
}
static obj_t
passwd2list( struct passwd *pw ) {
if( !pw ) {
return BFALSE;
} else {
obj_t res;
/* the shell */
res = MAKE_PAIR( string_to_bstring( pw->pw_shell ), BNIL );
/* the home directory */
res = MAKE_PAIR( string_to_bstring( pw->pw_dir ), res );
/* the real name */
#if BGL_HAVE_GECOS
res = MAKE_PAIR( string_to_bstring( pw->pw_gecos ), res );
#endif
/* the group id */
res = MAKE_PAIR( BINT( pw->pw_gid ), res );
/* the user id */
res = MAKE_PAIR( BINT( pw->pw_uid ), res );
/* the password */
res = MAKE_PAIR( string_to_bstring( pw->pw_passwd ), res );
/* the name */
res = MAKE_PAIR( string_to_bstring( pw->pw_name ), res );
return res;
}
}
/* foreign-eq? */
BGL_EXPORTED_DEF bool_t BGl_foreignzd2eqzf3z21zz__foreignz00(obj_t BgL_o1z00_2, obj_t BgL_o2z00_3)
{ AN_OBJECT;
{ /* Llib/foreign.scm 95 */
{ /* Llib/foreign.scm 96 */
obj_t BgL_auxz00_704;obj_t BgL_auxz00_697;
if(
FOREIGNP(BgL_o2z00_3))
{ /* Llib/foreign.scm 96 */
BgL_auxz00_704 = BgL_o2z00_3
; } else
{
obj_t BgL_auxz00_707;
BgL_auxz00_707 =
BGl_typezd2errorzd2zz__errorz00(BGl_string1394z00zz__foreignz00,
BINT(((long)4136)), BGl_string1395z00zz__foreignz00, BGl_string1396z00zz__foreignz00, BgL_o2z00_3);
FAILURE(BgL_auxz00_707,BFALSE,BFALSE);}
if(
FOREIGNP(BgL_o1z00_2))
{ /* Llib/foreign.scm 96 */
BgL_auxz00_697 = BgL_o1z00_2
; } else
{
obj_t BgL_auxz00_700;
BgL_auxz00_700 =
BGl_typezd2errorzd2zz__errorz00(BGl_string1394z00zz__foreignz00,
BINT(((long)4133)), BGl_string1395z00zz__foreignz00, BGl_string1396z00zz__foreignz00, BgL_o1z00_2);
FAILURE(BgL_auxz00_700,BFALSE,BFALSE);}
return
FOREIGN_EQP(BgL_auxz00_697, BgL_auxz00_704);} }
}
/* reset-stat! */
obj_t BGl_resetzd2statz12zc0zzinline_walkz00()
{
AN_OBJECT;
{ /* Inline/walk.scm 78 */
BGl_za2inlinedzd2callsza2zd2zzinline_walkz00 = BINT(((long) 0));
return (BGl_za2nonzd2inlinedzd2callsza2z00zzinline_walkz00 =
BINT(((long) 0)), BUNSPEC);
}
}
/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzinline_walkz00()
{
AN_OBJECT;
{ /* Inline/walk.scm 15 */
BGl_za2inlinezd2modeza2zd2zzinline_walkz00 = CNST_TABLE_REF(((long) 0));
BGl_za2inlinedzd2callsza2zd2zzinline_walkz00 = BINT(((long) 0));
BGl_za2nonzd2inlinedzd2callsza2z00zzinline_walkz00 = BINT(((long) 0));
return (BGl_za2kfactorza2z00zzinline_walkz00 = BINT(((long) 1)), BUNSPEC);
}
}
/* _list->tvector */
obj_t BGl__listzd2ze3tvectorz31zz__tvectorz00(obj_t BgL_envz00_1647,
obj_t BgL_idz00_1648, obj_t BgL_lz00_1649)
{
AN_OBJECT;
{ /* Llib/tvector.scm 163 */
{ /* Llib/tvector.scm 164 */
obj_t BgL_auxz00_1838;
obj_t BgL_auxz00_1831;
{ /* Llib/tvector.scm 164 */
bool_t BgL_testz00_1839;
if (PAIRP(BgL_lz00_1649))
{ /* Llib/tvector.scm 164 */
BgL_testz00_1839 = ((bool_t) 1);
}
else
{ /* Llib/tvector.scm 164 */
BgL_testz00_1839 = NULLP(BgL_lz00_1649);
}
if (BgL_testz00_1839)
{ /* Llib/tvector.scm 164 */
BgL_auxz00_1838 = BgL_lz00_1649;
}
else
{
obj_t BgL_auxz00_1843;
BgL_auxz00_1843 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2198z00zz__tvectorz00,
BINT(((long) 6767)), BGl_string2217z00zz__tvectorz00,
BGl_string2218z00zz__tvectorz00, BgL_lz00_1649);
FAILURE(BgL_auxz00_1843, BFALSE, BFALSE);
}}
if (SYMBOLP(BgL_idz00_1648))
{ /* Llib/tvector.scm 164 */
BgL_auxz00_1831 = BgL_idz00_1648;
}
else
{
obj_t BgL_auxz00_1834;
BgL_auxz00_1834 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2198z00zz__tvectorz00,
BINT(((long) 6767)), BGl_string2217z00zz__tvectorz00,
BGl_string2203z00zz__tvectorz00, BgL_idz00_1648);
FAILURE(BgL_auxz00_1834, BFALSE, BFALSE);
}
return
BGl_listzd2ze3tvectorz31zz__tvectorz00(BgL_auxz00_1831,
BgL_auxz00_1838);
}
}
}
/* global-arity */
BGL_EXPORTED_DEF long BGl_globalzd2arityzd2zztools_argsz00(obj_t
BgL_argsz00_1)
{
AN_OBJECT;
{ /* Tools/args.scm 37 */
{
long BgL_iz00_103;
obj_t BgL_az00_104;
{ /* Tools/args.scm 38 */
obj_t BgL_auxz00_352;
BgL_iz00_103 = ((long) 0);
BgL_az00_104 = BgL_argsz00_1;
BgL_zc3anonymousza31509ze3z83_105:
if (NULLP(BgL_az00_104))
{ /* Tools/args.scm 41 */
BgL_auxz00_352 = BINT(BgL_iz00_103);
}
else
{ /* Tools/args.scm 41 */
if (PAIRP(BgL_az00_104))
{ /* Tools/args.scm 43 */
if (BGl_dssslzd2namedzd2constantzf3zf3zz__dssslz00(CAR
(BgL_az00_104)))
{ /* Tools/args.scm 44 */
BgL_auxz00_352 =
BGl_dssslzd2arityzd2zztools_dssslz00(BgL_argsz00_1,
((bool_t) 1));
}
else
{
obj_t BgL_az00_364;
long BgL_iz00_362;
BgL_iz00_362 = (BgL_iz00_103 + ((long) 1));
BgL_az00_364 = CDR(BgL_az00_104);
BgL_az00_104 = BgL_az00_364;
BgL_iz00_103 = BgL_iz00_362;
goto BgL_zc3anonymousza31509ze3z83_105;
}
}
else
{ /* Tools/args.scm 43 */
BgL_auxz00_352 = BINT(NEG((BgL_iz00_103 + ((long) 1))));
}}
return (long) CINT(BgL_auxz00_352);
}}}
}
/* foreign-arity */
BGL_EXPORTED_DEF long BGl_foreignzd2arityzd2zztools_argsz00(obj_t
BgL_argsz00_3)
{
AN_OBJECT;
{ /* Tools/args.scm 81 */
{
long BgL_iz00_127;
obj_t BgL_az00_128;
{ /* Tools/args.scm 82 */
obj_t BgL_auxz00_392;
BgL_iz00_127 = ((long) 0);
BgL_az00_128 = BgL_argsz00_3;
BgL_zc3anonymousza31525ze3z83_129:
if (NULLP(BgL_az00_128))
{ /* Tools/args.scm 85 */
BgL_auxz00_392 = BINT(BgL_iz00_127);
}
else
{ /* Tools/args.scm 85 */
if (PAIRP(BgL_az00_128))
{ /* Tools/args.scm 87 */
if (BGl_dssslzd2namedzd2constantzf3zf3zz__dssslz00(CAR
(BgL_az00_128)))
{ /* Tools/args.scm 88 */
BgL_auxz00_392 =
BGl_errorz00zz__errorz00(CNST_TABLE_REF(((long) 0)),
BGl_string1580z00zztools_argsz00, BgL_argsz00_3);
}
else
{
obj_t BgL_az00_405;
long BgL_iz00_403;
BgL_iz00_403 = (BgL_iz00_127 + ((long) 1));
BgL_az00_405 = CDR(BgL_az00_128);
BgL_az00_128 = BgL_az00_405;
BgL_iz00_127 = BgL_iz00_403;
goto BgL_zc3anonymousza31525ze3z83_129;
}
}
else
{ /* Tools/args.scm 87 */
BgL_auxz00_392 = BINT(NEG((BgL_iz00_127 + ((long) 1))));
}}
return (long) CINT(BgL_auxz00_392);
}}}
}
/* _call-with-values */
obj_t BGl__callzd2withzd2valuesz00zz__r5_control_features_6_4z00(obj_t
BgL_envz00_913, obj_t BgL_producerz00_914, obj_t BgL_consumerz00_915)
{
AN_OBJECT;
{ /* Ieee/control5.scm 117 */
{ /* Ieee/control5.scm 278 */
obj_t BgL_auxz00_1420;
obj_t BgL_auxz00_1413;
if (PROCEDUREP(BgL_consumerz00_915))
{ /* Ieee/control5.scm 278 */
BgL_auxz00_1420 = BgL_consumerz00_915;
}
else
{
obj_t BgL_auxz00_1423;
BgL_auxz00_1423 =
BGl_typezd2errorzd2zz__errorz00
(BGl_string1520z00zz__r5_control_features_6_4z00,
BINT(((long) 8393)),
BGl_string1525z00zz__r5_control_features_6_4z00,
BGl_string1526z00zz__r5_control_features_6_4z00,
BgL_consumerz00_915);
FAILURE(BgL_auxz00_1423, BFALSE, BFALSE);
}
if (PROCEDUREP(BgL_producerz00_914))
{ /* Ieee/control5.scm 278 */
BgL_auxz00_1413 = BgL_producerz00_914;
}
else
{
obj_t BgL_auxz00_1416;
BgL_auxz00_1416 =
BGl_typezd2errorzd2zz__errorz00
(BGl_string1520z00zz__r5_control_features_6_4z00,
BINT(((long) 8393)),
BGl_string1525z00zz__r5_control_features_6_4z00,
BGl_string1526z00zz__r5_control_features_6_4z00,
BgL_producerz00_914);
FAILURE(BgL_auxz00_1416, BFALSE, BFALSE);
}
return
BGl_callzd2withzd2valuesz00zz__r5_control_features_6_4z00
(BgL_auxz00_1413, BgL_auxz00_1420);
}
}
}
/* local-arity */
BGL_EXPORTED_DEF long BGl_localzd2arityzd2zztools_argsz00(obj_t BgL_argsz00_2)
{
AN_OBJECT;
{ /* Tools/args.scm 59 */
{
long BgL_iz00_115;
obj_t BgL_az00_116;
{ /* Tools/args.scm 60 */
obj_t BgL_auxz00_372;
BgL_iz00_115 = ((long) 0);
BgL_az00_116 = BgL_argsz00_2;
BgL_zc3anonymousza31517ze3z83_117:
if (NULLP(BgL_az00_116))
{ /* Tools/args.scm 63 */
BgL_auxz00_372 = BINT(BgL_iz00_115);
}
else
{ /* Tools/args.scm 63 */
if (PAIRP(BgL_az00_116))
{ /* Tools/args.scm 65 */
if (BGl_dssslzd2namedzd2constantzf3zf3zz__dssslz00(CAR
(BgL_az00_116)))
{ /* Tools/args.scm 66 */
BgL_auxz00_372 =
BGl_dssslzd2arityzd2zztools_dssslz00(BgL_argsz00_2,
((bool_t) 0));
}
else
{
obj_t BgL_az00_384;
long BgL_iz00_382;
BgL_iz00_382 = (BgL_iz00_115 + ((long) 1));
BgL_az00_384 = CDR(BgL_az00_116);
BgL_az00_116 = BgL_az00_384;
BgL_iz00_115 = BgL_iz00_382;
goto BgL_zc3anonymousza31517ze3z83_117;
}
}
else
{ /* Tools/args.scm 65 */
BgL_auxz00_372 = BINT(NEG((BgL_iz00_115 + ((long) 1))));
}}
return (long) CINT(BgL_auxz00_372);
}}}
}
/* _declare-tvector! */
obj_t BGl__declarezd2tvectorz12zc0zz__tvectorz00(obj_t BgL_envz00_1640,
obj_t BgL_idz00_1641, obj_t BgL_allocatez00_1642, obj_t BgL_refz00_1643,
obj_t BgL_setz00_1644)
{
AN_OBJECT;
{ /* Llib/tvector.scm 139 */
{ /* Llib/tvector.scm 140 */
obj_t BgL_auxz00_1782;
char *BgL_auxz00_1773;
if (PROCEDUREP(BgL_allocatez00_1642))
{ /* Llib/tvector.scm 140 */
BgL_auxz00_1782 = BgL_allocatez00_1642;
}
else
{
obj_t BgL_auxz00_1785;
BgL_auxz00_1785 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2198z00zz__tvectorz00,
BINT(((long) 5745)), BGl_string2210z00zz__tvectorz00,
BGl_string2212z00zz__tvectorz00, BgL_allocatez00_1642);
FAILURE(BgL_auxz00_1785, BFALSE, BFALSE);
}
{ /* Llib/tvector.scm 140 */
obj_t BgL_auxz00_1774;
if (STRINGP(BgL_idz00_1641))
{ /* Llib/tvector.scm 140 */
BgL_auxz00_1774 = BgL_idz00_1641;
}
else
{
obj_t BgL_auxz00_1777;
BgL_auxz00_1777 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2198z00zz__tvectorz00,
BINT(((long) 5745)), BGl_string2210z00zz__tvectorz00,
BGl_string2211z00zz__tvectorz00, BgL_idz00_1641);
FAILURE(BgL_auxz00_1777, BFALSE, BFALSE);
}
BgL_auxz00_1773 = BSTRING_TO_STRING(BgL_auxz00_1774);
}
return
BGl_declarezd2tvectorz12zc0zz__tvectorz00(BgL_auxz00_1773,
BgL_auxz00_1782, BgL_refz00_1643, BgL_setz00_1644);
}
}
}
/* inline-setup! */
BGL_EXPORTED_DEF obj_t BGl_inlinezd2setupz12zc0zzinline_walkz00(obj_t
BgL_whatz00_3)
{
AN_OBJECT;
{ /* Inline/walk.scm 93 */
if ((BgL_whatz00_3 == CNST_TABLE_REF(((long) 0))))
{ /* Inline/walk.scm 95 */
BGl_za2inlinezd2modeza2zd2zzinline_walkz00 =
CNST_TABLE_REF(((long) 0));
{ /* Inline/walk.scm 98 */
obj_t BgL_yz00_869;
BgL_yz00_869 =
PROCEDURE_ENTRY(BGl_za2inliningzd2kfactorza2zd2zzengine_paramz00)
(BGl_za2inliningzd2kfactorza2zd2zzengine_paramz00,
BGl_za2optimza2z00zzengine_paramz00, BEOA);
return (BGl_za2kfactorza2z00zzinline_walkz00 =
BGl_2maxz00zz__r4_numbers_6_5z00(BINT(((long) 1)), BgL_yz00_869),
BUNSPEC);
}}
else
{ /* Inline/walk.scm 95 */
if ((BgL_whatz00_3 == CNST_TABLE_REF(((long) 6))))
{ /* Inline/walk.scm 95 */
BGl_za2inlinezd2modeza2zd2zzinline_walkz00 =
CNST_TABLE_REF(((long) 6));
return (BGl_za2kfactorza2z00zzinline_walkz00 =
BINT(((long) 1)), BUNSPEC);
}
else
{ /* Inline/walk.scm 95 */
if ((BgL_whatz00_3 == CNST_TABLE_REF(((long) 7))))
{ /* Inline/walk.scm 95 */
BGl_za2inlinezd2modeza2zd2zzinline_walkz00 =
CNST_TABLE_REF(((long) 7));
return (BGl_za2kfactorza2z00zzinline_walkz00 =
BINT(((long) 1)), BUNSPEC);
}
else
{ /* Inline/walk.scm 95 */
return
BGl_internalzd2errorzd2zztools_errorz00
(BGl_string3404z00zzinline_walkz00,
BGl_string3405z00zzinline_walkz00, BgL_whatz00_3);
}
}
}
}
}
/*---------------------------------------------------------------------*/
BGL_RUNTIME_DEF int
bgl_setgid( gid_t gid ) {
#if BGL_HAVE_GETGID
if( !setgid( gid ) ) {
return gid;
} else {
C_SYSTEM_FAILURE( BGL_ERROR, "setgid", strerror( errno ), BINT( gid ) );
return gid;
}
#else
C_SYSTEM_FAILURE( BGL_ERROR, "setgid",
"operation not supported", BINT( gid ) );
return gid;
#endif
}
/* _%set-mvalues-val! */
obj_t BGl__z52setzd2mvalueszd2valz12z40zz__r5_control_features_6_4z00(obj_t
BgL_envz00_908, obj_t BgL_nz00_909, obj_t BgL_oz00_910)
{
AN_OBJECT;
{ /* Ieee/control5.scm 84 */
{ /* Ieee/control5.scm 85 */
int BgL_nz00_928;
{ /* Ieee/control5.scm 85 */
obj_t BgL_auxz00_962;
if (INTEGERP(BgL_nz00_909))
{ /* Ieee/control5.scm 85 */
BgL_auxz00_962 = BgL_nz00_909;
}
else
{
obj_t BgL_auxz00_965;
BgL_auxz00_965 =
BGl_typezd2errorzd2zz__errorz00
(BGl_string1520z00zz__r5_control_features_6_4z00,
BINT(((long) 3343)),
BGl_string1524z00zz__r5_control_features_6_4z00,
BGl_string1522z00zz__r5_control_features_6_4z00, BgL_nz00_909);
FAILURE(BgL_auxz00_965, BFALSE, BFALSE);
}
BgL_nz00_928 = CINT(BgL_auxz00_962);
}
return BGL_MVALUES_VAL_SET(BgL_nz00_928, BgL_oz00_910);
}
}
}
/* +-arity */
BGL_EXPORTED_DEF obj_t BGl_zb2zd2arityz60zztools_argsz00(obj_t
BgL_arityz00_15, obj_t BgL_addz00_16)
{
AN_OBJECT;
{ /* Tools/args.scm 176 */
if (((long) CINT(BgL_arityz00_15) >= ((long) 0)))
{ /* Tools/args.scm 177 */
return
BINT(((long) CINT(BgL_addz00_16) + (long) CINT(BgL_arityz00_15)));
}
else
{ /* Tools/args.scm 177 */
return
BINT(((long) CINT(BgL_arityz00_15) - (long) CINT(BgL_addz00_16)));
}}
}
/* kill-my-self */
obj_t BGl_killzd2myzd2selfz00zzengine_signalsz00(obj_t BgL_envz00_100,
obj_t BgL_nz00_101)
{
AN_OBJECT;
{ /* Engine/signals.scm 25 */
{
obj_t BgL_nz00_87;
BgL_nz00_87 = BgL_nz00_101;
{ /* Engine/signals.scm 26 */
obj_t BgL_port1508z00_89;
{ /* Engine/signals.scm 26 */
obj_t BgL_res1510z00_92;
{ /* Engine/signals.scm 26 */
obj_t BgL_auxz00_117;
BgL_auxz00_117 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res1510z00_92 = BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_117);
}
BgL_port1508z00_89 = BgL_res1510z00_92;
}
bgl_display_string(BGl_string1512z00zzengine_signalsz00,
BgL_port1508z00_89);
bgl_display_string(BGl_string1513z00zzengine_signalsz00,
BgL_port1508z00_89);
bgl_display_obj(BgL_nz00_87, BgL_port1508z00_89);
bgl_display_char(((unsigned char) '\n'), BgL_port1508z00_89);
}
return BGl_compilerzd2exitzd2zzinit_mainz00(BINT(((long) 2)));
}}
}
/* make-va-proto */
obj_t BGl_makezd2vazd2protoz00zztools_argsz00(obj_t BgL_nz00_184,
long BgL_countz00_185)
{
AN_OBJECT;
{ /* Tools/args.scm 162 */
if (((long) CINT(BgL_nz00_184) == ((long) -1)))
{ /* Tools/args.scm 159 */
return BGl_makezd2argszd2namez00zztools_argsz00(BgL_countz00_185);
}
else
{ /* Tools/args.scm 161 */
obj_t BgL_arg1567z00_188;
obj_t BgL_arg1568z00_189;
BgL_arg1567z00_188 =
BGl_makezd2argszd2namez00zztools_argsz00(BgL_countz00_185);
{ /* Tools/args.scm 162 */
long BgL_arg1570z00_190;
long BgL_arg1571z00_191;
BgL_arg1570z00_190 = ((long) CINT(BgL_nz00_184) + ((long) 1));
BgL_arg1571z00_191 = (BgL_countz00_185 + ((long) 1));
BgL_arg1568z00_189 =
BGl_makezd2vazd2protoz00zztools_argsz00(BINT(BgL_arg1570z00_190),
BgL_arg1571z00_191);
}
return MAKE_PAIR(BgL_arg1567z00_188, BgL_arg1568z00_189);
}
}
}
/* make-fx-proto */
obj_t BGl_makezd2fxzd2protoz00zztools_argsz00(obj_t BgL_nz00_192,
long BgL_countz00_193)
{
AN_OBJECT;
{ /* Tools/args.scm 167 */
if (((long) CINT(BgL_nz00_192) == ((long) 0)))
{ /* Tools/args.scm 164 */
return BNIL;
}
else
{ /* Tools/args.scm 166 */
obj_t BgL_arg1574z00_196;
obj_t BgL_arg1575z00_197;
BgL_arg1574z00_196 =
BGl_makezd2argszd2namez00zztools_argsz00(BgL_countz00_193);
{ /* Tools/args.scm 167 */
long BgL_arg1576z00_198;
long BgL_arg1577z00_199;
BgL_arg1576z00_198 = ((long) CINT(BgL_nz00_192) - ((long) 1));
BgL_arg1577z00_199 = (BgL_countz00_193 + ((long) 1));
BgL_arg1575z00_197 =
BGl_makezd2fxzd2protoz00zztools_argsz00(BINT(BgL_arg1576z00_198),
BgL_arg1577z00_199);
}
return MAKE_PAIR(BgL_arg1574z00_196, BgL_arg1575z00_197);
}
}
}
/* _process-alive? */
obj_t BGl__processzd2alivezf3z21zz__processz00(obj_t BgL_envz00_1478,
obj_t BgL_procz00_1479)
{
AN_OBJECT;
{ /* Llib/process.scm 158 */
{ /* Llib/process.scm 159 */
bool_t BgL_auxz00_1602;
{ /* Llib/process.scm 159 */
obj_t BgL_procz00_1536;
if (PROCESSP(BgL_procz00_1479))
{ /* Llib/process.scm 159 */
BgL_procz00_1536 = BgL_procz00_1479;
}
else
{
obj_t BgL_auxz00_1605;
BgL_auxz00_1605 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2202z00zz__processz00,
BINT(((long) 6878)), BGl_string2208z00zz__processz00,
BGl_string2204z00zz__processz00, BgL_procz00_1479);
FAILURE(BgL_auxz00_1605, BFALSE, BFALSE);
}
BgL_auxz00_1602 = c_process_alivep(BgL_procz00_1536);
}
return BBOOL(BgL_auxz00_1602);
}
}
}
/* loop' */
obj_t BGl_loopz72z72zztools_argsz00(obj_t BgL_listz00_148,
obj_t BgL_arityz00_149)
{
AN_OBJECT;
{ /* Tools/args.scm 126 */
if (((long) CINT(BgL_arityz00_149) == ((long) -1)))
{ /* Tools/args.scm 128 */
return CAR(BgL_listz00_148);
}
else
{ /* Tools/args.scm 130 */
obj_t BgL_arg1543z00_152;
obj_t BgL_arg1544z00_153;
BgL_arg1543z00_152 = CAR(BgL_listz00_148);
{ /* Tools/args.scm 130 */
obj_t BgL_arg1545z00_154;
long BgL_arg1546z00_155;
BgL_arg1545z00_154 = CDR(BgL_listz00_148);
BgL_arg1546z00_155 = ((long) CINT(BgL_arityz00_149) + ((long) 1));
BgL_arg1544z00_153 =
BGl_loopz72z72zztools_argsz00(BgL_arg1545z00_154,
BINT(BgL_arg1546z00_155));
}
return MAKE_PAIR(BgL_arg1543z00_152, BgL_arg1544z00_153);
}
}
}
/* _process-exit-status */
obj_t BGl__processzd2exitzd2statusz00zz__processz00(obj_t BgL_envz00_1482,
obj_t BgL_procz00_1483)
{
AN_OBJECT;
{ /* Llib/process.scm 171 */
{ /* Llib/process.scm 172 */
obj_t BgL_procz00_1538;
if (PROCESSP(BgL_procz00_1483))
{ /* Llib/process.scm 172 */
BgL_procz00_1538 = BgL_procz00_1483;
}
else
{
obj_t BgL_auxz00_1630;
BgL_auxz00_1630 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2202z00zz__processz00,
BINT(((long) 7489)), BGl_string2210z00zz__processz00,
BGl_string2204z00zz__processz00, BgL_procz00_1483);
FAILURE(BgL_auxz00_1630, BFALSE, BFALSE);
}
return c_process_xstatus(BgL_procz00_1538);
}
}
}
/* _process-kill */
obj_t BGl__processzd2killzd2zz__processz00(obj_t BgL_envz00_1487,
obj_t BgL_procz00_1488)
{
AN_OBJECT;
{ /* Llib/process.scm 183 */
{ /* Llib/process.scm 185 */
obj_t BgL_procz00_1541;
if (PROCESSP(BgL_procz00_1488))
{ /* Llib/process.scm 185 */
BgL_procz00_1541 = BgL_procz00_1488;
}
else
{
obj_t BgL_auxz00_1655;
BgL_auxz00_1655 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2202z00zz__processz00,
BINT(((long) 8142)), BGl_string2213z00zz__processz00,
BGl_string2204z00zz__processz00, BgL_procz00_1488);
FAILURE(BgL_auxz00_1655, BFALSE, BFALSE);
}
c_process_kill(BgL_procz00_1541);
return BGl_closezd2processzd2portsz00zz__processz00(BgL_procz00_1541);
}
}
}
/* _process-stop */
obj_t BGl__processzd2stopzd2zz__processz00(obj_t BgL_envz00_1489,
obj_t BgL_procz00_1490)
{
AN_OBJECT;
{ /* Llib/process.scm 190 */
{ /* Llib/process.scm 191 */
obj_t BgL_procz00_1542;
if (PROCESSP(BgL_procz00_1490))
{ /* Llib/process.scm 191 */
BgL_procz00_1542 = BgL_procz00_1490;
}
else
{
obj_t BgL_auxz00_1664;
BgL_auxz00_1664 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2202z00zz__processz00,
BINT(((long) 8406)), BGl_string2214z00zz__processz00,
BGl_string2204z00zz__processz00, BgL_procz00_1490);
FAILURE(BgL_auxz00_1664, BFALSE, BFALSE);
}
return c_process_stop(BgL_procz00_1542);
}
}
}
/* _process-continue */
obj_t BGl__processzd2continuezd2zz__processz00(obj_t BgL_envz00_1491,
obj_t BgL_procz00_1492)
{
AN_OBJECT;
{ /* Llib/process.scm 196 */
{ /* Llib/process.scm 197 */
obj_t BgL_procz00_1543;
if (PROCESSP(BgL_procz00_1492))
{ /* Llib/process.scm 197 */
BgL_procz00_1543 = BgL_procz00_1492;
}
else
{
obj_t BgL_auxz00_1672;
BgL_auxz00_1672 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2202z00zz__processz00,
BINT(((long) 8694)), BGl_string2215z00zz__processz00,
BGl_string2204z00zz__processz00, BgL_procz00_1492);
FAILURE(BgL_auxz00_1672, BFALSE, BFALSE);
}
return c_process_continue(BgL_procz00_1543);
}
}
}
/* _%get-mvalues-val */
obj_t BGl__z52getzd2mvalueszd2valz52zz__r5_control_features_6_4z00(obj_t
BgL_envz00_906, obj_t BgL_nz00_907)
{
AN_OBJECT;
{ /* Ieee/control5.scm 78 */
{ /* Ieee/control5.scm 79 */
int BgL_nz00_927;
{ /* Ieee/control5.scm 79 */
obj_t BgL_auxz00_952;
if (INTEGERP(BgL_nz00_907))
{ /* Ieee/control5.scm 79 */
BgL_auxz00_952 = BgL_nz00_907;
}
else
{
obj_t BgL_auxz00_955;
BgL_auxz00_955 =
BGl_typezd2errorzd2zz__errorz00
(BGl_string1520z00zz__r5_control_features_6_4z00,
BINT(((long) 3056)),
BGl_string1523z00zz__r5_control_features_6_4z00,
BGl_string1522z00zz__r5_control_features_6_4z00, BgL_nz00_907);
FAILURE(BgL_auxz00_955, BFALSE, BFALSE);
}
BgL_nz00_927 = CINT(BgL_auxz00_952);
}
return BGL_MVALUES_VAL(BgL_nz00_927);
}
}
}
/* _string-ptr-null? */
obj_t BGl__stringzd2ptrzd2nullzf3zf3zz__foreignz00(obj_t BgL_envz00_665, obj_t BgL_objz00_666)
{ AN_OBJECT;
{ /* Llib/foreign.scm 109 */
{ /* Llib/foreign.scm 110 */
bool_t BgL_auxz00_742;
{ /* Llib/foreign.scm 110 */
char * BgL_objz00_685;
{ /* Llib/foreign.scm 110 */
obj_t BgL_auxz00_743;
if(
STRINGP(BgL_objz00_666))
{ /* Llib/foreign.scm 110 */
BgL_auxz00_743 = BgL_objz00_666
; } else
{
obj_t BgL_auxz00_746;
BgL_auxz00_746 =
BGl_typezd2errorzd2zz__errorz00(BGl_string1394z00zz__foreignz00,
BINT(((long)4782)), BGl_string1399z00zz__foreignz00, BGl_string1400z00zz__foreignz00, BgL_objz00_666);
FAILURE(BgL_auxz00_746,BFALSE,BFALSE);}
BgL_objz00_685 =
BSTRING_TO_STRING(BgL_auxz00_743); }
BgL_auxz00_742 =
STRING_PTR_NULL(BgL_objz00_685); }
return
BBOOL(BgL_auxz00_742);} }
}
/* inner-read-access-file */
obj_t BGl_innerzd2readzd2accesszd2filezd2zzread_accessz00(obj_t
BgL_namez00_98)
{
AN_OBJECT;
{ /* Read/access.scm 28 */
{ /* Read/access.scm 28 */
obj_t BgL_list1518z00_100;
{ /* Read/access.scm 28 */
obj_t BgL_arg1520z00_102;
{ /* Read/access.scm 28 */
obj_t BgL_arg1521z00_103;
{ /* Read/access.scm 28 */
obj_t BgL_arg1523z00_105;
BgL_arg1523z00_105 =
MAKE_PAIR(BCHAR(((unsigned char) '\n')), BNIL);
BgL_arg1521z00_103 =
MAKE_PAIR(BGl_string1526z00zzread_accessz00,
BgL_arg1523z00_105);
}
BgL_arg1520z00_102 = MAKE_PAIR(BgL_namez00_98, BgL_arg1521z00_103);
}
BgL_list1518z00_100 =
MAKE_PAIR(BGl_string1527z00zzread_accessz00, BgL_arg1520z00_102);
}
BGl_verbosez00zztools_speekz00(BINT(((long) 2)), BgL_list1518z00_100);
}
return BGl_modulezd2loadzd2accesszd2filezd2zz__modulez00(BgL_namez00_98);
}
}
