Updated doc.

4 files changed, 71 insertions, 11 deletions

diff --git a/spec/inputs/compile_doc.yue b/spec/inputs/compile_doc.yue
index c189c17..db0464b 100644
--- a/spec/inputs/compile_doc.yue
+++ b/spec/inputs/compile_doc.yue
@@ -7,13 +7,13 @@ for [compiledFile, docFile] in *[
                 import "yue" as :to_lua
                 text = \read "*a"
                 codes = []
-                for code in text\gmatch "```moonscript(.-)```"
+                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(.-)```"
+                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
diff --git a/spec/outputs/codes_from_doc.lua b/spec/outputs/codes_from_doc.lua
index 3b0724a..b8985e7 100644
--- a/spec/outputs/codes_from_doc.lua
+++ b/spec/outputs/codes_from_doc.lua
@@ -107,7 +107,7 @@ if cond then
 end
 end
 print("yuescript")
-print(3)
+print(2)
 print("Valid enum type:", "Static")
 do
         print(123, "hello")
@@ -992,6 +992,36 @@ local arg1 = {
         a = 0
 }
 f2(arg1, arg2)
+local findFirstEven
+findFirstEven = function(list)
+        for _index_0 = 1, #list do
+                local item = list[_index_0]
+                if type(item) == "table" then
+                        for _index_1 = 1, #item do
+                                local sub = item[_index_1]
+                                if sub % 2 == 0 then
+                                        return sub
+                                end
+                        end
+                end
+        end
+        return nil
+end
+local findFirstEven
+findFirstEven = function(list)
+        for _index_0 = 1, #list do
+                local item = list[_index_0]
+                if type(item) == "table" then
+                        for _index_1 = 1, #item do
+                                local sub = item[_index_1]
+                                if sub % 2 == 0 then
+                                        return sub
+                                end
+                        end
+                end
+        end
+        return nil
+end
 local f
 f = function(...)
         local t = {
@@ -2637,7 +2667,7 @@ if cond then
 end
 end
 print("yuescript")
-print(3)
+print(2)
 print("Valid enum type:", "Static")
 do
         print(123, "hello")
diff --git a/spec/outputs/codes_from_doc_zh.lua b/spec/outputs/codes_from_doc_zh.lua
index 89335c9..2aa354e 100644
--- a/spec/outputs/codes_from_doc_zh.lua
+++ b/spec/outputs/codes_from_doc_zh.lua
@@ -107,7 +107,7 @@ if cond then
 end
 end
 print("yuescript")
-print(3)
+print(2)
 print("有效的枚举类型:", "Static")
 do
         print(123, "hello")
@@ -986,6 +986,36 @@ local arg1 = {
         a = 0
 }
 f2(arg1, arg2)
+local findFirstEven
+findFirstEven = function(list)
+        for _index_0 = 1, #list do
+                local item = list[_index_0]
+                if type(item) == "table" then
+                        for _index_1 = 1, #item do
+                                local sub = item[_index_1]
+                                if sub % 2 == 0 then
+                                        return sub
+                                end
+                        end
+                end
+        end
+        return nil
+end
+local findFirstEven
+findFirstEven = function(list)
+        for _index_0 = 1, #list do
+                local item = list[_index_0]
+                if type(item) == "table" then
+                        for _index_1 = 1, #item do
+                                local sub = item[_index_1]
+                                if sub % 2 == 0 then
+                                        return sub
+                                end
+                        end
+                end
+        end
+        return nil
+end
 local f
 f = function(...)
         local t = {
@@ -2631,7 +2661,7 @@ if cond then
 end
 end
 print("yuescript")
-print(3)
+print(2)
 print("有效的枚举类型:", "Static")
 do
         print(123, "hello")
diff --git a/spec/outputs/compile_doc.lua b/spec/outputs/compile_doc.lua
index 3781fb9..e7d307d 100644
--- a/spec/outputs/compile_doc.lua
+++ b/spec/outputs/compile_doc.lua
@@ -2,11 +2,11 @@ local outputFolder = ...
 local _list_0 = {
         {
                 "codes_from_doc.lua",
-                "doc/docs/doc/README.md"
+                "doc/docs/doc/index.md"
         },
         {
                 "codes_from_doc_zh.lua",
-                "doc/docs/zh/doc/README.md"
+                "doc/docs/zh/doc/index.md"
         }
 }
 for _index_0 = 1, #_list_0 do
@@ -18,7 +18,7 @@ for _index_0 = 1, #_list_0 do
                 local to_lua = require("yue").to_lua
                 local text = _with_0:read("*a")
                 local codes = { }
-                for code in text:gmatch("```moonscript(.-)```") do
+                for code in text:gmatch("```yuescript[\r\n]+(.-)```[^%w]") do
                         local result, err = to_lua(code, {
                                 implicit_return_root = false,
                                 reserve_line_number = false
@@ -30,8 +30,8 @@ for _index_0 = 1, #_list_0 do
                                 os.exit(1)
                         end
                 end
-                for code in text:gmatch("<pre>(.-)</pre>") do
-                        local result, err = to_lua(code:gsub("&lt;", "<"):gsub("&gt;", ">"), {
+                for code in text:gmatch("```yue[\r\n]+(.-)```[^%w]") do
+                        local result, err = to_lua(code, {
                                 implicit_return_root = false,
                                 reserve_line_number = false
                         })