Source file time_slot_j.ml

(* Auto-generated from "time_slot.atd" *)
[@@@ocaml.warning "-27-32-33-35-39"]

type int64 = Int64_t.int64

type time_slot = Time_slot_t.time_slot

let write_int64 = (
  Int64_j.write_int64
)
let string_of_int64 ?(len = 1024) x =
  let ob = Buffer.create len in
  write_int64 ob x;
  Buffer.contents ob
let read_int64 = (
  Int64_j.read_int64
)
let int64_of_string s =
  read_int64 (Yojson.Safe.init_lexer ()) (Lexing.from_string s)
let write_time_slot = (
  fun ob x ->
    Buffer.add_char ob '[';
    (let x, _ = x in
    (
      write_int64
    ) ob x
    );
    Buffer.add_char ob ',';
    (let _, x = x in
    (
      write_int64
    ) ob x
    );
    Buffer.add_char ob ']';
)
let string_of_time_slot ?(len = 1024) x =
  let ob = Buffer.create len in
  write_time_slot ob x;
  Buffer.contents ob
let read_time_slot = (
  fun p lb ->
    Yojson.Safe.read_space p lb;
    Atdgen_runtime.Yojson_extra.start_any_tuple p lb;
    let len = ref 0 in
    let end_of_tuple = ref false in
    (try
      let x0 =
        let x =
          (
            read_int64
          ) p lb
        in
        incr len;
        Yojson.Safe.read_space p lb;
        Atdgen_runtime.Yojson_extra.read_tuple_sep2 p lb;
        x
      in
      let x1 =
        let x =
          (
            read_int64
          ) p lb
        in
        incr len;
        (try
          Yojson.Safe.read_space p lb;
          Atdgen_runtime.Yojson_extra.read_tuple_sep2 p lb;
        with Atdgen_runtime.Yojson_extra.End_of_tuple -> end_of_tuple := true);
        x
      in
      if not !end_of_tuple then (
        try
          while true do
            Yojson.Safe.skip_json p lb;
            Yojson.Safe.read_space p lb;
            Atdgen_runtime.Yojson_extra.read_tuple_sep2 p lb;
          done
        with Atdgen_runtime.Yojson_extra.End_of_tuple -> ()
      );
      (x0, x1)
    with Atdgen_runtime.Yojson_extra.End_of_tuple ->
      Atdgen_runtime.Oj_run.missing_tuple_fields p !len [ 0; 1 ]);
)
let time_slot_of_string s =
  read_time_slot (Yojson.Safe.init_lexer ()) (Lexing.from_string s)