metabash-diff-example-1.scm

#!/usr/bin/guile \
-L modules -e main -s
!#

(use-modules (oop goops)
             (ssh session)
             (ssh auth)
             (metabash plumber)
             (metabash diff))



(define (main args)
  (define session (make-session #:host "example.org"))
  (connect! session)
  (userauth-agent! session)

  (let ((pipeline1 (plumb `(local "cat /etc/passwd")))
        (pipeline2 (plumb `(remote ,session "cat /etc/passwd"))))

    (diff (pipeline-output-port pipeline1)
          (pipeline-output-port pipeline2)
          (current-output-port))

    (while (and (not (port-closed? (pipeline-output-port pipeline1)))
                (not (port-closed? (pipeline-output-port pipeline2))))
           (sleep 1))))