Function ForDoOp

engine/Evaluator/express.cpp:929–969

}

static GameValue ForDoOp(const GameState* state, GameValuePar oper1, GameValuePar oper2)
{
    auto* toData = static_cast<const GameDataForTo*>(oper1.GetData());
    float from = toData->GetFrom();
    float to = toData->GetTo();
    float step = toData->GetStep();
    RString body = oper2;

    if (step == 0.0f)
    {
        state->SetError(EvalGen);
        return NOTHING;
    }

    GameValue exitVal = NOTHING;
    int maxIters = 100000;
    int count = 0;
    for (float i = from; (step > 0 ? i <= to : i >= to); i += step)
    {
        if (count++ >= maxIters)
        {
            RptF("Max iteration count exceeded in for loop");
            state->SetError(EvalGen);
            break;
        }
        GameVarSpace local(state->GetContext());
        state->BeginContext(&local);
        state->VarSetLocal(toData->GetVar(), GameValue(i));
        const_cast<GameState*>(state)->Execute(body);
        state->EndContext();
        if (state->GetLastError() == EvalBreak)
        {
            exitVal = tls_exitWithValue;
            const_cast<GameState*>(state)->SetError(EvalOK);
            break;
        }
        if (state->GetLastError() != EvalOK)
            break;
    }
    return exitVal;
}

static GameValue ArrayThen(const GameState* state, GameValuePar oper1, GameValuePar oper2)
{