mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 01:00:20 +02:00
Code Activity

implement r6rs hungry escaped EOL

Browse source 
* libguile/private-options.h (SCM_HUNGRY_EOL_ESCAPES_P): New private
  option.
* libguile/read.c: Define SCM_HUNGRY_EOL_ESCAPES_P, defaulting to #f.
  (skip_intraline_whitespace): New helper.
  (scm_read_string): If SCM_HUNGRY_EOL_ESCAPES_P,
  skip_intraline_whitespace after an escaped EOL.

* test-suite/tests/reader.test ("read-options"): Add test.
This commit is contained in:
Andy Wingo 2011-01-21 08:57:39 +01:00
parent b04f841d5f
commit 684d664e39
3 changed files with 41 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

21
libguile/read.c
View file

@ -29,6 +29,7 @@
#include <string.h>
#include <unistd.h>
#include <unicase.h>
#include <unictype.h>
#include "libguile/_scm.h"
#include "libguile/bytevectors.h"
@ -75,6 +76,8 @@ scm_t_option scm_read_opts[] = {
"Use R6RS variable-length character and string hex escapes."},
{ SCM_OPTION_BOOLEAN, "square-brackets", 1,
"Treat `[' and `]' as parentheses, for R6RS compatibility."},
{ SCM_OPTION_BOOLEAN, "hungry-eol-escapes", 0,
"In strings, consume leading whitespace after an escaped end-of-line."},
{ 0, },
};
@ -486,6 +489,22 @@ scm_read_sexp (scm_t_wchar chr, SCM port)
} \
} while (0)
static void
skip_intraline_whitespace (SCM port)
{
scm_t_wchar c;
do
{
c = scm_getc (port);
if (c == EOF)
return;
}
while (c == '\t' || uc_is_general_category (c, UC_SPACE_SEPARATOR));
scm_ungetc (c, port);
}
static SCM
scm_read_string (int chr, SCM port)
#define FUNC_NAME "scm_lreadr"
@ -524,6 +543,8 @@ scm_read_string (int chr, SCM port)
case '\\':
break;
case '\n':
if (SCM_HUNGRY_EOL_ESCAPES_P)
skip_intraline_whitespace (port);
continue;
case '0':
c = '\0';