blob: e2f44aae4e7bec908c26b120dbcd9c5d50e02815 (
plain) (
blame)
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
47
48
49
50
51
52
53
54
55
56
|
open Core
type t =
| DISPATCH
| HEARTBEAT
| IDENTIFY
| STATUS_UPDATE
| VOICE_STATE_UPDATE
| RESUME
| RECONNECT
| REQUEST_GUILD_MEMBERS
| INVALID_SESSION
| HELLO
| HEARTBEAT_ACK
exception Invalid_Opcode of int
let to_int = function
| DISPATCH -> 0
| HEARTBEAT -> 1
| IDENTIFY -> 2
| STATUS_UPDATE -> 3
| VOICE_STATE_UPDATE -> 4
| RESUME -> 6
| RECONNECT -> 7
| REQUEST_GUILD_MEMBERS -> 8
| INVALID_SESSION -> 9
| HELLO -> 10
| HEARTBEAT_ACK -> 11
let from_int = function
| 0 -> DISPATCH
| 1 -> HEARTBEAT
| 2 -> IDENTIFY
| 3 -> STATUS_UPDATE
| 4 -> VOICE_STATE_UPDATE
| 6 -> RESUME
| 7 -> RECONNECT
| 8 -> REQUEST_GUILD_MEMBERS
| 9 -> INVALID_SESSION
| 10 -> HELLO
| 11 -> HEARTBEAT_ACK
| op -> raise (Invalid_Opcode op)
let to_string = function
| DISPATCH -> "DISPATCH"
| HEARTBEAT -> "HEARTBEAT"
| IDENTIFY -> "IDENTIFY"
| STATUS_UPDATE -> "STATUS_UPDATE"
| VOICE_STATE_UPDATE -> "VOICE_STATE_UPDATE"
| RESUME -> "RESUME"
| RECONNECT -> "RECONNECT"
| REQUEST_GUILD_MEMBERS -> "REQUEST_GUILD_MEMBER"
| INVALID_SESSION -> "INVALID_SESSION"
| HELLO -> "HELLO"
| HEARTBEAT_ACK -> "HEARTBEAT_ACK"
|