Function nhl_init

src/nhlua.c:2292–2363

}

DISABLE_WARNING_CONDEXPR_IS_CONSTANT

lua_State *
nhl_init(nhl_sandbox_info *sbi)
{
    /* It would be nice to import EXPECTED from each build system. XXX */
    /* And it would be nice to do it only once, but it's cheap. */
#ifndef NHL_VERSION_EXPECTED
#if LUA_VERSION_NUM >= 505
#define NHL_VERSION_EXPECTED 50500
#else
#define NHL_VERSION_EXPECTED 50408
#endif
#endif

#ifdef NHL_SANDBOX
    if (NHL_VERSION_EXPECTED != LUA_VERSION_RELEASE_NUM) {
        panic(
            "sandbox doesn't know this Lua version: this=%d != expected=%d ",
            LUA_VERSION_RELEASE_NUM, NHL_VERSION_EXPECTED);
    }
#endif

    lua_State *L = nhlL_newstate(sbi, "nhl_init");
    if(!L) return 0;

    iflags.in_lua = TRUE;
    /* Temporary for development XXX */
    /* Turn this off in config.h to disable the sandbox. */
#ifdef NHL_SANDBOX
    nhlL_openlibs(L, sbi->flags);
#else
    luaL_openlibs(L);
#endif

#ifdef notyet
    if (sbi->flags & NHL_SB_PACKAGE) {
        /* XXX Is this still needed? */
        if (nhl_set_package_path(L, "./?.lua"))
            return 0;
    }
#endif

    /* register nh -table, and functions for it */
    lua_newtable(L);
    luaL_setfuncs(L, nhl_functions, 0);
    lua_setglobal(L, "nh");

    /* init nhc -table */
    init_nhc_data(L);

    /* init u -table */
    init_u_data(L);

    l_selection_register(L);
    l_register_des(L);

    l_obj_register(L);