From 7c9b809078b5cd53e3d54c0004c683da2ec679af Mon Sep 17 00:00:00 2001
From: Adelyn Breedlove <adelyn@momijibot.com>
Date: Mon, 11 Feb 2019 17:23:59 +0000
Subject: Add a cache

---
 lib/gateway/opcode.ml | 54 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 54 insertions(+)
 create mode 100644 lib/gateway/opcode.ml

(limited to 'lib/gateway/opcode.ml')

diff --git a/lib/gateway/opcode.ml b/lib/gateway/opcode.ml
new file mode 100644
index 0000000..32ab5b4
--- /dev/null
+++ b/lib/gateway/opcode.ml
@@ -0,0 +1,54 @@
+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"
\ No newline at end of file
-- 
cgit v1.2.3