summary refs log tree commit diff
path: root/m4/guix.m4
diff options
context:
space:
mode:
authorLeo Famulari <leo@famulari.name>2016-11-26 16:21:47 -0500
committerLeo Famulari <leo@famulari.name>2016-11-26 16:21:47 -0500
commita282cdae107c8aec512b563f25dd411183ef2830 (patch)
tree3359e7101ba120cb6d2dbd156327edd727bcc01a /m4/guix.m4
parent3ad8cb4163deee77882ee4bded83a548752b896f (diff)
parentcd65d600ac6e8701ef9c54f5d09a45cd6c149949 (diff)
downloadguix-a282cdae107c8aec512b563f25dd411183ef2830.tar.gz
Merge branch 'master' into core-updates
Diffstat (limited to 'm4/guix.m4')
-rw-r--r--m4/guix.m418
1 files changed, 18 insertions, 0 deletions
diff --git a/m4/guix.m4 b/m4/guix.m4
index 6d8ec2e4e0..6630598416 100644
--- a/m4/guix.m4
+++ b/m4/guix.m4
@@ -171,6 +171,24 @@ AC_DEFUN([GUIX_CHECK_UNBUFFERED_CBIP], [
      fi])
 ])
 
+dnl GUIX_CHECK_GUILE_SSH
+dnl
+dnl Check whether a recent-enough Guile-SSH is available.
+AC_DEFUN([GUIX_CHECK_GUILE_SSH], [
+  dnl Check whether 'channel-send-eof' (introduced in 0.10.2) is present.
+  AC_CACHE_CHECK([whether Guile-SSH is available and recent enough],
+    [guix_cv_have_recent_guile_ssh],
+    [GUILE_CHECK([retval],
+      [(and (@ (ssh channel) channel-send-eof)
+            (@ (ssh popen) open-remote-pipe)
+	    (@ (ssh dist node) node-eval))])
+     if test "$retval" = 0; then
+       guix_cv_have_recent_guile_ssh="yes"
+     else
+       guix_cv_have_recent_guile_ssh="no"
+     fi])
+])
+
 dnl GUIX_TEST_ROOT_DIRECTORY
 AC_DEFUN([GUIX_TEST_ROOT_DIRECTORY], [
   AC_CACHE_CHECK([for unit test root directory],