#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;

static const int JSON_array_en_main = 1;

#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;
}