nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Revert "gnu: eudev: Update to 3.2.4 and generate manpages." 

This reverts commit c651cbad1e.
This commit is contained in:
Marius Bakke 2017-10-04 01:15:06 +02:00
parent c651cbad1e
commit 86edcc5338
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
1 changed files with 15 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
gnu/packages/linux.scm
View File

@ -2055,50 +2055,30 @@ from the module-init-tools project.")
;; The post-systemd fork, maintained by Gentoo. ;; The post-systemd fork, maintained by Gentoo.
(package (package
(name "eudev") (name "eudev")
(version "3.2.4") (version "3.2.2")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://github.com/gentoo/eudev/archive/v" (uri (string-append
version ".zip")) "http://dev.gentoo.org/~blueness/eudev/eudev-"
(file-name (string-append name "-" version ".zip")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1r1ag0snarygrj5qqxi2xdq9w6g3sfjd5jx1b0fl7zmqlsz3vvxx")) "0qqgbgpm5wdllk0s04pf80nwc8pr93xazwri1bylm1f15zn5ck1y"))
(patches (search-patches "eudev-rules-directory.patch")))) (patches (search-patches "eudev-rules-directory.patch"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:phases '(#:phases (modify-phases %standard-phases
(modify-phases %standard-phases (add-after 'install 'build-hwdb
(add-before 'configure 'bootstrap (lambda* (#:key outputs #:allow-other-keys)
(lambda* (#:key inputs #:allow-other-keys) ;; Build OUT/etc/udev/hwdb.bin. This allows 'lsusb' and
(substitute* "man/make.sh" ;; similar tools to display product names.
(("/usr/bin/xsltproc") (let ((out (assoc-ref outputs "out")))
(string-append (assoc-ref inputs "xsltproc") (zero? (system* (string-append out "/bin/udevadm")
"/bin/xsltproc"))) "hwdb" "--update"))))))))
;; Manual pages are regenerated here.
(zero? (system* "./autogen.sh"))))
(add-after 'install 'build-hwdb
(lambda* (#:key outputs #:allow-other-keys)
;; Build OUT/etc/udev/hwdb.bin. This allows 'lsusb' and
;; similar tools to display product names.
(let ((out (assoc-ref outputs "out")))
(zero? (system* (string-append out "/bin/udevadm")
"hwdb" "--update"))))))
#:configure-flags (list "--enable-manpages")))
(native-inputs (native-inputs
`(("autoconf" ,autoconf) `(("pkg-config" ,pkg-config)
("automake" ,automake)
("gperf" ,gperf)
("libtool" ,libtool)
("pkg-config" ,pkg-config)
;; For tests.
("perl" ,perl) ("perl" ,perl)
("python" ,python-wrapper) ("gperf" ,gperf)))
;; For documentation.
("docbook-xml" ,docbook-xml-4.2)
("docbook-xsl" ,docbook-xsl)
("libxml2" ,libxml2) ;for $XML_CATALOG_FILES
("xsltproc", libxslt)))
(inputs (inputs
;; When linked against libblkid, eudev can populate /dev/disk/by-label ;; When linked against libblkid, eudev can populate /dev/disk/by-label
;; and similar; it also installs the '60-persistent-storage.rules' file, ;; and similar; it also installs the '60-persistent-storage.rules' file,