Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 06:09:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

adding #| ... |# comment support

Browse source
This commit is contained in:
Alex Shinn 2011-10-02 19:37:31 +09:00
parent ed86eafb13
commit ea9255e934
1 changed files with 18 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
sexp.c
View file

@ -2212,6 +2212,24 @@ sexp sexp_read_raw (sexp ctx, sexp in) {
else else
goto scan_loop; goto scan_loop;
break; break;
case '|':
for (c2 = 1; c2 > 0 && c1 != EOF; ) {
c1 = sexp_read_char(ctx, in);
if (c1 == '#') {
while ((c1 = sexp_read_char(ctx, in)) == '#')
;
if (c1 == '|') c2++;
} else if (c1 == '|') {
while ((c1 = sexp_read_char(ctx, in)) == '|')
;
if (c1 == '#') c2--;
}
}
if (c1 == EOF)
res = sexp_read_error(ctx, "unterminated #| comment", SEXP_NULL, in);
else
goto scan_loop;
break;
case '!': case '!':
#if SEXP_USE_FOLD_CASE_SYMS #if SEXP_USE_FOLD_CASE_SYMS
res = sexp_read_symbol(ctx, in, '!', 0); res = sexp_read_symbol(ctx, in, '!', 0);