06/85: gnu: Add commencement-build-target.

[guix-commits]

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

commit 87674043d5f0127e7025ec9c087d29f0fbbadb97
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Wed Sep 25 09:11:53 2024 +0300

    gnu: Add commencement-build-target.
    
    * gnu/packages/commencement.scm (commencement-build-target): New
    procedure.
    
    Change-Id: Ie479ccd0afd659e843b45cb5cf22717f34ddff5c
---
 gnu/packages/commencement.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index 144b02e7a4..ec80571a5b 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -145,6 +145,14 @@ the checkout from TARBALL, a tarball containing said 
checkout.
              #:graft? #f
              #:local-build? #t))))))
 
+(define* (commencement-build-target #:optional (system (%current-system)))
+  "Return an architecture triplet for use in various build scripts.  This is
+the supported 32-bit version of the architecture currently being built on."
+  (cond
+    ((target-x86-64?) "i686-unknown-linux-gnu")
+    ((target-arm?) "arm-unknown-linux-gnu")
+    (#t (nix-system->gnu-triplet system))))
+
 (define bootar
   (package
     (name "bootar")