bug#28423: gnu: Add imb-openmpi.

[ludo@gnu.org (Ludovic Courtès)]

[-- Attachment #1: Type: text/plain, Size: 381 bytes --]

Dave Love <fx@gnu.org> skribis:

> From 44b58081283c93e49d00900cc3e29dfd1af0e97a Mon Sep 17 00:00:00 2001
> From: Dave Love <fx@gnu.org>
> Date: Tue, 3 Oct 2017 19:14:50 +0100
> Subject: [PATCH] gnu: Add imb-openmpi.
>
> * gnu/packages/benchmark.scm(imb): New function.
> (imb-openmpi): New variable.

Committed with the cosmetic changes below, thank you!

Ludo’.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-patch, Size: 2556 bytes --]

diff --git a/gnu/packages/benchmark.scm b/gnu/packages/benchmark.scm
index e3c2570ef..feed7b545 100644
--- a/gnu/packages/benchmark.scm
+++ b/gnu/packages/benchmark.scm
@@ -27,7 +27,8 @@
   #:use-module (gnu packages maths)
   #:use-module (gnu packages mpi)
   #:use-module (gnu packages python)
-  #:use-module (gnu packages storage))
+  #:use-module (gnu packages storage)
+  #:use-module (ice-9 match))
 
 (define-public fio
   (package
@@ -114,12 +115,11 @@ is to write a job file matching the I/O load one wants to simulate.")
     (source
      (origin
       (method url-fetch)
-      (uri (let* ((parts (string-split version #\.) )
-                  (major (car parts))
-                  (minor (cadr parts)))
-             (string-append
-              "https://software.intel.com/sites/default/files/managed/76/6c/IMB_"
-              major "_Update" minor ".tgz")))
+      (uri (match (string-split version #\.)
+             ((major minor)
+              (string-append
+               "https://software.intel.com/sites/default/files/managed/76/6c/IMB_"
+               major "_Update" minor ".tgz"))))
       (sha256 (base32 "11nczxm686rsppmw9gjc2p2sxc0jniv5kv18yxm1lzp5qfh5rqyb"))))
     (build-system gnu-build-system)
     (inputs
@@ -139,7 +139,7 @@ is to write a job file matching the I/O load one wants to simulate.")
          (replace 'install
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))
-                    (doc (string-append out "/share/doc"))
+                    (doc (string-append out "/share/doc/" ,name))
                     (bin (string-append out "/bin")))
                (with-directory-excursion "imb/src"
                  (for-each
@@ -153,9 +153,11 @@ is to write a job file matching the I/O load one wants to simulate.")
     (home-page "https://software.intel.com/en-us/articles/intel-mpi-benchmarks")
     (synopsis "Intel MPI Benchmarks")
     (description
-     "A set of MPI performance measurements for point-to-point and global
-communication, and file, operations for a range of message sizes.
-The generated benchmark data fully characterize:
+     "This package provides benchmarks for implementations of the @dfn{Message
+Passing Interface} (MPI).  It contains MPI performance measurements for
+point-to-point and global communication, and file, operations for a range of
+message sizes.  The generated benchmark data fully characterize:
+
 @itemize
 @item
 Performance of a cluster system, including node performance, network latency,