;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016, 2017 Marius Bakke <mbakke@fastmail.com>
+;;; Copyright © 2017 Dave Love <fx@gnu.org>
+;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
+;;; Copyright © 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
+;;; Copyright © 2019 Eric Bavier <bavier@member.fsf.org>
+;;; Copyright © 2019 Gábor Boskovits <boskovits@gmail.com>
+;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix download)
+ #:use-module (guix git-download)
+ #:use-module (guix build-system cmake)
#:use-module (guix build-system gnu)
+ #:use-module (gnu packages)
+ #:use-module (gnu packages check)
#:use-module (gnu packages compression)
#:use-module (gnu packages linux)
#:use-module (gnu packages maths)
- #:use-module (gnu packages python))
+ #:use-module (gnu packages mpi)
+ #:use-module (gnu packages perl)
+ #:use-module (gnu packages python)
+ #:use-module (gnu packages python-science)
+ #:use-module (gnu packages python-xyz)
+ #:use-module (gnu packages storage)
+ #:use-module (ice-9 match))
(define-public fio
(package
(name "fio")
- (version "2.18")
+ (version "3.22")
(source (origin
(method url-fetch)
- (uri (string-append
- "http://brick.kernel.dk/snaps/"
- "fio-" version ".tar.bz2"))
+ (uri (string-append "https://brick.kernel.dk/snaps/"
+ "fio-" version ".tar.bz2"))
(sha256
(base32
- "08kx2mh556xby9saayrbynwrkmh4v8wwrw759nbv025ch3xbw79n"))))
+ "0f2x917600y6k0xs34ixgfjm4v1ylbh8svpkqi07xy3474g5s2rv"))))
(build-system gnu-build-system)
(arguments
'(#:test-target "test"
;; The configure script doesn't understand some of the
;; GNU options, so we can't use #:configure-flags.
(let ((out (assoc-ref outputs "out")))
- (zero? (system* "./configure"
- (string-append "--prefix=" out))))))
- (add-after
- 'install 'wrap-python-scripts
- (lambda* (#:key inputs outputs #:allow-other-keys)
- (let ((out (assoc-ref outputs "out")))
- (wrap-program (string-append out "/bin/fiologparser_hist.py")
- `("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH"))))
- #t))))))
+ (invoke "./configure"
+ (string-append "--prefix=" out))
+ #t)))
+ ;; The main `fio` executable is fairly small and self contained.
+ ;; Moving the auxiliary python and gnuplot scripts to a separate
+ ;; output saves almost 400 MiB on the closure.
+ (add-after 'install 'move-outputs
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let ((oldbin (string-append (assoc-ref outputs "out") "/bin"))
+ (newbin (string-append (assoc-ref outputs "utils") "/bin")))
+ (mkdir-p newbin)
+ (for-each (lambda (file)
+ (let ((src (string-append oldbin "/" file))
+ (dst (string-append newbin "/" file)))
+ (link src dst)
+ (delete-file src)))
+ '("fio2gnuplot" "fiologparser_hist.py"
+ "fiologparser.py"))
+ ;; Make sure numpy et.al is found.
+ (wrap-program (string-append newbin "/fiologparser_hist.py")
+ `("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH"))))
+ #t))))))
+ (outputs '("out" "utils"))
(inputs
- `(("libaio" ,libaio)
+ `(("ceph" ,ceph "lib")
+ ("libaio" ,libaio)
("gnuplot" ,gnuplot)
("zlib" ,zlib)
("python-numpy" ,python2-numpy)
;; are covered by other licenses.
(license (list license:gpl2 license:gpl2+ license:bsd-2
license:public-domain))))
+
+;; Parameterized in anticipation of m(va)pich support
+(define (intel-mpi-benchmarks mpi)
+ (package
+ (name (string-append "intel-mpi-benchmarks"
+ (if (string=? (package-name mpi) "openmpi")
+ ""
+ (string-append "-" (package-name mpi)))))
+ (version "2019.3")
+ (source (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/intel/mpi-benchmarks")
+ (commit (string-append "IMB-v" version))))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32
+ "0si5xi6ilhd3w0gbsg124589pvp094hvf366rvjjb9pi7pdk5p4i"))))
+ (build-system gnu-build-system)
+ (inputs
+ `(("mpi" ,mpi)))
+ (arguments
+ `(#:phases
+ (modify-phases %standard-phases
+ (delete 'configure)
+ (delete 'check)
+ (replace 'install
+ (lambda* (#:key outputs #:allow-other-keys)
+ (define (benchmark? file stat)
+ (and (string-prefix? "IMB-" (basename file))
+ (executable-file? file)))
+
+ (let* ((out (assoc-ref outputs "out"))
+ (bin (string-append out "/bin")))
+ (for-each (lambda (file)
+ (install-file file bin))
+ (find-files "." benchmark?))
+ #t))))
+
+ ;; The makefile doesn't express all the dependencies, it seems.
+ #:parallel-build? #t
+
+ #:make-flags '("CC=mpicc" "CXX=mpicxx")))
+ (home-page "https://software.intel.com/en-us/articles/intel-mpi-benchmarks")
+ (synopsis "Benchmarks for the Message Passing Interface (MPI)")
+ (description
+ "This package provides benchmarks for implementations of the @dfn{Message
+Passing Interface} (MPI). It contains MPI performance measurements for
+point-to-point and global communication, and file, operations for a range of
+message sizes. The generated benchmark data fully characterize:
+
+@itemize
+@item
+Performance of a cluster system, including node performance, network latency,
+and throughput;
+@item
+Efficiency of the MPI implementation.
+@end itemize")
+ (license license:cpl1.0)))
+
+(define-public intel-mpi-benchmarks/openmpi
+ (intel-mpi-benchmarks openmpi))
+
+(define-public imb-openmpi
+ (deprecated-package "imb-openmpi" intel-mpi-benchmarks/openmpi))
+
+(define-public multitime
+ (package
+ (name "multitime")
+ (version "1.4")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append "https://tratt.net/laurie/src/"
+ "multitime/releases/"
+ "multitime-" version ".tar.gz"))
+ (sha256
+ (base32
+ "0iyfsdrbyqa7a4ifrh19l9a48hgv7ld6m0d8yf9bkl12q0qw91fx"))))
+ (build-system gnu-build-system)
+ (arguments '(#:tests? #f)) ; there are no tests
+ (home-page "https://tratt.net/laurie/src/multitime/")
+ (synopsis "Time command execution over multiple executions")
+ (description
+ "The @code{time} utility is a simple and often effective way of measuring
+how long a command takes to run (wall time). Unfortunately, running a command
+once can give misleading timings. @code{multitime} is, in essence, a simple
+extension to @code{time} which runs a command multiple times and prints the
+timing means, standard deviations, mins, medians, and maxes having done so.
+This can give a much better understanding of the command's performance.")
+ (license license:expat)))
+
+(define-public benchmark
+ (package
+ (name "benchmark")
+ (version "1.5.0")
+ (source (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/google/benchmark")
+ (commit (string-append "v" version))))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32
+ "0r9dbg4cbk47gwmayys31a83m3y67k0kh1f6pl8i869rbd609ndh"))
+ (patches (search-patches "benchmark-unbundle-googletest.patch"))))
+ (build-system cmake-build-system)
+ (native-inputs
+ `(("googletest" ,googletest)))
+ (home-page "https://github.com/google/benchmark")
+ (synopsis "Microbenchmark support library")
+ (description
+ "Benchmark is a library to benchmark code snippets,
+similar to unit tests.")
+ (license license:asl2.0)))
+
+(define-public bonnie++
+ (package
+ (name "bonnie++")
+ (version "1.98")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append "https://www.coker.com.au/bonnie++/bonnie++-"
+ version ".tgz"))
+ (sha256
+ (base32
+ "010bmlmi0nrlp3aq7p624sfaj5a65lswnyyxk3cnz1bqig0cn2vf"))))
+ (build-system gnu-build-system)
+ (native-inputs
+ `(("perl" ,perl)))
+ (arguments '(#:tests? #f)) ; there are no tests
+ (home-page "https://doc.coker.com.au/projects/bonnie/")
+ (synopsis "Hard drive and file system benchmark suite")
+ (description
+ "Bonnie++ is a benchmark suite that is aimed at performing a number of
+simple tests of hard drive and file system performance. Bonnie++ allows you to
+benchmark how your file systems perform with respect to data read and write
+speed, the number of seeks that can be performed per second, and the number of
+file metadata operations that can be performed per second.")
+ (license license:gpl2))) ;GPL 2 only, see copyright.txt
HCoop / jackhill / guix / guix.git / blobdiff