01 server
needs sock.f
0 value sock
: server-init ( -- )
8003 sock-create dup to sock
dup -1 = if abort" Unable to make socket!" then
5 sock sock-listen ;
: serve ( -- )
begin
sock sock-accept?
if sock sock-accept drop
dup s" Server Hello! " rot sock-write drop
dup get-local-time time-buf >time" rot sock-write drop
10 ms sock-close drop
then
10 ms key? until ;
: server ( -- ) server-init serve ;
server