retroforth/example/socket-server.retro

Get a socket.

~~~
socket:create 'Sock var<n>
~~~

Bind to port 9998.

~~~
'9998 @Sock socket:bind drop-pair
~~~

Prepare to listen for connections.

~~~
#3 @Sock socket:listen drop-pair
~~~

Serve the user some data. This will repeat 5 times, then end.

~~~
#5 [ @Sock socket:accept (discard_error_code: drop )
     'Hello_from_RETRO\n s:format swap [ socket:send drop-pair ] sip socket:close
   ] times
~~~

Clean up.

~~~
@Sock socket:close
~~~