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.

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

Clean up.

~~~
@Sock socket:close
~~~