emmy.class

3 files changed, 79 insertions, 0 deletions

diff --git a/server/src/emmy/class.lua b/server/src/emmy/class.lua
new file mode 100644
index 00000000..69d731ee
--- /dev/null
+++ b/server/src/emmy/class.lua
@@ -0,0 +1,16 @@
+local mt = {}
+mt.__index = mt
+mt.type = 'emmy.class'
+
+function mt:getType()
+    return self._name
+end
+
+return function (class, parent)
+    local self = setmetatable({
+        name = class[1],
+        source = class.id,
+        parent = parent and parent.id,
+    })
+    return self
+end
diff --git a/server/src/emmy/init.lua b/server/src/emmy/init.lua
new file mode 100644
index 00000000..769c9e05
--- /dev/null
+++ b/server/src/emmy/init.lua
@@ -0,0 +1 @@
+return require 'vm.emmy.emmy'
diff --git a/server/src/emmy/manager.lua b/server/src/emmy/manager.lua
new file mode 100644
index 00000000..5f83c9d1
--- /dev/null
+++ b/server/src/emmy/manager.lua
@@ -0,0 +1,62 @@
+local listMgr = require 'vm.list'
+local newClass = require 'emmy.class'
+
+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:eachClass(name, callback)
+    self:flushClass(name)
+    local list = self._class[name]
+    if not list then
+        return
+    end
+    for _, class in pairs(list) do
+        callback(class)
+    end
+end
+
+function mt:addClass(class, parent)
+    local className = class[1]
+    local list = self._class[className]
+    local version = listMgr.getVersion()
+    if not list then
+        list = {
+            version = version,
+        }
+        self._class[className] = list
+    end
+    list[class.id] = newClass(class, parent)
+    self:flushClass(className)
+end
+
+function mt:remove()
+end
+
+return function ()
+    local self = setmetatable({
+        _class = {},
+    }, mt)
+    return self
+end