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
|
local searcher = require 'core.searcher'
local infer = require 'core.infer'
local guide = require 'parser.guide'
local vm = require 'vm'
local buildName
local function asLocal(source)
local name = guide.getKeyName(source)
if not source.attrs then
return name
end
local label = {}
label[#label+1] = name
for _, attr in ipairs(source.attrs) do
label[#label+1] = ('<%s>'):format(attr[1])
end
return table.concat(label, ' ')
end
local function asField(source, oop)
local class
if source.node.type ~= 'getglobal' then
class = infer.getClass(source.node)
end
local node = class
or buildName(source.node, false)
or guide.getKeyName(source.node)
or '?'
local method = guide.getKeyName(source)
if oop then
return ('%s:%s'):format(node, method)
else
return ('%s.%s'):format(node, method)
end
end
local function asTableField(source)
if not source.field then
return
end
return guide.getKeyName(source.field)
end
local function asGlobal(source)
return guide.getKeyName(source)
end
local function asDocFunction(source, oop)
local doc = guide.getParentType(source, 'doc.type')
or guide.getParentType(source, 'doc.overload')
if not doc or not doc.bindSources then
return ''
end
for _, src in ipairs(doc.bindSources) do
local name = buildName(src, oop)
if name ~= '' then
return name
end
end
return ''
end
local function asDocField(source)
return source.field[1]
end
function buildName(source, oop)
if source.type == 'local' then
return asLocal(source) or '', oop
end
if source.type == 'getlocal'
or source.type == 'setlocal' then
return asLocal(source.node) or '', oop
end
if source.type == 'setglobal'
or source.type == 'getglobal' then
return asGlobal(source) or '', oop
end
if source.type == 'setmethod'
or source.type == 'getmethod' then
return asField(source, oop) or '', oop
end
if source.type == 'setfield'
or source.type == 'getfield' then
return asField(source, oop) or '', oop
end
if source.type == 'tablefield' then
return asTableField(source) or '', oop
end
if source.type == 'doc.type.function' then
return asDocFunction(source, oop), oop
end
if source.type == 'doc.field' then
return asDocField(source), oop
end
if source.type == 'method'
or source.type == 'field'
or source.type == 'function' then
return buildName(source.parent, oop)
end
return nil, oop
end
return buildName
|
