split-chunk ( str -- after before printable? )

Vocabulary

io.encodings.utf7

Inputs

str

an object

Outputs

after	an object
before	an object
printable?	an object

Definition

USING: ascii kernel sequences ;

IN: io.encodings.utf7

: split-chunk ( str -- after before printable? )
    dup first printable? [
        [ 1 over ] dip [ [ printable? ] ] dip [ = not ] curry
        compose find-from drop [ cut-slice ] [ f ] if* swap
    ] keep ;