nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: mumps: Upgrade to 5.0.2. 

* gnu/packages/maths.scm (mumps): Upgrade to 5.0.2.
[arguments]: Properly return boolean from install phase.
This commit is contained in:
Eric Bavier 2016-10-28 15:42:11 -05:00
parent 343dc11702
commit fba78d18c2
No known key found for this signature in database
GPG Key ID: 1EBBD204781F962C
1 changed files with 14 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
gnu/packages/maths.scm
View File

@ -1225,7 +1225,7 @@ arising after the discretization of partial differential equations.")
(define-public mumps (define-public mumps
(package (package
(name "mumps") (name "mumps")
(version "5.0.1") (version "5.0.2")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -1233,7 +1233,7 @@ arising after the discretization of partial differential equations.")
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1820jfp3mbl7n85765v5mp6p0gzqpgr4d2lrnhwj4gl7cwp5ndah")) "0igyc1pfzxdhpbad3v3lb86ixkdbqa1a8gbs15b04r2294h2nabp"))
(patches (search-patches "mumps-build-parallelism.patch")))) (patches (search-patches "mumps-build-parallelism.patch"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (inputs
@ -1250,8 +1250,7 @@ arising after the discretization of partial differential equations.")
,@%gnu-build-system-modules) ,@%gnu-build-system-modules)
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(replace (replace 'configure
'configure
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(call-with-output-file "Makefile.inc" (call-with-output-file "Makefile.inc"
(lambda (port) (lambda (port)
@ -1312,15 +1311,13 @@ IORDERINGSC = $(IPORD) $(IMETIS) $(ISCOTCH)"
`((,ptscotch `((,ptscotch
"-lptesmumps -lptscotch -lptscotcherr " "-lptesmumps -lptscotch -lptscotcherr "
"-Dptscotch"))))))))) "-Dptscotch")))))))))
(replace (replace 'build
'build
;; By default only the d-precision library is built. Make with "all" ;; By default only the d-precision library is built. Make with "all"
;; target so that all precision libraries and examples are built. ;; target so that all precision libraries and examples are built.
(lambda _ (lambda _
(zero? (system* "make" "all" (zero? (system* "make" "all"
(format #f "-j~a" (parallel-job-count)))))) (format #f "-j~a" (parallel-job-count))))))
(replace (replace 'check
'check
;; Run the simple test drivers, which read test input from stdin: ;; Run the simple test drivers, which read test input from stdin:
;; from the "real" input for the single- and double-precision ;; from the "real" input for the single- and double-precision
;; testers, and from the "cmplx" input for complex-precision ;; testers, and from the "cmplx" input for complex-precision
@ -1343,15 +1340,15 @@ IORDERINGSC = $(IPORD) $(IMETIS) $(ISCOTCH)"
(zero? (close-pipe tester))))) (zero? (close-pipe tester)))))
'("s" "d" "c" "z") '("s" "d" "c" "z")
'("real" "real" "cmplx" "cmplx"))))) '("real" "real" "cmplx" "cmplx")))))
(replace (replace 'install
'install (lambda* (#:key outputs #:allow-other-keys)
(lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out"))
(let ((out (assoc-ref outputs "out"))) (libdir (string-append out "/lib")))
(copy-recursively "lib" (string-append out "/lib")) (copy-recursively "lib" libdir)
(copy-recursively "include" (string-append out "/include")) (copy-recursively "include" (string-append out "/include"))
(when (file-exists? "libseq/libmpiseq.a") (when (file-exists? "libseq/libmpiseq.a")
(copy-file "libseq/libmpiseq.a" (install-file "libseq/libmpiseq.a" libdir))
(string-append out "/lib/libmpiseq.a"))))))))) #t))))))
(home-page "http://mumps.enseeiht.fr") (home-page "http://mumps.enseeiht.fr")
(synopsis "Multifrontal sparse direct solver") (synopsis "Multifrontal sparse direct solver")
(description (description