Function lua_to_sqlite

lua/sp.c:6902–6955

}

static int lua_to_sqlite(Lua L, sqlite3_context *context)
{
    if (lua_isnil(L, 1) || luabb_isnull(L, 1)) {
        sqlite3_result_null(context);
        return 0;
    }

    all_types_t t;
    dttz_t dt;

    switch (luabb_type(L, 1)) {
    case LUA_TBOOLEAN:
        sqlite3_result_int64(context, lua_toboolean(L, 1));
        break;
    case LUA_TNUMBER: sqlite3_result_double(context, lua_tonumber(L, 1)); break;
    case DBTYPES_REAL:
        sqlite3_result_double(context, luabb_tonumber(L, 1));
        break;
    case LUA_TSTRING:
    case DBTYPES_CSTRING:
        sqlite3_result_text(context, luabb_tostring(L, 1), -1,
                            SQLITE_TRANSIENT);
        break;
    case DBTYPES_INTEGER:
        luabb_tointeger(L, 1, &t.in);
        sqlite3_result_int64(context, t.in);
        break;
    case DBTYPES_BLOB:
        luabb_toblob(L, 1, &t.bl);
        sqlite3_result_blob(context, t.bl.data, t.bl.length, SQLITE_TRANSIENT);
        break;
    case DBTYPES_DATETIME:
        luabb_todatetime(L, 1, &t.dt);
        datetime_t_to_dttz(&t.dt, &dt);
        sqlite3_result_datetime(context, &dt, t.dt.tzname);
        break;
    case DBTYPES_INTERVALDS:
        luabb_tointervalds(L, 1, &t.iv);
        sqlite3_result_interval(context, &t.iv);
        break;
    case DBTYPES_INTERVALYM:
        luabb_tointervalym(L, 1, &t.iv);
        sqlite3_result_interval(context, &t.iv);
        break;
    case DBTYPES_DECIMAL:
        luabb_todecimal(L, 1, &t.dq);
        sqlite3_result_decimal(context, &t.dq);
        break;
    default:
        sqlite3_result_error(context, "can't return that type, yet..", -1);
        return -1;
    }
    return 0;
}

static int sqlite_to_lua(Lua L, const char *tz, int argc, sqlite3_value **argv)
{