Function get_func_by_name

lua/sp.c:3024–3057

return 'main' function to call on the lua stack

// return 'main' function to call on the lua stack
static int get_func_by_name(Lua L, const char *func, char **err)
{
    lua_getglobal(L, "_SP");
    lua_pushstring(L, "cdb2_func_names");
    lua_gettable(L, -2); // result, _SP{}
    if (!lua_istable(L, -1)) {
        logmsg(LOGMSG_ERROR, "%s fail at %d\n", __func__, __LINE__);
        *err = strdup("get_func_by_name failed");
        return -1;
    }
    lua_pushstring(L, func);
    lua_gettable(L, -2);
    if (!lua_isfunction(L, -1)) {
        if (strcmp(func, "main") != 0) {
            logmsg(LOGMSG_ERROR, "%s fail at %d\n", __func__, __LINE__);
            *err = strdup("get_func_by_name failed");
            return -2;
        }
        lua_pop(L, 1); // nil
        // local function main()  -- not found
        // look for _SP.spname
        SP sp = getsp(L);
        lua_pushstring(L, sp->spname);
        lua_gettable(L, -3); // _SP.spname ?
        if (!lua_isfunction(L, -1)) {
            logmsg(LOGMSG_ERROR, "%s fail at %d\n", __func__, __LINE__);
            *err = strdup("get_func_by_name failed");
            return -3;
        }
    }
    lua_insert(L, 1);
    lua_settop(L, 1);
    return 0;
}

static int process_src(Lua L, const char *src, char **err)
{