2014-05-01 17:16:16 +00:00
|
|
|
;;; GNU Guix --- Functional package management for GNU
|
2015-06-14 22:11:00 +00:00
|
|
|
;;; Copyright © 2014, 2015 Eric Bavier <bavier@member.fsf.org>
|
2017-05-11 12:36:12 +00:00
|
|
|
;;; Copyright © 2014, 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org>
|
2014-10-19 02:03:42 +00:00
|
|
|
;;; Copyright © 2014 Ian Denhardt <ian@zenhack.net>
|
2016-02-03 20:05:51 +00:00
|
|
|
;;; Copyright © 2016 Andreas Enge <andreas@enge.fr>
|
2017-07-23 21:00:21 +00:00
|
|
|
;;; Copyright © 2017 Dave Love <fx@gnu.org>
|
2014-05-01 17:16:16 +00:00
|
|
|
;;;
|
|
|
|
;;; This file is part of GNU Guix.
|
|
|
|
;;;
|
|
|
|
;;; GNU Guix is free software; you can redistribute it and/or modify it
|
|
|
|
;;; under the terms of the GNU General Public License as published by
|
|
|
|
;;; the Free Software Foundation; either version 3 of the License, or (at
|
|
|
|
;;; your option) any later version.
|
|
|
|
;;;
|
|
|
|
;;; GNU Guix is distributed in the hope that it will be useful, but
|
|
|
|
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
;;; GNU General Public License for more details.
|
|
|
|
;;;
|
|
|
|
;;; You should have received a copy of the GNU General Public License
|
|
|
|
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
|
|
|
|
(define-module (gnu packages mpi)
|
|
|
|
#:use-module (guix packages)
|
2014-05-09 13:49:08 +00:00
|
|
|
#:use-module ((guix licenses)
|
|
|
|
#:hide (expat))
|
2014-05-01 17:16:16 +00:00
|
|
|
#:use-module (guix download)
|
2014-10-19 02:03:42 +00:00
|
|
|
#:use-module (guix utils)
|
2014-05-01 17:16:16 +00:00
|
|
|
#:use-module (guix build-system gnu)
|
|
|
|
#:use-module (gnu packages)
|
|
|
|
#:use-module (gnu packages gcc)
|
2014-05-09 13:49:08 +00:00
|
|
|
#:use-module (gnu packages linux)
|
|
|
|
#:use-module (gnu packages pciutils)
|
|
|
|
#:use-module (gnu packages xorg)
|
|
|
|
#:use-module (gnu packages gtk)
|
|
|
|
#:use-module (gnu packages xml)
|
2015-06-15 07:24:14 +00:00
|
|
|
#:use-module (gnu packages perl)
|
2014-05-09 13:49:08 +00:00
|
|
|
#:use-module (gnu packages ncurses)
|
|
|
|
#:use-module (gnu packages pkg-config)
|
2014-10-19 02:03:42 +00:00
|
|
|
#:use-module (gnu packages valgrind))
|
2014-05-01 17:16:16 +00:00
|
|
|
|
2014-05-09 13:49:08 +00:00
|
|
|
(define-public hwloc
|
|
|
|
(package
|
|
|
|
(name "hwloc")
|
2017-05-11 12:36:12 +00:00
|
|
|
(version "1.11.7")
|
2014-05-09 13:49:08 +00:00
|
|
|
(source (origin
|
|
|
|
(method url-fetch)
|
2016-04-14 08:19:40 +00:00
|
|
|
(uri (string-append "https://www.open-mpi.org/software/hwloc/v"
|
2015-06-14 22:11:00 +00:00
|
|
|
(version-major+minor version)
|
|
|
|
"/downloads/hwloc-" version ".tar.bz2"))
|
2014-05-09 13:49:08 +00:00
|
|
|
(sha256
|
|
|
|
(base32
|
2017-05-11 12:36:12 +00:00
|
|
|
"0acph1mf7588hfx8ds26ncr6nw5fd9x92adm11fwin7f93i10sdb"))))
|
2014-05-09 13:49:08 +00:00
|
|
|
(build-system gnu-build-system)
|
2017-06-30 15:55:41 +00:00
|
|
|
(outputs '("out" ;'lstopo' & co., depends on Cairo, libx11, etc.
|
|
|
|
"lib" ;small closure
|
|
|
|
"debug"))
|
2014-05-09 13:49:08 +00:00
|
|
|
(inputs
|
2014-05-12 21:43:04 +00:00
|
|
|
`(("libx11" ,libx11)
|
2014-05-09 13:49:08 +00:00
|
|
|
("cairo" ,cairo)
|
|
|
|
("ncurses" ,ncurses)
|
2016-02-03 20:05:51 +00:00
|
|
|
("expat" ,expat)
|
|
|
|
,@(if (not (string-prefix? "armhf"
|
|
|
|
(or (%current-target-system)
|
|
|
|
(%current-system))))
|
|
|
|
`(("numactl" ,numactl))
|
|
|
|
'())))
|
2015-08-23 22:28:36 +00:00
|
|
|
(propagated-inputs
|
|
|
|
;; hwloc.pc lists it in 'Requires.private'.
|
|
|
|
`(("libpciaccess" ,libpciaccess)))
|
2014-05-09 13:49:08 +00:00
|
|
|
(native-inputs
|
|
|
|
`(("pkg-config" ,pkg-config)))
|
2015-06-17 09:17:10 +00:00
|
|
|
(arguments
|
2017-06-30 15:31:03 +00:00
|
|
|
`(#:configure-flags '("--localstatedir=/var")
|
|
|
|
#:phases
|
2015-06-17 09:17:10 +00:00
|
|
|
(modify-phases %standard-phases
|
2017-06-30 15:55:41 +00:00
|
|
|
(add-after 'install 'refine-libnuma
|
|
|
|
;; Give -L arguments for libraries to avoid propagation
|
|
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
|
|
(let ((out (assoc-ref outputs "lib"))
|
|
|
|
(numa (assoc-ref inputs "numactl")))
|
|
|
|
(substitute* (map (lambda (f) (string-append out "/" f))
|
|
|
|
'("lib/pkgconfig/hwloc.pc" "lib/libhwloc.la"))
|
|
|
|
(("-lnuma" 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))))))
|
2016-04-14 08:19:40 +00:00
|
|
|
(home-page "https://www.open-mpi.org/projects/hwloc/")
|
2014-05-09 13:49:08 +00:00
|
|
|
(synopsis "Abstraction of hardware architectures")
|
|
|
|
(description
|
|
|
|
"hwloc provides a portable abstraction (across OS,
|
|
|
|
versions, architectures, ...) of the hierarchical topology of modern
|
|
|
|
architectures, including NUMA memory nodes, sockets, shared caches, cores and
|
|
|
|
simultaneous multithreading. It also gathers various attributes such as cache
|
|
|
|
and memory information. It primarily aims at helping high-performance
|
|
|
|
computing applications with gathering information about the hardware so as to
|
|
|
|
exploit it accordingly and efficiently.
|
|
|
|
|
|
|
|
hwloc may display the topology in multiple convenient formats. It also offers
|
|
|
|
a powerful programming interface to gather information about the hardware,
|
|
|
|
bind processes, and much more.")
|
|
|
|
(license bsd-3)))
|
|
|
|
|
2014-05-01 17:16:16 +00:00
|
|
|
(define-public openmpi
|
|
|
|
(package
|
|
|
|
(name "openmpi")
|
2017-07-23 21:00:21 +00:00
|
|
|
(version "1.10.7")
|
2014-05-01 17:16:16 +00:00
|
|
|
(source
|
|
|
|
(origin
|
|
|
|
(method url-fetch)
|
2016-07-08 17:15:38 +00:00
|
|
|
(uri (string-append "https://www.open-mpi.org/software/ompi/v"
|
2014-10-19 02:03:42 +00:00
|
|
|
(version-major+minor version)
|
2014-05-01 17:16:16 +00:00
|
|
|
"/downloads/openmpi-" version ".tar.bz2"))
|
|
|
|
(sha256
|
|
|
|
(base32
|
2017-07-23 21:00:21 +00:00
|
|
|
"142s1vny9gllkq336yafxayjgcirj2jv0ddabj879jgya7hyr2d0"))))
|
2014-05-01 17:16:16 +00:00
|
|
|
(build-system gnu-build-system)
|
2014-05-12 21:43:04 +00:00
|
|
|
(inputs
|
2017-06-30 15:55:41 +00:00
|
|
|
`(("hwloc" ,hwloc "lib")
|
2015-06-25 15:56:07 +00:00
|
|
|
("gfortran" ,gfortran)
|
2014-05-18 16:08:17 +00:00
|
|
|
("valgrind" ,valgrind)))
|
2014-05-12 21:43:04 +00:00
|
|
|
(native-inputs
|
2015-06-15 07:24:14 +00:00
|
|
|
`(("pkg-config" ,pkg-config)
|
|
|
|
("perl" ,perl)))
|
2014-05-01 17:16:16 +00:00
|
|
|
(arguments
|
2014-05-12 21:43:04 +00:00
|
|
|
`(#:configure-flags `("--enable-static"
|
2015-06-15 07:24:14 +00:00
|
|
|
|
|
|
|
"--enable-mpi-thread-multiple"
|
2015-11-19 23:51:39 +00:00
|
|
|
"--enable-builtin-atomics"
|
2015-06-15 07:24:14 +00:00
|
|
|
|
2014-05-01 17:16:16 +00:00
|
|
|
"--enable-mpi-ext=all"
|
2014-05-12 21:43:04 +00:00
|
|
|
"--with-devel-headers"
|
2014-05-18 16:08:17 +00:00
|
|
|
"--enable-memchecker"
|
|
|
|
,(string-append "--with-valgrind="
|
|
|
|
(assoc-ref %build-inputs "valgrind"))
|
2014-05-12 21:43:04 +00:00
|
|
|
,(string-append "--with-hwloc="
|
2016-07-08 21:00:07 +00:00
|
|
|
(assoc-ref %build-inputs "hwloc")))
|
|
|
|
#:phases (modify-phases %standard-phases
|
|
|
|
(add-before 'build 'scrub-timestamps ;reproducibility
|
|
|
|
(lambda _
|
|
|
|
(substitute* '("ompi/tools/ompi_info/param.c"
|
|
|
|
"orte/tools/orte-info/param.c"
|
|
|
|
"oshmem/tools/oshmem_info/param.c")
|
|
|
|
((".*(Built|Configured) on.*") ""))
|
|
|
|
#t))
|
|
|
|
(add-after 'install 'remove-logs ;reproducibility
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
(let ((out (assoc-ref outputs "out")))
|
|
|
|
(for-each delete-file (find-files out "config.log"))
|
|
|
|
#t))))))
|
2014-05-01 17:16:16 +00:00
|
|
|
(home-page "http://www.open-mpi.org")
|
2017-07-23 21:30:40 +00:00
|
|
|
(synopsis "MPI-3 implementation")
|
2014-05-01 17:16:16 +00:00
|
|
|
(description
|
2017-07-23 21:30:40 +00:00
|
|
|
"The Open MPI Project is an MPI-3 implementation that is developed and
|
2014-05-08 19:48:59 +00:00
|
|
|
maintained by a consortium of academic, research, and industry partners. Open
|
|
|
|
MPI is therefore able to combine the expertise, technologies, and resources
|
|
|
|
from all across the High Performance Computing community in order to build the
|
|
|
|
best MPI library available. Open MPI offers advantages for system and
|
|
|
|
software vendors, application developers and computer science researchers.")
|
2014-05-01 17:16:16 +00:00
|
|
|
;; See file://LICENSE
|
|
|
|
(license bsd-2)))
|