Function ListSet

engine/Evaluator/express.cpp:678–721

}

static GameValue ListSet(const GameState* state, GameValuePar oper1, GameValuePar oper2)
{
    const GameArrayType& array = oper1;
    const GameArrayType& arg = oper2;
    if (arg.Size() != 2)
    {
        state->SetError(EvalDim, array.Size(), 2);
        return NOTHING;
    }
    if (arg[0].GetType() != GameScalar)
    {
        state->TypeError(GameScalar, arg[0].GetType());
        return NOTHING;
    }

    float index = arg[0];
    const GameValue& value = arg[1];
    int sel = toInt(index);
    if (sel < 0)
    {
        state->SetError(EvalDivZero);
        return NOTHING;
    }

    if (oper1.GetReadOnly())
    {
        state->SetError(EvalBadVar);
        return NOTHING;
    }
    GameArrayType& arrayNC = const_cast<GameArrayType&>(array);
    arrayNC.Access(sel); // grows the array if needed
    // storing an array that contains this array would create a recursive
    // structure, which later crashes; reject it instead
    if (CheckArrayInValue(array, value))
    {
        Fail("Recursive array");
        state->SetError(EvalDim);
        return NOTHING;
    }

    arrayNC[sel] = value;

    return NOTHING;
}

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