Structure overhaul

This commit is contained in:
Lars Mueller 2020-02-09 01:39:54 +01:00
parent 85cd3a34f3
commit b25fc33e64
12 changed files with 890 additions and 852 deletions

25
class.lua Normal file

@ -0,0 +1,25 @@
classes = {}
function define(name, def)
if def.extends then
setmetatable(def, get(def.extends))
end
classes[name] = def
end
function new(classname, ...)
local obj = get(classname).new(...)
obj = setmetatable(obj, {__index = classes[classname]}) -- TODO ? metatable add __call with setfenv
return obj
end
function get(classname)
return classes[classname]
end
function call(classname, funcname, object, ...)
if object then
setfenv(1, object)
get(classname)[funcname](object, ...)
else
setfenv(1, classes[classname])
get(classname)[funcname](...)
end
setfenv(1, _G)
end

101
conf.lua Normal file

@ -0,0 +1,101 @@
minetest.mkdir(minetest.get_worldpath().."/config")
function get_path(confname)
return minetest.get_worldpath().."/config/"..confname
end
function load (filename, constraints)
local config=minetest.parse_json(modlib.file.read(filename))
if constraints then
local error_message=check_constraints(config, constraints)
if error_message then
error("Configuration - "..filename.." doesn't satisfy constraints : "..error_message)
end
end
return config
end
function load_or_create(filename, replacement_file, constraints)
modlib.file.create_if_not_exists_from_file(filename, replacement_file)
return load(filename, constraints)
end
function import(modname,constraints)
return load_or_create(get_path(modname)..".json",get_resource(modname, "default_config.json"),constraints)
end
function check_constraints(value, constraints)
local t=type(value)
if constraints.func then
local possible_errors=constraints.func(value)
if possible_errors then
return possible_errors
end
end
if constraints.type and constraints.type~=t then
return "Wrong type : Expected "..constraints.type..", found "..t
end
if (t == "number" or t == "string") and constraints.range then
if value < constraints.range[1] or (constraints.range[2] and value > constraints.range[2]) then
return "Not inside range : Expected value >= "..constraints.range[1].." and <= "..constraints.range[1]..", found "..minetest.write_json(value)
end
end
if constraints.possible_values and not constraints.possible_values[value] then
return "None of the possible values : Expected one of "..minetest.write_json(modlib.table.keys(constraints.possible_values))..", found "..minetest.write_json(value)
end
if t == "table" then
if constraints.children then
for k, v in pairs(value) do
local child=constraints.children[k]
if not child then
return "Unexpected table entry : Expected one of "..minetest.write_json(modlib.table.keys(constraints.children))..", found "..minetest.write_json(k)
else
local possible_errors=check_constraints(v, child)
if possible_errors then
return possible_errors
end
end
end
for k, _ in pairs(constraints.children) do
if value[k] == nil then
return "Table entry missing : Expected key "..minetest.write_json(k).." to be present in table "..minetest.write_json(value)
end
end
end
if constraints.required_children then
for k,v_constraints in pairs(constraints.required_children) do
local v=value[k]
if v then
local possible_errors=check_constraints(v, v_constraints)
if possible_errors then
return possible_errors
end
else
return "Table entry missing : Expected key "..minetest.write_json(k).." to be present in table "..minetest.write_json(value)
end
end
end
if constraints.possible_children then
for k,v_constraints in pairs(constraints.possible_children) do
local v=value[k]
if v then
local possible_errors=check_constraints(v, v_constraints)
if possible_errors then
return possible_errors
end
end
end
end
if constraints.keys then
for k,_ in pairs(value) do
local possible_errors=check_constraints(k, constraints.keys)
if possible_errors then
return possible_errors
end
end
end
if constraints.values then
for _,v in pairs(value) do
local possible_errors=check_constraints(v, constraints.values)
if possible_errors then
return possible_errors
end
end
end
end
end

19
data.lua Normal file

@ -0,0 +1,19 @@
minetest.mkdir(minetest.get_worldpath().."/data")
function create_mod_storage(modname)
minetest.mkdir(minetest.get_worldpath().."/data/"..modname)
end
function get_path(modname, filename)
return minetest.get_worldpath().."/data/"..modname.."/"..filename
end
function load(modname, filename)
return minetest.deserialize(modlib.file.read(get_path(modname, filename)..".lua"))
end
function save(modname, filename, stuff)
return modlib.file.write(get_path(modname, filename)..".lua", minetest.serialize(stuff))
end
function load_json(modname, filename)
return minetest.parse_json(modlib.file.read(get_path(modname, filename)..".json") or "null")
end
function save_json(modname, filename, stuff)
return modlib.file.write(get_path(modname, filename)..".json", minetest.write_json(stuff))
end

92
file.lua Normal file

