parse-form-data ( multipart -- multipart )

Vocabulary

mime.multipart

Inputs

multipart

an object

Outputs

multipart

an object

Definition

USING: accessors kernel quoting ;

IN: mime.multipart

: parse-form-data ( multipart -- multipart )
    "filename" lookup-disposition [
        unquote >>filename
        [ dump-file ] [ save-uploaded-file ] bi
    ] [
        "name" lookup-disposition [
            [ dup mime-separator>> dump-string >>name-content ]
            dip >>name dup save-mime-part
        ] [ unknown-content-disposition ] if*
    ] if* ;