1 files changed, 65 insertions, 0 deletions
diff --git a/script/src/vm/chain.lua b/script/src/vm/chain.lua
new file mode 100644
index 00000000..6e7c6ac7
--- /dev/null
+++ b/script/src/vm/chain.lua
@@ -0,0 +1,65 @@
+local valueMgr = require 'vm.value'
+local sourceMgr = require 'vm.source'
+
+local mt = {}
+mt.__index = mt
+mt.type = 'chain'
+
+mt.min = 100
+mt.max = 100
+mt.count = 0
+
+function mt:clearCache()
+    if self.count <= self.max then
+        return
+    end
+    local clock = os.clock()
+    local n = 0
+    for uri, value in pairs(self.cache) do
+        local ok = value:eachInfo(function ()
+            return true
+        end)
+        if ok then
+            n = n + 1
+        else
+            value:getSource():kill()
+            self.cache[uri] = nil
+        end
+    end
+    self.count = n
+    self.max = self.count * 1.1 + 10
+    if self.max < self.min then
+        self.max = self.min
+    end
+    local passed = os.clock() - clock
+    if passed > 0.1 then
+        log.warn(('chain:clearCache takes: [%.3f]sec, self.count: %d'):format(passed, self.count))
+    end
+end
+
+function mt:get(uri)
+    if not self.cache[uri] then
+        self.count = self.count + 1
+        self:clearCache()
+        self.cache[uri] = valueMgr.create('any', sourceMgr.dummy())
+        self.cache[uri]:markGlobal()
+        self.cache[uri].uri = uri
+    end
+    return self.cache[uri]
+end
+
+function mt:remove()
+    if self.removed then
+        return
+    end
+    self.removed = true
+    for _, value in pairs(self.cache) do
+        value:getSource():kill()
+    end
+end
+
+return function ()
+    return setmetatable({
+        cache = {},
+    }, mt)
+end