当前位置: 首页>>代码示例>>C++>>正文


C++ ListNode::length方法代码示例

本文整理汇总了C++中ListNode::length方法的典型用法代码示例。如果您正苦于以下问题:C++ ListNode::length方法的具体用法?C++ ListNode::length怎么用?C++ ListNode::length使用的例子?那么恭喜您, 这里精选的方法代码示例或许可以为您提供帮助。您也可以进一步了解该方法所在ListNode的用法示例。


在下文中一共展示了ListNode::length方法的2个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的C++代码示例。

示例1: apply

void LazyFunction::apply(Expr& target, ListNode* args, Environment* rho)
{
    // number of args should match definition
    ListNode* anames = argNames_;
    if (anames->length() != args->length())
    {
        error("argument length mismatch");
        return;
    }

    // convert arguments into thunks
    ListNode* newargs = makeThunks(args, rho);

    // make new environment
    Environment* newrho = new Environment(anames, newargs, context_);

    // evaluate body in new environment
    if (body_())
    {
        body_()->eval(target, valueOps, newrho);
    }
    else
    {
        target = 0;
    }

    newrho = 0;
}
开发者ID:Henry,项目名称:BuddKaminInterpreters,代码行数:28,代码来源:sasl.C

示例2: ListNode

/// APLCatenationFunctionApply
void CatenationFunction::applyOp
(
    Expr& target,
    APLValue* left,
    APLValue* right
)
{
    ListNode* lshape = left->shape();
    ListNode* rshape = right->shape();
    int llen = lshape->length();
    int rlen = rshape->length();
    if (llen <= 0 || (llen != rlen))
    {
        target = error("catenation conformability error");
        return;
    }

    // get the size of the last row in each structure
    int lrow, rrow;
    IntegerExpression* ie = lshape->at(llen - 1)->isInteger();
    if (ie)
    {
        lrow = ie->val();
    }
    else
    {
        lrow = 1;
    }
    ie = rshape->at(rlen - 1)->isInteger();
    if (ie)
    {
        rrow = ie->val();
    }
    else
    {
        rrow = 1;
    }

    // build up the new size
    int extent = lrow + rrow;
    ListNode* newShape =
    new ListNode(new IntegerExpression(extent), emptyList());
    llen = llen - 1;
    while (--llen >= 0)
    {
        newShape = new ListNode(lshape->at(llen), newShape);
        ie = lshape->at(llen)->isInteger();
        if (ie)
        {
            extent *= ie->val();
        }
    }

    APLValue* newval = new APLValue(newShape, extent);

    // now build the new values
    int i, index, lindex, rindex;
    index = lindex = rindex = 0;
    while (index < extent)
    {
        for (i = 0; i < lrow; i++)
        {
            newval->atPut(index++, left->at(lindex++));
        }
        for (i = 0; i < rrow; i++)
        {
            newval->atPut(index++, right->at(rindex++));
        }
    }

    target = newval;
}
开发者ID:Henry,项目名称:BuddKaminInterpreters,代码行数:73,代码来源:apl.C


注:本文中的ListNode::length方法示例由纯净天空整理自Github/MSDocs等开源代码及文档管理平台,相关代码片段筛选自各路编程大神贡献的开源项目,源码版权归原作者所有,传播和使用请参考对应项目的License;未经允许,请勿转载。