add tcp2uart.lua example

Author: funshine

examples/fragment.lua

@@ -319,3 +319,21 @@ m:connect("192.168.18.101",1883)
 m:subscribe("/topic",0,function(m) print("sub done") end)
 m:on("message",function(m,t,pl) print(t..":") if pl~=nil then print(pl) end end )
 m:publish("/topic","hello",0,0)
+
+uart.setup(0,9600,8,0,1,0)
+sv=net.createServer(net.TCP, 60)
+global_c = nil
+sv:listen(9999, function(c)
+	if global_c~=nil then
+		global_c:close()
+	end
+	global_c=c
+	c:on("receive",function(sck,pl)	uart.write(0,pl) end)
+end)
+
+uart.on("data",4, function(data)
+	if global_c~=nil then
+		global_c:send(data)
+	end
+end, 0)
+

lua_examples/tcp2uart.lua

@@ -0,0 +1,16 @@
+uart.setup(0,9600,8,0,1,0)
+sv=net.createServer(net.TCP, 60)
+global_c = nil
+sv:listen(9999, function(c)
+	if global_c~=nil then
+		global_c:close()
+	end
+	global_c=c
+	c:on("receive",function(sck,pl)	uart.write(0,pl) end)
+end)
+
+uart.on("data",4, function(data)
+	if global_c~=nil then
+		global_c:send(data)
+	end
+end, 0)