1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
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
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
for code in text:gmatch("<pre>(.-)</pre>") do
local result, err = to_lua(code:gsub("<", "<"):gsub(">", ">"), {
implicit_return_root = false,
reserve_line_number = false
})
if result then
codes[#codes + 1] = result
else
print(err)
os.exit(1)
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
|
