Merge branch 'master' into nalc-1.2

This commit is contained in:
Sys Quatre 2019-05-04 22:48:00 +02:00
commit fc516d8612
3 changed files with 122 additions and 575 deletions

View File

@ -8,81 +8,58 @@ end
function extended_api.Async()
local self = {}
self.pool = {threads = {}, globalstep_threads = {}, task_queue = {}, resting = 200, maxtime = 200, queue_threads = 8, state = "suspended"}
self.task_queue = {}
self.resting = 200
self.maxtime = 200
self.queue_threads = 8
self.state = "suspended"
self.create_worker = function(func)
local thread = coroutine.create(func)
if not thread or coroutine.status(thread) == "dead" then
minetest.after(0.3, self.create_worker, func)
minetest.after(0.5, self.schedule_worker)
minetest.chat_send_all("Fall")
return
end
table.insert(self.pool.threads, thread)
self.run_worker(thread)
end
self.create_globalstep_worker = function(func)
local thread = coroutine.create(func)
if not thread or coroutine.status(thread) == "dead" then
minetest.after(0.3, self.create_globalstep_worker, func)
minetest.after(0.5, self.schedule_globalstep_worker)
return
end
table.insert(self.pool.globalstep_threads, thread)
self.run_globalstep_worker(thread)
end
self.run_worker = function(index)
local thread = self.pool.threads[index]
self.run_worker = function(thread)
if not thread or coroutine.status(thread) == "dead" then
table.remove(self.pool.threads, index)
minetest.after(0, self.schedule_worker)
return false
else
coroutine.resume(thread)
minetest.after(0, self.schedule_worker)
minetest.after(self.resting / 1000, self.run_worker, thread)
return true
end
end
self.run_globalstep_worker = function(index)
local thread = self.pool.globalstep_threads[index]
self.run_globalstep_worker = function(thread)
if not thread or coroutine.status(thread) == "dead" then
table.remove(self.pool.globalstep_threads, index)
minetest.after(0, self.schedule_globalstep_worker)
return false
else
coroutine.resume(thread)
minetest.after(0, self.schedule_globalstep_worker)
minetest.after(0, self.run_globalstep_worker, thread)
return true
end
end
self.schedule_worker = function()
self.pool.state = "running"
for index, value in ipairs(self.pool.threads) do
minetest.after(self.pool.resting / 1000, self.run_worker, index)
return true
end
self.pool.state = "suspended"
return false
end
self.schedule_globalstep_worker = function()
for index, value in ipairs(self.pool.globalstep_threads) do
minetest.after(0, self.run_globalstep_worker, index)
return true
end
return false
end
self.priority = function(resting, maxtime)
self.pool.resting = resting
self.pool.maxtime = maxtime
self.resting = resting
self.maxtime = maxtime
end
self.iterate = function(from, to, func, callback)
self.create_worker(function()
local last_time = minetest.get_us_time() / 1000
local maxtime = self.pool.maxtime
local maxtime = self.maxtime
for i = from, to do
local b = func(i)
if b ~= nil and b == false then
@ -98,13 +75,12 @@ function extended_api.Async()
end
return
end)
self.schedule_worker()
end
self.foreach = function(array, func, callback)
self.create_worker(function()
local last_time = minetest.get_us_time() / 1000
local maxtime = self.pool.maxtime
local maxtime = self.maxtime
for k,v in ipairs(array) do
local b = func(k,v)
if b ~= nil and b == false then
@ -120,13 +96,12 @@ function extended_api.Async()
end
return
end)
self.schedule_worker()
end
self.do_while = function(condition_func, func, callback)
self.create_worker(function()
local last_time = minetest.get_us_time() / 1000
local maxtime = self.pool.maxtime
local maxtime = self.maxtime
while(condition_func()) do
local c = func()
if c ~= nil and c ~= condition_func() then
@ -142,7 +117,6 @@ function extended_api.Async()
end
return
end)
self.schedule_worker()
end
self.register_globalstep = function(func)
@ -159,14 +133,13 @@ function extended_api.Async()
end
end
end)
self.schedule_globalstep_worker()
end
self.chain_task = function(tasks, callback)
self.create_worker(function()
local pass_arg = nil
local last_time = minetest.get_us_time() / 1000
local maxtime = self.pool.maxtime
local maxtime = self.maxtime
for index, task_func in pairs(tasks) do
local p = task_func(pass_arg)
if p ~= nil then
@ -182,20 +155,19 @@ function extended_api.Async()
end
return
end)
self.schedule_worker()
end
self.queue_task = function(func, callback)
table.insert(self.pool.task_queue, {func = func,callback = callback})
if self.pool.queue_threads > 0 then
self.pool.queue_threads = self.pool.queue_threads - 1
table.insert(self.task_queue, {func = func,callback = callback})
if self.queue_threads > 0 then
self.queue_threads = self.queue_threads - 1
self.create_worker(function()
local pass_arg = nil
local last_time = minetest.get_us_time() / 1000
local maxtime = self.pool.maxtime
local maxtime = self.maxtime
while(true) do
local task_func = self.pool.task_queue[1]
table.remove(self.pool.task_queue, 1)
local task_func = self.task_queue[1]
table.remove(self.task_queue, 1)
if task_func and task_func.func then
pass_arg = nil
local p = task_func.func()
@ -210,12 +182,11 @@ function extended_api.Async()
last_time = minetest.get_us_time() / 1000
end
else
self.pool.queue_threads = self.pool.queue_threads + 1
self.queue_threads = self.queue_threads + 1
return
end
end
end)
self.schedule_worker()
end
end
@ -230,7 +201,6 @@ function extended_api.Async()
end
return
end)
self.schedule_worker()
end
return self
end

