Commit 67d5cbd6 authored by Ludovic Courtès's avatar Ludovic Courtès
Browse files

padicotm: Wrap 'padico-launch' with an appropriate PATH.

* inria/tadaam.scm (padicotm-2019-05-13)[arguments]: Add
'wrap-padico-launch' phase.
[inputs]: New field.
parent 5baa4f31
;;; This module extends GNU Guix and is licensed under the same terms, those
;;; of the GNU GPL version 3 or (at your option) any later version.
;;;
;;; Copyright © 2017, 2018 Inria
;;; Copyright © 2017, 2018, 2019 Inria
(define-module (inria tadaam)
#:use-module (guix)
......@@ -17,6 +17,8 @@
#:use-module (gnu packages autotools)
#:use-module (gnu packages xml)
#:use-module (gnu packages linux)
#:use-module (gnu packages admin)
#:use-module (gnu packages base)
#:use-module (inria eztrace)
#:use-module (inria simgrid)
#:use-module (ice-9 match))
......@@ -136,7 +138,32 @@
(substitute* "building-tools/common_vars.mk.in"
(("/bin/sh") (which "sh")))
#t))
(delete 'check))))
(delete 'check)
(add-after 'install 'wrap-padico-launch
(lambda* (#:key inputs outputs #:allow-other-keys)
;; Wrap the 'padico-launch' shell script so that it
;; finds all the commands that it needs.
(define (input-directory input)
(string-append (assoc-ref inputs input)
"/bin"))
(let* ((path (map input-directory
'("util-linux" ;'setsid'
"inetutils" ;'hostname'
"procps" ;'ps'
"which"
"tar" "gzip"
"coreutils" "grep" "sed")))
(out (assoc-ref outputs "out"))
(bin (string-append out "/bin")))
(wrap-program (string-append bin "/padico-launch")
`("PATH" ":" prefix ,path))
#t))))))
(inputs
`(("util-linux" ,util-linux)
("procps" ,procps)
("inetutils" ,inetutils)
("which" ,which)))
(native-inputs
`(("pkg-config" ,pkg-config)
("autoconf" ,autoconf)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment