Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix formatting

Browse source
This commit is contained in:
Ekaitz Zarraga 2020-05-22 00:30:24 +02:00
parent 64d04f0638
commit 1cc24e37d9
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lib/chibi/json.c
View file

@ -56,10 +56,10 @@ sexp parse_json_literal (sexp ctx, sexp self, sexp str, const char* s, int* i, c
#define USEQ_LEN 4 #define USEQ_LEN 4
long decode_useq(const char* s){ long decode_useq(const char* s) {
char utf_tmp[USEQ_LEN+1]; char utf_tmp[USEQ_LEN+1];
for (int iter=0; iter!=USEQ_LEN; iter++){ for (int iter=0; iter!=USEQ_LEN; iter++) {
if (!isxdigit(s[iter])){ if (!isxdigit(s[iter])) {
return -1; return -1;
} }
} }
@ -94,20 +94,20 @@ sexp parse_json_string (sexp ctx, sexp self, sexp str, const char* s, int* i, co
break; break;
case 'u': case 'u':
utfchar = decode_useq(s+to+1); utfchar = decode_useq(s+to+1);
if (utfchar == -1){ if (utfchar == -1) {
res = sexp_json_exception(ctx, self, "invalid \\u sequence at", str, *i); res = sexp_json_exception(ctx, self, "invalid \\u sequence at", str, *i);
goto except; goto except;
} }
to = to+USEQ_LEN; to = to+USEQ_LEN;
if ( 0xd800 <= utfchar && utfchar <= 0xdbff && s[to+2] == 'u'){ if ( 0xd800 <= utfchar && utfchar <= 0xdbff && s[to+2] == 'u') {
utfchar2 = decode_useq(s+to+3); utfchar2 = decode_useq(s+to+3);
if (utfchar2 == -1){ if (utfchar2 == -1) {
res = sexp_json_exception(ctx, self, "invalid \\u sequence at", str, *i); res = sexp_json_exception(ctx, self, "invalid \\u sequence at", str, *i);
goto except; goto except;
} }
if ( 0xdc00 <= utfchar2 && utfchar <=0xdfff ){ if ( 0xdc00 <= utfchar2 && utfchar <=0xdfff ) {
utfchar = 0x10000 + (((utfchar - 0xd800) << 10) | (utfchar2 - 0xdc00)); utfchar = 0x10000 + (((utfchar - 0xd800) << 10) | (utfchar2 - 0xdc00));
to = to + USEQ_LEN +2; to = to + USEQ_LEN +2;
} }