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
|
local mt = {}
mt.__index = mt
function mt:clearGlobal(uri)
self.get[uri] = nil
self.set[uri] = nil
end
function mt:markSet(uri, k, v)
local sets = self.set[uri]
if not sets then
sets = {}
self.set[uri] = sets
end
sets[k] = v
end
function mt:markGet(uri, k)
local gets = self.get[uri]
if not gets then
gets = {}
self.get[uri] = gets
end
gets[k] = true
end
function mt:compileVM(uri, vm)
local seted = {}
local fixed = {}
for _, data in ipairs(vm.results.globals) do
local key = data.global.key
fixed[key] = true
if data.type == 'global' then
seted[key] = true
self:markSet(uri, key, data.global)
end
end
for k in next, vm.env.child do
self:markGet(uri, k)
end
local needReCompile = {}
for otherUri, gets in pairs(self.get) do
for key in pairs(fixed) do
if gets[key] ~= nil then
needReCompile[#needReCompile+1] = otherUri
goto CONTINUE
end
end
::CONTINUE::
end
return needReCompile
end
function mt:getGlobal(key)
for _, sets in pairs(self.set) do
local v = sets[key]
if v ~= nil then
return v
end
end
return nil
end
return function ()
return setmetatable({
get = {},
set = {},
}, mt)
end
|
