Function xs_jsonparser_receive

contributed/jsonparser/jsonparser.c:646–942

}

void xs_jsonparser_receive(xsMachine *the)
{
	struct jsonparser *fsm = xsmcGetHostData(xsThis);

	if (fsm == C_NULL)
		xsUnknownError((char *)execute_on_closed);

	int count = 0;
	if (fsm->cs != JSON_error) {

		xsmcVars(XS_COUNT);
		xsmcGet(xsVar(XS_KEYS), xsThis, xsID_keys);
		xsmcGet(xsVar(XS_VPT), xsThis, xsID_vpt);

		// be careful with XS macros between here and copying our string into the buffer
		char *string = xsmcToString(xsArg(0)); // required string
		int length = c_strlen(string);
		int start = arg_to_index(the, 1, 0, length); // optional string slice start (default value is 0)
		int end = arg_to_index(the, 2, length, length); // optional string slice end (default value is length)
		string = xsmcToString(xsArg(0)); // reset the string after evaluating the start/end args
		if (start < end) {
			int offset = start;
			int size = end - start;
			if (offset >= 0 && size > 0) {
				char *buffer = C_NULL;
				xsTry {
					buffer = c_malloc(size);
					if (buffer == C_NULL)
						xsUnknownError((char *)not_enough_memory);
					c_memcpy(buffer, string + offset, size);

					const char *p = buffer;
					const char *pe = buffer + size;

					
#line 682 "jsonparser.c"
	{
	int _klen;
	const char *_keys;
	int _trans;

	if ( p == pe )
		goto _test_eof;
	if (  fsm->cs == 0 )
		goto _out;
_resume:
	_keys = _JSON_trans_keys + c_read16( &_JSON_key_offsets[ fsm->cs] );
	_trans = c_read16( &_JSON_index_offsets[ fsm->cs] );

	_klen = c_read8( &_JSON_single_lengths[ fsm->cs] );
	if ( _klen > 0 ) {
		const char *_lower = _keys;
		const char *_mid;
		const char *_upper = _keys + _klen - 1;
		while (1) {
			if ( _upper < _lower )
				break;