Browse Source

build: Add rakudo-build-system.

* guix/build-system/rakudo.scm,
guix/build/rakudo-build-system.scm: New files.
* Makefile.am (MODULES): Add them.
* doc/guix.texi (Build System): Document it.
gn-latest-20200428
Efraim Flashner 2 years ago
parent
commit
4e4c311465
Signed by: efraim GPG Key ID: 41AAE7DCCA3D8351
4 changed files with 322 additions and 1 deletions
  1. +3
    -0
      Makefile.am
  2. +19
    -1
      doc/guix.texi
  3. +155
    -0
      guix/build-system/rakudo.scm
  4. +145
    -0
      guix/build/rakudo-build-system.scm

+ 3
- 0
Makefile.am View File

@ -13,6 +13,7 @@
# Copyright © 2018 Julien Lepiller <julien@lepiller.eu>
# Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
# Copyright © 2018 Alex Vong <alexvong1995@gmail.com>
# Copyright © 2019 Efraim Flashner <efraim@flashner.co.il>
#
# This file is part of GNU Guix.
#
@ -124,6 +125,7 @@ MODULES = \
guix/build-system/ocaml.scm \
guix/build-system/waf.scm \
guix/build-system/r.scm \
guix/build-system/rakudo.scm \
guix/build-system/ruby.scm \
guix/build-system/scons.scm \
guix/build-system/texlive.scm \
@ -164,6 +166,7 @@ MODULES = \
guix/build/python-build-system.scm \
guix/build/ocaml-build-system.scm \
guix/build/r-build-system.scm \
guix/build/rakudo-build-system.scm \
guix/build/ruby-build-system.scm \
guix/build/scons-build-system.scm \
guix/build/texlive-build-system.scm \


+ 19
- 1
doc/guix.texi View File

