Paste: string parse

Author: mnestic
Mode: factor
Date: Sat, 18 Sep 2010 03:15:50
Plain Text |
: blank-split ( str -- seq ) " \t" split harvest ;

: parsestr ( seq -- seq ) 
    [ dup CHAR: [ swap member? 
        [
            "[" "]" [ split1 ] bi@ 
            [ blank-split ] [ "[" "]" surround 1array ] [ blank-split ] tri*
            3array concat
        ] [
            blank-split
        ] if
    ] map ;

New Annotation

Summary:
Author:
Mode:
Body: