Lines of 残局文料/lib/ipml_mj_ysaf.lua from check-in 22b0919894 that are changed by the sequence of edits moving toward check-in 8aa534f2d4:
1: package.path = [[.\lib\?.lua;]] .. package.path
2: package.cpath = [[.\lib\?.dll;]] .. package.cpath
3: local 字集码互转库 = require("u8_to_a")
4: local d_5 = {}
5: local 简件系库 = require("lfs")
22b0919894 2024-01-27 6: require(字集码互转库.u8_to_a("程语_月_基类_文_内置库_加多"))
7: --~ 程语_月_标准库_仿照_加多_多编码_大字集_通用
8: function d_5.导入库_通用大字集态_八位态(modname)
9: return require(字集码互转库.u8_to_a(modname))
10: end
11: --~ local
12: do
13: local k1 = 0
14: function _G.递增示()
15: k1 = k1 + 1
16: print(k1)
17: end
18: end
19: --~ do
20: --~ local k1 = os.execute
21: --~ function _G.os.execute(command)
22: --~ return k1(字集码互转库.u2a(command))
23: --~ end
24: --~ end
25: function d_5.读件(o1, o2)
26: local k1
27: local k1_3
28: k1_3 = io.open(o1, o2 or "r")
29: k1 = k1_3:read("a")
30: k1_3:flush()
31: k1_3:close()
32: return k1
33: end
34: function d_5.读件排(o1_9, o1)
35: local k1_9
36: k1_9 = {}
37: for o2 = 1, #o1_9 do
38: k1_9[#k1_9 + 1] = d_5.读件(o1_9[o2], o1)
39: end
40: return k1_9
41: end
42: function d_5.写件(o1, o2, o3)
43: local k1_3
44: k1_3 = io.open(o1, o3 or "w")
45: k1_3:write(o2)
46: k1_3:flush()
47: k1_3:close()
48: end
49: function d_5.写件_一维(o1, o1_9, o2, o3)
50: local k1 = table.concat(o1_9, "\n")
51: if o3 then
52: k1 = o3(k1)
53: end
54: d_5.写件(o1, k1, o2)
55: end
56: function d_5.删制表符(o1)
57: return o1:gsub("\t", "")
58: end
59: --~ function d_5.删空白字(o1)
60: --~ return o1:gsub("%s", "")
61: --~ end
62: --~ function d_5.删空格与制表符(o1)
63: --~ o1 = d_5.删空格(o1)
64: --~ return d_5.删制表符(o1)
65: --~ end
66: function d_5.文转排(text)
67: local lines = {}
68: for line in text:gmatch("[^\n]+") do
69: table.insert(lines, line)
70: end
71: return lines
72: end
73: --~ function d_5.删前缀(o1, o2)
74: --~ if o1:find(o2, 1, true) then
75: --~ return o1:sub(#o2 + 1)
76: --~ end
77: --~ end
78: --~ function d_5.删后缀(o1, o2)
79: --~ if o1:find(o2, -1, true) then
80: --~ return o1:sub(1, #o1 - #o2)
81: --~ end
82: --~ end
83: --~ function d_5.删空行_不虑首末态(o1)
84: --~ return o1:gsub("\n+", "\n")
85: --~ end
86: --~ function d_5.删空行(o1)
87: --~ o1 = d_5.删空行_不虑首末态(o1)
88: --~ o1 = d_5.删前缀(o1, "\n")
89: --~ return d_5.删后缀(o1, "\n")
90: --~ end
91: function d_5.删空格(o1)
92: return o1:gsub(" ", "")
93: end
94: function d_5.筛排(o1_9, o1, o2, o3)
95: local k1_8
96: local k1_9
97: k1_9 = {}
98: for o4 = 1, #o1_9 do
99: k1_8 = o1(o1_9[o4], o2, o3)
100: if k1_8 then
101: k1_9[#k1_9 + 1] = k1_8
102: end
103: end
104: return k1_9
105: end
106: --~ function d_5.筛文(o1, o2, o3)
107: --~ local k1_9
108: --~ k1_9 = {}
109: --~ for o4 in o2(o1, o3) do
110: --~ k1_9[#k1_9 + 1] = o4
111: --~ end
112: --~ return k1_9
113: --~ end
114: --~ function d_5.判文(o1, o2, o3, o4)
115: --~ if o1:find(o2 or ".", o3, o4) then
116: --~ return o1
117: --~ end
118: --~ end
119: --~ function d_5.筛件径(o1, o2)
120: --~ local k1_9
121: --~ k1_9 = d_5.筛文(o1, 简件系库.dir)
122: --~ k1_9 = d_5.筛排(k1_9, d_5.加前缀, o1 .. "/")
123: --~ k1_9 = d_5.筛排(k1_9, d_5.判文, o2)
124: --~ return d_5.筛排(k1_9, d_5.在前后加英文双引号)
125: --~ end
126: --~ function d_5.筛单行等式(o1)
127: --~ return 常用库.捕排(string.gmatch, o1, "[^\n= \t]+")
128: --~ end
129: --~ function d_5.捕非空单行(o1)
130: --~ return 常用库.捕排(string.gmatch, o1, "[^\n]+[\n]?")
131: --~ end
132: --~ function d_5.捕非空单行(o1)
133: --~ return 常用库.捕排(string.gmatch, o1, "[^\n]+[\n]?")
134: --~ end
135: function d_5.排转对(o1_12, o1)
136: local k1_5
137: local k1_11
138: k1_11 = {}
139: for o2 = 1, #o1_12, o1 + 1 do
140: k1_5 = {}
141: for o3 = 1, o1 do
142: k1_5[o3] = o1_12[o2 + o3]
143: end
144: k1_11[o1_12[o2]] = k1_5
145: end
146: return k1_11
147: end
148: --~ function d_5.加前缀(o1, o2)
149: --~ return o2 .. o1
150: --~ end
151: --~ function d_5.加后缀(o1, o2)
152: --~ return o1 .. o2
153: --~ end
154: function d_5.filterLinesWithCharacter(text, character)
155: local result = {}
156: local lines = d_5.文转排(text)
157: -- 遍历每一行，检查是否包含目标字符
158: for i, line in ipairs(lines) do
159: if line:find(character, 1, true) then
160: table.insert(result, line)
161: end
162: end
163: return result
164: end
165: --~ function d_5.办令(o1)
166: --~ print(o1)
167: --~ os.execute(o1)
168: --~ end
169: --~ function d_5.在前后加英文双引号(o1)
170: --~ return [["]] .. o1 .. [["]]
171: --~ end
172: --~ function d_5.筛单行等式_左右值态(o1)
173: --~ local k1_11
174: --~ k1_11 = {}
175: --~ for o2 in k1_11:gmatch("[^\n= \t]+") do
176: --~ table.insert(k1_11, o2)
177: --~ end
178: --~ return o2
179: --~ end
180: return d_5
181: