read-header ( multipart -- multipart )

Vocabulary

mime.multipart

Inputs

multipart

an object

Outputs

multipart

an object

Definition

USING: accessors kernel sequences ;

IN: mime.multipart

: read-header ( multipart -- multipart )
    dup bytes>> "--\r\n" sequence=
    [ t >>end-of-stream? ]
    [ "\r\n\r\n" dump-string parse-headers >>header ] if ;