extra/echo-server/echo-server.factor

   1 ! Copyright (C) 2012 John Benediktsson
   2 ! See http://factorcode.org/license.txt for BSD license.
   3
   4 USING: accessors command-line io io.encodings.binary io.servers
   5 kernel math.parser namespaces sequences ;
   6
   7 IN: echo-server
   8
   9 : echo-loop ( -- )
  10     1024 read-partial [ write flush echo-loop ] when* ;
  11
  12 : <echo-server> ( port -- server )
  13     binary <threaded-server>
  14         swap >>insecure
  15         "echo.server" >>name
  16         [ echo-loop ] >>handler ;
  17
  18 : echo-server-main ( -- )
  19     command-line get [ 1234 ] [ first string>number ] if-empty
  20     <echo-server> start-server wait-for-server ;
  21
  22 MAIN: echo-server-main