diff options
Diffstat (limited to 'nonguix/build-system')
| -rw-r--r-- | nonguix/build-system/binary.scm | 162 |
1 files changed, 0 insertions, 162 deletions
diff --git a/nonguix/build-system/binary.scm b/nonguix/build-system/binary.scm deleted file mode 100644 index 038bd89..0000000 --- a/nonguix/build-system/binary.scm +++ /dev/null @@ -1,162 +0,0 @@ -;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2019 Julien Lepiller <julien@lepiller.eu> -;;; -;;; This file is not part of GNU Guix. -;;; -;;; GNU Guix is free software; you can redistribute it and/or modify it -;;; under the terms of the GNU General Public License as published by -;;; the Free Software Foundation; either version 3 of the License, or (at -;;; your option) any later version. -;;; -;;; GNU Guix is distributed in the hope that it will be useful, but -;;; WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;;; GNU General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. - -(define-module (nonguix build-system binary) - #:use-module (guix store) - #:use-module (guix utils) - #:use-module (guix derivations) - #:use-module (guix search-paths) - #:use-module (guix build-system) - #:use-module (guix build-system gnu) - #:use-module (guix build-system copy) - #:use-module (guix packages) - #:use-module (ice-9 match) - #:use-module (srfi srfi-1) - #:use-module (nonguix utils) - #:export (%binary-build-system-modules - default-patchelf - default-glibc - lower - binary-build - binary-build-system)) - -;; Commentary: -;; -;; Standard build procedure for binary packages. This is implemented as an -;; extension of `copy-build-system'. -;; -;; Code: - -(define %binary-build-system-modules - ;; Build-side modules imported by default. - `((nonguix build binary-build-system) - (nonguix build utils) - ,@%copy-build-system-modules)) - -(define (default-patchelf) - "Return the default patchelf package." - - ;; Do not use `@' to avoid introducing circular dependencies. - (let ((module (resolve-interface '(gnu packages elf)))) - (module-ref module 'patchelf))) - -(define (default-glibc) - "Return the default glibc package." - ;; Do not use `@' to avoid introducing circular dependencies. - (let ((module (resolve-interface '(gnu packages base)))) - (module-ref module 'glibc))) - -(define* (lower name - #:key source inputs native-inputs outputs system target - (patchelf (default-patchelf)) - (glibc (default-glibc)) - #:allow-other-keys - #:rest arguments) - "Return a bag for NAME." - (define private-keywords - '(#:source #:target #:patchelf #:inputs #:native-inputs)) - - (and (not target) ;XXX: no cross-compilation - (bag - (name name) - (system system) - (host-inputs `(,@(if source - `(("source" ,source)) - '()) - ,@inputs - ;; Keep the standard inputs of 'gnu-build-system'. - ,@(standard-packages))) - (build-inputs `(("patchelf" ,patchelf) - ,@native-inputs - ;; If current system is i686, the *32 packages will be the - ;; same as the non-32, but that's OK. - ("libc32" ,(to32 glibc)))) - (outputs outputs) - (build binary-build) - (arguments (strip-keyword-arguments private-keywords arguments))))) - -(define* (binary-build store name inputs - #:key (guile #f) - (outputs '("out")) - (patchelf-plan ''()) - (install-plan ''(("." "./"))) - (search-paths '()) - (out-of-source? #t) - (validate-runpath? #t) - (patch-shebangs? #t) - (strip-binaries? #t) - (strip-flags ''("--strip-debug")) - (strip-directories ''("lib" "lib64" "libexec" - "bin" "sbin")) - (phases '(@ (nonguix build binary-build-system) - %standard-phases)) - (system (%current-system)) - (imported-modules %binary-build-system-modules) - (modules '((nonguix build binary-build-system) - (guix build utils) - (nonguix build utils)))) - "Build SOURCE using PATCHELF, and with INPUTS. This assumes that SOURCE -provides its own binaries." - (define builder - `(begin - (use-modules ,@modules) - (binary-build #:source ,(match (assoc-ref inputs "source") - (((? derivation? source)) - (derivation->output-path source)) - ((source) - source) - (source - source)) - #:system ,system - #:outputs %outputs - #:inputs %build-inputs - #:patchelf-plan ,patchelf-plan - #:install-plan ,install-plan - #:search-paths ',(map search-path-specification->sexp - search-paths) - #:phases ,phases - #:out-of-source? ,out-of-source? - #:validate-runpath? ,validate-runpath? - #:patch-shebangs? ,patch-shebangs? - #:strip-binaries? ,strip-binaries? - #:strip-flags ,strip-flags - #:strip-directories ,strip-directories))) - - (define guile-for-build - (match guile - ((? package?) - (package-derivation store guile system #:graft? #f)) - (#f ; the default - (let* ((distro (resolve-interface '(gnu packages commencement))) - (guile (module-ref distro 'guile-final))) - (package-derivation store guile system #:graft? #f))))) - - (build-expression->derivation store name builder - #:system system - #:inputs inputs - #:modules imported-modules - #:outputs outputs - #:guile-for-build guile-for-build)) - -(define binary-build-system - (build-system - (name 'binary) - (description "The standard binary build system") - (lower lower))) - -;;; binary.scm ends here |