forked from luweimy/labelparser
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathlabelparser.lua
More file actions
241 lines (221 loc) · 8.88 KB
/
labelparser.lua
File metadata and controls
241 lines (221 loc) · 8.88 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
--[[
解析简单的标签结构富文本转化为Lua中的表结构
作者：Luwei
规则：
* 被解析的富文本显示内容不能含有"<xxx>"这种样式的字符串, 单独的'<', '>'是可以支持的，但是为了避免解析错误最好不要使用
* 标签中可以存在属性，但是属性必须以空格分隔，如：<div fontname=nihao fontsize=28>hello,world</div>
* 标签中的属性值默认可以是字符串、数字、布尔值(true,false)，若是字符串可以加单引号，也可以不加，为了避免解析错误最好添加单引号
* 属性名和属性值之间用‘=’连接，但是不能存在空格
* 标签名和属性名不区分大小写，全部转化为小写(主要是为了避免大小写造成的书写错误，减小富文本串的编写难度)
* 标签属性值不允许存在空白字符，例如：<div fontname="ms yh.ttf"></div>
* 属性保留字'content', 不可重名，即不可使用属性名content，否则解析出来没有文本内容存在
* 若开头和结尾没有标签的话，内部会自动在最外层包上一层<div></div>(可以修改LABEL_DIV_BEGIN从而包上其他标签)
* 支持自闭和标签
* 标签范围不可交叉，但是可以嵌套包含
* 空的非自闭合标签没有任何意义，不会被解析，直接忽略
* 自闭合标签的'/>'与属性值之间最好存在空格,否则这种情况出错<img src=dir/s/>
示例：
local labelparser = require("labelparser")
local text1 = "hello worldd <div>hello world</div> 你好 <div fontName='nihao' fontSize=#123456>hello,world</div><div></div>"
local parsedtable = labelparser.parse(text1)
-- output:
<parsedtable> = {
{
content = "hello worldd ",
labelname = "div",
},
{
content = "hello world",
labelname = "div",
},
{
content = " 你好 ",
labelname = "div",
},
{
content = "hello,world",
fontname = "nihao",
fontsize = "#123456",
labelname = "div",
},
}
当前版本：v1.01
v1.0 - 支持最基本功能
v1.01 - 添加自闭合标签支持，修复若干BUG
]]--
local print = print
local table = table
local string = string
local _M = {}
local LABEL_DIV_BEGIN = "<div>"
local LABEL_DIV_END = "</div>"
local BOOLEAN_TRUE = "true"
local BOOLEAN_FALSE = "false"
function _M.parse(text)
-- 用于存储解析结果
local parsedtable = {}
-- 检测开头和结尾是否为标签 <xxx>即为标签
if not string.find(text, "^%b<>.+%b<>$") then
-- 在最外层包装一个标签，便于解析时的统一处理，不用处理没有包装标签的情况
text = table.concat({LABEL_DIV_BEGIN, text, LABEL_DIV_END})
end
-- 标签头栈，用于存储标签头(<div>是标签头，</div>是标签尾)
-- 标签头存储了格式信息，碰到标签时可以直接使用当前栈顶的标签头格式信息，应用到标签之间的内容上
local labelheadstack = {}
-- 迭代所有格式为<xxx>的标签(包含了标签头和标签尾巴)
local index = 0
for beginindex, endindex in function() return string.find(text, "%b<>", index) end do
local label = string.sub(text, beginindex, endindex)
-- 检测字符串是否以"</"开头
if string.find(label, "^</") then
-- 标签尾
_M.disposeLabelTail(labelheadstack, parsedtable, text, label, beginindex, endindex)
elseif string.find(label, "/>$") then -- 检测以'/>'结尾
-- 自闭合标签
_M.disposeLabelSelfClosing(labelheadstack, parsedtable, text, label, beginindex, endindex)
else-- 检测到标签头
_M.disposeLabelHead(labelheadstack, parsedtable, text, label, beginindex, endindex)
end
index = endindex + 1
end
return parsedtable
end
-- 处理标签头
function _M.disposeLabelHead(labelheadstack, parsedtable, text, labelhead, beginindex, endindex)
-- 取出当前栈顶位置的标签信息
local labelinfo = _M.peekstack(labelheadstack)
if labelinfo then
-- 获得当前标签头和上一个标签头之间内容(标签嵌套造成)
local content = string.sub(text, labelinfo.endindex+1, beginindex-1)
-- 解析两个标签头之间的内容
local labelparams = _M.parseLabelWithContent(labelinfo.labelhead, content)
table.insert(parsedtable, labelparams)
end
-- 将当前标签头和位置信息，放入栈顶位置
_M.pushstack(labelheadstack, {["labelhead"]=labelhead, ["beginindex"]=beginindex, ["endindex"]=endindex})
end
-- 处理标签尾
function _M.disposeLabelTail(labelheadstack, parsedtable, text, labeltail, beginindex, endindex, selfclosing)
-- 检测到标签尾，可以解析当前标签范围内的串，标签头在栈顶位置
-- 将与标签尾对应的标签头出栈(栈顶)
local labelinfo = _M.popstack(labelheadstack)
-- 解析栈顶标签头和当前标签尾之间的内容
if labelinfo then
-- 检测标签是否匹配
if not _M.checkLabelMatch(labelinfo.labelhead, labeltail) then
return print(string.format("labelparser # error: label can not match(%s, %s)",
labelinfo.labelhead, labeltail))
end
-- 获得当前标签尾和对应标签头之间内容
local content = string.sub(text, labelinfo.endindex+1, beginindex-1)
local labelparams = _M.parseLabelWithContent(labelinfo.labelhead, content, selfclosing)
table.insert(parsedtable, labelparams)
-- 因为此前内容都解析过了，所以修改栈顶标签头信息，让其修饰范围改变为正确的
-- 修改当前栈顶标签头位置到当前标签尾的范围
local labelinfo_unused = _M.peekstack(labelheadstack)
if labelinfo_unused then
labelinfo_unused.beginindex = beginindex
labelinfo_unused.endindex = endindex
end
end
end
-- 处理自闭合标签
function _M.disposeLabelSelfClosing(labelheadstack, parsedtable, text, label, beginindex, endindex)
_M.disposeLabelHead(labelheadstack, parsedtable, text, label, beginindex, endindex)
_M.disposeLabelTail(labelheadstack, parsedtable, text, label, beginindex, endindex, true)
end
-- 检测标签头和标签尾是否配对，即标签名是否相同
function _M.checkLabelMatch(labelhead, labeltail)
local labelheadname = _M.parseLabelname(labelhead)
local labeltailname = _M.parseLabelname(labeltail)
return labeltailname == labelheadname
end
-- 整合标签头属性和内容
function _M.parseLabelWithContent(labelhead, content, selfclosing)
-- 不是自闭和标签则，则检测内容，内容为空则直接返回
if not selfclosing then
if content == nil or content == "" then return
end
else
-- 是自闭和标签
content = nil
end
-- 获得标签名称
local labelname = _M.parseLabelname(labelhead)
-- 解析标签属性
local labelparams = _M.parseLabelHead(labelhead)
labelparams.labelname = labelname
labelparams.content = content
return labelparams
end
-- 从标签头或者标签尾解析出标签名称
function _M.parseLabelname(label)
-- 解析标签名
local labelnameindex1, labelnameindex2 = string.find(label, "%w+")
if not labelnameindex1 then
return print ("labelparser # error: label name not found") and nil
end
-- 获得标签名称
local labelname = string.sub(label, labelnameindex1, labelnameindex2)
local labelname = string.lower(labelname)
return labelname
end
-- 解析标签头属性
function _M.parseLabelHead(labelhead)
local labelparams = {}
-- 匹配格式：property=value
-- value要求非空白字符并且不含有‘>’
for property in string.gmatch(labelhead, "[%w%_]+%=[^%s%>]+") do
local equalmarkpos = string.find(property, "=")
-- 分离属性名和属性值
local propertyname = string.sub(property, 1, equalmarkpos-1)
local propertyvalue = string.sub(property, equalmarkpos+1, string.len(property))
-- 属性名转为小写
propertyname = string.lower(propertyname)
-- 属性值处理
local continue = false
-- 1.检测是否为字符串(单引号或者双引号括起来)
local beginindex, endindex = string.find(propertyvalue, "['\"].+['\"]")
if beginindex then
propertyvalue = string.sub(propertyvalue, beginindex+1, endindex-1)
continue = true
end
-- 2.检测是否为布尔值
if not continue then
local propertyvalue_lower = string.lower(propertyvalue)
if propertyvalue_lower == BOOLEAN_TRUE then
propertyvalue = true
continue = true
elseif propertyvalue_lower == BOOLEAN_FALSE then
propertyvalue = false
continue = true
end
end
-- 3.检测是否为数字
if not continue then
local propertyvalue_number = tonumber(propertyvalue)
if propertyvalue_number then
propertyvalue = propertyvalue_number
continue = true
end
end
-- 若以上都不是，则默认直接为字符串
labelparams[propertyname] = propertyvalue
end
return labelparams
end
--
-- utils-stack
--
function _M.peekstack(stacktable)
return stacktable[#stacktable]
end
function _M.pushstack(stacktable, elem)
table.insert(stacktable, elem)
end
function _M.popstack(stacktable)
local elem = stacktable[#stacktable]
stacktable[#stacktable] = nil
return elem
end
return _M