mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-09 02:33:14 -08:00
Code Issues Projects Releases Packages Wiki Activity

read_constituent() now also reads non-terminating macro characters, because this is the proper way to build/skip a token.

Browse source
This commit is contained in:
jjgarcia 2005-11-04 11:23:36 +00:00
parent ab95aec441
commit 1bb9336485
1 changed files with 11 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/c/read.d
View file

@ -552,20 +552,27 @@ read_constituent(cl_object in)
{
int store = !read_suppress;
cl_object rtbl = ecl_current_readtable();
bool not_first = 0;
cl_env.token->string.fillp = 0;
for (;;) {
int c = ecl_read_char(in);
enum ecl_chattrib c_cat;
if (c == EOF) {
break;
}
if (cat(rtbl, c) != cat_constituent) {
c_cat = cat(rtbl, c);
if (c_cat == cat_constituent ||
((c_cat == cat_non_terminating) && not_first))
{
if (store) {
ecl_string_push_extend(cl_env.token, c);
}
} else {
ecl_unread_char(c, in);
break;
}
if (store) {
ecl_string_push_extend(cl_env.token, c);
}
not_first = 1;
}
return store;
}