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 _ _ encode-chunk % ] dip ] until
    ] B{ } make 3nip ;