blob: 395a5b74833edd6f08b07fa52577c5e9b5f115ff (
plain)
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
|
local vm = require 'vm.vm'
local library = require 'library'
local guide = require 'parser.guide'
local function checkStdLibrary(source)
if source.library then
return source
end
if source.type == 'getglobal'
or source.type == 'setglobal' then
local name = guide.getName(source)
return library.global[name]
elseif source.type == 'select' then
local call = source.vararg
if call.type ~= 'call' then
goto CONTINUE
end
local func = call.node
local lib = vm.getLibrary(func)
if not lib then
goto CONTINUE
end
if lib.name == 'require' then
local modName = call.args[1]
if modName and modName.type == 'string' then
return library.library[modName[1]]
end
end
::CONTINUE::
end
end
local function getLibInNode(source, nodeLib)
if not nodeLib then
return nil
end
if not nodeLib.child then
return nil
end
local key = guide.getName(source)
local defLib = nodeLib.child[key]
return defLib
end
local function getNodeAsTable(source)
local nodeLib = checkStdLibrary(source.node)
return getLibInNode(source, nodeLib)
end
local function getNodeAsObject(source)
local node = source.node
local values = vm.getValue(node)
if not values then
return nil
end
for i = 1, #values do
local value = values[i]
local type = value.type
local nodeLib = library.object[type]
local lib = getLibInNode(source, nodeLib)
if lib then
return lib
end
end
return nil
end
local function checkNode(source)
if source.type == 'method' then
source = source.parent
elseif source.type == 'field' then
source = source.parent
end
if source.type == 'getfield'
or source.type == 'getmethod'
or source.type == 'getindex' then
return getNodeAsTable(source)
or getNodeAsObject(source)
end
end
local function checkRef(source)
local results = guide.requestReference(source)
for _, src in ipairs(results) do
local lib = checkStdLibrary(src) or checkNode(src)
if lib then
return lib
end
end
return nil
end
local function getLibrary(source)
return checkNode(source)
or checkStdLibrary(source)
or checkRef(source)
end
function vm.getLibrary(source)
local cache = vm.cache.getLibrary[source]
if cache ~= nil then
return cache
end
local unlock = vm.lock('getLibrary', source)
if not unlock then
return
end
cache = getLibrary(source) or false
vm.cache.getLibrary[source] = cache
unlock()
return cache
end
|