aboutsummaryrefslogtreecommitdiff
path: root/lib/models/gen/presence_j.ml
diff options
context:
space:
mode:
Diffstat (limited to 'lib/models/gen/presence_j.ml')
-rw-r--r--lib/models/gen/presence_j.ml492
1 files changed, 0 insertions, 492 deletions
diff --git a/lib/models/gen/presence_j.ml b/lib/models/gen/presence_j.ml
deleted file mode 100644
index b4ea497..0000000
--- a/lib/models/gen/presence_j.ml
+++ /dev/null
@@ -1,492 +0,0 @@
-(* Auto-generated from "presence.atd" *)
-[@@@ocaml.warning "-27-32-35-39"]
-
-type user = User_t.t
-
-type snowflake = Snowflake_t.t
-
-type partial_user = User_t.partial_user
-
-type activity = Activity_t.t
-
-type t = Presence_t.t = {
- user: partial_user;
- roles: snowflake list;
- game: activity option;
- guild_id: snowflake;
- status: string;
- activities: activity list
-}
-
-let write_user = (
- User_j.write_t
-)
-let string_of_user ?(len = 1024) x =
- let ob = Bi_outbuf.create len in
- write_user ob x;
- Bi_outbuf.contents ob
-let read_user = (
- User_j.read_t
-)
-let user_of_string s =
- read_user (Yojson.Safe.init_lexer ()) (Lexing.from_string s)
-let write_snowflake = (
- Snowflake_j.write_t
-)
-let string_of_snowflake ?(len = 1024) x =
- let ob = Bi_outbuf.create len in
- write_snowflake ob x;
- Bi_outbuf.contents ob
-let read_snowflake = (
- Snowflake_j.read_t
-)
-let snowflake_of_string s =
- read_snowflake (Yojson.Safe.init_lexer ()) (Lexing.from_string s)
-let write_partial_user = (
- User_j.write_partial_user
-)
-let string_of_partial_user ?(len = 1024) x =
- let ob = Bi_outbuf.create len in
- write_partial_user ob x;
- Bi_outbuf.contents ob
-let read_partial_user = (
- User_j.read_partial_user
-)
-let partial_user_of_string s =
- read_partial_user (Yojson.Safe.init_lexer ()) (Lexing.from_string s)
-let write_activity = (
- Activity_j.write_t
-)
-let string_of_activity ?(len = 1024) x =
- let ob = Bi_outbuf.create len in
- write_activity ob x;
- Bi_outbuf.contents ob
-let read_activity = (
- Activity_j.read_t
-)
-let activity_of_string s =
- read_activity (Yojson.Safe.init_lexer ()) (Lexing.from_string s)
-let write__3 = (
- Atdgen_runtime.Oj_run.write_list (
- write_activity
- )
-)
-let string_of__3 ?(len = 1024) x =
- let ob = Bi_outbuf.create len in
- write__3 ob x;
- Bi_outbuf.contents ob
-let read__3 = (
- Atdgen_runtime.Oj_run.read_list (
- read_activity
- )
-)
-let _3_of_string s =
- read__3 (Yojson.Safe.init_lexer ()) (Lexing.from_string s)
-let write__2 = (
- Atdgen_runtime.Oj_run.write_option (
- write_activity
- )
-)
-let string_of__2 ?(len = 1024) x =
- let ob = Bi_outbuf.create len in
- write__2 ob x;
- Bi_outbuf.contents ob
-let read__2 = (
- fun p lb ->
- Yojson.Safe.read_space p lb;
- match Yojson.Safe.start_any_variant p lb with
- | `Edgy_bracket -> (
- match Yojson.Safe.read_ident p lb with
- | "None" ->
- Yojson.Safe.read_space p lb;
- Yojson.Safe.read_gt p lb;
- (None : _ option)
- | "Some" ->
- Atdgen_runtime.Oj_run.read_until_field_value p lb;
- let x = (
- read_activity
- ) p lb
- in
- Yojson.Safe.read_space p lb;
- Yojson.Safe.read_gt p lb;
- (Some x : _ option)
- | x ->
- Atdgen_runtime.Oj_run.invalid_variant_tag p x
- )
- | `Double_quote -> (
- match Yojson.Safe.finish_string p lb with
- | "None" ->
- (None : _ option)
- | x ->
- Atdgen_runtime.Oj_run.invalid_variant_tag p x
- )
- | `Square_bracket -> (
- match Atdgen_runtime.Oj_run.read_string p lb with
- | "Some" ->
- Yojson.Safe.read_space p lb;
- Yojson.Safe.read_comma p lb;
- Yojson.Safe.read_space p lb;
- let x = (
- read_activity
- ) p lb
- in
- Yojson.Safe.read_space p lb;
- Yojson.Safe.read_rbr p lb;
- (Some x : _ option)
- | x ->
- Atdgen_runtime.Oj_run.invalid_variant_tag p x
- )
-)
-let _2_of_string s =
- read__2 (Yojson.Safe.init_lexer ()) (Lexing.from_string s)
-let write__1 = (
- Atdgen_runtime.Oj_run.write_list (
- write_snowflake
- )
-)
-let string_of__1 ?(len = 1024) x =
- let ob = Bi_outbuf.create len in
- write__1 ob x;
- Bi_outbuf.contents ob
-let read__1 = (
- Atdgen_runtime.Oj_run.read_list (
- read_snowflake
- )
-)
-let _1_of_string s =
- read__1 (Yojson.Safe.init_lexer ()) (Lexing.from_string s)
-let write_t : _ -> t -> _ = (
- fun ob x ->
- Bi_outbuf.add_char ob '{';
- let is_first = ref true in
- if !is_first then
- is_first := false
- else
- Bi_outbuf.add_char ob ',';
- Bi_outbuf.add_string ob "\"user\":";
- (
- write_partial_user
- )
- ob x.user;
- if !is_first then
- is_first := false
- else
- Bi_outbuf.add_char ob ',';
- Bi_outbuf.add_string ob "\"roles\":";
- (
- write__1
- )
- ob x.roles;
- (match x.game with None -> () | Some x ->
- if !is_first then
- is_first := false
- else
- Bi_outbuf.add_char ob ',';
- Bi_outbuf.add_string ob "\"game\":";
- (
- write_activity
- )
- ob x;
- );
- if !is_first then
- is_first := false
- else
- Bi_outbuf.add_char ob ',';
- Bi_outbuf.add_string ob "\"guild_id\":";
- (
- write_snowflake
- )
- ob x.guild_id;
- if !is_first then
- is_first := false
- else
- Bi_outbuf.add_char ob ',';
- Bi_outbuf.add_string ob "\"status\":";
- (
- Yojson.Safe.write_string
- )
- ob x.status;
- if !is_first then
- is_first := false
- else
- Bi_outbuf.add_char ob ',';
- Bi_outbuf.add_string ob "\"activities\":";
- (
- write__3
- )
- ob x.activities;
- Bi_outbuf.add_char ob '}';
-)
-let string_of_t ?(len = 1024) x =
- let ob = Bi_outbuf.create len in
- write_t ob x;
- Bi_outbuf.contents ob
-let read_t = (
- fun p lb ->
- Yojson.Safe.read_space p lb;
- Yojson.Safe.read_lcurl p lb;
- let field_user = ref (Obj.magic (Sys.opaque_identity 0.0)) in
- let field_roles = ref (Obj.magic (Sys.opaque_identity 0.0)) in
- let field_game = ref (None) in
- let field_guild_id = ref (Obj.magic (Sys.opaque_identity 0.0)) in
- let field_status = ref (Obj.magic (Sys.opaque_identity 0.0)) in
- let field_activities = ref (Obj.magic (Sys.opaque_identity 0.0)) in
- let bits0 = ref 0 in
- try
- Yojson.Safe.read_space p lb;
- Yojson.Safe.read_object_end lb;
- Yojson.Safe.read_space p lb;
- let f =
- fun s pos len ->
- if pos < 0 || len < 0 || pos + len > String.length s then
- invalid_arg "out-of-bounds substring position or length";
- match len with
- | 4 -> (
- match String.unsafe_get s pos with
- | 'g' -> (
- if String.unsafe_get s (pos+1) = 'a' && String.unsafe_get s (pos+2) = 'm' && String.unsafe_get s (pos+3) = 'e' then (
- 2
- )
- else (
- -1
- )
- )
- | 'u' -> (
- if String.unsafe_get s (pos+1) = 's' && String.unsafe_get s (pos+2) = 'e' && String.unsafe_get s (pos+3) = 'r' then (
- 0
- )
- else (
- -1
- )
- )
- | _ -> (
- -1
- )
- )
- | 5 -> (
- if String.unsafe_get s pos = 'r' && String.unsafe_get s (pos+1) = 'o' && String.unsafe_get s (pos+2) = 'l' && String.unsafe_get s (pos+3) = 'e' && String.unsafe_get s (pos+4) = 's' then (
- 1
- )
- else (
- -1
- )
- )
- | 6 -> (
- if String.unsafe_get s pos = 's' && String.unsafe_get s (pos+1) = 't' && String.unsafe_get s (pos+2) = 'a' && String.unsafe_get s (pos+3) = 't' && String.unsafe_get s (pos+4) = 'u' && String.unsafe_get s (pos+5) = 's' then (
- 4
- )
- else (
- -1
- )
- )
- | 8 -> (
- if String.unsafe_get s pos = 'g' && String.unsafe_get s (pos+1) = 'u' && String.unsafe_get s (pos+2) = 'i' && String.unsafe_get s (pos+3) = 'l' && String.unsafe_get s (pos+4) = 'd' && String.unsafe_get s (pos+5) = '_' && String.unsafe_get s (pos+6) = 'i' && String.unsafe_get s (pos+7) = 'd' then (
- 3
- )
- else (
- -1
- )
- )
- | 10 -> (
- if String.unsafe_get s pos = 'a' && String.unsafe_get s (pos+1) = 'c' && String.unsafe_get s (pos+2) = 't' && String.unsafe_get s (pos+3) = 'i' && String.unsafe_get s (pos+4) = 'v' && String.unsafe_get s (pos+5) = 'i' && String.unsafe_get s (pos+6) = 't' && String.unsafe_get s (pos+7) = 'i' && String.unsafe_get s (pos+8) = 'e' && String.unsafe_get s (pos+9) = 's' then (
- 5
- )
- else (
- -1
- )
- )
- | _ -> (
- -1
- )
- in
- let i = Yojson.Safe.map_ident p f lb in
- Atdgen_runtime.Oj_run.read_until_field_value p lb;
- (
- match i with
- | 0 ->
- field_user := (
- (
- read_partial_user
- ) p lb
- );
- bits0 := !bits0 lor 0x1;
- | 1 ->
- field_roles := (
- (
- read__1
- ) p lb
- );
- bits0 := !bits0 lor 0x2;
- | 2 ->
- if not (Yojson.Safe.read_null_if_possible p lb) then (
- field_game := (
- Some (
- (
- read_activity
- ) p lb
- )
- );
- )
- | 3 ->
- field_guild_id := (
- (
- read_snowflake
- ) p lb
- );
- bits0 := !bits0 lor 0x4;
- | 4 ->
- field_status := (
- (
- Atdgen_runtime.Oj_run.read_string
- ) p lb
- );
- bits0 := !bits0 lor 0x8;
- | 5 ->
- field_activities := (
- (
- read__3
- ) p lb
- );
- bits0 := !bits0 lor 0x10;
- | _ -> (
- Yojson.Safe.skip_json p lb
- )
- );
- while true do
- Yojson.Safe.read_space p lb;
- Yojson.Safe.read_object_sep p lb;
- Yojson.Safe.read_space p lb;
- let f =
- fun s pos len ->
- if pos < 0 || len < 0 || pos + len > String.length s then
- invalid_arg "out-of-bounds substring position or length";
- match len with
- | 4 -> (
- match String.unsafe_get s pos with
- | 'g' -> (
- if String.unsafe_get s (pos+1) = 'a' && String.unsafe_get s (pos+2) = 'm' && String.unsafe_get s (pos+3) = 'e' then (
- 2
- )
- else (
- -1
- )
- )
- | 'u' -> (
- if String.unsafe_get s (pos+1) = 's' && String.unsafe_get s (pos+2) = 'e' && String.unsafe_get s (pos+3) = 'r' then (
- 0
- )
- else (
- -1
- )
- )
- | _ -> (
- -1
- )
- )
- | 5 -> (
- if String.unsafe_get s pos = 'r' && String.unsafe_get s (pos+1) = 'o' && String.unsafe_get s (pos+2) = 'l' && String.unsafe_get s (pos+3) = 'e' && String.unsafe_get s (pos+4) = 's' then (
- 1
- )
- else (
- -1
- )
- )
- | 6 -> (
- if String.unsafe_get s pos = 's' && String.unsafe_get s (pos+1) = 't' && String.unsafe_get s (pos+2) = 'a' && String.unsafe_get s (pos+3) = 't' && String.unsafe_get s (pos+4) = 'u' && String.unsafe_get s (pos+5) = 's' then (
- 4
- )
- else (
- -1
- )
- )
- | 8 -> (
- if String.unsafe_get s pos = 'g' && String.unsafe_get s (pos+1) = 'u' && String.unsafe_get s (pos+2) = 'i' && String.unsafe_get s (pos+3) = 'l' && String.unsafe_get s (pos+4) = 'd' && String.unsafe_get s (pos+5) = '_' && String.unsafe_get s (pos+6) = 'i' && String.unsafe_get s (pos+7) = 'd' then (
- 3
- )
- else (
- -1
- )
- )
- | 10 -> (
- if String.unsafe_get s pos = 'a' && String.unsafe_get s (pos+1) = 'c' && String.unsafe_get s (pos+2) = 't' && String.unsafe_get s (pos+3) = 'i' && String.unsafe_get s (pos+4) = 'v' && String.unsafe_get s (pos+5) = 'i' && String.unsafe_get s (pos+6) = 't' && String.unsafe_get s (pos+7) = 'i' && String.unsafe_get s (pos+8) = 'e' && String.unsafe_get s (pos+9) = 's' then (
- 5
- )
- else (
- -1
- )
- )
- | _ -> (
- -1
- )
- in
- let i = Yojson.Safe.map_ident p f lb in
- Atdgen_runtime.Oj_run.read_until_field_value p lb;
- (
- match i with
- | 0 ->
- field_user := (
- (
- read_partial_user
- ) p lb
- );
- bits0 := !bits0 lor 0x1;
- | 1 ->
- field_roles := (
- (
- read__1
- ) p lb
- );
- bits0 := !bits0 lor 0x2;
- | 2 ->
- if not (Yojson.Safe.read_null_if_possible p lb) then (
- field_game := (
- Some (
- (
- read_activity
- ) p lb
- )
- );
- )
- | 3 ->
- field_guild_id := (
- (
- read_snowflake
- ) p lb
- );
- bits0 := !bits0 lor 0x4;
- | 4 ->
- field_status := (
- (
- Atdgen_runtime.Oj_run.read_string
- ) p lb
- );
- bits0 := !bits0 lor 0x8;
- | 5 ->
- field_activities := (
- (
- read__3
- ) p lb
- );
- bits0 := !bits0 lor 0x10;
- | _ -> (
- Yojson.Safe.skip_json p lb
- )
- );
- done;
- assert false;
- with Yojson.End_of_object -> (
- if !bits0 <> 0x1f then Atdgen_runtime.Oj_run.missing_fields p [| !bits0 |] [| "user"; "roles"; "guild_id"; "status"; "activities" |];
- (
- {
- user = !field_user;
- roles = !field_roles;
- game = !field_game;
- guild_id = !field_guild_id;
- status = !field_status;
- activities = !field_activities;
- }
- : t)
- )
-)
-let t_of_string s =
- read_t (Yojson.Safe.init_lexer ()) (Lexing.from_string s)
generated by cgit v1.2.3 (git 2.25.1) at 2026-05-13 01:36:40 +0000