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 kernel io io.encodings.binary io.servers ;
   5
   6 IN: echo-server
   7
   8 : echo-loop ( -- )
   9     1024 read-partial [ write flush echo-loop ] when* ;
  10
  11 : <echo-server> ( port -- server )
  12     binary <threaded-server>
  13         swap >>insecure
  14         "echo.server" >>name
  15         [ echo-loop ] >>handler ;
  16
  17 : echod ( port -- server )
  18     <echo-server> start-server ;
  19
  20 : echod-main ( -- ) 1234 echod drop ;
  21
  22 MAIN: echod-main
  23