自学教程：C++ BINT函数代码示例

/* <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_tpasswd2list( 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 intbgl_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);		}	}