extra: cleanup some example servers, allow port to be specified on command line.

[factor.git] / extra / echo-server / echo-server.factor

diff --git a/extra/echo-server/echo-server.factor b/extra/echo-server/echo-server.factor
index 50364c02b916a0ba415946578ab16527b41359dc..a34e64c4f598ed31171ecb9b17670dab14a7e55c 100644 (file)
--- a/extra/echo-server/echo-server.factor
+++ b/extra/echo-server/echo-server.factor
@@ -1,7 +1,8 @@
 ! Copyright (C) 2012 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license.
 
-USING: accessors kernel io io.encodings.binary io.servers ;
+USING: accessors command-line io io.encodings.binary io.servers
+kernel math.parser namespaces sequences ;
 
 IN: echo-server
 
@@ -14,9 +15,8 @@ IN: echo-server
         "echo.server" >>name
         [ echo-loop ] >>handler ;
 
-: echod ( port -- server )
-    <echo-server> start-server ;
+: echo-server-main ( -- )
+    command-line get [ 1234 ] [ first string>number ] if-empty
+    <echo-server> start-server wait-for-server ;
 
-: echod-main ( -- ) 1234 echod drop ;
-
-MAIN: echod-main
+MAIN: echo-server-main