Re: [PATCH] guix: mes: Add armhf-linux, aarch64-linux support.

[Danny Milosavljevic]

Same patch with ignore-whitespace, for easier review:

diff --git a/guix/git/mes.scm b/guix/git/mes.scm
index 78ae32b6..304257ce 100644
--- a/guix/git/mes.scm
+++ b/guix/git/mes.scm
@@ -126,11 +126,9 @@ extensive examples, including parsers for the Javascript 
and C99 languages.")
     (license (list gpl3+ lgpl3+))))
 
 (define-public mes
-  (let ((triplet "i686-unknown-linux-gnu")
-        (version "0.22"))
   (package
     (name "mes")
-      (version version)
+    (version "0.22")
     (source (origin
               (method url-fetch)
               (uri (string-append
@@ -138,19 +136,28 @@ extensive examples, including parsers for the Javascript 
and C99 languages.")
               (sha256
                (base32 #!mes!# 
"04pajp8v31na34ls4730ig5f6miiplhdvkmsb9ls1b8bbmw2vb4n"))))
     (build-system gnu-build-system)
-      (supported-systems '("i686-linux" "x86_64-linux"))
+    (supported-systems '("aarch64-linux" "armhf-linux" "i686-linux" 
"x86_64-linux"))
     (propagated-inputs
      `(("mescc-tools" ,mescc-tools)
        ("nyacc" ,nyacc)))
     (native-inputs
      `(("guile" ,guile-2.2)
-         ,@(if (string-prefix? "x86_64-linux" (or (%current-target-system)
+       ,@(cond ((string-prefix? "x86_64-linux" (or (%current-target-system)
                                                    (%current-system)))
                 ;; Use cross-compiler rather than #:system "i686-linux" to get
                 ;; MesCC 64 bit .go files installed ready for use with Guile.
+                (let ((triplet "i686-unknown-linux-gnu"))
                   `(("i686-linux-binutils" ,(cross-binutils triplet))
-                 ("i686-linux-gcc" ,(cross-gcc triplet)))
-               '())
+                    ("i686-linux-gcc" ,(cross-gcc triplet)))))
+               ((string-prefix? "aarch64-linux" (or (%current-target-system)
+                                                    (%current-system)))
+                ;; Use cross-compiler rather than #:system "armhf-linux" to get
+                ;; MesCC 64 bit .go files installed ready for use with Guile.
+                (let ((triplet "arm-linux-gnueabihf"))
+                  `(("arm-linux-binutils" ,(cross-binutils triplet))
+                    ("arm-linux-gcc" ,(cross-gcc triplet)))))
+               (else
+                '()))
        ("graphviz" ,graphviz)
        ("help2man" ,help2man)
        ("perl" ,perl)                   ; build-aux/gitlog-to-changelog
@@ -165,7 +172,7 @@ GNU/Linux distributions.  It consists of a mutual 
self-hosting Scheme
 interpreter in C and a Nyacc-based C compiler in Scheme and is compatible with
 Guile.")
     (home-page "https://www.gnu.org/software/mes";)
-      (license gpl3+))))
+    (license gpl3+)))
 
 (define-public mes.git
  (let ((version "0.22")

pgpt6P09jpjuk.pgp
Description: OpenPGP digital signature