;; -*- Mode: Irken -*-

(make-enum ssh-mtype
  (disconnect                1)
  (ignore                    2)
  (unimplemented             3)
  (debug                     4)
  (service-request           5)
  (service-accept            6)
  (kexinit                   20)
  (newkeys                   21)
  (kex-ecdh-init             30)
  (kex-ecdh-reply            31)
  (userauth-request          50)
  (userauth-failure          51)
  (userauth-success          52)
  (userauth-banner           53)
  (userauth-pk-ok            60)
  (global-request            80)
  (request-success           81)
  (request-failure           82)
  (channel-open              90)
  (channel-open-yes          91) ;; name shortened
  (channel-open-no           92) ;; name shortened
  (channel-window-adjust     93)
  (channel-data              94)
  (channel-extended-data     95)
  (channel-eof               96)
  (channel-close             97)
  (channel-request           98)
  (channel-success           99)
  (channel-failure          100)
  (unknown                   -1)
  )

(make-enum ssh-dis
  (host-not-allowed-to-connect     1)
  (protocol-error                  2)
  (key-exchange-failed             3)
  (reserved                        4)
  (mac-error                       5)
  (compression-error               6)
  (service-not-available           7)
  (protocol-version-not-supported  8)
  (host-key-not-verifiable         9)
  (connection-lost                 10)
  (by-application                  11)
  (too-many-connections            12)
  (auth-cancelled-by-user          13)
  (no-more-auth-methods-available  14)
  (illegal-user-name               15)
  )

(make-enum ssh-open
  (administratively-prohibited          1)
  (connect-failed                       2)
  (unknown-channel-type                 3)
  (resource-shortage                    4)
  )