Function db_sp

lua/sp.c:4661–4693

}

static int db_sp(Lua L)
{
    luaL_checkudata(L, 1, dbtypes.db);
    char *name = (char *)luaL_checkstring(L, 2);
    struct spversion_t spversion = {0};
    if (lua_isnumber(L, 3)) {
        spversion.version_num = lua_tonumber(L, 3);
    } else if (lua_isstring(L, 3)) {
        spversion.version_str = (char *)lua_tostring(L, 3);
    }
    char *err = NULL;
    if (tryrdlock_schema_lk() != 0) {
        return luaL_error(L, sqlite3ErrStr(SQLITE_SCHEMA));
    }
    char *src = load_src(name, &spversion, 0, &err);
    unlock_schema_lk();
    free(spversion.version_str);
    if (src == NULL) {
        luabb_error(L, getsp(L), err);
        lua_pushnil(L);
        free(err);
        return 1;
    }
    size_t size = strlen(src);
    char buf[size + 32];
    sprintf(buf, "%s\nreturn main", src);
    free(src);
    if (luaL_dostring(L, buf) != 0) {
        luabb_error(L, getsp(L), lua_tostring(L, -1));
        lua_pushnil(L);
    }
    return 1;
}

static int db_error(lua_State *lua)
{