@ -0,0 +1,92 @@
function read(filename)
local file=io.open(filename,"r")
if file==nil then
return nil
end
local content=file:read("*a")
file:close()
return content
end
function write(filename, new_content)
local file=io.open(filename,"w")
if file==nil then
return false
end
file:write(new_content)
file:close()
return true
end
function append(filename, new_content)
local file=io.open(filename,"a")
if file==nil then
return false
end
file:write(new_content)
file:close()
return true
end
function exists(filename)
local file=io.open(filename, "r")
if file==nil then
return false
end
file:close()
return true
end
function create_if_not_exists(filename, content)
if not exists(filename) then
write(filename, content or "")
return true
end
return false
end
function create_if_not_exists_from_file(filename, src_filename)
return create_if_not_exists(filename, read(src_filename))
end
-- Process Bridge Helpers
process_bridges={}
function process_bridge_build(name, input, output, logs)
if not input or not output or not logs then
minetest.mkdir(minetest.get_worldpath().."/bridges/"..name)
end
input=input or minetest.get_worldpath().."/bridges/"..name.."/input.txt"
output=output or minetest.get_worldpath().."/bridges/"..name.."/output.txt"
logs=logs or minetest.get_worldpath().."/bridges/"..name.."/logs.txt"
-- Clear input
write(input, "")
-- Clear output
write(output, "")
-- Create logs if not exists
create_if_not_exists(logs, "")
process_bridges[name]={input=input, output=output, logs=logs, output_file=io.open(output,"a")}
end
function process_bridge_listen(name, line_consumer, step)
local bridge=process_bridges[name]
modlib.minetest.register_globalstep(step or 0.1, function(dtime)
local content=io.open(bridge.input, "r")
local line=content:read()
while line do
line_consumer(line)
line=content:read()
end
write(bridge.input, "")
end)
end
function process_bridge_serve(name, step)
local bridge=process_bridges[name]
modlib.minetest.register_globalstep(step or 0.1, function(dtime)
bridge.output_file:close()
process_bridges[name].output_file=io.open(bridge.output,"a")
end)
end
function process_bridge_write(name, message)
local bridge=process_bridges[name]
bridge.output_file:write(message.."\n")
--append(bridge.input, message)
end
function process_bridge_start(name, command, os_execute)
local bridge=process_bridges[name]
os_execute(string.format(command, bridge.output, bridge.input, bridge.logs))
end

926
init.lua

