;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2015 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;;
;;; 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 pciutils)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix build-system gnu)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages linux)
  #:use-module (gnu packages base))

(define-public pciutils
  (package
    (name "pciutils")
    (version "3.5.1")
    (source (origin
              (method url-fetch)
              (uri (string-append
                    "mirror://kernel.org/software/utils/pciutils/pciutils-"
                    version ".tar.xz"))
              (sha256
               (base32
                "0byl2f897w5lhs4bvr6p7qwcz9bllj2zyfv7nywbcbsnb9ha9wrb"))))
    (build-system gnu-build-system)
    (arguments
     '(#:phases
       (modify-phases %standard-phases
         (replace 'configure
           (lambda* (#:key outputs #:allow-other-keys)
             ;; There's no 'configure' script, just a raw makefile.
             (substitute* "Makefile"
               (("^PREFIX=.*$")
                (string-append "PREFIX := " (assoc-ref outputs "out")
                               "\n"))
               (("^MANDIR:=.*$")
                 ;; By default the thing tries to automatically
                 ;; determine whether to use $prefix/man or
                 ;; $prefix/share/man, and wrongly so.
                (string-append "MANDIR := " (assoc-ref outputs "out")
                               "/share/man\n"))
               (("^SHARED=.*$")
                ;; Build libpciutils.so.
                "SHARED := yes\n")
               (("^ZLIB=.*$")
                ;; Ask for zlib support.
                "ZLIB := yes\n"))))
         (replace 'install
           (lambda* (#:key outputs #:allow-other-keys)
             ;; Install the commands, library, and .pc files.
             (zero? (system* "make" "install" "install-lib")))))

       ;; Make sure programs have an RPATH so they can find libpciutils.so.
       #:make-flags (list (string-append "LDFLAGS=-Wl,-rpath="
                                         (assoc-ref %outputs "out") "/lib"))

       ;; No test suite.
       #:tests? #f))
    (native-inputs
     `(("which" ,which)
       ("pkg-config" ,pkg-config)))
    (inputs
     `(("kmod" ,kmod)
       ("zlib" ,zlib)))
    (home-page "http://mj.ucw.cz/sw/pciutils/")
    (synopsis "Programs for inspecting and manipulating PCI devices")
    (description
     "The PCI Utilities are a collection of programs for inspecting and
manipulating configuration of PCI devices, all based on a common portable
library libpci which offers access to the PCI configuration space on a variety
of operating systems.  This includes the 'lspci' and 'setpci' commands.")
    (license license:gpl2+)))
=67b1d9a145efa7156990cae2f9a1d91cc9df64ad'>gnu: ceph: Add XFS support.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2019-03-17 16:12:32 +0100'>2019-03-17</span></td><td><a href='/guix/commit/gnu/packages/storage.scm?id=02a4efb23815d0ed2d600f6e0af0735c0388c696'>gnu: ceph: Install headers to the "lib" output.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2019-03-15 16:16:42 +0100'>2019-03-15</span></td><td><a href='/guix/commit/gnu/packages/storage.scm?id=b12af3fd1ed0eeb0bba89f20370673e7bbf52fa7'>gnu: ceph: Update to 13.2.5.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2019-01-20 22:12:10 +0100'>2019-01-20</span></td><td><a href='/guix/commit/gnu/packages/storage.scm?id=3e2d4e69c340c3520f546f8c7e21e52383058d1c'>Merge branch 'master' into staging</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-01-15 14:46:44 +0100'>2019-01-15</span></td><td><a href='/guix/commit/gnu/packages/storage.scm?id=44d10b1f722856ab8e9b942804aa7ef33e2ef739'>gnu: Separate Python core packages from the rest.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2018-12-12 20:49:14 +0100'>2018-12-12</span></td><td><a href='/guix/commit/gnu/packages/storage.scm?id=4cb9b726339876693a70b81682e387b5f3400c4d'>gnu: Remove special Boost C++14 variant.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2018-12-08 19:37:47 +0100'>2018-12-08</span></td><td><a href='/guix/commit/gnu/packages/storage.scm?id=7570ec5aa96d459aa41ddfaf459a883be89848d4'>gnu: GCC@7: Update to 7.4.0.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2018-11-07 21:01:12 +0100'>2018-11-07</span></td><td><a href='/guix/commit/gnu/packages/storage.scm?id=1badc85068ee0be2a028c1b94a3dd285901bc391'>gnu: ceph: Update to 13.2.2.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2018-04-30 04:03:54 -0400'>2018-04-30</span></td><td><a href='/guix/commit/gnu/packages/storage.scm?id=3d5ad159b336a9903b31d0be7ae052dbc8d5bfcc'>Merge branch 'master' into core-updates</a></td><td>Mark H Weaver</td></tr>
<tr><td><span title='2018-04-25 15:09:22 +0200'>2018-04-25</span></td><td><a href='/guix/commit/gnu/packages/storage.scm?id=3743e1320eb6ff6da8265d6576d4a6969ec5514e'>gnu: ceph: Update to 12.2.5.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2018-03-29 16:54:52 +0200'>2018-03-29</span></td><td><a href='/guix/commit/gnu/packages/storage.scm?id=12cb6c31df4b90d58658e88a256e36b6808e1064'>gnu: cmake: Update to 3.11.0.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2018-03-15 12:53:17 +0100'>2018-03-15</span></td><td><a href='/guix/commit/gnu/packages/storage.scm?id=058ad040d64f873ffb9bb4d72166dae9f970b368'>gnu: Remove boost-1.66.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2018-03-04 17:54:40 +0100'>2018-03-04</span></td><td><a href='/guix/commit/gnu/packages/storage.scm?id=5b0b520e22cc4d8e08078e50e036b093efdde49c'>gnu: ceph: Update to 12.2.4.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2018-01-19 17:28:31 +0100'>2018-01-19</span></td><td><a href='/guix/commit/gnu/packages/storage.scm?id=162a13740041f907f0ce5c2aa05b52b162b4e81a'>gnu: Consistently Write ‘file system(s)’.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2017-12-28 08:24:42 +0100'>2017-12-28</span></td><td><a href='/guix/commit/gnu/packages/storage.scm?id=5bf306f93ebcc9831a1e1facd5f1ce7c57514f89'>gnu: ceph: Disable tests.</a><span class='msg-avail'>...</span></td><td>Rutger Helling</td></tr>