steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

using crlf.

db4
John Benediktsson 2014-11-30 08:48:28 -08:00
parent 76e2421f07
commit e12d4fba4c
2 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/ftp/ftp.factor
View File

@ -1,6 +1,6 @@
! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors io kernel sequences ;
USING: accessors io io.crlf kernel sequences ;
IN: ftp
SYMBOLS: +active+ +passive+ ;
@ -14,4 +14,4 @@ TUPLE: ftp-response n strings parsed ;
: add-response-line ( ftp-response string -- ftp-response )
over strings>> push ;
: ftp-send ( string -- ) write "\r\n" write flush ;
: ftp-send ( string -- ) write crlf flush ;

11
extra/managed-server/chat/chat.factor
View File

@ -1,10 +1,9 @@
! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs combinators combinators.smart
destructors fry io io.encodings.utf8 kernel managed-server
namespaces parser sequences sorting splitting strings.parser
unicode.case unicode.categories calendar calendar.format
locals io.encodings.binary io.encodings.string prettyprint ;
USING: accessors assocs calendar calendar.format
combinators.smart io io.crlf io.encodings.utf8 kernel locals
managed-server namespaces sequences sorting splitting
unicode.case ;
FROM: namespaces => set ;
IN: managed-server.chat
@ -19,7 +18,7 @@ chat-docs [ H{ } clone ] initialize
CONSTANT: line-beginning "-!- "
: send-line ( string -- )
write "\r\n" write flush ;
write crlf flush ;
: handle-me ( string -- )
[