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:43:43 +00:00
parent c697b71d67
commit 93798144b2
2 changed files with 22 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
read.scm
View file

@ -743,6 +743,9 @@
(reverse lis))
(else
(loop (cons t lis) (parse2 fp))))))
((eq? token #())
;; TODO: vector parsing, similar to list
'TODO)
((eq? token #\')
(list 'quote (parse2 fp)))
((eq? token #\`)

22
runtime.c
View file

@ -5946,15 +5946,31 @@ void Cyc_io_read_token(void *data, object cont, object port)
p->col_num++;
// TODO: block comment
if (c == 't') {
if ((p->mem_buf_len - p->buf_idx) >= 3 &&
p->mem_buf[p->buf_idx + 0] == 'r' &&
p->mem_buf[p->buf_idx + 1] == 'u' &&
p->mem_buf[p->buf_idx + 2] == 'e') {
p->buf_idx += 3;
p->col_num += 3;
}
return_closcall1(data, cont, boolean_t);
// TODO: #true
} else if (c == 'f') {
if ((p->mem_buf_len - p->buf_idx) >= 4 &&
p->mem_buf[p->buf_idx + 0] == 'a' &&
p->mem_buf[p->buf_idx + 1] == 'l' &&
p->mem_buf[p->buf_idx + 2] == 's' &&
p->mem_buf[p->buf_idx + 3] == 'e') {
p->buf_idx += 4;
p->col_num += 4;
}
return_closcall1(data, cont, boolean_f);
}
// TODO: #false
// TODO: numbers
// TODO: bytevector
// TODO: vector
} else if (c == '(') {
make_empty_vector(vec);
return_closcall1(data, cont, &vec);
}
// TODO: character
// TODO: datum comment
_read_error(data, p, "Unhandled input sequence");