Function table_to_cson

lua/sp.c:5560–5723

value to convert is on top of stack

// value to convert is on top of stack
static cson_value *table_to_cson(Lua L, int lvl, json_conv *conv)
{
    const char *type = NULL;
    ++lvl;
    if (lvl > 100 || lua_checkstack(L, 1) == 0) {
        conv->error = "too many nested tables";
        conv->reason |= CONV_REASON_ARGS_FATAL;
        return NULL;
    }
    cson_value *v = NULL;
    long long integer;
    double dbl;

    dbtypes_enum dbtype = luabb_dbtype(L, -1);
    if (dbtype > DBTYPES_MINTYPE && dbtype < DBTYPES_MAXTYPE) { // null chk
        const lua_dbtypes_t *nullchk = lua_touserdata(L, -1);
        if (nullchk->is_null) {
            switch (dbtype) {
            case DBTYPES_CSTRING: type = "cstring"; break;
            case DBTYPES_INTEGER: type = "integer"; break;
            case DBTYPES_REAL: type = "double"; break;
            case DBTYPES_BLOB: type = "blob"; break;
            case DBTYPES_DATETIME: type = "datetime"; break;
            case DBTYPES_DECIMAL: type = "decimal"; break;
            case DBTYPES_INTERVALDS: type = "intervalds"; break;
            case DBTYPES_INTERVALYM: type = "intervalym"; break;
            default:
                conv->error = "unsupported type for 'table_to_json'";
                conv->reason |= CONV_REASON_ARGS_FATAL;
                return NULL;
            }
            v = cson_value_null();
            goto annotate;
        }
    }

    int tostr = 0; // 1->validate utf8   2->no validation
    int utf8_len;
    switch (dbtype) {
    case DBTYPES_LTABLE:
        if (is_array(L)) {
            type = "array";
            v = table_to_cson_array(L, lvl, conv);
        } else {
            type = "object";
            v = table_to_cson_object(L, lvl, conv);
        }
        break;
    case DBTYPES_LBOOLEAN:
        type = "bool";
        v = cson_value_new_bool(lua_toboolean(L, -1));
        break;
    case DBTYPES_LNUMBER:
        type = "number";
        dbl = lua_tonumber(L, -1);
        integer = lua_tointeger(L, -1);
        v = (dbl == integer) ? cson_value_new_integer(integer)
                             : cson_value_new_double(dbl);