From 9d7cac5da110250539d1ae139cb159425b0e67b1 Mon Sep 17 00:00:00 2001
From: Lyn Breedlove <tenseiken595@gmail.com>
Date: Fri, 26 Oct 2018 16:17:23 -0600
Subject: More random stuff with sharding

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

(limited to 'lib/client/sharder/opcode.ml')

diff --git a/lib/client/sharder/opcode.ml b/lib/client/sharder/opcode.ml
new file mode 100644
index 0000000..679f45e
--- /dev/null
+++ b/lib/client/sharder/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