syndicate-lang
/
hop-2012
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add sexp_read_atom()

This commit is contained in:
Tony Garnock-Jones 2010-12-29 18:34:09 -05:00
parent 20ef8dfd46
commit 23cb773630
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
sexpio.c
View File

@ -55,6 +55,10 @@ static sexp_t *read_simple_string(IOHandle *h, cmsg_bytes_t buf) {
}
}
sexp_t *sexp_read_atom(IOHandle *h) {
return read_simple_string(h, EMPTY_BYTES);
}
#define CHECKH \
if (h->error_kind) goto error;

1
sexpio.h
View File

@ -4,6 +4,7 @@
#define SEXP_ERROR_OVERFLOW 0x8000
#define SEXP_ERROR_SYNTAX 0x8001
extern sexp_t *sexp_read_atom(IOHandle *h);
extern sexp_t *sexp_read(IOHandle *h);
extern unsigned short sexp_write(IOHandle *h, sexp_t *x);