Structure overhaul

class.lua

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

conf.lua

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

data.lua

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

file.lua

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

init.lua

@@ -1,654 +1,42 @@
--- 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.")
     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()
-
-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
@@ -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")
+    _G[classname] = setmetatable(_G[classname] or {}, {__index = _G, __call = _G})
-    local class=classname.."={_G=_G, G=_G}\nsetfenv(1,setmetatable("..classname..", {__index=_G, __call=_G}))\n"..file:read("*a").."\n"
+    local class = assert(loadfile(filename))
-    local fnc=assert(loadstring(class))
+    setfenv(class, _G[classname])
-    fnc()
+    class()
-    file:close()
+    return _G[classname]
 end
 
 -- runs main.lua in table env
-function include_mod(modname, config_constraints)
+function include_mod(modname)
     include_class(modname, get_resource(modname, "main.lua"))
-    if config_constraints then
-
-    end
 end
 
 function extend_mod(modname, filename)
-    local file=io.open(get_resource(modname,filename..".lua"), "r")
+    include_class(modname, get_resource(modname, filename .. ".lua"))
-    local class="setfenv(1,setmetatable("..modname..", {__index=_G, __call=_G}))\n"..file:read("*a").."\n"
-    local fnc=assert(loadstring(class))
-    fnc()
-    file:close()
 end
 
 function extend_mod_string(modname, string)
-    local class="setfenv(1,setmetatable("..modname..", {__index=_G, __call=_G}))\n"..string.."\n"
+    _G[modname] = setmetatable(_G[modname] or {}, {__index = _G, __call = _G})
-    local fnc=assert(loadstring(class))
+    local string = assert(loadstring(string))
-    fnc()
+    setfenv(string, _G[modname])
+    string()
+    return _G[modname]
 end
 
--- Data helpers - load data, save data...
+local components = {
-minetest.mkdir(minetest.get_worldpath().."/data")
+    class = {class = "global"},
-data={
+    conf = {conf = "global"},
-    create_mod_storage=function(modname)
+    data = {data = "global"},
-        minetest.mkdir(minetest.get_worldpath().."/data/"..modname)
+    file = {file_ext = "global"},
-    end,
+    log = {log = "global"},
-    get_path=function(modname, filename)
+    minetest = {mt_ext = "global"},
-        return minetest.get_worldpath().."/data/"..modname.."/"..filename
+    number = {number_ext = "global"},
-    end,
+    player = {player_ext = "global"},
-    load=function(modname, filename)
+    table = {table_ext = "global"},
-        return minetest.deserialize(file_ext.read(data.get_path(modname, filename)..".lua"))
+    text = {string_ext = "global"},
-    end,
+    threading = {threading_ext = "global"}
-    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
 }
 
--- Configuration helpers - load config, check constraints
+modlib = {}
-minetest.mkdir(minetest.get_worldpath().."/config")
+
-conf={
+for component, additional in pairs(components) do
-    get_path=function(confname)
+    local comp = loadfile_exports(get_resource("modlib", component .. ".lua"))
-        return minetest.get_worldpath().."/config/"..confname
+    modlib[component] = comp
-    end,
+    for alias, scope in pairs(additional) do
-    load=function (filename, constraints)
+        if scope == "global" then
-        local config=minetest.parse_json(file_ext.read(filename))
+            _G[alias] = comp
-        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)
         else
-                        local possible_errors=conf.check_constraints(v, child)
+            modlib[alias] = comp
-                        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=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
-}
 
--- Log helpers - write to log, force writing to file
+_ml = modlib
-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)

log.lua

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

minetest.lua

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

number.lua

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

player.lua

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

table.lua

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

text.lua

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

threading.lua

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