me
/
guix
Archived
1
0
Fork 0
Code

gnu: libflame: Remove input labels and use gexps. 

* gnu/packages/maths.scm (libflame)[arguments]: Use gexps and remove
trailing #t in phases.
[inputs, native-inputs]: Remove labels.
master
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

95
gnu/packages/maths.scm
View File

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