[bug#47656] [PATCH] Add boost mpi

[bug#47656] [PATCH] Add boost mpi

[Franck Pérignon]

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

Hello,

the attached file adds a recipe to install boost with its component mpi.




Thanks

[-- Attachment #2.1: Type: text/html, Size: 847 bytes --]

[-- Attachment #2.2: 0001-PATCH-add-boost-mpi.patch --]
[-- Type: application/octet-stream, Size: 2339 bytes --]

From be7a3cb3bf4060ed4430c36d797127d4268ab446 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Franck=20P=C3=A9rignon?=
 <Franck.Perignon@univ-grenoble-alpes.fr>
Date: Thu, 8 Apr 2021 13:42:27 +0000
Subject: [PATCH] =?UTF-8?q?[PATCH]=C2=A0add=20boost-mpi?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 gnu/packages/boost.scm | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/gnu/packages/boost.scm b/gnu/packages/boost.scm
index 1323e28278..db0f79f3b0 100644
--- a/gnu/packages/boost.scm
+++ b/gnu/packages/boost.scm
@@ -14,6 +14,7 @@
 ;;; Copyright © 2019, 2020 Giacomo Leidi <goodoldpaul@autistici.org>
 ;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com>
 ;;; Copyright © 2020 Jonathan Brielmaier <jonathan.brielmaier@web.de>
+;;; Copyright © 2021 Franck Pérignon <franck.perignon@univ-grenoble-alpes.fr>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -45,6 +46,7 @@
   #:use-module (gnu packages perl)
   #:use-module (gnu packages python)
   #:use-module (gnu packages shells)
+  #:use-module (gnu packages mpi)
   #:use-module (srfi srfi-1))
 
 (define (version-with-underscores version)
@@ -347,6 +349,31 @@ Boost.Thread.")
 signals and slots system.")
     (license (license:x11-style "https://www.boost.org/LICENSE_1_0.txt"))))
 
+
+(define-public boost-mpi
+  (package
+    (inherit boost)
+    (name "boost-mpi")
+    (native-inputs
+     `(("perl" ,perl)
+       ,@(if (%current-target-system)
+             '()
+             `(("python" ,python-wrapper)))
+       ("openmpi" , openmpi)))
+    (arguments
+     (substitute-keyword-arguments (package-arguments boost)
+      ((#:phases phases)
+        `(modify-phases ,phases
+         (add-after 'configure 'update-jam
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let ((output-port (open-file "project-config.jam" "a")))
+               (display "using mpi ;" output-port)
+               (newline output-port)
+               (close output-port))))))))
+    (home-page "https://www.boost.org")
+    (synopsis "Message Passing Interface library")
+    (license (license:x11-style "https://www.boost.org/LICENSE_1_0.txt"))))
+
 (define-public mdds
   (package
     (name "mdds")
-- 
2.25.1


[-- Attachment #2.3: Type: text/html, Size: 285 bytes --]

bug#47656: [PATCH] Add boost mpi

[Ludovic Courtès]

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

Hi Franck,

Franck Pérignon <Franck.Perignon@univ-grenoble-alpes.fr> skribis:

> From be7a3cb3bf4060ed4430c36d797127d4268ab446 Mon Sep 17 00:00:00 2001
> From: =?UTF-8?q?Franck=20P=C3=A9rignon?=
>  <Franck.Perignon@univ-grenoble-alpes.fr>
> Date: Thu, 8 Apr 2021 13:42:27 +0000
> Subject: [PATCH] =?UTF-8?q?[PATCH]=C2=A0add=20boost-mpi?=
> MIME-Version: 1.0
> Content-Type: text/plain; charset=UTF-8
> Content-Transfer-Encoding: 8bit
>
> ---
>  gnu/packages/boost.scm | 27 +++++++++++++++++++++++++++
>  1 file changed, 27 insertions(+)

Applied with the cosmetic changes below.

Thanks!

Ludo’.


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

diff --git a/gnu/packages/boost.scm b/gnu/packages/boost.scm
index db0f79f3b0..a59bb01f3d 100644
--- a/gnu/packages/boost.scm
+++ b/gnu/packages/boost.scm
@@ -363,16 +363,15 @@ signals and slots system.")
     (arguments
      (substitute-keyword-arguments (package-arguments boost)
       ((#:phases phases)
-        `(modify-phases ,phases
-         (add-after 'configure 'update-jam
-           (lambda* (#:key inputs outputs #:allow-other-keys)
-             (let ((output-port (open-file "project-config.jam" "a")))
-               (display "using mpi ;" output-port)
-               (newline output-port)
-               (close output-port))))))))
+       `(modify-phases ,phases
+          (add-after 'configure 'update-jam
+            (lambda* (#:key inputs outputs #:allow-other-keys)
+              (let ((output-port (open-file "project-config.jam" "a")))
+                (display "using mpi ;" output-port)
+                (newline output-port)
+                (close output-port))))))))
     (home-page "https://www.boost.org")
-    (synopsis "Message Passing Interface library")
-    (license (license:x11-style "https://www.boost.org/LICENSE_1_0.txt"))))
+    (synopsis "Message Passing Interface (MPI) library for C++")))
 
 (define-public mdds
   (package