static void
read_next(ParseInfo pi, const char *key) {
VALUE obj;
if ((void*)&obj < pi->stack_min) {
rb_raise(rb_eSysStackError, "JSON is too deeply nested");
}
next_non_white(pi); /* skip white space */
switch (*pi->s) {
case '{':
read_hash(pi, key);
break;
case '[':
read_array(pi, key);
break;
case '"':
read_str(pi, key);
break;
case '+':
case '-':
case '0':
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
read_num(pi, key);
break;
case 'I':
read_num(pi, key);
break;
case 't':
read_true(pi, key);
break;
case 'f':
read_false(pi, key);
break;
case 'n':
read_nil(pi, key);
break;
case '\0':
return;
default:
return;
}
}
VALUE read_any_raw(unsigned char **pData) {
switch(peek_1(pData)) {
case ERL_SMALL_INT:
return read_small_int(pData);
break;
case ERL_INT:
return read_int(pData);
break;
case ERL_FLOAT:
return read_float(pData);
break;
case ERL_ATOM:
return read_atom(pData);
break;
case ERL_PID:
return read_pid(pData);
break;
case ERL_SMALL_TUPLE:
return read_small_tuple(pData);
break;
case ERL_LARGE_TUPLE:
return read_large_tuple(pData);
break;
case ERL_NIL:
return read_nil(pData);
break;
case ERL_STRING:
return read_string(pData);
break;
case ERL_LIST:
return read_list(pData);
break;
case ERL_BIN:
return read_bin(pData);
break;
case ERL_SMALL_BIGNUM:
return read_small_bignum(pData);
break;
case ERL_LARGE_BIGNUM:
return read_large_bignum(pData);
break;
case ERL_NEW_REF:
return read_new_reference(pData);
break;
}
return Qnil;
}
VALUE read_any_raw(unsigned char **pData, VALUE forceToEncoding) {
switch(peek_1(pData)) {
case ERL_SMALL_INT:
return read_small_int(pData);
break;
case ERL_INT:
return read_int(pData);
break;
case ERL_FLOAT:
return read_float(pData);
break;
case ERL_ATOM:
return read_atom(pData);
break;
case ERL_SMALL_TUPLE:
return read_small_tuple(pData, forceToEncoding);
break;
case ERL_LARGE_TUPLE:
return read_large_tuple(pData, forceToEncoding);
break;
case ERL_NIL:
return read_nil(pData);
break;
case ERL_STRING:
return read_string(pData, forceToEncoding);
break;
case ERL_LIST:
return read_list(pData, forceToEncoding);
break;
case ERL_BIN:
return read_bin(pData, forceToEncoding);
break;
case ERL_SMALL_BIGNUM:
return read_small_bignum(pData);
break;
case ERL_LARGE_BIGNUM:
return read_large_bignum(pData);
break;
}
return Qnil;
}
