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
|
local guide = require 'parser.guide'
local workspace = require 'workspace'
local files = require 'files'
local vm = require 'vm'
local findSource = require 'core.find-source'
local function sortResults(results)
-- 先按照顺序排序
table.sort(results, function (a, b)
local u1 = guide.getUri(a.target)
local u2 = guide.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 = guide.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,
['doc.type.name'] = true,
['doc.class.name'] = true,
['doc.extends.name'] = 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 lib = vm.getLibrary(func)
if not lib then
return nil
end
if lib.name == 'require' then
return workspace.findUrisByRequirePath(literal)
elseif lib.name == 'dofile'
or lib.name == '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.getAst(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
vm.setSearchLevel(10)
vm.eachDef(source, function (src)
local root = guide.getRoot(src)
if not root then
return
end
src = src.field or src.method or src.index or src
if src.type == 'table' and src.parent.type ~= 'return' then
return
end
results[#results+1] = {
target = src,
uri = files.getOriginUri(root.uri),
source = source,
}
end)
if #results == 0 then
return nil
end
sortResults(results)
return results
end
|
