aboutsummaryrefslogtreecommitdiff
path: root/spec/outputs/compile_doc.lua
diff options
context:
space:
mode:
Diffstat (limited to 'spec/outputs/compile_doc.lua')
-rw-r--r--spec/outputs/compile_doc.lua40
1 files changed, 18 insertions, 22 deletions
diff --git a/spec/outputs/compile_doc.lua b/spec/outputs/compile_doc.lua
index 7597cb8..29f4aeb 100644
--- a/spec/outputs/compile_doc.lua
+++ b/spec/outputs/compile_doc.lua
@@ -19,31 +19,27 @@ for _index_0 = 1, #_list_0 do
19 local text = _with_0:read("*a") 19 local text = _with_0:read("*a")
20 local codes = { } 20 local codes = { }
21 for code in text:gmatch("```moonscript(.-)```") do 21 for code in text:gmatch("```moonscript(.-)```") do
22 do 22 local result, err = to_lua(code, {
23 local result, err = to_lua(code, { 23 implicit_return_root = false,
24 implicit_return_root = false, 24 reserve_line_number = false
25 reserve_line_number = false 25 })
26 }) 26 if result then
27 if result then 27 codes[#codes + 1] = result
28 codes[#codes + 1] = result 28 elseif not err:match("macro exporting module only accepts macro definition") then
29 elseif not err:match("macro exporting module only accepts macro definition") then 29 print(err)
30 print(err) 30 os.exit(1)
31 os.exit(1)
32 end
33 end 31 end
34 end 32 end
35 for code in text:gmatch("<pre>(.-)</pre>") do 33 for code in text:gmatch("<pre>(.-)</pre>") do
36 do 34 local result, err = to_lua(code:gsub("&lt;", "<"):gsub("&gt;", ">"), {
37 local result, err = to_lua(code:gsub("&lt;", "<"):gsub("&gt;", ">"), { 35 implicit_return_root = false,
38 implicit_return_root = false, 36 reserve_line_number = false
39 reserve_line_number = false 37 })
40 }) 38 if result then
41 if result then 39 codes[#codes + 1] = result
42 codes[#codes + 1] = result 40 else
43 else 41 print(err)
44 print(err) 42 os.exit(1)
45 os.exit(1)
46 end
47 end 43 end
48 end 44 end
49 local output <close> = (function() 45 local output <close> = (function()