46/85: gnu: Add mawk-mesboot.

[guix-commits]

efraim pushed a commit to branch wip-riscv-bootstrap
in repository guix.

commit dfcd09fff4692cbc83cbf83d6dc6d11f1d4b33b8
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Mon Oct 21 14:53:03 2024 +0300

    gnu: Add mawk-mesboot.
    
    * gnu/packages/commencement.scm (mawk-mesboot): New variable.
    
    Change-Id: Ia04d70557682aef705eebe8caccb59ce68406ffc
---
 gnu/packages/commencement.scm | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)

diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index 723b6ec5ad..774f0fe2b7 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -2156,6 +2156,40 @@ ac_cv_c_float_format='IEEE (little-endian)'
                (install-file "gawk" bin)
                (symlink "gawk" (string-append bin "/awk"))))))))))
 
+(define mawk-mesboot
+  (package
+    (inherit mawk)
+    (name "mawk-mesboot")
+    (version "1.3.4-20240905")
+    (source (bootstrap-origin
+              (origin
+                (method url-fetch)
+                (uri (string-append 
"https://invisible-mirror.net/archives/mawk";
+                                    "/mawk-" version ".tgz"))
+                ;; Our gzip and tar don't know how to unpack a '.tgz' file.
+                (file-name (string-append name "-" version ".tar.gz"))
+                (sha256
+                 (base32
+                  "1q4rfcv7ppfw4fra8hp8z0s4qnsv1x598ny4xwb026zsgn96g6d3"))
+                (snippet
+                 #~(begin (delete-file "parse.c"))))))
+    (native-inputs
+     (modify-inputs (if (target-x86?)
+                        (%boot-mesboot2-inputs)
+                        (%boot-muslboot2-inputs))
+                    (append byacc-mesboot)))
+    (inputs '())
+    (propagated-inputs '())
+    (arguments
+     `(#:implicit-inputs? #f
+       #:parallel-build? #f         ; Prevent race condition
+       #:guile ,%bootstrap-guile
+       #:phases
+       (modify-phases %standard-phases
+         (replace 'check
+           (lambda _
+             (invoke "./mawk" "--version"))))))))
+
 (define (%boot-mesboot3-inputs)
   `(("binutils" ,binutils-mesboot)
     ("gawk" ,gawk-mesboot)