From c69fb5baa1bc1c9f1c6f4e33994ddb2463f16c48 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andreas=20Kr=C3=BChlmann?= <andreas@kruhlmann.dev>
Date: Tue, 21 May 2024 00:16:16 +0200
Subject: [PATCH] temp commit pre clean

---
 .envrc                             |  1 +
 lib/api/game/platformlogin.ml      |  4 ++++
 lib/data/platform/credentials.ml   | 24 ++++++++++++++++++++++++
 lib/data/platform/platform_type.ml |  5 +++++
 shell.nix                          |  1 +
 5 files changed, 35 insertions(+)
 create mode 100644 .envrc
 create mode 100644 lib/api/game/platformlogin.ml
 create mode 100644 lib/data/platform/credentials.ml
 create mode 100644 lib/data/platform/platform_type.ml

diff --git a/.envrc b/.envrc
new file mode 100644
index 0000000..1d953f4
--- /dev/null
+++ b/.envrc
@@ -0,0 +1 @@
+use nix
diff --git a/lib/api/game/platformlogin.ml b/lib/api/game/platformlogin.ml
new file mode 100644
index 0000000..00ec5b7
--- /dev/null
+++ b/lib/api/game/platformlogin.ml
@@ -0,0 +1,4 @@
+open Data.Platform
+open Data.Credentials
+
+let login game domain platform credentials = ()
diff --git a/lib/data/platform/credentials.ml b/lib/data/platform/credentials.ml
new file mode 100644
index 0000000..767f61d
--- /dev/null
+++ b/lib/data/platform/credentials.ml
@@ -0,0 +1,24 @@
+type t =
+  { account_type : Platform_type.t
+  ; active_match_id : string
+  ; alias : string
+  ; app_id : int
+  ; auth : string
+  ; call_num : int
+  ; client_lib_version : int
+  ; connect_id : string
+  ; country : string
+  ; installation_type : string
+  ; language : string
+  ; mac_address : string
+  ; major_version : string
+  ; minor_version : string
+  ; platform_environment : string
+  ; platform_user_id : string
+  ; start_game_token : string
+  ; store_license_token : string
+  ; store_token : string
+  ; sync_hash : string
+  ; timeout_override : int
+  ; game : Game.t
+  }
diff --git a/lib/data/platform/platform_type.ml b/lib/data/platform/platform_type.ml
new file mode 100644
index 0000000..da14bce
--- /dev/null
+++ b/lib/data/platform/platform_type.ml
@@ -0,0 +1,5 @@
+type t =
+  | Steam
+  | Xbox
+
+let to_str = function Steam -> "STEAM" | Xbox -> "XBOX"
diff --git a/shell.nix b/shell.nix
index 4ddb0c3..59e73c2 100644
--- a/shell.nix
+++ b/shell.nix
@@ -11,6 +11,7 @@ pkgs.mkShell{
     opam
     openssl
     ocamlPackages.ocamlformat
+    ocamlPackages.ocaml-lsp
     pkg-config
     zlib
   ];