Source file schema.ml

[@@@ocaml.warning "-27-32-37-60"]

type ro = Capnp.Message.ro
type rw = Capnp.Message.rw

module type S = sig
  module MessageWrapper : Capnp.RPC.S
  type 'cap message_t = 'cap MessageWrapper.Message.t
  type 'a reader_t = 'a MessageWrapper.StructStorage.reader_t
  type 'a builder_t = 'a MessageWrapper.StructStorage.builder_t


  module Reader : sig
    type array_t
    type builder_array_t
    type pointer_t = ro MessageWrapper.Slice.t option
    val of_pointer : pointer_t -> 'a reader_t
    module JobStatus : sig
      type struct_t = [`JobStatus_fd5224be2351c25c]
      type t = struct_t reader_t
      val has_id : t -> bool
      val id_get : t -> string
      val has_description : t -> bool
      val description_get : t -> string
      val can_cancel_get : t -> bool
      val can_rebuild_get : t -> bool
      val of_message : 'cap message_t -> t
      val of_builder : struct_t builder_t -> t
    end
    module Job : sig
      type t = [`Job_8397ef9078537247]
      module Status : sig
        module Params : sig
          type struct_t = [`Status_af9f258eff28bb04]
          type t = struct_t reader_t
          val of_message : 'cap message_t -> t
          val of_builder : struct_t builder_t -> t
        end
      end
      module Cancel : sig
        module Params : sig
          type struct_t = [`Cancel_bdd5a88969180a52]
          type t = struct_t reader_t
          val of_message : 'cap message_t -> t
          val of_builder : struct_t builder_t -> t
        end
        module Results : sig
          type struct_t = [`Cancel_a230cfac55cadb41]
          type t = struct_t reader_t
          val of_message : 'cap message_t -> t
          val of_builder : struct_t builder_t -> t
        end
      end
      module Rebuild : sig
        module Params : sig
          type struct_t = [`Rebuild_8f1bc4b0e7880aa2]
          type t = struct_t reader_t
          val of_message : 'cap message_t -> t
          val of_builder : struct_t builder_t -> t
        end
        module Results : sig
          type struct_t = [`Rebuild_b0e0b007f1c079b9]
          type t = struct_t reader_t
          val job_get : t -> [`Job_8397ef9078537247] MessageWrapper.Capability.t option
          val job_get_pipelined : struct_t MessageWrapper.StructRef.t -> [`Job_8397ef9078537247] MessageWrapper.Capability.t
          val of_message : 'cap message_t -> t
          val of_builder : struct_t builder_t -> t
        end
      end
      module Log : sig
        module Params : sig
          type struct_t = [`Log_927f3ec8caaa204a]
          type t = struct_t reader_t
          val start_get : t -> int64
          val start_get_int_exn : t -> int
          val of_message : 'cap message_t -> t
          val of_builder : struct_t builder_t -> t
        end
        module Results : sig
          type struct_t = [`Log_a2af2945d72d0ea5]
          type t = struct_t reader_t
          val has_log : t -> bool
          val log_get : t -> string
          val next_get : t -> int64
          val next_get_int_exn : t -> int
          val of_message : 'cap message_t -> t
          val of_builder : struct_t builder_t -> t
        end
      end
      module ApproveEarlyStart : sig
        module Params : sig
          type struct_t = [`ApproveEarlyStart_b390e4fcb4dca148]
          type t = struct_t reader_t
          val of_message : 'cap message_t -> t
          val of_builder : struct_t builder_t -> t
        end
        module Results : sig
          type struct_t = [`ApproveEarlyStart_91c95b515cdfacba]
          type t = struct_t reader_t
          val of_message : 'cap message_t -> t
          val of_builder : struct_t builder_t -> t
        end
      end
    end
    module Engine : sig
      type t = [`Engine_f0961466d2f9bbf5]
      module ActiveJobs : sig
        module Params : sig
          type struct_t = [`ActiveJobs_fa3eec67f273ae7e]
          type t = struct_t reader_t
          val of_message : 'cap message_t -> t
          val of_builder : struct_t builder_t -> t
        end
        module Results : sig
          type struct_t = [`ActiveJobs_835288b630c069f6]
          type t = struct_t reader_t
          val has_ids : t -> bool
          val ids_get : t -> (ro, string, array_t) Capnp.Array.t
          val ids_get_list : t -> string list
          val ids_get_array : t -> string array
          val of_message : 'cap message_t -> t
          val of_builder : struct_t builder_t -> t
        end
      end
      module Job : sig
        module Params : sig
          type struct_t = [`Job_c1333af8169a1a90]
          type t = struct_t reader_t
          val has_id : t -> bool
          val id_get : t -> string
          val of_message : 'cap message_t -> t
          val of_builder : struct_t builder_t -> t
        end
        module Results : sig
          type struct_t = [`Job_d9a4dc47f1d3dae5]
          type t = struct_t reader_t
          val job_get : t -> Job.t MessageWrapper.Capability.t option
          val job_get_pipelined : struct_t MessageWrapper.StructRef.t -> Job.t MessageWrapper.Capability.t
          val of_message : 'cap message_t -> t
          val of_builder : struct_t builder_t -> t
        end
      end
    end
  end

  module Builder : sig
    type array_t = Reader.builder_array_t
    type reader_array_t = Reader.array_t
    type pointer_t = rw MessageWrapper.Slice.t
    module JobStatus : sig
      type struct_t = [`JobStatus_fd5224be2351c25c]
      type t = struct_t builder_t
      val has_id : t -> bool
      val id_get : t -> string
      val id_set : t -> string -> unit
      val has_description : t -> bool
      val description_get : t -> string
      val description_set : t -> string -> unit
      val can_cancel_get : t -> bool
      val can_cancel_set : t -> bool -> unit
      val can_rebuild_get : t -> bool
      val can_rebuild_set : t -> bool -> unit
      val of_message : rw message_t -> t
      val to_message : t -> rw message_t
      val to_reader : t -> struct_t reader_t
      val init_root : ?message_size:int -> unit -> t
      val init_pointer : pointer_t -> t
    end
    module Job : sig
      type t = [`Job_8397ef9078537247]
      module Status : sig
        module Params : sig
          type struct_t = [`Status_af9f258eff28bb04]
          type t = struct_t builder_t
          val of_message : rw message_t -> t
          val to_message : t -> rw message_t
          val to_reader : t -> struct_t reader_t
          val init_root : ?message_size:int -> unit -> t
          val init_pointer : pointer_t -> t
        end
      end
      module Cancel : sig
        module Params : sig
          type struct_t = [`Cancel_bdd5a88969180a52]
          type t = struct_t builder_t
          val of_message : rw message_t -> t
          val to_message : t -> rw message_t
          val to_reader : t -> struct_t reader_t
          val init_root : ?message_size:int -> unit -> t
          val init_pointer : pointer_t -> t
        end
        module Results : sig
          type struct_t = [`Cancel_a230cfac55cadb41]
          type t = struct_t builder_t
          val of_message : rw message_t -> t
          val to_message : t -> rw message_t
          val to_reader : t -> struct_t reader_t
          val init_root : ?message_size:int -> unit -> t
          val init_pointer : pointer_t -> t
        end
      end
      module Rebuild : sig
        module Params : sig
          type struct_t = [`Rebuild_8f1bc4b0e7880aa2]
          type t = struct_t builder_t
          val of_message : rw message_t -> t
          val to_message : t -> rw message_t
          val to_reader : t -> struct_t reader_t
          val init_root : ?message_size:int -> unit -> t
          val init_pointer : pointer_t -> t
        end
        module Results : sig
          type struct_t = [`Rebuild_b0e0b007f1c079b9]
          type t = struct_t builder_t
          val job_get : t -> [`Job_8397ef9078537247] MessageWrapper.Capability.t option
          val job_set : t -> [`Job_8397ef9078537247] MessageWrapper.Capability.t option -> unit
          val of_message : rw message_t -> t
          val to_message : t -> rw message_t
          val to_reader : t -> struct_t reader_t
          val init_root : ?message_size:int -> unit -> t
          val init_pointer : pointer_t -> t
        end
      end
      module Log : sig
        module Params : sig
          type struct_t = [`Log_927f3ec8caaa204a]
          type t = struct_t builder_t
          val start_get : t -> int64
          val start_get_int_exn : t -> int
          val start_set : t -> int64 -> unit
          val start_set_int : t -> int -> unit
          val of_message : rw message_t -> t
          val to_message : t -> rw message_t
          val to_reader : t -> struct_t reader_t
          val init_root : ?message_size:int -> unit -> t
          val init_pointer : pointer_t -> t
        end
        module Results : sig
          type struct_t = [`Log_a2af2945d72d0ea5]
          type t = struct_t builder_t
          val has_log : t -> bool
          val log_get : t -> string
          val log_set : t -> string -> unit
          val next_get : t -> int64
          val next_get_int_exn : t -> int
          val next_set : t -> int64 -> unit
          val next_set_int : t -> int -> unit
          val of_message : rw message_t -> t
          val to_message : t -> rw message_t
          val to_reader : t -> struct_t reader_t
          val init_root : ?message_size:int -> unit -> t
          val init_pointer : pointer_t -> t
        end
      end
      module ApproveEarlyStart : sig
        module Params : sig
          type struct_t = [`ApproveEarlyStart_b390e4fcb4dca148]
          type t = struct_t builder_t
          val of_message : rw message_t -> t
          val to_message : t -> rw message_t
          val to_reader : t -> struct_t reader_t
          val init_root : ?message_size:int -> unit -> t
          val init_pointer : pointer_t -> t
        end
        module Results : sig
          type struct_t = [`ApproveEarlyStart_91c95b515cdfacba]
          type t = struct_t builder_t
          val of_message : rw message_t -> t
          val to_message : t -> rw message_t
          val to_reader : t -> struct_t reader_t
          val init_root : ?message_size:int -> unit -> t
          val init_pointer : pointer_t -> t
        end
      end
    end
    module Engine : sig
      type t = [`Engine_f0961466d2f9bbf5]
      module ActiveJobs : sig
        module Params : sig
          type struct_t = [`ActiveJobs_fa3eec67f273ae7e]
          type t = struct_t builder_t
          val of_message : rw message_t -> t
          val to_message : t -> rw message_t
          val to_reader : t -> struct_t reader_t
          val init_root : ?message_size:int -> unit -> t
          val init_pointer : pointer_t -> t
        end
        module Results : sig
          type struct_t = [`ActiveJobs_835288b630c069f6]
          type t = struct_t builder_t
          val has_ids : t -> bool
          val ids_get : t -> (rw, string, array_t) Capnp.Array.t
          val ids_get_list : t -> string list
          val ids_get_array : t -> string array
          val ids_set : t -> (rw, string, array_t) Capnp.Array.t -> (rw, string, array_t) Capnp.Array.t
          val ids_set_list : t -> string list -> (rw, string, array_t) Capnp.Array.t
          val ids_set_array : t -> string array -> (rw, string, array_t) Capnp.Array.t
          val ids_init : t -> int -> (rw, string, array_t) Capnp.Array.t
          val of_message : rw message_t -> t
          val to_message : t -> rw message_t
          val to_reader : t -> struct_t reader_t
          val init_root : ?message_size:int -> unit -> t
          val init_pointer : pointer_t -> t
        end
      end
      module Job : sig
        module Params : sig
          type struct_t = [`Job_c1333af8169a1a90]
          type t = struct_t builder_t
          val has_id : t -> bool
          val id_get : t -> string
          val id_set : t -> string -> unit
          val of_message : rw message_t -> t
          val to_message : t -> rw message_t
          val to_reader : t -> struct_t reader_t
          val init_root : ?message_size:int -> unit -> t
          val init_pointer : pointer_t -> t
        end
        module Results : sig
          type struct_t = [`Job_d9a4dc47f1d3dae5]
          type t = struct_t builder_t
          val job_get : t -> Job.t MessageWrapper.Capability.t option
          val job_set : t -> Job.t MessageWrapper.Capability.t option -> unit
          val of_message : rw message_t -> t
          val to_message : t -> rw message_t
          val to_reader : t -> struct_t reader_t
          val init_root : ?message_size:int -> unit -> t
          val init_pointer : pointer_t -> t
        end
      end
    end
  end
