racket-ssh/constants.rkt at master · tewk/racket-ssh · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
#lang racket/base

(define-syntax-rule (define-const-table (id val) ...)
  (begin
    (begin
      (provide id)
      (define  id val)) ...
    (provide pkt-id->name)
    (define pkt-id->name
      (let ([h (make-hash '((val . id) ...))])
        (lambda (x) (hash-ref h x))))))

(define-const-table
  (SSH_MSG_DISCONNECT                       1)
  (SSH_MSG_IGNORE                           2)
  (SSH_MSG_UNIMPLEMENTED                    3)
  (SSH_MSG_DEBUG                            4)
  (SSH_MSG_SERVICE_REQUEST                  5)
  (SSH_MSG_SERVICE_ACCEPT                   6)
  (SSH_MSG_KEXINIT                         20)
  (SSH_MSG_NEWKEYS                         21)
  (SSH_MSG_KEXDH_INIT                      30)
  (SSH_MSG_KEXDH_REPLY                     31)
  (SSH_MSG_KEX_DH_GEX_GROUP                31)
  (SSH_MSG_KEX_DH_GEX_INIT                 32)
  (SSH_MSG_KEX_DH_GEX_REPLY                33)
  (SSH_MSG_KEX_DH_GEX_REQUEST              34)
  (SSH_MSG_USERAUTH_REQUEST                50)
  (SSH_MSG_USERAUTH_FAILURE                51)
  (SSH_MSG_USERAUTH_SUCCESS                52)
  (SSH_MSG_USERAUTH_BANNER                 53)
  (SSH_MSG_USERAUTH_PK_OK                  60)
  (SSH_MSG_GLOBAL_REQUEST                  80)
  (SSH_MSG_REQUEST_SUCCESS                 81)
  (SSH_MSG_REQUEST_FAILURE                 82)
  (SSH_MSG_CHANNEL_OPEN                    90)
  (SSH_MSG_CHANNEL_OPEN_CONFIRMATION       91)
  (SSH_MSG_CHANNEL_OPEN_FAILURE            92)
  (SSH_MSG_CHANNEL_WINDOW_ADJUST           93)
  (SSH_MSG_CHANNEL_DATA                    94)
  (SSH_MSG_CHANNEL_EXTENDED_DATA           95)
  (SSH_MSG_CHANNEL_EOF                     96)
  (SSH_MSG_CHANNEL_CLOSE                   97)
  (SSH_MSG_CHANNEL_REQUEST                 98)
  (SSH_MSG_CHANNEL_SUCCESS                 99)
  (SSH_MSG_CHANNEL_FAILURE                100))