diff options
Diffstat (limited to 'script/src/vm/chain.lua')
-rw-r--r-- | script/src/vm/chain.lua | 65 |
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 |