1 ! Copyright (C) 2005, 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel math make strings arrays vectors sequences
4 sets math.order accessors ;
7 : ?head ( seq begin -- newseq ? )
8 2dup head? [ length tail t ] [ drop f ] if ;
10 : ?head-slice ( seq begin -- newseq ? )
11 2dup head? [ length tail-slice t ] [ drop f ] if ;
13 : ?tail ( seq end -- newseq ? )
14 2dup tail? [ length head* t ] [ drop f ] if ;
16 : ?tail-slice ( seq end -- newseq ? )
17 2dup tail? [ length head-slice* t ] [ drop f ] if ;
19 : split1 ( seq subseq -- before after )
21 [ >r over r> head -rot length ] keep + tail
26 : split1-slice ( seq subseq -- before-slice after-slice )
28 [ >r over r> head-slice -rot length ] keep + tail-slice
33 : split1-last ( seq subseq -- before after )
34 [ <reversed> ] bi@ split1 [ reverse ] bi@
37 : split1-last-slice ( seq subseq -- before-slice after-slice )
38 [ <reversed> ] bi@ split1-slice [ <reversed> ] bi@
39 [ f ] [ swap ] if-empty ;
41 : (split) ( separators n seq -- )
42 3dup rot [ member? ] curry find-from drop
43 [ [ swap subseq , ] 2keep 1+ swap (split) ]
44 [ swap dup zero? [ drop ] [ tail ] if , drop ] if* ; inline recursive
46 : split, ( seq separators -- ) 0 rot (split) ;
48 : split ( seq separators -- pieces ) [ split, ] { } make ;
50 : string-lines ( str -- seq )
51 dup "\r\n" intersect empty? [
56 "\r" ?tail drop "\r" split
58 ] keep peek "\r" split suffix concat