03/56: build-system: zig: Add shrink-runpath phase.

[guix-commits]

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

commit 6ad912606b1a889dfccbf1229c913468ae3ddf26
Author: Hilton Chain <hako@ultrarare.space>
AuthorDate: Tue Nov 12 19:26:57 2024 +0800

    build-system: zig: Add shrink-runpath phase.
    
    * guix/build/zig-build-system.scm (%standard-phases): Add 'shrink-runpath 
from
    meson-build-system.
    * guix/build-system/zig.scm (%zig-build-system-modules): Add modules from
    %meson-build-system-modules.
    
    Change-Id: I9b918fbf4b96b443c98c9f1527157f6c2ef8cd9b
---
 guix/build-system/zig.scm       | 2 ++
 guix/build/zig-build-system.scm | 5 ++++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/guix/build-system/zig.scm b/guix/build-system/zig.scm
index ad8a96b607..f0557a6197 100644
--- a/guix/build-system/zig.scm
+++ b/guix/build-system/zig.scm
@@ -25,6 +25,7 @@
   #:use-module (guix packages)
   #:use-module (guix build-system)
   #:use-module (guix build-system gnu)
+  #:use-module (guix build-system meson)
   #:use-module (ice-9 match)
   #:use-module (srfi srfi-26)
   #:export (zig-build-system))
@@ -39,6 +40,7 @@
 (define %zig-build-system-modules
   ;; Build-side modules imported by default.
   `((guix build zig-build-system)
+    ,@%meson-build-system-modules
     ,@%default-gnu-imported-modules))
 
 (define* (zig-build name inputs
diff --git a/guix/build/zig-build-system.scm b/guix/build/zig-build-system.scm
index 8352a73324..158a22fce8 100644
--- a/guix/build/zig-build-system.scm
+++ b/guix/build/zig-build-system.scm
@@ -18,6 +18,7 @@
 
 (define-module (guix build zig-build-system)
   #:use-module ((guix build gnu-build-system) #:prefix gnu:)
+  #:use-module ((guix build meson-build-system) #:prefix meson:)
   #:use-module (guix build utils)
   #:use-module (ice-9 popen)
   #:use-module (ice-9 rdelim)
@@ -96,7 +97,9 @@
     (add-before 'build 'set-cc set-cc)
     (replace 'build build)
     (replace 'check check)
-    (replace 'install install)))
+    (replace 'install install)
+    (add-after 'strip 'shrink-runpath
+      (assoc-ref meson:%standard-phases 'shrink-runpath))))
 
 
 (define* (zig-build #:key inputs (phases %standard-phases)