Commit | Line | Data |
---|---|---|
c3ccba92 | 1 | ;;; GNU Guix --- Functional package management for GNU |
ac6fec05 | 2 | ;;; Copyright © 2016, 2017 Marius Bakke <mbakke@fastmail.com> |
04717e94 | 3 | ;;; Copyright © 2017 Dave Love <fx@gnu.org> |
28548efe | 4 | ;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> |
61e265d2 | 5 | ;;; Copyright © 2018, 2019 Ricardo Wurmus <rekado@elephly.net> |
4b444fc5 | 6 | ;;; Copyright © 2019 Eric Bavier <bavier@member.fsf.org> |
4c7e8c23 | 7 | ;;; Copyright © 2019 Gábor Boskovits <boskovits@gmail.com> |
c3ccba92 MB |
8 | ;;; |
9 | ;;; This file is part of GNU Guix. | |
10 | ;;; | |
11 | ;;; GNU Guix is free software; you can redistribute it and/or modify it | |
12 | ;;; under the terms of the GNU General Public License as published by | |
13 | ;;; the Free Software Foundation; either version 3 of the License, or (at | |
14 | ;;; your option) any later version. | |
15 | ;;; | |
16 | ;;; GNU Guix is distributed in the hope that it will be useful, but | |
17 | ;;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 | ;;; GNU General Public License for more details. | |
20 | ;;; | |
21 | ;;; You should have received a copy of the GNU General Public License | |
22 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. | |
23 | ||
24 | (define-module (gnu packages benchmark) | |
25 | #:use-module ((guix licenses) #:prefix license:) | |
26 | #:use-module (guix packages) | |
27 | #:use-module (guix download) | |
4b444fc5 | 28 | #:use-module (guix git-download) |
4c7e8c23 | 29 | #:use-module (guix build-system cmake) |
c3ccba92 | 30 | #:use-module (guix build-system gnu) |
4c7e8c23 GB |
31 | #:use-module (gnu packages) |
32 | #:use-module (gnu packages check) | |
c3ccba92 | 33 | #:use-module (gnu packages compression) |
ac6fec05 MB |
34 | #:use-module (gnu packages linux) |
35 | #:use-module (gnu packages maths) | |
04717e94 | 36 | #:use-module (gnu packages mpi) |
aadead6f | 37 | #:use-module (gnu packages python) |
44d10b1f | 38 | #:use-module (gnu packages python-xyz) |
04717e94 DL |
39 | #:use-module (gnu packages storage) |
40 | #:use-module (ice-9 match)) | |
c3ccba92 MB |
41 | |
42 | (define-public fio | |
43 | (package | |
44 | (name "fio") | |
28548efe | 45 | (version "3.14") |
c3ccba92 MB |
46 | (source (origin |
47 | (method url-fetch) | |
f715f102 | 48 | (uri (string-append "http://brick.kernel.dk/snaps/" |
b31e1561 | 49 | "fio-" version ".tar.bz2")) |
c3ccba92 MB |
50 | (sha256 |
51 | (base32 | |
28548efe | 52 | "047y53nyhnmnxcrsfbsf0gcpxw7bli3n19ycscpxy9974j0fck0v")))) |
c3ccba92 MB |
53 | (build-system gnu-build-system) |
54 | (arguments | |
cf46d071 | 55 | '(#:test-target "test" |
c3ccba92 MB |
56 | #:phases |
57 | (modify-phases %standard-phases | |
ac6fec05 MB |
58 | (add-after |
59 | 'unpack 'patch-paths | |
60 | (lambda* (#:key inputs outputs #:allow-other-keys) | |
61 | (let ((out (assoc-ref outputs "out")) | |
62 | (gnuplot (string-append (assoc-ref inputs "gnuplot") | |
63 | "/bin/gnuplot"))) | |
64 | (substitute* "tools/plot/fio2gnuplot" | |
65 | (("/usr/share/fio") (string-append out "/share/fio")) | |
66 | ;; FIXME (upstream): The 'gnuplot' executable is used inline | |
67 | ;; in various os.system() calls mixed with *.gnuplot filenames. | |
68 | (("; do gnuplot") (string-append "; do " gnuplot)) | |
69 | (("gnuplot mymath") (string-append gnuplot " mymath")) | |
70 | (("gnuplot mygraph") (string-append gnuplot " mygraph"))) | |
71 | #t))) | |
c3ccba92 MB |
72 | (replace 'configure |
73 | (lambda* (#:key outputs #:allow-other-keys) | |
74 | ;; The configure script doesn't understand some of the | |
75 | ;; GNU options, so we can't use #:configure-flags. | |
76 | (let ((out (assoc-ref outputs "out"))) | |
1cc3e26b TGR |
77 | (invoke "./configure" |
78 | (string-append "--prefix=" out)) | |
79 | #t))) | |
f125ec8e MB |
80 | ;; The main `fio` executable is fairly small and self contained. |
81 | ;; Moving the auxiliary python and gnuplot scripts to a separate | |
82 | ;; output saves almost 400 MiB on the closure. | |
83 | (add-after 'install 'move-outputs | |
84 | (lambda* (#:key outputs #:allow-other-keys) | |
85 | (let ((oldbin (string-append (assoc-ref outputs "out") "/bin")) | |
86 | (newbin (string-append (assoc-ref outputs "utils") "/bin"))) | |
87 | (mkdir-p newbin) | |
88 | (for-each (lambda (file) | |
89 | (let ((src (string-append oldbin "/" file)) | |
90 | (dst (string-append newbin "/" file))) | |
91 | (link src dst) | |
92 | (delete-file src))) | |
20d2e1fa MB |
93 | '("fio2gnuplot" "fiologparser_hist.py" |
94 | "fiologparser.py")) | |
f125ec8e MB |
95 | ;; Make sure numpy et.al is found. |
96 | (wrap-program (string-append newbin "/fiologparser_hist.py") | |
97 | `("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH")))) | |
98 | #t)))))) | |
99 | (outputs '("out" "utils")) | |
c3ccba92 | 100 | (inputs |
aadead6f MB |
101 | `(("ceph" ,ceph "lib") |
102 | ("libaio" ,libaio) | |
ac6fec05 MB |
103 | ("gnuplot" ,gnuplot) |
104 | ("zlib" ,zlib) | |
105 | ("python-numpy" ,python2-numpy) | |
106 | ("python-pandas" ,python2-pandas) | |
107 | ("python" ,python-2))) | |
c3ccba92 MB |
108 | (home-page "https://github.com/axboe/fio") |
109 | (synopsis "Flexible I/O tester") | |
110 | (description | |
111 | "fio is a tool that will spawn a number of threads or processes doing a | |
112 | particular type of I/O action as specified by the user. The typical use of fio | |
113 | is to write a job file matching the I/O load one wants to simulate.") | |
114 | ;; The software is distributed under the GPL2, but a handful of components | |
115 | ;; are covered by other licenses. | |
116 | (license (list license:gpl2 license:gpl2+ license:bsd-2 | |
117 | license:public-domain)))) | |
04717e94 DL |
118 | |
119 | ;; Parameterized in anticipation of m(va)pich support | |
120 | (define (imb mpi) | |
121 | (package | |
122 | (name (string-append "imb-" (package-name mpi))) | |
4b444fc5 | 123 | (version "2019.1") |
04717e94 DL |
124 | (source |
125 | (origin | |
4b444fc5 EB |
126 | (method git-fetch) |
127 | (uri (git-reference | |
128 | (url "https://github.com/intel/mpi-benchmarks.git") | |
129 | (commit (string-append "v" version)))) | |
130 | (file-name (git-file-name name version)) | |
131 | (sha256 (base32 "18hfdyvl5i172gadiq9si1qxif5rvic0lifxpbrr7s59ylg8f9c4")))) | |
04717e94 DL |
132 | (build-system gnu-build-system) |
133 | (inputs | |
134 | `(("mpi" ,mpi))) | |
135 | (arguments | |
136 | `(#:phases | |
137 | (modify-phases %standard-phases | |
138 | (delete 'configure) | |
139 | (delete 'check) | |
140 | (replace 'build | |
141 | (lambda* (#:key inputs #:allow-other-keys) | |
142 | (let ((mpi-home (assoc-ref inputs "mpi"))) | |
4b444fc5 EB |
143 | ;; Override default parallelism |
144 | (substitute* "Makefile" | |
145 | (("make -j[[:digit:]]+") | |
146 | (format #f "make -j~d" (parallel-job-count)))) | |
147 | (invoke "make" "SHELL=sh" "CC=mpicc" "CXX=mpic++")))) | |
04717e94 DL |
148 | (replace 'install |
149 | (lambda* (#:key outputs #:allow-other-keys) | |
150 | (let* ((out (assoc-ref outputs "out")) | |
04717e94 | 151 | (bin (string-append out "/bin"))) |
4b444fc5 EB |
152 | (for-each |
153 | (lambda (file) | |
154 | (install-file file bin)) | |
155 | '("IMB-IO" "IMB-EXT" "IMB-MPI1" "IMB-NBC" "IMB-RMA" "IMB-MT"))) | |
04717e94 DL |
156 | #t))))) |
157 | (home-page "https://software.intel.com/en-us/articles/intel-mpi-benchmarks") | |
158 | (synopsis "Intel MPI Benchmarks") | |
159 | (description | |
160 | "This package provides benchmarks for implementations of the @dfn{Message | |
161 | Passing Interface} (MPI). It contains MPI performance measurements for | |
162 | point-to-point and global communication, and file, operations for a range of | |
163 | message sizes. The generated benchmark data fully characterize: | |
164 | ||
165 | @itemize | |
166 | @item | |
167 | Performance of a cluster system, including node performance, network latency, | |
168 | and throughput; | |
169 | @item | |
170 | Efficiency of the MPI implementation. | |
171 | @end itemize") | |
172 | (license license:cpl1.0))) | |
173 | ||
174 | (define-public imb-openmpi (imb openmpi)) | |
61e265d2 RW |
175 | |
176 | (define-public multitime | |
177 | (package | |
178 | (name "multitime") | |
179 | (version "1.4") | |
180 | (source (origin | |
181 | (method url-fetch) | |
182 | (uri (string-append "https://tratt.net/laurie/src/" | |
183 | "multitime/releases/" | |
184 | "multitime-" version ".tar.gz")) | |
185 | (sha256 | |
186 | (base32 | |
187 | "0iyfsdrbyqa7a4ifrh19l9a48hgv7ld6m0d8yf9bkl12q0qw91fx")))) | |
188 | (build-system gnu-build-system) | |
189 | (arguments '(#:tests? #f)) ; there are no tests | |
190 | (home-page "https://tratt.net/laurie/src/multitime/") | |
191 | (synopsis "Time command execution over multiple executions") | |
192 | (description | |
193 | "The @code{time} utility is a simple and often effective way of measuring | |
194 | how long a command takes to run (wall time). Unfortunately, running a command | |
195 | once can give misleading timings. @code{multitime} is, in essence, a simple | |
196 | extension to @code{time} which runs a command multiple times and prints the | |
197 | timing means, standard deviations, mins, medians, and maxes having done so. | |
198 | This can give a much better understanding of the command's performance.") | |
199 | (license license:expat))) | |
4c7e8c23 GB |
200 | |
201 | (define-public benchmark | |
202 | (package | |
203 | (name "benchmark") | |
204 | (version "1.5.0") | |
205 | (source (origin | |
206 | (method git-fetch) | |
207 | (uri (git-reference | |
208 | (url "https://github.com/google/benchmark.git") | |
209 | (commit (string-append "v" version)))) | |
210 | (file-name (git-file-name name version)) | |
211 | (sha256 | |
212 | (base32 | |
213 | "0r9dbg4cbk47gwmayys31a83m3y67k0kh1f6pl8i869rbd609ndh")) | |
214 | (patches (search-patches "benchmark-unbundle-googletest.patch")))) | |
215 | (build-system cmake-build-system) | |
216 | (native-inputs | |
217 | `(("googletest" ,googletest))) | |
218 | (home-page "https://github.com/google/benchmark") | |
219 | (synopsis "Microbenchmark support library") | |
220 | (description | |
221 | "Benchmark is a library to benchmark code snippets, | |
222 | similar to unit tests.") | |
223 | (license license:asl2.0))) |