Switch to dispatch-table-oriented packet handling.

safe-io.rkt

@@ -2,6 +2,7 @@
 
 (provide read-line-limited)
 
+;; Port Natural -> (or String EofObject)
 ;; Uses Internet (CRLF) convention. Limit does not cover the CRLF
 ;; bytes.
 (define (read-line-limited port limit)

ssh-message-types.rkt

@@ -26,6 +26,7 @@
 	 (struct-out ssh-msg-disconnect)
 	 (struct-out ssh-msg-unimplemented)
 	 (struct-out ssh-msg-newkeys)
+	 (struct-out ssh-msg-debug)
 	 (struct-out ssh-msg-ignore))
 
 (define decoder-map (make-hasheqv))
@@ -216,5 +217,10 @@
 
 (define-ssh-message-type ssh-msg-newkeys SSH_MSG_NEWKEYS)
 
+(define-ssh-message-type ssh-msg-debug SSH_MSG_DEBUG
+  (boolean always-display?)
+  (string message)
+  (string language-tag))
+
 (define-ssh-message-type ssh-msg-ignore SSH_MSG_IGNORE
   (string data))