Heredoc strings.

Fixed a problem with combining --fullpaths and --meta.

Author: ReFreezed

examples/testsite/content/tests.md

@@ -23,10 +23,10 @@ An image < <img src="{{ /images/head.png }}"> > inside markdown.
 
 An image < {{ '<img src="'..url'/images/head.png'..'">' }} > inside markdown.
 
-{{-- Line comment. {{"nope"}}
+{{-- Line comment. {{"ignored"}}
 }}
-{{--[[ Block comment. {{"nope"}} ]]}}
-{{--[=[ --[[ Messy block comment. {{"nope"}} ]] ]=]}}
+{{--[[ Block comment. {{"ignored"}} ]]}}
+{{--[=[ --[[ Messy block comment. {{"ignored"}} ]] ]=]}}
 
 {{
 -- globalVar = 123 -- Error: Cannot assign globals!
@@ -113,6 +113,32 @@ Markdown parsing, problematic link: [Snake!](https://en.wikipedia.org/wiki/Snake
 
 Markdown parsing, solution: [Snake!](<https://en.wikipedia.org/wiki/Snake_(video_game_genre)>)
 
+{{
+-- Heredoc strings.
+local s1 = ===
+}}
+abc
+{{ 1+8 }}
+xyz
+{{
+===
+local s2 = ===
+*}}
+abc
+{{ 1+8 }}
+xyz
+{{*
+===
+
+echoRaw("<div>\n<pre>")
+echo(s1)
+echoRaw("</pre>\n</div>")
+
+echoRaw("<div>\n<pre>")
+echo(s2)
+echoRaw("</pre>\n</div>")
+}}
+
 
 
 ## Value Expressions

src/app.lua2p

@@ -1202,7 +1202,7 @@ local function setup()
 		-- Hacks. (These are not very robust!)
 		----------------------------------------------------------------
 
-		XXX_minimizeCss = function(s)
+		XXX_minimizeCss = function(s, sourcePath)
 			local oldLen = #s
 			local header = s:match"^/%*.-%*/" or ""
 
@@ -1217,13 +1217,13 @@ local function setup()
 			)
 
 			!if DEV then
-				if verbosePrint then  printf("[opti] %s  from %d  to %d  (diff=%d)", getFilename(path), oldLen, #s, oldLen-#s)  end
+				if verbosePrint then  printf("[opti] %s  from %d  to %d  (diff=%d)", getFilename(sourcePath or "<css>"), oldLen, #s, oldLen-#s)  end
 			!end
 
 			return s
 		end,
 
-		XXX_minimizeJavaScript = function(s)
+		XXX_minimizeJavaScript = function(s, sourcePath)
 			local oldLen = #s
 			local header = s:match"^/%*.-%*/" or ""
 
@@ -1236,13 +1236,13 @@ local function setup()
 			)
 
 			!if DEV then
-				if verbosePrint then  printf("[opti] %s  from %d  to %d  (diff=%d)", getFilename(path), oldLen, #s, oldLen-#s)  end
+				if verbosePrint then  printf("[opti] %s  from %d  to %d  (diff=%d)", getFilename(sourcePath or "<css>"), oldLen, #s, oldLen-#s)  end
 			!end
 
 			return s
 		end,
 
-		XXX_minimizeHtaccess = function(s)
+		XXX_minimizeHtaccess = function(s, sourcePath)
 			local oldLen = #s
 
 			s = (s
@@ -1252,7 +1252,7 @@ local function setup()
 			)
 
 			!if DEV then
-				if verbosePrint then  printf("[opti] %s  from %d  to %d  (diff=%d)", getFilename(path), oldLen, #s, oldLen-#s)  end
+				if verbosePrint then  printf("[opti] %s  from %d  to %d  (diff=%d)", getFilename(sourcePath or "<css>"), oldLen, #s, oldLen-#s)  end
 			!end
 
 			return s