X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Ftime-server%2Ftime-server.factor;h=eb193006ecffe8e656de5a24945e020fd7dffb67;hp=28debf17cd29738785a30baa35c6ba27d6c4f2df;hb=HEAD;hpb=d53d7d0baa3035bb9091cc3d589faae9e3aeee11

diff --git a/extra/time-server/time-server.factor b/extra/time-server/time-server.factor
index 28debf17cd..eb193006ec 100644
--- a/extra/time-server/time-server.factor
+++ b/extra/time-server/time-server.factor
@@ -1,19 +1,21 @@
 ! Copyright (C) 2008 Slava Pestov.
-! See http://factorcode.org/license.txt for BSD license.
-USING: io io.servers.connection accessors threads
-calendar calendar.format ;
+! See https://factorcode.org/license.txt for BSD license.
+USING: accessors calendar calendar.format command-line io
+io.encodings.ascii io.servers kernel math.parser namespaces
+sequences ;
 IN: time-server
 
 : handle-time-client ( -- )
     now timestamp>rfc822 print ;
 
-: <time-server> ( -- threaded-server )
-    <threaded-server>
+: <time-server> ( port -- threaded-server )
+    ascii <threaded-server>
         "time-server" >>name
-        1234 >>insecure
+        swap >>insecure
         [ handle-time-client ] >>handler ;
 
-: start-time-server ( -- threaded-server )
-    <time-server> [ start-server ] in-thread ;
+: time-server-main ( -- )
+    command-line get [ 1234 ] [ first string>number ] if-empty
+    <time-server> start-server wait-for-server ;
 
-MAIN: start-time-server
+MAIN: time-server-main