json.qc File Reference

#include "test.qh"

Include dependency graph for json.qc:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Macros
#define	JSON_BEGIN()   int __i = STRING_ITERATOR_SAVE(_json)
#define	JSON_END()
#define	JSON_FAIL(reason)   goto fail

Functions
bool	_json_parse_array ()
bool	_json_parse_false ()
bool	_json_parse_float ()
bool	_json_parse_int ()
bool	_json_parse_members ()
bool	_json_parse_null ()
bool	_json_parse_number ()
bool	_json_parse_object ()
	parse a json object More...
bool	_json_parse_pair ()
bool	_json_parse_string (bool add)
bool	_json_parse_true ()
bool	_json_parse_value ()
ERASEABLE void	json_del (int buf)
ERASEABLE void	json_dump (int buf)
ERASEABLE string	json_get (int buf, string key)
ERASEABLE int	json_parse (string in, bool() func)
	STRING_ITERATOR (_json, string_null, 0)
	TEST (json, Parse)

Variables
int	_json_buffer
int	_json_keys
string	_json_ns
string	_json_temp

Macro Definition Documentation

JSON_BEGIN

#define JSON_BEGIN

(

)

int __i = STRING_ITERATOR_SAVE(_json)

Definition at line 23 of file json.qc.

Referenced by _json_parse_array(), _json_parse_false(), _json_parse_float(), _json_parse_int(), _json_parse_members(), _json_parse_null(), _json_parse_number(), _json_parse_object(), _json_parse_pair(), _json_parse_string(), _json_parse_true(), and _json_parse_value().

JSON_END

#define JSON_END

(

)

Value:

return true; \
:fail \
   STRING_ITERATOR_LOAD(_json, __i); \
   return false;

Definition at line 25 of file json.qc.

Referenced by _json_parse_array(), _json_parse_false(), _json_parse_float(), _json_parse_int(), _json_parse_members(), _json_parse_null(), _json_parse_number(), _json_parse_object(), _json_parse_pair(), _json_parse_string(), _json_parse_true(), and _json_parse_value().

JSON_FAIL

#define JSON_FAIL

(

reason

)

goto fail

Definition at line 24 of file json.qc.

Referenced by _json_parse_array(), _json_parse_false(), _json_parse_float(), _json_parse_int(), _json_parse_members(), _json_parse_null(), _json_parse_number(), _json_parse_object(), _json_parse_pair(), _json_parse_string(), _json_parse_true(), and _json_parse_value().

Function Documentation

_json_parse_array()

ERASEABLE bool _json_parse_array

(

)

Definition at line 73 of file json.qc.

References _json_buffer, _json_ns, _json_parse_value(), ERASEABLE, ftos(), JSON_BEGIN, JSON_END, JSON_FAIL, strcat(), STRING_ITERATOR_GET, STRING_ITERATOR_NEXT, STRING_ITERATOR_PEEK, and WITH.

Referenced by _json_parse_value().

                         {
    JSON_BEGIN();
    if (STRING_ITERATOR_GET(_json) != '[') JSON_FAIL("expected '['");
    int len = bufstr_add(_json_buffer, "0", 0);
    if (len) bufstr_set(_json_buffer, len - 1, strcat(bufstr_get(_json_buffer, len - 1), ".length"));
    bool required = false;
    for (int n = 0; ; n++) {
        string key = ftos(n);
        key = _json_ns ? strcat(_json_ns, ".", key) : key;
        int it = bufstr_add(_json_buffer, key, 0);
        bool ret = false; WITH(string, _json_ns, key, ret = _json_parse_value());
        if (!ret) {
            bufstr_free(_json_buffer, it);
            if (required) JSON_FAIL("expected value"); else break;
        }
        bufstr_set(_json_buffer, len, ftos(n + 1));
        if (STRING_ITERATOR_PEEK(_json) == ',') {
            STRING_ITERATOR_NEXT(_json);
            required = true;
            continue;
        }
        break;
    }
    if (STRING_ITERATOR_GET(_json) != ']') JSON_FAIL("expected ']'");
    JSON_END();
}

Here is the call graph for this function:

Here is the caller graph for this function:

_json_parse_false()

ERASEABLE bool _json_parse_false

(

)

Definition at line 126 of file json.qc.

References _json_buffer, ERASEABLE, JSON_BEGIN, JSON_END, JSON_FAIL, and STRING_ITERATOR_GET.

