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. ! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors io kernel sequences ; USING: accessors io io.crlf kernel sequences ;
IN: ftp IN: ftp
SYMBOLS: +active+ +passive+ ; SYMBOLS: +active+ +passive+ ;
@ -14,4 +14,4 @@ TUPLE: ftp-response n strings parsed ;
: add-response-line ( ftp-response string -- ftp-response ) : add-response-line ( ftp-response string -- ftp-response )
over strings>> push ; 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. ! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs combinators combinators.smart USING: accessors assocs calendar calendar.format
destructors fry io io.encodings.utf8 kernel managed-server combinators.smart io io.crlf io.encodings.utf8 kernel locals
namespaces parser sequences sorting splitting strings.parser managed-server namespaces sequences sorting splitting
unicode.case unicode.categories calendar calendar.format unicode.case ;
locals io.encodings.binary io.encodings.string prettyprint ;
FROM: namespaces => set ; FROM: namespaces => set ;
IN: managed-server.chat IN: managed-server.chat
@ -19,7 +18,7 @@ chat-docs [ H{ } clone ] initialize
CONSTANT: line-beginning "-!- " CONSTANT: line-beginning "-!- "
: send-line ( string -- ) : send-line ( string -- )
write "\r\n" write flush ; write crlf flush ;
: handle-me ( string -- ) : handle-me ( string -- )
[ [