 mime-parts ;
 
 TUPLE: mime-file headers filename temporary-path ;
+C: <mime-file> mime-file
+
 TUPLE: mime-variable headers key value ;
+C: <mime-variable> mime-variable
 
 : <multipart> ( mime-separator -- multipart )
     multipart new

ERROR: no-content-disposition multipart ;

: process-header ( multipart -- multipart )
    "content-disposition" over header>> at ";" split1 swap {
        { "form-data" [
            parse-content-disposition-form-data >>content-disposition
            parse-form-data

! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors ascii assocs byte-arrays combinators fry
hashtables http http.parsers io io.encodings.binary io.files
io.files.unique io.streams.string kernel math quoting sequences
splitting ;
IN: mime.multipart

CONSTANT: buffer-size 65536
