help.html: only input.focus().
[factor.git] / extra / time-server / time-server.factor
1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors calendar calendar.format command-line io
4 io.encodings.ascii io.servers kernel math.parser namespaces
5 sequences ;
6 IN: time-server
7
8 : handle-time-client ( -- )
9     now timestamp>rfc822 print ;
10
11 : <time-server> ( port -- threaded-server )
12     ascii <threaded-server>
13         "time-server" >>name
14         swap >>insecure
15         [ handle-time-client ] >>handler ;
16
17 : time-server-main ( -- )
18     command-line get [ 1234 ] [ first string>number ] if-empty
19     <time-server> start-server wait-for-server ;
20
21 MAIN: time-server-main