retroforth/example/RFC867.forth

31 lines
941 B
Text
Raw Normal View History

This implements a simple socket based server for RFC867, the "Daytime
Protocol".
~~~
'Socket var
{{
'Sock var
'Quote var
:if-failed swap [ 'ERROR:_ s:put s:put nl bye ] &drop choose ;
:bind n:to-string @Sock socket:bind drop 'binding_to_port if-failed ;
:listen #5 @Sock socket:listen drop 'preparing_socket if-failed ;
:accept @Sock socket:accept n:-zero? 'accept_failed if-failed ;
:send '_ [ store ] sip @Socket socket:send drop-pair ;
:remap &send &c:put set-hook ;
:unmap &c:put unhook ;
:process [ remap !Socket @Quote call reset unmap ] sip socket:close ;
---reveal---
:server:for-each-connection (nq-)
!Quote socket:create !Sock
bind listen repeat accept process again ;
}}
~~~
~~~
:now clock:second clock:minute clock:hour clock:day clock:month clock:year
'%n-%n-%n__%n:%n:%n\n s:format ;
#13 [ now s:put ] server:for-each-connection
~~~