Function create_sp_int

lua/sp.c:5244–5287

}

static int create_sp_int(SP sp, char **err)
{
    Lua lua;

    sp->mspace = lua_mem_init();
    lua = lua_newstate(lua_alloc, sp->mspace);

    lua_setsp(lua, sp);
    luaL_openlibs(lua);
    lua_atpanic(lua, l_panic);

    sp->lua = lua;
    sp->max_num_instructions = gbl_max_lua_instructions;
    LIST_INIT(&sp->dbstmts);
    LIST_INIT(&sp->tmptbls);

    init_db_funcs(lua);
    init_dbtable_funcs(lua);
    init_dbstmt_funcs(lua);
    init_dbthread_funcs(lua);
    init_dbconsumer_funcs(lua);
    init_dbtypes(lua);
    add_thd_funcs(lua);

    lua_newtable(lua);
    lua_setglobal(lua, "_SP");

    if (!gbl_allow_lua_print) {
        if (luaL_dostring(lua, "function print(...) end") != 0) {
            *err = strdup(lua_tostring(lua, -1));
            close_sp_int(sp, 1);
            return -1;
        }
    }

    if(!gbl_allow_lua_dynamic_libs)
        disable_global_variables(lua);

    sp->had_allow_lua_dynamic_libs = gbl_allow_lua_dynamic_libs;

    /* To be given as lrl value. */
    lua_sethook(lua, InstructionCountHook, LUA_MASKCOUNT, 1);
    return 0;
}

static SP create_sp(char **err)
{