[jackhill/guix/guix.git] / gnu / packages / fabric-management.scm

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Dave Love <fx@gnu.org>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org>
;;;
;;; 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 fabric-management)
  #:use-module (guix packages)
  #:use-module (guix licenses)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module (guix utils)
  #:use-module (guix build-system gnu)
  #:use-module (gnu packages)
  #:use-module (gnu packages autotools)
  #:use-module (gnu packages bison)
  #:use-module (gnu packages flex)
  #:use-module (gnu packages glib)
  #:use-module (gnu packages graphviz)
  #:use-module (gnu packages linux)
  #:use-module (gnu packages perl)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages swig)
  #:use-module (gnu packages tcl))

;; Fixme: Done for the library, but needs support for running the daemon
;;        (shepherd definition).
;;        We should probably have a lib output, but that currently generates
;;        a cycle.
(define-public opensm
  (package
    (name "opensm")
    (version "3.3.22")
    (source
     (origin
       (method url-fetch)
       (uri
        (string-append "https://github.com/linux-rdma/opensm/releases/download/"
                       version "/opensm-" version ".tar.gz"))
       (sha256
        (base32 "19scwwpwqhqsyq4hbr5cflcmypss828lalxxd36yby7mbimca38y"))))
    (build-system gnu-build-system)
    (native-inputs
     `(("bison" ,bison)
       ("flex" ,flex)

       ;; The 3.3.21 'release' tarball isn't properly bootstrapped.
       ("autoconf" ,autoconf)
       ("automake" ,automake)
       ("libtool" ,libtool)))
    (inputs
     `(("rdma-core" ,rdma-core)))
    (arguments
     `(#:configure-flags '("--disable-static")
       #:phases
       (modify-phases %standard-phases
         (add-after 'install 'install-doc
           (lambda* (#:key outputs #:allow-other-keys)
             (let* ((base (assoc-ref outputs "out"))
                    (doc  (string-append base "/share/doc/"
                                         ,name "-" ,version)))
               (for-each (lambda (file)
                           (install-file file doc))
                         (find-files "doc"))
               #t))))))
    (home-page "https://www.openfabrics.org/")
    (synopsis "OpenIB InfiniBand Subnet Manager and management utilities")
    (description "\
OpenSM is the OpenIB project's Subnet Manager for Infiniband networks.
The subnet manager is run as a system daemon on one of the machines in
the infiniband fabric to manage the fabric's routing state.  This package
also contains various tools for diagnosing and testing Infiniband networks
that can be used from any machine and do not need to be run on a machine
running the opensm daemon.")
    (license (list gpl2 bsd-2))))

(define-public infiniband-diags
  (package
    (name "infiniband-diags")
    (version "2.0.0")
    (source
     (origin
       (method url-fetch)
       (uri (string-append "https://github.com/linux-rdma/infiniband-diags/archive/"
                           version ".tar.gz"))
       (file-name (string-append name "-" version ".tar.gz"))
       (sha256
        (base32 "1ns9sjwvxnklhi47d6k5x8kxdk1n7f5362y45xwxqmr7gwfvpmwa"))))
    (build-system gnu-build-system)
    (inputs
     `(("rdma-core" ,rdma-core)
       ("opensm" ,opensm)
       ("glib" ,glib)))
    (outputs '("out" "lib"))
    (native-inputs
     ;; FIXME: needs rst2man for man pages
     `(("autoconf" ,autoconf)
       ("automake" ,automake)
       ("libtool" ,libtool)
       ("perl" ,perl)
       ("pkg-config" ,pkg-config)))
    (arguments
     '(#:configure-flags
       (list (string-append "CPPFLAGS=-I" (assoc-ref %build-inputs "opensm")
                            "/include/infiniband")
             (string-append "--with-perl-installdir=" (assoc-ref %outputs "lib")
                            "/lib/perl5/vendor_perl")
             "--disable-static")
       #:phases
       (modify-phases %standard-phases
         (add-after 'install 'licence
           (lambda _
             (let ((doc (string-append (assoc-ref %outputs "lib") "/share/doc")))
               (mkdir-p doc)
               (install-file "COPYING" doc))))
         (add-after 'install-file 'move-perl
           ;; Avoid perl in lib closure
           (lambda _
             (let ((perlout (string-append (assoc-ref %outputs "out") "/lib"))
                   (perlin (string-append (assoc-ref %outputs "lib")
                                          "/lib/perl5")))
               (mkdir-p perlout)
               (rename-file perlin perlout)
               #t))))))
    (home-page "https://github.com/linux-rdma/infiniband-diags")
    (synopsis "Infiniband diagnostic tools")
    (description "This is a set of command-line utilities to help configure,
debug, and maintain Infiniband (IB) fabrics.

In addition to the utilities, a sub-library, @file{libibnetdisc}, is provided
to scan an entire IB fabric and return data structures representing it.  The
interface to this library is not guaranteed to be stable.")
    (license (list gpl2 bsd-2)))) ; dual

(define-public ibutils
  (package
    (name "ibutils")
    (version "1.5.7-0.2.gbd7e502")
    (source
     (origin
       (method url-fetch)
       (uri (string-append "https://www.openfabrics.org/downloads/ibutils/ibutils-"
                           version ".tar.gz"))
       (sha256
        (base32 "00x7v6cf8l5y6g9xwh1sg738ch42fhv19msx0h0090nhr0bv98v7"))))
    (build-system gnu-build-system)
    (inputs `(("graphviz" ,graphviz)
              ("tcl" ,tcl)
              ("tk" ,tk)
              ("infiniband-diags" ,infiniband-diags)
              ("rdma-core" ,rdma-core)
              ("opensm" ,opensm)
              ("perl" ,perl)))
    (native-inputs `(("swig" ,swig)))
    (arguments
     `(#:configure-flags
       (list (string-append "--with-osm="  (assoc-ref %build-inputs "opensm"))
             (string-append "--with-tk-lib=" (assoc-ref %build-inputs "tk") "/lib")
             "--disable-static")))
    (synopsis "InfiniBand network utilities")
    (description "These command-line utilities allow for diagnosing and
testing InfiniBand networks.")
    (home-page "https://www.openfabrics.org/downloads/ibutils/")
    (license bsd-2)))

(define-public ucx
  (package
    (name "ucx")
    (version "1.6.1")
    (source (origin
              (method git-fetch)
              (uri (git-reference
                    (url "https://github.com/openucx/ucx")
                    (commit (string-append "v" version))))
              (file-name (git-file-name name version))
              (sha256
               (base32
                "0x3clvy716i7va4m4adgx6ihjsfnzrkdizhxz5v52944dkglpc8n"))
              (patches (search-patches "ucx-tcp-iface-ioctl.patch"))))
    (build-system gnu-build-system)
    (arguments
     '( ;; These are some of the flags found in 'contrib/configure-release'.
       #:configure-flags (list
                          "--disable-static"

                          ;; XXX: Disable optimizations specific to the build
                          ;; machine (AVX, etc.)  There's apparently no way to
                          ;; have them picked up at load time.
                          "--disable-optimizations"

                          "--disable-logging"
                          "--disable-debug"
                          "--disable-assertions"
                          "--disable-params-check"

                          (string-append "--with-verbs="
                                         (assoc-ref %build-inputs
                                                    "rdma-core"))

                          (string-append "--with-rdmacm="
                                         (assoc-ref %build-inputs
                                                    "rdma-core")))

       ;; Be verbose so that compiler flags are displayed.
       #:make-flags '("V=1")))
    (native-inputs
     `(("autoconf" ,autoconf)
       ("automake" ,automake)
       ("libtool" ,libtool)
       ("pkg-config" ,pkg-config)))
    (inputs
     `(("numactl" ,numactl)
       ("rdma-core" ,rdma-core)))
    (synopsis "Optimized communication layer for message passing in HPC")
    (description
     "Unified Communication X (UCX) provides an optimized communication layer
for message passing (MPI), portable global address space (PGAS) languages and
run-time support libraries, as well as RPC and data-centric applications.

UCX utilizes high-speed networks for inter-node communication, and shared
memory mechanisms for efficient intra-node communication.")
    (home-page "https://www.openucx.org/")
    (license bsd-3)

    ;; <ucm/bistro/bistro.h> lists only PowerPC64, AArch64, and x86_64 as
    ;; supported.
    (supported-systems '("x86_64-linux" "aarch64-linux"))))
Commit	Line	Data
468d2a2a DL	1	;;; GNU Guix --- Functional package management for GNU
468d2a2a DL	2	;;; Copyright © 2017 Dave Love <fx@gnu.org>
13299105	3	;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
fd007beb	4	;;; Copyright © 2019 Ricardo Wurmus <rekado@elephly.net>
da414ec6	5	;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org>
468d2a2a DL	6	;;;
	7	;;; This file is part of GNU Guix.
	8	;;;
	9	;;; GNU Guix is free software; you can redistribute it and/or modify it
	10	;;; under the terms of the GNU General Public License as published by
	11	;;; the Free Software Foundation; either version 3 of the License, or (at
	12	;;; your option) any later version.
	13	;;;
	14	;;; GNU Guix is distributed in the hope that it will be useful, but
	15	;;; WITHOUT ANY WARRANTY; without even the implied warranty of
	16	;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	17	;;; GNU General Public License for more details.
	18	;;;
	19	;;; You should have received a copy of the GNU General Public License
	20	;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
	21
	22	(define-module (gnu packages fabric-management)
	23	#:use-module (guix packages)
	24	#:use-module (guix licenses)
	25	#:use-module (guix download)
da414ec6	26	#:use-module (guix git-download)
468d2a2a DL	27	#:use-module (guix utils)
	28	#:use-module (guix build-system gnu)
	29	#:use-module (gnu packages)
3f82586a	30	#:use-module (gnu packages autotools)
468d2a2a DL	31	#:use-module (gnu packages bison)
468d2a2a DL	32	#:use-module (gnu packages flex)
3f82586a	33	#:use-module (gnu packages glib)
8a001de8	34	#:use-module (gnu packages graphviz)
3f82586a DL	35	#:use-module (gnu packages linux)
3f82586a DL	36	#:use-module (gnu packages perl)
8a001de8 DL	37	#:use-module (gnu packages pkg-config)
	38	#:use-module (gnu packages swig)
	39	#:use-module (gnu packages tcl))
468d2a2a DL	40
	41	;; Fixme: Done for the library, but needs support for running the daemon
	42	;; (shepherd definition).
	43	;; We should probably have a lib output, but that currently generates
	44	;; a cycle.
	45	(define-public opensm
	46	(package
	47	(name "opensm")
13299105	48	(version "3.3.22")
468d2a2a DL	49	(source
	50	(origin
	51	(method url-fetch)
	52	(uri
4702d452 TGR	53	(string-append "https://github.com/linux-rdma/opensm/releases/download/"
	54	version "/opensm-" version ".tar.gz"))
	55	(sha256
13299105	56	(base32 "19scwwpwqhqsyq4hbr5cflcmypss828lalxxd36yby7mbimca38y"))))
468d2a2a DL	57	(build-system gnu-build-system)
468d2a2a DL	58	(native-inputs
4702d452 TGR	59	`(("bison" ,bison)
	60	("flex" ,flex)
	61
	62	;; The 3.3.21 'release' tarball isn't properly bootstrapped.
	63	("autoconf" ,autoconf)
	64	("automake" ,automake)
	65	("libtool" ,libtool)))
468d2a2a DL	66	(inputs
	67	`(("rdma-core" ,rdma-core)))
	68	(arguments
	69	`(#:configure-flags '("--disable-static")
	70	#:phases
	71	(modify-phases %standard-phases
4702d452	72	(add-after 'install 'install-doc
468d2a2a DL	73	(lambda* (#:key outputs #:allow-other-keys)
	74	(let* ((base (assoc-ref outputs "out"))
	75	(doc (string-append base "/share/doc/"
	76	,name "-" ,version)))
	77	(for-each (lambda (file)
	78	(install-file file doc))
4702d452	79	(find-files "doc"))
468d2a2a DL	80	#t))))))
	81	(home-page "https://www.openfabrics.org/")
	82	(synopsis "OpenIB InfiniBand Subnet Manager and management utilities")
	83	(description "\
	84	OpenSM is the OpenIB project's Subnet Manager for Infiniband networks.
	85	The subnet manager is run as a system daemon on one of the machines in
	86	the infiniband fabric to manage the fabric's routing state. This package
	87	also contains various tools for diagnosing and testing Infiniband networks
	88	that can be used from any machine and do not need to be run on a machine
	89	running the opensm daemon.")
	90	(license (list gpl2 bsd-2))))
3f82586a DL	91
	92	(define-public infiniband-diags
	93	(package
	94	(name "infiniband-diags")
	95	(version "2.0.0")
	96	(source
	97	(origin
	98	(method url-fetch)
	99	(uri (string-append "https://github.com/linux-rdma/infiniband-diags/archive/"
	100	version ".tar.gz"))
	101	(file-name (string-append name "-" version ".tar.gz"))
	102	(sha256
	103	(base32 "1ns9sjwvxnklhi47d6k5x8kxdk1n7f5362y45xwxqmr7gwfvpmwa"))))
	104	(build-system gnu-build-system)
	105	(inputs
	106	`(("rdma-core" ,rdma-core)
	107	("opensm" ,opensm)
	108	("glib" ,glib)))
	109	(outputs '("out" "lib"))
	110	(native-inputs
	111	;; FIXME: needs rst2man for man pages
	112	`(("autoconf" ,autoconf)
	113	("automake" ,automake)
	114	("libtool" ,libtool)
	115	("perl" ,perl)
	116	("pkg-config" ,pkg-config)))
	117	(arguments
	118	'(#:configure-flags
	119	(list (string-append "CPPFLAGS=-I" (assoc-ref %build-inputs "opensm")
	120	"/include/infiniband")
	121	(string-append "--with-perl-installdir=" (assoc-ref %outputs "lib")
	122	"/lib/perl5/vendor_perl")
	123	"--disable-static")
	124	#:phases
	125	(modify-phases %standard-phases
3f82586a DL	126	(add-after 'install 'licence
	127	(lambda _
	128	(let ((doc (string-append (assoc-ref %outputs "lib") "/share/doc")))
	129	(mkdir-p doc)
	130	(install-file "COPYING" doc))))
	131	(add-after 'install-file 'move-perl
	132	;; Avoid perl in lib closure
	133	(lambda _
	134	(let ((perlout (string-append (assoc-ref %outputs "out") "/lib"))
	135	(perlin (string-append (assoc-ref %outputs "lib")
	136	"/lib/perl5")))
	137	(mkdir-p perlout)
	138	(rename-file perlin perlout)
	139	#t))))))
	140	(home-page "https://github.com/linux-rdma/infiniband-diags")
afe02c1a	141	(synopsis "Infiniband diagnostic tools")
3f82586a DL	142	(description "This is a set of command-line utilities to help configure,
	143	debug, and maintain Infiniband (IB) fabrics.
	144
	145	In addition to the utilities, a sub-library, @file{libibnetdisc}, is provided
	146	to scan an entire IB fabric and return data structures representing it. The
	147	interface to this library is not guaranteed to be stable.")
	148	(license (list gpl2 bsd-2)))) ; dual
8a001de8 DL	149
	150	(define-public ibutils
	151	(package
	152	(name "ibutils")
	153	(version "1.5.7-0.2.gbd7e502")
	154	(source
	155	(origin
	156	(method url-fetch)
	157	(uri (string-append "https://www.openfabrics.org/downloads/ibutils/ibutils-"
	158	version ".tar.gz"))
	159	(sha256
	160	(base32 "00x7v6cf8l5y6g9xwh1sg738ch42fhv19msx0h0090nhr0bv98v7"))))
	161	(build-system gnu-build-system)
	162	(inputs `(("graphviz" ,graphviz)
	163	("tcl" ,tcl)
	164	("tk" ,tk)
	165	("infiniband-diags" ,infiniband-diags)
	166	("rdma-core" ,rdma-core)
	167	("opensm" ,opensm)
	168	("perl" ,perl)))
	169	(native-inputs `(("swig" ,swig)))
	170	(arguments
	171	`(#:configure-flags
	172	(list (string-append "--with-osm=" (assoc-ref %build-inputs "opensm"))
	173	(string-append "--with-tk-lib=" (assoc-ref %build-inputs "tk") "/lib")
	174	"--disable-static")))
	175	(synopsis "InfiniBand network utilities")
	176	(description "These command-line utilities allow for diagnosing and
	177	testing InfiniBand networks.")
	178	(home-page "https://www.openfabrics.org/downloads/ibutils/")
	179	(license bsd-2)))
da414ec6 LC	180
	181	(define-public ucx
	182	(package
	183	(name "ucx")
	184	(version "1.6.1")
	185	(source (origin
	186	(method git-fetch)
	187	(uri (git-reference
b0e7b699	188	(url "https://github.com/openucx/ucx")
da414ec6 LC	189	(commit (string-append "v" version))))
	190	(file-name (git-file-name name version))
	191	(sha256
	192	(base32
2401806b LC	193	"0x3clvy716i7va4m4adgx6ihjsfnzrkdizhxz5v52944dkglpc8n"))
2401806b LC	194	(patches (search-patches "ucx-tcp-iface-ioctl.patch"))))
da414ec6 LC	195	(build-system gnu-build-system)
da414ec6 LC	196	(arguments
ba95233f LC	197	'( ;; These are some of the flags found in 'contrib/configure-release'.
ba95233f LC	198	#:configure-flags (list
3b09bb19 LC	199	"--disable-static"
3b09bb19 LC	200
ba95233f LC	201	;; XXX: Disable optimizations specific to the build
	202	;; machine (AVX, etc.) There's apparently no way to
	203	;; have them picked up at load time.
	204	"--disable-optimizations"
da414ec6	205
ba95233f LC	206	"--disable-logging"
	207	"--disable-debug"
	208	"--disable-assertions"
	209	"--disable-params-check"
	210
b35f621e LC	211	(string-append "--with-verbs="
	212	(assoc-ref %build-inputs
	213	"rdma-core"))
	214
ba95233f LC	215	(string-append "--with-rdmacm="
ba95233f LC	216	(assoc-ref %build-inputs
5fdf3737 LC	217	"rdma-core")))
	218
	219	;; Be verbose so that compiler flags are displayed.
	220	#:make-flags '("V=1")))
da414ec6 LC	221	(native-inputs
	222	`(("autoconf" ,autoconf)
	223	("automake" ,automake)
	224	("libtool" ,libtool)
	225	("pkg-config" ,pkg-config)))
	226	(inputs
	227	`(("numactl" ,numactl)
	228	("rdma-core" ,rdma-core)))
	229	(synopsis "Optimized communication layer for message passing in HPC")
	230	(description
	231	"Unified Communication X (UCX) provides an optimized communication layer
	232	for message passing (MPI), portable global address space (PGAS) languages and
	233	run-time support libraries, as well as RPC and data-centric applications.
	234
	235	UCX utilizes high-speed networks for inter-node communication, and shared
	236	memory mechanisms for efficient intra-node communication.")
	237	(home-page "https://www.openucx.org/")
	238	(license bsd-3)
	239
	240	;; <ucm/bistro/bistro.h> lists only PowerPC64, AArch64, and x86_64 as
	241	;; supported.
	242	(supported-systems '("x86_64-linux" "aarch64-linux"))))