fix \\ in strings to scan up to next non-blank

2010-06-23 11:46:16 +01:00
parent d100e697a3
commit 3e13be32a0
3 changed files with 75 additions and 7 deletions
--- a/C/scanner.c
+++ b/C/scanner.c
@@ -261,9 +261,13 @@ read_quoted_char(int *scan_nextp, int inp_stream, int (*QuotedNxtch)(int))
  ch = QuotedNxtch(inp_stream);
  switch (ch) {
  case 10:
-    ch = QuotedNxtch(inp_stream);
-    if (ch == '\\') goto restart;
-    return ch;
+    do {
+      ch = QuotedNxtch(inp_stream);
+      if (ch == '\\') goto restart;
+      if (chtype(ch) != BS || ch == 10) {
+	return ch;
+      }
+    } while (TRUE);
  case 'a':
    return '\a';
  case 'b':