Function emit_result

lua/sp.c:6832–6861

}

static int emit_result(Lua L, long long *sprc, char **err)
{
    const char *retstr = NULL;
    dbtable_t *rettab = NULL;
    long long retnum = 0;
    int retargs = lua_gettop(L);
    for (int i = 1; i <= retargs; ++i) {
        switch (luabb_dbtype(L, i)) {
        case DBTYPES_LSTRING:
        case DBTYPES_CSTRING: retstr = luabb_tostring(L, i); break;
        case DBTYPES_LNUMBER:
        case DBTYPES_INTEGER: luabb_tointeger(L, i, &retnum); break;
        case DBTYPES_DBTABLE: rettab = lua_touserdata(L, i); break;
        default:
            // TODO FIXME XXX: silently ignore other types??
            break;
        }
    }
    // lua_settop(L, 0); -- not necessary, right??

    if (rettab) dbtable_emit_int(L, rettab);

    if (retnum && (retnum < -299 || retnum > -200)) retnum = -200;
    *sprc = retnum;

    if (retstr) retstr = strdup(retstr);
    *err = (char *)retstr;

    return 0;
}

struct sp_state {
    SP sp;