channel.scm: Add remote pipes

* modules/ssh/channel.scm (open-remote-pipe, open-remote-pipe*): New
  procedures.
* doc/api-channels.texi: Add "Remote Pipes" section.
* NEWS: Update.

1 files changed, 25 insertions, 1 deletions

diff --git a/modules/ssh/channel.scm b/modules/ssh/channel.scm
index ce35bd3..e65d946 100644
--- a/modules/ssh/channel.scm
+++ b/modules/ssh/channel.scm
@@ -66,7 +66,11 @@
             channel-get-session
             channel-get-exit-status
             channel-open?
-            channel-eof?))
+            channel-eof?
+
+            ;; High-level procedures.
+            open-remote-pipe
+            open-remote-pipe*))
 
 
 (define* (channel-open-forward channel
@@ -104,6 +108,26 @@ issued."
   (%channel-accept-forward session timeout))
 
 
+;;; High-level procedures.
+;; TODO: Add error handling.
+
+(define (open-remote-pipe session command)
+  "Execute a COMMAND on the remote host using a SESSION with a pipe to it.
+The pipe works in both directions.  Returns newly created port (channel)."
+  (let ((channel (make-channel session)))
+    (channel-open-session channel)
+    (channel-request-pty channel)
+    (channel-request-exec channel command)
+    channel))
+
+(define (open-remote-pipe* session prog . args)
+  "Execute COMMANDS on the remote host using a SESSION with a pipe to it.  The
+pipe works in both directions.  Returns newly created port (channel)."
+  (open-remote-pipe session (string-join (cons prog args))))
+
+;;;
+
+
 (load-extension "libguile-ssh" "init_channel")
 
 ;;; channel.scm ends here.