GNU bug report logs - #28552
[PATCH 2/3] gnu: Add infiniband-diags.

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 28552 in the body.
You can then email your comments to 28552 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Dave Love <fx <at> gnu.org>
To: guix-patches <at> gnu.org
Cc: Dave Love <fx <at> gnu.org>
Subject: [PATCH 2/3] gnu: Add infiniband-diags.
Date: Fri, 22 Sep 2017 16:04:06 +0100

* gnu/packages/fabric-management.scm (infiniband-diags): New variable.
---
 gnu/packages/fabric-management.scm | 69 +++++++++++++++++++++++++++++++++++++-
 1 file changed, 68 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/fabric-management.scm b/gnu/packages/fabric-management.scm
index abef18d36..a0e4b12c4 100644
--- a/gnu/packages/fabric-management.scm
+++ b/gnu/packages/fabric-management.scm
@@ -23,9 +23,13 @@
   #: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 linux))
+  #:use-module (gnu packages glib)
+  #:use-module (gnu packages linux)
+  #:use-module (gnu packages perl)
+  #:use-module (gnu packages pkg-config))
 
 ;; Fixme: Done for the library, but needs support for running the daemon
 ;;        (shepherd definition).
@@ -70,3 +74,66 @@ 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-before 'configure 'autotools
+           (lambda _
+             (zero? (system "./autogen.sh"))))
+         (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)
+               (zero? (system* "mv" perlin perlout))))))))
+    (home-page "https://github.com/linux-rdma/infiniband-diags")
+    (synopsis "Infiniband diagnotic tools")
+    (description "\
+A set of utilities designed to help configure, debug, and maintain infiniband
+fabrics.  Many tools and utilities are provided, some with similar
+functionality.
+
+In addition to the utilities provided, a sub-library 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
-- 
2.11.0

Message #10 received at 28552-done <at> debbugs.gnu.org (full text, mbox):

From: ludo <at> gnu.org (Ludovic Courtès)
To: Dave Love <fx <at> gnu.org>
Cc: 28552-done <at> debbugs.gnu.org
Subject: Re: [bug#28552] [PATCH 2/3] gnu: Add infiniband-diags.
Date: Sat, 23 Sep 2017 18:03:15 +0200

[Message part 1 (text/plain, inline)]

Dave Love <fx <at> gnu.org> skribis:

> * gnu/packages/fabric-management.scm (infiniband-diags): New variable.

Applied with the cosmetic changes below.

Thanks,
Ludo'.

[Message part 2 (text/x-patch, inline)]

diff --git a/gnu/packages/fabric-management.scm b/gnu/packages/fabric-management.scm
index 4c6f21a98..edb058842 100644
--- a/gnu/packages/fabric-management.scm
+++ b/gnu/packages/fabric-management.scm
@@ -96,7 +96,7 @@ running the opensm daemon.")
        ("glib" ,glib)))
     (outputs '("out" "lib"))
     (native-inputs
-     ;; fixme: needs rst2man for man pages
+     ;; FIXME: needs rst2man for man pages
      `(("autoconf" ,autoconf)
        ("automake" ,automake)
        ("libtool" ,libtool)
@@ -126,16 +126,14 @@ running the opensm daemon.")
                    (perlin (string-append (assoc-ref %outputs "lib")
                                           "/lib/perl5")))
                (mkdir-p perlout)
-               (zero? (system* "mv" perlin perlout))))))))
+               (rename-file perlin perlout)
+               #t))))))
     (home-page "https://github.com/linux-rdma/infiniband-diags")
     (synopsis "Infiniband diagnotic tools")
-    (description "\
-A set of utilities designed to help configure, debug, and maintain infiniband
-fabrics.  Many tools and utilities are provided, some with similar
-functionality.
+    (description "This is a set of command-line utilities to help configure,
+debug, and maintain Infiniband (IB) fabrics.
 
-In addition to the utilities provided, a sub-library libibnetdisc, is provided
+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
+    (license (list gpl2 bsd-2)))) ; dual

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.