@ -1,659 +1,47 @@
-- Set boolean flag
modlib = true
-- Lua version check
if _VERSION then
if _VERSION < "Lua 5" then
error("Outdated Lua version ! modlib requires Lua 5 or greater.")
error("Outdated Lua version! modlib requires Lua 5 or greater.")
end
if _VERSION > "Lua 5.1" then -- TODO automatically use _ENV instead of s/getfenv if _VERSION > 5.1
error("Too new Lua version ! modlib requires Lua 5.1 or smaller.")
-- not throwing error("Too new Lua version! modlib requires Lua 5.1 or smaller.") anymore
loadstring = load
function setfenv(fn, env)
local i = 1
while true do
name = debug.getupvalue(fn, i)
if name == "_ENV" then
debug.setupvalue(fn, i, env)
break
elseif not name then
break
end
end
return fn
end
function getfenv(fn)
local i = 1
local name, val
repeat
name, val = debug.getupvalue(fn, i)
if name == "_ENV" then
return val
end
i = i + 1
until not name
end
end
end
-- MT shorthands
mt=minetest
mt.version=minetest.get_version()
mt = minetest
MT = mt
if mt.version.project == "Minetest" then
if mt.version.string < "0.4" then
error("Outdated Minetest version ! modlib requires Minetest 0.4 or greater.")
end
if mt.version.string > "5.1" then
--error("Too new Minetest version ! modlib requires Minetest 5.1 or smaller.")
end
else
--error("No Minetest provided ! Modlib requires Minetest instead of "..mt.version.project..".")
end
MT=mt
-- MT extension
-- TODO add formspec queues and event system + sync handler
mt_ext = {
delta_times={},
delays={},
callbacks={},
register_globalstep=function(interval, callback)
if type(callback) ~= "function" then
return
end
table.insert(mt_ext.delta_times, 0)
table.insert(mt_ext.delays, interval)
table.insert(mt_ext.callbacks, callback)
end,
texture_modifier_inventorycube=function(face_1, face_2, face_3)
return "[inventorycube{" .. string.gsub(face_1, "%^", "&")
.. "{" .. string.gsub(face_2, "%^", "&")
.. "{" .. string.gsub(face_3, "%^", "&")
end,
get_node_inventory_image=function(nodename)
local n = minetest.registered_nodes[nodename]
if not n then
return
end
local tiles = {}
for l, tile in pairs(n.tiles or {}) do
tiles[l] = (type(tile) == "string" and tile) or tile.name
end
local chosen_tiles = { tiles[1], tiles[3], tiles[5] }
if #chosen_tiles == 0 then
return false
end
if not chosen_tiles[2] then
chosen_tiles[2] = chosen_tiles[1]
end
if not chosen_tiles[3] then
chosen_tiles[3] = chosen_tiles[2]
end
local img = minetest.registered_items[nodename].inventory_image
if string.len(img) == 0 then
img = nil
end
return img or mt_ext.texture_modifier_inventorycube(chosen_tiles[1], chosen_tiles[2], chosen_tiles[3])
end,
get_color_int=function(color)
return color.b + (color.g*256) + (color.r*256*256)
end,
check_player_privs=function(playername, privtable)
local privs=minetest.get_player_privs(playername)
local missing_privs={}
local to_lose_privs={}
for priv, expected_value in pairs(privtable) do
local actual_value=privs[priv]
if expected_value then
if not actual_value then
table.insert(missing_privs, priv)
end
else
if actual_value then
table.insert(to_lose_privs, priv)
end
end
end
return missing_privs, to_lose_privs
end
}
minetest.register_globalstep(function(dtime)
for k, v in pairs(mt_ext.delta_times) do
local v=dtime+v
if v > mt_ext.delays[k] then
mt_ext.callbacks[k](v)
v=0
end
mt_ext.delta_times[k]=v
end
end)
-- Chatcommand Extension : Won't be implemented in modlib, will make another library for that purpose
-- cmd_ext = nil
-- Player specific values
player_ext = {
forbidden_names={"me"},
register_forbidden_name=function(name)
player_ext.forbidden_names[name]=true
end,
unregister_forbidden_name=function(name)
player_ext.forbidden_names[name]=nil
end,
playerdata = {},
defaults={},
playerdata_functions={},
delete_player_data=function(playername)
player_ext.playerdata[playername]=nil
end,
create_player_data=function(playername)
player_ext.playerdata[playername]={}
end,
init_player_data=function(playername)
table_ext.add_all(player_ext.playerdata[playername], player_ext.defaults)
for _, callback in ipairs(player_ext.playerdata_functions) do
callback(player_ext.playerdata[playername])
end
end,
get_player_data=function(playername)
return player_ext.playerdata[playername]
end,
get_property =function(playername, propertyname)
return player_ext.get_player_data(playername)[propertyname]
end,
set_property =function(playername, propertyname, propertyvalue)
player_ext.get_player_data(playername)[propertyname]=propertyvalue
end,
get_property_default =function(propertyname)
return player_ext.defaults[propertyname]
end,
set_property_default =function(propertyname, defaultvalue)
player_ext.defaults[propertyname]=defaultvalue
end,
add_playerdata_function=function(callback)
table.insert(player_ext.playerdata_functions, callback)
end,
get_color=function(player)
local sender_color=player:get_properties().nametag_color
if sender_color then
sender_color = minetest.rgba(sender_color.r, sender_color.g, sender_color.b)
else
sender_color="#FFFFFF"
end
return sender_color
end,
get_color_table=function(player)
local sender_color=player:get_properties().nametag_color
return sender_color or {r=255, g=255, b=255}
end,
get_color_int=function(player)
local sender_color=player:get_properties().nametag_color
if sender_color then
sender_color = sender_color.b + (sender_color.g*256) + (sender_color.r*256*256)
else
sender_color=0xFFFFFF
end
return sender_color
end
}
minetest.register_on_prejoinplayer(function(name, ip)
if player_ext.forbidden_names[name] then
return "The name '"..name.."' is already used in the game and thus not allowed as playername."
end
end )
minetest.register_on_joinplayer(function(player)
local playername=player:get_player_name()
player_ext.create_player_data(playername)
player_ext.init_player_data(playername)
end)
minetest.register_on_leaveplayer(function(player)
local playername=player:get_player_name()
player_ext.delete_player_data(playername)
end)
-- OOP helpers
class={
classes={},
define=function(name, def)
if def.extends then
setmetatable(def, class.get(def.extends))
end
class.classes[name]=def
end,
new=function(classname, ...)
local obj=class.get(classname).new(...)
obj=setmetatable(obj, {__index=class.classes[classname]}) -- TODO ? metatable add __call with setfenv
return obj
end,
get=function(classname)
return class.classes[classname]
end,
call=function(classname, funcname, object, ...)
if object then
setfenv(1, object)
class.get(classname)[funcname](object,...)
else
setfenv(1, class.classes[classname])
class.get(classname)[funcname](...)
end
setfenv(1, _G)
end
}
-- Table helpers
table_ext= {
tablecopy = function(t)
return table.copy(t)
end,
count = function(table)
local count = 0
for _ in pairs(table) do
count = count + 1
end
return count
end,
is_empty = function(table)
return next(table) == nil
end,
map = function(t, func)
for k, v in pairs(t) do
t[k]=func(v)
end
end,
process = function(t, func)
local r={}
for k, v in pairs(t) do
table.insert(r, func(k,v))
end
return r
end,
call=function(funcs, ...)
for _, func in ipairs(funcs) do
func(unpack(arg))
end
end,
merge_tables = function(table1, table2)
local table1copy = table.copy(table1)
for key, value in pairs(table2) do
table1copy[key] = value
end
return table1copy
end,
difference=function(table1, table2)
local result={}
for k, v in pairs(table2) do
local v2=table1[v]
if v2~=v then
result[k]=v
end
end
return result
end,
add_all=function(dst, new)
for key, value in pairs(new) do
dst[key] = value
end
return dst
end,
append=function(t1, t2)
local l=#t1
for k, v in ipairs(t2) do
t1[l+k]=v
end
return t1
end,
keys = function(t)
local keys = {}
for key, _ in pairs(t) do
table.insert(keys, key)
end
return keys
end,
values = function(t)
local values = {}
for key, _ in pairs(t) do
table.insert(values, key)
end
return values
end,
flip = function(table)
local flipped = {}
for key, val in pairs(table) do
flipped[val] = key
end
return flipped
end,
set = function(table)
local flipped = {}
for _, val in pairs(table) do
flipped[val] = true
end
return flipped
end,
unique = function(table)
local lookup = {}
for val in ipairs(table) do
lookup[val] = true
end
return table_ext.keys(lookup)
end,
rpairs=function(t)
local i = #t
return function ()
if i >= 1 then
local v=t[i]
i = i-1
if v then
return i+1, v
end
end
end
end,
best_value=function(table, is_better_fnc)
if not table or not is_better_fnc then
return nil
end
local l=#table
if l==0 then
return nil
end
local m=table[1]
for i=2, l do
local v=table[i]
if is_better_fnc(v, m) then
m=v
end
end
return m
end,
min = function(table)
return table_ext.best_value(table, function(v, m) return v < m end)
end,
max = function(table)
return table_ext.best_value(table, function(v, m) return v > m end)
end,
binary_search = function(list, value)
local min, size = 1, #list
while size > 1 do
local s_half = math.floor(size / 2)
local pivot = min + s_half
local element = list[pivot]
if value > element then
min = pivot
end
size = s_half
end
end
}
-- Number helpers - currently only round
number_ext={
round=function (number, steps) --Rounds a number
steps=steps or 1
return math.floor(number*steps+0.5)/steps
end
}
-- TODO probably set string metatables ?
-- String helpers - split & trim at end & begin
string_ext={
starts_with=function(str, start)
return str:sub(1, start:len()) == start
end,
ends_with=function(str, suffix)
return str:sub(str:len()-suffix:len()+1) == suffix
end,
trim=function(str, to_remove)
local j=1
for i=1, string.len(str) do
if str:sub(i,i) ~= to_remove then
j=i
break
end
end
local k=1
for i=string.len(str),j,-1 do
if str:sub(i,i) ~= to_remove then
k=i
break
end
end
return str:sub(j,k)
end,
trim_begin=function(str, to_remove)
local j=1
for i=1, string.len(str) do
if str:sub(i,i) ~= to_remove then
j=i
break
end
end
return str:sub(j)
end,
split=function(str, delim, limit)
if not limit then return string_ext.split_without_limit(str, delim) end
local parts={}
local occurences=1
local last_index=1
local index=string.find(str, delim, 1, true)
while index and occurences < limit do
table.insert(parts, string.sub(str, last_index, index-1))
last_index=index+string.len(delim)
index=string.find(str, delim, index+string.len(delim), true)
occurences=occurences+1
end
table.insert(parts, string.sub(str, last_index))
return parts
end,
split_without_limit=function(str, delim)
local parts={}
local last_index=1
local index=string.find(str, delim, 1, true)
while index do
table.insert(parts, string.sub(str, last_index, index-1))
last_index=index+string.len(delim)
index=string.find(str, delim, index+string.len(delim), true)
end
table.insert(parts, string.sub(str, last_index))
return parts
end,
hashtag=string.byte("#"),
zero=string.byte("0"),
nine=string.byte("9"),
letter_a=string.byte("A"),
letter_f=string.byte("F"),
is_hexadecimal=function(byte)
return (byte >= zero and byte <= string_ext.nine) or (byte >= string_ext.letter_a and byte <= string_ext.letter_f)
end,
magic_chars={"%", "(", ")", ".", "+", "-", "*", "?", "[", "^", "$"--[[,":"]]},
escape_magic_chars=function(text)
for _, magic_char in ipairs(string_ext.magic_chars) do
text=string.gsub(text, "%"..magic_char,"%%"..magic_char)
end
return text
end,
utf8=function(number)
if number < 0x007F then
return string.char(number)
end
if number < 0x00A0 or number > 0x10FFFF then --Out of range
return
end
local result=""
local i=0
while true do
local remainder=number % 64
result=string.char(128+remainder)..result
number=(number-remainder) / 64
i=i+1
if number <= math.pow(2, 8-i-2) then
break
end
end
return string.char(256-math.pow(2, 8-i-1)+number)..result --256 = math.pow(2, 8)
end,
handle_ifndefs=function(code, vars)
local finalcode={}
local endif
local after_endif=-1
local ifndef_pos, after_ifndef=string.find(code, "--IFNDEF", 1, true)
while ifndef_pos do
table.insert(finalcode, string.sub(code, after_endif+2, ifndef_pos-1))
local linebreak=string.find(code, "\n", after_ifndef+1, true)
local varname=string.sub(code, after_ifndef+2, linebreak-1)
endif, after_endif=string.find(code, "--ENDIF", linebreak+1, true)
if not endif then break end
if vars[varname] then
table.insert(finalcode, string.sub(code, linebreak+1, endif-1))
end
ifndef_pos, after_ifndef=string.find(code, "--IFNDEF", after_endif+1, true)
end
table.insert(finalcode, string.sub(code, after_endif+2))
return table.concat(finalcode, "")
end
}
threading_ext={
locks={},
request=function(resource, func, ...)
if threading_ext.locks[resource] then
table.insert(threading_ext.locks[resource], {func=func, args={...}})
return false
end
threading_ext.locks[resource]={}
return true
end,
free=function(resource)
if threading_ext.locks[resource] then
local first=threading_ext.locks[resource][1]
if first then
first.func(unpack(first.args), true)
end
end
threading_ext.locks[resource]=nil
return true
end
}
-- File helpers - reading, writing, appending, exists, create_if_not_exists
file_ext={
read=function(filename)
local file=io.open(filename,"r")
if file==nil then
return nil
end
local content=file:read("*a")
file:close()
return content
end,
write=function(filename, new_content)
local file=io.open(filename,"w")
if file==nil then
return false
end
file:write(new_content)
file:close()
return true
end,
append=function(filename, new_content)
local file=io.open(filename,"a")
if file==nil then
return false
end
file:write(new_content)
file:close()
return true
end,
exists=function(filename)
local file=io.open(filename, "r")
if file==nil then
return false
end
file:close()
return true
end,
create_if_not_exists=function(filename, content)
if not file_ext.exists(filename) then
file_ext.write(filename, content or "")
return true
end
return false
end,
create_if_not_exists_from_file=function(filename, src_filename)
return file_ext.create_if_not_exists(filename, file_ext.read(src_filename))
end,
-- Process Bridge Helpers
process_bridges={},
process_bridge_build=function(name, input, output, logs)
if not input or not output or not logs then
minetest.mkdir(minetest.get_worldpath().."/bridges/"..name)
end
input=input or minetest.get_worldpath().."/bridges/"..name.."/input.txt"
output=output or minetest.get_worldpath().."/bridges/"..name.."/output.txt"
logs=logs or minetest.get_worldpath().."/bridges/"..name.."/logs.txt"
-- Clear input
file_ext.write(input, "")
-- Clear output
file_ext.write(output, "")
-- Create logs if not exists
file_ext.create_if_not_exists(logs, "")
file_ext.process_bridges[name]={input=input, output=output, logs=logs, output_file=io.open(output,"a")}
end,
process_bridge_listen=function(name, line_consumer, step)
local bridge=file_ext.process_bridges[name]
mt_ext.register_globalstep(step or 0.1, function(dtime)
local content=io.open(bridge.input, "r")
local line=content:read()
while line do
line_consumer(line)
line=content:read()
end
file_ext.write(bridge.input, "")
end)
end,
process_bridge_serve=function(name, step)
local bridge=file_ext.process_bridges[name]
mt_ext.register_globalstep(step or 0.1, function(dtime)
bridge.output_file:close()
file_ext.process_bridges[name].output_file=io.open(bridge.output,"a")
end)
end,
process_bridge_write=function(name, message)
local bridge=file_ext.process_bridges[name]
bridge.output_file:write(message.."\n")
--file_ext.append(bridge.input, message)
end,
process_bridge_start=function(name, command, os_execute)
local bridge=file_ext.process_bridges[name]
os_execute(string.format(command, bridge.output, bridge.input, bridge.logs))
end
}
-- Minetest related helpers --
-- TODO automatically know current mod
-- get modpath wrapper
function get_resource(modname, resource)
return minetest.get_modpath(modname).."/"..resource
return minetest.get_modpath(modname) .. "/" .. resource
end
-- get resource + dofile
@ -661,230 +49,66 @@ function include(modname, file)
dofile(get_resource(modname, file))
end
-- dofile with table env
function loadfile_exports(filename)
local env = setmetatable({}, {__index = _G, __call = _G})
local file = assert(loadfile(filename))
setfenv(file, env)
file()
return env
end
-- loadfile with table env
function include_class(classname, filename)
local file=io.open(filename, "r")
local class=classname.."={_G=_G, G=_G}\nsetfenv(1,setmetatable("..classname..", {__index=_G, __call=_G}))\n"..file:read("*a").."\n"
local fnc=assert(loadstring(class))
fnc()
file:close()
_G[classname] = setmetatable(_G[classname] or {}, {__index = _G, __call = _G})
local class = assert(loadfile(filename))
setfenv(class, _G[classname])
class()
return _G[classname]
end
-- runs main.lua in table env
function include_mod(modname, config_constraints)
include_class(modname, get_resource(modname,"main.lua"))
if config_constraints then
end
function include_mod(modname)
include_class(modname, get_resource(modname, "main.lua"))
end
function extend_mod(modname, filename)
local file=io.open(get_resource(modname,filename..".lua"), "r")
local class="setfenv(1,setmetatable("..modname..", {__index=_G, __call=_G}))\n"..file:read("*a").."\n"
local fnc=assert(loadstring(class))
fnc()
file:close()
include_class(modname, get_resource(modname, filename .. ".lua"))
end
function extend_mod_string(modname, string)
local class="setfenv(1,setmetatable("..modname..", {__index=_G, __call=_G}))\n"..string.."\n"
local fnc=assert(loadstring(class))
fnc()
_G[modname] = setmetatable(_G[modname] or {}, {__index = _G, __call = _G})
local string = assert(loadstring(string))
setfenv(string, _G[modname])
string()
return _G[modname]
end
-- Data helpers - load data, save data...
minetest.mkdir(minetest.get_worldpath().."/data")
data={
create_mod_storage=function(modname)
minetest.mkdir(minetest.get_worldpath().."/data/"..modname)
end,
get_path=function(modname, filename)
return minetest.get_worldpath().."/data/"..modname.."/"..filename
end,
load=function(modname, filename)
return minetest.deserialize(file_ext.read(data.get_path(modname, filename)..".lua"))
end,
save=function(modname, filename, stuff)
return file_ext.write(data.get_path(modname, filename)..".lua", minetest.serialize(stuff))
end,
load_json =function(modname, filename)
return minetest.parse_json(file_ext.read(data.get_path(modname, filename)..".json") or "null")
end,
save_json=function(modname, filename, stuff)
return file_ext.write(data.get_path(modname, filename)..".json", minetest.write_json(stuff))
end
local components = {
class = {class = "global"},
conf = {conf = "global"},
data = {data = "global"},
file = {file_ext = "global"},
log = {log = "global"},
minetest = {mt_ext = "global"},
number = {number_ext = "global"},
player = {player_ext = "global"},
table = {table_ext = "global"},
text = {string_ext = "global"},
threading = {threading_ext = "global"}
}
-- Configuration helpers - load config, check constraints
minetest.mkdir(minetest.get_worldpath().."/config")
conf={
get_path=function(confname)
return minetest.get_worldpath().."/config/"..confname
end,
load=function (filename, constraints)
local config=minetest.parse_json(file_ext.read(filename))
if constraints then
local error_message=conf.check_constraints(config, constraints)
if error_message then
error("Configuration - "..filename.." doesn't satisfy constraints : "..error_message)
end
end
return config
end,
load_or_create=function(filename, replacement_file, constraints)
file_ext.create_if_not_exists_from_file(filename, replacement_file)
return conf.load(filename, constraints)
end,
import=function(modname,constraints)
return conf.load_or_create(conf.get_path(modname)..".json",get_resource(modname, "default_config.json"),constraints)
end,
check_constraints=function(value, constraints)
local t=type(value)
if constraints.func then
local possible_errors=constraints.func(value)
if possible_errors then
return possible_errors
end
end
if constraints.type and constraints.type~=t then
return "Wrong type : Expected "..constraints.type..", found "..t
end
if (t == "number" or t == "string") and constraints.range then
if value < constraints.range[1] or (constraints.range[2] and value > constraints.range[2]) then
return "Not inside range : Expected value >= "..constraints.range[1].." and <= "..constraints.range[1]..", found "..minetest.write_json(value)
end
end
if constraints.possible_values and not constraints.possible_values[value] then
return "None of the possible values : Expected one of "..minetest.write_json(table_ext.keys(constraints.possible_values))..", found "..minetest.write_json(value)
end
if t == "table" then
if constraints.children then
for k, v in pairs(value) do
local child=constraints.children[k]
if not child then
return "Unexpected table entry : Expected one of "..minetest.write_json(table_ext.keys(constraints.children))..", found "..minetest.write_json(k)
modlib = {}
for component, additional in pairs(components) do
local comp = loadfile_exports(get_resource("modlib", component .. ".lua"))
modlib[component] = comp
for alias, scope in pairs(additional) do
if scope == "global" then
_G[alias] = comp
else
local possible_errors=conf.check_constraints(v, child)
if possible_errors then
return possible_errors
modlib[alias] = comp
end
end
end
for k, _ in pairs(constraints.children) do
if value[k] == nil then
return "Table entry missing : Expected key "..minetest.write_json(k).." to be present in table "..minetest.write_json(value)
end
end
end
if constraints.required_children then
for k,v_constraints in pairs(constraints.required_children) do
local v=value[k]
if v then
local possible_errors=conf.check_constraints(v, v_constraints)
if possible_errors then
return possible_errors
end
else
return "Table entry missing : Expected key "..minetest.write_json(k).." to be present in table "..minetest.write_json(value)
end
end
end
if constraints.possible_children then
for k,v_constraints in pairs(constraints.possible_children) do
local v=value[k]
if v then
local possible_errors=conf.check_constraints(v, v_constraints)
if possible_errors then
return possible_errors
end
end
end
end
if constraints.keys then
for k,_ in pairs(value) do
local possible_errors=conf.check_constraints(k, constraints.keys)
if possible_errors then
return possible_errors
end
end
end
if constraints.values then
for _,v in pairs(value) do
local possible_errors=conf.check_constraints(v, constraints.values)
if possible_errors then
return possible_errors
end
end
end
end
end
}
end
-- Log helpers - write to log, force writing to file
minetest.mkdir(minetest.get_worldpath().."/logs")
log={
channels={},
last_day=os.date("%d"),
get_path=function(logname)
return minetest.get_worldpath().."/logs/"..logname
end,
create_channel=function(title)
local dir=log.get_path(title)
minetest.mkdir(dir)
log.channels[title]={dirname=dir,queue={}}
log.write(title, "Initialisation")
end,
write=function(channelname, msg)
local channel=log.channels[channelname]
local current_day=os.date("%d")
if current_day ~= log.last_day then
log.last_day=current_day
log.write_to_file(channelname, channel, os.date("%Y-%m-%d"))
end
table.insert(channel.queue, os.date("[%H:%M:%S] ")..msg)
end,
write_to_all=function(msg)
for channelname, _ in pairs(log.channels) do
log.write(channelname, msg)
end
end,
write_to_file=function(name, channel, current_date)
if not channel then
channel=log.channels[name]
end
if #(channel.queue) > 0 then
local filename=channel.dirname.."/"..(current_date or os.date("%Y-%m-%d"))..".txt"
local rope={}
for _, msg in ipairs(channel.queue) do
table.insert(rope, msg)
end
file_ext.append(filename, table.concat(rope, "\n").."\n")
log.channels[name].queue={}
end
end,
write_all_to_file=function()
local current_date=os.date("%Y-%m-%d")
for name, channel in pairs(log.channels) do
log.write_to_file(name, channel, current_date)
end
end
}
local timer=0
minetest.register_globalstep(function(dtime)
timer=timer+dtime
if timer > 5 then
log.write_all_to_file()
timer=0
end
end)
minetest.register_on_mods_loaded(function()
log.write_to_all("Mods loaded")
end)
minetest.register_on_shutdown(function()
log.write_to_all("Shutdown")
log.write_all_to_file()
end)
_ml = modlib

66
log.lua Normal file

@ -0,0 +1,66 @@
-- Log helpers - write to log, force writing to file
minetest.mkdir(minetest.get_worldpath().."/logs")
channels={}
last_day=os.date("%d")
function get_path(logname)
return minetest.get_worldpath().."/logs/"..logname
end
function create_channel(title)
local dir=get_path(title)
minetest.mkdir(dir)
channels[title]={dirname=dir,queue={}}
write(title, "Initialisation")
end
function write(channelname, msg)
local channel=channels[channelname]
local current_day=os.date("%d")
if current_day ~= last_day then
last_day=current_day
write_to_file(channelname, channel, os.date("%Y-%m-%d"))
end
table.insert(channel.queue, os.date("[%H:%M:%S] ")..msg)
end
function write_to_all(msg)
for channelname, _ in pairs(channels) do
write(channelname, msg)
end
end
function write_to_file(name, channel, current_date)
if not channel then
channel=channels[name]
end
if #(channel.queue) > 0 then
local filename=channel.dirname.."/"..(current_date or os.date("%Y-%m-%d"))..".txt"
local rope={}
for _, msg in ipairs(channel.queue) do
table.insert(rope, msg)
end
modlib.file.append(filename, table.concat(rope, "\n").."\n")
channels[name].queue={}
end
end
function write_all_to_file()
local current_date=os.date("%Y-%m-%d")
for name, channel in pairs(channels) do
write_to_file(name, channel, current_date)
end
end
local timer=0
minetest.register_globalstep(function(dtime)
timer=timer+dtime
if timer > 5 then
write_all_to_file()
timer=0
end
end)
minetest.register_on_mods_loaded(function()
write_to_all("Mods loaded")
end)
minetest.register_on_shutdown(function()
write_to_all("Shutdown")
write_all_to_file()
end)

75
minetest.lua Normal file

@ -0,0 +1,75 @@
-- MT extension
-- TODO add formspec queues and event system + sync handler
delta_times={}
delays={}
callbacks={}
function register_globalstep(interval, callback)
if type(callback) ~= "function" then
return
end
table.insert(delta_times, 0)
table.insert(delays, interval)
table.insert(callbacks, callback)
end
function texture_modifier_inventorycube(face_1, face_2, face_3)
return "[inventorycube{" .. string.gsub(face_1, "%^", "&")
.. "{" .. string.gsub(face_2, "%^", "&")
.. "{" .. string.gsub(face_3, "%^", "&")
end
function get_node_inventory_image(nodename)
local n = minetest.registered_nodes[nodename]
if not n then
return
end
local tiles = {}
for l, tile in pairs(n.tiles or {}) do
tiles[l] = (type(tile) == "string" and tile) or tile.name
end
local chosen_tiles = { tiles[1], tiles[3], tiles[5] }
if #chosen_tiles == 0 then
return false
end
if not chosen_tiles[2] then
chosen_tiles[2] = chosen_tiles[1]
end
if not chosen_tiles[3] then
chosen_tiles[3] = chosen_tiles[2]
end
local img = minetest.registered_items[nodename].inventory_image
if string.len(img) == 0 then
img = nil
end
return img or texture_modifier_inventorycube(chosen_tiles[1], chosen_tiles[2], chosen_tiles[3])
end
function get_color_int(color)
return color.b + (color.g*256) + (color.r*256*256)
end
function check_player_privs(playername, privtable)
local privs=minetest.get_player_privs(playername)
local missing_privs={}
local to_lose_privs={}
for priv, expected_value in pairs(privtable) do
local actual_value=privs[priv]
if expected_value then
if not actual_value then
table.insert(missing_privs, priv)
end
else
if actual_value then
table.insert(to_lose_privs, priv)
end
end
end
return missing_privs, to_lose_privs
end
minetest.register_globalstep(function(dtime)
for k, v in pairs(delta_times) do
local v=dtime+v
if v > delays[k] then
callbacks[k](v)
v=0
end
delta_times[k]=v
end
end)

5
number.lua Normal file

@ -0,0 +1,5 @@
-- Number helpers
function round(number, steps) -- Rounds a number
steps = steps or 1
return math.floor(number * steps + 0.5) / steps
end

79
player.lua Normal file

@ -0,0 +1,79 @@
forbidden_names={"me"}
register_forbidden_name=function(name)
forbidden_names[name]=true
end
unregister_forbidden_name=function(name)
forbidden_names[name]=nil
end
playerdata = {}
defaults={}
playerdata_functions={}
delete_player_data=function(playername)
playerdata[playername]=nil
end
create_player_data=function(playername)
playerdata[playername]={}
end
init_player_data=function(playername)
modlib.table.add_all(playerdata[playername], defaults)
for _, callback in ipairs(playerdata_functions) do
callback(playerdata[playername])
end
end
get_player_data=function(playername)
return playerdata[playername]
end
get_property =function(playername, propertyname)
return get_player_data(playername)[propertyname]
end
set_property =function(playername, propertyname, propertyvalue)
get_player_data(playername)[propertyname]=propertyvalue
end
get_property_default =function(propertyname)
return defaults[propertyname]
end
set_property_default =function(propertyname, defaultvalue)
defaults[propertyname]=defaultvalue
end
add_playerdata_function=function(callback)
table.insert(playerdata_functions, callback)
end
get_color=function(player)
local sender_color=player:get_properties().nametag_color
if sender_color then
sender_color = minetest.rgba(sender_color.r, sender_color.g, sender_color.b)
else
sender_color="#FFFFFF"
end
return sender_color
end
get_color_table=function(player)
local sender_color=player:get_properties().nametag_color
return sender_color or {r=255, g=255, b=255}
end
get_color_int=function(player)
local sender_color=player:get_properties().nametag_color
if sender_color then
sender_color = sender_color.b + (sender_color.g*256) + (sender_color.r*256*256)
else
sender_color=0xFFFFFF
end
return sender_color
end
minetest.register_on_prejoinplayer(function(name, ip)
if forbidden_names[name] then
return "The name '"..name.."' is already used in the game and thus not allowed as playername."
end
end )
minetest.register_on_joinplayer(function(player)
local playername=player:get_player_name()
create_player_data(playername)
init_player_data(playername)
end)
minetest.register_on_leaveplayer(function(player)
local playername=player:get_player_name()
delete_player_data(playername)
end)

206
table.lua Normal file

@ -0,0 +1,206 @@
-- Table helpers
function equals(t1, t2)
local is_equal = t1 == t2
if type(t1) ~= "table" or type(t2) ~= "table" then
return is_equal
end
if is_equal then
return true
end
if #t1 ~= #t2 then
return false
end
local table_keys = {}
for k1, v1 in pairs(t1) do
local v2 = t2[k1]
if not equals(v1, v2) then
if type(k1) == "table" then
table_keys[k1] = v1
else
return false
end
end
end
for k2, v2 in pairs(t2) do
if type(k2) == "table" then
local found
for t, v in table_keys do
if equals(k2, t) and equals(v2, v) then
table_keys[t] = nil
found=true
break
end
end
if not found then
return false
end
else
if t1[k2] == nil then
return false
end
end
end
return true
end
function tablecopy(t)
return table.copy(t)
end
function count(table)
local count = 0
for _ in pairs(table) do
count = count + 1
end
return count
end
function is_empty(table)
return next(table) == nil
end
function map(t, func)
for k, v in pairs(t) do
t[k]=func(v)
end
end
function process(t, func)
local r={}
for k, v in pairs(t) do
table.insert(r, func(k,v))
end
return r
end
function call(funcs, ...)
for _, func in ipairs(funcs) do
func(unpack(arg))
end
end
function merge_tables(table1, table2)
local table1copy = table.copy(table1)
for key, value in pairs(table2) do
table1copy[key] = value
end
return table1copy
end
function difference(table1, table2)
local result={}
for k, v in pairs(table2) do
local v2=table1[v]
if v2~=v then
result[k]=v
end
end
return result
end
function add_all(dst, new)
for key, value in pairs(new) do
dst[key] = value
end
return dst
end
function append(t1, t2)
local l=#t1
for k, v in ipairs(t2) do
t1[l+k]=v
end
return t1
end
function keys(t)
local keys = {}
for key, _ in pairs(t) do
table.insert(keys, key)
end
return keys
end
function values(t)
local values = {}
for key, _ in pairs(t) do
table.insert(values, key)
end
return values
end
function flip(table)
local flipped = {}
for key, val in pairs(table) do
flipped[val] = key
end
return flipped
end
function set(table)
local flipped = {}
for _, val in pairs(table) do
flipped[val] = true
end
return flipped
end
function unique(table)
local lookup = {}
for val in ipairs(table) do
lookup[val] = true
end
return table_ext.keys(lookup)
end
function rpairs(t)
local i = #t
return function ()
if i >= 1 then
local v=t[i]
i = i-1
if v then
return i+1, v
end
end
end
end
function best_value(table, is_better_fnc)
if not table or not is_better_fnc then
return nil
end
local l=#table
if l==0 then
return nil
end
local m=table[1]
for i=2, l do
local v=table[i]
if is_better_fnc(v, m) then
m=v
end
end
return m
end
function min(table)
return table_ext.best_value(table, function(v, m) return v < m end)
end
function max(table)
return table_ext.best_value(table, function(v, m) return v > m end)
end
function binary_search(list, value)
local min, size = 1, #list
while size > 1 do
local s_half = math.floor(size / 2)
local pivot = min + s_half
local element = list[pivot]
if value > element then
min = pivot
end
size = s_half
end
end

127
text.lua Normal file

@ -0,0 +1,127 @@
-- TODO probably set string metatables ?
-- String helpers - split & trim at end & begin
function starts_with(str, start) return str:sub(1, start:len()) == start end
function ends_with(str, suffix)
return str:sub(str:len() - suffix:len() + 1) == suffix
end
function trim(str, to_remove)
local j = 1
for i = 1, string.len(str) do
if str:sub(i, i) ~= to_remove then
j = i
break
end
end
local k = 1
for i = string.len(str), j, -1 do
if str:sub(i, i) ~= to_remove then
k = i
break
end
end
return str:sub(j, k)
end
function trim_begin(str, to_remove)
local j = 1
for i = 1, string.len(str) do
if str:sub(i, i) ~= to_remove then
j = i
break
end
end
return str:sub(j)
end
function split(str, delim, limit)
if not limit then return string_ext.split_without_limit(str, delim) end
local parts = {}
local occurences = 1
local last_index = 1
local index = string.find(str, delim, 1, true)
while index and occurences < limit do
table.insert(parts, string.sub(str, last_index, index - 1))
last_index = index + string.len(delim)
index = string.find(str, delim, index + string.len(delim), true)
occurences = occurences + 1
end
table.insert(parts, string.sub(str, last_index))
return parts
end
function split_without_limit(str, delim)
local parts = {}
local last_index = 1
local index = string.find(str, delim, 1, true)
while index do
table.insert(parts, string.sub(str, last_index, index - 1))
last_index = index + string.len(delim)
index = string.find(str, delim, index + string.len(delim), true)
end
table.insert(parts, string.sub(str, last_index))
return parts
end
hashtag = string.byte("#")
zero = string.byte("0")
nine = string.byte("9")
letter_a = string.byte("A")
letter_f = string.byte("F")
function is_hexadecimal(byte)
return (byte >= zero and byte <= string_ext.nine) or
(byte >= string_ext.letter_a and byte <= string_ext.letter_f)
end
magic_chars = {
"%", "(", ")", ".", "+", "-", "*", "?", "[", "^", "$" --[[,":"]]
}
function escape_magic_chars(text)
for _, magic_char in ipairs(string_ext.magic_chars) do
text = string.gsub(text, "%" .. magic_char, "%%" .. magic_char)
end
return text
end
function utf8(number)
if number < 0x007F then return string.char(number) end
if number < 0x00A0 or number > 0x10FFFF then -- Out of range
return
end
local result = ""
local i = 0
while true do
local remainder = number % 64
result = string.char(128 + remainder) .. result
number = (number - remainder) / 64
i = i + 1
if number <= math.pow(2, 8 - i - 2) then break end
end
return string.char(256 - math.pow(2, 8 - i - 1) + number) .. result -- 256 = math.pow(2, 8)
end
function handle_ifndefs(code, vars)
local finalcode = {}
local endif
local after_endif = -1
local ifndef_pos, after_ifndef = string.find(code, "--IFNDEF", 1, true)
while ifndef_pos do
table.insert(finalcode,
string.sub(code, after_endif + 2, ifndef_pos - 1))
local linebreak = string.find(code, "\n", after_ifndef + 1, true)
local varname = string.sub(code, after_ifndef + 2, linebreak - 1)
endif, after_endif = string.find(code, "--ENDIF", linebreak + 1, true)
if not endif then break end
if vars[varname] then
table.insert(finalcode, string.sub(code, linebreak + 1, endif - 1))
end
ifndef_pos, after_ifndef = string.find(code, "--IFNDEF",
after_endif + 1, true)
end
table.insert(finalcode, string.sub(code, after_endif + 2))
return table.concat(finalcode, "")
end

19
threading.lua Normal file

@ -0,0 +1,19 @@
locks={}
function request(resource, func, ...)
if locks[resource] then
table.insert(locks[resource], {func=func, args={...}})
return false
end
locks[resource]={}
return true
end
function free(resource)
if locks[resource] then
local first=locks[resource][1]
if first then
first.func(unpack(first.args), true)
end
end
locks[resource]=nil
return true
end