encode-utf7-string ( str codec -- bytes )

Vocabulary

io.encodings.utf7

Inputs

str	an object
codec	an object

Outputs

bytes

an object

Definition

USING: accessors kernel make sequences ;

IN: io.encodings.utf7

: encode-utf7-string ( str codec -- bytes )
    dialect>> first2 rot [
        [ dup empty? ] [
            split-chunk [ [ [ 2dup ] ] dip ] dip
            [ encode-chunk % ] 2curry compose dip
        ] until
    ] B{ } make 3nip ;