Page MenuHomeFreeBSD
Files F138220668

D47983.id147687.diff
No OneTemporary
Actions

D47983.id147687.diff
View Options

Index: devel/cl-asdf/files/asdf-init.lisp
===================================================================
--- devel/cl-asdf/files/asdf-init.lisp
+++ devel/cl-asdf/files/asdf-init.lisp
@@ -1,147 +1,87 @@
;;;; asdf-config.lisp - Setup ASDF to deal with FBSD ports conventions
-
-;; Copyright (c) 2003 Henrik Motakef <henrik.motakef@web.de>
-
-;; Redistribution and use in source and binary forms, with or without
-;; modification, are permitted provided that the following conditions are
-;; met:
-
-;; 1. Redistributions of source code must retain the above copyright
-;; notice, this list of conditions and the following disclaimer.
;;
-;; 2. Redistributions in binary form must reproduce the above copyright
-;; notice, this list of conditions and the following disclaimer in the
-;; documentation and/or other materials provided with the distribution
-
-;; THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED
-;; WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-;; MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-;; IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
-;; INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-;; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-;; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
-;; HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
-;; STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
-;; IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-;; POSSIBILITY OF SUCH DAMAGE.
-
-;;;; How to use
-
-;; A number of FreeBSD ports related to Common Lisp use the asdf
-;; system definition library, available as devel/cl-asdf-* (which you
-;; obviously already have installed, since this file is included with
-;; that port). That implies that you will have to load and configure
-;; asdf to use these ports with your Lisp system.
+;; SPDX-License-Identifier: BSD-2-Clause
;;
-;; This file takes all necessary actions. The easiest way is to load
-;; it in your Lisp every time it starts, by putting
+;; Copyright (c) 2003 Henrik Motakef <henrik.motakef@web.de>
+;; Copyright (c) 2024 Joseph Mingrone <jrm@FreeBSD.org>
+;;
+;; This file configures ASDF to work with Common Lisp (CL) installed via
+;; FreeBSD ports. To load it when your Lisp implementation starts, add
;;
-;; (load "/usr/local/etc/asdf-init.lisp")
+;; (load "%%PREFIX%%/etc/asdf-init.lisp")
;;
-;; in your init file.
+;; to your init file.
;;
-;; Each Lisp implementation has its own files where this can be done:
+;; Here are the init file locations for a few CL implementations:
;;
;; CLISP:
-;; /usr/local/lib/clisp/config.lisp
+;; %%PREFIX%%/lib/clisp/config.lisp
;; ~/.clisprc
;;
;; CMUCL:
-;; /usr/local/lib/cmucl/lib/cmucl/lib/site-init.lisp
+;; %%PREFIX%%/lib/cmucl/lib/cmucl/lib/site-init.lisp
;; ~/.cmucl-init.lisp
;;
;; SBCL:
-;; /usr/local/etc/sbclrc
+;; %%PREFIX%%/etc/sbclrc
;; ~/.sbclrc
;;
;; CLOZURE CL / OPENMCL:
;; ~/.ccl-init.lisp
;;
-;; After that, you can load your installed ports like this (using
-;; textproc/cl-ppcre as an example):
+;; After that, use ASDF to load systems installed from ports like this:
;;
-;; (asdf:operate 'asdf:load-op 'cl-ppcre)
+;; (asdf:load-system :alexandria)
+;;
+;; ** Detailed Explanation **
+;;
+;; This ASDF initialization streamlines working with CL systems
+;; installed via FreeBSD Ports by serving three key functions:
+;;
+;; 1. It configures a central registry to tell ASDF where to find
+;; systems installed via FreeBSD CL ports.
+;;
+;; 2. It sets up output translations so no code from CL ports needs to
+;; be compiled at load time.
+;;
+;; CL ports have binary variants for each supported CL
+;; implementation. For example, devel/cl-alexandria includes the
+;; Alexandria sources, and devel/cl-alexandria-sbcl installs the
+;; compiled code (FASL) for SBCL. The FASL ports also install output
+;; translations that tell ASDF where to look for the binary code.
+;;
+;; Installing output translations as part of the FASL ports offers
+;; flexibility. If you prefer to build systems at load time, simply
+;; install the CL port without the associated FASL port. In this
+;; case, ASDF defaults to storing the FASL to a cache under ${HOME}.
+;;
+;; 3. It configures specific ASDF output translations for building CL
+;; ports.
;;
-
-;; Have fun!
-
-
-;;;; What's going on here
-
-;; We mess around with asdf:output-files in interesting ways to
-;; enforce a filesystem layout that works without multiple Lisp
-;; implementations overwriting their fasls. Basically, each lib has
-;; its own directory in /usr/local/lib/common-lisp, initially
-;; containing its sources. Each fasl port will create an
-;; implementation-specific subdirectory where all its fasls go, for
-;; example ./cmuclfasl, ./clispfasl etc.
-
-;; Additionally, all fasl files have the pathname-type "fasl", not
-;; "x86f" or "fas". The reason is that I want to be prepared for the
-;; case that CMUCL some lucky day might be supported on non-x86
-;; archs. Since it encodes the arch in the fasl file-type (x86f,
-;; sparcf etc), hardcoding this in pkg-plists would then
-;; break. Enforcing this policy for all implementations (for example,
-;; CLISP uses .fas by default) simply is more convenient than handling
-;; CMUCL specially.
-
-;; The drawback is that users cannot easily load compiled code unless
-;; they set up asdf properly, which boils down to loading this file
-;; instead of asdf.lisp directly.
-
-;; Yet another thing that has to be handled is compiling ports: During
-;; 'make build', no files outside of ${WRKSRC} may be created. On the
-;; other hand, it is a good idea to use the source files from their
-;; final location, because CMUCL and SBCL record the source path and
-;; can use, for example, to show the misbehaving form in the debugger.
-;; And the fasl ports depend on the source port to be installed
-;; anyway, because of the .asd file.
-;; Hence, in the case of port compilation, we redirect the output to
-;; ${WRKSRC}. This situation is detected by checking if an environment
-;; variable FBSD_ASDF_COMPILE_PORT is set (and if we have a WRKSRC
-;; envvar as well), so each port Makefile has to create this variable
-;; in the environment in which it calls Lisp in do-build, see existing
-;; ports for examples.
-
-;; Note that it is only necessary to modify
-;; (output-files ((op compile-op)) ...), because asdf:load-op will use
-;; this method too to decide which files are to be loaded, there is no
-;; separate method for load-op.
-
-;;;; Adding support for other Lisp implementations
-
-;; In order to make all this work for not-handled-yet Lisps, it is
-;; only necessary to change LISP-SPECIFIC-FASL-SUDBIR and GETENV. Of
-;; course, you'll also have to create new binary ports, if that's what
-;; you want.
;;;; Package declaration
(defpackage :freebsd-asdf
- (:use :common-lisp)
- (:export #:*asdf-pathname*
- #:unsupported-lisp-implementation))
+ (:use :common-lisp)
+ (:export #:*asdf-pathname*
+ #:unsupported-lisp-implementation))
(in-package :freebsd-asdf)
;;;; Paths
(defvar *asdf-pathname*
- ;; Clozure CL's internal asdf
- #+openmcl "/usr/local/lib/ccl/tools/asdf"
- ;; SBCL's internal asdf
- #+sbcl "/usr/local/lib/sbcl/asdf/asdf"
- ;; CMU and clisp
- #-(or openmcl sbcl) "/usr/local/lib/common-lisp/asdf/asdf"
+ ;; Use the latest ASDF port for all CL implementations
+ "%%PREFIX%%/lib/common-lisp/asdf/asdf"
"Path of the ASDF library")
(defvar *system-registry*
- "/usr/local/lib/common-lisp/system-registry/"
+ "%%PREFIX%%/lib/common-lisp/system-registry/"
"FreeBSD's contribution to the central registry for ASDF system
-definitions. This will be added to asdf:*central-registry*, you
-should modify that in order to add other directories.")
+definitions. This will be added to asdf:*central-registry*, you should modify
+that in order to add other directories.")
;;;; Implementation-specific functions
@@ -163,43 +103,20 @@
error of type UNSUPPORTED-LISP-IMPLEMENTATION.
This function has to be extended for each new Lisp implementation that
-should be able to use the ASDF-based Lisp ports. If you do this, you
-should probably extend GETENV as well."
+should be able to use the ASDF-based Lisp ports."
#+clisp "clispfasl"
#+cmu "cmuclfasl"
#+sbcl "sbclfasl"
#+openmcl "cclfasl"
#-(or clisp cmu sbcl openmcl) (error 'unsupported-lisp-implementation))
-(defun getenv (varname)
- "Return the value of environment variable VARNAME, as a string.
-If VARNAME is not found in the current environment, return nil.
-May signal an error of type UNSUPPORTED-LISP-IMPLEMENTATION, see
-below.
-
-This is used to communicate make variables like WRKSRC from the ports
-system to Lisp. Note that this doesn't happen automatically for
-variables defined in a Makefile, you'll have to pass these to the
-environment in which Lisp runs explicitly.
-
-Since accessing environment variables is not portable, this function
-has to be extended for each Lisp implementation that is to work with
-FreeBSDs Lisp ports. If you do this, you should probably extend
-LISP-SPECIFIC-FASL-SUBDIR as well."
- #+sbcl (sb-ext:posix-getenv varname)
- #+cmu (cdr (assoc varname ext:*environment-list*
- :test #'equalp
- :key #'string))
- #+clisp (sys::getenv varname)
- #+openmcl (ccl::getenv varname)
- #-(or sbcl cmu clisp openmcl) (error 'unsupported-lisp-implementation))
-
;;;; Load and configure ASDF
(defvar *asdf-binary-pathname*
(make-pathname
:directory `(:absolute ,@(cdr (pathname-directory *asdf-pathname*))
- ,(lisp-specific-fasl-subdir))
+ ,(lisp-specific-fasl-subdir)
+ "build")
:type "fasl"
:defaults *asdf-pathname*))
@@ -210,45 +127,50 @@
(pushnew *system-registry* asdf:*central-registry*)
-(defmethod asdf:output-files :around ((op asdf:compile-op)
- (file asdf:cl-source-file))
- (let ((default-output-file (car (call-next-method))))
- (list
- (make-pathname
- :directory (pathname-directory (namestring default-output-file))
- :type "fasl"
- :defaults default-output-file))))
-
-;; Map each library in common-lisp/ to its fasl subdirectory
-
-(defvar *freebsd-output-translations* ())
-
-(pushnew :inherit-configuration *freebsd-output-translations*)
-
-(dolist (path (directory "/usr/local/lib/common-lisp/*/"))
- (let ((source (make-pathname
- :directory (append (pathname-directory path)
- (list :wild-inferiors))))
- (target (make-pathname
- :directory (append (pathname-directory path)
- (list (lisp-specific-fasl-subdir) :wild-inferiors)))))
- (pushnew (list source target) *freebsd-output-translations*)))
-
-(if (and (getenv "FBSD_ASDF_COMPILE_PORT")
- (getenv "PORTNAME")
- (getenv "WRKSRC"))
- (let ((wrksrc (getenv "WRKSRC"))
- (portname (getenv "PORTNAME")))
- ;; If we are building a FreeBSD port, all the compiled fasl files
- ;; should be redirected to WRKSRC.
- (let ((source (make-pathname
- :directory (append (pathname-directory #P"/usr/local/lib/common-lisp/")
- (list portname :wild-inferiors))))
- (target (make-pathname
- :directory (append (pathname-directory wrksrc)
- (list :wild-inferiors)))))
- (pushnew (list source target) *freebsd-output-translations*))))
-
-(asdf:initialize-output-translations (cons :output-translations *freebsd-output-translations*))
+;; Set up output translations
+
+;; If we are building a port, redirect fasl files to WRKSRC.
+(if (and (uiop:getenv "FBSD_ASDF_COMPILE_PORT")
+ (uiop:getenv "PORTNAME")
+ (uiop:getenv "WRKSRC"))
+ (let* ((wrksrc (uiop:getenv "WRKSRC"))
+ (portname (uiop:getenv "PORTNAME"))
+ (source (make-pathname
+ :directory
+ (append (pathname-directory #P"%%PREFIX%%/lib/common-lisp/")
+ (list portname :wild-inferiors))))
+ (target (make-pathname
+ :directory (append (pathname-directory wrksrc)
+ (list :wild-inferiors))))
+ (ports-translations '(:ignore-inherited-configuration)))
+ (pushnew (list source target) ports-translations)
+ (asdf:initialize-output-translations
+ (cons :output-translations ports-translations)))
+ ;; On target systems, set up translations to point to installed fasl.
+ (let ((freebsd-translations '(:ignore-inherited-configuration)))
+ (dolist (path (directory "%%PREFIX%%/lib/common-lisp/*/"))
+ (let* ((base-dir (pathname-directory path))
+ (source (make-pathname
+ :directory (append base-dir (list :wild-inferiors))
+ :name :wild
+ :type :wild))
+ (ctarget (make-pathname
+ :directory (append
+ base-dir
+ (list (lisp-specific-fasl-subdir)))))
+ (target (make-pathname
+ :directory (append base-dir
+ (list (lisp-specific-fasl-subdir)
+ :wild-inferiors))
+ :name :wild
+ :type :wild)))
+ ;; Only create translation when source is not system registry and
+ ;; ctarget exists.
+ (when (and
+ (not (string= *system-registry* (namestring path)))
+ (probe-file ctarget))
+ (pushnew (list source target) freebsd-translations))))
+ (asdf:initialize-output-translations
+ (cons :output-translations freebsd-translations))))
;;;; asdf-init.lisp ends here

File Metadata

Mime Type
text/plain
Expires
Mon, Dec 1, 12:50 AM (2 h, 26 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
26415842
Default Alt Text
D47983.id147687.diff (13 KB)

Event Timeline