mirror of git://git.savannah.gnu.org/guix.git
build-system: Add scons-build-system.
* guix/build-system/scons.scm: New file. * guix/build/scons-build-system.scm: New file. * Makefile.am (MODULES): Register them. * doc/guix.texi (Build Systems): Add scons-build-system.
This commit is contained in:
parent
bf630276a1
commit
3d0aa7f70b
|
@ -8,6 +8,7 @@
|
||||||
# Copyright © 2017 Leo Famulari <leo@famulari.name>
|
# Copyright © 2017 Leo Famulari <leo@famulari.name>
|
||||||
# Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
|
# Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
|
||||||
# Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org>
|
# Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org>
|
||||||
|
# Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
|
||||||
#
|
#
|
||||||
# This file is part of GNU Guix.
|
# This file is part of GNU Guix.
|
||||||
#
|
#
|
||||||
|
@ -94,6 +95,7 @@ MODULES = \
|
||||||
guix/build-system/waf.scm \
|
guix/build-system/waf.scm \
|
||||||
guix/build-system/r.scm \
|
guix/build-system/r.scm \
|
||||||
guix/build-system/ruby.scm \
|
guix/build-system/ruby.scm \
|
||||||
|
guix/build-system/scons.scm \
|
||||||
guix/build-system/texlive.scm \
|
guix/build-system/texlive.scm \
|
||||||
guix/build-system/trivial.scm \
|
guix/build-system/trivial.scm \
|
||||||
guix/ftp-client.scm \
|
guix/ftp-client.scm \
|
||||||
|
@ -127,6 +129,7 @@ MODULES = \
|
||||||
guix/build/ocaml-build-system.scm \
|
guix/build/ocaml-build-system.scm \
|
||||||
guix/build/r-build-system.scm \
|
guix/build/r-build-system.scm \
|
||||||
guix/build/ruby-build-system.scm \
|
guix/build/ruby-build-system.scm \
|
||||||
|
guix/build/scons-build-system.scm \
|
||||||
guix/build/texlive-build-system.scm \
|
guix/build/texlive-build-system.scm \
|
||||||
guix/build/waf-build-system.scm \
|
guix/build/waf-build-system.scm \
|
||||||
guix/build/haskell-build-system.scm \
|
guix/build/haskell-build-system.scm \
|
||||||
|
|
|
@ -42,7 +42,8 @@ Copyright @copyright{} 2017 Hartmut Goebel@*
|
||||||
Copyright @copyright{} 2017 Maxim Cournoyer@*
|
Copyright @copyright{} 2017 Maxim Cournoyer@*
|
||||||
Copyright @copyright{} 2017 Tobias Geerinckx-Rice@*
|
Copyright @copyright{} 2017 Tobias Geerinckx-Rice@*
|
||||||
Copyright @copyright{} 2017 George Clemmer@*
|
Copyright @copyright{} 2017 George Clemmer@*
|
||||||
Copyright @copyright{} 2017 Andy Wingo
|
Copyright @copyright{} 2017 Andy Wingo@*
|
||||||
|
Copyright @copyright{} 2017 Arun Isaac
|
||||||
|
|
||||||
Permission is granted to copy, distribute and/or modify this document
|
Permission is granted to copy, distribute and/or modify this document
|
||||||
under the terms of the GNU Free Documentation License, Version 1.3 or
|
under the terms of the GNU Free Documentation License, Version 1.3 or
|
||||||
|
@ -3868,6 +3869,19 @@ Python package is used to run the script can be specified with the
|
||||||
@code{#:python} parameter.
|
@code{#:python} parameter.
|
||||||
@end defvr
|
@end defvr
|
||||||
|
|
||||||
|
@defvr {Scheme Variable} scons-build-system
|
||||||
|
This variable is exported by @code{(guix build-system scons)}. It
|
||||||
|
implements the build procedure used by the SCons software construction
|
||||||
|
tool. This build system runs @code{scons} to build the package,
|
||||||
|
@code{scons test} to run tests, and then @code{scons install} to install
|
||||||
|
the package.
|
||||||
|
|
||||||
|
Additional flags to be passed to @code{scons} can be specified with the
|
||||||
|
@code{#:scons-flags} parameter. The version of Python used to run SCons
|
||||||
|
can be specified by selecting the appropriate SCons package with the
|
||||||
|
@code{#:scons} parameter.
|
||||||
|
@end defvr
|
||||||
|
|
||||||
@defvr {Scheme Variable} haskell-build-system
|
@defvr {Scheme Variable} haskell-build-system
|
||||||
This variable is exported by @code{(guix build-system haskell)}. It
|
This variable is exported by @code{(guix build-system haskell)}. It
|
||||||
implements the Cabal build procedure used by Haskell packages, which
|
implements the Cabal build procedure used by Haskell packages, which
|
||||||
|
|
|
@ -0,0 +1,134 @@
|
||||||
|
;;; GNU Guix --- Functional package management for GNU
|
||||||
|
;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
|
||||||
|
;;;
|
||||||
|
;;; This file is 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 (guix build-system scons)
|
||||||
|
#:use-module (guix utils)
|
||||||
|
#:use-module (guix packages)
|
||||||
|
#:use-module (guix derivations)
|
||||||
|
#:use-module (guix search-paths)
|
||||||
|
#:use-module (guix build-system)
|
||||||
|
#:use-module (guix build-system gnu)
|
||||||
|
#:use-module (ice-9 match)
|
||||||
|
#:export (%scons-build-system-modules
|
||||||
|
scons-build
|
||||||
|
scons-build-system))
|
||||||
|
|
||||||
|
;; Commentary:
|
||||||
|
;;
|
||||||
|
;; Standard build procedure for applications using SCons. This is implemented
|
||||||
|
;; as an extension of 'gnu-build-system'.
|
||||||
|
;;
|
||||||
|
;; Code:
|
||||||
|
|
||||||
|
(define %scons-build-system-modules
|
||||||
|
;; Build-side modules imported by default.
|
||||||
|
`((guix build scons-build-system)
|
||||||
|
,@%gnu-build-system-modules))
|
||||||
|
|
||||||
|
(define (default-scons)
|
||||||
|
"Return the default SCons package."
|
||||||
|
;; Lazily resolve the binding to avoid a circular dependency.
|
||||||
|
(let ((python (resolve-interface '(gnu packages python))))
|
||||||
|
(module-ref python 'scons)))
|
||||||
|
|
||||||
|
(define* (lower name
|
||||||
|
#:key source inputs native-inputs outputs system target
|
||||||
|
(scons (default-scons))
|
||||||
|
#:allow-other-keys
|
||||||
|
#:rest arguments)
|
||||||
|
"Return a bag for NAME."
|
||||||
|
(define private-keywords
|
||||||
|
'(#:source #:target #:scons #: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 `(("scons" ,scons)
|
||||||
|
,@native-inputs))
|
||||||
|
(outputs outputs)
|
||||||
|
(build scons-build)
|
||||||
|
(arguments (strip-keyword-arguments private-keywords arguments)))))
|
||||||
|
|
||||||
|
(define* (scons-build store name inputs
|
||||||
|
#:key
|
||||||
|
(tests? #t)
|
||||||
|
(scons-flags ''())
|
||||||
|
(test-target "test")
|
||||||
|
(phases '(@ (guix build scons-build-system)
|
||||||
|
%standard-phases))
|
||||||
|
(outputs '("out"))
|
||||||
|
(search-paths '())
|
||||||
|
(system (%current-system))
|
||||||
|
(guile #f)
|
||||||
|
(imported-modules %scons-build-system-modules)
|
||||||
|
(modules '((guix build scons-build-system)
|
||||||
|
(guix build utils))))
|
||||||
|
"Build SOURCE using SCons, and with INPUTS. This assumes that SOURCE
|
||||||
|
provides a 'SConstruct' file as its build system."
|
||||||
|
(define builder
|
||||||
|
`(begin
|
||||||
|
(use-modules ,@modules)
|
||||||
|
(scons-build #:name ,name
|
||||||
|
#:source ,(match (assoc-ref inputs "source")
|
||||||
|
(((? derivation? source))
|
||||||
|
(derivation->output-path source))
|
||||||
|
((source)
|
||||||
|
source)
|
||||||
|
(source
|
||||||
|
source))
|
||||||
|
#:scons-flags ,scons-flags
|
||||||
|
#:system ,system
|
||||||
|
#:test-target ,test-target
|
||||||
|
#:tests? ,tests?
|
||||||
|
#:phases ,phases
|
||||||
|
#:outputs %outputs
|
||||||
|
#:search-paths ',(map search-path-specification->sexp
|
||||||
|
search-paths)
|
||||||
|
#:inputs %build-inputs)))
|
||||||
|
|
||||||
|
(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
|
||||||
|
#:inputs inputs
|
||||||
|
#:system system
|
||||||
|
#:modules imported-modules
|
||||||
|
#:outputs outputs
|
||||||
|
#:guile-for-build guile-for-build))
|
||||||
|
|
||||||
|
(define scons-build-system
|
||||||
|
(build-system
|
||||||
|
(name 'scons)
|
||||||
|
(description "The standard SCons build system")
|
||||||
|
(lower lower)))
|
||||||
|
|
||||||
|
;;; scons.scm ends here
|
|
@ -0,0 +1,65 @@
|
||||||
|
;;; GNU Guix --- Functional package management for GNU
|
||||||
|
;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
|
||||||
|
;;;
|
||||||
|
;;; This file is 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 (guix build scons-build-system)
|
||||||
|
#:use-module ((guix build gnu-build-system) #:prefix gnu:)
|
||||||
|
#:use-module (guix build utils)
|
||||||
|
#:export (%standard-phases
|
||||||
|
scons-build))
|
||||||
|
|
||||||
|
;; Commentary:
|
||||||
|
;;
|
||||||
|
;; Builder-side code of the SCons build system.
|
||||||
|
;;
|
||||||
|
;; Code:
|
||||||
|
|
||||||
|
(define* (build #:key outputs (scons-flags '()) (parallel-build? #t) #:allow-other-keys)
|
||||||
|
(let ((out (assoc-ref outputs "out")))
|
||||||
|
(mkdir-p out)
|
||||||
|
(zero? (apply system* "scons"
|
||||||
|
(append (if parallel-build?
|
||||||
|
(list "-j" (number->string
|
||||||
|
(parallel-job-count)))
|
||||||
|
(list))
|
||||||
|
scons-flags)))))
|
||||||
|
|
||||||
|
(define* (check #:key tests? test-target (scons-flags '()) #:allow-other-keys)
|
||||||
|
"Run the test suite of a given SCons application."
|
||||||
|
(cond (tests?
|
||||||
|
(zero? (apply system* "scons" test-target scons-flags)))
|
||||||
|
(else
|
||||||
|
(format #t "test suite not run~%")
|
||||||
|
#t)))
|
||||||
|
|
||||||
|
(define* (install #:key outputs (scons-flags '()) #:allow-other-keys)
|
||||||
|
"Install a given SCons application."
|
||||||
|
(zero? (apply system* "scons" "install" scons-flags)))
|
||||||
|
|
||||||
|
(define %standard-phases
|
||||||
|
(modify-phases gnu:%standard-phases
|
||||||
|
(delete 'configure)
|
||||||
|
(replace 'build build)
|
||||||
|
(replace 'check check)
|
||||||
|
(replace 'install install)))
|
||||||
|
|
||||||
|
(define* (scons-build #:key inputs (phases %standard-phases)
|
||||||
|
#:allow-other-keys #:rest args)
|
||||||
|
"Build a given SCons application, applying all of PHASES in order."
|
||||||
|
(apply gnu:gnu-build #:inputs inputs #:phases phases args))
|
||||||
|
|
||||||
|
;;; scons-build-system.scm ends here
|
Loading…
Reference in New Issue