68578a78 ^
192d59d3 ^
760f683f ^
08f4628e ^
1 2
3
4
5
6
7
8
9 10 11 12 13 14
def main [ local-scope socket:num <- $socket 8080/port $print [Mu socket creation returned ], socket, 10/newline session:num <- $accept socket { client-message:&:buffer <- new-buffer 1024 c:char <- $read-from-socket session break-unless c $print c loop } $close-socket socket, session ]