;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
+;;; Copyright © 2014 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2014 Ian Denhardt <ian@zenhack.net>
;;;
;;; This file is part of GNU Guix.
;;;
(define-module (gnu packages mpi)
#:use-module (guix packages)
- #:use-module (guix licenses)
+ #:use-module ((guix licenses)
+ #:hide (expat))
#:use-module (guix download)
+ #:use-module (guix utils)
#:use-module (guix build-system gnu)
#:use-module (gnu packages)
#:use-module (gnu packages gcc)
- #:use-module (srfi srfi-1))
+ #: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)
+ #:use-module (gnu packages ncurses)
+ #:use-module (gnu packages pkg-config)
+ #:use-module (gnu packages valgrind))
+
+(define-public hwloc
+ (package
+ (name "hwloc")
+ (version "1.9")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append "http://www.open-mpi.org/software/hwloc/v"
+ version "/downloads/hwloc-"
+ version ".tar.bz2"))
+ (sha256
+ (base32
+ "0zjgiili2a8v63s8ly3a8qp8ibxv1jw3zbgm7diic3w1qgqiza14"))))
+ (build-system gnu-build-system)
+ (arguments
+ ;; Enable libpci support, which effectively makes hwloc GPLv2+.
+ '(#:configure-flags '("--enable-libpci")))
+ (inputs
+ `(("libx11" ,libx11)
+ ("cairo" ,cairo)
+ ("ncurses" ,ncurses)
+ ("expat" ,expat)))
+ (native-inputs
+ `(("pkg-config" ,pkg-config)))
+ (propagated-inputs
+ ;; 'hwloc.pc' refers to libpci and libnuma, hence the propagation.
+ `(("numactl" ,numactl)
+ ("pciutils" ,pciutils)))
+ (home-page "http://www.open-mpi.org/projects/hwloc/")
+ (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.")
+
+ ;; But see above about linking against libpci.
+ (license bsd-3)))
(define-public openmpi
(package
(origin
(method url-fetch)
(uri (string-append "http://www.open-mpi.org/software/ompi/v"
- (string-join (take (string-split version #\.) 2)
- ".")
+ (version-major+minor version)
"/downloads/openmpi-" version ".tar.bz2"))
(sha256
(base32
"13z1q69f3qwmmhpglarfjminfy2yw4rfqr9jydjk5507q3mjf50p"))))
(build-system gnu-build-system)
- (propagated-inputs
- `(("gfortran" ,gfortran-4.8)))
+ (inputs
+ `(("hwloc" ,hwloc)
+ ("gfortran" ,gfortran-4.8)
+ ("valgrind" ,valgrind)))
+ (native-inputs
+ `(("pkg-config" ,pkg-config)))
(arguments
- `(#:configure-flags '("--enable-static"
+ `(#:configure-flags `("--enable-static"
"--enable-oshmem"
;; Thread support causes some applications to hang
;; "--enable-event-thread-support"
;; "--enable-orte-progress-threads"
;; "--enable-mpi-thread-multiple"
"--enable-mpi-ext=all"
- "--with-devel-headers")))
+ "--with-devel-headers"
+ "--enable-debug"
+ "--enable-memchecker"
+ ,(string-append "--with-valgrind="
+ (assoc-ref %build-inputs "valgrind"))
+ ,(string-append "--with-hwloc="
+ (assoc-ref %build-inputs "hwloc")))))
(home-page "http://www.open-mpi.org")
(synopsis "MPI-2 implementation")
(description