1 ! Copyright (C) 2009 Daniel Ehrenberg, Slava Pestov
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: io kernel sequences splitting ;
11 [ CHAR: \r assert= read1 CHAR: \n assert= ] [ f like ] if* ;
13 : read-?crlf ( -- seq )
15 [ CHAR: \r = [ read1 CHAR: \n assert= ] when ] [ f like ] if* ;
17 : crlf>lf ( str -- str' )
18 CHAR: \r swap remove ;
20 : lf>crlf ( str -- str' )
21 "\n" split "\r\n" join ;