sfse/parser.lua at main · Nanowolf4/sfse · GitHub

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
local eschars = {"\\", "^"}

local function match_unescaped(str, i, pattern)
	local escaped = false
	for _, escc in ipairs(eschars) do
		if str:sub(i - #escc, i) == escc .. pattern then
			return false
		end
	end
	return str:sub(i, i) == pattern
end

function sfse.split_formspec(str)
	local d1, d2 = "[", "]"
	local name = {}
	local data = {}
	local name_pos = {}
	local data_pos = {}
	local i = 1
	local data_found = false
	local err = false

	for i = 1, #str do

		if match_unescaped(str, i, d1) then
			if data_pos[1] then
				err = true
				break
			end
			data_pos[1] = i
			data_found = true
		elseif match_unescaped(str, i, d2) then
			if data_pos[2] or not data_pos[1] then
				err = true
				break
			end
			data_pos[2] = i
		end

		if not data_found then
			if not name_pos[1] then
				name_pos[1] = i
			else
				name_pos[2] = i
			end
		end

		if #name_pos == 2 and #data_pos == 2 then
			table.insert(name, str:sub(name_pos[1], name_pos[2]))
			table.insert(data, str:sub(data_pos[1] + 1, data_pos[2] - 1))
			data_found = false
			if d1 ~= d2 then
				data_pos = {}
			end
			name_pos = {}
        end
	end

	return name, data, err
end

function sfse.unEsc_split(str, delim)
	local items = {}
	local pos = {}
	local i = 1
	local first = true
	local str_len = #str
	for i = 1, str_len do

		if (i == 1) or match_unescaped(str, i, delim) then
			table.insert(pos, i)
		end

		if #pos == 2 or i == str_len then
			table.insert(items, str:sub(first and pos[1] or pos[1] + 1, i ~= str_len and pos[2] - 1 or pos[2]))
			pos[1] = pos[2]
			pos[2] = nil
			first = false
		end

	end

	return items
end

function sfse.formspec_to_table(formspec)
	assert(type(formspec) == "string")

	local fs_type, data, missing_bracket = sfse.split_formspec(formspec)
	if missing_bracket then
		return nil, true
	end
	local num_match_pattern = "%d*%.?%d*"
	local elements = {}
	for i = 1, #fs_type do
		local tmp = {}
		table.insert(tmp, fs_type[i]:match("%S*$") or "unknown_element")

		local params_rope = sfse.unEsc_split(data[i], ";")

		for _, v in ipairs(params_rope) do

			local param = sfse.unEsc_split(v, ",")

			if #param >= 2 then

				local pnum1 = tonumber(param[1]:match(num_match_pattern))
				local pnum2 = tonumber(param[2]:match(num_match_pattern))

				if type(pnum1) == "number" or type(pnum2) == "number" then
					table.insert(tmp, pnum1 and pnum2 and {pnum1, pnum2} or pnum1)
					goto next
				end

				local bool1, bool2 = param[1]:match("(%S+)[%s+]?=[%s+]?(%S+)")
				if (bool1) and bool2 == "true" or bool2 == "false" then
					table.insert(tmp, bool1 .. "=" .. bool2)
					goto next
				end

				table.insert(tmp, param)

			elseif param[1] then
				table.insert(tmp, param[1])
			else
				if #param == 0 then
					table.insert(tmp, "")
				end
			end
			:: next ::
		end

		table.insert(elements, tmp)
	end

	return elements, false
end