Index: 残局文料/lib/ipml_mj_ysaf.lua ================================================================== --- 残局文料/lib/ipml_mj_ysaf.lua +++ 残局文料/lib/ipml_mj_ysaf.lua @@ -112,17 +112,17 @@ --~ function d_5.判文(o1, o2, o3, o4) --~ if o1:find(o2 or ".", o3, o4) then --~ return o1 --~ end --~ end -function d_5.筛件径(o1, o2) - local k1_9 - k1_9 = d_5.筛文(o1, 简件系库.dir) - k1_9 = d_5.筛排(k1_9, d_5.加前缀, o1 .. "/") - k1_9 = d_5.筛排(k1_9, d_5.判文, o2) - return d_5.筛排(k1_9, d_5.在前后加英文双引号) - end +--~ function d_5.筛件径(o1, o2) + --~ local k1_9 + --~ k1_9 = d_5.筛文(o1, 简件系库.dir) + --~ k1_9 = d_5.筛排(k1_9, d_5.加前缀, o1 .. "/") + --~ k1_9 = d_5.筛排(k1_9, d_5.判文, o2) + --~ return d_5.筛排(k1_9, d_5.在前后加英文双引号) + --~ end --~ function d_5.筛单行等式(o1) --~ return 常用库.捕排(string.gmatch, o1, "[^\n= \t]+") --~ end --~ function d_5.捕非空单行(o1) --~ return 常用库.捕排(string.gmatch, o1, "[^\n]+[\n]?") @@ -158,14 +158,14 @@ table.insert(result, line) end end return result end -function d_5.办令(o1) - print(o1) - os.execute(o1) - end +--~ function d_5.办令(o1) + --~ print(o1) + --~ os.execute(o1) + --~ end --~ function d_5.在前后加英文双引号(o1) --~ return [["]] .. o1 .. [["]] --~ end --~ function d_5.筛单行等式_左右值态(o1) --~ local k1_11 ADDED 残局文料/lib/程语_月_删注_不虑字串.lua Index: 残局文料/lib/程语_月_删注_不虑字串.lua ================================================================== --- /dev/null +++ 残局文料/lib/程语_月_删注_不虑字串.lua @@ -0,0 +1,5 @@ +local d_2 = {} +function d_3.单行注(o1) + return o1:gsub("%-%-[^\n]*", "") + end +return d_2 ADDED 残局文料/lib/算机_基统_窗群_件系_小件_读.lua Index: 残局文料/lib/算机_基统_窗群_件系_小件_读.lua ================================================================== --- /dev/null +++ 残局文料/lib/算机_基统_窗群_件系_小件_读.lua @@ -0,0 +1,11 @@ +local d_2 = {} +function d_2.读件(o1, o2) + local k1 + local k1_3 + k1_3 = io.open(o1, o2 or "r") + k1 = k1_3:read("a") + k1_3:flush() + k1_3:close() + return k1 + end +return d_2 Index: 残局文料/产常量件.lua ================================================================== --- 残局文料/产常量件.lua +++ 残局文料/产常量件.lua @@ -1,32 +1,30 @@ -package.path = [[.\lib_lua\?.lua;]] .. package.path -package.cpath = [[.\lib_dll\?.dll;]] .. package.cpath -_G.常用库 = require("ipml_mj_ysaf") -local 字集码互转库 = require("u8_to_a") ---~ local profile = require("jit.profile") ---~ profile.start("f", cb) -local 删注库_月程语版_不虑字串版 = require(字集码互转库.u8_to_a("删注/月程语_不虑字串")) -local d_2 = {} -function d_2.产常量件(o1, o2) - local k1 - k1 = 常用库.读件(o1 .. o2) - k1 = 删注库_月程语版.单行注_不虑字串态(k1) - --~ k1 = 常用库.删空格(k1) - --~ k1 = 常用库.删制表符(k1) - --~ k1 = 常用库.捕非空单行(k1) - --~ k1 = 常用库.捕非空单行(k1) - --~ k1 = 常用库.筛单行等式(k1) - --~ k1 = 常用库.排转对(k1, 1) - --~ k1 = 常用库.删空行(k1) - --~ k1 = "local k1_11 = {}\n" .. k1 .. "" - --~ k1 = 常用库.筛排(k1, print) - --~ print(k1.DOUBLE_DAMAGE[1]) - --~ print(k1) - --~ print(k1[1]) - --~ print(k1:gsub("\n", "猪")) -end -function d_2.筛凡常量() end -function d_2.筛字段量() end -d_2.产常量件( - 字集码互转库.u8_to_a([[D:\install\YGOPro]]), - 字集码互转库.u8_to_a([[/script/constant.lua]]) -) +_G.常用库 = require("ipml_mj_ysaf") +local 字集码互转库 = require("u8_to_a") +local require = 常用库.require_通用大字集态_八位态 +local 读件库 = require("算机_基统_窗群_件系_小件_读") +local 删注库 = require("程语_月_删注_不虑字串") +--~ local profile = require("jit.profile") +--~ profile.start("f", cb) +--~ local 删注库_月程语版_不虑字串版 = require(字集码互转库.u8_to_a("删注/月程语_不虑字串")) +local d_2 = {} +function d_2.产常量件_基态(o1) + local k1 + k1 = 读件库.读件(o1 .. "/single/constant.lua") + k1 = 删注库.单行注(k1) + --~ k1 = 常用库.删空格(k1) + --~ k1 = 常用库.删制表符(k1) + --~ k1 = 常用库.捕非空单行(k1) + --~ k1 = 常用库.捕非空单行(k1) + --~ k1 = 常用库.筛单行等式(k1) + --~ k1 = 常用库.排转对(k1, 1) + --~ k1 = 常用库.删空行(k1) + --~ k1 = "local k1_11 = {}\n" .. k1 .. "" + --~ k1 = 常用库.筛排(k1, print) + --~ print(k1.DOUBLE_DAMAGE[1]) + print(k1) + --~ print(k1[1]) + --~ print(k1:gsub("\n", "猪")) + end +--~ function d_2.筛凡常量() end + --~ function d_2.筛字段量() end +d_2.产常量件_基态(字集码互转库.u8_to_a([[D:\install\YGOPro]]))