05/12: gnu: Add ovmf-i686.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit 2a45000102f5e9add6f6d47e4d460c40701cc9c9
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Tue Apr 30 16:26:29 2024 +0300

    gnu: Add ovmf-i686.
    
    * gnu/packages/firmware.scm (ovmf-i686): New variable.
    
    Change-Id: Ie5702435695e24ed1d2731152a89b0aeb9a050dd
---
 gnu/packages/firmware.scm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/gnu/packages/firmware.scm b/gnu/packages/firmware.scm
index ea3654f01d..bd7b8f9026 100644
--- a/gnu/packages/firmware.scm
+++ b/gnu/packages/firmware.scm
@@ -1016,6 +1016,28 @@ Virtual Machines.  OVMF contains a sample UEFI firmware 
for QEMU and KVM.")
                              "OVMF_CODE"
                              "OVMF_VARS"))))))))))))
 
+(define-public ovmf-i686
+  (let ((base (make-ovmf-firmware "i686")))
+    (package
+      (inherit base)
+      (arguments
+        (substitute-keyword-arguments (package-arguments base)
+          ((#:phases phases)
+           #~(modify-phases #$phases
+               (replace 'install
+                 (lambda _
+                   (let ((fmw (string-append #$output "/share/firmware")))
+                     (mkdir-p fmw)
+                     (for-each
+                       (lambda (file)
+                         (copy-file
+                           (string-append "Build/OvmfIa32/RELEASE_GCC"
+                                          "/FV/" file ".fd")
+                           (string-append fmw "/" (string-downcase file) 
"_ia32.bin")))
+                       (list "OVMF"
+                             "OVMF_CODE"
+                             "OVMF_VARS"))))))))))))
+
 (define-public ovmf
   (let ((toolchain-ver "GCC5"))
     (package