me/guix
Archived
1
0
Fork 0
Code Activity

gnu: papi: Update phase style.

Browse source 
* gnu/packages/profiling.scm (papi)[arguments]: Substitute INVOKE for
SYSTEM*, end phases with #t, and don't explicitly install LICENSE.txt.
This commit is contained in:
Tobias Geerinckx-Rice 2018-03-04 17:20:03 +01:00
parent 635dd0cc96
commit ac1a9ce8b0
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 14 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
gnu/packages/profiling.scm
View file

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Dave Love <fx@gnu.org> ;;; Copyright © 2017 Dave Love <fx@gnu.org>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -84,7 +85,8 @@ stealtime lmsensors infiniband powercap"
(add-before 'configure 'autoconf (add-before 'configure 'autoconf
(lambda _ (lambda _
(chdir "src") (chdir "src")
(zero? (system* "autoconf")))) (invoke "autoconf")
#t))
;; Amalgamating with the following clause gives double substitution. ;; Amalgamating with the following clause gives double substitution.
(add-before 'patch-source-shebangs 'patch-components (add-before 'patch-source-shebangs 'patch-components
(lambda _ (lambda _
@ -95,26 +97,24 @@ stealtime lmsensors infiniband powercap"
(add-after 'configure 'components (add-after 'configure 'components
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(with-directory-excursion "components" (with-directory-excursion "components"
(and (with-directory-excursion "infiniband_umad"
(with-directory-excursion "infiniband_umad" (invoke "./configure"))
(zero? (system* "./configure"))) (with-directory-excursion "lmsensors"
(with-directory-excursion "lmsensors" (let ((base (assoc-ref inputs "lm-sensors")))
(let ((base (assoc-ref inputs "lm-sensors"))) (invoke "./configure"
(zero? (string-append "--with-sensors_incdir="
(system* base "/include/sensors")
"./configure" (string-append "--with-sensors_libdir="
(string-append "--with-sensors_incdir=" base base "/lib")))))
"/include/sensors") #t))
(string-append "--with-sensors_libdir=" base "/lib")))))))))
(add-after 'install 'extra-doc (add-after 'install 'extra-doc
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((doc (string-append (assoc-ref outputs "out") (let ((doc (string-append (assoc-ref outputs "out")
"/share/doc"))) "/share/doc")))
(mkdir-p doc)
(chdir "..") ; we went into src above (chdir "..") ; we went into src above
(for-each (lambda (file) (for-each (lambda (file)
(install-file file doc)) (install-file file doc))
'("README" "RELEASENOTES.txt" "LICENSE.txt")) '("README" "RELEASENOTES.txt"))
#t)))))) #t))))))
(home-page "http://icl.cs.utk.edu/papi/") (home-page "http://icl.cs.utk.edu/papi/")
(synopsis "Performance Application Programming Interface") (synopsis "Performance Application Programming Interface")