@ -28,7 +28,7 @@ Copyright @copyright{} 2015, 2016, 2017 Leo Famulari@*
Copyright @copyright{} 2015, 2016, 2017, 2018, 2019 Ricardo Wurmus@*
Copyright @copyright{} 2016 Ben Woodcroft@*
Copyright @copyright{} 2016, 2017, 2018 Chris Marusich@*
Copyright @copyright{} 2016, 2017, 2018 Efraim Flashner@*
Copyright @copyright{} 2016, 2017, 2018, 2019 Efraim Flashner@*
Copyright @copyright{} 2016 John Darrington@*
Copyright @copyright{} 2016, 2017 ng0@*
Copyright @copyright{} 2016, 2017, 2018, 2019 Jan Nieuwenhuizen@*
@ -6002,6 +6002,24 @@ are run after installation using the R function
@code{tools::testInstalledPackage}.
@end defvr
@defvr {Scheme Variable} rakudo-build-system
This variable is exported by @code{(guix build-system rakudo)} It
implements the build procedure used by @uref{https://rakudo.org/,
Rakudo} for @uref{https://perl6.org/, Perl6} packages. It installs the
package to @code{/gnu/store/@dots{}/NAME-VERSION/share/perl6} and
installs the binaries, library files and the resources, as well as wrap
the files under the @code{bin/} directory. Tests can be skipped by
passing @code{#f} to the @code{tests?} parameter.
Which rakudo package is used can be specified with @code{rakudo}.
Which perl6-tap-harness package used for the tests can be specified with
@code{#:prove6} or removed by passing @code{#f} to the
@code{with-prove6?} parameter.
Which perl6-zef package used for tests and installing can be specified
with @code{#:zef} or removed by passing @code{#f} to the
@code{with-zef?} parameter.
@end defvr
@defvr {Scheme Variable} texlive-build-system
This variable is exported by @code{(guix build-system texlive)}. It is
used to build TeX packages in batch mode with a specified engine. The


+ 155
- 0
guix/build-system/rakudo.scm View File

@ -0,0 +1,155 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il>
;;;
;;; 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 rakudo)
#: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 packages)
#:use-module (ice-9 match)
#:export (%rakudo-build-system-modules
rakudo-build
rakudo-build-system))
;; Commentary:
;;
;; Standard build and install procedure for packages using the Rakudo
;; build system to be installed as system libraries. This is
;; implemented as an extension of `gnu-build-system'.
;;
;; Code:
(define %rakudo-build-system-modules
;; Build-side modules imported by default.
`((guix build rakudo-build-system)
,@%gnu-build-system-modules))
(define (default-rakudo)
"Return the default Rakudo package."
;; Do not use `@' to avoid introducing circular dependencies.
(let ((module (resolve-interface '(gnu packages perl6))))
(module-ref module 'rakudo)))
(define (default-prove6)
"Return the default perl6-tap-harness package for tests."
(let ((module (resolve-interface '(gnu packages perl6))))
(module-ref module 'perl6-tap-harness)))
(define (default-zef)
"Return the default perl6-zef package."
(let ((module (resolve-interface '(gnu packages perl6))))
(module-ref module 'perl6-zef)))
(define* (lower name
#:key source inputs native-inputs outputs
system target
(rakudo (default-rakudo))
(prove6 (default-prove6))
(zef (default-zef))
(with-prove6? #t)
(with-zef? #t)
#:allow-other-keys
#:rest arguments)
"Return a bag for NAME."
(define private-keywords
'(#:source #:target #:rakudo #:prove6 #:zef #: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 `(("rakudo" ,rakudo)
,@(if with-prove6?
`(("perl6-tap-harness" ,prove6)
,@(if with-zef?
`(("perl6-zef" ,zef))
'()))
'())
,@native-inputs))
(outputs outputs)
(build rakudo-build)
(arguments (strip-keyword-arguments private-keywords arguments)))))
(define* (rakudo-build store name inputs
#:key
(search-paths '())
(tests? #t)
(phases '(@ (guix build rakudo-build-system)
%standard-phases))
(outputs '("out"))
(system (%current-system))
(guile #f)
(with-zef? #t)
(with-prove6? #t)
(imported-modules %rakudo-build-system-modules)
(modules '((guix build rakudo-build-system)
(guix build utils))))
"Build SOURCE using PERL6, and with INPUTS."
(define builder
`(begin
(use-modules ,@modules)
(rakudo-build #:name ,name
#:source ,(match (assoc-ref inputs "source")
(((? derivation? source))
(derivation->output-path source))
((source)
source)
(source
source))
#:search-paths ',(map search-path-specification->sexp
search-paths)
#:phases ,phases
#:system ,system
#:tests? ,tests?
#:outputs %outputs
#: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
#:system system
#:inputs inputs
#:modules imported-modules
#:outputs outputs
#:guile-for-build guile-for-build))
(define rakudo-build-system
(build-system
(name 'rakudo)
(description "The standard Rakudo build system")
(lower lower)))
;;; rakudo.scm ends here

+ 145
- 0
guix/build/rakudo-build-system.scm View File

@ -0,0 +1,145 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il>
;;;
;;; 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 rakudo-build-system)
#:use-module ((guix build gnu-build-system) #:prefix gnu:)
#:use-module (guix build utils)
#:use-module (ice-9 ftw)
#:use-module (ice-9 match)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-26)
#:export (%standard-phases
rakudo-build))
;; Commentary:
;;
;; Builder-side code of the standard Rakudo package build procedure.
;;
;; Code:
(define* (check #:key tests? inputs with-prove6? #:allow-other-keys)
(if (and tests? (assoc-ref inputs "perl6-tap-harness"))
;(if (and tests? with-prove6?)
(invoke "prove6" "-I=lib" "t/")
(format #t "test suite not run~%"))
#t)
(define* (install #:key inputs outputs with-zef? #:allow-other-keys)
"Install a given Perl6 package."
(let* ((out (assoc-ref outputs "out"))
(perl6 (string-append out "/share/perl6")))
(if (assoc-ref inputs "perl6-zef")
;(if with-zef?
(begin
(let ((zef (string-append (assoc-ref inputs "perl6-zef")
"/bin/zef")))
(setenv "HOME" (getcwd))
(mkdir-p perl6)
(invoke zef "install" "--verbose" "."
;; Don't install any of the following:
"--/depends" "--/build-depends" "--/test-depends"
(string-append "--install-to=" perl6))
(delete-file (string-append perl6 "/repo.lock")))
#t)
(begin
(let ((inst (string-append (assoc-ref inputs "rakudo")
"/share/perl6/tools/install-dist.p6")))
(setenv "RAKUDO_RERESOLVE_DEPENDENCIES" "0")
(setenv "RAKUDO_MODULE_DEBUG" "1") ; be verbose while building
(invoke inst (string-append "--to=" perl6) "--for=site"))))))
(define* (install-libs #:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(lock "lib/.precomp/.lock"))
(when (file-exists? lock)
(delete-file "lib/.precomp/.lock"))
(copy-recursively "lib" (string-append out "/share/perl6/lib"))
#t))
(define* (install-bins #:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(when (file-exists? "bin")
(for-each (lambda (file)
(install-file file (string-append out "/bin"))
(chmod (string-append out "/" file) #o555))
(find-files "bin" ".*")))
(when (file-exists? "sbin")
(for-each (lambda (file)
(install-file file (string-append out "/sbin"))
(chmod (string-append out "/" file) #o555))
(find-files "sbin" ".*")))
#t))
(define* (install-resources #:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(when (file-exists? "resources")
(copy-recursively "resources"
(string-append out "/share/perl6/resources")))
#t))
(define* (wrap #:key inputs outputs #:allow-other-keys)
(define (list-of-files dir)
(map (cut string-append dir "/" <>)
(or (scandir dir (lambda (f)
(let ((s (stat (string-append dir "/" f))))
(eq? 'regular (stat:type s)))))
'())))
(define bindirs
(append-map (match-lambda
((_ . dir)
(list (string-append dir "/bin")
(string-append dir "/sbin"))))
outputs))
(let* ((out (assoc-ref outputs "out"))
(var `("PERL6LIB" "," prefix
,(cons (string-append out "/share/perl6/lib,"
out "/share/perl6/site/lib,"
out "/share/perl6/vendor/lib")
(search-path-as-string->list
(or (getenv "PERL6LIB") "") #\,)))))
(for-each (lambda (dir)
(let ((files (list-of-files dir)))
(for-each (cut wrap-program <> var)
files)))
bindirs)
#t))
(define %standard-phases
;; No need for 'bootstrap, 'configure or 'build.
(modify-phases gnu:%standard-phases
(delete 'bootstrap)
(delete 'configure)
(delete 'build)
(replace 'check check)
(replace 'install install)
(add-before 'install 'install-lib-dir install-libs)
(add-after 'install-lib-dir 'install-resources install-resources)
(add-after 'install-resources 'install-binaries install-bins)
;; needs to be after 'install-binaries and all 'install phases
(add-after 'install 'wrap wrap)))
(define* (rakudo-build #:key inputs (phases %standard-phases)
#:allow-other-keys #:rest args)
"Build the given Perl6 package, applying all of PHASES in order."
(apply gnu:gnu-build
#:inputs inputs #:phases phases
args))
;;; rakudo-build-system.scm ends here

Loading…
Cancel
Save