49aee7a8f2
SCLF is quite a big utility library (almost 3€ LOC) with limited portability (CMUCL, SBCL and CLISP to an extent). Continuing to maintain it is an unnecessary burden, as depot only uses a fraction of it which is now inlined into the respective users (mime4cl and mblog). In the future trimming down ex-sclf.lisp may make sense either by refactoring the code that uses it or by moving interesting utilities into e.g. klatre. Change-Id: I2e73825b6bfa372e97847f25c30731a5aad4a1b5 Reviewed-on: https://cl.tvl.fyi/c/depot/+/5922 Tested-by: BuildkiteCI Autosubmit: sterni <sternenseemann@systemli.org> Reviewed-by: sterni <sternenseemann@systemli.org>
104 lines
3.6 KiB
Common Lisp
104 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)
|
|
(:import-from :babel :octets-to-string)
|
|
(:import-from :babel-encodings :get-character-encoding)
|
|
(: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))
|