ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-14 07:00:32 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: libflame: Remove input labels and use gexps.

Browse source 
* gnu/packages/maths.scm (libflame)[arguments]: Use gexps and remove
trailing #t in phases.
[inputs, native-inputs]: Remove labels.
This commit is contained in:
Ludovic Courtès 2023-08-10 11:36:01 +02:00 committed by Ludovic Courtès
parent 229faac39b
commit 2a4047e540
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 46 additions and 49 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

49
gnu/packages/maths.scm
View file

@ -2615,55 +2615,52 @@ (define-public libflame
"1n6lf0wvpp77lxqlr721h2jbfbzigphdp19wq8ajiccilcksh7ay"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
(list #:configure-flags
;; Sensible defaults: https://github.com/flame/libflame/issues/28
(list "--enable-dynamic-build"
#~(list "--enable-dynamic-build"
"--enable-max-arg-list-hack"
"--enable-lapack2flame"
"--enable-verbose-make-output"
"--enable-multithreading=pthreads" ; Openblas isn't built with openmp.
,@(if (any (cute string-prefix? <> (or (%current-target-system)
(%current-system)))
'("x86_64" "i686"))
'("--enable-vector-intrinsics=sse")
'())
#$@(if (target-x86?)
#~("--enable-vector-intrinsics=sse")
#~())
"--enable-supermatrix"
"--enable-memory-alignment=16"
"--enable-ldim-alignment")
#:phases
(modify-phases %standard-phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-/usr/bin/env-bash
(lambda _
(substitute* "build/config.mk.in"
(("/usr/bin/env bash") (which "bash")))
#t))
(("/usr/bin/env bash")
(which "bash")))))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(substitute* "test/Makefile"
(("LIBBLAS .*") "LIBBLAS = -lblas\n")
(("LIBLAPACK .*") "LIBLAPACK = -llapack\n"))
(if tests?
(("LIBBLAS .*")
"LIBBLAS = -lblas\n")
(("LIBLAPACK .*")
"LIBLAPACK = -llapack\n"))
(when tests?
(with-directory-excursion "test"
(mkdir "obj")
(invoke "make")
(invoke "./test_libflame.x"))
#t)))
(invoke "./test_libflame.x")))))
(add-after 'install 'install-static
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(static (assoc-ref outputs "static")))
(mkdir-p (string-append static "/lib"))
(rename-file (string-append out "/lib/libflame.a")
(string-append static "/lib/libflame.a"))
(install-file (string-append out "/include/FLAME.h")
(string-append static "/include"))
#t))))))
(inputs
(list gfortran))
(native-inputs
`(("lapack" ,lapack)
("perl" ,perl)
("python" ,python-wrapper)))
(rename-file (string-append out
"/lib/libflame.a")
(string-append static
"/lib/libflame.a"))
(install-file (string-append out
"/include/FLAME.h")
(string-append static "/include"))))))))
(inputs (list gfortran))
(native-inputs (list lapack perl python-wrapper))
(home-page "https://github.com/flame/libflame")
(synopsis "High-performance library for @acronym{DLA, dense linear algebra} computations")
(description "@code{libflame} is a portable library for dense matrix