double n;
char *buf;
Rune peeked;
- jmp_buf jmp;
- int canjmp;
};
static Rune
l->peeked = 0;
return r;
}
+ if(l->s[0] == '\0')
+ return 0;
l->s += chartorune(&r, l->s);
return r;
}
return l->peeked;
}
+static Rune
+peeknonspace(Lex *l)
+{
+ Rune r;
+
+ for(;;){
+ r = peekch(l);
+ if(r != 0x20 && r != 0x09 && r != 0x0A && r != 0x0D)
+ break;
+ getch(l);
+ }
+ return r;
+}
+
static int
fixsurrogate(Rune *rp, Rune r2)
{
int i;
char c;
- for(;;){
- r = peekch(l);
- if(r != 0x20 && r != 0x09 && r != 0x0A && r != 0x0D)
- break;
- getch(l);
- }
+ peeknonspace(l);
r = getch(l);
- if(r == ']' && l->canjmp)
- longjmp(l->jmp, 1);
- l->canjmp = 0;
if(r == 0 || r == '{' || r == '[' || r == ']' || r == '}' || r == ':' || r == ','){
l->t = r;
return 0;
JSONEl **ln;
int obj;
- l->buf = mallocz(l->slen, 1);
- if(l->buf == nil)
+ if((j = mallocz(sizeof(*j), 1)) == nil)
return nil;
- j = mallocz(sizeof(*j), 1);
- if(j == nil)
- return nil;
if(lex(l) < 0){
error:
free(j);
break;
case TSTRING:
j->t = JSONString;
- j->s = strdup(l->buf);
- if(j->s == nil)
+ if((j->s = strdup(l->buf)) == nil)
goto error;
break;
case TNUM:
case '[':
obj = l->t == '{';
ln = &j->first;
- e = nil;
if(obj){
j->t = JSONObject;
if(lex(l) < 0)
goto firstobj;
}else{
j->t = JSONArray;
- l->canjmp = 1;
- if(setjmp(l->jmp) > 0){
- free(e);
+ if(peeknonspace(l) == ']'){
+ getch(l);
return j;
}
}
werrstr("json: syntax error, not string");
goto abort;
}
- e = mallocz(sizeof(*e), 1);
- if(e == nil)
+ if((e = mallocz(sizeof(*e), 1)) == nil)
goto abort;
e->name = strdup(l->buf);
if(e->name == nil || lex(l) < 0){
goto abort;
}
}else{
- e = mallocz(sizeof(*e), 1);
- if(e == nil)
+ if((e = mallocz(sizeof(*e), 1)) == nil)
goto abort;
}
e->val = jsonobj(l);
JSON*
jsonparse(char *s)
{
+ JSON *j;
Lex l;
memset(&l, 0, sizeof(l));
l.s = s;
- l.slen = strlen(s)+1;
- return jsonobj(&l);
+ l.slen = strlen(s);
+ if((l.buf = mallocz(l.slen+UTFmax+1, 1)) == nil)
+ return nil;
+
+ j = jsonobj(&l);
+ free(l.buf);
+ return j;
}
void
{
JSONEl *e, *f;
+ if(j == nil)
+ return;
switch(j->t){
case JSONString:
if(j->s)