Referenced by _json_parse_value().

                             {
        JSON_BEGIN();
        if (!(STRING_ITERATOR_GET(_json) == 'f'
            && STRING_ITERATOR_GET(_json) == 'a'
            && STRING_ITERATOR_GET(_json) == 'l'
            && STRING_ITERATOR_GET(_json) == 's'
            && STRING_ITERATOR_GET(_json) == 'e'))
            JSON_FAIL("expected 'false'");
        bufstr_add(_json_buffer, "0", 0);
        JSON_END();
    }

Here is the caller graph for this function:

_json_parse_float()

ERASEABLE bool _json_parse_float

(

)

Definition at line 190 of file json.qc.

References _json_buffer, chr2str, ERASEABLE, JSON_BEGIN, JSON_END, JSON_FAIL, strcat(), STRING_ITERATOR_GET, and STRING_ITERATOR_UNGET.

Referenced by _json_parse_number().

                             {
        JSON_BEGIN();
        string s = "";
        bool needdot = true;
        for (int c; (c = STRING_ITERATOR_GET(_json)); ) {
            if (!(c >= '0' && c <= '9')) {
                if (c == '.' && needdot) {
                    // fine
                    needdot = false;
                } else {
                    STRING_ITERATOR_UNGET(_json);
                    break;
                }
            }
            s = strcat(s, chr2str(c));
        }
        if (s == "") JSON_FAIL("expected float");
        bufstr_add(_json_buffer, s, 0);
        JSON_END();
    }

Here is the call graph for this function:

Here is the caller graph for this function:

_json_parse_int()

ERASEABLE bool _json_parse_int

(

)

Definition at line 212 of file json.qc.

References _json_buffer, chr2str, ERASEABLE, ftos(), JSON_BEGIN, JSON_END, JSON_FAIL, stof(), strcat(), STRING_ITERATOR_GET, and STRING_ITERATOR_UNGET.

Referenced by _json_parse_number().

                           {
        JSON_BEGIN();
        string s = "";
        for (int c; (c = STRING_ITERATOR_GET(_json)); ) {
            if (!(c >= '0' && c <= '9')) {
                STRING_ITERATOR_UNGET(_json);
                break;
            }
            if (s == "" && c == '0') JSON_FAIL("expected [1-9]");
            s = strcat(s, chr2str(c));
        }
        if (s == "") JSON_FAIL("expected int");
        if (ftos(stof(s)) != s) JSON_FAIL("expected int");
        bufstr_add(_json_buffer, s, 0);
        JSON_END();
    }

Here is the call graph for this function:

Here is the caller graph for this function:

_json_parse_members()

ERASEABLE bool _json_parse_members

(

)

Definition at line 45 of file json.qc.

References _json_parse_pair(), ERASEABLE, JSON_BEGIN, JSON_END, JSON_FAIL, STRING_ITERATOR_NEXT, and STRING_ITERATOR_PEEK.

Referenced by _json_parse_object().

                               {
        JSON_BEGIN();
        for (;;) {
            if (!_json_parse_pair()) JSON_FAIL("expected pair");
            if (STRING_ITERATOR_PEEK(_json) == ',') {
                STRING_ITERATOR_NEXT(_json);
                continue;
            }
            break;
        }
        JSON_END();
    }

Here is the call graph for this function:

Here is the caller graph for this function:

_json_parse_null()

ERASEABLE bool _json_parse_null

(

)

Definition at line 139 of file json.qc.

References _json_buffer, ERASEABLE, JSON_BEGIN, JSON_END, JSON_FAIL, and STRING_ITERATOR_GET.

Referenced by _json_parse_value().

                            {
        JSON_BEGIN();
        if (!(STRING_ITERATOR_GET(_json) == 'n'
            && STRING_ITERATOR_GET(_json) == 'u'
            && STRING_ITERATOR_GET(_json) == 'l'
            && STRING_ITERATOR_GET(_json) == 'l'))
            JSON_FAIL("expected 'null'");
        bufstr_add(_json_buffer, "", 0);
        JSON_END();
    }

Here is the caller graph for this function:

_json_parse_number()

ERASEABLE bool _json_parse_number

(

)

Definition at line 183 of file json.qc.

References _json_parse_float(), _json_parse_int(), ERASEABLE, JSON_BEGIN, JSON_END, and JSON_FAIL.

Referenced by _json_parse_value().

                          {
    JSON_BEGIN();
    if (!(_json_parse_float() || _json_parse_int())) JSON_FAIL("expected number");
    JSON_END();
}

Here is the call graph for this function:

Here is the caller graph for this function:

_json_parse_object()

ERASEABLE bool _json_parse_object

(

)

parse a json object

Definition at line 36 of file json.qc.

References _json_buffer, _json_keys, _json_parse_members(), ERASEABLE, JSON_BEGIN, JSON_END, JSON_FAIL, STRING_ITERATOR_GET, and WITH.

