diff options
Diffstat (limited to 'nonguix/build/binary-build-system.scm')
-rw-r--r-- | nonguix/build/binary-build-system.scm | 20 |
1 files changed, 18 insertions, 2 deletions
diff --git a/nonguix/build/binary-build-system.scm b/nonguix/build/binary-build-system.scm index 984f38c..6a676ae 100644 --- a/nonguix/build/binary-build-system.scm +++ b/nonguix/build/binary-build-system.scm @@ -30,7 +30,11 @@ ;; ;; Code: -(define* (install #:key install-plan outputs #:allow-other-keys) +(define (new-install) + "Return the copy-build-system `install' procedure." + (@@ (guix build copy-build-system) install)) + +(define* (old-install #:key install-plan outputs #:allow-other-keys) "Copy files from the \"source\" build input to the \"out\" output according to INSTALL-PLAN. An INSTALL-PLAN is made of three elements: @@ -70,6 +74,18 @@ represent the target full path, which only makes sense for single files." (for-each install install-plan) #t) +(define* (install #:key install-plan outputs #:allow-other-keys) + (define (install-old-format) + (warn "Install-plan format deprecated. +Please update to the format of the copy-build-system.") + (old-install #:install-plan install-plan #:outputs outputs)) + (match (car install-plan) + ((source (. matches) target) + (install-old-format)) + ((source #f target) + (install-old-format)) + (_ ((new-install) #:install-plan install-plan #:outputs outputs)))) + (define* (patchelf #:key inputs outputs patchelf-plan #:allow-other-keys) "Set the interpreter and the RPATH of files as per the PATCHELF-PLAN. @@ -132,7 +148,7 @@ The inputs are optional when the file is an executable." (replace 'install install))) (define* (binary-build #:key inputs (phases %standard-phases) - #:allow-other-keys #:rest args) + #:allow-other-keys #:rest args) "Build the given package, applying all of PHASES in order." (apply gnu:gnu-build #:inputs inputs #:phases phases args)) |