Pharo Smalltalk TCP Server

gistfile1.st

"Adapted from http://www.slideshare.net/nourybouraqadi/pharo-networking-by-example
$! denotes the end of a message
"

| connectionSock interactSock request stream |
connectionSock := Socket newTCP.
[
		connectionSock listenOn: 8888 backlogSize: 10.
		interactSock := connectionSock waitForAcceptFor: 15.
		stream := SocketStream on: interactSock.
				request := stream upTo: $!.
				stream sendCommand: 'Pharo Server: ', request, ' received!'.
				Transcript cr; show: request.
] ensure: [
	connectionSock closeAndDestroy.
	stream close ]