From: NeilBrown <neil@brown.name>
Date: Tue, 28 May 2019 05:04:35 +0000 (+1000)
Subject: scanner: fix multi-line strings
X-Git-Url: https://ocean-lang.org/code/?p=ocean;a=commitdiff_plain;h=5513fc2e3fb56bdf2292e834077e0c33f9a5c2a9

scanner: fix multi-line strings

I broke multi-line strings.  A quote cannot be part of an
unknown mark, but it can be part of '"""' or "'''".

Signed-off-by: NeilBrown <neil@brown.name>
---

diff --git a/csrc/scanner.mdc b/csrc/scanner.mdc
index 0abc08c..9a1ea71 100644
--- a/csrc/scanner.mdc
+++ b/csrc/scanner.mdc
@@ -368,7 +368,11 @@ Known marks are included in the same list as the list of known words.
 		prev = ch;
 		save_unget_state(state);
 		ch = get_char(state);
-		if (!(ignored && (1<<TK_string)) && is_quote(ch))
+		if (!(ignored && (1<<TK_string)) && n < 0 &&is_quote(ch) && !is_quote(prev))
+			/* If strings are allowed, a quote (Which isn't a known mark)
+			 * mustn't be treated as part of an unknown mark.  It can be
+			 * part of a multi-line srtings though.
+			 */
 			break;
 		if (prev == '#' && n < 0)
 			/* '#' is not a known mark, so assume it is a comment */