mirror of
https://cheapiesystems.com/git/digistuff
synced 2024-08-20 13:04:09 +02:00
Only works with my upcoming (as of this writing) mesecons fork, but the mod should still work without this functionality otherwise
421 lines
12 KiB
Lua
421 lines
12 KiB
Lua
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
|