482 lines
20 KiB
Scheme
482 lines
20 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
|
;;; Copyright © 2017 Dave Love <fx@gnu.org>
|
|
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
|
|
;;; Copyright © 2022 Ludovic Courtès <ludo@gnu.org>
|
|
;;; Copyright © 2023 dan <i@dan.games>
|
|
;;;
|
|
;;; This file is part of GNU Guix.
|
|
;;;
|
|
;;; GNU Guix is free software; you can redistribute it and/or modify it
|
|
;;; under the terms of the GNU General Public License as published by
|
|
;;; the Free Software Foundation; either version 3 of the License, or (at
|
|
;;; your option) any later version.
|
|
;;;
|
|
;;; GNU Guix is distributed in the hope that it will be useful, but
|
|
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;;; GNU General Public License for more details.
|
|
;;;
|
|
;;; You should have received a copy of the GNU General Public License
|
|
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
(define-module (gnu packages profiling)
|
|
#:use-module (guix packages)
|
|
#:use-module (guix gexp)
|
|
#:use-module (guix git-download)
|
|
#:use-module ((guix licenses) #:prefix license:) ; avoid zlib, expat clashes
|
|
#:use-module (guix download)
|
|
#:use-module (guix utils)
|
|
#:use-module (guix build-system gnu)
|
|
#:use-module (gnu packages)
|
|
#:use-module (gnu packages autotools)
|
|
#:use-module (gnu packages base) ;for "which"
|
|
#:use-module (gnu packages bash) ;for "which"
|
|
#:use-module (gnu packages bison)
|
|
#:use-module (gnu packages compression)
|
|
#:use-module (gnu packages documentation)
|
|
#:use-module (gnu packages engineering)
|
|
#:use-module (gnu packages fabric-management)
|
|
#:use-module (gnu packages flex)
|
|
#:use-module (gnu packages fontutils)
|
|
#:use-module (gnu packages freedesktop)
|
|
#:use-module (gnu packages gawk)
|
|
#:use-module (gnu packages gcc)
|
|
#:use-module (gnu packages gl)
|
|
#:use-module (gnu packages glib)
|
|
#:use-module (gnu packages libunwind)
|
|
#:use-module (gnu packages linux)
|
|
#:use-module (gnu packages mpi)
|
|
#:use-module (gnu packages ncurses)
|
|
#:use-module (gnu packages perl)
|
|
#:use-module (gnu packages pkg-config)
|
|
#:use-module (gnu packages python)
|
|
#:use-module (gnu packages qt)
|
|
#:use-module (gnu packages xdisorg))
|
|
|
|
;; Fixme: Separate out lib and fix resulting cycle errors; separate libpfm
|
|
;; output(?); build libmsr and add that component.
|
|
(define-public papi
|
|
(package
|
|
(name "papi")
|
|
(version "6.0.0.1")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://icl.utk.edu/projects/papi/downloads/papi-"
|
|
version ".tar.gz"))
|
|
(sha256
|
|
(base32 "0zr83v51lp4ijgk997dz9fpph48prlsbml26dvb223avqr8fvmrw"))
|
|
(modules '((guix build utils)))
|
|
(snippet
|
|
'(begin
|
|
;; Remove bundled software.
|
|
(for-each delete-file-recursively
|
|
'("src/libpfm-3.y" "src/libpfm4"
|
|
"src/perfctr-2.6.x"
|
|
"src/perfctr-2.7.x"))
|
|
|
|
;; Adjust include directives.
|
|
(substitute* "src/components/lmsensors/linux-lmsensors.c"
|
|
(("<sensors.h>")
|
|
"<sensors/sensors.h>"))))))
|
|
(build-system gnu-build-system)
|
|
(inputs
|
|
(list ncurses
|
|
rdma-core
|
|
libpfm4
|
|
`(,lm-sensors "lib")
|
|
`(,infiniband-diags "lib")
|
|
net-tools))
|
|
(native-inputs
|
|
(list gfortran))
|
|
(arguments
|
|
(list #:tests? #f ;no check target
|
|
#:configure-flags
|
|
;; These are roughly per Fedora, but elide mx (assumed to be dead, even
|
|
;; Open-MX) and add and powercap -- I don't know the pros/cons of
|
|
;; infiniband and infiniband_mad, but you can't use them together, and
|
|
;; the umad version needs at least one patch.
|
|
;; Implicit enabled components: perf_event perf_event_uncore
|
|
#~`("--with-perf-events" "--with-shared-lib=yes" "--with-shlib"
|
|
"--with-static-lib=no" "--with-shlib-tools"
|
|
"--with-components=appio coretemp example lustre micpower net rapl \
|
|
stealtime lmsensors infiniband powercap"
|
|
;; So utils get rpath set correctly:
|
|
,(string-append "LDFLAGS=-Xlinker -rpath -Xlinker "
|
|
#$output "/lib")
|
|
,(string-append "--with-pfm-prefix="
|
|
#$(this-package-input "libpfm4")))
|
|
|
|
#:phases
|
|
#~(modify-phases %standard-phases
|
|
(add-after 'unpack 'change-directory
|
|
(lambda _
|
|
(chdir "src")
|
|
|
|
;; Work around a mistake whereby 'configure' would always error
|
|
;; out when passing '--with-static-lib=no'.
|
|
(substitute* "configure"
|
|
(("test \"\\$static_lib\" = \"no\"")
|
|
"false"))))
|
|
(add-after 'install 'extra-doc
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(let ((doc (string-append (assoc-ref outputs "out")
|
|
"/share/doc/"
|
|
#$name "-" #$version)))
|
|
(chdir "..") ; we went into src above
|
|
(for-each (lambda (file)
|
|
(install-file file doc))
|
|
'("README.md" "RELEASENOTES.txt"))))))))
|
|
(home-page "https://icl.utk.edu/papi/")
|
|
(synopsis "Performance Application Programming Interface")
|
|
(description
|
|
"PAPI provides the tool designer and application engineer with a consistent
|
|
interface and methodology for use of the performance counter hardware found in
|
|
most major microprocessors. PAPI enables software engineers to see, in near
|
|
real time, the relation between software performance and processor events.
|
|
|
|
In addition, PAPI provides access to a collection of components that expose
|
|
performance measurement opportunites across the hardware and software stack.")
|
|
(properties
|
|
'((release-monitoring-url
|
|
. "http://icl.cs.utk.edu/papi/software/")))
|
|
;; See Debian papi copyright file.
|
|
(license (list license:bsd-3
|
|
license:lgpl2.1+ ;src/components/infiniband/pscanf.h
|
|
;; not used in output
|
|
license:gpl2+ ;src/components/appio/tests/iozone/gengnuplot.sh
|
|
))))
|
|
|
|
;; NB. there's a potential name clash with libotf.
|
|
(define-public otf2
|
|
(package
|
|
(name "otf2")
|
|
(version "2.1.1")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "http://www.vi-hps.org/upload/packages/otf2/otf2-"
|
|
version ".tar.gz"))
|
|
(sha256 (base32 "1ls7rz6qwnqbkifpafc95bnfh3m9xbs74in8zxlnhfbgwx11nn81"))))
|
|
(native-inputs (list python))
|
|
(outputs '("doc" ; 18MB
|
|
"lib"
|
|
"out"))
|
|
(build-system gnu-build-system)
|
|
(arguments
|
|
`(#:configure-flags '("--enable-shared" "--disable-static")
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(add-after 'install 'licence
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(for-each (lambda (output)
|
|
(let ((doc (string-append (assoc-ref outputs output)
|
|
"/share/doc/otf2")))
|
|
(install-file "COPYING" doc)))
|
|
'("lib" "doc"))
|
|
#t)))))
|
|
(home-page "https://www.vi-hps.org/projects/score-p/")
|
|
(synopsis "Open Trace Format 2 library")
|
|
(description "The Open Trace Format 2 (@dfn{OTF2}) is a scalable,
|
|
memory-efficient event trace data format plus support library.")
|
|
(license license:bsd-3)))
|
|
|
|
(define-public opari2
|
|
(package
|
|
(name "opari2")
|
|
(version "2.0.5")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://www.vi-hps.org/cms/upload/packages/opari2/"
|
|
"opari2-" version ".tar.gz"))
|
|
(sha256
|
|
(base32 "1xaf25lcxk4ky1kzfks40ja9mayh8pnmrzch2107c8dcjrsxsd4h"))))
|
|
(build-system gnu-build-system)
|
|
(inputs (list gfortran))
|
|
(native-inputs (list gawk ; for tests
|
|
which))
|
|
(home-page "https://www.vi-hps.org/projects/score-p")
|
|
(synopsis "OpenMP runtime performance measurement instrumenter")
|
|
(description "OPARI2 is a source-to-source instrumentation tool for OpenMP
|
|
and hybrid codes. It surrounds OpenMP directives and runtime library calls
|
|
with calls to the POMP2 measurement interface.")
|
|
(license license:bsd-3)))
|
|
|
|
(define-public cube
|
|
(package
|
|
(name "cube")
|
|
(version "4.3.5")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append
|
|
"http://apps.fz-juelich.de/scalasca/releases/cube/4.3/dist/cube-"
|
|
version ".tar.gz"))
|
|
(sha256 (base32 "04irflia4rfw02093w9nx7rr98r640y4q8hisjywvd4b7r3nzhhx"))
|
|
(patches (search-patches "cube-nocheck.patch"))))
|
|
(inputs (list dbus zlib))
|
|
(native-inputs (list perl qtbase-5 ; native because of qmake
|
|
which))
|
|
|
|
;; FIXME: The doc is 14MB, but adding a doc output results in a cycle.
|
|
(outputs '("out" ;"doc"
|
|
"lib"))
|
|
|
|
(build-system gnu-build-system)
|
|
(arguments
|
|
`(#:configure-flags
|
|
`("--enable-shared" "--disable-static" "--disable-silent-rules"
|
|
,(string-append "LDFLAGS=-L" (assoc-ref %outputs "lib") "/lib"))
|
|
#:parallel-tests? #f
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(add-after 'configure 'rpath
|
|
;; Account for moving GUI stuff
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(let ((wl (string-append "-Wl,-rpath=" (assoc-ref outputs "out")
|
|
"/lib")))
|
|
(substitute* "build-backend/Makefile"
|
|
(("^cube_LDFLAGS =") (string-append "cube_LDFLAGS = " wl))
|
|
(("^libheatmap_plugin_la_LDFLAGS =")
|
|
(string-append "libheatmap_plugin_la_LDFLAGS = " wl))
|
|
(("^libbarplot_plugin_la_LDFLAGS =")
|
|
(string-append "libbarplot_plugin_la_LDFLAGS = " wl)))
|
|
#t)))
|
|
(add-before 'install 'includes-cube
|
|
;; It tries to install here before include exists.
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(let ((inc (string-append (assoc-ref outputs "lib") "/include")))
|
|
(mkdir-p (string-append inc "/cube"))
|
|
(mkdir-p (string-append inc "/cubew"))
|
|
#t)))
|
|
(add-after 'install 'licence
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(let ((doc (string-append (assoc-ref outputs "lib")
|
|
"/share/doc/cube")))
|
|
(install-file "COPYING" doc)
|
|
#t)))
|
|
;; XXX: Commented due to cycle (see comment above.)
|
|
;; (add-after 'install 'doc
|
|
;; (lambda _
|
|
;; (let ((share (string-append (assoc-ref %outputs "doc")
|
|
;; "/share")))
|
|
;; (mkdir-p share)
|
|
;; (rename-file (string-append %output "/share/doc")
|
|
;; (string-append share "/doc")))))
|
|
(add-after 'install 'gui-stuff
|
|
;; Get the Qt horror dependencies out of the lib closure
|
|
(lambda _
|
|
(let ((outlib (string-append (assoc-ref %outputs "out") "/lib"))
|
|
(lib (string-append (assoc-ref %outputs "lib") "/lib")))
|
|
(mkdir-p outlib)
|
|
(rename-file (string-append lib "/cube-plugins")
|
|
(string-append outlib "/cube-plugins"))
|
|
(for-each (lambda (file)
|
|
(rename-file
|
|
file (string-append outlib "/" (basename file))))
|
|
(append (find-files lib "libgraphwidgetcommon-plugin\\..*")
|
|
(find-files lib "libcube4gui\\.so.*")))
|
|
#t)))
|
|
(add-after 'install 'move-include
|
|
;; Most of the headers end up under %output for some reason,
|
|
;; despite --includedir in configure.
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(let ((outinc (string-append (assoc-ref outputs "out")
|
|
"/include"))
|
|
(libinc (string-append (assoc-ref outputs "lib")
|
|
"/include")))
|
|
(for-each (lambda (file)
|
|
(let ((from (string-append outinc "/" file)))
|
|
(copy-recursively from libinc)
|
|
(delete-file-recursively from)))
|
|
'("cube" "cubew"))
|
|
#t)))
|
|
|
|
;; XXX: This doesn't work because cube-config, which is needed for
|
|
;; building stuff, sources cube-config-frontend. We don't want that
|
|
;; in the lib output because it pulls in >1GB via QT.
|
|
;;
|
|
;; (add-after 'install 'cube-config
|
|
;; (lambda _
|
|
;; (let* ((lib (assoc-ref %outputs "lib"))
|
|
;; (libbin (string-append lib "/bin")))
|
|
;; (mkdir-p libbin)
|
|
;; (system (string-append "mv " (assoc-ref %outputs "out")
|
|
;; "/bin/cube-config* " libbin))
|
|
;; (substitute* (list (string-append libbin "/cube-config"))
|
|
;; (("^prefix=.*") (string-append "prefix=" lib))
|
|
;; (("^exec_prefix=\"\\$\\{prefix\\}\"")
|
|
;; (string-append "exec_prefix=" lib))))))
|
|
(add-after 'install 'cube-config
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(let* ((lib (assoc-ref outputs "lib"))
|
|
(libbin (string-append lib "/bin")))
|
|
(mkdir-p libbin)
|
|
(install-file (string-append %output "/bin/cube-config") libbin)
|
|
(install-file (string-append %output "/bin/cube-config-backend")
|
|
libbin)
|
|
(substitute* (list (string-append libbin "/cube-config"))
|
|
(("^source .*frontend.*$") "")
|
|
(((assoc-ref outputs "out")) lib))
|
|
#t))))))
|
|
(home-page "https://www.scalasca.org/software/cube-4.x/download.html")
|
|
(synopsis "Performance report explorer for parallel programs")
|
|
(description
|
|
"CUBE (CUBE Uniform Behavioral Encoding) is a tool to display a variety
|
|
of performance metrics for parallel programs including MPI and OpenMP
|
|
applications. CUBE allows interactive exploration of a multidimensional
|
|
performance space in a scalable fashion. Scalability is achieved in two ways:
|
|
hierarchical decomposition of individual dimensions and aggregation across
|
|
different dimensions. All performance metrics are uniformly accommodated in
|
|
the same display and thus provide the ability to easily compare the effects of
|
|
different kinds of performance behavior.")
|
|
(license license:bsd-3)))
|
|
|
|
(define (make-scorep mpi)
|
|
(package
|
|
(name (string-append "scorep-" (package-name mpi)))
|
|
(version "3.1")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append
|
|
"http://www.vi-hps.org/upload/packages/scorep/scorep-"
|
|
version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"0h45357djna4dn9jyxx0n36fhhms3jrf22988m9agz1aw2jfivs9"))
|
|
(modules '((guix build utils)))
|
|
(snippet
|
|
;; Remove bundled software.
|
|
'(begin
|
|
(for-each delete-file-recursively
|
|
'("vendor/opari2" "vendor/cube"))
|
|
#t))))
|
|
(build-system gnu-build-system)
|
|
(inputs
|
|
`(("mpi" ,mpi)
|
|
("papi" ,papi)
|
|
("opari2" ,opari2)
|
|
("libunwind" ,libunwind)
|
|
("otf2" ,otf2)
|
|
("cubelib" ,cube "lib") ;for lib, include
|
|
("openmpi" ,openmpi)
|
|
("zlib" ,zlib)))
|
|
(native-inputs
|
|
(list gfortran
|
|
flex
|
|
cube ;for cube-config
|
|
bison
|
|
python
|
|
doxygen
|
|
which))
|
|
(arguments
|
|
`(#:configure-flags
|
|
(list "--enable-shared" "--disable-static"
|
|
(string-append "--with-opari2="
|
|
(assoc-ref %build-inputs "opari2"))
|
|
(string-append "--with-cube="
|
|
(assoc-ref %build-inputs "cube")))
|
|
#:parallel-tests? #f
|
|
#:make-flags '("V=1")
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(add-after 'install 'licence
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(let ((doc (string-append (assoc-ref outputs "out")
|
|
"/share/doc/scorep")))
|
|
(install-file "COPYING" doc)
|
|
#t))))))
|
|
(home-page "https://www.vi-hps.org/projects/score-p/")
|
|
(synopsis "Performance measurement infrastructure for parallel code")
|
|
(description
|
|
"The Score-P (Scalable Performance Measurement Infrastructure for
|
|
Parallel Codes) measurement infrastructure is a scalable and easy-to-use tool
|
|
suite for profiling, event trace recording, and online analysis of
|
|
high-performance computing (HPC) applications.")
|
|
(license license:cpl1.0)))
|
|
|
|
(define-public scorep-openmpi (make-scorep openmpi))
|
|
|
|
(define-public tracy-wayland
|
|
(package
|
|
(name "tracy-wayland")
|
|
(version "0.10")
|
|
(source
|
|
(origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://github.com/wolfpld/tracy")
|
|
(commit (string-append "v" version))))
|
|
(sha256
|
|
(base32
|
|
"1w50bckvs1nn68amzrkyrh769dhmlhk7w00kr8ac5h9ryk349p8c"))
|
|
(file-name (git-file-name "tracy" version))
|
|
(modules '((guix build utils)))
|
|
(snippet
|
|
'(begin
|
|
;; XXX: Sadly, the ImGui loaders appear to have been customized by
|
|
;; the project and the build fails when using the 'imgui' Guix
|
|
;; package due to a missing GL_TEXTURE_WRAP_S definition, so keep
|
|
;; the bundled copy.
|
|
|
|
;; Unbundle Zstd.
|
|
(delete-file-recursively "zstd")
|
|
;; Adjust the include directives.
|
|
(substitute* (find-files "server" "\\.(c|h)pp$")
|
|
(("#include \".*zstd/(zstd|zdict).h\"" _ header)
|
|
(format #f "#include \"~a.h\"" header)))
|
|
;; De-register source files from Visual Code project.
|
|
(substitute* "profiler/build/win32/Tracy.vcxproj"
|
|
((".*Include=\"..\\\\..\\\\..\\\\zstd\\\\.*") ""))))))
|
|
;; Note: There is also CMake and Meson support, but only to build the
|
|
;; tracy library, not the profiler command.
|
|
(build-system gnu-build-system)
|
|
(arguments
|
|
(list
|
|
#:tests? #f ;no test for the profiler
|
|
#:make-flags
|
|
#~(list (string-append "CC=" #$(cc-for-target))
|
|
(string-append "CFLAGS=-lzstd"))
|
|
#:phases
|
|
#~(modify-phases %standard-phases
|
|
(add-before 'build 'chdir
|
|
(lambda _
|
|
(chdir "profiler/build/unix")))
|
|
(delete 'configure) ;the profiler has no configure script
|
|
(replace 'install
|
|
(lambda _
|
|
(let ((bin (string-append #$output "/bin"))
|
|
(tracy (string-append #$output "/bin/tracy")))
|
|
(mkdir-p bin)
|
|
(copy-file "Tracy-release" tracy)))))))
|
|
(inputs (list capstone
|
|
dbus
|
|
freetype
|
|
libxkbcommon
|
|
mesa
|
|
wayland
|
|
`(,zstd "lib")))
|
|
(native-inputs (list pkg-config))
|
|
(home-page "https://github.com/wolfpld/tracy")
|
|
(synopsis "Frame profiler")
|
|
(description
|
|
"A real time, nanosecond resolution, remote telemetry, hybrid frame and
|
|
sampling profiler for games and other applications.")
|
|
(license license:bsd-3)))
|
|
|
|
(define-public tracy
|
|
(package;xb
|
|
(inherit tracy-wayland)
|
|
(name "tracy")
|
|
(arguments
|
|
(substitute-keyword-arguments (package-arguments tracy-wayland)
|
|
((#:make-flags flags #~'())
|
|
#~(append #$flags
|
|
;; The LEGACY flag indicate we want to build tracy with glfw.
|
|
(list "LEGACY=1")))))
|
|
(inputs (modify-inputs (package-inputs tracy-wayland)
|
|
(delete "libxkbcommon" "wayland")
|
|
(prepend glfw)))
|
|
(synopsis "Frame profiler (X11 version)")))
|