Modules
ADT Database GTK2 GUI IP PiJAX Public Sql Stdio Subversion System Tools Xosd lua v4l2 wx
Recent Changes
Public.Parser.XML2 1.50
Public.ZeroMQ 1.1
Public.Template.Mustache 1.0
Public.Protocols.XMPP 1.4
Sql.Provider.jdbc 1.0
Popular Downloads
Public.Parser.JSON2 1.0
Public.Parser.JSON 0.2
GTK2 2.23
Public.Web.FCGI 1.8
Public.Parser.XML2 1.48
|
Module Information
Public.Parser.JSON2
Viewing contents of Public_Parser_JSON2-0.4/json_array.c
#line 1 "json_array.rl"
// vim:syntax=ragel
#line 6 "json.cmod/json_array.c"
static const int JSON_array_start = 1;
static const int JSON_array_first_final = 4;
static const int JSON_array_error = 0;
#line 47 "json_array.rl"
p_wchar2 *_parse_JSON_array(p_wchar2 *p, p_wchar2 *pe, struct parser_state *state) {
p_wchar2 *i = p;
#ifndef ARRAY_USES_STACK
struct array *a;
#endif
int cs;
int c = 0;
#ifndef ARRAY_USES_STACK
if (!state->validate) {
a = low_allocate_array(0,5);
}
#endif
#line 31 "json.cmod/json_array.c"
{
cs = JSON_array_start;
}
#line 64 "json_array.rl"
#line 37 "json.cmod/json_array.c"
{
if ( p == pe )
goto _out;
switch ( cs )
{
case 1:
if ( (*p) == 91 )
goto st2;
goto st0;
st0:
goto _out0;
st2:
if ( ++p == pe )
goto _out2;
case 2:
switch( (*p) ) {
case 13: goto st2;
case 32: goto st2;
case 34: goto tr2;
case 43: goto tr2;
case 91: goto tr2;
case 93: goto st4;
case 102: goto tr2;
case 110: goto tr2;
case 116: goto tr2;
case 123: goto tr2;
}
if ( (*p) < 45 ) {
if ( 9 <= (*p) && (*p) <= 10 )
goto st2;
} else if ( (*p) > 46 ) {
if ( 48 <= (*p) && (*p) <= 57 )
goto tr2;
} else
goto tr2;
goto st0;
tr2:
#line 8 "json_array.rl"
{
state->level++;
i = _parse_JSON(p, pe, state);
state->level--;
if (i == NULL) {
if (!state->validate) {
#ifdef ARRAY_USES_STACK
if (c > 0) stack_pop_n_elems_keep_top(c);
#else
free_array(a);
#endif
}
return NULL;
}
#ifndef ARRAY_USES_STACK
else {
a = array_insert(a, &(Pike_sp[-1]), c);
pop_stack();
}
#endif
c++;
{p = (( i))-1;}
}
goto st3;
st3:
if ( ++p == pe )
goto _out3;
case 3:
#line 106 "json.cmod/json_array.c"
switch( (*p) ) {
case 13: goto st3;
case 32: goto st3;
case 44: goto st2;
case 93: goto st4;
}
if ( 9 <= (*p) && (*p) <= 10 )
goto st3;
goto st0;
st4:
if ( ++p == pe )
goto _out4;
case 4:
#line 46 "json_array.rl"
{ goto _out4; }
#line 122 "json.cmod/json_array.c"
goto st0;
}
_out0: cs = 0; goto _out;
_out2: cs = 2; goto _out;
_out3: cs = 3; goto _out;
_out4: cs = 4; goto _out;
_out: {}
}
#line 65 "json_array.rl"
if (cs >= JSON_array_first_final) {
if (!state->validate) {
#ifdef ARRAY_USES_STACK
f_aggregate(c);
#else
push_array(a);
#endif
}
return p;
}
if (!state->validate) {
#ifdef ARRAY_USES_STACK
if (c > 0) {
pop_n_elems(c);
}
#else
free_array(a);
#endif
#ifdef JUMP
Pike_error("Error parsing array at '%c'\n", (char)*p);
#endif
}
push_int((int)p);
return NULL;
}
|
|
|