Function nhl_callback

src/nhlua.c:1663–1706

add or remove a lua function callback */ callback("level_enter", "function_name"); */ callback("level_enter", "function_name", true); */ level_enter, level_leave, cmd_before */

/* callback("level_enter", "function_name", true); */
/* level_enter, level_leave, cmd_before */
staticfn int
nhl_callback(lua_State *L)
{
    int argc = lua_gettop(L);
    int i;
    boolean rm;
    const char *fn, *cb;

    if (!gl.luacore) {
        panic("nh luacore not inited");
        /*NOTREACHED*/
        return 0;
    }
    if (argc == 2 || argc == 3) {
        if (argc == 2) {
            rm = FALSE;
            fn = luaL_checkstring(L, -1);
            cb = luaL_checkstring(L, -2);
        } else {
            rm = lua_toboolean(L, -1);
            fn = luaL_checkstring(L, -2);
            cb = luaL_checkstring(L, -3);
        }
        for (i = 0; i < NUM_NHCB; i++)
            if (!strcmp(cb, nhcb_name[i]))
                break;
        if (i >= NUM_NHCB)
            return 0;

        if (rm) {
            nhcb_counts[i]--;
            if (nhcb_counts[i] < 0)
                impossible("nh.callback counts are wrong");
        } else {
            nhcb_counts[i]++;
        }

        lua_getglobal(gl.luacore, rm ? "nh_callback_rm" : "nh_callback_set");
        lua_pushstring(gl.luacore, cb);
        lua_pushstring(gl.luacore, fn);
        nhl_pcall_handle(gl.luacore, 2, 0, "nhl_callback", NHLpa_panic);
    }
    return 0;
}

/* store or restore game state */
/*