diff options
author | Ludovic Courtès <ludo@gnu.org> | 2012-06-13 17:03:34 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2012-06-13 17:03:34 +0200 |
commit | c36db98c8eaeded5243ecfa1c66e06f38da10692 (patch) | |
tree | 2d2fa5ebede4f7f08065e20f07e15bd88e946db4 /guix/gnu-build-system.scm | |
parent | bcdd83ec69cb818c0a809ca03b1297e9725ad95b (diff) | |
download | guix-patches-c36db98c8eaeded5243ecfa1c66e06f38da10692.tar guix-patches-c36db98c8eaeded5243ecfa1c66e06f38da10692.tar.gz |
Add supporting tools for the GNU Build System.
* guix/derivations.scm (build-expression->derivation): Add all of INPUTS
as inputs to the final derivation.
* guix/build/gnu-build-system.scm, guix/build/utils.scm,
guix/gnu-build-system.scm: New files.
* tests/builders.scm ("gnu-build"): New test.
Diffstat (limited to 'guix/gnu-build-system.scm')
-rw-r--r-- | guix/gnu-build-system.scm | 61 |
1 files changed, 61 insertions, 0 deletions
diff --git a/guix/gnu-build-system.scm b/guix/gnu-build-system.scm new file mode 100644 index 0000000000..45e9f444ae --- /dev/null +++ b/guix/gnu-build-system.scm @@ -0,0 +1,61 @@ +;;; Guix --- Nix package management from Guile. -*- coding: utf-8 -*- +;;; Copyright (C) 2012 Ludovic Courtès <ludo@gnu.org> +;;; +;;; This file is part of Guix. +;;; +;;; 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. +;;; +;;; 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 Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (guix gnu-build-system) + #:use-module (guix store) + #:use-module (guix utils) + #:use-module (guix derivations) + #:use-module (srfi srfi-1) + #:export (gnu-build)) + +;; Commentary: +;; +;; Standard build procedure for packages using the GNU Build System or +;; something compatible ("./configure && make && make install"). +;; +;; Code: + +(define %standard-inputs + (map (lambda (name) + (cons name (nixpkgs-derivation name))) + '("gnutar" "gzip" "bzip2" "xz" + "coreutils" "gnused" "gnugrep" "bash" + "gcc" "binutils" "gnumake" "glibc"))) + +(define* (gnu-build store name source inputs + #:key (outputs '("out")) (configure-flags '()) + (system (%current-system))) + "Return a derivation called NAME that builds from tarball SOURCE, with +input derivation INPUTS, using the usual procedure of the GNU Build System." + (define builder + `(begin + (use-modules (guix build gnu-build-system)) + (gnu-build ,(if (derivation-path? source) + (derivation-path->output-path source) + source) + %outputs + %build-inputs + #:configure-flags ',configure-flags))) + + (build-expression->derivation store name system + builder + (alist-cons "source" source + (append inputs %standard-inputs)) + #:outputs outputs + #:modules '((guix build gnu-build-system) + (guix build utils)))) |