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
|
--!A cross-platform build utility based on Lua
--
-- Licensed under the Apache License, Version 2.0 (the "License");
-- you may not use this file except in compliance with the License.
-- You may obtain a copy of the License at
--
-- http://www.apache.org/licenses/LICENSE-2.0
--
-- Unless required by applicable law or agreed to in writing, software
-- distributed under the License is distributed on an "AS IS" BASIS,
-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-- See the License for the specific language governing permissions and
-- limitations under the License.
--
-- Copyright (C) 2015 - 2019, TBOOX Open Source Group.
--
-- @author OpportunityLiu
-- @file dump.lua
--
-- define module
local dump = dump or {}
-- load modules
local colors = require("base/colors")
local table = require("base/table")
function dump._format(fmtkey, fmtdefault, ...)
local theme = colors.theme()
local fmt = theme and theme:get(fmtkey) or fmtdefault
return string.format(fmt, ...)
end
-- print string
function dump._print_string(str, as_key)
local quote = (not as_key) or (not str:match("^[a-zA-Z_][a-zA-Z0-9_]*$"))
if quote then
io.write(colors.translate("${reset}${color.dump.string_quote}\"${reset}${color.dump.string}", { patch_reset = false }))
else
io.write(colors.translate("${reset}${color.dump.string}", { patch_reset = false }))
end
io.write(str)
if quote then
io.write(colors.translate("${reset}${color.dump.string_quote}\"${reset}", { patch_reset = false }))
else
io.write(colors.translate("${reset}", { patch_reset = false }))
end
end
-- print keyword
function dump._print_keyword(keyword)
io.write(colors.translate("${color.dump.keyword}" .. tostring(keyword)))
end
-- print number
function dump._print_number(num)
io.write(colors.translate("${color.dump.number}" .. tostring(num)))
end
-- print function
function dump._print_function(func, as_key)
if as_key then
return dump._print_default(func)
end
local funcinfo = debug.getinfo(func)
local srcinfo = funcinfo.short_src
if funcinfo.linedefined >= 0 then
srcinfo = srcinfo .. ":" .. funcinfo.linedefined
end
io.write(colors.translate("${color.dump.function}function ${bright}" .. (funcinfo.name or "") .. "${reset}${dim}" .. srcinfo))
end
-- print value with default format
function dump._print_default(value)
io.write(colors.translate("${color.dump.default}", { patch_reset = false }))
io.write(dump._format("text.dump.default_format", "%s", value))
io.write(colors.translate("${reset}", { patch_reset = false }))
end
-- print scalar value
function dump._print_scalar(value, as_key)
if type(value) == "nil" then
dump._print_keyword("nil")
elseif type(value) == "boolean" then
dump._print_keyword(value)
elseif type(value) == "number" then
dump._print_number(value)
elseif type(value) == "string" then
dump._print_string(value, as_key)
elseif type(value) == "function" then
dump._print_function(value, as_key)
else
dump._print_default(value)
end
end
-- print anchor
function dump._print_anchor(value)
io.write(colors.translate("${color.dump.anchor}", { patch_reset = false }))
io.write(dump._format("text.dump.anchor", "&%s", value))
io.write(colors.translate("${reset}", { patch_reset = false }))
end
-- print reference
function dump._print_reference(value)
io.write(colors.translate("${color.dump.reference}", { patch_reset = false }))
io.write(dump._format("text.dump.reference", "*%s", value))
io.write(colors.translate("${reset}", { patch_reset = false }))
end
-- print table
function dump._print_table(value, first_indent, remain_indent, printed_set)
local first_level = not printed_set
io.write(first_indent)
local strrep = rawget(getmetatable(value) or {}, "__tostring") and tostring(value)
if not first_level and strrep then
return dump._print_default(strrep)
end
printed_set = printed_set or { len = 0 }
io.write(colors.translate("${dim}{"))
local inner_indent = remain_indent .. " "
local is_arr = table.is_array(value)
local first_value = true
for k, v in pairs(value) do
if first_value then
printed_set.len = printed_set.len + 1
io.write(" ")
dump._print_anchor(printed_set.len)
io.write("\n")
printed_set[value] = printed_set.len
first_value = false
if strrep then
io.write(inner_indent)
dump._print_keyword("(tostring)")
io.write(colors.translate("${dim} = "))
dump._print_scalar(strrep)
io.write(",\n")
end
else
io.write(",\n")
end
io.write(inner_indent)
if not is_arr or type(k) ~= "number" then
dump._print_scalar(k, true)
io.write(colors.translate("${dim} = "))
end
if type(v) == "table" then
if printed_set[v] then
dump._print_reference(printed_set[v])
else
dump._print_table(v, "", inner_indent, printed_set)
end
else
dump._print_scalar(v)
end
end
if first_value then
io.write(colors.translate(" ${dim}}"))
else
io.write("\n" .. remain_indent .. colors.translate("${dim}}"))
end
end
-- print value
function dump._print(value, indent)
indent = indent or ""
if type(value) == "table" then
dump._print_table(value, indent, indent:gsub(".", " "), nil)
else
io.write(indent)
dump._print_scalar(value)
end
end
return dump._print
|
