Browse Source

Abstract build systems.

* Makefile.am (MODULES): Add `guix/build-system.scm' and
  `guix/build-system/gnu.scm'.  Remove `guix/gnu-build-system.scm'.

* guix/build-system.scm: New file.
* guix/gnu-build-system.scm: Rename to...
* guix/build-system/gnu.scm: ... this.
  (gnu-build-system): New variable.

* tests/builders.scm: Adjust `use-module' clauses.
  ("gnu-build-system"): New test.
gn-latest-20200428
Ludovic Courtès 9 years ago
parent
commit
208f7cd155
4 changed files with 52 additions and 4 deletions
  1. +2
    -1
      Makefile.am
  2. +34
    -0
      guix/build-system.scm
  3. +10
    -2
      guix/build-system/gnu.scm
  4. +6
    -1
      tests/builders.scm

+ 2
- 1
Makefile.am View File

@ -18,7 +18,8 @@
MODULES = \
guix/derivations.scm \
guix/gnu-build-system.scm \
guix/build-system.scm \
guix/build-system/gnu.scm \
guix/http.scm \
guix/store.scm \
guix/utils.scm \


+ 34
- 0
guix/build-system.scm View File

@ -0,0 +1,34 @@
;;; 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 build-system)
#:use-module (guix utils)
#:export (build-system
build-system?
build-system-name
build-system-description
build-system-builder
build-system-cross-builder))
(define-record-type* <build-system> build-system make-build-system
build-system?
(name build-system-name) ; symbol
(description build-system-description) ; short description
(build build-system-builder) ; (store system name source inputs)
(cross-build build-system-cross-builder ; (store system x-system ...)
(default #f)))

guix/gnu-build-system.scm → guix/build-system/gnu.scm View File


+ 6
- 1
tests/builders.scm View File

@ -19,7 +19,8 @@
(define-module (test-builders)
#:use-module (guix http)
#:use-module (guix gnu-build-system)
#:use-module (guix build-system)
#:use-module (guix build-system gnu)
#:use-module (guix store)
#:use-module (guix utils)
#:use-module (guix derivations)
@ -41,6 +42,10 @@
(and (build-derivations %store (list drv-path))
(file-exists? (derivation-path->output-path drv-path)))))
(test-assert "gnu-build-system"
(and (build-system? gnu-build-system)
(eq? gnu-build (build-system-builder gnu-build-system))))
(test-assert "gnu-build"
(let* ((url "http://ftp.gnu.org/gnu/hello/hello-2.8.tar.gz")
(hash (nix-base32-string->bytevector


Loading…
Cancel
Save