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