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 )
    2 ensure-mime-bytes dup bytes>> 2 head "--" sequence=
    [ [ 2 tail ] change-bytes finish-multipart ]
    [ "\r\n\r\n" dump-string parse-headers >>header ] if ;