01/60: gnu: zig: Add 'zig-source' procedure.

[guix-commits]

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

commit 4366467888d72726a293f0620b70ff18409a6475
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Tue Nov 12 17:31:32 2024 +0800

    gnu: zig: Add 'zig-source' procedure.
    
    * gnu/packages/zig.scm (zig-source): New procedure.
    
    Change-Id: I2ca2cbb3756ebb61f0e3f821e91785ec89ac0c80
---
 gnu/packages/zig.scm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/gnu/packages/zig.scm b/gnu/packages/zig.scm
index 6994d48818..1019793693 100644
--- a/gnu/packages/zig.scm
+++ b/gnu/packages/zig.scm
@@ -31,6 +31,26 @@
   #:use-module (gnu packages llvm)
   #:use-module (gnu packages llvm-meta))
 
+(define (zig-source version commit hash)
+  (origin
+    (method git-fetch)
+    (uri (git-reference
+          (url "https://github.com/ziglang/zig";)
+          (commit commit)))
+    (file-name (git-file-name "zig" version))
+    (sha256 (base32 hash))
+    (modules '((guix build utils)))
+    (snippet
+     #~(for-each
+        (lambda (file)
+          (when (file-exists? file)
+            (delete-file file)))
+        (append
+         '("stage1/zig1.wasm"
+           "stage1/zig1.wasm.zst")
+         ;; IETF RFC documents have nonfree license.
+         (find-files "." "^rfc[0-9]+\\.txt"))))))
+
 (define-public zig-0.9
   (package
     (name "zig")