finish-multipart ( multipart -- multipart )

Vocabulary

mime.multipart

Inputs

multipart

an object

Outputs

multipart

an object

Definition

USING: accessors kernel sequences ;

IN: mime.multipart

: finish-multipart ( multipart -- multipart )
    [ [ " \t" member? ] trim-head ] change-bytes
    dup bytes>> empty? [
        dup end-of-stream?>>
        [ fill-bytes finish-multipart ] unless
    ] [
        2 ensure-mime-bytes dup bytes>> 2 head
        "\r\n" assert-sequence=
    ] if t >>end-of-stream? ;