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

Updates via shellscript

Browse Source
This commit is contained in:
Lars Mueller 2019-07-13 19:55:49 +02:00
parent 648bfba2f5
commit 240bec2a41
1 changed files with 164 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

167
init.lua
View File

@ -30,6 +30,7 @@ MT=mt
-- MT extension
-- TODO add formspec queues and event system + sync handler
-- TODO add chatcommand helper
-- TODO add easy (ingame?) config editor forcing restart ?
mt_ext = {
delta_times={},
@ -75,7 +76,28 @@ mt_ext = {
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,
-- TODO dream a littl'
--register_chatcommand=function() end,
--chat_send_all=function() end
}
minetest.register_globalstep(function(dtime)
@ -149,6 +171,10 @@ player_ext = {
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
@ -273,6 +299,14 @@ table_ext= {
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
@ -297,6 +331,14 @@ table_ext= {
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
@ -353,10 +395,16 @@ number_ext={
end
}
-- TODO probably set 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
@ -377,7 +425,6 @@ string_ext={
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
@ -390,6 +437,7 @@ string_ext={
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
@ -404,6 +452,19 @@ string_ext={
return parts
end,
split_without_limit=function(str, delim)
local parts={}
local last_index=1
local index=string.find(str, delim)
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))
end
table.insert(parts, string.sub(str, last_index))
return parts
end,
hashtag=string.byte("#"),
zero=string.byte("0"),
nine=string.byte("9"),
@ -411,7 +472,7 @@ string_ext={
letter_f=string.byte("F"),
is_hexadecimal=function(byte)
return (byte >= string_ext.zero and byte <= string_ext.nine) or (byte >= string_ext.letter_a and byte <= string_ext.letter_f)
return (byte >= zero and byte <= string_ext.nine) or (byte >= string_ext.letter_a and byte <= string_ext.letter_f)
end,
magic_chars={"%", "(", ")", ".", "+", "-", "*", "?", "[", "^", "$"--[[,":"]]},
@ -442,6 +503,26 @@ string_ext={
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")
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)
local varname=string.sub(code, after_ifndef+2, linebreak-1)
endif, after_endif=string.find(code, "%-%-ENDIF", linebreak+1)
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)
end
table.insert(finalcode, string.sub(code, after_endif+2))
return table.concat(finalcode, "")
end
}
@ -469,6 +550,7 @@ threading_ext={
-- 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
@ -506,13 +588,60 @@ file_ext={
end,
create_if_not_exists=function(filename, content)
if not file_ext.exists(filename) then
file_ext.write(filename, content)
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)
local bridge=file_ext.process_bridges[name]
os.execute(string.format(command, bridge.output, bridge.input, bridge.logs))
end
}
@ -553,6 +682,12 @@ function extend_mod(modname, filename)
file:close()
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()
end
-- Data helpers - load data, save data...
minetest.mkdir(minetest.get_worldpath().."/data")
data={
@ -637,6 +772,30 @@ conf={
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)