blob: 45a0b169f87ed869d483c92b022dd15132cbce8a (
plain)
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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
outputFolder = ...
for [compiledFile, docFiles] in *[
["codes_from_doc.lua", [
"doc/docs/doc/introduction.md"
"doc/docs/doc/macro.md"
"doc/docs/doc/operator.md"
"doc/docs/doc/module.md"
"doc/docs/doc/assignment.md"
"doc/docs/doc/destructuring-assignment.md"
"doc/docs/doc/if-assignment.md"
"doc/docs/doc/varargs-assignment.md"
"doc/docs/doc/whitespace.md"
"doc/docs/doc/comment.md"
"doc/docs/doc/try.md"
"doc/docs/doc/attributes.md"
"doc/docs/doc/literals.md"
"doc/docs/doc/function-literals.md"
"doc/docs/doc/backcalls.md"
"doc/docs/doc/table-literals.md"
"doc/docs/doc/comprehensions.md"
"doc/docs/doc/for-loop.md"
"doc/docs/doc/while-loop.md"
"doc/docs/doc/continue.md"
"doc/docs/doc/conditionals.md"
"doc/docs/doc/line-decorators.md"
"doc/docs/doc/switch.md"
"doc/docs/doc/object-oriented-programming.md"
"doc/docs/doc/with-statement.md"
"doc/docs/doc/do.md"
"doc/docs/doc/function-stubs.md"
"doc/docs/doc/the-using-clause-controlling-destructive-assignment.md"
]]
["codes_from_doc_zh.lua", [
"doc/docs/zh/doc/introduction.md"
"doc/docs/zh/doc/macro.md"
"doc/docs/zh/doc/operator.md"
"doc/docs/zh/doc/module.md"
"doc/docs/zh/doc/assignment.md"
"doc/docs/zh/doc/destructuring-assignment.md"
"doc/docs/zh/doc/if-assignment.md"
"doc/docs/zh/doc/varargs-assignment.md"
"doc/docs/zh/doc/whitespace.md"
"doc/docs/zh/doc/comment.md"
"doc/docs/zh/doc/try.md"
"doc/docs/zh/doc/attributes.md"
"doc/docs/zh/doc/literals.md"
"doc/docs/zh/doc/function-literals.md"
"doc/docs/zh/doc/backcalls.md"
"doc/docs/zh/doc/table-literals.md"
"doc/docs/zh/doc/comprehensions.md"
"doc/docs/zh/doc/for-loop.md"
"doc/docs/zh/doc/while-loop.md"
"doc/docs/zh/doc/continue.md"
"doc/docs/zh/doc/conditionals.md"
"doc/docs/zh/doc/line-decorators.md"
"doc/docs/zh/doc/switch.md"
"doc/docs/zh/doc/object-oriented-programming.md"
"doc/docs/zh/doc/with-statement.md"
"doc/docs/zh/doc/do.md"
"doc/docs/zh/doc/function-stubs.md"
"doc/docs/zh/doc/the-using-clause-controlling-destructive-assignment.md"
]]
]
codes = []
for docFile in *docFiles
close input = with? io.open docFile
import "yue" as :to_lua
text = \read "*a"
for code in text\gmatch "```yuescript[\r\n]+(.-)```[^%w]"
if result, err := to_lua code, implicit_return_root: false, reserve_line_number: false
codes[] = result
elseif not err\match "macro exporting module only accepts macro definition"
print err
os.exit 1
for code in text\gmatch "```yue[\r\n]+(.-)```[^%w]"
if result, err := to_lua code, implicit_return_root: false, reserve_line_number: false
codes[] = result
else
print err
os.exit 1
close output = with io.open "#{outputFolder}/#{compiledFile}", "w+"
\write table.concat codes
|
