Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Moving mime-write-headers to (chibi mime).

Browse source
This commit is contained in:
Alex Shinn 2013-12-25 13:34:36 +09:00
parent 5850eeaf6f
commit db233e95b7
2 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lib/chibi/mime.scm
View file

@ -208,6 +208,15 @@
(lp (+ i 2) from res))) (lp (+ i 2) from res)))
(lp (+ i 1) from res)))))) (lp (+ i 1) from res))))))
;;> Write out an alist of headers in mime format.
(define (mime-write-headers headers out)
(for-each
(lambda (h)
(display (car h) out) (display ": " out)
(display (cdr h) out) (display "\r\n" out))
headers))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; message parsing ;; message parsing

2
lib/chibi/mime.sld
View file

@ -2,7 +2,7 @@
(define-library (chibi mime) (define-library (chibi mime)
(export assq-ref mime-header-fold mime-headers->list (export assq-ref mime-header-fold mime-headers->list
mime-parse-content-type mime-decode-header mime-parse-content-type mime-decode-header
mime-message-fold mime-message->sxml) mime-message-fold mime-message->sxml mime-write-headers)
(import (chibi) (chibi base64) (chibi quoted-printable) (import (chibi) (chibi base64) (chibi quoted-printable)
(chibi string) (chibi io)) (chibi string) (chibi io))
(include "mime.scm")) (include "mime.scm"))