gnu: b43-tools: Use make-flags.

* gnu/packages/firmware.scm (b43-tools)[arguments]: Add make-flags.
Use make-flags in custom 'build and 'install phases.  Remove trailing #t
from phases.

Change-Id: I8576351ecd571d191598943a2d143ab3e3e9da09
This commit is contained in:
Efraim Flashner 2023-10-31 17:22:49 +02:00
parent d96a9c7473
commit e82b700228
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351

View file

@ -175,6 +175,8 @@ (define-public b43-tools
(guix build gnu-build-system)
(guix build utils))
#:tests? #f ; no tests
#:make-flags `(,(string-append "PREFIX=" (assoc-ref %outputs "out"))
,(string-append "CC=" ,(cc-for-target)))
#:phases
(let ((subdirs '("assembler" "disassembler")))
(modify-phases %standard-phases
@ -182,24 +184,19 @@ (define-public b43-tools
(add-before 'build 'patch-/bin/true
(lambda _
(substitute* (find-files "." "Makefile")
(("/bin/true") ":"))
#t))
(("/bin/true") ":"))))
(replace 'build
(lambda _
(lambda* (#:key (make-flags '()) #:allow-other-keys)
(for-each (lambda (dir)
(invoke "make" "-C" dir "CC=gcc"))
subdirs)
#t))
(apply invoke "make" "-C" dir make-flags))
subdirs)))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(lambda* (#:key outputs (make-flags '()) #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(mkdir-p (string-append out "/bin"))
(for-each (lambda (dir)
(invoke "make" "-C" dir
(string-append "PREFIX=" out)
"install"))
subdirs)
#t)))))))
(apply invoke "make" "-C" dir "install" make-flags))
subdirs))))))))
(home-page
"https://bues.ch/cms/hacking/misc.html#linux_b43_driver_firmware_tools")
(synopsis "Collection of tools for the b43 wireless driver")