Function l_nhcore_call

src/nhlua.c:168–194

}

void
l_nhcore_call(int callidx)
{
    int ltyp;

    if (callidx < 0 || callidx >= NUM_NHCORE_CALLS || !gl.luacore
        || !nhcore_call_available[callidx])
        return;

    lua_getglobal(gl.luacore, "nhcore");
    if (!lua_istable(gl.luacore, -1)) {
        /*impossible("nhcore is not a lua table");*/
        nhl_done(gl.luacore);
        gl.luacore = 0;
        return;
    }

    lua_getfield(gl.luacore, -1, nhcore_call_names[callidx]);
    ltyp = lua_type(gl.luacore, -1);
    if (ltyp == LUA_TFUNCTION) {
        nhl_pcall_handle(gl.luacore, 0, 1, "l_nhcore_call", NHLpa_panic);
    } else {
        /*impossible("nhcore.%s is not a lua function",
          nhcore_call_names[callidx]);*/
        nhcore_call_available[callidx] = FALSE;
    }
}

DISABLE_WARNING_UNREACHABLE_CODE