echo-server: switch to utf8.
parent
f60513c053
commit
4d62b3218f
|
@ -1,7 +1,7 @@
|
||||||
! Copyright (C) 2012 John Benediktsson
|
! Copyright (C) 2012 John Benediktsson
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
|
|
||||||
USING: accessors kernel io io.encodings.ascii io.servers ;
|
USING: accessors kernel io io.encodings.utf8 io.servers ;
|
||||||
|
|
||||||
IN: echo-server
|
IN: echo-server
|
||||||
|
|
||||||
|
@ -9,7 +9,7 @@ IN: echo-server
|
||||||
readln [ write "\r\n" write flush echo-loop ] when* ;
|
readln [ write "\r\n" write flush echo-loop ] when* ;
|
||||||
|
|
||||||
: <echo-server> ( port -- server )
|
: <echo-server> ( port -- server )
|
||||||
ascii <threaded-server>
|
utf8 <threaded-server>
|
||||||
swap >>insecure
|
swap >>insecure
|
||||||
"echo.server" >>name
|
"echo.server" >>name
|
||||||
[ echo-loop ] >>handler ;
|
[ echo-loop ] >>handler ;
|
||||||
|
|
Loading…
Reference in New Issue