a06e30e73b
Eventually, we'll want to replace dump-stream-binary with something more efficient—given that we have flexi-streams we can use something that only does matching element types no problem. REDIRECT-STREAM is much more efficient thanks to using an internal buffer. streams.lisp gets a new section at the beginning for grouping utilities that don't have any real (internal) dependencies. Change-Id: I141cd36440d532131f389be2768fdaa54e7c7218 Reviewed-on: https://cl.tvl.fyi/c/depot/+/8583 Reviewed-by: sterni <sternenseemann@systemli.org> Autosubmit: sterni <sternenseemann@systemli.org> Tested-by: BuildkiteCI
105 lines
3.6 KiB
Common Lisp
105 lines
3.6 KiB
Common Lisp
;;; package.lisp --- package declaration
|
|
|
|
;;; Copyright (C) 2005-2007, 2010 by Walter C. Pelissero
|
|
;;; Copyright (C) 2022 The TVL Authors
|
|
|
|
;;; Author: Walter C. Pelissero <walter@pelissero.de>
|
|
;;; Project: mime4cl
|
|
|
|
;;; This library is free software; you can redistribute it and/or
|
|
;;; modify it under the terms of the GNU Lesser General Public License
|
|
;;; as published by the Free Software Foundation; either version 2.1
|
|
;;; of the License, or (at your option) any later version.
|
|
;;; This library is distributed in the hope that it will be useful,
|
|
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
;;; Lesser General Public License for more details.
|
|
;;; You should have received a copy of the GNU Lesser General Public
|
|
;;; License along with this library; if not, write to the Free
|
|
;;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
|
|
;;; 02111-1307 USA
|
|
|
|
(in-package :cl-user)
|
|
|
|
(defpackage :mime4cl
|
|
(:nicknames :mime)
|
|
(:use :common-lisp :npg :mime4cl-ex-sclf :trivial-gray-streams :flexi-streams)
|
|
(:export #:*lazy-mime-decode*
|
|
#:print-mime-part
|
|
#:read-mime-message
|
|
#:mime-part
|
|
#:mime-text
|
|
#:mime-binary
|
|
#:mime-id
|
|
#:mime-image
|
|
#:mime-message
|
|
#:mime-multipart
|
|
#:mime-audio
|
|
#:mime-unknown-part
|
|
#:get-mime-disposition-parameter
|
|
#:get-mime-type-parameter
|
|
#:mime-disposition
|
|
#:mime-disposition-parameters
|
|
#:mime-encoding
|
|
#:mime-application
|
|
#:mime-video
|
|
#:mime-description
|
|
#:mime-part-size
|
|
#:mime-subtype
|
|
#:mime-body
|
|
#:mime-body-stream
|
|
#:mime-body-length
|
|
#:mime-parts
|
|
#:mime-part-p
|
|
#:mime-type
|
|
#:mime-type-string
|
|
#:mime-type-parameters
|
|
#:mime-message-headers
|
|
#:mime-message-header-values
|
|
#:mime=
|
|
#:find-mime-part-by-path
|
|
#:find-mime-part-by-id
|
|
#:find-mime-text-part
|
|
#:encode-mime-part
|
|
#:encode-mime-body
|
|
#:decode-quoted-printable-stream
|
|
#:decode-quoted-printable-string
|
|
#:encode-quoted-printable-stream
|
|
#:encode-quoted-printable-sequence
|
|
#:decode-base64-stream
|
|
#:decode-base64-string
|
|
#:encode-base64-stream
|
|
#:encode-base64-sequence
|
|
#:parse-RFC2047-text
|
|
#:parse-RFC822-header
|
|
#:read-RFC822-headers
|
|
#:time-RFC822-string
|
|
#:parse-RFC822-date
|
|
#:map-parts
|
|
#:do-parts
|
|
#:apply-on-parts
|
|
#:mime-part-file-name
|
|
#:mime-text-charset
|
|
#:with-input-from-mime-body-stream
|
|
;; endec.lisp
|
|
#:base64-encoder
|
|
#:base64-decoder
|
|
#:null-encoder
|
|
#:null-decoder
|
|
#:byte-encoder
|
|
#:byte-decoder
|
|
#:quoted-printable-encoder
|
|
#:quoted-printable-decoder
|
|
#:encoder-write-byte
|
|
#:encoder-finish-output
|
|
#:decoder-read-byte
|
|
#:decoder-read-sequence
|
|
#:*base64-line-length*
|
|
#:*quoted-printable-line-length*
|
|
;; address.lisp
|
|
#:parse-addresses #:mailboxes-only
|
|
#:mailbox #:mbx-description #:mbx-user #:mbx-host #:mbx-domain #:mbx-domain-name #:mbx-address
|
|
#:mailbox-group #:mbxg-name #:mbxg-mailboxes
|
|
;; streams.lisp
|
|
#:redirect-stream
|
|
))
|