abcl-build: sensibly refactor download from unpacking

parent a661a972
......@@ -161,6 +161,7 @@ be in a directory named '../ansi-test/'."
(:file "platform")
(:file "customizations-default")
(:file "install")
(:file "ant")
(:file "build-abcl")))))
(defsystem abcl/build/t
:description "Test ABCL build system."
(in-package abcl-build)
(defun install/ant ()
(let ((uri
#+nil ;; https on OPEN fails; probably attempting to upgrade
#+nil ;; need apache-ant-1.9 for JVM version 49.0
(let ((root (install uri :type :unpack/zip)))
(merge-pathnames "bin/ant" root)
(directory (merge-pathnames "*.*" root))))))
......@@ -10,12 +10,31 @@
(install-zip uri type))
(defun install-zip (uri binary-unzip)
(let ((directory (make-pathname :defaults uri :host nil :device nil :name nil :version nil))
(archive (make-pathname :defaults uri :host nil :device nil :directory nil)))
(ensure-directories-exist directory)
(open uri :direction :input)
(merge-pathnames archive directory))))
(let ((archive
(download-artifact uri))
(concatenate 'string
(pathname-name uri)
(ensure-directories-exist root)
(sys:unzip archive root)
(defun download-artifact (uri)
(let* ((root
(uiop/configuration:xdg-data-home "abcl/dist/"))
(make-pathname :defaults uri :host nil :device nil :directory nil))
(merge-pathnames archive root)))
(ensure-directories-exist destination)
(open uri :direction :input)
......@@ -4,6 +4,10 @@
......@@ -9,6 +9,10 @@
(directory (merge-pathnames "*.*" path))))
(plan 1)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment