From 8f615ece77bd564be1197c2726a4acfa597d4f02 Mon Sep 17 00:00:00 2001 From: sterni Date: Tue, 31 Dec 2024 22:17:44 +0100 Subject: [PATCH] chore(3p/lisp/mime4cl): drop ASDF build system Change-Id: I2d91937d48e62ae90404eead36ef3cfc790675f2 Reviewed-on: https://cl.tvl.fyi/c/depot/+/12937 Autosubmit: sterni Tested-by: BuildkiteCI Reviewed-by: sterni --- third_party/lisp/mime4cl/README.md | 5 +- third_party/lisp/mime4cl/mime4cl-tests.asd | 55 ---------------------- third_party/lisp/mime4cl/mime4cl.asd | 49 ------------------- 3 files changed, 3 insertions(+), 106 deletions(-) delete mode 100644 third_party/lisp/mime4cl/mime4cl-tests.asd delete mode 100644 third_party/lisp/mime4cl/mime4cl.asd diff --git a/third_party/lisp/mime4cl/README.md b/third_party/lisp/mime4cl/README.md index 7b0700f94..c7af881c1 100644 --- a/third_party/lisp/mime4cl/README.md +++ b/third_party/lisp/mime4cl/README.md @@ -17,8 +17,9 @@ and decidedly lacks performance. ## Differences from the original version -* `//nix/buildLisp` is used as the build system. ASDF is currently untested and - may be broken. +* `//nix/buildLisp` is used as the build system. ASDF has been removed + since it was untested (it should be reintroduced once mime4cl is + “ready”). * The dependency on [sclf](http://wcp.sdf-eu.org/software/#sclf) has been eliminated by inlining the relevant parts. diff --git a/third_party/lisp/mime4cl/mime4cl-tests.asd b/third_party/lisp/mime4cl/mime4cl-tests.asd deleted file mode 100644 index f3b429eaf..000000000 --- a/third_party/lisp/mime4cl/mime4cl-tests.asd +++ /dev/null @@ -1,55 +0,0 @@ -;;; mime4cl-tests.asd --- system description for the regression tests - -;;; Copyright (C) 2006, 2007, 2010 by Walter C. Pelissero -;;; Copyright (C) 2022 by The TVL Authors - -;;; Author: Walter C. Pelissero -;;; 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 - -#-(or sbcl) -(warn "This code hasn't been tested on your Lisp system.") - -(defpackage :mime4cl-tests-system - (:use :common-lisp :asdf #+asdfa :asdfa) - (:export #:*base-directory* - #:*compilation-epoch*)) - -(in-package :mime4cl-tests-system) - -(defsystem mime4cl-tests - :name "MIME4CL-tests" - :author "Walter C. Pelissero " - :maintainer "Walter C. Pelissero " - :description "Test suite for the MIME4CL library" - :long-description - "These regression tests require rt.lisp from MIT. It is included." - :licence "LGPL" - :depends-on (:mime4cl) - :components - ((:module test - :components - ((:file "rt") - (:file "package" :depends-on ("rt")) - (:file "endec" :depends-on ("rt" "package")) - (:file "address" :depends-on ("rt" "package")) - (:file "mime" :depends-on ("rt" "package")))))) - -;; when loading this form the regression-test, the package is yet to -;; be loaded so we cannot use rt:do-tests directly or we would get a -;; reader error (unknown package) -(defmethod perform ((o test-op) (c (eql (find-system :mime4cl-tests)))) - (or (funcall (intern "DO-TESTS" "REGRESSION-TEST")) - (error "test-op failed"))) diff --git a/third_party/lisp/mime4cl/mime4cl.asd b/third_party/lisp/mime4cl/mime4cl.asd deleted file mode 100644 index 6528f115d..000000000 --- a/third_party/lisp/mime4cl/mime4cl.asd +++ /dev/null @@ -1,49 +0,0 @@ -;;; mime4cl.asd --- system definition - -;;; Copyright (C) 2005-2007, 2010 by Walter C. Pelissero -;;; Copyright (C) 2022 by The TVL Authors - -;;; Author: Walter C. Pelissero -;;; Project: mime4cl - -;;; This program is free software; you can redistribute it and/or -;;; modify it under the terms of the GNU General Public License as -;;; published by the Free Software Foundation; either version 2, or (at -;;; your option) any later version. -;;; This program 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 -;;; General Public License for more details. -;;; You should have received a copy of the GNU General Public License -;;; along with this program; see the file COPYING. 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-system - (:use :common-lisp :asdf)) - -(in-package :mime4cl-system) - -(defsystem mime4cl - :name "MIME4CL" - :author "Walter C. Pelissero " - :maintainer "Walter C. Pelissero " - ;; :version "0.0" - :description "MIME primitives for Common Lisp" - :long-description - "A collection of Common Lisp primitives to forge and handle -MIME mail contents." - :licence "LGPL" - :depends-on (:npg :sclf :trivial-gray-streams) - :components - ((:file "package") - (:file "mime" :depends-on ("package" "endec" "streams")) - (:file "endec" :depends-on ("package")) - (:file "streams" :depends-on ("package" "endec")) - (:file "address" :depends-on ("package")))) - -(defmethod perform ((o test-op) (c (eql (find-system 'mime4cl)))) - (oos 'load-op 'mime4cl-tests) - (oos 'test-op 'mime4cl-tests :force t))