forked from Mirrorlandia_minetest/digistuff
Add TSLib, libexpander, and libdetector as libraries
Only works with my upcoming (as of this writing) mesecons fork, but the mod should still work without this functionality otherwise
This commit is contained in:
cheapie
parent
d7613f254f
commit
ee316f2325
1
init.lua
1
init.lua
@ -20,6 +20,7 @@ local components = {
|
||||
"gpu",
|
||||
"sillystuff",
|
||||
"movestone",
|
||||
"lclibraries",
|
||||
}
|
||||
|
||||
if minetest.get_modpath("mesecons_luacontroller") then table.insert(components,"ioexpander") end
|
||||
|
||||
420
lclibraries.lua
Normal file
420
lclibraries.lua
Normal file
@ -0,0 +1,420 @@
|
||||
if type(mesecon.luacontroller_libraries) == "table" then
|
||||
local tslib = {
|
||||
getColorEscapeSequence = function(color)
|
||||
return(string.char(0x1b).."(c@"..color..")")
|
||||
end,
|
||||
colorize = function(color,message)
|
||||
return(string.char(0x1b).."(c@"..color..")"..message..string.char(0x1b).."(c@#FFFFFF)")
|
||||
end,
|
||||
explode_textlist_event = function(event)
|
||||
local ret = {type = "INV"}
|
||||
if string.sub(event,1,3) == "CHG" then
|
||||
local index = tonumber(string.sub(event,5,-1))
|
||||
if index then
|
||||
ret.type = "CHG"
|
||||
ret.index = index
|
||||
end
|
||||
elseif string.sub(event,1,3) == "DCL" then
|
||||
local index = tonumber(string.sub(event,5,-1))
|
||||
if index then
|
||||
ret.type = "DCL"
|
||||
ret.index = index
|
||||
end
|
||||
end
|
||||
return ret
|
||||
end,
|
||||
_mt = {
|
||||
setChannel = function(self,channel)
|
||||
self._channel = channel
|
||||
end,
|
||||
getChannel = function(self)
|
||||
return(self._channel)
|
||||
end,
|
||||
draw = function(self)
|
||||
digiline_send(self._channel,self._commands)
|
||||
end,
|
||||
clear = function(self)
|
||||
self._commands = {{command="clear"}}
|
||||
end,
|
||||
setLock = function(self,lock)
|
||||
if lock then
|
||||
table.insert(self._commands,{command="lock"})
|
||||
else
|
||||
table.insert(self._commands,{command="unlock"})
|
||||
end
|
||||
end,
|
||||
addLabel = function(self,x,y,label,vertical)
|
||||
assert((type(x))=="number","Invalid X position")
|
||||
assert((type(y))=="number","Invalid Y position")
|
||||
if type(label) ~= "string" then
|
||||
label = tostring(label)
|
||||
end
|
||||
local cmd = {
|
||||
command = "addlabel",
|
||||
X = x,
|
||||
Y = y,
|
||||
label = label,
|
||||
}
|
||||
if vertical then cmd.command = "addvertlabel" end
|
||||
table.insert(self._commands,cmd)
|
||||
end,
|
||||
addImage = function(self,x,y,w,h,tex)
|
||||
assert((type(x))=="number","Invalid X position")
|
||||
assert((type(y))=="number","Invalid Y position")
|
||||
assert((type(w))=="number","Invalid width")
|
||||
assert((type(h))=="number","Invalid height")
|
||||
if type(tex) ~= "string" then
|
||||
tex = tostring(tex)
|
||||
end
|
||||
local cmd = {
|
||||
command = "addimage",
|
||||
X = x,
|
||||
Y = y,
|
||||
W = w,
|
||||
H = h,
|
||||
texture_name = tex,
|
||||
}
|
||||
table.insert(self._commands,cmd)
|
||||
end,
|
||||
addButton = function(self,x,y,w,h,name,label,exit)
|
||||
assert((type(x))=="number","Invalid X position")
|
||||
assert((type(y))=="number","Invalid Y position")
|
||||
assert((type(w))=="number","Invalid width")
|
||||
assert((type(h))=="number","Invalid height")
|
||||
if type(name) ~= "string" then
|
||||
name = tostring(name)
|
||||
end
|
||||
if type(label) ~= "string" then
|
||||
label = tostring(label)
|
||||
end
|
||||
local cmd = {
|
||||
command = "addbutton",
|
||||
X = x,
|
||||
Y = y,
|
||||
W = w,
|
||||
H = h,
|
||||
name = name,
|
||||
label = label,
|
||||
}
|
||||
if exit then cmd.command = "addbutton_exit" end
|
||||
table.insert(self._commands,cmd)
|
||||
end,
|
||||
addImageButton = function(self,x,y,w,h,name,label,tex,exit)
|
||||
assert((type(x))=="number","Invalid X position")
|
||||
assert((type(y))=="number","Invalid Y position")
|
||||
assert((type(w))=="number","Invalid width")
|
||||
assert((type(h))=="number","Invalid height")
|
||||
if type(name) ~= "string" then
|
||||
name = tostring(name)
|
||||
end
|
||||
if type(label) ~= "string" then
|
||||
label = tostring(label)
|
||||
end
|
||||
if type(tex) ~= "string" then
|
||||
tex = tostring(tex)
|
||||
end
|
||||
local cmd = {
|
||||
command = "addimage_button",
|
||||
X = x,
|
||||
Y = y,
|
||||
W = w,
|
||||
H = h,
|
||||
name = name,
|
||||
label = label,
|
||||
image = tex,
|
||||
}
|
||||
if exit then cmd.command = "addimage_button_exit" end
|
||||
table.insert(self._commands,cmd)
|
||||
end,
|
||||
addField = function(self,x,y,w,h,name,label,default,password)
|
||||
assert((type(x))=="number","Invalid X position")
|
||||
assert((type(y))=="number","Invalid Y position")
|
||||
assert((type(w))=="number","Invalid width")
|
||||
assert((type(h))=="number","Invalid height")
|
||||
if type(name) ~= "string" then
|
||||
name = tostring(name)
|
||||
end
|
||||
if type(label) ~= "string" then
|
||||
label = tostring(label)
|
||||
end
|
||||
if type(default) ~= "string" then
|
||||
default = tostring(default)
|
||||
end
|
||||
local cmd = {
|
||||
command = "addfield",
|
||||
X = x,
|
||||
Y = y,
|
||||
W = w,
|
||||
H = h,
|
||||
name = name,
|
||||
label = label,
|
||||
default = default,
|
||||
}
|
||||
if password then cmd.command = "addpwdfield" end
|
||||
table.insert(self._commands,cmd)
|
||||
end,
|
||||
addTextArea = function(self,x,y,w,h,name,label,default)
|
||||
assert((type(x))=="number","Invalid X position")
|
||||
assert((type(y))=="number","Invalid Y position")
|
||||
assert((type(w))=="number","Invalid width")
|
||||
assert((type(h))=="number","Invalid height")
|
||||
if type(name) ~= "string" then
|
||||
name = tostring(name)
|
||||
end
|
||||
if type(label) ~= "string" then
|
||||
label = tostring(label)
|
||||
end
|
||||
if type(default) ~= "string" then
|
||||
default = tostring(default)
|
||||
end
|
||||
local cmd = {
|
||||
command = "addtextarea",
|
||||
X = x,
|
||||
Y = y,
|
||||
W = w,
|
||||
H = h,
|
||||
name = name,
|
||||
label = label,
|
||||
default = default,
|
||||
}
|
||||
table.insert(self._commands,cmd)
|
||||
end,
|
||||
addDropdown = function(self,x,y,w,h,name,choices,selected)
|
||||
assert((type(x))=="number","Invalid X position")
|
||||
assert((type(y))=="number","Invalid Y position")
|
||||
assert((type(w))=="number","Invalid width")
|
||||
assert((type(h))=="number","Invalid height")
|
||||
if not selected then selected = 1 end
|
||||
assert((type(selected))=="number","Invalid selection index")
|
||||
if type(name) ~= "string" then
|
||||
name = tostring(name)
|
||||
end
|
||||
assert((type(choices) == "table" and #choices >= 1),"Invalid choices list")
|
||||
local cmd = {
|
||||
command = "adddropdown",
|
||||
X = x,
|
||||
Y = y,
|
||||
W = w,
|
||||
H = h,
|
||||
name = name,
|
||||
choices = choices,
|
||||
selected_id = selected,
|
||||
}
|
||||
table.insert(self._commands,cmd)
|
||||
end,
|
||||
addTextlist = function(self,x,y,w,h,name,choices,selected,transparent)
|
||||
assert((type(x))=="number","Invalid X position")
|
||||
assert((type(y))=="number","Invalid Y position")
|
||||
assert((type(w))=="number","Invalid width")
|
||||
assert((type(h))=="number","Invalid height")
|
||||
if not selected then selected = 1 end
|
||||
assert((type(selected))=="number","Invalid selection index")
|
||||
if type(name) ~= "string" then
|
||||
name = tostring(name)
|
||||
end
|
||||
assert((type(transparent)) == "boolean","Invalid transparent flag")
|
||||
assert((type(choices) == "table" and #choices >= 1),"Invalid choices list")
|
||||
local cmd = {
|
||||
command = "addtextlist",
|
||||
X = x,
|
||||
Y = y,
|
||||
W = w,
|
||||
H = h,
|
||||
name = name,
|
||||
listelements = choices,
|
||||
selected_id = selected,
|
||||
transparent = transparent,
|
||||
}
|
||||
table.insert(self._commands,cmd)
|
||||
end,
|
||||
},
|
||||
new = function(self,channel)
|
||||
local ret = {}
|
||||
for k,v in pairs(self._mt) do
|
||||
ret[k] = v
|
||||
end
|
||||
ret._channel = channel
|
||||
ret._commands = {{command="clear"}}
|
||||
return ret
|
||||
end,
|
||||
}
|
||||
mesecon.luacontroller_libraries.TSLib = tslib
|
||||
|
||||
local libexpander = {
|
||||
pre_hook = function()
|
||||
if event.type == "program" then
|
||||
mem.__libexpander_registered = {}
|
||||
end
|
||||
if event.type == "digiline" then
|
||||
local oldevent = event
|
||||
for k,v in pairs(mem.__libexpander_registered) do
|
||||
if k == oldevent.channel then
|
||||
if oldevent.msg.a ~= v.pinastate and v.pina then
|
||||
mem.__libexpander_registered[k].pinastate = oldevent.msg.a
|
||||
event = {
|
||||
type = v.pinastate and "on" or "off",
|
||||
pin = {
|
||||
name = string.upper(v.pina),
|
||||
channel = oldevent.channel,
|
||||
virtual = true,
|
||||
},
|
||||
}
|
||||
end
|
||||
if oldevent.msg.b ~= v.pinbstate and v.pinb then
|
||||
mem.__libexpander_registered[k].pinbstate = oldevent.msg.b
|
||||
event = {
|
||||
type = v.pinbstate and "on" or "off",
|
||||
pin = {
|
||||
name = string.upper(v.pinb),
|
||||
channel = oldevent.channel,
|
||||
virtual = true,
|
||||
},
|
||||
}
|
||||
end
|
||||
if oldevent.msg.c ~= v.pincstate and v.pinc then
|
||||
mem.__libexpander_registered[k].pincstate = oldevent.msg.c
|
||||
event = {
|
||||
type = v.pincstate and "on" or "off",
|
||||
pin = {
|
||||
name = string.upper(v.pinc),
|
||||
channel = oldevent.channel,
|
||||
virtual = true,
|
||||
},
|
||||
}
|
||||
end
|
||||
if oldevent.msg.d ~= v.pindstate and v.pind then
|
||||
mem.__libexpander_registered[k].pindstate = oldevent.msg.d
|
||||
event = {
|
||||
type = v.pindstate and "on" or "off",
|
||||
pin = {
|
||||
name = string.upper(v.pind),
|
||||
channel = oldevent.channel,
|
||||
virtual = true,
|
||||
},
|
||||
}
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
for _,v in pairs(mem.__libexpander_registered) do
|
||||
if v.pina then
|
||||
pin[v.pina] = v.pinastate
|
||||
port[v.pina] = v.portastate
|
||||
end
|
||||
if v.pinb then
|
||||
pin[v.pinb] = v.pinbstate
|
||||
port[v.pinb] = v.portbstate
|
||||
end
|
||||
if v.pinc then
|
||||
pin[v.pinc] = v.pincstate
|
||||
port[v.pinc] = v.portcstate
|
||||
end
|
||||
if v.pind then
|
||||
pin[v.pind] = v.pindstate
|
||||
port[v.pind] = v.portdstate
|
||||
end
|
||||
end
|
||||
end,
|
||||
post_hook = function()
|
||||
for k,v in pairs(mem.__libexpander_registered) do
|
||||
local changed = false
|
||||
if v.pina and (v.portastate ~= port[v.pina]) then
|
||||
changed = true
|
||||
v.portastate = port[v.pina]
|
||||
end
|
||||
if v.pinb and (v.portbstate ~= port[v.pinb]) then
|
||||
changed = true
|
||||
v.portbstate = port[v.pinb]
|
||||
end
|
||||
if v.pinc and (v.portcstate ~= port[v.pinc]) then
|
||||
changed = true
|
||||
v.portcstate = port[v.pinc]
|
||||
end
|
||||
if v.pind and (v.portdstate ~= port[v.pind]) then
|
||||
changed = true
|
||||
v.portdstate = port[v.pind]
|
||||
end
|
||||
if changed then
|
||||
digiline_send(k,{a = v.portastate,b = v.portbstate,c = v.portcstate,d = v.portdstate})
|
||||
end
|
||||
end
|
||||
end,
|
||||
new = function(channel,pina,pinb,pinc,pind)
|
||||
assert(type(channel) == "string","Invalid channel")
|
||||
local def = {pinastate = false,pinbstate = false,pincstate = false,pindstate = false,portastate = false,portbstate = false,portcstate = false,portdstate = false,}
|
||||
if type(pina) == "string" then def.pina = pina end
|
||||
if type(pinb) == "string" then def.pinb = pinb end
|
||||
if type(pinc) == "string" then def.pinc = pinc end
|
||||
if type(pind) == "string" then def.pind = pind end
|
||||
mem.__libexpander_registered[channel] = def
|
||||
digiline_send(channel,"GET")
|
||||
end,
|
||||
delete = function(channel)
|
||||
mem.__libexpander_registered[channel] = nil
|
||||
end,
|
||||
}
|
||||
mesecon.luacontroller_libraries.libexpander = libexpander
|
||||
|
||||
local libdetector = {
|
||||
pre_hook = function()
|
||||
if event.type == "program" then
|
||||
mem.__libdetector_registered = {}
|
||||
end
|
||||
if event.type == "digiline" then
|
||||
local channel = event.channel
|
||||
if mem.__libdetector_registered[channel] then
|
||||
if not mem.__libdetector_registered[channel].active then
|
||||
mem.__libdetector_registered[channel].active = true
|
||||
if not port[string.lower(mem.__libdetector_registered[channel].virtualpin)] then
|
||||
event = {
|
||||
type = "on",
|
||||
pin = {
|
||||
name = string.upper(mem.__libdetector_registered[channel].virtualpin),
|
||||
channel = channel,
|
||||
virtual = true,
|
||||
},
|
||||
}
|
||||
end
|
||||
end
|
||||
interrupt(mem.__libdetector_registered[channel].timeout,"__libdetector"..channel)
|
||||
end
|
||||
end
|
||||
if event.type == "interrupt" and string.sub(event.iid,1,13) == "__libdetector" then
|
||||
local channel = string.sub(event.iid,14,-1)
|
||||
if mem.__libdetector_registered[channel] then
|
||||
mem.__libdetector_registered[channel].active = false
|
||||
if not port[string.lower(mem.__libdetector_registered[channel].virtualpin)] then
|
||||
event = {
|
||||
type = "off",
|
||||
pin = {
|
||||
name = string.upper(mem.__libdetector_registered[channel].virtualpin),
|
||||
channel = channel,
|
||||
virtual = true,
|
||||
},
|
||||
}
|
||||
end
|
||||
end
|
||||
end
|
||||
for k,v in pairs(mem.__libdetector_registered) do
|
||||
pin[string.lower(v.virtualpin)] = v.active or port[string.lower(v.virtualpin)]
|
||||
end
|
||||
end,
|
||||
new = function(channel,virtualpin,timeout)
|
||||
if not tonumber(timeout) then timeout = 1.5 end
|
||||
timeout = math.max(0.5,timeout)
|
||||
assert(type(channel) == "string","channel must be a string")
|
||||
assert(type(virtualpin) == "string","virtualpin must be a string")
|
||||
mem.__libdetector_registered[channel] = {
|
||||
virtualpin = virtualpin,
|
||||
timeout = timeout,
|
||||
active = false,
|
||||
}
|
||||
end,
|
||||
delete = function(channel)
|
||||
if not mem.__libdetector_registered[channel] then return false end
|
||||
mem.__libdetector_registered[channel] = nil
|
||||
return true
|
||||
end,
|
||||
}
|
||||
mesecon.luacontroller_libraries.libdetector = libdetector
|
||||
end
|
||||
Loading…
Reference in New Issue
Block a user