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
|
local listMgr = require 'vm.list'
local newClass = require 'emmy.class'
local newType = require 'emmy.type'
local mt = {}
mt.__index = mt
mt.__name = 'emmyMgr'
function mt:flushClass(name)
local list = self._class[name]
if not list then
return
end
local version = listMgr.getVersion()
if version == list.version then
return
end
for srcId in pairs(list) do
if not listMgr.get(srcId) then
list[srcId] = nil
end
end
if not next(list) then
self._class[name] = nil
return
end
list.version = version
end
function mt:eachClassByName(name, callback)
self:flushClass(name)
local list = self._class[name]
if not list then
return
end
for k, class in pairs(list) do
if k ~= 'version' then
local res = callback(class)
if res ~= nil then
return res
end
end
end
end
function mt:eachClass(...)
local n = select('#', ...)
if n == 1 then
local callback = ...
for name in pairs(self._class) do
local res = self:eachClassByName(name, callback)
if res ~= nil then
return res
end
end
else
local name, callback = ...
return self:eachClassByName(name, callback)
end
end
function mt:getClass(name)
self:flushClass(name)
local list = self._class[name]
local version = listMgr.getVersion()
if not list then
list = {
version = version,
}
self._class[name] = list
end
return list
end
function mt:addClass(source)
local className = source[1][1]
local list = self:getClass(className)
list[source.id] = newClass(self, source)
return list[source.id]
end
function mt:addType(source)
local typeObj = newType(self, source)
for _, obj in ipairs(source) do
local className = obj[1]
local list = self:getClass(className)
list[source.id] = typeObj
end
return typeObj
end
function mt:remove()
end
return function ()
---@class emmyMgr
local self = setmetatable({
_class = {},
_type = {},
}, mt)
return self
end
|