Function get_coord

src/sp_lev.c:5318–5366

}

boolean
get_coord(lua_State *L, int i, lua_Integer *x, lua_Integer *y)
{
    boolean ret = FALSE;
    int ltyp = lua_type(L, i);

    if (ltyp == LUA_TTABLE) {
        int arrlen;
        boolean gotx = FALSE;

        lua_getfield(L, i, "x");
        if (!lua_isnil(L, -1)) {
            *x = luaL_checkinteger(L, -1);
            gotx = TRUE;
        }
        lua_pop(L, 1);

        if (gotx) {
            lua_getfield(L, i, "y");
            if (!lua_isnil(L, -1)) {
                *y = luaL_checkinteger(L, -1);
                lua_pop(L, 1);
                ret = TRUE;
            } else {
                nhl_error(L, "Not a coordinate");
                /*NOTREACHED*/
                return FALSE;
            }
        } else {
            lua_len(L, i);
            arrlen = lua_tointeger(L, -1);
            lua_pop(L, 1);
            if (arrlen != 2) {
                nhl_error(L, "Not a coordinate");
                /*NOTREACHED*/
                return FALSE;
            }

            *x = get_table_intarray_entry(L, i, 1);
            *y = get_table_intarray_entry(L, i, 2);

            return TRUE;
        }
    } else if (ltyp != LUA_TNIL) {
        /* non-existent coord is ok */
        nhl_error(L, "non-table coord specified");
    }
    return ret;
}

RESTORE_WARNING_UNREACHABLE_CODE