;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2014, 2015, 2017, 2020 Ludovic Courtès ;;; Copyright © 2016 Efraim Flashner ;;; Copyright © 2018 Tobias Geerinckx-Rice ;;; Copyright © 2019 Mathieu Othacehe ;;; Copyright © 2020, 2023, 2024 Janneke Nieuwenhuizen ;;; Copyright © 2022 Brendan Tildesley ;;; Copyright © 2022 Marius Bakke ;;; Copyright © 2024 Ashvith Shetty ;;; ;;; 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 . (define-module (gnu packages pciutils) #:use-module (guix gexp) #:use-module (guix packages) #:use-module (guix download) #:use-module ((guix licenses) #:prefix license:) #:use-module (guix utils) #:use-module (guix git-download) #:use-module (guix build-system gnu) #:use-module (guix build-system qt) #:use-module (gnu packages) #:use-module (gnu packages base) #:use-module (gnu packages check) #:use-module (gnu packages compression) #:use-module (gnu packages crypto) #:use-module (gnu packages gcc) #:use-module (gnu packages gl) #:use-module (gnu packages logging) #:use-module (gnu packages maths) #:use-module (gnu packages polkit) #:use-module (gnu packages pkg-config) #:use-module (gnu packages glib) #:use-module (gnu packages linux) #:use-module (gnu packages qt) #:use-module (gnu packages vulkan) #:use-module (gnu packages xml)) (define-public hwdata (package (name "hwdata") (version "0.374") ;updated monthly (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/vcrhonek/hwdata") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1fcmg06lfzqrpq4z4gp12qpk7rd3s0phz4qyhq39ks43r1vxiy26")))) (build-system gnu-build-system) (arguments ;; Tests require pciutils, python, podman. Disable to avoid recursive dep. (list #:tests? #f ;; Do not cross-compile, since the package only contains data. #:target #f #:configure-flags #~(list (string-append "--datadir=" #$output "/share")))) (home-page "https://github.com/vcrhonek/hwdata") (synopsis "Hardware identification and configuration data") (description "@code{hwdata} contains various hardware identification and configuration data, such as the @file{pci.ids} and @file{usb.ids} databases. Each database is contained in a specific package output, such as the @code{pci} output for @file{pci.ids}, the @code{usb} output for @file{usb.ids}, etc.") (license (list license:gpl2+ license:expat)))) ;XFree86 1.0 (define-public pciutils (package (name "pciutils") (version "3.8.0") (source (origin (method url-fetch) (uri (string-append "mirror://kernel.org/software/utils/pciutils/pciutils-" version ".tar.xz")) (sha256 (base32 "01aglgw9ds9qiswcbi2lx90lswncikrlyv8mmp4haix8542bvvci")))) (build-system gnu-build-system) (arguments (list #:phases #~(modify-phases %standard-phases (add-after 'unpack 'unbundle-pci.ids (lambda* (#:key native-inputs inputs #:allow-other-keys) (copy-file (search-input-file (or native-inputs inputs) "share/hwdata/pci.ids") "pci.ids"))) #$@(if (target-hurd64?) #~((add-after 'unpack 'apply-hurd64-patch (lambda _ (let ((patch-file #$(local-file (search-patch "pciutils-hurd64.patch")))) (invoke "patch" "--force" "-p1" "-i" patch-file))))) #~()) (replace 'configure (lambda* (#:key outputs #:allow-other-keys) ;; There's no 'configure' script, just a raw makefile. (substitute* "Makefile" #$@(if (%current-target-system) #~((("^CROSS_COMPILE=.*$") (string-append "CROSS_COMPILE=" #$(%current-target-system) "-" "\n")) (("^HOST=.*$") (string-append "HOST=" #$(gnu-triplet->nix-system (%current-target-system)) "\n")) ;; Disable 'install' strip option, that would fail when ;; we are cross-compiling. (("^STRIP=.*$") "STRIP=\n")) '()) (("^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, for 'pci.ids.gz' decompression. "ZLIB := yes\n") (("^IDSDIR=.*$") ;; Installation directory of 'pci.ids.gz'. "IDSDIR = $(SHAREDIR)/hwdata\n") ;; Do not install the update script nor its man page. ((".*INSTALL.*update-pciids .*") "") (("update-pciids update-pciids.8 ") "") (("(.*INSTALL.*)update-pciids.8(.*)" _ head tail) (string-append head tail))))) (replace 'install (lambda* (#:key outputs #:allow-other-keys) ;; Install the commands, library, and .pc files. (invoke "make" "install" "install-lib")))) ;; Make sure programs have an RPATH so they can find libpciutils.so. #:make-flags #~(list #$(string-append "CC=" (if (%current-target-system) (cc-for-target) "gcc")) (string-append "LDFLAGS=-Wl,-rpath=" (assoc-ref %outputs "out") "/lib")) ;; No test suite. #:tests? #f)) (native-inputs (list hwdata pkg-config which)) (inputs `(,@(if (not (target-hurd?)) `(("kmod" ,kmod)) '()) ("zlib" ,zlib))) (home-page "https://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 @command{lspci} and @command{setpci} commands.") (license license:gpl2+))) ;; corectrl also requires the helper service. ;; See corectrl-helper-service-type. ;; ;; Please read the setup instructions from: ;; https://gitlab.com/corectrl/corectrl/-/wikis/Installation ;; and ;; https://gitlab.com/corectrl/corectrl/-/wikis/Setup ;; ;; corectrl also requires CONFIG_NETLINK_DIAG to be set to ;; either 'y' or 'm' - 'm' is the default in Guix. In that case, ;; the kernel module has to be loaded. ;; ;; To allow rootless corectrl, add user to the "corectrl" group. (define-public corectrl (package (name "corectrl") (version "1.4.3") (source (origin (method git-fetch) (uri (git-reference (url "https://gitlab.com/corectrl/corectrl") (commit (string-append "v" version)))) (sha256 (base32 "0qpc04xxzv4jbqqlraqriipix4ph7bm1hfiry807jjp668i9n25d")) (file-name (git-file-name name version)) (patches (search-patches "corectrl-polkit-install-dir.patch")))) (build-system qt-build-system) (arguments (list #:qtbase qtbase-5 #:tests? #t #:configure-flags #~(list "-DINSTALL_DBUS_FILES_IN_PREFIX=true" (string-append "-DPOLKIT_POLICY_INSTALL_DIR=" #$output "/share/polkit-1/actions") (string-append "-DWITH_PCI_IDS_PATH=" (search-input-file %build-inputs "/share/hwdata/pci.ids"))))) (native-inputs (list pkg-config gcc-13)) (propagated-inputs (list mesa-utils vulkan-tools util-linux)) (inputs (list dbus botan catch2-3 hwdata polkit procps pugixml qtcharts-5 qtdeclarative-5 qtquickcontrols2-5 qtsvg-5 qttools-5 quazip spdlog trompeloeil units zlib)) (home-page "https://gitlab.com/corectrl/corectrl") (synopsis "Profile based system control utility") (description "CoreCtrl is a Free and Open Source GNU/Linux application that allows you to control with ease your computer hardware using application profiles. It aims to be flexible, comfortable and accessible to regular users.") (license (list license:gpl3))))