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
|
local searcher = require 'core.searcher'
local workspace = require 'workspace'
local files = require 'files'
local vm = require 'vm'
local findSource = require 'core.find-source'
local guide = require 'parser.guide'
local function sortResults(results)
-- 先按照顺序排序
table.sort(results, function (a, b)
local u1 = searcher.getUri(a.target)
local u2 = searcher.getUri(b.target)
if u1 == u2 then
return a.target.start < b.target.start
else
return u1 < u2
end
end)
-- 如果2个结果处于嵌套状态，则取范围小的那个
local lf, lu
for i = #results, 1, -1 do
local res = results[i].target
local f = res.finish
local uri = searcher.getUri(res)
if lf and f > lf and uri == lu then
table.remove(results, i)
else
lu = uri
lf = f
end
end
end
local accept = {
['local'] = true,
['setlocal'] = true,
['getlocal'] = true,
['label'] = true,
['goto'] = true,
['field'] = true,
['method'] = true,
['setglobal'] = true,
['getglobal'] = true,
['string'] = true,
['boolean'] = true,
['number'] = true,
['...'] = true,
['doc.type.name'] = true,
['doc.class.name'] = true,
['doc.extends.name'] = true,
['doc.alias.name'] = true,
['doc.see.name'] = true,
['doc.see.field'] = true,
}
local function checkRequire(source, offset)
if source.type ~= 'string' then
return nil
end
local callargs = source.parent
if callargs.type ~= 'callargs' then
return
end
if callargs[1] ~= source then
return
end
local call = callargs.parent
local func = call.node
local literal = guide.getLiteral(source)
local libName = vm.getLibraryName(func)
if not libName then
return nil
end
if libName == 'require' then
return workspace.findUrisByRequirePath(literal)
elseif libName == 'dofile'
or libName == 'loadfile' then
return workspace.findUrisByFilePath(literal)
end
return nil
end
local function convertIndex(source)
if not source then
return
end
if source.type == 'string'
or source.type == 'boolean'
or source.type == 'number' then
local parent = source.parent
if not parent then
return
end
if parent.type == 'setindex'
or parent.type == 'getindex'
or parent.type == 'tableindex' then
return parent
end
end
return source
end
return function (uri, offset)
local ast = files.getState(uri)
if not ast then
return nil
end
local source = convertIndex(findSource(ast, offset, accept))
if not source then
return nil
end
local results = {}
local uris = checkRequire(source)
if uris then
for i, uri in ipairs(uris) do
results[#results+1] = {
uri = files.getOriginUri(uri),
source = source,
target = {
start = 0,
finish = 0,
uri = uri,
}
}
end
end
local defs = vm.getDefs(source)
local values = {}
for _, src in ipairs(defs) do
local value = searcher.getObjectValue(src)
if value and value ~= src and guide.isLiteral(value) then
values[value] = true
end
end
for _, src in ipairs(defs) do
if src.dummy then
goto CONTINUE
end
if values[src] then
goto CONTINUE
end
local root = guide.getRoot(src)
if not root then
goto CONTINUE
end
src = src.field or src.method or src.index or src
if src.type == 'doc.class.name'
and source.type ~= 'doc.type.name'
and source.type ~= 'doc.extends.name'
and source.type ~= 'doc.see.name' then
goto CONTINUE
end
results[#results+1] = {
target = src,
uri = files.getOriginUri(root.uri),
source = source,
}
::CONTINUE::
end
if #results == 0 then
return nil
end
sortResults(results)
return results
end
|
