01/21: utils: Define 'target-riscv?' predicate.

[guix-commits]

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

commit e1f226e2111217131f4f4519466abfc7eda6d6f9
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Sun Aug 1 11:01:41 2021 +0300

    utils: Define 'target-riscv?' predicate.
    
    * guix/utils.scm (target-riscv?): New predicate.
---
 guix/utils.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/guix/utils.scm b/guix/utils.scm
index 32fcff7..134879f 100644
--- a/guix/utils.scm
+++ b/guix/utils.scm
@@ -96,6 +96,7 @@
             target-arm?
             target-ppc32?
             target-powerpc?
+            target-riscv?
             target-64bit?
             cc-for-target
             cxx-for-target
@@ -699,6 +700,11 @@ architecture (x86_64)?"
                                                  (%current-system))))
   (string-prefix? "powerpc" target))
 
+(define* (target-riscv? #:optional (target (or (%current-target-system)
+                                               (%current-system))))
+  "Is the architecture of TARGET a 'riscv' architecture variant?"
+  (string-prefix? "riscv" target))
+
 (define* (target-64bit? #:optional (system (or (%current-target-system)
                                                (%current-system))))
   (any (cut string-prefix? <> system) '("x86_64" "aarch64" "mips64" 
"powerpc64")))