Mirrorlandia_minetest/modlib
1
0
Fork 0
mirror of https://github.com/appgurueu/modlib.git synced 2024-11-26 01:03:46 +01:00
Code Issues Projects Releases Wiki Activity

Structure overhaul

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
class.lua Normal file
View 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
View 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
View 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
View 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
View File

@ -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
View 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
View 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
View 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
View 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
View 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
View 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
View 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