Function get_table_int_or_random

src/sp_lev.c:3406–3437

/* the hash key 'name' is an integer or "random",
   or if not existent, also return rndval */
staticfn lua_Integer
get_table_int_or_random(lua_State *L, const char *name, int rndval)
{
    lua_Integer ret;
    char buf[BUFSZ];

    lua_getfield(L, 1, name);
    if (lua_type(L, -1) == LUA_TNIL) {
        lua_pop(L, 1);
        return rndval;
    }
    if (!lua_isnumber(L, -1)) {
        const char *tmp = lua_tostring(L, -1);

        if (tmp && !strcmpi("random", tmp)) {
            lua_pop(L, 1);
            return rndval;
        }
        Sprintf(buf, "Expected integer or \"random\" for \"%s\", got ", name);
        if (tmp)
            Sprintf(eos(buf), "\"%s\"", tmp);
        else
            Strcat(buf, "<Null>");
        nhl_error(L, buf);
        /*NOTREACHED*/
        lua_pop(L, 1);
        return 0;
    }
    ret = luaL_optinteger(L, -1, rndval);
    lua_pop(L, 1);
    return ret;
}

RESTORE_WARNING_UNREACHABLE_CODE