Added the all-in-one doc.

6 files changed, 141 insertions, 5 deletions

diff --git a/spec/outputs/codes_from_doc_de.lua b/spec/outputs/codes_from_doc_de.lua
index 428f788..4c9ba1d 100644
--- a/spec/outputs/codes_from_doc_de.lua
+++ b/spec/outputs/codes_from_doc_de.lua
@@ -2163,6 +2163,18 @@ repeat
         result = _with_0.value
         break
 until true
+local a
+do
+        local _with_0 = obj
+        _with_0.x = 1
+        a = _with_0
+end
+local b
+local _with_0 = obj
+repeat
+        b = _with_0.x
+        break
+until true
 local create_person
 create_person = function(name, relatives)
         local _with_0 = Person()
@@ -2209,6 +2221,18 @@ repeat
         result = _with_0.value
         break
 until true
+local a
+do
+        local _with_0 = obj
+        _with_0.x = 1
+        a = _with_0
+end
+local b
+local _with_0 = obj
+repeat
+        b = _with_0.x
+        break
+until true
 local create_person
 create_person = function(name, relatives)
         local _with_0 = Person()
diff --git a/spec/outputs/codes_from_doc_en.lua b/spec/outputs/codes_from_doc_en.lua
index 4006605..6d822e1 100644
--- a/spec/outputs/codes_from_doc_en.lua
+++ b/spec/outputs/codes_from_doc_en.lua
@@ -2163,6 +2163,18 @@ repeat
         result = _with_0.value
         break
 until true
+local a
+do
+        local _with_0 = obj
+        _with_0.x = 1
+        a = _with_0
+end
+local b
+local _with_0 = obj
+repeat
+        b = _with_0.x
+        break
+until true
 local create_person
 create_person = function(name, relatives)
         local _with_0 = Person()
@@ -2209,6 +2221,18 @@ repeat
         result = _with_0.value
         break
 until true
+local a
+do
+        local _with_0 = obj
+        _with_0.x = 1
+        a = _with_0
+end
+local b
+local _with_0 = obj
+repeat
+        b = _with_0.x
+        break
+until true
 local create_person
 create_person = function(name, relatives)
         local _with_0 = Person()
diff --git a/spec/outputs/codes_from_doc_id-id.lua b/spec/outputs/codes_from_doc_id-id.lua
index 7d95eaa..4026240 100644
--- a/spec/outputs/codes_from_doc_id-id.lua
+++ b/spec/outputs/codes_from_doc_id-id.lua
@@ -2163,6 +2163,18 @@ repeat
         result = _with_0.value
         break
 until true
+local a
+do
+        local _with_0 = obj
+        _with_0.x = 1
+        a = _with_0
+end
+local b
+local _with_0 = obj
+repeat
+        b = _with_0.x
+        break
+until true
 local create_person
 create_person = function(name, relatives)
         local _with_0 = Person()
@@ -2209,6 +2221,18 @@ repeat
         result = _with_0.value
         break
 until true
+local a
+do
+        local _with_0 = obj
+        _with_0.x = 1
+        a = _with_0
+end
+local b
+local _with_0 = obj
+repeat
+        b = _with_0.x
+        break
+until true
 local create_person
 create_person = function(name, relatives)
         local _with_0 = Person()
diff --git a/spec/outputs/codes_from_doc_pt-br.lua b/spec/outputs/codes_from_doc_pt-br.lua
index caa15d6..0d0c76f 100644
--- a/spec/outputs/codes_from_doc_pt-br.lua
+++ b/spec/outputs/codes_from_doc_pt-br.lua
@@ -2163,6 +2163,18 @@ repeat
         result = _with_0.value
         break
 until true
+local a
+do
+        local _with_0 = obj
+        _with_0.x = 1
+        a = _with_0
+end
+local b
+local _with_0 = obj
+repeat
+        b = _with_0.x
+        break
+until true
 local create_person
 create_person = function(name, relatives)
         local _with_0 = Person()