Referenced by _json_parse_value(), MX_Messages_(), MX_Sync_(), and TEST().

                          {
    JSON_BEGIN();
    if (STRING_ITERATOR_GET(_json) != '{') JSON_FAIL("expected '{'");
    WITH(int, _json_keys, bufstr_add(_json_buffer, "", 0), _json_parse_members());
    if (STRING_ITERATOR_GET(_json) != '}') JSON_FAIL("expected '}'");
    JSON_END();
}

Here is the call graph for this function:

Here is the caller graph for this function:

_json_parse_pair()

ERASEABLE bool _json_parse_pair

(

)

Definition at line 59 of file json.qc.

References _json_buffer, _json_keys, _json_ns, _json_parse_string(), _json_parse_value(), _json_temp, cons(), ERASEABLE, JSON_BEGIN, JSON_END, JSON_FAIL, strcat(), STRING_ITERATOR_GET, and WITH.

Referenced by _json_parse_members().

                                {
            JSON_BEGIN();
            if (!_json_parse_string(false)) JSON_FAIL("expected string");
            string key = _json_temp;
            bufstr_set(_json_buffer, _json_keys, cons(bufstr_get(_json_buffer, _json_keys), key));
            key = _json_ns ? strcat(_json_ns, ".", key) : key;
            bufstr_add(_json_buffer, key, 0);
            if (STRING_ITERATOR_GET(_json) != ':') JSON_FAIL("expected ':'");
            bool ret = false; WITH(string, _json_ns, key, ret = _json_parse_value());
            if (!ret) JSON_FAIL("expected value");
            JSON_END();
        }

Here is the call graph for this function:

Here is the caller graph for this function:

_json_parse_string()

ERASEABLE bool _json_parse_string

(

bool

add

)

Definition at line 151 of file json.qc.

References _json_buffer, _json_temp, chr2str, ERASEABLE, JSON_BEGIN, JSON_END, JSON_FAIL, strcat(), STRING_ITERATOR_GET, and STRING_ITERATOR_UNGET.

Referenced by _json_parse_pair(), and _json_parse_value().

                                  {
    JSON_BEGIN();
    if (STRING_ITERATOR_GET(_json) != '"') JSON_FAIL("expected opening '\"'");
    string s = "";
    for (int c; (c = STRING_ITERATOR_GET(_json)); ) {
        if (c == '"') {
            STRING_ITERATOR_UNGET(_json);
            break;
        } else if (c == '\\') {
            string esc;
            switch (STRING_ITERATOR_GET(_json)) {
                default:
                    JSON_FAIL("expected ( '\"' | '\\' | 'n' | 't' )");
                case '"': esc = "\""; break;
                case '\\': esc = "\\"; break;
                case 'n': esc = "\n"; break;
                case 't': esc = "\t"; break;
                case 'u': esc = "\\u"; break; // TODO
                case '/': esc = "/"; break;
            }
            s = strcat(s, esc);
        } else {
            s = strcat(s, chr2str(c));
        }
    }
    if (STRING_ITERATOR_GET(_json) != '"') JSON_FAIL("expected closing '\"'");
    if (add) bufstr_add(_json_buffer, s, 0);
    _json_temp = s;
    JSON_END();
}

Here is the call graph for this function:

Here is the caller graph for this function:

_json_parse_true()

ERASEABLE bool _json_parse_true

(

)

Definition at line 114 of file json.qc.

References _json_buffer, ERASEABLE, JSON_BEGIN, JSON_END, JSON_FAIL, and STRING_ITERATOR_GET.

Referenced by _json_parse_value().

                            {
        JSON_BEGIN();
        if (!(STRING_ITERATOR_GET(_json) == 't'
            && STRING_ITERATOR_GET(_json) == 'r'
            && STRING_ITERATOR_GET(_json) == 'u'
            && STRING_ITERATOR_GET(_json) == 'e'))
            JSON_FAIL("expected 'true'");
        bufstr_add(_json_buffer, "1", 0);
        JSON_END();
    }

Here is the caller graph for this function:

_json_parse_value()

ERASEABLE bool _json_parse_value

(

)

Definition at line 101 of file json.qc.

References _json_parse_array(), _json_parse_false(), _json_parse_null(), _json_parse_number(), _json_parse_object(), _json_parse_string(), _json_parse_true(), ERASEABLE, JSON_BEGIN, JSON_END, and JSON_FAIL.

