specimen.lfe

(defun handle_ssh_msg
  (((tuple 'ssh_cm conn-ref
           (tuple 'pty chan-id want-reply
                  (tuple term width height _ _ modes)))
    state)
   (progn (if want-reply
            (ssh_connection:reply_request conn-ref 'false 'success chan-id))
          (tuple 'ok state)))
  (((tuple 'ssh_cm conn-ref
           (tuple 'shell chan-id want-reply)))
   (progn (if want-reply
            (ssh_connection:reply_request conn-ref 'false 'success chan-id))
          (tuple 'ok state)))
  (((tuple 'ssh_cm conn-ref
           (tuple 'window_change chan-id width height _ _)))
   (tuple 'ok state))
  (((tuple 'ssh_cm conn-ref (tuple 'data chan-id 0 input)) state)
   (tuple 'ok state)))