cdo/ham
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Integrate Maxima build into ASDF configuration

Browse Source
This commit is contained in:
Camden Dixie O'Brien 2025-05-30 15:04:22 +01:00
parent d2c9ff77f6
commit f05af1bbbb
2 changed files with 71 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
README
View File

@ -21,22 +21,21 @@ To then run the simulation:
SETUP
Before the ASDF system can be loaded, you must build the Maxima
sources locally and install them into a directory (I couldn't get
Maxima's ASDF system to load successfully otherwise, though I'm not
entirely sure why this fixes it). This can be done with:
If you have :sdl2 available and the sources are in ASDF's registry,
loading the system should just work™:
cd maxima
mkdir $PWD-install
./bootstrap
./configure --prefix=$PWD-install
make -j
make install
(asdf:load-system :ham)
I'll try to figure out if this step itself can be done with ASDF at
some point ;)
Otherwise, the full process fetching :sdl2 with Quicklisp and adding
the current directory to ASDF's registry is
Once that's done you should be able to load the system with
(asdf:load-system :ham), given that the sources are in your ASDF
registry. The system also uses :sdl2, so make sure that's available
-- you can get it with (ql:quickload :sdl2) if you're so inclined.
(ql:quickload :sdl2)
(push *default-pathname-defaults* asdf:*central-registry*)
(asdf:load-system :ham)
Maxima ended up being a bit of a pain to build fully within ASDF so
the ASDF config first compiles it with its autotools set-up (so you'll
need autoconf et al) and uses the FASLs from that build when possible.
It's a little cursed but it does the job. I did have to call
asdf::mark-operation-done directly so it might break with future
versions of ASDF (I'm using version 3.3.1 at time of writing).

56
ham.asd
View File

@ -4,14 +4,62 @@
(in-package :asdf-user)
(eval-when (:compile-toplevel :load-toplevel :execute)
(let ((base-dir
(make-pathname :directory (pathname-directory *load-pathname*))))
(pushnew (merge-pathnames "maxima/src/" base-dir)
(let* ((base-dir
(make-pathname :directory (pathname-directory *load-pathname*)))
(maxima-dir (merge-pathnames "maxima/" base-dir))
(maxima-src-dir (merge-pathnames "src/" maxima-dir))
(maxima-install-dir (merge-pathnames "maxima-install/" base-dir)))
(unless (probe-file (merge-pathnames "bin/maxima" maxima-install-dir))
(uiop:with-current-directory (maxima-dir)
(uiop:run-program "./bootstrap"
:output *standard-output*
:error-output *error-output*)
(uiop:run-program (format nil "./configure --prefix=~A"
(namestring maxima-install-dir))
:output *standard-output*
:error-output *error-output*)
(uiop:run-program "make -j"
:output *standard-output*
:error-output *error-output*)
(uiop:run-program "make install"
:output *standard-output*
:error-output *error-output*)))
(pushnew maxima-src-dir
asdf:*central-registry*
:test #'equal)
(pushnew (merge-pathnames "maxima-interface/" base-dir)
asdf:*central-registry*
:test #'equal)))
:test #'equal)
(defparameter *maxima-src-dir* maxima-src-dir)))
(defun prebuilt-maxima-fasl (source-file)
(let ((source-path (asdf:component-pathname source-file)))
(when (uiop:subpathp source-path *maxima-src-dir*)
(let ((fasl-file
(make-pathname
:directory (substitute "src/binary-sbcl" "src"
(pathname-directory source-path)
:test #'string=)
:name (pathname-name source-path)
:type "fasl")))
(when (probe-file fasl-file)
(list fasl-file))))))
(defmethod asdf:output-files :around ((op asdf:compile-op)
(c asdf:cl-source-file))
(or (prebuilt-maxima-fasl c)
(call-next-method)))
(defmethod asdf:perform :around ((op asdf:compile-op)
(c asdf:cl-source-file))
(if (prebuilt-maxima-fasl c)
(asdf::mark-operation-done op c)
(call-next-method)))
(defmethod asdf:input-files :around ((op asdf:load-op)
(c asdf:cl-source-file))
(or (prebuilt-maxima-fasl c)
(call-next-method)))
(defsystem :ham
:version "0.1.0"