Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP

Browse source
This commit is contained in:
Justin Ethier 2017-08-14 22:33:18 +00:00
parent 56fcf3bb5b
commit c697b71d67
1 changed files with 17 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
runtime.c
View file

@ -5941,7 +5941,23 @@ void Cyc_io_read_token(void *data, object cont, object port)
if (p->tok_end) _read_return_atom(data, cont, p);
_read_string(data, cont, p);
} else if (c == '#' && !p->tok_end) {
Cyc_rt_raise_msg(data, "TODO: parsing for #");
_read_next_char(data, cont, p); // Fill buffer
c = p->mem_buf[p->buf_idx++];
p->col_num++;
// TODO: block comment
if (c == 't') {
return_closcall1(data, cont, boolean_t);
// TODO: #true
} else if (c == 'f') {
return_closcall1(data, cont, boolean_f);
}
// TODO: #false
// TODO: numbers
// TODO: bytevector
// TODO: vector
// TODO: character
// TODO: datum comment
_read_error(data, p, "Unhandled input sequence");
} else {
// No special meaning, add char to current token (an atom)
_read_add_to_tok_buf(p, c);