83/94: gnu: Add byacc-mesboot.

[guix-commits]

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

commit caf57a907c1817582a79d808cd058cc9f1c92308
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Mon Oct 21 14:42:20 2024 +0300

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

diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index 9d1b0b2c94..08b162f389 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -2076,6 +2076,42 @@ ac_cv_c_float_format='IEEE (little-endian)'
     (name "binutils-mesboot")
     (native-inputs (%boot-mesboot2-inputs))))
 
+;; We need to introduce byacc in order to process some pre-generated
+;; files in gawk and possibly elsewhere.
+(define byacc-mesboot
+  (package
+    (inherit byacc)
+    (name "byacc")
+    (version "20240109")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                     "https://invisible-mirror.net/archives/byacc/byacc-";
+                     version ".tgz"))
+              (file-name (string-append name "-" version ".tar.gz"))
+              (sha256
+               (base32
+                "0il4w1vwbglayakywyghiqhcjpg1yvv5ww2p8ylz32bi05wpg2gj"))))
+    (native-inputs (if (target-x86?)
+                       (%boot-mesboot1-inputs)
+                       (%boot-muslboot2-inputs)))
+    (inputs '())
+    (propagated-inputs '())
+    (arguments
+     `(#:implicit-inputs? #f
+       #:parallel-build? #f
+       #:guile ,%bootstrap-guile
+       #:phases
+       (modify-phases %standard-phases
+         (replace 'install
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out  (assoc-ref outputs "out"))
+                    (bin  (string-append out "/bin"))
+                    (man1 (string-append out "/share/man/man1")))
+               (install-file "yacc" bin)
+               (symlink "yacc" (string-append bin "/byacc"))
+               (install-file "yacc.1" man1)))))))))
+
 ;; Sadly we have to introduce Gawk here.  The "versions.awk" script of
 ;; glibc 2.16.0 is too complicated for Gash-Utils.  This is the version
 ;; of Gawk used previously during bootstrap.  It's possible that a newer