@@ -2209,6 +2221,18 @@ repeat
         result = _with_0.value
         break
 until true
+local a
+do
+        local _with_0 = obj
+        _with_0.x = 1
+        a = _with_0
+end
+local b
+local _with_0 = obj
+repeat
+        b = _with_0.x
+        break
+until true
 local create_person
 create_person = function(name, relatives)
         local _with_0 = Person()
diff --git a/spec/outputs/codes_from_doc_zh.lua b/spec/outputs/codes_from_doc_zh.lua
index 4ff3866..c847841 100644
--- a/spec/outputs/codes_from_doc_zh.lua
+++ b/spec/outputs/codes_from_doc_zh.lua
@@ -2163,6 +2163,18 @@ repeat
         result = _with_0.value
         break
 until true
+local a
+do
+        local _with_0 = obj
+        _with_0.x = 1
+        a = _with_0
+end
+local b
+local _with_0 = obj
+repeat
+        b = _with_0.x
+        break
+until true
 local create_person
 create_person = function(name, relatives)
         local _with_0 = Person()
@@ -2209,6 +2221,18 @@ repeat
         result = _with_0.value
         break
 until true
+local a
+do
+        local _with_0 = obj
+        _with_0.x = 1
+        a = _with_0
+end
+local b
+local _with_0 = obj
+repeat
+        b = _with_0.x
+        break
+until true
 local create_person
 create_person = function(name, relatives)
         local _with_0 = Person()
diff --git a/spec/outputs/compile_doc.lua b/spec/outputs/compile_doc.lua
index 8d5c11a..f661bbd 100644
--- a/spec/outputs/compile_doc.lua
+++ b/spec/outputs/compile_doc.lua
@@ -1,4 +1,10 @@
-local outputFolder = ...
+local outputFolder, docFolder
+do
+        local _obj_0 = {
+                ...
+        }
+        outputFolder, docFolder = _obj_0[1], _obj_0[2]
+end
 local getFiles
 getFiles = function(locale)
         if locale == "en" then
@@ -57,6 +63,7 @@ do
                 local locale = _list_0[_index_0]
                 _accum_0[_len_0] = {
                         "codes_from_doc_" .. tostring(locale) .. ".lua",
+                        "yue-" .. tostring(locale) .. ".md",
                         getFiles(locale)
                 }
                 _len_0 = _len_0 + 1
@@ -65,8 +72,9 @@ do
 end
 for _index_0 = 1, #docs do
         local _des_0 = docs[_index_0]
-        local compiledFile, docFiles = _des_0[1], _des_0[2]
+        local compiledFile, docFile, docFiles = _des_0[1], _des_0[2], _des_0[3]
         local codes = { }
+        local docTexts = { }
         for _index_1 = 1, #docFiles do
                 local docFile = docFiles[_index_1]
                 local input
@@ -74,6 +82,7 @@ for _index_0 = 1, #docs do
                 if _with_0 ~= nil then
                         local to_lua = require("yue").to_lua
                         local text = _with_0:read("*a")
+                        docTexts[#docTexts + 1] = text
                         for code in text:gmatch("```yuescript[\r\n]+(.-)```[^%w]") do
                                 local result, err = to_lua(code, {
                                         implicit_return_root = false,
@@ -103,8 +112,15 @@ for _index_0 = 1, #docs do
                 local _close_0 <close> = input
         end
         local output
-        local _with_0 = io.open(tostring(outputFolder) .. "/" .. tostring(compiledFile), "w+")
-        _with_0:write(table.concat(codes))
-        output = _with_0
+        do
+                local _with_0 = io.open(tostring(outputFolder) .. "/" .. tostring(compiledFile), "w+")
+                _with_0:write(table.concat(codes))
+                output = _with_0
+        end
         local _close_0 <close> = output
+        local output2
+        local _with_0 = io.open(tostring(docFolder) .. "/" .. tostring(docFile), "w+")
+        _with_0:write(table.concat(docTexts, "\n"))
+        output2 = _with_0
+        local _close_1 <close> = output2
 end