From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:35330) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dzlfV-00019d-Ie for guix-patches@gnu.org; Wed, 04 Oct 2017 11:33:06 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dzlfS-0001m6-Au for guix-patches@gnu.org; Wed, 04 Oct 2017 11:33:05 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:40403) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1dzlfS-0001lR-76 for guix-patches@gnu.org; Wed, 04 Oct 2017 11:33:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1dzlfR-0005Ab-O4 for guix-patches@gnu.org; Wed, 04 Oct 2017 11:33:01 -0400 Subject: [bug#28423] gnu: Add imb-openmpi. Resent-Message-ID: From: Dave Love References: <877ex5j7dz.fsf@albion.it.manchester.ac.uk> <87377tj72w.fsf@albion.it.manchester.ac.uk> <877ex4ysk1.fsf@gnu.org> <87wp4ik2k6.fsf@gnu.org> <87bmlpffd3.fsf@albion.it.manchester.ac.uk> <87k20c8kjl.fsf@gnu.org> <877ewcb24q.fsf@albion.it.manchester.ac.uk> <87o9poau1t.fsf@gnu.org> Date: Wed, 04 Oct 2017 16:32:24 +0100 In-Reply-To: <87o9poau1t.fsf@gnu.org> ("Ludovic \=\?iso-8859-1\?Q\?Court\=E8s\?\= \=\?iso-8859-1\?Q\?\=22's\?\= message of "Tue, 3 Oct 2017 21:51:58 +0200") Message-ID: <87a8179bef.fsf@albion.it.manchester.ac.uk> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="HALO-Cartel-de-Golfo-SVR-[Hello-to-all-my-friends-and-fans-in-dom" List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: Ludovic =?UTF-8?Q?Court=C3=A8s?= Cc: 28423@debbugs.gnu.org --HALO-Cartel-de-Golfo-SVR-[Hello-to-all-my-friends-and-fans-in-dom Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable Ludovic Court=E8s writes: >> The question would have been why >> >> (format-string #f ("Package variant ~a is not translatable" x)) > > Strings are not applicable. You probably meant: > > (G_ "Foo ~a bar") Sorry, I don't know where the extra parens came from in hasty mail. (I was Scheming around the time of T...) What I meant was something like (description (format-string #f "Package variant ~a is not translatable" x= )) Anyhow, thanks for the explanation in the new doc which clears the confusion I had. I don't understand the mechanism, but I guess it's not worth researching. Here's a revised patch. --HALO-Cartel-de-Golfo-SVR-[Hello-to-all-my-friends-and-fans-in-dom Content-Type: text/x-diff; charset=iso-8859-1 Content-Disposition: inline; filename=0001-gnu-Add-imb-openmpi.patch Content-Transfer-Encoding: quoted-printable >From 44b58081283c93e49d00900cc3e29dfd1af0e97a Mon Sep 17 00:00:00 2001 From: Dave Love 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. --- gnu/packages/benchmark.scm | 63 ++++++++++++++++++++++++++++++++++++++++++= ++++ 1 file changed, 63 insertions(+) diff --git a/gnu/packages/benchmark.scm b/gnu/packages/benchmark.scm index 136f141d8..e3c2570ef 100644 --- a/gnu/packages/benchmark.scm +++ b/gnu/packages/benchmark.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright =A9 2016, 2017 Marius Bakke +;;; Copyright =A9 2017 Dave Love ;;; ;;; This file is part of GNU Guix. ;;; @@ -24,6 +25,7 @@ #:use-module (gnu packages compression) #:use-module (gnu packages linux) #:use-module (gnu packages maths) + #:use-module (gnu packages mpi) #:use-module (gnu packages python) #:use-module (gnu packages storage)) =20 @@ -103,3 +105,64 @@ is to write a job file matching the I/O load one wants= to simulate.") ;; are covered by other licenses. (license (list license:gpl2 license:gpl2+ license:bsd-2 license:public-domain)))) + +;; Parameterized in anticipation of m(va)pich support +(define (imb mpi) + (package + (name (string-append "imb-" (package-name mpi))) + (version "2017.2") + (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/6= c/IMB_" + major "_Update" minor ".tgz"))) + (sha256 (base32 "11nczxm686rsppmw9gjc2p2sxc0jniv5kv18yxm1lzp5qfh5rqy= b")))) + (build-system gnu-build-system) + (inputs + `(("mpi" ,mpi))) + (arguments + `(#:phases + (modify-phases %standard-phases + (delete 'configure) + (delete 'check) + (replace 'build + (lambda* (#:key inputs #:allow-other-keys) + (let ((mpi-home (assoc-ref inputs "mpi"))) + (zero? + ;; Not safe for parallel build + (system* "make" "-C" "imb/src" "-f" "make_mpich" "SHELL=3D= sh" + (string-append "MPI_HOME=3D" mpi-home)))))) + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (doc (string-append out "/share/doc")) + (bin (string-append out "/bin"))) + (with-directory-excursion "imb/src" + (for-each + (lambda (file) + (install-file file bin)) + '("IMB-IO" "IMB-EXT" "IMB-MPI1" "IMB-NBC" "IMB-RMA"))) + (mkdir-p doc) + (with-directory-excursion "imb" + (copy-recursively "license" doc))) + #t))))) + (home-page "https://software.intel.com/en-us/articles/intel-mpi-benchm= arks") + (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: +@itemize +@item +Performance of a cluster system, including node performance, network laten= cy, +and throughput; +@item +Efficiency of the MPI implementation. +@end itemize") + (license license:cpl1.0))) + +(define-public imb-openmpi (imb openmpi)) --=20 2.11.0 --HALO-Cartel-de-Golfo-SVR-[Hello-to-all-my-friends-and-fans-in-dom--