mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

* read.c (skip_scsh_block_comment): SCSH says the !# that ends a

Browse source 
#! block comment must occur on a line all by itself.
This commit is contained in:
Jim Blandy 1997-04-19 13:25:28 +00:00
parent 0487b82f9f
commit f973126498
1 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/read.c
View file

@ -239,13 +239,16 @@ recsexpr (obj, line, column, filename)
/* Consume an SCSH-style block comment. Assume that we've already /* Consume an SCSH-style block comment. Assume that we've already
read the initial `#!', and eat characters until the matching `!#'. */ read the initial `#!', and eat characters until we get a
newline/exclamation-point/sharp-sign/newline sequence. */
static void static void
skip_scsh_block_comment (port) skip_scsh_block_comment (port)
SCM port; SCM port;
{ {
char last_c = '\0'; /* Is this portable? Dear God, spare me from the non-eight-bit
characters. But is it tasteful? */
long history = 0;
for (;;) for (;;)
{ {
@ -254,10 +257,11 @@ skip_scsh_block_comment (port)
if (c == EOF) if (c == EOF)
scm_wta (SCM_UNDEFINED, scm_wta (SCM_UNDEFINED,
"unterminated `#! ... !#' comment", "read"); "unterminated `#! ... !#' comment", "read");
else if (c == '#' && last_c == '!') history = ((history << 8) | (c & 0xff)) & 0xffffffff;
return;
last_c = c; /* Were the last four characters read "\n!#\n"? */
if (history == (('\n' << 24) | ('!' << 16) | ('#' << 8) | '\n'))
return;
} }
} }