encode-chunk ( repl-pair surround-pair chunk printable? -- bytes )

Vocabulary

io.encodings.utf7

Inputs

repl-pair	an object
surround-pair	an object
chunk	an object
printable?	an object

Outputs

bytes

an object

Definition

USING: kernel sequences splitting ;

IN: io.encodings.utf7

: encode-chunk
    ( repl-pair surround-pair chunk printable? -- bytes )
    [ swap [ first ] [ concat ] bi replace nip ] [
        >raw-base64 -rot
        [ first2 replace ] [ first2 surround ] bi*
    ] if ;