me/guix
Archived
1
0
Fork 0
Code Activity

gnu: parallel: Use full paths for executables.

Browse source 
* gnu/packages/parallel.scm (parallel)[inputs]: Add procps.
[arguments]: New field.
This commit is contained in:
Ben Woodcroft 2016-07-12 13:56:08 +10:00
parent 7d229e2602
commit 47bc991f71
No known key found for this signature in database
GPG key ID: E44DCCD146E0CCF4
1 changed files with 26 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
gnu/packages/parallel.scm
View file

@ -5,6 +5,7 @@
;;; Copyright © 2016 Pjotr Prins <pjotr.guix@thebird.nl>
;;; Copyright © 2016 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016 Ben Woodcroft <donttrustben@gmail.com>
;;;
;;; 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