Fixed error in old Markdown library.

Author: ReFreezed

examples/testsite/scripts/tests/runTests.lua

@@ -26,12 +26,24 @@ return function()
 		return contents
 	end
 
+	local function formatBytes(n)
+		if     n >= 1024^4/10 then  return F("%.2f TiB", n/1024^4)
+		elseif n >= 1024^3/10 then  return F("%.2f GiB", n/1024^3)
+		elseif n >= 1024^2/10 then  return F("%.2f MiB", n/1024^2)
+		elseif n >= 1024^1/10 then  return F("%.2f KiB", n/1024^1)
+		else                        return F("%d bytes", n       )  end
+	end
+
+
+
 	--[[ XML module tests.
 	-- require"pl.xml"
 	timerStart("our") ; tests.xmlTests(xml)             ; timerEnd()
 	-- timerStart("pl")  ; tests.xmlTests(require"pl.xml") ; timerEnd()
 	--]]
 
+
+
 	--[==[ XML parsing.
 	local xmlStr = (
 		readTextFile"../../local/test-wordpress-export.xml" or
@@ -63,6 +75,8 @@ return function()
 	-- print(doc:tostring())
 	--]==]
 
+
+
 	--[==[ HTML parsing.
 	local htmlStr = (
 		-- readTextFile"../../local/test-youtube-watch-page.html" or
@@ -102,6 +116,8 @@ return function()
 	print(doc:toHtml())
 	--]==]
 
+
+
 	-- [[ Markdown parsing.
 	do
 		local TEST_OUTPUT_REPLACEMENTS = {
@@ -193,7 +209,7 @@ return function()
 					:gsub("'", "'")
 				)
 
-				if html ~= test.output then
+				if html ~= test.output and 1==1 then
 					print(((
 						"Error @ Test "..test.n..":\n"
 						-- .."================================\n"
@@ -216,6 +232,8 @@ return function()
 	end
 	--]]
 
+
+
 	--[[ Get image dimensions.
 	local path = "/images/sakura-trees.jpg"
 	local w, h = assert(XXX_getImageDimensionsFast(path, true))
@@ -230,8 +248,12 @@ return function()
 	-- print(require"socket.core".gettime()-time)
 	--]]
 
+
+
 	print()
 	print("TESTS COMPLETED!!!")
+	print("Memory: "..formatBytes(collectgarbage"count"*1024))
 	print()
+
 	os.exit(2)
 end

lib/markdownOld.lua

@@ -1141,7 +1141,9 @@ function strip_link_definitions(text)
 	local linkdb = {}
 
 	local function link_def(id, url, title)
-		id = id:match("%[(.+)%]"):lower()
+		id = id:match("%[(.+)%]")
+		if not id then  return  end
+		id = id:lower()
 		linkdb[id] = linkdb[id] or {}
 		linkdb[id].url = url or linkdb[id].url
 		linkdb[id].title = title or linkdb[id].title

src/markdown.lua2p

@@ -22,11 +22,11 @@ local PATTERN_LINE                        = "[^\n]*"
 local PATTERN_BLANK_LINE                  = "^[ \t]*$"
 local PATTERN_WHITESPACE_CHAR             = "[ \t\n\v\f]" -- Excluding \r.
 local PATTERN_WHITESPACE_SEQUENCE         = PATTERN_WHITESPACE_CHAR.."+"
-local PATTERN_UNICODE_WHITESPACE_CHAR     = PATTERN_WHITESPACE_CHAR -- @Incomplete: Include Unicode Zs.
+local PATTERN_UNICODE_WHITESPACE_CHAR     = PATTERN_WHITESPACE_CHAR -- @Incomplete: Include Unicode general category Zs.
 local PATTERN_NON_WHITESPACE_CHAR         = "[^ \t\n\v\f]"
-local PATTERN_NON_UNICODE_WHITESPACE_CHAR = "[^ \t\n\v\f]" -- @Incomplete: Include Unicode Zs.
+local PATTERN_NON_UNICODE_WHITESPACE_CHAR = "[^ \t\n\v\f]" -- @Incomplete: Include Unicode general category Zs.
 local PATTERN_ASCII_PUNCTUATION_CHAR      = "[\33-\47\58-\64\91-\96\123-\126]"
-local PATTERN_PUNCTUATION_CHAR            = PATTERN_ASCII_PUNCTUATION_CHAR -- @Incomplete: Include Unicode Pc+Pd+Pe+Pf+Pi+Po+Ps.
+local PATTERN_PUNCTUATION_CHAR            = PATTERN_ASCII_PUNCTUATION_CHAR -- @Incomplete: Include Unicode general category P (Pc+Pd+Pe+Pf+Pi+Po+Ps).
 
 local REPLACEMENT_CHARACTER = "\239\191\189" -- U+FFFD
 
@@ -1847,7 +1847,7 @@ function markdown.parse(s)
 				local codeEl = preEl[1]
 
 				local toTrim  = (preEl._contentStartColumn-1) % 4
-				local trimPat = toTrim > 0 and "^"..(" ?"):rep(toTrim) or nil -- :HandleTabs
+				local trimPat = toTrim > 0 and "^"..(" ?"):rep(toTrim) or nil -- @Incomplete: Handle tabs.
 
 				for i, emptyLine in ipairs(blankLines) do
 					if trimPat then  emptyLine = emptyLine:gsub(trimPat, "")  end
@@ -2164,7 +2164,7 @@ function markdown.parse(s)
 					assert(codeEl.tag == "code")
 
 					for i, emptyLine in ipairs(blankLines) do
-						table.insert(codeEl, emptyLine:sub(5)) -- :HandleTabs
+						table.insert(codeEl, emptyLine:sub(5)) -- @Incomplete: Handle tabs.
 						table.insert(codeEl, "\n")
 						blankLines[i] = nil
 					end