- Intro
- Dependencies
- Test dependencies
- Foreign dependencies
- API
- Examples
- Author(s)
- Maintainer(s)
- Version
- License
- Tags
A library to parse MIME headers and bodies into SXML. Ported from Chibi Scheme.
base64 quoted-printable string
None
None
Returns the cdr of the cell in ls whose car is eq? to key, or default if not found. Useful for retrieving values associated with MIME headers.
Performs a fold operation on the MIME headers of source which can be
either a string or port, and defaults to current-input-port. kons
is called on the three values:
(kons header value accumulator)
where accumulator begins with knil. Neither the header nor the
value are modified, except wrapped lines are handled for the value.
The optional procedure kons-from is a procedure to be called when
the first line of the headers is an "From
kons, and if such a line is found the fold will begin
with (kons-from '%from <address> (kons-from '%date <date> knil)).
The optional limit gives a limit on the number of headers to read.
Return an alist of the MIME headers from source with headers all downcased.
Parses str as a Content-Type style-value returning the list (type (attr . val) ...).
Replace all occurrences of RFC1522 escapes in str with the appropriate decoded and charset converted value.
Performs a tree fold operation on the given string or port
src as a MIME body corresponding to the headers give in
headers. If headers are false or not provided they
are first read from src.
kons is called on the successive values:
(kons parent-headers part-headers part-body accumulator)
where part-headers are the headers for the given MIME part (the
original headers for single-part MIME), part-body is the
appropriately decoded and charset-converted body of the message,
and the accumulator begins with knil.
If a multipart body is found, then a tree fold is performed,
calling down once to get a new accumulator to pass to
kons, and up on the result when returning. Their
signatures are:
(down headers seed)
(up headers parent-seed seed)
The default down simply returns null, and the default
up wraps the seed in the following sxml:
((mime (@ headers ...) seed ...) parent-seed ...)
Parse the given source as a MIME message and return the result as an SXML object of the form:
(mime (@ (header . value) ...) parts ...)
Write out an alist of headers in mime format.
(import (scheme base) (cyclone mime) (cyclone string) (cyclone test))
(test-group "mime"
(test '(text/html (charset . "UTF-8") (filename . "index.html"))
(mime-parse-content-type
"text/html; CHARSET=UTF-8; filename=index.html"))
(test '(multipart/form-data (boundary . "AaB03x"))
(mime-parse-content-type "multipart/form-data, boundary=AaB03x"))
(test '(mime (@ (from . "\"Dr. Watson <guest@grimpen.moor>\"")
(to . "\"Sherlock Homes <not-really@221B-baker.street>\"")
(subject . "\"First Report\"")
(content-type . "text/plain; charset=\"ISO-8859-1\""))
"Moor is gloomy. Heard strange noise, attached.\n")
(call-with-input-string
"From: \"Dr. Watson <guest@grimpen.moor>\"
To: \"Sherlock Homes <not-really@221B-baker.street>\"
Subject: \"First Report\"
Content-Type: text/plain; charset=\"ISO-8859-1\"
Moor is gloomy. Heard strange noise, attached.
"
mime-message->sxml))
;; from rfc 1867
(test '(mime
(@ (content-type . "multipart/form-data, boundary=AaB03x"))
(mime (@ (content-disposition . "form-data; name=\"field1\""))
"Joe Blow")
(mime (@ (content-disposition
. "form-data; name=\"pics\"; filename=\"file1.txt\"")
(content-type . "text/plain"))
" ... contents of file1.txt ..."))
(call-with-input-string
"Content-type: multipart/form-data, boundary=AaB03x
--AaB03x
content-disposition: form-data; name=\"field1\"
Joe Blow
--AaB03x
content-disposition: form-data; name=\"pics\"; filename=\"file1.txt\"
Content-Type: text/plain
... contents of file1.txt ...
--AaB03x--
"
mime-message->sxml))
(test '(mime
(@ (content-type . "multipart/form-data, boundary=AaB03x"))
(mime (@ (content-disposition . "form-data; name=\"field1\""))
"Joe Blow")
(mime (@ (content-disposition . "form-data; name=\"pics\"")
(content-type . "multipart/mixed, boundary=BbC04y"))
(mime (@ (content-disposition
. "attachment; filename=\"file1.txt\"")
(content-type . "text/plain"))
"... contents of file1.txt ...")
(mime (@ (content-disposition
. "attachment; filename=\"file2.gif\"")
(content-type . "image/gif")
(content-transfer-encoding . "binary"))
#u8(32 32 46 46 46 99 111 110 116 101 110
116 115 32 111 102 32 102 105 108 101
50 46 103 105 102 46 46 46))))
(call-with-input-string
"Content-type: multipart/form-data, boundary=AaB03x
--AaB03x
content-disposition: form-data; name=\"field1\"
Joe Blow
--AaB03x
content-disposition: form-data; name=\"pics\"
Content-type: multipart/mixed, boundary=BbC04y
--BbC04y
Content-disposition: attachment; filename=\"file1.txt\"
Content-Type: text/plain
... contents of file1.txt ...
--BbC04y
Content-disposition: attachment; filename=\"file2.gif\"
Content-type: image/gif
Content-Transfer-Encoding: binary
...contents of file2.gif...
--BbC04y--
--AaB03x--
"
mime-message->sxml))
(test '(mime
(@ (content-type . "multipart/form-data, boundary=AaB03x"))
(mime (@ (content-disposition . "form-data; name=\"field1\"")
(content-type . "text/plain"))
"Joe Blow")
(mime (@ (content-disposition . "form-data; name=\"pics\"")
(content-type . "multipart/mixed, boundary=BbC04y"))
(mime (@ (content-disposition
. "attachment; filename=\"file1.txt\"")
(content-type . "text/plain"))
"... contents of file1.txt ...")
(mime (@ (content-disposition
. "attachment; filename=\"file2.gif\"")
(content-type . "image/gif")
(content-transfer-encoding . "binary"))
#u8(32 32 46 46 46 99 111 110 116 101 110
116 115 32 111 102 32 102 105 108 101
50 46 103 105 102 46 46 46))))
(mime-message->sxml
(open-input-bytevector
(string->utf8
"Content-type: multipart/form-data, boundary=AaB03x
--AaB03x
content-disposition: form-data; name=\"field1\"
Content-Type: text/plain
Joe Blow
--AaB03x
content-disposition: form-data; name=\"pics\"
Content-type: multipart/mixed, boundary=BbC04y
--BbC04y
Content-disposition: attachment; filename=\"file1.txt\"
Content-Type: text/plain
... contents of file1.txt ...
--BbC04y
Content-disposition: attachment; filename=\"file2.gif\"
Content-type: image/gif
Content-Transfer-Encoding: binary
...contents of file2.gif...
--BbC04y--
--AaB03x--
"))))
)
(test-exit)Alex Shinn
Justin Ethier
"0.2.0"
BSD
networking