Commit e83de676 authored by Eric Timmons's avatar Eric Timmons
Browse files

Add client to the release tarball

parent 02715301
......@@ -15,4 +15,5 @@
:components ((:file "package")
(:file "features" :depends-on ("package"))
(:file "system" :depends-on ("package" "features"))
(:file "dependencies-license-op" :depends-on ("package" "system"))))
(:file "dependencies-license-op" :depends-on ("package" "system"))
(:file "client" :depends-on ("package"))))
;;;; Building the client
;;;;
;;;; This software is part of CLPM. See README.org for more information. See
;;;; LICENSE for license information.
(in-package #:clpm-asdf)
(defclass release-clpm-client-directory (ops::release-module)
())
(defmethod ops::release-component-class-by-type (parent (type (eql :clpm-client-directory)))
'release-clpm-client-directory)
(defmethod asdf:input-files ((o ops:release-stage-op) (c release-clpm-client-directory))
(list*
(asdf:system-source-file :clpm-client)
(asdf:input-files 'asdf:concatenate-source-op :clpm-client)))
(defmethod asdf:output-files ((o ops:release-stage-op) (c release-clpm-client-directory))
(let* ((input-files (asdf:input-files o c))
(base-input-directory (asdf:system-source-directory :clpm-client))
(enough-input-files (mapcar (lambda (pn) (uiop:enough-pathname pn base-input-directory))
input-files))
(base-output-directory (asdf:component-pathname c)))
(values
(mapcar (lambda (pn) (merge-pathnames pn base-output-directory))
enough-input-files)
(ops::release-op-ignore-output-translations-p o c))))
(defmethod asdf:perform ((o ops:release-stage-op) (c release-clpm-client-directory))
(let ((input-files (asdf:input-files o c))
(output-files (asdf:output-files o c)))
(loop
:for in :in input-files
:for out :in output-files
:do (funcall (uiop:find-symbol* :copy-file :asdf-release-ops) in out))))
......@@ -31,5 +31,23 @@
:release-readme-file "../README.org"
:release-staging-directory "../build/release-staging/"
:release-directory "../releases/"
:release-structure
((:module "bin"
:components
((:program-file "clpm")))
(:module "share"
:components
( ;; (:man-directory "man")
(:module "clpm"
:components
((:clpm-client-directory "client")))
(:module "doc"
:components
((:module "clpm"
:append-version t
:components ((:license-file "LICENSE")
(:readme-file "README")
(:dependencies-license-file "BUNDLED-LICENSES"))))))))
:in-order-to ((program-op (load-op :clpm-cli))
(asdf-release-ops:perform-program-image-op (load-op :clpm-cli))))
Supports Markdown
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