gnu: SeaBIOS: Use G-expression.
* gnu/packages/firmware.scm (seabios)[arguments]: Rewrite as gexp.
Marius Bakke
parent
d241517d2c
commit
6ea7d25396
|
|
@ -415,66 +415,67 @@ 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
|
||||
"V=1") ;build verbosely
|
||||
#:modules (,@%gnu-build-system-modules
|
||||
(list
|
||||
#:tests? #f ;no tests
|
||||
#:make-flags
|
||||
#~'("EXTRAVERSION=-guix" ;upstream wants distros to set this
|
||||
"V=1") ;build verbosely
|
||||
#:modules `(,@%gnu-build-system-modules
|
||||
(ice-9 match))
|
||||
#:phases
|
||||
(modify-phases %standard-phases
|
||||
(replace 'configure
|
||||
(lambda _
|
||||
;; Create the ".version" file that is present in release tarballs.
|
||||
;; Otherwise this will be regarded as an "unclean" build, and the
|
||||
;; build system ends up encoding the build date in the binaries.
|
||||
(call-with-output-file ".version"
|
||||
(lambda (port)
|
||||
(format port ,(package-version this-package))))
|
||||
(setenv "CC" "gcc")))
|
||||
(add-after 'build 'build-vgabios
|
||||
(lambda* (#:key (make-flags ''()) #:allow-other-keys)
|
||||
(for-each
|
||||
(match-lambda
|
||||
((target . config)
|
||||
(let* ((dot-config (string-append (getcwd) "/" target "/.config"))
|
||||
(flags (append make-flags
|
||||
(list (string-append "KCONFIG_CONFIG="
|
||||
dot-config)
|
||||
(string-append "OUT=" target "/")))))
|
||||
(mkdir target)
|
||||
(call-with-output-file dot-config
|
||||
(lambda (port)
|
||||
(for-each (lambda (entry)
|
||||
(if (string-suffix? "=n" entry)
|
||||
(format port "# CONFIG_~a is not set~%"
|
||||
(string-drop-right entry 2))
|
||||
(format port "CONFIG_~a~%" entry)))
|
||||
(cons "BUILD_VGABIOS=y" config))))
|
||||
(apply invoke "make" "oldnoconfig" flags)
|
||||
(apply invoke "make" flags)
|
||||
(link (string-append target "/bios.bin")
|
||||
(string-append "out/" target ".bin")))))
|
||||
;; These tuples are modelled after Debians packaging:
|
||||
;; https://salsa.debian.org/qemu-team/seabios/-/blob/master/debian/rules
|
||||
'(("ati" . ("VGA_ATI=y" "VGA_PCI=y"))
|
||||
("bochs-display" . ("DISPLAY_BOCHS=y" "VGA_PCI=y"))
|
||||
("cirrus" . ("VGA_CIRRUS=y" "VGA_PCI=y"))
|
||||
("stdvga" . ("VGA_BOCHS=y" "VGA_PCI=y"))
|
||||
("virtio" . ("VGA_BOCHS_VIRTIO=y" "VGA_PCI=y"))
|
||||
("vmware" . ("VGA_BOCHS_VMWARE=y" "VGA_PCI=y"))
|
||||
("qxl" . ("VGA_BOCHS_QXL=y" "VGA_PCI=y"))
|
||||
("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")))
|
||||
(for-each (lambda (bios)
|
||||
(install-file bios fmw))
|
||||
(find-files "out" "\\.bin$"))
|
||||
(with-directory-excursion fmw
|
||||
;; QEMU 1.7 and later looks only for the latter.
|
||||
(symlink "bios.bin" "bios-256k.bin"))))))))
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(replace 'configure
|
||||
(lambda _
|
||||
;; Create the ".version" file that is present in release tarballs.
|
||||
;; Otherwise this will be regarded as an "unclean" build, and the
|
||||
;; build system ends up encoding the build date in the binaries.
|
||||
(call-with-output-file ".version"
|
||||
(lambda (port)
|
||||
(format port #$(package-version this-package))))
|
||||
(setenv "CC" "gcc")))
|
||||
(add-after 'build 'build-vgabios
|
||||
(lambda* (#:key (make-flags #~'()) #:allow-other-keys)
|
||||
(for-each
|
||||
(match-lambda
|
||||
((target . config)
|
||||
(let* ((dot-config (string-append (getcwd) "/" target "/.config"))
|
||||
(flags (append make-flags
|
||||
(list (string-append "KCONFIG_CONFIG="
|
||||
dot-config)
|
||||
(string-append "OUT=" target "/")))))
|
||||
(mkdir target)
|
||||
(call-with-output-file dot-config
|
||||
(lambda (port)
|
||||
(for-each (lambda (entry)
|
||||
(if (string-suffix? "=n" entry)
|
||||
(format port "# CONFIG_~a is not set~%"
|
||||
(string-drop-right entry 2))
|
||||
(format port "CONFIG_~a~%" entry)))
|
||||
(cons "BUILD_VGABIOS=y" config))))
|
||||
(apply invoke "make" "oldnoconfig" flags)
|
||||
(apply invoke "make" flags)
|
||||
(link (string-append target "/bios.bin")
|
||||
(string-append "out/" target ".bin")))))
|
||||
;; These tuples are modelled after Debians packaging:
|
||||
;; https://salsa.debian.org/qemu-team/seabios/-/blob/master/debian/rules
|
||||
'(("ati" . ("VGA_ATI=y" "VGA_PCI=y"))
|
||||
("bochs-display" . ("DISPLAY_BOCHS=y" "VGA_PCI=y"))
|
||||
("cirrus" . ("VGA_CIRRUS=y" "VGA_PCI=y"))
|
||||
("stdvga" . ("VGA_BOCHS=y" "VGA_PCI=y"))
|
||||
("virtio" . ("VGA_BOCHS_VIRTIO=y" "VGA_PCI=y"))
|
||||
("vmware" . ("VGA_BOCHS_VMWARE=y" "VGA_PCI=y"))
|
||||
("qxl" . ("VGA_BOCHS_QXL=y" "VGA_PCI=y"))
|
||||
("isavga" . ("VGA_BOCHS=y" "VGA_PCI=n"))
|
||||
("ramfb" . ("VGA_RAMFB=y" "VGA_PCI=n"))))))
|
||||
(replace 'install
|
||||
(lambda _
|
||||
(let ((fmw (string-append #$output "/share/firmware")))
|
||||
(for-each (lambda (bios)
|
||||
(install-file bios fmw))
|
||||
(find-files "out" "\\.bin$"))
|
||||
(with-directory-excursion fmw
|
||||
;; QEMU 1.7 and later looks only for the latter.
|
||||
(symlink "bios.bin" "bios-256k.bin"))))))))
|
||||
(home-page "https://www.seabios.org/SeaBIOS")
|
||||
(synopsis "x86 BIOS implementation")
|
||||
(description "SeaBIOS is an implementation of a 16bit x86 BIOS. SeaBIOS
|
||||
|
|
|
|||
Reference in New Issue