OC-Minitel/Embedded/microtel/microtel-5-open.lua

net.timeout = 60
function net.open(address,vport)
 local st,from,port,data=computer.uptime()
 net.send(address,port,"openstream")
 repeat
  _, from, port, data = computer.pullSignal(0.5)
  if computer.uptime() > st+net.timeout then return false end
 until from == address and port == vport and tonumber(data)
 vport=tonumber(data)
 repeat
  _, from, port, data = computer.pullSignal(0.5)
 until from == address and port == vport
 return socket(address,vport,data)
end
rewrote minitel-5 and split each part into separate files 2018-03-18 16:21:04 +11:00			`net.timeout = 60`
			`function net.open(address,vport)`
microtel-5-open should respect its boundaries better now 2018-03-30 00:10:38 +11:00			`local st,from,port,data=computer.uptime()`
rewrote minitel-5 and split each part into separate files 2018-03-18 16:21:04 +11:00			`net.send(address,port,"openstream")`
			`repeat`
			`_, from, port, data = computer.pullSignal(0.5)`
			`if computer.uptime() > st+net.timeout then return false end`
			`until from == address and port == vport and tonumber(data)`
			`vport=tonumber(data)`
			`repeat`
			`_, from, port, data = computer.pullSignal(0.5)`
			`until from == address and port == vport`
			`return socket(address,vport,data)`
			`end`