コード例 #1
0
ファイル: sasl.C プロジェクト: Henry/BuddKaminInterpreters
int isTrue(Expression* cond)
{
    // the only thing false is nil
    ListNode* nval = cond->isList();
    if (nval && nval->isNil())
    {
        return 0;
    }
    return 1;
}
コード例 #2
0
ファイル: apl.C プロジェクト: Henry/BuddKaminInterpreters
int APLValue::size()
{
    int sz = 1;
    for (ListNode* n = shapedata; !n->isNil(); n = n->tail())
    {
        IntegerExpression* extent = n->head()->isInteger();
        if (extent)
        {
            sz *= extent->val();
        }
    }
    return sz;
}