gnu: scotch, pt-scotch: Build esmumps libraries.

[jackhill/guix/guix.git] / gnu / packages / maths.scm

diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm
index e4fe03b..05691b6 100644 (file)
--- a/gnu/packages/maths.scm
+++ b/gnu/packages/maths.scm
@@ -802,21 +802,23 @@ implemented in ANSI C, and MPI for communications.")
        ("bison" ,bison)))
     (arguments
      `(#:phases
-       (alist-cons-after
-        'unpack 'chdir-to-src
-        (lambda _ (chdir "src"))
-        (alist-replace
-         'configure
-         (lambda _
-           (call-with-output-file "Makefile.inc"
-             (lambda (port)
-               (format port "
+       (modify-phases %standard-phases
+         (add-after
+          'unpack 'chdir-to-src
+          (lambda _ (chdir "src")))
+         (replace
+          'configure
+          (lambda _
+            (call-with-output-file "Makefile.inc"
+              (lambda (port)
+                (format port "
 EXE =
 LIB = .a
 OBJ = .o
 MAKE = make
 AR = ar
 ARFLAGS = -ruv
+CAT = cat
 CCS = gcc
 CCP = mpicc
 CCD = gcc
@@ -831,22 +833,36 @@ MV = mv
 RANLIB = ranlib
 YACC = bison -pscotchyy -y -b y
 "
-                       '("COMMON_FILE_COMPRESS_GZ"
-                         "COMMON_PTHREAD"
-                         "COMMON_RANDOM_FIXED_SEED"
-                         ;; XXX: Causes invalid frees in superlu-dist tests
-                         ;; "SCOTCH_PTHREAD"
-                         ;; "SCOTCH_PTHREAD_NUMBER=2"
-                         "restrict=__restrict")))))
-         (alist-replace
+                        '("COMMON_FILE_COMPRESS_GZ"
+                          "COMMON_PTHREAD"
+                          "COMMON_RANDOM_FIXED_SEED"
+                          ;; Prevents symbolc clashes with libesmumps
+                          "SCOTCH_RENAME"
+                          ;; XXX: Causes invalid frees in superlu-dist tests
+                          ;; "SCOTCH_PTHREAD"
+                          ;; "SCOTCH_PTHREAD_NUMBER=2"
+                          "restrict=__restrict"))))))
+         (add-after
+          'build 'build-esmumps
+          (lambda _
+            (zero? (system* "make"
+                            (format #f "-j~a" (parallel-job-count))
+                            "esmumps"))))
+         (replace
           'install
           (lambda* (#:key outputs #:allow-other-keys)
             (let ((out (assoc-ref outputs "out")))
               (mkdir out)
               (zero? (system* "make"
                               (string-append "prefix=" out)
-                              "install"))))
-          %standard-phases)))))
+                              "install"))
+              ;; esmumps files are not installed with the above
+              (for-each (lambda (f)
+                          (copy-file f (string-append out "/include/" f)))
+                        (find-files "../include" ".*esmumps.h$"))
+              (for-each (lambda (f)
+                          (copy-file f (string-append out "/lib/" f)))
+                        (find-files "../lib" "^lib.*esmumps.*"))))))))
     (home-page "http://www.labri.fr/perso/pelegrin/scotch/")
     (synopsis "Programs and libraries for graph algorithms")
     (description "SCOTCH is a set of programs and libraries which implement
@@ -867,26 +883,19 @@ bio-chemistry.")
     (arguments
      (substitute-keyword-arguments (package-arguments scotch)
        ((#:phases scotch-phases)
-        `(alist-replace
-          'build
-          ;; TODO: Would like to add parallelism here
-          (lambda _
-            (and
-             (zero? (system* "make" "ptscotch"))
-             ;; Install the serial metis compatibility library
-             (zero? (system* "make" "-C" "libscotchmetis" "install"))))
-          (alist-replace
-           'check
-           (lambda _ (zero? (system* "make" "ptcheck")))
-           (alist-replace
-            'install
-            (lambda* (#:key outputs #:allow-other-keys)
-              (let ((out (assoc-ref outputs "out")))
-                (mkdir out)
-                (zero? (system* "make"
-                                (string-append "prefix=" out)
-                                "install"))))
-            ,scotch-phases))))))
+        `(modify-phases ,scotch-phases
+           (replace
+            'build
+            (lambda _
+              (and
+               (zero? (system* "make"
+                               (format #f "-j~a" (parallel-job-count))
+                               "ptscotch" "ptesmumps"))
+               ;; Install the serial metis compatibility library
+               (zero? (system* "make" "-C" "libscotchmetis" "install")))))
+           (replace
+            'check
+            (lambda _ (zero? (system* "make" "ptcheck"))))))))
     (synopsis "Programs and libraries for graph algorithms (with MPI)")))
 
 (define-public gsegrafix