amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: pciutils: Use new style.

Browse source 
* gnu/packages/pciutils.scm (pciutils)[arguments]: Use G-expressions.
Simplify the use of cc-for-target.
[inputs]: Remove labels.

Change-Id: I1d19d2a8c4c01a2ea9a7b75a1fa224734710b43f
This commit is contained in:
Zheng Junjie 2025-03-03 10:20:04 +08:00 • committed by Andreas Enge
parent 2dbaceca82
commit eec2135808
No known key found for this signature in database
GPG key ID: F7D5C9BF765C61E3
1 changed files with 14 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

30
gnu/packages/pciutils.scm
View file

@ -91,7 +91,7 @@ Each database is contained in a specific package output, such as the
"share/hwdata/pci.ids")
"pci.ids")))
(replace 'configure
(lambda* (#:key outputs #:allow-other-keys)
(lambda _
;; There's no 'configure' script, just a raw makefile.
(substitute* "Makefile"
#$@(if (%current-target-system)
@ -109,13 +109,13 @@ Each database is contained in a specific package output, such as the
"STRIP=\n"))
'())
(("^PREFIX=.*$")
(string-append "PREFIX := " (assoc-ref outputs "out")
(string-append "PREFIX := " #$output
"\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")
(string-append "MANDIR := " #$output
"/share/man\n"))
(("^SHARED=.*$")
@ -136,27 +136,25 @@ Each database is contained in a specific package output, such as the
(("(.*INSTALL.*)update-pciids.8(.*)" _ head tail)
(string-append head tail)))))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(lambda _
;; 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"))
#:make-flags
#~(list #$(string-append "CC=" (cc-for-target))
(string-append "LDFLAGS=-Wl,-rpath=" #$output "/lib"))
;; No test suite.
#:tests? #f))
;; No test suite.
#:tests? #f))
(native-inputs
(list hwdata pkg-config which))
(inputs
`(,@(if (not (target-hurd?))
`(("kmod" ,kmod))
'())
("zlib" ,zlib)))
(append
(if (not (target-hurd?))
(list kmod)
'())
(list zlib)))
(home-page "https://mj.ucw.cz/sw/pciutils/")
(synopsis "Programs for inspecting and manipulating PCI devices")
(description