me
/
guix
Archived
1
0
Fork 0
Code

gnu: SeaBIOS: Use G-expression. 

* gnu/packages/firmware.scm (seabios)[arguments]: Rewrite as gexp.
Marius Bakke 2022-12-17 20:06:46 +01:00
parent d241517d2c
commit 6ea7d25396
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
1 changed files with 60 additions and 59 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
gnu/packages/firmware.scm
View File

@ -415,13 +415,15 @@ executing in M-mode.")
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (list python-wrapper)) (native-inputs (list python-wrapper))
(arguments (arguments
`(#:tests? #f ; no check target (list
#:make-flags '("EXTRAVERSION=-guix" ;upstream wants distros to set this #:tests? #f ;no tests
#:make-flags
#~'("EXTRAVERSION=-guix" ;upstream wants distros to set this
"V=1") ;build verbosely "V=1") ;build verbosely
#:modules (,@%gnu-build-system-modules #:modules `(,@%gnu-build-system-modules
(ice-9 match)) (ice-9 match))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(replace 'configure (replace 'configure
(lambda _ (lambda _
;; Create the ".version" file that is present in release tarballs. ;; Create the ".version" file that is present in release tarballs.
@ -429,10 +431,10 @@ executing in M-mode.")
;; build system ends up encoding the build date in the binaries. ;; build system ends up encoding the build date in the binaries.
(call-with-output-file ".version" (call-with-output-file ".version"
(lambda (port) (lambda (port)
(format port ,(package-version this-package)))) (format port #$(package-version this-package))))
(setenv "CC" "gcc"))) (setenv "CC" "gcc")))
(add-after 'build 'build-vgabios (add-after 'build 'build-vgabios
(lambda* (#:key (make-flags ''()) #:allow-other-keys) (lambda* (#:key (make-flags #~'()) #:allow-other-keys)
(for-each (for-each
(match-lambda (match-lambda
((target . config) ((target . config)
@ -466,9 +468,8 @@ executing in M-mode.")
("isavga" . ("VGA_BOCHS=y" "VGA_PCI=n")) ("isavga" . ("VGA_BOCHS=y" "VGA_PCI=n"))
("ramfb" . ("VGA_RAMFB=y" "VGA_PCI=n")))))) ("ramfb" . ("VGA_RAMFB=y" "VGA_PCI=n"))))))
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let* ((out (assoc-ref outputs "out")) (let ((fmw (string-append #$output "/share/firmware")))
(fmw (string-append out "/share/firmware")))
(for-each (lambda (bios) (for-each (lambda (bios)
(install-file bios fmw)) (install-file bios fmw))
(find-files "out" "\\.bin$")) (find-files "out" "\\.bin$"))