Function get_func_by_ref

lua/sp.c:2997–3021

}

static int get_func_by_ref(Lua L, const char *entry, char **err)
{
    // return function to call on the lua stack
    lua_getglobal(L, "_SP");
    lua_pushstring(L, "cdb2_func_refs");
    lua_gettable(L, -2); // result, _SP{}
    if (!lua_istable(L, -1)) {
        goto bad;
    }
    lua_remove(L, 1); // _SP{}
    lua_pushstring(L, entry);
    lua_gettable(L, -2);
    if (!lua_isfunction(L, -1)) {
        goto bad;
    }
    lua_remove(L, 1); // cdb2_func_refs
    // return with function on stack
    return 0;

bad:
    // return with nothing on the stack
    lua_settop(L, 0);
    *err = strdup("get_func_by_ref failed");
    return -1;
}

// return 'main' function to call on the lua stack
static int get_func_by_name(Lua L, const char *func, char **err)