01/52: gnu: dbus-glib: Support cross-compilation.

[guix-commits]

mothacehe pushed a commit to branch core-updates-frozen
in repository guix.

commit 967f8af877b5e428d839190744b765b0d10a96b8
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Tue Aug 24 09:21:09 2021 +0200

    gnu: dbus-glib: Support cross-compilation.
    
    This allows cross-compilation to succeed when not using
    QEMU's transparent emulation, and the cross-compilation
    is not a pointless cross-compilation like x86_64 -> i686.
    
    * gnu/packages/glib.scm (dbus-glib)[arguments]: Set --with-dbus-binding-tool
      to a native version of "dbus-binding-tool" when cross-compiling.
---
 gnu/packages/glib.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/gnu/packages/glib.scm b/gnu/packages/glib.scm
index c05a57d..cf54b31 100644
--- a/gnu/packages/glib.scm
+++ b/gnu/packages/glib.scm
@@ -562,6 +562,16 @@ translated.")
               (base32
                "09g8swvc95bk1z6j8sw463p2v0dqmgm2zjfndf7i8sbcyq67dr3w"))))
     (build-system gnu-build-system)
+    (arguments
+     (if (%current-target-system)
+         `(#:configure-flags
+           ;; Run a native 'dbus-binding-tool' instead of a cross-compiled
+           ;; 'dbus-binding-tool' when cross-compiling.
+           ,#~(list
+               (string-append
+                "--with-dbus-binding-tool="
+                #+(file-append this-package "/bin/dbus-binding-tool"))))
+         '()))
     (propagated-inputs ; according to dbus-glib-1.pc
      `(("dbus" ,dbus)
        ("glib" ,glib)))