View File

@ -1,7 +1,6 @@
colddb = {}
function colddb.Colddb(dir)
local dir = string.format("%s/%s/", minetest.get_worldpath(), dir)
if not minetest.mkdir(dir) then
error(string.format("%s is not a directory.", dir))
end
@ -9,29 +8,53 @@ function colddb.Colddb(dir)
local self = {}
local directory = dir
local tags = {}
local mem_pool = {}
local mem_pool_del = {}
local indexes_pool = {}
local iterate_queue = {}
local add_to_mem_pool = true
local async = extended_api.Async()
local path_count = {}
async.priority(150, 250)
-- make tables weak so the garbage-collector will remove unused data
setmetatable(tags, {__mode = "kv"})
setmetatable(mem_pool, {__mode = "kv"})
setmetatable(mem_pool_del, {__mode = "kv"})
setmetatable(indexes_pool, {__mode = "kv"})
local function file_exists(name, tag_name)
local t = ""
if tag_name then
t = self.get_tag(tag_name)
self.get_directory = function()
return directory
end
self.set_directory = function(new_directory)
directory = new_directory
if not minetest.mkdir(directory) then
error(string.format("%s is not a directory.", dir))
end
local f = io.open(string.format("%s%s%s.cold", directory, t, name), "r")
end
self.get_memory_pool = function()
return mem_pool
end
self.set_memory_pool = function(pool)
mem_pool = pool
end
self.get_async = function()
return async
end
self.set_async = function(new_async)
async = new_async
end
self.add_to_memory_pool = function(value)
if value then
add_to_mem_pool = value
end
return add_to_mem_pool
end
local function file_exists(name)
local f = io.open(string.format("%s/%s.cold", directory, name), "r")
if f ~= nil then
io.close(f)
return true
@ -41,214 +64,18 @@ function colddb.Colddb(dir)
return false
end
local function delete_lines_func_begin(args)
local f = io.open(args.copyfile, "w")
if f then
args.file = f
args.removedlist = {}
return args
end
return false
end
local function delete_lines_func_i(line, i, args)
local f = args.file
local om = indexes_pool[args.cs]
if om and not om.deleted_items[line] then
f:write(string.format("\n%s", line))
else
args.count = args.count - 1
args.removedlist[line] = true
end
end
local function delete_lines_func_end(args)
local cs = args.cs
local index = indexes_pool[cs]
if index and index.file then
index.file:close()
index.file = nil
args.file:seek("set")
args.file:write(string.format("%i", args.count))
args.file:close()
if args.count < 1 then
os.remove(args.oldfile)
os.remove(args.copyfile)
else
os.remove(args.oldfile)
os.rename(args.copyfile, args.oldfile)
end
local pool = indexes_pool[cs]
for i, l in pairs(args.removedlist) do
pool.deleted_items[i] = nil
end
pool.deleting = false
indexes_pool[cs] = pool
end
args = nil
end
local function iterate(func_on_iterate, end_func, count, cs, args)
local f = indexes_pool[cs]
local fl = f.file
async.iterate(1, count, function(i)
local line = fl:read("*l")
if args.do_not_skip_removed_items or not f.deleted_items[line] then
local ar = func_on_iterate(line, i, args)
if ar ~= nil then
args = ar
return args
end
end
end, function()
if end_func then
end_func(args)
end
local iterate_queue = iterate_queue[cs]
if iterate_queue and iterate_queue[1] then
local copy = iterate_queue[1]
f = indexes_pool[cs]
if not f or not f.file then
self.open_index_table(copy.tag_name)
f = indexes_pool[cs]
end
if copy.begin_func then
local a = copy.begin_func(copy.args)
if a and type(a) == "table" then
copy.args = a
end
end
minetest.after(0, iterate, copy.func_on_iterate, copy.end_func, copy.count, copy.cs, copy.args)
table.remove(iterate_queue[cs], 1)
return false
else
fl:close()
iterate_queue[cs] = nil
end
indexes_pool[cs].iterating = false
return false
end)
end
local function load_into_mem(name, _table, tag_name)
local function load_into_mem(name, _table)
if add_to_mem_pool then
local t = ""
if tag_name then
t = self.get_tag(tag_name)
end
local cs = string.format("%s%s", t, name)
mem_pool[cs] = {mem = _table}
mem_pool[name] = {mem = _table}
end
end
local function _remove_tag(delete_path, prev_dp)
local pc = path_count[delete_path]
if pc and pc > 0 then
minetest.after(1.5, _remove_tag, delete_path)
return
elseif pc and pc < 1 then
mem_pool = {}
mem_pool_del = {}
os.remove(delete_path)
path_count[delete_path] = nil
return
elseif not pc then
path_count[delete_path] = 0
end
local list = minetest.get_dir_list(delete_path)
async.foreach(list, function(k, v)
v = string.format("%s/%s", delete_path, v)
local err = os.remove(v)
if err == nil then
minetest.after(0, _remove_tag, v, delete_path)
path_count[delete_path] = path_count[delete_path] + 1
end
end, function()
if prev_dp then
path_count[prev_dp] = path_count[prev_dp] - 1
end
if pc > 0 then
minetest.after(1.5, _remove_tag, delete_path)
else
mem_pool = {}
mem_pool_del = {}
os.remove(delete_path)
path_count[delete_path] = nil
end
end)
self.exists = function(name)
return file_exists(name)
end
self.exists = function(name, tag_name)
return file_exists(name, tag_name)
end
self.add_tag = function(name, tag, no_new_path)
local t = ""
if not tags[name] then
tags[name] = ""
end
if type(tag) == "table" then
for key, value in pairs(tag) do
t = string.format("%s%s/", t, value)
end
else
t = string.format("%s/", tag)
end
tags[name] = string.format("%s%s", tags[name], t)
if no_new_path then
return
end
local test_path = string.format("%s%s", directory, tags[name])
if not minetest.mkdir(test_path) then
error(string.format("%s is not a directory.", test_path))
end
end
self.get_tag = function(name)
if not name then
return ""
end
local tag = tags[name]
if tag then
return tag
end
return ""
end
self.get_or_add_tag = function(name, tag, no_new_path)
if not tags[name] then
self.add_tag(name, tag, no_new_path)
end
return name
end
self.remove_tag = function(name)
if not name then
local delete_path = directory
local wc = delete_path:len()
delete_path = delete_path:sub(0, wc-1)
return
end
if tags[name] then
local delete_path = string.format("%s%s", directory, tags[name])
local wc = delete_path:len()
delete_path = delete_path:sub(0, wc-1)
tags[name] = nil
local err = os.remove(delete_path)
if err == nil then
minetest.after(0.1, _remove_tag, delete_path)
end
end
end
local function delete_file(name, tag_name)
local t = ""
if tag_name then
t = self.get_tag(tag_name)
end
local text = string.format("%s%s%s.cold", directory, t, name)
local function delete_file(name)
local text = string.format("%s/%s.cold", directory, name)
local err, msg = os.remove(text)
if err == nil then
@ -256,12 +83,8 @@ function colddb.Colddb(dir)
end
end
local function load_table(name, tag_name)
local t = ""
if tag_name then
t = self.get_tag(tag_name)
end
local f = io.open(string.format("%s%s%s.cold", directory, t, name), "r")
local function load_table(name)
local f = io.open(string.format("%s/%s.cold", directory, name), "r")
if f then
local data = minetest.deserialize(f:read("*a"))
f:close()
@ -270,299 +93,67 @@ function colddb.Colddb(dir)
return nil
end
local function save_table(name, _table, tag_name)
local t = ""
if tag_name then
t = self.get_tag(tag_name)
end
minetest.log(string.format("%s%s%s.cold", directory, t, name))
return minetest.safe_file_write(string.format("%s%s%s.cold", directory, t, name), minetest.serialize(_table))
local function save_table(name, _table)
minetest.log(string.format("%s/%s.cold", directory, name))
return minetest.safe_file_write(string.format("%s/%s.cold", directory, name), minetest.serialize(_table))
end
local function save_key(name, tag_name)
local t = ""
if tag_name then
t = self.get_tag(tag_name)
end
return minetest.safe_file_write(string.format("%s%s%s.cold", directory, t, name), "")
local function save_key(name)
return minetest.safe_file_write(string.format("%s/%s.cold", directory, name), "")
end
local function load_key(name, tag_name)
local t = ""
if tag_name then
t = self.get_tag(tag_name)
end
local f = io.open(string.format("%s%s%s.cold", directory, t, name), "r")
local function load_key(name)
local f = io.open(string.format("%s/%s.cold", directory, name), "r")
if f then
f:close()
return true
end
return false
end
self.delete_entries = function(name ,_lines, tag_name)
local t = ""
if tag_name then
t = self.get_tag(tag_name)
end
local cs = string.format("%s%s", t, name)
local f = indexes_pool[cs]
local k = type(_lines)
if k == "string" then
f.deleted_items[_lines] = true
else
for i, l in pairs(_lines) do
f.deleted_items[i] = true
end
end
if not f.deleting then
indexes_pool[cs].deleting = false
end
if f and f.file and not f.deleting then
indexes_pool[cs].deleting = true
if f.needs_flushing == true then
f.file:flush()
indexes_pool[cs].needs_flushing = false
end
local oldfile = string.format("%s%s%s.cold", directory, t, name)
local copyfile = string.format("%s%s%s.cold.replacer", directory, t, name)
local args = {cs = cs, oldfile = oldfile, copyfile = copyfile, do_not_skip_removed_items = true}
indexes_pool[cs] = f
iterate_index_table(delete_entries_func_begin, delete_entries_func_i, delete_entries_func_end, args, tag_name)
end
end
self.open_entry_file = function(name, tag_name)
local t = ""
if tag_name then
t = self.get_tag(tag_name)
end
local cs = string.format("%s%s", t, name)
local fs = indexes_pool[cs]
if not fs then
local p = string.format("%s%s%s.cold", directory, t, name)
if not file_exists(name,tag_name) then
local f = io.open(p, "w")
if f then
f:seek("set")
f:write("0")
f:close()
end
end
local f = io.open(p, "r+")
if f then
indexes_pool[cs] = {file = f, needs_flushing = false, deleted_items = {}, iterating = false}
return f
end
return nil
else
return fs.file
end
return nil
end
self.append_entry_file = function(name, key, op, tag_name)
local t = ""
if tag_name then
t = self.get_tag(tag_name)
end
local cs = string.format("%s%s", t, name)
local f = indexes_pool[cs]
local k = type(key)
if f and f.file and k == "string" then
local fl = f.file
if f.needs_flushing == true then
fl:flush()
f.needs_flushing = false
end
indexes_pool[cs].needs_flushing = true
fl:seek("end")
fl:write(string.format("\n%s", key))
fl:seek("set")
local count = tonumber(fl:read("*l"))
count = count + 1
fl:seek("set")
fl:write(string.format("%i", count))
fl:close()
elseif f and f.file then
local fl = f.file
if f.needs_flushing == true then
fl:flush()
f.needs_flushing = false
end
indexes_pool[cs].needs_flushing = true
local c = 0
if op and op == "key" then
for i in pairs(key) do
fl:seek("end")
fl:write(string.format("\n%s", i))
c = c + 1
end
elseif not op or op == "value" then
for i, j in pairs(key) do
fl:seek("end")
fl:write(string.format("\n%s", j))
c = c + 1
end
end
fl:seek("set")
local count = tonumber(fl:read("*l"))
count = count + c
fl:seek("set")
fl:write(string.format("%i", count))
fl:close()
else
return false
end
end
self.get_entry_file_count = function(name, tag_name)
local t = ""
if tag_name then
t = self.get_tag(tag_name)
end
local cs = string.format("%s%s", t, name)
local f = indexes_pool[cs]
if not f or not f.file then
self.open_entry_file(name, tag_name)
f = indexes_pool[cs]
end
if f and f.file then
local fl = f.file
if f.needs_flushing == true then
fl:flush()
f.needs_flushing = false
end
fl:seek("set")
local count = tonumber(fl:read("*l"))
fl:close()
return count
end
return nil
end
self.iterate_entry_file = function(name, begin_func, func_on_iterate, end_func, args, tag_name)
local t = ""
if tag_name then
t = self.get_tag(tag_name)
end
local cs = string.format("%s%s", t, name)
local f = indexes_pool[cs]
if not f or not f.file then
self.open_entry_file(tag_name)
f = indexes_pool[cs]
end
if f and f.file and indexes_pool[cs].iterating == false then
indexes_pool[cs].iterating = true
local fl = f.file
if f.needs_flushing == true then
fl:flush()
f.needs_flushing = false
end
-- Get count
fl:seek("set")
local c = tonumber(fl:read("*l"))
if not args then
args = {}
end
args.count = c
-- Run the begin function
if begin_func then
local a = begin_func(args)
if a and type(a) == "table" then
args = a
end
end
if c < 1 then
-- If theres nothing to index then return
end_func(args)
indexes_pool[cs].iterating = false
return false
end
-- Start iterating the index table
iterate(func_on_iterate, end_func, c, cs, args)
elseif f and f.file then
local fl = f.file
-- If its iterating some other function then add this one to the queue list
fl:seek("set")
local c = tonumber(fl:read("*l"))
if c < 1 then
-- If theres nothing to index then return
return false
end
if not iterate_queue[cs] then
iterate_queue[cs] = {}
end
local _table = {begin_func = begin_func, func_on_iterate = func_on_iterate, end_func = end_func, count = c, cs = cs, tag_name = tag_name, args = args}
table.insert(iterate_queue[cs], _table)
end
self.set_mem = function(name, _table)
load_into_mem(name, _table)
mem_pool_del[name] = nil
end
self.set_mem = function(name, _table, tag_name)
local t = ""
if tag_name then
t = self.get_tag(tag_name)
end
load_into_mem(name, _table, tag_name)
local cs = string.format("%s%s", t, name)
mem_pool_del[cs] = nil
end
self.save_mem = function(name, tag_name)
local t = ""
if tag_name then
t = self.get_tag(tag_name)
end
local cs = string.format("%s%s", t, name)
self.save_mem = function(name)
async.queue_task(function()
if mem_pool[cs] ~= nil then
save_table(name, mem_pool[cs].mem, tag_name)
if mem_pool[name] ~= nil then
save_table(name, mem_pool[name].mem)
end
end)
mem_pool_del[cs] = nil
mem_pool_del[name] = nil
end
self.clear_mem = function(name)
mem_pool[name] = nil
mem_pool_del[name] = nil
end
self.set = function(name, _table, tag_name)
local t = ""
if tag_name then
t = self.get_tag(tag_name)
end
self.set = function(name, _table)
async.queue_task(function()
save_table(name, _table, tag_name)
save_table(name, _table)
end)
if add_to_mem_pool then
load_into_mem(name, _table, tag_name)
load_into_mem(name, _table)
end
local cs = string.format("%s%s", t, name)
mem_pool_del[cs] = nil
mem_pool_del[name] = nil
end
self.set_key = function(name, tag_name)
local t = ""
if tag_name then
t = self.get_tag(tag_name)
end
self.set_key = function(name)
async.queue_task(function()
save_key(name, tag_name)
save_key(name)
end)
if add_to_mem_pool then
load_into_mem(name, "", tag_name)
load_into_mem(name, "")
end
local cs = string.format("%s%s", t, name)
mem_pool_del[cs] = nil
mem_pool_del[name] = nil
end
self.get = function(name, tag_name, callback)
local t = ""
if tag_name then
t = self.get_tag(tag_name)
end
local cs = string.format("%s%s", t, name)
if mem_pool_del[cs] then
self.get = function(name, callback)
if mem_pool_del[name] then
if callback then
callback(nil)
end
@ -570,42 +161,37 @@ function colddb.Colddb(dir)
end
if callback then
async.queue_task(function()
local pm = mem_pool[cs]
local pm = mem_pool[name]
if pm then
return pm.mem
else
local _table = load_table(name, tag_name)
local _table = load_table(name)
if _table then
load_into_mem(name, _table, tag_name)
load_into_mem(name, _table)
return _table
end
end
mem_pool_del[cs] = true
mem_pool_del[name] = true
return nil
end,callback)
else
local pm = mem_pool[cs]
local pm = mem_pool[name]
if pm then
return pm.mem
else
local _table = load_table(name, tag_name)
local _table = load_table(name)
if _table then
load_into_mem(name, _table, tag_name)
load_into_mem(name, _table)
return _table
end
end
mem_pool_del[cs] = true
mem_pool_del[name] = true
return nil
end
end
self.get_key = function(name, tag_name, callback)
local t = ""
if tag_name then
t = self.get_tag(tag_name)
end
local cs = string.format("%s%s", t, name)
if mem_pool_del[cs] then
self.get_key = function(name, callback)
if mem_pool_del[name] then
if callback then
callback(false)
end
@ -613,49 +199,40 @@ function colddb.Colddb(dir)
end
if callback then
async.queue_task(function()
local t = ""
if tag_name then
t = self.get_tag(tag_name)
end
local pm = mem_pool[cs]
local pm = mem_pool[name]
if pm then
return true
else
local bool = load_key(name, tag_name)
local bool = load_key(name)
if bool then
load_into_mem(name, bool, tag_name)
load_into_mem(name, bool)
return bool
end
end
mem_pool_del[cs] = true
mem_pool_del[name] = true
return nil
end,callback)
else
local pm = mem_pool[cs]
local pm = mem_pool[name]
if pm then
return true
else
local bool = load_key(name, tag_name)
local bool = load_key(name)
if bool then
load_into_mem(name, bool, tag_name)
load_into_mem(name, bool)
return bool
end
end
mem_pool_del[cs] = true
mem_pool_del[name] = true
return nil
end
end
self.remove = function(name, tag_name)
local t = ""
if tag_name then
t = self.get_tag(tag_name)
end
local cs = string.format("%s%s", t, name)
mem_pool[cs] = nil
mem_pool_del[cs] = true
self.remove = function(name)
mem_pool[name] = nil
mem_pool_del[name] = true
async.queue_task(function()
delete_file(name, tag_name)
delete_file(name)
end)
end

View File

@ -1,6 +1,6 @@
modpath = minetest.get_modpath("colddb")
dofile(string.format("%s/async.lua",modpath))
dofile(string.format("%s/colddb.lua",modpath))
dofile(string.format("%s/async.lua", modpath))
dofile(string.format("%s/colddb.lua", modpath))
minetest.log("action", "[colddb] loaded.")