火山PC中逻辑型和整数强制转换的代码

揰掵佲

在火山中 逻辑型和整数型强转是不支持的,所以写了嵌入方法来解决这个问题

先看效果

看看输出的C++代码

INT rg_n1::rg_n2 ()
{
    _sOnClassesStaticInit ();
    BOOL rg_n3;
    INT rg_n4;
    rg_n3 = (bool)1;//强转 对应整数到逻辑 (1)
    _DEBUG_STATMENT (DebugTrace (FALSE, 0, 0, _T ("B"), rg_n3));
    rg_n3 = (bool)0;//强转 对应整数到逻辑 (0)
    _DEBUG_STATMENT (DebugTrace (FALSE, 0, 0, _T ("B"), rg_n3));
    rg_n4 = (int)TRUE;// 强转 对应逻辑到整数 (真)
    _DEBUG_STATMENT (DebugTrace (FALSE, 0, 0, _T ("n"), rg_n4));
    rg_n4 = (int)FALSE;// 强转 对应逻辑到整数 (假)
    _DEBUG_STATMENT (DebugTrace (FALSE, 0, 0, _T ("n"), rg_n4));
    return (1);
}

下面是火山代码

<火山程序 类型 = "通常" 版本 = 1 />

方法 逻辑到整数 <公开 静态 类型 = 整数 注释 = "把逻辑型显示成整数" 折叠 @嵌入式方法 = "">
参数 参_逻辑值 <类型 = 逻辑型>
{
    @ (int)@<参_逻辑值>

}

方法 整数到逻辑 <公开 静态 类型 = 逻辑型 注释 = "把逻辑型显示成整数" 折叠 @嵌入式方法 = "">
参数 参_逻辑值 <类型 = 整数>
{
    @ (bool)@<参_逻辑值>
}

揰掵佲

在火山中 逻辑型和整数型强转是不支持的,所以写了嵌入方法来解决这个问题

先看效果

看看输出的C++代码

INT rg_n1::rg_n2 ()
{
    _sOnClassesStaticInit ();
    BOOL rg_n3;
    INT rg_n4;
    rg_n3 = (bool)1;//强转 对应整数到逻辑 (1)
    _DEBUG_STATMENT (DebugTrace (FALSE, 0, 0, _T ("B"), rg_n3));
    rg_n3 = (bool)0;//强转 对应整数到逻辑 (0)
    _DEBUG_STATMENT (DebugTrace (FALSE, 0, 0, _T ("B"), rg_n3));
    rg_n4 = (int)TRUE;// 强转 对应逻辑到整数 (真)
    _DEBUG_STATMENT (DebugTrace (FALSE, 0, 0, _T ("n"), rg_n4));
    rg_n4 = (int)FALSE;// 强转 对应逻辑到整数 (假)
    _DEBUG_STATMENT (DebugTrace (FALSE, 0, 0, _T ("n"), rg_n4));
    return (1);
}

下面是火山代码

<火山程序 类型 = "通常" 版本 = 1 />

方法 逻辑到整数 <公开 静态 类型 = 整数 注释 = "把逻辑型显示成整数" 折叠 @嵌入式方法 = "">
参数 参_逻辑值 <类型 = 逻辑型>
{
    @ (int)@<参_逻辑值>

}

方法 整数到逻辑 <公开 静态 类型 = 逻辑型 注释 = "把逻辑型显示成整数" 折叠 @嵌入式方法 = "">
参数 参_逻辑值 <类型 = 整数>
{
    @ (bool)@<参_逻辑值>
}