end

module MakeRPC(MessageWrapper : Capnp.RPC.S) = struct
  type 'a reader_t = 'a MessageWrapper.StructStorage.reader_t
  type 'a builder_t = 'a MessageWrapper.StructStorage.builder_t
  module CamlBytes = Bytes
  module DefaultsMessage_ = Capnp.BytesMessage

  let _builder_defaults_message =
    let message_segments = [
      Bytes.unsafe_of_string "\
      ";
    ] in
    DefaultsMessage_.Message.readonly
      (DefaultsMessage_.Message.of_storage message_segments)

  let invalid_msg = Capnp.Message.invalid_msg

  include Capnp.Runtime.BuilderInc.Make(MessageWrapper)

  type 'cap message_t = 'cap MessageWrapper.Message.t

  module DefaultsCopier_ =
    Capnp.Runtime.BuilderOps.Make(Capnp.BytesMessage)(MessageWrapper)

  let _reader_defaults_message =
    MessageWrapper.Message.create
      (DefaultsMessage_.Message.total_size _builder_defaults_message)


  module Reader = struct
    type array_t = ro MessageWrapper.ListStorage.t
    type builder_array_t = rw MessageWrapper.ListStorage.t
    type pointer_t = ro MessageWrapper.Slice.t option
    let of_pointer = RA_.deref_opt_struct_pointer

    module JobStatus = struct
      type struct_t = [`JobStatus_fd5224be2351c25c]
      type t = struct_t reader_t
      let has_id x =
        RA_.has_field x 0
      let id_get x =
        RA_.get_text ~default:"" x 0
      let has_description x =
        RA_.has_field x 1
      let description_get x =
        RA_.get_text ~default:"" x 1
      let can_cancel_get x =
        RA_.get_bit ~default:false x ~byte_ofs:0 ~bit_ofs:0
      let can_rebuild_get x =
        RA_.get_bit ~default:false x ~byte_ofs:0 ~bit_ofs:1
      let of_message x = RA_.get_root_struct (RA_.Message.readonly x)
      let of_builder x = Some (RA_.StructStorage.readonly x)
    end
    module Job = struct
      type t = [`Job_8397ef9078537247]
      module Status = struct
        module Params = struct
          type struct_t = [`Status_af9f258eff28bb04]
          type t = struct_t reader_t
          let of_message x = RA_.get_root_struct (RA_.Message.readonly x)
          let of_builder x = Some (RA_.StructStorage.readonly x)
        end
      end
      module Cancel = struct
        module Params = struct
          type struct_t = [`Cancel_bdd5a88969180a52]
          type t = struct_t reader_t
          let of_message x = RA_.get_root_struct (RA_.Message.readonly x)
          let of_builder x = Some (RA_.StructStorage.readonly x)
        end
        module Results = struct
          type struct_t = [`Cancel_a230cfac55cadb41]
          type t = struct_t reader_t
          let of_message x = RA_.get_root_struct (RA_.Message.readonly x)
          let of_builder x = Some (RA_.StructStorage.readonly x)
        end
      end
      module Rebuild = struct
        module Params = struct
          type struct_t = [`Rebuild_8f1bc4b0e7880aa2]
          type t = struct_t reader_t
          let of_message x = RA_.get_root_struct (RA_.Message.readonly x)
          let of_builder x = Some (RA_.StructStorage.readonly x)
        end
        module Results = struct
          type struct_t = [`Rebuild_b0e0b007f1c079b9]
          type t = struct_t reader_t
          let job_get x =
            RA_.get_interface x 0
          let job_get_pipelined x = 
            MessageWrapper.Untyped.capability_field x 0
          let of_message x = RA_.get_root_struct (RA_.Message.readonly x)
          let of_builder x = Some (RA_.StructStorage.readonly x)
        end
      end
      module Log = struct
        module Params = struct
          type struct_t = [`Log_927f3ec8caaa204a]
          type t = struct_t reader_t
          let start_get x =
            RA_.get_int64 ~default:(0L) x 0
          let start_get_int_exn x =
            Capnp.Runtime.Util.int_of_int64_exn (start_get x)
          let of_message x = RA_.get_root_struct (RA_.Message.readonly x)
          let of_builder x = Some (RA_.StructStorage.readonly x)
        end
        module Results = struct
          type struct_t = [`Log_a2af2945d72d0ea5]
          type t = struct_t reader_t
          let has_log x =
            RA_.has_field x 0
          let log_get x =
            RA_.get_blob ~default:"" x 0
          let next_get x =
            RA_.get_int64 ~default:(0L) x 0
          let next_get_int_exn x =
            Capnp.Runtime.Util.int_of_int64_exn (next_get x)
          let of_message x = RA_.get_root_struct (RA_.Message.readonly x)
          let of_builder x = Some (RA_.StructStorage.readonly x)
        end
      end
      module ApproveEarlyStart = struct
        module Params = struct
          type struct_t = [`ApproveEarlyStart_b390e4fcb4dca148]
          type t = struct_t reader_t
          let of_message x = RA_.get_root_struct (RA_.Message.readonly x)
          let of_builder x = Some (RA_.StructStorage.readonly x)
        end
        module Results = struct
          type struct_t = [`ApproveEarlyStart_91c95b515cdfacba]
          type t = struct_t reader_t
          let of_message x = RA_.get_root_struct (RA_.Message.readonly x)
          let of_builder x = Some (RA_.StructStorage.readonly x)
        end
      end
    end
    module Engine = struct
      type t = [`Engine_f0961466d2f9bbf5]
      module ActiveJobs = struct
        module Params = struct
          type struct_t = [`ActiveJobs_fa3eec67f273ae7e]
          type t = struct_t reader_t
          let of_message x = RA_.get_root_struct (RA_.Message.readonly x)
          let of_builder x = Some (RA_.StructStorage.readonly x)
        end
        module Results = struct
          type struct_t = [`ActiveJobs_835288b630c069f6]
          type t = struct_t reader_t
          let has_ids x =
            RA_.has_field x 0
          let ids_get x =
            RA_.get_text_list x 0
          let ids_get_list x =
            Capnp.Array.to_list (ids_get x)
          let ids_get_array x =
            Capnp.Array.to_array (ids_get x)
          let of_message x = RA_.get_root_struct (RA_.Message.readonly x)
          let of_builder x = Some (RA_.StructStorage.readonly x)
        end
      end
      module Job = struct
        module Params = struct
          type struct_t = [`Job_c1333af8169a1a90]
          type t = struct_t reader_t
          let has_id x =
            RA_.has_field x 0
          let id_get x =
            RA_.get_text ~default:"" x 0
          let of_message x = RA_.get_root_struct (RA_.Message.readonly x)
          let of_builder x = Some (RA_.StructStorage.readonly x)
        end
        module Results = struct
          type struct_t = [`Job_d9a4dc47f1d3dae5]
          type t = struct_t reader_t
          let job_get x =
            RA_.get_interface x 0
          let job_get_pipelined x = 
            MessageWrapper.Untyped.capability_field x 0
          let of_message x = RA_.get_root_struct (RA_.Message.readonly x)
          let of_builder x = Some (RA_.StructStorage.readonly x)
        end
      end
    end
  end

  module Builder = struct
    type array_t = Reader.builder_array_t
    type reader_array_t = Reader.array_t
    type pointer_t = rw MessageWrapper.Slice.t

    module JobStatus = struct
      type struct_t = [`JobStatus_fd5224be2351c25c]
      type t = struct_t builder_t
      let has_id x =
        BA_.has_field x 0
      let id_get x =
        BA_.get_text ~default:"" x 0
      let id_set x v =
        BA_.set_text x 0 v
      let has_description x =
        BA_.has_field x 1
      let description_get x =
        BA_.get_text ~default:"" x 1
      let description_set x v =
        BA_.set_text x 1 v
      let can_cancel_get x =
        BA_.get_bit ~default:false x ~byte_ofs:0 ~bit_ofs:0
      let can_cancel_set x v =
        BA_.set_bit ~default:false x ~byte_ofs:0 ~bit_ofs:0 v
      let can_rebuild_get x =
        BA_.get_bit ~default:false x ~byte_ofs:0 ~bit_ofs:1
      let can_rebuild_set x v =
        BA_.set_bit ~default:false x ~byte_ofs:0 ~bit_ofs:1 v
      let of_message x = BA_.get_root_struct ~data_words:1 ~pointer_words:2 x
      let to_message x = x.BA_.NM.StructStorage.data.MessageWrapper.Slice.msg
      let to_reader x = Some (RA_.StructStorage.readonly x)
      let init_root ?message_size () =
        BA_.alloc_root_struct ?message_size ~data_words:1 ~pointer_words:2 ()
      let init_pointer ptr =
        BA_.init_struct_pointer ptr ~data_words:1 ~pointer_words:2
    end
    module Job = struct
      type t = [`Job_8397ef9078537247]
      module Status = struct
        module Params = struct
          type struct_t = [`Status_af9f258eff28bb04]
          type t = struct_t builder_t
          let of_message x = BA_.get_root_struct ~data_words:0 ~pointer_words:0 x
          let to_message x = x.BA_.NM.StructStorage.data.MessageWrapper.Slice.msg
          let to_reader x = Some (RA_.StructStorage.readonly x)
          let init_root ?message_size () =
            BA_.alloc_root_struct ?message_size ~data_words:0 ~pointer_words:0 ()
          let init_pointer ptr =
            BA_.init_struct_pointer ptr ~data_words:0 ~pointer_words:0
        end
      end
      module Cancel = struct
        module Params = struct
          type struct_t = [`Cancel_bdd5a88969180a52]
          type t = struct_t builder_t
          let of_message x = BA_.get_root_struct ~data_words:0 ~pointer_words:0 x
          let to_message x = x.BA_.NM.StructStorage.data.MessageWrapper.Slice.msg
          let to_reader x = Some (RA_.StructStorage.readonly x)
          let init_root ?message_size () =
            BA_.alloc_root_struct ?message_size ~data_words:0 ~pointer_words:0 ()
          let init_pointer ptr =
            BA_.init_struct_pointer ptr ~data_words:0 ~pointer_words:0
        end
        module Results = struct
          type struct_t = [`Cancel_a230cfac55cadb41]
          type t = struct_t builder_t
          let of_message x = BA_.get_root_struct ~data_words:0 ~pointer_words:0 x
          let to_message x = x.BA_.NM.StructStorage.data.MessageWrapper.Slice.msg
          let to_reader x = Some (RA_.StructStorage.readonly x)
          let init_root ?message_size () =
            BA_.alloc_root_struct ?message_size ~data_words:0 ~pointer_words:0 ()
          let init_pointer ptr =
            BA_.init_struct_pointer ptr ~data_words:0 ~pointer_words:0
        end
      end
      module Rebuild = struct
        module Params = struct
          type struct_t = [`Rebuild_8f1bc4b0e7880aa2]
          type t = struct_t builder_t
          let of_message x = BA_.get_root_struct ~data_words:0 ~pointer_words:0 x
          let to_message x = x.BA_.NM.StructStorage.data.MessageWrapper.Slice.msg
          let to_reader x = Some (RA_.StructStorage.readonly x)
          let init_root ?message_size () =
            BA_.alloc_root_struct ?message_size ~data_words:0 ~pointer_words:0 ()
          let init_pointer ptr =
            BA_.init_struct_pointer ptr ~data_words:0 ~pointer_words:0
        end
        module Results = struct
          type struct_t = [`Rebuild_b0e0b007f1c079b9]
          type t = struct_t builder_t
          let job_get x =
            BA_.get_interface x 0
          let job_get_pipelined x = 
            MessageWrapper.Untyped.capability_field x 0
          let job_set x v =
            BA_.set_interface x 0 v
          let of_message x = BA_.get_root_struct ~data_words:0 ~pointer_words:1 x
          let to_message x = x.BA_.NM.StructStorage.data.MessageWrapper.Slice.msg
          let to_reader x = Some (RA_.StructStorage.readonly x)
          let init_root ?message_size () =
            BA_.alloc_root_struct ?message_size ~data_words:0 ~pointer_words:1 ()
          let init_pointer ptr =
            BA_.init_struct_pointer ptr ~data_words:0 ~pointer_words:1
        end
      end
      module Log = struct
        module Params = struct
          type struct_t = [`Log_927f3ec8caaa204a]
          type t = struct_t builder_t
          let start_get x =
            BA_.get_int64 ~default:(0L) x 0
          let start_get_int_exn x =
            Capnp.Runtime.Util.int_of_int64_exn (start_get x)
          let start_set x v =
            BA_.set_int64 ~default:(0L) x 0 v
          let start_set_int x v = start_set x (Int64.of_int v)
          let of_message x = BA_.get_root_struct ~data_words:1 ~pointer_words:0 x
          let to_message x = x.BA_.NM.StructStorage.data.MessageWrapper.Slice.msg
          let to_reader x = Some (RA_.StructStorage.readonly x)
          let init_root ?message_size () =
            BA_.alloc_root_struct ?message_size ~data_words:1 ~pointer_words:0 ()
          let init_pointer ptr =
            BA_.init_struct_pointer ptr ~data_words:1 ~pointer_words:0
        end
        module Results = struct
          type struct_t = [`Log_a2af2945d72d0ea5]
          type t = struct_t builder_t
          let has_log x =
            BA_.has_field x 0
          let log_get x =
            BA_.get_blob ~default:"" x 0
          let log_set x v =
            BA_.set_blob x 0 v
          let next_get x =
            BA_.get_int64 ~default:(0L) x 0
          let next_get_int_exn x =
            Capnp.Runtime.Util.int_of_int64_exn (next_get x)
          let next_set x v =
            BA_.set_int64 ~default:(0L) x 0 v
          let next_set_int x v = next_set x (Int64.of_int v)
          let of_message x = BA_.get_root_struct ~data_words:1 ~pointer_words:1 x
          let to_message x = x.BA_.NM.StructStorage.data.MessageWrapper.Slice.msg
          let to_reader x = Some (RA_.StructStorage.readonly x)
          let init_root ?message_size () =
            BA_.alloc_root_struct ?message_size ~data_words:1 ~pointer_words:1 ()
          let init_pointer ptr =
            BA_.init_struct_pointer ptr ~data_words:1 ~pointer_words:1
        end
      end
      module ApproveEarlyStart = struct
        module Params = struct
          type struct_t = [`ApproveEarlyStart_b390e4fcb4dca148]
          type t = struct_t builder_t
          let of_message x = BA_.get_root_struct ~data_words:0 ~pointer_words:0 x
          let to_message x = x.BA_.NM.StructStorage.data.MessageWrapper.Slice.msg
          let to_reader x = Some (RA_.StructStorage.readonly x)
          let init_root ?message_size () =
            BA_.alloc_root_struct ?message_size ~data_words:0 ~pointer_words:0 ()
          let init_pointer ptr =
            BA_.init_struct_pointer ptr ~data_words:0 ~pointer_words:0
        end
        module Results = struct
          type struct_t = [`ApproveEarlyStart_91c95b515cdfacba]
          type t = struct_t builder_t
          let of_message x = BA_.get_root_struct ~data_words:0 ~pointer_words:0 x
          let to_message x = x.BA_.NM.StructStorage.data.MessageWrapper.Slice.msg
          let to_reader x = Some (RA_.StructStorage.readonly x)
          let init_root ?message_size () =
            BA_.alloc_root_struct ?message_size ~data_words:0 ~pointer_words:0 ()
          let init_pointer ptr =
            BA_.init_struct_pointer ptr ~data_words:0 ~pointer_words:0
        end
      end
    end
    module Engine = struct
      type t = [`Engine_f0961466d2f9bbf5]
      module ActiveJobs = struct
        module Params = struct
          type struct_t = [`ActiveJobs_fa3eec67f273ae7e]
          type t = struct_t builder_t
          let of_message x = BA_.get_root_struct ~data_words:0 ~pointer_words:0 x
          let to_message x = x.BA_.NM.StructStorage.data.MessageWrapper.Slice.msg
          let to_reader x = Some (RA_.StructStorage.readonly x)
          let init_root ?message_size () =
            BA_.alloc_root_struct ?message_size ~data_words:0 ~pointer_words:0 ()
          let init_pointer ptr =
            BA_.init_struct_pointer ptr ~data_words:0 ~pointer_words:0
        end
        module Results = struct
          type struct_t = [`ActiveJobs_835288b630c069f6]
          type t = struct_t builder_t
          let has_ids x =
            BA_.has_field x 0
          let ids_get x =
            BA_.get_text_list x 0
          let ids_get_list x =
            Capnp.Array.to_list (ids_get x)
          let ids_get_array x =
            Capnp.Array.to_array (ids_get x)
          let ids_set x v =
            BA_.set_text_list x 0 v
          let ids_init x n =
            BA_.init_text_list x 0 n
          let ids_set_list x v =
            let builder = ids_init x (List.length v) in
            let () = List.iteri (fun i a -> Capnp.Array.set builder i a) v in
            builder
          let ids_set_array x v =
            let builder = ids_init x (Array.length v) in
            let () = Array.iteri (fun i a -> Capnp.Array.set builder i a) v in
            builder
          let of_message x = BA_.get_root_struct ~data_words:0 ~pointer_words:1 x
          let to_message x = x.BA_.NM.StructStorage.data.MessageWrapper.Slice.msg
          let to_reader x = Some (RA_.StructStorage.readonly x)
          let init_root ?message_size () =
            BA_.alloc_root_struct ?message_size ~data_words:0 ~pointer_words:1 ()
          let init_pointer ptr =
            BA_.init_struct_pointer ptr ~data_words:0 ~pointer_words:1
        end
      end
      module Job = struct
        module Params = struct
          type struct_t = [`Job_c1333af8169a1a90]
          type t = struct_t builder_t
          let has_id x =
            BA_.has_field x 0
          let id_get x =
            BA_.get_text ~default:"" x 0
          let id_set x v =
            BA_.set_text x 0 v
          let of_message x = BA_.get_root_struct ~data_words:0 ~pointer_words:1 x
          let to_message x = x.BA_.NM.StructStorage.data.MessageWrapper.Slice.msg
          let to_reader x = Some (RA_.StructStorage.readonly x)
          let init_root ?message_size () =
            BA_.alloc_root_struct ?message_size ~data_words:0 ~pointer_words:1 ()
          let init_pointer ptr =
            BA_.init_struct_pointer ptr ~data_words:0 ~pointer_words:1
        end
        module Results = struct
          type struct_t = [`Job_d9a4dc47f1d3dae5]
          type t = struct_t builder_t
          let job_get x =
            BA_.get_interface x 0
          let job_get_pipelined x = 
            MessageWrapper.Untyped.capability_field x 0
          let job_set x v =
            BA_.set_interface x 0 v
          let of_message x = BA_.get_root_struct ~data_words:0 ~pointer_words:1 x
          let to_message x = x.BA_.NM.StructStorage.data.MessageWrapper.Slice.msg
          let to_reader x = Some (RA_.StructStorage.readonly x)
          let init_root ?message_size () =
            BA_.alloc_root_struct ?message_size ~data_words:0 ~pointer_words:1 ()
          let init_pointer ptr =
            BA_.init_struct_pointer ptr ~data_words:0 ~pointer_words:1
        end
      end
    end
  end

  module Client = struct
    module Job = struct
      type t = [`Job_8397ef9078537247]
      let interface_id = Stdint.Uint64.of_string "0x8397ef9078537247"
      module Status = struct
        module Params = Builder.Job.Status.Params
        module Results = Reader.JobStatus
        let method_id : (t, Params.t, Results.t) Capnp.RPC.MethodID.t =
          Capnp.RPC.MethodID.v ~interface_id ~method_id:0
      end
      module Cancel = struct
        module Params = Builder.Job.Cancel.Params
        module Results = Reader.Job.Cancel.Results
        let method_id : (t, Params.t, Results.t) Capnp.RPC.MethodID.t =
          Capnp.RPC.MethodID.v ~interface_id ~method_id:1
      end
      module Rebuild = struct
        module Params = Builder.Job.Rebuild.Params
        module Results = Reader.Job.Rebuild.Results
        let method_id : (t, Params.t, Results.t) Capnp.RPC.MethodID.t =
          Capnp.RPC.MethodID.v ~interface_id ~method_id:2
      end
      module Log = struct
        module Params = Builder.Job.Log.Params
        module Results = Reader.Job.Log.Results
        let method_id : (t, Params.t, Results.t) Capnp.RPC.MethodID.t =
          Capnp.RPC.MethodID.v ~interface_id ~method_id:3
      end
      module ApproveEarlyStart = struct
        module Params = Builder.Job.ApproveEarlyStart.Params
        module Results = Reader.Job.ApproveEarlyStart.Results
        let method_id : (t, Params.t, Results.t) Capnp.RPC.MethodID.t =
          Capnp.RPC.MethodID.v ~interface_id ~method_id:4
      end
      let method_name = function
        | 0 -> Some "status"
        | 1 -> Some "cancel"
        | 2 -> Some "rebuild"
        | 3 -> Some "log"
        | 4 -> Some "approveEarlyStart"
        | _ -> None
      let () = Capnp.RPC.Registry.register ~interface_id ~name:"Job" method_name
    end
    module Engine = struct
      type t = [`Engine_f0961466d2f9bbf5]
      let interface_id = Stdint.Uint64.of_string "0xf0961466d2f9bbf5"
      module ActiveJobs = struct
        module Params = Builder.Engine.ActiveJobs.Params
        module Results = Reader.Engine.ActiveJobs.Results
        let method_id : (t, Params.t, Results.t) Capnp.RPC.MethodID.t =
          Capnp.RPC.MethodID.v ~interface_id ~method_id:0
      end
      module Job = struct
        module Params = Builder.Engine.Job.Params
        module Results = Reader.Engine.Job.Results
        let method_id : (t, Params.t, Results.t) Capnp.RPC.MethodID.t =
          Capnp.RPC.MethodID.v ~interface_id ~method_id:1
      end
      let method_name = function
        | 0 -> Some "activeJobs"
        | 1 -> Some "job"
        | _ -> None
      let () = Capnp.RPC.Registry.register ~interface_id ~name:"Engine" method_name
    end
  end

  module Service = struct
    module Job = struct
      type t = [`Job_8397ef9078537247]
      let interface_id = Stdint.Uint64.of_string "0x8397ef9078537247"
      module Status = struct
        module Params = Reader.Job.Status.Params
        module Results = Builder.JobStatus
      end
      module Cancel = struct
        module Params = Reader.Job.Cancel.Params
        module Results = Builder.Job.Cancel.Results
      end
      module Rebuild = struct
        module Params = Reader.Job.Rebuild.Params
        module Results = Builder.Job.Rebuild.Results
      end
      module Log = struct
        module Params = Reader.Job.Log.Params
        module Results = Builder.Job.Log.Results
      end
      module ApproveEarlyStart = struct
        module Params = Reader.Job.ApproveEarlyStart.Params
        module Results = Builder.Job.ApproveEarlyStart.Results
      end
      class virtual service = object (self)
        method release = ()
        method dispatch ~interface_id:i ~method_id =
          if i <> interface_id then MessageWrapper.Untyped.unknown_interface ~interface_id:i
          else match method_id with
          | 0 -> MessageWrapper.Untyped.abstract_method self#status_impl
          | 1 -> MessageWrapper.Untyped.abstract_method self#cancel_impl
          | 2 -> MessageWrapper.Untyped.abstract_method self#rebuild_impl
          | 3 -> MessageWrapper.Untyped.abstract_method self#log_impl
          | 4 -> MessageWrapper.Untyped.abstract_method self#approve_early_start_impl
          | x -> MessageWrapper.Untyped.unknown_method ~interface_id ~method_id
        method pp f = Format.pp_print_string f "Job"
        method virtual status_impl : (Status.Params.t, Status.Results.t) MessageWrapper.Service.method_t
        method virtual cancel_impl : (Cancel.Params.t, Cancel.Results.t) MessageWrapper.Service.method_t
        method virtual rebuild_impl : (Rebuild.Params.t, Rebuild.Results.t) MessageWrapper.Service.method_t
        method virtual log_impl : (Log.Params.t, Log.Results.t) MessageWrapper.Service.method_t
        method virtual approve_early_start_impl : (ApproveEarlyStart.Params.t, ApproveEarlyStart.Results.t) MessageWrapper.Service.method_t
      end
      let local (service:#service) =
        MessageWrapper.Untyped.local service
    end
    module Engine = struct
      type t = [`Engine_f0961466d2f9bbf5]
      let interface_id = Stdint.Uint64.of_string "0xf0961466d2f9bbf5"
      module ActiveJobs = struct
        module Params = Reader.Engine.ActiveJobs.Params
        module Results = Builder.Engine.ActiveJobs.Results
      end
      module Job = struct
        module Params = Reader.Engine.Job.Params
        module Results = Builder.Engine.Job.Results
      end
      class virtual service = object (self)
        method release = ()
        method dispatch ~interface_id:i ~method_id =
          if i <> interface_id then MessageWrapper.Untyped.unknown_interface ~interface_id:i
          else match method_id with
          | 0 -> MessageWrapper.Untyped.abstract_method self#active_jobs_impl
          | 1 -> MessageWrapper.Untyped.abstract_method self#job_impl
          | x -> MessageWrapper.Untyped.unknown_method ~interface_id ~method_id
        method pp f = Format.pp_print_string f "Engine"
        method virtual active_jobs_impl : (ActiveJobs.Params.t, ActiveJobs.Results.t) MessageWrapper.Service.method_t
        method virtual job_impl : (Job.Params.t, Job.Results.t) MessageWrapper.Service.method_t
      end
      let local (service:#service) =
        MessageWrapper.Untyped.local service
    end
  end
  module MessageWrapper = MessageWrapper
end

module Make(M:Capnp.MessageSig.S) = MakeRPC(Capnp.RPC.None(M))