From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 30 May 2017 17:04:35 +0000 (-0500)
Subject: multiline: Add [[ as string/comment parsers.
X-Git-Tag: unmaintained~29
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=75d6395849a999bd6eef9aadd95d5f027bcbcf8f

multiline: Add [[ as string/comment parsers.
---

diff --git a/basis/multiline/multiline.factor b/basis/multiline/multiline.factor
index 1c2c1d462d..69389f68c2 100644
--- a/basis/multiline/multiline.factor
+++ b/basis/multiline/multiline.factor
@@ -91,3 +91,19 @@ SYNTAX: HEREDOC:
         [ next-line ]
         [ parse-til-line-begins ]
     } cleave suffix! ;
+
+SYNTAX: [[ "]]" parse-multiline-string suffix! ;
+SYNTAX: [=[ "]=]" parse-multiline-string suffix! ;
+SYNTAX: [==[ "]==]" parse-multiline-string suffix! ;
+SYNTAX: [===[ "]===]" parse-multiline-string suffix! ;
+SYNTAX: [====[ "]====]" parse-multiline-string suffix! ;
+SYNTAX: [=====[ "]=====]" parse-multiline-string suffix! ;
+SYNTAX: [======[ "]======]" parse-multiline-string suffix! ;
+
+SYNTAX: ![[ "]]" parse-multiline-string drop ;
+SYNTAX: ![=[ "]=]" parse-multiline-string drop ;
+SYNTAX: ![==[ "]==]" parse-multiline-string drop ;
+SYNTAX: ![===[ "]===]" parse-multiline-string drop ;
+SYNTAX: ![====[ "]====]" parse-multiline-string drop ;
+SYNTAX: ![=====[ "]=====]" parse-multiline-string drop ;
+SYNTAX: ![======[ "]======]" parse-multiline-string drop ;