Source file time_profile_j.ml

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

type time_pattern = Time_pattern_t.time_pattern

type period = Time_profile_t.period

type data = Time_profile_t.data = { periods: period list }

type t = Time_profile_t.t

let write_time_pattern = (
  Time_pattern_j.write_time_pattern
)
let string_of_time_pattern ?(len = 1024) x =
  let ob = Buffer.create len in
  write_time_pattern ob x;
  Buffer.contents ob
let read_time_pattern = (
  Time_pattern_j.read_time_pattern
)
let time_pattern_of_string s =
  read_time_pattern (Yojson.Safe.init_lexer ()) (Lexing.from_string s)
let write_period = (
  fun ob x ->
    Buffer.add_char ob '[';
    (let x, _ = x in
    (
      write_time_pattern
    ) ob x
    );
    Buffer.add_char ob ',';
    (let _, x = x in
    (
      write_time_pattern
    ) ob x
    );
    Buffer.add_char ob ']';
)
let string_of_period ?(len = 1024) x =
  let ob = Buffer.create len in
  write_period ob x;
  Buffer.contents ob
let read_period = (
  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_time_pattern
          ) 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_time_pattern
          ) 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 period_of_string s =
  read_period (Yojson.Safe.init_lexer ()) (Lexing.from_string s)
let write__period_list = (
  Atdgen_runtime.Oj_run.write_list (
    write_period
  )
)
let string_of__period_list ?(len = 1024) x =
  let ob = Buffer.create len in
  write__period_list ob x;
  Buffer.contents ob
let read__period_list = (
  Atdgen_runtime.Oj_run.read_list (
    read_period
  )
)
let _period_list_of_string s =
  read__period_list (Yojson.Safe.init_lexer ()) (Lexing.from_string s)
let write_data : _ -> data -> _ = (
  fun ob (x : data) ->
    Buffer.add_char ob '{';
    let is_first = ref true in
    if !is_first then
      is_first := false
    else
      Buffer.add_char ob ',';
      Buffer.add_string ob "\"periods\":";
    (
      write__period_list
    )
      ob x.periods;
    Buffer.add_char ob '}';
)
let string_of_data ?(len = 1024) x =
  let ob = Buffer.create len in
  write_data ob x;
  Buffer.contents ob
let read_data = (
  fun p lb ->
    Yojson.Safe.read_space p lb;
    Yojson.Safe.read_lcurl p lb;
    let field_periods = ref (None) 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 (Printf.sprintf "out-of-bounds substring position or length: string = %S, requested position = %i, requested length = %i" s pos len);
          if len = 7 && String.unsafe_get s pos = 'p' && String.unsafe_get s (pos+1) = 'e' && String.unsafe_get s (pos+2) = 'r' && String.unsafe_get s (pos+3) = 'i' && String.unsafe_get s (pos+4) = 'o' && String.unsafe_get s (pos+5) = 'd' && String.unsafe_get s (pos+6) = 's' then (
            0
          )
          else (
            -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_periods := (
              Some (
                (
                  read__period_list
                ) p lb
              )
            );
          | _ -> (
              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 (Printf.sprintf "out-of-bounds substring position or length: string = %S, requested position = %i, requested length = %i" s pos len);
            if len = 7 && String.unsafe_get s pos = 'p' && String.unsafe_get s (pos+1) = 'e' && String.unsafe_get s (pos+2) = 'r' && String.unsafe_get s (pos+3) = 'i' && String.unsafe_get s (pos+4) = 'o' && String.unsafe_get s (pos+5) = 'd' && String.unsafe_get s (pos+6) = 's' then (
              0
            )
            else (
              -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_periods := (
                Some (
                  (
                    read__period_list
                  ) p lb
                )
              );
            | _ -> (
                Yojson.Safe.skip_json p lb
              )
        );
      done;
      assert false;
    with Yojson.End_of_object -> (
        (
          {
            periods = (match !field_periods with Some x -> x | None -> Atdgen_runtime.Oj_run.missing_field p "periods");
          }
         : data)
      )
)
let data_of_string s =
  read_data (Yojson.Safe.init_lexer ()) (Lexing.from_string s)
let write_t = (
  fun ob x ->
    Buffer.add_char ob '[';
    (let x, _ = x in
    (
      Yojson.Safe.write_string
    ) ob x
    );
    Buffer.add_char ob ',';
    (let _, x = x in
    (
      write_data
    ) ob x
    );
    Buffer.add_char ob ']';
)
let string_of_t ?(len = 1024) x =
  let ob = Buffer.create len in
  write_t ob x;
  Buffer.contents ob
let read_t = (
  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 =
          (
            Atdgen_runtime.Oj_run.read_string
          ) 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_data
          ) 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 t_of_string s =
  read_t (Yojson.Safe.init_lexer ()) (Lexing.from_string s)