Source file sched_req_j.ml

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

type time_slot = Time_slot_t.time_slot

type task_seg_alloc_req = Task_t.task_seg_alloc_req

type task_seg = Task_t.task_seg

type ('a, 'b, 'c) sched_req_data_unit_skeleton =
  ('a, 'b, 'c) Sched_req_data_unit_skeleton_t.sched_req_data_unit_skeleton

type int64 = Int64_t.int64

type sched_req_record_data_unit = Sched_req_t.sched_req_record_data_unit

type sched_req_record_data = Sched_req_t.sched_req_record_data

type sched_req_id = Sched_req_t.sched_req_id

type sched_req_record = Sched_req_t.sched_req_record

type sched_req_data_unit = Sched_req_t.sched_req_data_unit

type sched_req_data = Sched_req_t.sched_req_data

type sched_req = Sched_req_t.sched_req

let write_time_slot = (
  Time_slot_j.write_time_slot
)
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 = (
  Time_slot_j.read_time_slot
)
let time_slot_of_string s =
  read_time_slot (Yojson.Safe.init_lexer ()) (Lexing.from_string s)
let write_task_seg_alloc_req = (
  Task_j.write_task_seg_alloc_req
)
let string_of_task_seg_alloc_req ?(len = 1024) x =
  let ob = Buffer.create len in
  write_task_seg_alloc_req ob x;
  Buffer.contents ob
let read_task_seg_alloc_req = (
  Task_j.read_task_seg_alloc_req
)
let task_seg_alloc_req_of_string s =
  read_task_seg_alloc_req (Yojson.Safe.init_lexer ()) (Lexing.from_string s)
let write_task_seg = (
  Task_j.write_task_seg
)
let string_of_task_seg ?(len = 1024) x =
  let ob = Buffer.create len in
  write_task_seg ob x;
  Buffer.contents ob
let read_task_seg = (
  Task_j.read_task_seg
)
let task_seg_of_string s =
  read_task_seg (Yojson.Safe.init_lexer ()) (Lexing.from_string s)
let write_sched_req_data_unit_skeleton write__a write__b write__c = (
  Sched_req_data_unit_skeleton_j.write_sched_req_data_unit_skeleton write__a write__b write__c
)
let string_of_sched_req_data_unit_skeleton write__a write__b write__c ?(len = 1024) x =
  let ob = Buffer.create len in
  write_sched_req_data_unit_skeleton write__a write__b write__c ob x;
  Buffer.contents ob
let read_sched_req_data_unit_skeleton read__a read__b read__c = (
  Sched_req_data_unit_skeleton_j.read_sched_req_data_unit_skeleton read__a read__b read__c
)
let sched_req_data_unit_skeleton_of_string read__a read__b read__c s =
  read_sched_req_data_unit_skeleton read__a read__b read__c (Yojson.Safe.init_lexer ()) (Lexing.from_string s)
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__skeleton_11b122b = (
  write_sched_req_data_unit_skeleton write_task_seg write_int64 write_time_slot
)
let string_of__skeleton_11b122b ?(len = 1024) x =
  let ob = Buffer.create len in
  write__skeleton_11b122b ob x;
  Buffer.contents ob
let read__skeleton_11b122b = (
  read_sched_req_data_unit_skeleton read_task_seg read_int64 read_time_slot
)
let _skeleton_11b122b_of_string s =
  read__skeleton_11b122b (Yojson.Safe.init_lexer ()) (Lexing.from_string s)
let write_sched_req_record_data_unit = (
  write__skeleton_11b122b
)
let string_of_sched_req_record_data_unit ?(len = 1024) x =
  let ob = Buffer.create len in
  write_sched_req_record_data_unit ob x;
  Buffer.contents ob
let read_sched_req_record_data_unit = (
  read__skeleton_11b122b
)
let sched_req_record_data_unit_of_string s =
  read_sched_req_record_data_unit (Yojson.Safe.init_lexer ()) (Lexing.from_string s)
let write__list_ee2887f = (
  Atdgen_runtime.Oj_run.write_list (
    write_sched_req_record_data_unit
  )
)
let string_of__list_ee2887f ?(len = 1024) x =
  let ob = Buffer.create len in
  write__list_ee2887f ob x;
  Buffer.contents ob
let read__list_ee2887f = (
  Atdgen_runtime.Oj_run.read_list (
    read_sched_req_record_data_unit
  )
)
let _list_ee2887f_of_string s =
  read__list_ee2887f (Yojson.Safe.init_lexer ()) (Lexing.from_string s)
let write_sched_req_record_data = (
  write__list_ee2887f
)
let string_of_sched_req_record_data ?(len = 1024) x =
  let ob = Buffer.create len in
  write_sched_req_record_data ob x;
  Buffer.contents ob
let read_sched_req_record_data = (
  read__list_ee2887f
)
let sched_req_record_data_of_string s =
  read_sched_req_record_data (Yojson.Safe.init_lexer ()) (Lexing.from_string s)
let write_sched_req_id = (
  write_int64
)
let string_of_sched_req_id ?(len = 1024) x =
  let ob = Buffer.create len in
  write_sched_req_id ob x;
  Buffer.contents ob
let read_sched_req_id = (
  read_int64
)
let sched_req_id_of_string s =
  read_sched_req_id (Yojson.Safe.init_lexer ()) (Lexing.from_string s)
let write_sched_req_record = (
  fun ob x ->
    Buffer.add_char ob '[';
    (let x, _ = x in
    (
      write_sched_req_id
    ) ob x
    );
    Buffer.add_char ob ',';
    (let _, x = x in
    (
      write_sched_req_record_data
    ) ob x
    );
    Buffer.add_char ob ']';
)
let string_of_sched_req_record ?(len = 1024) x =
  let ob = Buffer.create len in
  write_sched_req_record ob x;
  Buffer.contents ob
let read_sched_req_record = (
  fun p lb ->
    Yojson.Safe.read_space p lb;
    let std_tuple = Yojson.Safe.start_any_tuple p lb in
    let len = ref 0 in
    let end_of_tuple = ref false in
    (try
      let x0 =
        let x =
          (
            read_sched_req_id
          ) p lb
        in
        incr len;
        Yojson.Safe.read_space p lb;
        Yojson.Safe.read_tuple_sep2 p std_tuple lb;
        x
      in
      let x1 =
        let x =
          (
            read_sched_req_record_data
          ) p lb
        in
        incr len;
        (try
          Yojson.Safe.read_space p lb;
          Yojson.Safe.read_tuple_sep2 p std_tuple lb;
        with Yojson.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;
            Yojson.Safe.read_tuple_sep2 p std_tuple lb;
          done
        with Yojson.End_of_tuple -> ()
      );
      (x0, x1)
    with Yojson.End_of_tuple ->
      Atdgen_runtime.Oj_run.missing_tuple_fields p !len [ 0; 1 ]);
)
let sched_req_record_of_string s =
  read_sched_req_record (Yojson.Safe.init_lexer ()) (Lexing.from_string s)
let write__skeleton_e26306c = (
  write_sched_req_data_unit_skeleton write_task_seg_alloc_req write_int64 write_time_slot
)
let string_of__skeleton_e26306c ?(len = 1024) x =
  let ob = Buffer.create len in
  write__skeleton_e26306c ob x;
  Buffer.contents ob
let read__skeleton_e26306c = (
  read_sched_req_data_unit_skeleton read_task_seg_alloc_req read_int64 read_time_slot
)
let _skeleton_e26306c_of_string s =
  read__skeleton_e26306c (Yojson.Safe.init_lexer ()) (Lexing.from_string s)
let write_sched_req_data_unit = (
  write__skeleton_e26306c
)
let string_of_sched_req_data_unit ?(len = 1024) x =
  let ob = Buffer.create len in
  write_sched_req_data_unit ob x;
  Buffer.contents ob
let read_sched_req_data_unit = (
  read__skeleton_e26306c
)
let sched_req_data_unit_of_string s =
  read_sched_req_data_unit (Yojson.Safe.init_lexer ()) (Lexing.from_string s)
let write__sched_req_data_unit_list = (
  Atdgen_runtime.Oj_run.write_list (
    write_sched_req_data_unit
  )
)
let string_of__sched_req_data_unit_list ?(len = 1024) x =
  let ob = Buffer.create len in
  write__sched_req_data_unit_list ob x;
  Buffer.contents ob
let read__sched_req_data_unit_list = (
  Atdgen_runtime.Oj_run.read_list (
    read_sched_req_data_unit
  )
)
let _sched_req_data_unit_list_of_string s =
  read__sched_req_data_unit_list (Yojson.Safe.init_lexer ()) (Lexing.from_string s)
let write_sched_req_data = (
  write__sched_req_data_unit_list
)
let string_of_sched_req_data ?(len = 1024) x =
  let ob = Buffer.create len in
  write_sched_req_data ob x;
  Buffer.contents ob
let read_sched_req_data = (
  read__sched_req_data_unit_list
)
let sched_req_data_of_string s =
  read_sched_req_data (Yojson.Safe.init_lexer ()) (Lexing.from_string s)
let write_sched_req = (
  fun ob x ->
    Buffer.add_char ob '[';
    (let x, _ = x in
    (
      write_sched_req_id
    ) ob x
    );
    Buffer.add_char ob ',';
    (let _, x = x in
    (
      write_sched_req_data
    ) ob x
    );
    Buffer.add_char ob ']';
)
let string_of_sched_req ?(len = 1024) x =
  let ob = Buffer.create len in
  write_sched_req ob x;
  Buffer.contents ob
let read_sched_req = (
  fun p lb ->
    Yojson.Safe.read_space p lb;
    let std_tuple = Yojson.Safe.start_any_tuple p lb in
    let len = ref 0 in
    let end_of_tuple = ref false in
    (try
      let x0 =
        let x =
          (
            read_sched_req_id
          ) p lb
        in
        incr len;
        Yojson.Safe.read_space p lb;
        Yojson.Safe.read_tuple_sep2 p std_tuple lb;
        x
      in
      let x1 =
        let x =
          (
            read_sched_req_data
          ) p lb
        in
        incr len;
        (try
          Yojson.Safe.read_space p lb;
          Yojson.Safe.read_tuple_sep2 p std_tuple lb;
        with Yojson.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;
            Yojson.Safe.read_tuple_sep2 p std_tuple lb;
          done
        with Yojson.End_of_tuple -> ()
      );
      (x0, x1)
    with Yojson.End_of_tuple ->
      Atdgen_runtime.Oj_run.missing_tuple_fields p !len [ 0; 1 ]);
)
let sched_req_of_string s =
  read_sched_req (Yojson.Safe.init_lexer ()) (Lexing.from_string s)