split-lines ( seq -- seq' )
Factor handbook » The language » Collections » Sequence operations » Splitting sequences

Prev:	split-when-slice ( ... seq quot: ( ... elt -- ... ? ) -- ... pieces )
Next:	replace ( seq old new -- new-seq )

Vocabulary
splitting

Inputs

seq	a sequence

Outputs

seq'	a sequence of strings

Word description
Splits a string along line breaks.

Notes
These are considered line breaks:

\n	Line Feed
\r	Carriage Return
\r\n	Carriage Return + Line Feed
\v	Line Tabulation
\f	Form Feed
\x1c	File Separator
\x1d	Group Separator
\x1e	Record Separator
\x85	Next Line (C1 Control Code)
\u002028	Line Separator
\u002029	Paragraph Separator

Examples

USING: prettyprint splitting ; "Hello\r\nworld\n" split-lines .
{ "Hello" "world" }

Definition

IN: splitting

GENERIC: split-lines ( seq -- seq' )

Methods

USING: sbufs sequences splitting ;

M: sbuf split-lines "" like split-lines ;


USING: kernel math sequences sequences.private splitting
splitting.private strings ;

M:: string split-lines ( seq -- seq' )
    seq length :> len V{ } clone 0
    [ dup len < ] [
        dup seq [ linebreak? ] find-from
        [ len or [ seq subseq-unsafe suffix! ] [ 1 + ] bi ]
        [ 13 eq? [ dup seq ?nth 10 eq? [ 1 + ] when ] when ] bi*
    ] while drop { } like ; inline