amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

build-system/perl: Use Build.PL for builds if present.

Browse source 
* guix/build/perl-build-system.scm (configure): Use Build.PL if present.
  (build, check, install): New procedures.
  (%standard-phases): Replace build, check, and install phases.
* guix/build-system/perl (perl-build): Add make-maker? and module-build-flags
  arguments.
* doc/guix.texi (Build Systems)[perl-build-system]: Document behavior rsp.
  Build.PL and new arguments.
This commit is contained in:
Eric Bavier 2015-01-22 23:18:57 -06:00
parent 0f3d643b0b
commit 2d2a53fc24
3 changed files with 64 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

59
guix/build/perl-build-system.scm
View file

@ -29,22 +29,57 @@
;;
;; Code:
(define* (configure #:key outputs (make-maker-flags '())
(define* (configure #:key outputs make-maker?
(make-maker-flags '()) (module-build-flags '())
#:allow-other-keys)
"Configure the given Perl package."
(let ((out (assoc-ref outputs "out")))
(if (file-exists? "Makefile.PL")
(let ((args `("Makefile.PL" ,(string-append "PREFIX=" out)
"INSTALLDIRS=site" ,@make-maker-flags)))
(format #t "running `perl' with arguments ~s~%" args)
(zero? (apply system* "perl" args)))
(error "no Makefile.PL found"))))
(let* ((out (assoc-ref outputs "out"))
(args (cond
;; Prefer to use Module::Build unless otherwise told
((and (file-exists? "Build.PL")
(not make-maker?))
`("Build.PL" ,(string-append "--prefix=" out)
"--installdirs=site" ,@module-build-flags))
((file-exists? "Makefile.PL")
`("Makefile.PL" ,(string-append "PREFIX=" out)
"INSTALLDIRS=site" ,@make-maker-flags))
(else (error "no Build.PL or Makefile.PL found")))))
(format #t "running `perl' with arguments ~s~%" args)
(zero? (apply system* "perl" args))))
(define-syntax-rule (define-w/gnu-fallback* (name args ...) body ...)
(define* (name args ... #:rest rest)
(if (access? "Build" X_OK)
(begin body ...)
(apply (assoc-ref gnu:%standard-phases 'name) rest))))
(define-w/gnu-fallback* (build)
(zero? (system* "./Build")))
(define-w/gnu-fallback* (check #:key target
(tests? (not target)) (test-flags '())
#:allow-other-keys)
(if tests?
(zero? (apply system* "./Build" "test" test-flags))
(begin
(format #t "test suite not run~%")
#t)))
(define-w/gnu-fallback* (install)
(zero? (system* "./Build" "install")))
(define %standard-phases
;; Everything is as with the GNU Build System except for the `configure'
;; phase.
(alist-replace 'configure configure
gnu:%standard-phases))
;; Everything is as with the GNU Build System except for the `configure',
;; `build', `check', and `install' phases.
(alist-replace
'configure configure
(alist-replace
'build build
(alist-replace
'check check
(alist-replace
'install install
gnu:%standard-phases)))))
(define* (perl-build #:key inputs (phases %standard-phases)
#:allow-other-keys #:rest args)