add doc codes check.

1 files changed, 57 insertions, 0 deletions

diff --git a/spec/outputs/compile_doc.lua b/spec/outputs/compile_doc.lua
new file mode 100644
index 0000000..7597cb8
--- /dev/null
+++ b/spec/outputs/compile_doc.lua
@@ -0,0 +1,57 @@
+local outputFolder = ...
+local _list_0 = {
+        {
+                "codes_from_doc.lua",
+                "doc/docs/doc/README.md"
+        },
+        {
+                "codes_from_doc_zh.lua",
+                "doc/docs/zh/doc/README.md"
+        }
+}
+for _index_0 = 1, #_list_0 do
+        local _des_0 = _list_0[_index_0]
+        local compiledFile, docFile = _des_0[1], _des_0[2]
+        local input <close> = (function()
+                local _with_0 = io.open(docFile)
+                if _with_0 ~= nil then
+                        local to_lua = require("yue").to_lua
+                        local text = _with_0:read("*a")
+                        local codes = { }
+                        for code in text:gmatch("```moonscript(.-)```") do
+                                do
+                                        local result, err = to_lua(code, {
+                                                implicit_return_root = false,
+                                                reserve_line_number = false
+                                        })
+                                        if result then
+                                                codes[#codes + 1] = result
+                                        elseif not err:match("macro exporting module only accepts macro definition") then
+                                                print(err)
+                                                os.exit(1)
+                                        end
+                                end
+                        end
+                        for code in text:gmatch("<pre>(.-)</pre>") do
+                                do
+                                        local result, err = to_lua(code:gsub("&lt;", "<"):gsub("&gt;", ">"), {
+                                                implicit_return_root = false,
+                                                reserve_line_number = false
+                                        })
+                                        if result then
+                                                codes[#codes + 1] = result
+                                        else
+                                                print(err)
+                                                os.exit(1)
+                                        end
+                                end
+                        end
+                        local output <close> = (function()
+                                local _with_1 = io.open(tostring(outputFolder) .. "/" .. tostring(compiledFile), "w+")
+                                _with_1:write(table.concat(codes))
+                                return _with_1
+                        end)()
+                end
+                return _with_0
+        end)()
+end