Index: 残局文料/lib_lua/ipml_mj_ysaf.lua ================================================================== --- 残局文料/lib_lua/ipml_mj_ysaf.lua +++ 残局文料/lib_lua/ipml_mj_ysaf.lua @@ -48,17 +48,20 @@ if o3 then k1 = o3(k1) end d_5.写件(o1, k1, o2) end ---~ function d_5.删制表符(o1) - --~ return o1:gsub("\t", "") +function d_5.删制表符(o1) + return o1:gsub("\t", "") + end +--~ function d_5.删空白字(o1) + --~ return o1:gsub("%s", "") --~ end -function d_5.删空格与制表符(o1) - o1 = d_5.删空格(o1) - return d_5.删制表符(o1) - end +--~ function d_5.删空格与制表符(o1) + --~ o1 = d_5.删空格(o1) + --~ return d_5.删制表符(o1) + --~ end function d_5.文转排(text) local lines = {} for line in text:gmatch("[^\n]+") do table.insert(lines, line) end @@ -80,13 +83,13 @@ --~ function d_5.删空行(o1) --~ o1 = d_5.删空行_不虑首末态(o1) --~ o1 = d_5.删前缀(o1, "\n") --~ return d_5.删后缀(o1, "\n") --~ end ---~ function d_5.删空格(o1) - --~ return o1:gsub(" ", "") - --~ end +function d_5.删空格(o1) + return o1:gsub(" ", "") + end function d_5.筛排(o1_9, o1, o2, o3) local k1_8 local k1_9 k1_9 = {} for o4 = 1, #o1_9 do @@ -95,46 +98,51 @@ k1_9[#k1_9 + 1] = k1_8 end end return k1_9 end -function d_5.捕排(o1, o2, o3) +function d_5.筛文(o1, o2, o3) local k1_9 k1_9 = {} - for o4 in o1(o2, o3) do + for o4 in o2(o1, o3) do k1_9[#k1_9 + 1] = o4 end return k1_9 end -function d_5.留文(o1, o2) - if o1:match(o2 or ".") then +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.捕排(简件系库.dir, o1) + k1_9 = d_5.筛文(o1, 简件系库.dir) k1_9 = d_5.筛排(k1_9, d_5.加前缀, o1 .. "/") return d_5.筛排(k1_9, d_5.留文, o2) end ---~ function d_5.筛件径(o1, o2) - --~ local k1 - --~ local k1_9 - --~ k1_9 = {} - --~ for o3 in 简件系库.dir(o1) do - --~ if o3:match(o2 or ".") then - --~ k1_9[#k1_9 + 1] = o1 .. "/" .. o3 - --~ end - --~ end - --~ return k1_9 - --~ end +--~ function d_5.筛单行等式(o1) + --~ return 常用库.捕排(string.gmatch, o1, "[^\n= \t]+") + --~ end +function d_5.捕非空单行(o1) + return 常用库.捕排(string.gmatch, o1, "[^\n]+[\n]?") + end +function d_5.排转对(o1_12, o1) + local k1_5 + local k1_11 + k1_11 = {} + for o2 = 1, #o1_12, o1 + 1 do + k1_5 = {} + for o3 = 1, o1 do + k1_5[o3] = o1_12[o2 + o3] + end + k1_11[ o1_12[o2] ] = k1_5 + end + return k1_11 + end function d_5.加前缀(o1, o2) return o2 .. o1 end ---~ function d_5.加前缀与后缀(o1, o2, o3) - --~ return o2 .. o1 .. o3 - --~ end function d_5.加后缀(o1, o2) return o1 .. o2 end function d_5.filterLinesWithCharacter(text, character) local result = {} @@ -145,13 +153,16 @@ table.insert(result, line) end end return result end -function d_5.办并说(o1) +function d_5.办令(o1) print(o1) os.execute(o1) + end +function d_5.在前后加英文双引号(o1) + return [["]] .. o1 .. [["]] end --~ function d_5.筛单行等式_左右值态(o1) --~ local k1_11 --~ k1_11 = {} --~ for o2 in k1_11:gmatch("[^\n= \t]+") do Index: 残局文料/产常量件.lua ================================================================== --- 残局文料/产常量件.lua +++ 残局文料/产常量件.lua @@ -1,23 +1,29 @@ 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) local k1 - k1 = 常用库.读件(o1 .. "/script/constant.lua", "rb") + k1 = 常用库.读件(o1 .. "/script/constant.lua") k1 = 删注库_月程语版_不虑字串版.单行注(k1) - k1 = 常用库.捕排(string.gmatch, k1, "[^\n= \t]+") - --~ for o1 in k1:gmatch("[^\n= \t]+") do - --~ print(o1) - --~ end + 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) + --~ print(k1.DOUBLE_DAMAGE[1]) + print(k1) + print(k1[1]) --~ print(k1:gsub("\n", "猪")) end function d_2.筛凡常量() end Index: 残局文料/齐月程语件.lua ================================================================== --- 残局文料/齐月程语件.lua +++ 残局文料/齐月程语件.lua @@ -1,11 +1,12 @@ _G.常用库 = require("lib_lua/ipml_mj_ysaf") local 字集码互转库 = require("u8_to_a") local d_2 = {} -function d_2.齐月程语件(o1) +function d_2.齐月程语件(o1, o2) local k1_9 k1_9 = 常用库.筛件径(o1, "%.lua$") - k1_9 = 常用库.筛排(k1_9, 常用库.加前缀, [[stylua "]]) - k1_9 = 常用库.筛排(k1_9, 常用库.加后缀, [["]]) - 常用库.筛排(k1_9, 常用库.办并说) + k1_9 = 常用库.筛排(k1_9, 常用库.在前后加英文双引号) + assert(k1_9[1]:match([["[^"]+"]]) == k1_9[1]) + k1_9 = 常用库.筛排(k1_9, 常用库.加前缀, o2) + 常用库.筛排(k1_9, 常用库.办令) end -d_2.齐月程语件(字集码互转库.u8_to_a([[../single]])) +d_2.齐月程语件(字集码互转库.u8_to_a([[../single]]), 字集码互转库.u8_to_a([[stylua ]]))