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

1 files changed, 420 insertions, 0 deletions

diff --git a/lclibraries.lua b/lclibraries.lua
new file mode 100644
index 0000000..609aee9
--- /dev/null
+++ b/lclibraries.lua
@@ -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