Terminal related Controller commands changed, Terminal output bugfix, Controller event handling bugfix

releasenotes.md

@@ -2,6 +2,21 @@
 
 
 
+## V2.02.01 (2019-01-29)
+
+### Additions
+
+### Removals
+
+### Changes
+- Terminal related Controller commands changed
+
+### Fixes
+- Terminal output bugfix
+- Controller event handling bugfix
+
+
+
 ## V2.02 (2019-01-28)
 
 ### Additions

sl_controller/commands.lua

@@ -25,17 +25,6 @@ sl_controller.register_function("get_input", {
 		" The device has to be connected with the controller."
 })
 
-sl_controller.register_function("get_string", {
-	cmnd = function(self, num)
-		num = tostring(num or "")
-		return sl_controller.get_command(self.meta.number)
-	end,
-	help = ' $get_string()  --> text sting or nil\n'..
-		' Read an entered string (command) from the Terminal.\n'..
-		' example: s = $get_string()\n'..
-		" The Terminal has to be connected with the controller."
-})
-
 sl_controller.register_function("get_status", {
 	cmnd = function(self, num) 
 		num = tostring(num or "")
@@ -181,16 +170,6 @@ sl_controller.register_action("display", {
 		' example: $display("0123", 1, "Hello ", name, " !")'
 })
 
-sl_controller.register_action("terminal", {
-	cmnd = function(self, num, text)
-		text = tostring(text or "")
-		tubelib.send_message(num, self.meta.owner, nil, "term", text)
-	end,
-	help = " $terminal(num, text)\n"..
-		' Send a text line to the terminal with number "num".\n'..
-		' example: $terminal("0123", "Hello "..name)'
-})
-
 sl_controller.register_action("clear_screen", {
 	cmnd = function(self, num) 
 		num = tostring(num or "")

sl_controller/controller.lua

@@ -103,7 +103,7 @@ sl_controller.register_action("loopcycle", {
 
 sl_controller.register_action("events", {
 	cmnd = function(self, event)
-		self.events = event or false
+		self.meta.events = event or false
 	end,
 	help = "$events(true/false)\n"..
 		" Enable/disable event handling.\n"..
@@ -282,8 +282,9 @@ local function compile(pos, meta, number)
 	local code = safer_lua.init(pos, init, func.."\n"..loop, env, error)
 	
 	if code then
-		Cache[number] = {code=code, inputs={}}
-		Cache[number].inputs.term = "" -- terminal inputs
+		Cache[number] = {code=code, inputs={}, events=env.meta.events}
+		Cache[number].inputs.term = nil  -- terminal inputs
+		Cache[number].inputs.msg = {}  -- message queue
 		return true
 	end
 	return false
@@ -361,7 +362,6 @@ local function call_loop(pos, meta, elapsed)
 	local t = minetest.get_us_time()
 	local number = meta:get_string("number")
 	if Cache[number] or compile(pos, meta, number) then
-		
 		local cpu = meta:get_int("cpu") or 0
 		local code = Cache[number].code
 		local res = safer_lua.run_loop(pos, elapsed, code, error)
@@ -375,6 +375,10 @@ local function call_loop(pos, meta, elapsed)
 				return false
 			end
 		end
+		-- further messages available?
+		if next(Cache[number].inputs["msg"]) then
+			minetest.after(1, call_loop, pos, meta, -1)
+		end
 		return res
 	end
 	return false
@@ -522,7 +526,14 @@ minetest.register_craft({
 local function set_input(pos, number, input, val)
 	if input and M(pos):get_int("state") == tubelib.RUNNING then 
 		if Cache[number] and Cache[number].inputs then
+			if input == "msg" then
+				if #Cache[number].inputs["msg"] < 10 then
+					table.insert(Cache[number].inputs["msg"], val)
+				end
+			else
 				Cache[number].inputs[input] = val
+			end
+			if Cache[number].events then  -- events enabled?
 				-- only one event per second
 				local t = minetest.get_us_time()
 				 if not Cache[number].last_event or Cache[number].last_event < t then
@@ -532,6 +543,7 @@ local function set_input(pos, number, input, val)
 				end
 			end
 		end
+	end
 end	
 
 -- used by the command "input"
@@ -547,11 +559,17 @@ end
 -- used for Terminal commands
 function sl_controller.get_command(number)
 	if Cache[number] and Cache[number].inputs then
-		local cmnd = Cache[number].inputs["term"] or ""
-		Cache[number].inputs["term"] = ""
+		local cmnd = Cache[number].inputs["term"]
+		Cache[number].inputs["term"] = nil
 		return cmnd
 	end
-	return ""
+end	
+
+-- used for queued messages
+function sl_controller.get_msg(number)
+	if Cache[number] and Cache[number].inputs then
+		return table.remove(Cache[number].inputs["msg"], 1)
+	end
 end	
 
 tubelib.register_node("sl_controller:controller", {}, {
@@ -565,6 +583,8 @@ tubelib.register_node("sl_controller:controller", {}, {
 			set_input(pos, number, payload, topic)
 		elseif topic == "term" then
 			set_input(pos, number, "term", payload)
+		elseif topic == "msg" then
+			set_input(pos, number, "msg", payload)
 		elseif topic == "state" then
 			local running = meta:get_int("running") or tubelib.STATE_STOPPED
 			return tubelib.statestring(running)

sl_controller/terminal.lua

@@ -24,8 +24,9 @@ Local commands:
 - help     = this message 
 - pub      = switch to public use
 - priv      = switch to private use
-Test commands:
+Global commands:
 - send <num> on/off  = send on/off event
+- msg <num> <text>    = send a text message
 ]]
 
 local function formspec1()
@@ -82,18 +83,27 @@ local function command(pos, cmnd, player)
 			output(pos, player..":$ "..cmnd)
 			output(pos, "Switched to private use!")
 		elseif meta:get_int("public") == 1 or owner == player then
+			-- send <num> on/off
 			local num, topic = cmnd:match('^send%s+([0-9]+)%s+([onff]+)$')
 			if num and topic then
 				local own_number = meta:get_string("own_number")
 				output(pos, player..":$ send "..num.." "..topic)
 				tubelib.send_message(num, owner, nil, topic, own_number)
-			else
+				return
+			end
+			-- msg <num> <text>
+			local num, text = cmnd:match('^msg%s+([0-9]+)%s+(.+)$')
+			if num and text then
+				local own_number = meta:get_string("own_number")
+				output(pos, player..":$ msg "..num.." "..text)
+				tubelib.send_message(num, owner, nil, "msg", {src=own_number, text=text})
+				return
+			end
 			local number = meta:get_string("number") or "0000"
 			output(pos, player..":$ "..cmnd)
 			tubelib.send_message(number, owner, nil, "term", cmnd)
 		end
 	end
-	end
 end	
 
 local function register_terminal(num, tiles, node_box, selection_box)
@@ -203,11 +213,70 @@ minetest.register_craft({
 	},
 })
 
-tubelib.register_node("sl_controller:terminal", {"sl_controller:terminal2", "sl_controller:terminal3"}, {
+tubelib.register_node("sl_controller:terminal", {}, {
 	on_recv_message = function(pos, topic, payload)
 		if topic == "term" then
 			output(pos, payload)
 			return true
+		elseif topic == "msg" then
+			output(pos, payload.src..": "..payload.text)
+			return true
 		end
 	end,
 })
+
+tubelib.register_node("sl_controller:terminal2", {}, {
+	on_recv_message = function(pos, topic, payload)
+		if topic == "term" then
+			output(pos, payload)
+			return true
+		elseif topic == "msg" then
+			output(pos, payload.src..": "..payload.text)
+			return true
+		end
+	end,
+})		
+
+sl_controller.register_function("get_term", {
+	cmnd = function(self)
+		return sl_controller.get_command(self.meta.number)
+	end,
+	help = ' $get_term()  --> text string or nil\n'..
+		' Read an entered string (command) from the Terminal.\n'..
+		' example: s = $get_term()\n'..
+		" The Terminal has to be connected to the controller."
+})
+
+sl_controller.register_action("put_term", {
+	cmnd = function(self, num, text)
+		text = tostring(text or "")
+		tubelib.send_message(num, self.meta.owner, nil, "term", text)
+	end,
+	help = " $put_term(num, text)\n"..
+		' Send a text line to the terminal with number "num".\n'..
+		' example: $put_term("0123", "Hello "..name)'
+})
+
+sl_controller.register_function("get_msg", {
+	cmnd = function(self)
+		local msg = sl_controller.get_msg(self.meta.number)
+		if msg then
+			return msg.src, msg.text
+		end
+	end,
+	help = ' $get_msg()  --> number and text string or nil\n'..
+		' Read a received messages. Number is the node\n'..
+		' number of the sender.\n'..
+		' example: num,msg = $get_msg().'
+})
+
+sl_controller.register_action("send_msg", {
+	cmnd = function(self, num, text)
+		local msg = {src = self.meta.number, text = tostring(text or "")}
+		tubelib.send_message(num, self.meta.owner, nil, "msg", msg)
+	end,
+	help = " $send_msg(num, text)\n"..
+		' Send a message to the controller with number "num".\n'..
+		' example: $send_msg("0123", "test")'
+})
+