nongnu: iwlwifi-firmware: Use gnu-build-system.

* nongnu/packages/linux.scm (iwlwifi-firmware): Use gnu-build-system.
This commit is contained in:
Alex Griffin 2020-01-05 12:46:35 -06:00
parent ba0ddcc4ac
commit 1a7fdfe34d

View file

@ -180,28 +180,21 @@ is the Linux Bluetooth driver for Atheros AR3011/AR3012 Bluetooth chipsets.")
(package (package
(inherit linux-firmware) (inherit linux-firmware)
(name "iwlwifi-firmware") (name "iwlwifi-firmware")
(build-system trivial-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:modules ((guix build utils)) `(#:tests? #f
#:builder #:license-file-regexp "LICENCE.iwlwifi_firmware"
(begin #:phases
(use-modules (guix build utils)) (modify-phases %standard-phases
(let ((source (assoc-ref %build-inputs "source")) (replace 'install
(fw-dir (string-append %output "/lib/firmware/")) (lambda* (#:key outputs #:allow-other-keys)
(gzip (assoc-ref %build-inputs "gzip")) (let* ((out (assoc-ref outputs "out"))
(tar (assoc-ref %build-inputs "tar"))) (fw-dir (string-append out "/lib/firmware")))
(set-path-environment-variable "PATH" '("bin") (for-each (lambda (file)
(list tar gzip)) (install-file file fw-dir))
(invoke "tar" "--strip-components=1" "-xvf" source) (find-files "." "iwlwifi-.*\\.ucode$"))
(mkdir-p fw-dir) #t)))
(for-each (lambda (file) (delete 'validate-runpath))))
(copy-file file
(string-append fw-dir (basename file))))
(cons*
"./LICENCE.iwlwifi_firmware"
(find-files "."
"iwlwifi-.*\\.ucode$")))
#t))))
(home-page "https://wireless.wiki.kernel.org/en/users/drivers/iwlwifi") (home-page "https://wireless.wiki.kernel.org/en/users/drivers/iwlwifi")
(synopsis "Nonfree firmware for Intel wifi chips") (synopsis "Nonfree firmware for Intel wifi chips")
(description "The proprietary iwlwifi kernel module is required by many (description "The proprietary iwlwifi kernel module is required by many