futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: hwloc: Add "lib" and "debug" outputs.

Browse Source 
* gnu/packages/mpi.scm (hwloc)[outputs]: New field.
[arguments]: Add 'avoid-circular-references' phase.
(openmpi)[inputs]: Use the "lib" output of HWLOC.
* gnu/packages/parallel.scm (slurm)[inputs]: Likewise.
This commit is contained in:
Ludovic Courtès 2017-06-30 17:55:41 +02:00 committed by Ludovic Courtès
parent 7eb9f31cd9
commit 798b7678a0
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
2 changed files with 23 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
gnu/packages/mpi.scm
View File

@ -51,6 +51,9 @@
(base32 (base32
"0acph1mf7588hfx8ds26ncr6nw5fd9x92adm11fwin7f93i10sdb")))) "0acph1mf7588hfx8ds26ncr6nw5fd9x92adm11fwin7f93i10sdb"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(outputs '("out" ;'lstopo' & co., depends on Cairo, libx11, etc.
"lib" ;small closure
"debug"))
(inputs (inputs
`(("libx11" ,libx11) `(("libx11" ,libx11)
("cairo" ,cairo) ("cairo" ,cairo)
@ -70,16 +73,24 @@
`(#:configure-flags '("--localstatedir=/var") `(#:configure-flags '("--localstatedir=/var")
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after (add-after 'install 'refine-libnuma
'install 'refine-libnuma ;; Give -L arguments for libraries to avoid propagation
;; Give -L arguments for libraries to avoid propagation (lambda* (#:key inputs outputs #:allow-other-keys)
(lambda* (#:key inputs outputs #:allow-other-keys) (let ((out (assoc-ref outputs "lib"))
(let ((out (assoc-ref outputs "out")) (numa (assoc-ref inputs "numactl")))
(numa (assoc-ref inputs "numactl"))) (substitute* (map (lambda (f) (string-append out "/" f))
(substitute* (map (lambda (f) (string-append out "/" f)) '("lib/pkgconfig/hwloc.pc" "lib/libhwloc.la"))
'("lib/pkgconfig/hwloc.pc" "lib/libhwloc.la")) (("-lnuma" lib)
(("-lnuma" lib) (string-append "-L" numa "/lib " lib))))))
(string-append "-L" numa "/lib " lib))))))))) (add-after 'install 'avoid-circular-references
(lambda* (#:key outputs #:allow-other-keys)
(let ((lib (assoc-ref outputs "lib")))
;; Suppress the 'prefix=' and 'exec_prefix=' lines so that the
;; "lib" output doesn't refer to "out".
(substitute* (string-append lib "/lib/pkgconfig/hwloc.pc")
(("^.*prefix=.*$")
""))
#t))))))
(home-page "https://www.open-mpi.org/projects/hwloc/") (home-page "https://www.open-mpi.org/projects/hwloc/")
(synopsis "Abstraction of hardware architectures") (synopsis "Abstraction of hardware architectures")
(description (description
@ -111,7 +122,7 @@ bind processes, and much more.")
"0k95ri9f8kzx5vhzrdbzn59rn2324fs4a96w5v8jy20j8dkbp13l")))) "0k95ri9f8kzx5vhzrdbzn59rn2324fs4a96w5v8jy20j8dkbp13l"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (inputs
`(("hwloc" ,hwloc) `(("hwloc" ,hwloc "lib")
("gfortran" ,gfortran) ("gfortran" ,gfortran)
("valgrind" ,valgrind))) ("valgrind" ,valgrind)))
(native-inputs (native-inputs

2
gnu/packages/parallel.scm
View File

@ -113,7 +113,7 @@ and they are executed on lists of files, hosts, users or other items.")
;; in particular mysql and gtk+. ;; in particular mysql and gtk+.
(inputs `(("expect" ,expect) (inputs `(("expect" ,expect)
("freeipmi" ,freeipmi) ("freeipmi" ,freeipmi)
("hwloc" ,hwloc) ("hwloc" ,hwloc "lib")
("json-c" ,json-c) ("json-c" ,json-c)
("linux-pam" , linux-pam) ("linux-pam" , linux-pam)
("munge" ,munge) ("munge" ,munge)