Enable introspection of sessions

Adds the session? predicate for testing for a Session object, an the
session-hostname and session-port functions for querying a session.

Author: hugoduncan

src/clj_ssh/ssh.clj

@@ -123,6 +123,11 @@
   [session]
   (protocols/session session))
 
+(defn session?
+  "Predicate to test for a session"
+  [x]
+  (satisfies? x protocols/Session))
+
 ;;; Agent
 (defn ssh-agent
   "Create a ssh-agent. By default a system ssh-agent is preferred."
@@ -323,6 +328,16 @@ keys.  All other option key pairs will be passed as SSH config options."
    password
    (session-options options)))
 
+(defn ^String session-hostname
+  "Return the hostname for a session"
+  [^Session session]
+  (.getHost session))
+
+(defn ^int session-port
+  "Return the port for a session"
+  [^Session session]
+  (.getPort session))
+
 (defn forward-remote-port
   "Start remote port forwarding"
   ([^Session session remote-port local-port ^String local-host]