basis/io/crlf/crlf.factor

   1 ! Copyright (C) 2009 Daniel Ehrenberg, Slava Pestov
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: io kernel sequences ;
   4 IN: io.crlf
   5
   6 : crlf ( -- )
   7     "\r\n" write ;
   8
   9 : read-crlf ( -- seq )
  10     "\r" read-until
  11     [ CHAR: \r assert= read1 CHAR: \n assert= ] [ f like ] if* ;
  12
  13 : read-?crlf ( -- seq )
  14     "\r\n" read-until
  15     [ CHAR: \r = [ read1 CHAR: \n assert= ] when ] [ f like ] if* ;