Function get_table_region

src/sp_lev.c:5281–5316

}

staticfn int
get_table_region(
    lua_State *L,
    const char *name,
    lua_Integer *x1, lua_Integer *y1,
    lua_Integer *x2, lua_Integer *y2,
    boolean optional)
{
    lua_Integer arrlen;

    lua_getfield(L, 1, name);
    if (optional && lua_type(L, -1) == LUA_TNIL) {
        lua_pop(L, 1);
        return 1;
    }

    luaL_checktype(L, -1, LUA_TTABLE);

    lua_len(L, -1);
    arrlen = lua_tointeger(L, -1);
    lua_pop(L, 1);
    if (arrlen != 4) {
        nhl_error(L, "Not a region");
        /*NOTREACHED*/
        lua_pop(L, 1);
        return 0;
    }

    *x1 = get_table_intarray_entry(L, -1, 1);
    *y1 = get_table_intarray_entry(L, -1, 2);
    *x2 = get_table_intarray_entry(L, -1, 3);
    *y2 = get_table_intarray_entry(L, -1, 4);

    lua_pop(L, 1);
    return 1;
}

boolean
get_coord(lua_State *L, int i, lua_Integer *x, lua_Integer *y)