本文整理汇总了C++中BINT函数的典型用法代码示例。如果您正苦于以下问题:C++ BINT函数的具体用法?C++ BINT怎么用?C++ BINT使用的例子?那么恭喜您, 这里精选的函数代码示例或许可以为您提供帮助。
在下文中一共展示了BINT函数的20个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于我们的系统推荐出更棒的C++代码示例。
示例1: BGl_zc3anonymousza31901ze3z83zz__rgc_configz00
/* <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);
}
}
}
}
开发者ID:mbrock,项目名称:bigloo-llvm,代码行数:34,代码来源:rgcconfig.c
示例2: BGl__foreignzd2eqzf3z21zz__foreignz00
/* _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);} }
}
开发者ID:mbrock,项目名称:bigloo-llvm,代码行数:35,代码来源:foreign.c
示例3: BGl__processzd2pidzd2zz__processz00
/* _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);
}
}
}
开发者ID:mbrock,项目名称:bigloo-llvm,代码行数:32,代码来源:process.c
示例4: BGl__tvectorzd2lengthzd2zz__tvectorz00
/* _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);
}
}
}
开发者ID:mbrock,项目名称:bigloo-llvm,代码行数:32,代码来源:tvector.c
示例5: passwd2list
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;
}
}
开发者ID:donaldsonjw,项目名称:bigloo,代码行数:27,代码来源:csystem.c
示例6: BGl_foreignzd2eqzf3z21zz__foreignz00
/* 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);} }
}
开发者ID:mbrock,项目名称:bigloo-llvm,代码行数:31,代码来源:foreign.c
示例7: BGl_resetzd2statz12zc0zzinline_walkz00
/* 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);
}
}
开发者ID:8l,项目名称:bigloo-llvm,代码行数:10,代码来源:walk.c
示例8: BGl_toplevelzd2initzd2zzinline_walkz00
/* 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);
}
}
开发者ID:8l,项目名称:bigloo-llvm,代码行数:11,代码来源:walk.c
示例9: BGl__listzd2ze3tvectorz31zz__tvectorz00
/* _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);
}
}
}
开发者ID:mbrock,项目名称:bigloo-llvm,代码行数:56,代码来源:tvector.c
示例10: BGl_globalzd2arityzd2zztools_argsz00
/* 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);
}}}
}
开发者ID:mbrock,项目名称:bigloo-llvm,代码行数:52,代码来源:args.c
示例11: BGl_foreignzd2arityzd2zztools_argsz00
/* 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);
}}}
}
开发者ID:mbrock,项目名称:bigloo-llvm,代码行数:52,代码来源:args.c
示例12: BGl__callzd2withzd2valuesz00zz__r5_control_features_6_4z00
/* _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);
}
}
}
开发者ID:mbrock,项目名称:bigloo-llvm,代码行数:51,代码来源:control5.c
示例13: BGl_localzd2arityzd2zztools_argsz00
/* 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);
}}}
}
开发者ID:mbrock,项目名称:bigloo-llvm,代码行数:51,代码来源:args.c
示例14: BGl__declarezd2tvectorz12zc0zz__tvectorz00
/* _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);
}
}
}
开发者ID:mbrock,项目名称:bigloo-llvm,代码行数:51,代码来源:tvector.c
示例15: BGl_inlinezd2setupz12zc0zzinline_walkz00
/* 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);
}
}
}
}
}
开发者ID:8l,项目名称:bigloo-llvm,代码行数:50,代码来源:walk.c
示例16: bgl_setgid
/*---------------------------------------------------------------------*/
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
}
开发者ID:donaldsonjw,项目名称:bigloo,代码行数:16,代码来源:csystem.c
示例17: BGl__z52setzd2mvalueszd2valz12z40zz__r5_control_features_6_4z00
/* _%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);
}
}
}
开发者ID:mbrock,项目名称:bigloo-llvm,代码行数:34,代码来源:control5.c
示例18: BGl_zb2zd2arityz60zztools_argsz00
/* +-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)));
}}
}
开发者ID:mbrock,项目名称:bigloo-llvm,代码行数:17,代码来源:args.c
示例19: BGl_killzd2myzd2selfz00zzengine_signalsz00
/* 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)));
}}
}
开发者ID:8l,项目名称:bigloo-llvm,代码行数:34,代码来源:signals.c
示例20: BGl_makezd2vazd2protoz00zztools_argsz00
/* 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);
}
}
}
开发者ID:mbrock,项目名称:bigloo-llvm,代码行数:33,代码来源:args.c
注:本文中的BINT函数示例整理自Github/MSDocs等源码及文档管理平台,相关代码片段筛选自各路编程大神贡献的开源项目,源码版权归原作者所有,传播和使用请参考对应项目的License;未经允许,请勿转载。 |
请发表评论