simple UDP server

udp-server.reb

Rebol [
	date: 11-April-2018
	title: "simple udp server"
]

attempt [close listen]

print "opening server on port 9000"
listen: open udp://:9000

awake: function [evt][
	print "Client event"
	dump evt/type
	port: evt/port

	switch evt/type [ 
		connect []
		read [
			print to string! port/data
			clear port/data
			read port
		]
		close [exit]
		exit
	] 
]


listen/awake: function [evt][ 
	print "Listen event"
	dump evt/type

	switch evt/type [ 
		connect read accept [
			print "accepted connection"
			client: first evt/port
			client/awake: :awake
			read client
		]

	] 
]

read listen

forever [
	if blank? data: wait [listen 10][
		print "timed out"
	]
]

close listen