Function copy_state_stacks

lua/sp.c:2966–2995

}

static int copy_state_stacks(Lua lua1, Lua lua2, int allow_tmptbl)
{
    hash_t *tmptbls = NULL;
    if (allow_tmptbl) {
        tmptbls = hash_init_str(0);
    }
    int num_returns = lua_gettop(lua1);
    for (int i = 1; i <= num_returns; i++) {
        int type = lua_type(lua1, i);
        if (type == LUA_TUSERDATA) {
            copy_comdb2_type(lua1, lua2, i, allow_tmptbl, tmptbls);
        } else if (lua_istable(lua1, i)) {
            copy_state_table(lua1, lua2, i, allow_tmptbl, tmptbls);
            lua_settop(lua1, num_returns);
        } else if (lua_isnumber(lua1, i)) {
            double num = lua_tonumber(lua1, i);
            lua_pushnumber(lua2, num);
        } else {
            const char *arg = lua_tostring(lua1, i);
            if (arg == NULL)
                lua_pushnil(lua2);
            else
                lua_pushstring(lua2, arg);
        }
    }
    if (tmptbls) {
        hash_free(tmptbls);
    }
    return num_returns;
}

static int get_func_by_ref(Lua L, const char *entry, char **err)
{