dump-until-separator ( multipart -- multipart )

Vocabulary

mime.multipart

Inputs

multipart

an object

Outputs

multipart

an object

Definition

USING: accessors kernel math sequences ;

IN: mime.multipart

: dump-until-separator ( multipart -- multipart )
    [ ] [ current-separator>> ] [ bytes>> ] tri dup
    [ mime-decoding-ran-out-of-bytes ] unless
    2dup swap subseq-index [
        cut-slice
        [ mime-write ] [ swap length tail-slice >>bytes ] bi*
    ] [
        tuck 2length - 1 - cut-slice
        [ mime-write ] [ >>bytes ] bi*
        fill-bytes dup end-of-stream?>>
        [ dump-until-separator ] unless
    ] if* ;