07/73: gnu: Add zig-0.10.0-722.

[guix-commits]

hako pushed a commit to branch wip-zig-bootstrap
in repository guix.

commit 9dfda447e3ee2fc852f35a83cf3df118871a6675
Author: Hilton Chain <hako@ultrarare.space>
AuthorDate: Mon Nov 11 10:47:59 2024 +0800

    gnu: Add zig-0.10.0-722.
    
    * gnu/packages/zig.scm (zig-0.10.0-722): New variable.
    
    Change-Id: I08abdf7f85d03853c74f46afffebf5aff0aa18f4
---
 gnu/packages/zig.scm | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)

diff --git a/gnu/packages/zig.scm b/gnu/packages/zig.scm
index 8f16607357..a056027178 100644
--- a/gnu/packages/zig.scm
+++ b/gnu/packages/zig.scm
@@ -408,4 +408,36 @@ toolchain.  Among other features it provides
        (modify-inputs (package-native-inputs base)
          (prepend `(,base "zig1")))))))
 
+;; Supply zig1.wasm.zst, build zig2 + zig1.wasm, install zig2 + zig1.wasm.
+(define zig-0.10.0-722
+  (let ((commit "d10fd78d4615f329141f5c19f893039d56aff425")
+        (revision "722")
+        (base zig-0.10.0-675))
+    (package
+      (inherit base)
+      (name "zig")
+      (version (git-version "0.10.0" revision commit))
+      (source (zig-source
+               version commit
+               "0829wymcwph71zlwql6v7i7j9gr1m96acyp2xsr69vq2h98wmlap"))
+      (arguments
+       (substitute-keyword-arguments (package-arguments base)
+         ((#:phases phases '%standard-phases)
+          #~(modify-phases #$phases
+              (replace 'prepare-source
+                (lambda* (#:key native-inputs inputs #:allow-other-keys)
+                  (install-file (search-input-file
+                                 (or native-inputs inputs) "bin/zig1.wasm.zst")
+                                "stage1")
+                  (invoke "zstd" "-d" "stage1/zig1.wasm.zst")
+                  (make-file-writable "stage1/zig1.wasm")))
+              (replace 'install-zig1
+                (lambda _
+                  (install-file "stage1/zig1.wasm"
+                                (string-append #$output:zig1 "/bin"))))))))
+      (native-inputs
+       (modify-inputs (package-native-inputs base)
+         (prepend zstd)
+         (replace "zig" `(,base "zig1")))))))
+
 (define-public zig zig-0.10)