Referenced by _json_parse_array(), and _json_parse_pair().

                         {
    JSON_BEGIN();
    if (!(_json_parse_string(true)
        || _json_parse_number()
        || _json_parse_object()
        || _json_parse_array()
        || _json_parse_true()
        || _json_parse_false()
        || _json_parse_null())) JSON_FAIL("expected value");
    JSON_END();
}

Here is the call graph for this function:

Here is the caller graph for this function:

json_del()

ERASEABLE void json_del

(

int

buf

)

Definition at line 285 of file json.qc.

References ERASEABLE.

{
    buf_del(buf);
}

json_dump()

ERASEABLE void json_dump

(

int

buf

)

Definition at line 291 of file json.qc.

References print().

Referenced by TEST().

{
    for (int i = 0, n = buf_getsize(buf); i < n; ++i) {
        print(bufstr_get(buf, i), "\n");
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

json_get()

ERASEABLE string json_get	(	int	buf,
		string	key
	)

Definition at line 276 of file json.qc.

References ERASEABLE, and string_null.

Referenced by MX_Handle(), MX_Messages_(), and MX_Sync_().

{
    for (int i = 1, n = buf_getsize(buf); i < n; i += 2) {
        if (bufstr_get(buf, i) == key) return bufstr_get(buf, i + 1);
    }
    return string_null;
}

Here is the caller graph for this function:

json_parse()

ERASEABLE int json_parse	(	string	in,
		bool()	func
	)

Definition at line 230 of file json.qc.

References _json_buffer, buf_create, ERASEABLE, LABEL, strcat(), STRING_ITERATOR_SET, strstrofs, and substring().

Referenced by MX_Messages_(), MX_Sync_(), and TEST().

                                       {
    string trimmed = "";
    LABEL(trim) {
        int o = strstrofs(in, "\"", 0);
        if (o >= 0) {
            string part = substring(in, 0, o + 1); in = substring(in, o + 1, -1);
            part = strreplace(" ", "", part);
            part = strreplace("\n", "", part);
            trimmed = strcat(trimmed, part);
            goto trim_str;
        } else {
            string part = in;
            part = strreplace(" ", "", part);
            part = strreplace("\n", "", part);
            trimmed = strcat(trimmed, part);
            goto done;
        }
    }
    LABEL(trim_str) {
        int o = strstrofs(in, "\"", 0);
        int esc = strstrofs(in, "\\\"", 0);
        if (o < esc || esc < 0) {
            // simple string
            string part = substring(in, 0, o + 1); in = substring(in, o + 1, -1);
            trimmed = strcat(trimmed, part);
            goto trim;
        } else {
            // has escape
            string part = substring(in, 0, esc + 2); in = substring(in, esc + 2, -1);
            trimmed = strcat(trimmed, part);
            goto trim_str;
        }
    }
    LABEL(done);

    STRING_ITERATOR_SET(_json, trimmed, 0);
    _json_buffer = buf_create();
    bool ret = func();
    if (!ret) {
        buf_del(_json_buffer);
        _json_buffer = -1;
    }
    return _json_buffer;
}

Here is the call graph for this function:

Here is the caller graph for this function:

STRING_ITERATOR()

STRING_ITERATOR	(	_json	,
		string_null	,
		0
	)

Referenced by STATIC_INIT(), and TEST().

Here is the caller graph for this function:

TEST()

TEST	(	json	,
		Parse
	)

Definition at line 302 of file json.qc.

References _json_parse_object(), EXPECT_NE, json_dump(), json_parse(), print(), and SUCCEED.

{
    string s = "{\n\
    \"m_string\": \"\\\"string\\\"\",\n\
    \"m_int\": 123,\n\
    \"m_bool\": true,\n\
    \"m_null\": null,\n\
    \"m_obj\": { },\n\
    \"m_arr\": [ ]\n}"; // "
    print(s, "\n");
    int buf = json_parse(s, _json_parse_object);
    EXPECT_NE(-1, buf);
    json_dump(buf);
    SUCCEED();
}

Here is the call graph for this function:

Variable Documentation

_json_buffer

int _json_buffer

Definition at line 5 of file json.qc.

Referenced by _json_parse_array(), _json_parse_false(), _json_parse_float(), _json_parse_int(), _json_parse_null(), _json_parse_object(), _json_parse_pair(), _json_parse_string(), _json_parse_true(), and json_parse().

_json_keys

int _json_keys

Definition at line 33 of file json.qc.

Referenced by _json_parse_object(), and _json_parse_pair().

_json_ns

string _json_ns

Definition at line 31 of file json.qc.

Referenced by _json_parse_array(), and _json_parse_pair().

_json_temp

string _json_temp

Definition at line 7 of file json.qc.

Referenced by _json_parse_pair(), and _json_parse_string().