02/06: gnu: SeaBIOS: Remove pre-generated code.

[guix-commits]

mbakke pushed a commit to branch master
in repository guix.

commit 16f2cc5a8f258b37530e2ced75765bf354d769bc
Author: Marius Bakke <marius@gnu.org>
AuthorDate: Sun Dec 18 19:12:41 2022 +0100

    gnu: SeaBIOS: Remove pre-generated code.
    
    * gnu/packages/firmware.scm (seabios)[source](modules, snippet): New fields.
    [native-inputs]: Add ACPICA.
    [arguments]: Add build-iasl phase.
---
 gnu/packages/firmware.scm | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/firmware.scm b/gnu/packages/firmware.scm
index 79e0577077..623e60f2b1 100644
--- a/gnu/packages/firmware.scm
+++ b/gnu/packages/firmware.scm
@@ -411,9 +411,14 @@ executing in M-mode.")
              (commit (string-append "rel-" version))))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "0gph1hf70jjpx55qc0lzx2yghkipg9dnsin07i4jajk0p1jpd2d0"))))
+        (base32 "0gph1hf70jjpx55qc0lzx2yghkipg9dnsin07i4jajk0p1jpd2d0"))
+       (modules '((guix build utils)))
+       (snippet
+        #~(begin
+            ;; Delete IASL-generated files.
+            (for-each delete-file (find-files "." "\\.hex$"))))))
     (build-system gnu-build-system)
-    (native-inputs (list python-wrapper))
+    (native-inputs (list acpica python-wrapper))
     (arguments
      (list
       #:tests? #f                       ;no tests
@@ -433,6 +438,12 @@ executing in M-mode.")
                 (lambda (port)
                   (format port #$(package-version this-package))))
               (setenv "CC" "gcc")))
+          (add-before 'build 'build-description-tables
+            (lambda _
+              ;; Regenerate the ACPI description tables.
+              (invoke "make" "iasl")
+              ;; Clear temporary files added by the iasl target.
+              (invoke "make" "clean")))
           (add-after 'build 'build-vgabios
             (lambda* (#:key (make-flags #~'()) #:allow-other-keys)
               (for-each