Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-14 08:17:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Parse unquote / unquote-splicing

Browse source
This commit is contained in:
Justin Ethier 2017-08-14 21:31:31 +00:00
parent eb57300bdd
commit e99bc4c044
2 changed files with 24 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
read.scm
View file

@ -747,9 +747,10 @@
(list 'quote (parse2 fp)))
((eq? token #\`)
(list 'quasiquote (parse2 fp)))
;; TODO: , - tricky, could be unquote or unquote-splicing
;;((eq? t #\`)
;; (list 'quasiquote (parse2 fp)))
((eq? token #\,)
(list 'unquote (parse2 fp)))
((eq? token (string->symbol ",@"))
(list 'unquote-splicing (parse2 fp)))
;; Other special cases?
(else
token))))

21
runtime.c
View file

@ -5858,6 +5858,14 @@ void _read_return_atom(void *data, object cont, port_type *p)
}
}
#define _read_next_char(data, cont, p) \
if (p->mem_buf_len == 0 || p->mem_buf_len == p->buf_idx) { \
int rv = read_from_port(p); \
if (!rv) { \
return_closcall1(data, cont, Cyc_EOF); \
} \
}
void Cyc_io_read_token(void *data, object cont, object port)
{
Cyc_check_port(data, port);
@ -5890,10 +5898,21 @@ void Cyc_io_read_token(void *data, object cont, object port)
} else if (isspace(c)) {
if (p->tok_end) _read_return_atom(data, cont, p);
_read_whitespace(p);
} else if (c == '(' || c == ')' || c == '\'' || c == '`' || c == ',') {
} else if (c == '(' || c == ')' || c == '\'' || c == '`') {
if (p->tok_end) _read_return_atom(data, cont, p);
return_closcall1(data, cont, obj_char2obj(c));
} else if (c == ',') {
if (p->tok_end) _read_return_atom(data, cont, p);
_read_next_char(data, cont, p); // Do another buffer read if needed
if (p->mem_buf[p->buf_idx] == '@') {
object unquote_splicing = find_or_add_symbol(",@");
p->buf_idx++;
p->col_num++;
return_closcall1(data, cont, unquote_splicing);
} else {
return_closcall1(data, cont, obj_char2obj(c));
}
} else if (c == '"') {
if (p->tok_end) _read_return_atom(data, cont, p);
_read_string(data, cont, p);