crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

update socket-server example

Browse source 
FossilOrigin-Name: eff70d440e8ebc4a9c9ff895f4a01219a05b4dda4aa11301baa3536ddebbc641
This commit is contained in:
crc 2022-04-11 16:22:43 +00:00
parent c2e48a2930
commit 0e9cd203c0
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
example/socket-server.retro
View file

@ -16,12 +16,12 @@ Prepare to listen for connections.
#3 @Sock socket:listen drop-pair #3 @Sock socket:listen drop-pair
~~~ ~~~
Serve the user some data. This will repeat 5 times, then end. Serve the user some data.
~~~ ~~~
#5 [ @Sock socket:accept (discard_error_code: drop ) [ @Sock socket:accept (discard_error_code: drop )
'Hello_from_RETRO\n s:format swap [ socket:send drop-pair ] sip socket:close 'Hello_from_RETRO\n s:format swap [ socket:send drop-pair ] sip socket:close
] times ] forever
~~~ ~~~
Clean up. Clean up.