script/src/emmy/class.lua


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

local listMgr = require 'vm.list'

---@class EmmyClass
local mt = {}
mt.__index = mt
mt.type = 'emmy.class'

function mt:getType()
    return self.name
end

function mt:getName()
    return self.name
end

function mt:getSource()
    return listMgr.get(self.source)
end

function mt:setValue(value)
    self.value = value
end

function mt:getValue()
    return self.value
end

function mt:eachChild(callback)
    self._manager:eachClass(self.name, function (obj)
        if obj.type == 'emmy.typeUnit' then
            callback(obj)
        end
    end)
end

function mt:addField(field)
    if not self._fields then
        self._fields = {}
    end
    self._fields[#self._fields+1] = field
end

function mt:eachField(callback)
    if not self._fields then
        return
    end
    ---@param field EmmyField
    for _, field in ipairs(self._fields) do
        callback(field)
    end
end

return function (manager, name, extends, source)
    local self = setmetatable({
        name = name,
        source = source.id,
        extends = extends,
        _manager = manager,
    }, mt)
    return self
end