[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/21: gnu: parallel: Use full paths for executables.
From: |
Ben Woodcroft |
Subject: |
01/21: gnu: parallel: Use full paths for executables. |
Date: |
Mon, 8 Aug 2016 12:08:58 +0000 (UTC) |
benwoodcroft pushed a commit to branch master
in repository guix.
commit 47bc991f71d0314217d103798db99f55ce59cde5
Author: Ben Woodcroft <address@hidden>
Date: Tue Jul 12 13:56:08 2016 +1000
gnu: parallel: Use full paths for executables.
* gnu/packages/parallel.scm (parallel)[inputs]: Add procps.
[arguments]: New field.
---
gnu/packages/parallel.scm | 27 ++++++++++++++++++++++++++-
1 file changed, 26 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/parallel.scm b/gnu/packages/parallel.scm
index 12f0028..3bb078e 100644
--- a/gnu/packages/parallel.scm
+++ b/gnu/packages/parallel.scm
@@ -5,6 +5,7 @@
;;; Copyright © 2016 Pjotr Prins <address@hidden>
;;; Copyright © 2016 Andreas Enge <address@hidden>
;;; Copyright © 2016 Ricardo Wurmus <address@hidden>
+;;; Copyright © 2016 Ben Woodcroft <address@hidden>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -54,7 +55,31 @@
(base32
"08gm0i9vj2nz8qgqi98z00myypgb3dni0s5yf3l17fp8h78fp4g3"))))
(build-system gnu-build-system)
- (inputs `(("perl" ,perl)))
+ (arguments
+ `(#:phases
+ (modify-phases %standard-phases
+ (add-after 'unpack 'patch-bin-sh
+ (lambda _
+ (for-each
+ (lambda (file)
+ (substitute* file
+ ;; Patch hard coded '/bin/sh' in the lin ending in:
+ ;; $Global::shell = $ENV{'PARALLEL_SHELL'} ||
+ ;; parent_shell($$) || $ENV{'SHELL'} || "/bin/sh";
+ (("/bin/sh\\\";\n$") (string-append (which "sh") "\";\n"))
+ ;; Patch call to 'ps' and 'perl' commands.
+ ((" ps ") (string-append " " (which "ps") " "))
+ ((" perl -") (string-append " " (which "perl") " -"))))
+ (list "src/parallel" "src/sem"))))
+ (add-after 'install 'post-install-test
+ (lambda* (#:key outputs #:allow-other-keys)
+ (zero? (system* (string-append
+ (assoc-ref outputs "out") "/bin/parallel")
+ "echo"
+ ":::" "1" "2" "3")))))))
+ (inputs
+ `(("perl" ,perl)
+ ("procps" ,procps)))
(home-page "http://www.gnu.org/software/parallel/")
(synopsis "Build and execute command lines in parallel")
(description
- 02/21: gnu: Add perl-xml-writer., (continued)
- 02/21: gnu: Add perl-xml-writer., Ben Woodcroft, 2016/08/08
- 17/21: gnu: Add bppsuite., Ben Woodcroft, 2016/08/08
- 05/21: gnu: Add perl-graph-readwrite., Ben Woodcroft, 2016/08/08
- 12/21: gnu: Add mcl., Ben Woodcroft, 2016/08/08
- 15/21: gnu: Add bpp-phyl., Ben Woodcroft, 2016/08/08
- 20/21: gnu: Add raxml., Ben Woodcroft, 2016/08/08
- 21/21: gnu: Add roary., Ben Woodcroft, 2016/08/08
- 16/21: gnu: Add bpp-popgen., Ben Woodcroft, 2016/08/08
- 08/21: gnu: Add perl-file-grep., Ben Woodcroft, 2016/08/08
- 18/21: gnu: Add exonerate., Ben Woodcroft, 2016/08/08
- 01/21: gnu: parallel: Use full paths for executables.,
Ben Woodcroft <=
- 09/21: gnu: Add perl-array-utils., Ben Woodcroft, 2016/08/08
- 10/21: gnu: Add perl-test-files., Ben Woodcroft, 2016/08/08
- 11/21: gnu: Add perl-env-path., Ben Woodcroft, 2016/08/08
- 13/21: gnu: Add bpp-core., Ben Woodcroft, 2016/08/08
- 14/21: gnu: Add bpp-seq., Ben Woodcroft, 2016/08/08
- 19/21: gnu: Add prank., Ben Woodcroft, 2016/08/08