stream-read-?crlf ( stream -- seq )

Vocabulary

io.crlf

Inputs

stream

an object

Outputs

seq

an object

Definition

USING: io kernel sequences ;

IN: io.crlf

:: stream-read-?crlf ( stream -- seq )
    "\r\n" stream stream-read-until
    [ 13 = [ stream stream-read1 10 assert= ] when ] [ f like ]
    if* ;