Source file type.ml

(********************************************************)
(*           AUTOGENERATED FILE - DO NOT EDIT!          *)
(********************************************************)
(* Generated by: ocaml-protoc-plugin                    *)
(* https://github.com/andersfugmann/ocaml-protoc-plugin *)
(********************************************************)
(*
  Source: google/protobuf/type.proto
  Syntax: proto3
  Parameters:
    debug=false
    annot=''
    opens=[]
    int64_as_int=true
    int32_as_int=true
    fixed_as_int=false
    singleton_record=false
*)

open Ocaml_protoc_plugin.Runtime [@@warning "-33"]
(**/**)
module Imported'modules = struct
  module Any = Any
  module Source_context = Source_context
end
(**/**)
module rec Google : sig
  module rec Protobuf : sig
    module rec Syntax : sig
      type t = SYNTAX_PROTO2 | SYNTAX_PROTO3
      val to_int: t -> int
      val from_int: int -> t Runtime'.Result.t
      val from_int_exn: int -> t
    end
    and Type : sig
      val name': unit -> string
      type t = { name: string; fields: Field.t list; oneofs: string list; options: Option.t list; source_context: Imported'modules.Source_context.Google.Protobuf.SourceContext.t option; syntax: Syntax.t }
      val make: ?name:string -> ?fields:Field.t list -> ?oneofs:string list -> ?options:Option.t list -> ?source_context:Imported'modules.Source_context.Google.Protobuf.SourceContext.t -> ?syntax:Syntax.t -> unit -> t
      val merge: t -> t -> t
      val to_proto': Runtime'.Writer.t -> t -> Runtime'.Writer.t
      val to_proto: t -> Runtime'.Writer.t
      val from_proto: Runtime'.Reader.t -> (t, [> Runtime'.Result.error]) result
      val from_proto_exn: Runtime'.Reader.t -> t
    end
    and Field : sig
      module rec Kind : sig
        type t = TYPE_UNKNOWN | TYPE_DOUBLE | TYPE_FLOAT | TYPE_INT64 | TYPE_UINT64 | TYPE_INT32 | TYPE_FIXED64 | TYPE_FIXED32 | TYPE_BOOL | TYPE_STRING | TYPE_GROUP | TYPE_MESSAGE | TYPE_BYTES | TYPE_UINT32 | TYPE_ENUM | TYPE_SFIXED32 | TYPE_SFIXED64 | TYPE_SINT32 | TYPE_SINT64
        val to_int: t -> int
        val from_int: int -> t Runtime'.Result.t
        val from_int_exn: int -> t
      end
      and Cardinality : sig
        type t = CARDINALITY_UNKNOWN | CARDINALITY_OPTIONAL | CARDINALITY_REQUIRED | CARDINALITY_REPEATED
        val to_int: t -> int
        val from_int: int -> t Runtime'.Result.t
        val from_int_exn: int -> t
      end
      val name': unit -> string
      type t = { kind: Kind.t; cardinality: Cardinality.t; number: int; name: string; type_url: string; oneof_index: int; packed: bool; options: Option.t list; json_name: string; default_value: string }
      val make: ?kind:Kind.t -> ?cardinality:Cardinality.t -> ?number:int -> ?name:string -> ?type_url:string -> ?oneof_index:int -> ?packed:bool -> ?options:Option.t list -> ?json_name:string -> ?default_value:string -> unit -> t
      val merge: t -> t -> t
      val to_proto': Runtime'.Writer.t -> t -> Runtime'.Writer.t
      val to_proto: t -> Runtime'.Writer.t
      val from_proto: Runtime'.Reader.t -> (t, [> Runtime'.Result.error]) result
      val from_proto_exn: Runtime'.Reader.t -> t
    end
    and Enum : sig
      val name': unit -> string
      type t = { name: string; enumvalue: EnumValue.t list; options: Option.t list; source_context: Imported'modules.Source_context.Google.Protobuf.SourceContext.t option; syntax: Syntax.t }
      val make: ?name:string -> ?enumvalue:EnumValue.t list -> ?options:Option.t list -> ?source_context:Imported'modules.Source_context.Google.Protobuf.SourceContext.t -> ?syntax:Syntax.t -> unit -> t
      val merge: t -> t -> t
      val to_proto': Runtime'.Writer.t -> t -> Runtime'.Writer.t
      val to_proto: t -> Runtime'.Writer.t
      val from_proto: Runtime'.Reader.t -> (t, [> Runtime'.Result.error]) result
      val from_proto_exn: Runtime'.Reader.t -> t
    end
    and EnumValue : sig
      val name': unit -> string
      type t = { name: string; number: int; options: Option.t list }
      val make: ?name:string -> ?number:int -> ?options:Option.t list -> unit -> t
      val merge: t -> t -> t
      val to_proto': Runtime'.Writer.t -> t -> Runtime'.Writer.t
      val to_proto: t -> Runtime'.Writer.t
      val from_proto: Runtime'.Reader.t -> (t, [> Runtime'.Result.error]) result
      val from_proto_exn: Runtime'.Reader.t -> t
    end
    and Option : sig
      val name': unit -> string
      type t = { name: string; value: Imported'modules.Any.Google.Protobuf.Any.t option }
      val make: ?name:string -> ?value:Imported'modules.Any.Google.Protobuf.Any.t -> unit -> t
      val merge: t -> t -> t
      val to_proto': Runtime'.Writer.t -> t -> Runtime'.Writer.t
      val to_proto: t -> Runtime'.Writer.t
      val from_proto: Runtime'.Reader.t -> (t, [> Runtime'.Result.error]) result
      val from_proto_exn: Runtime'.Reader.t -> t
    end
  end
end = struct
  module rec Protobuf : sig
    module rec Syntax : sig
      type t = SYNTAX_PROTO2 | SYNTAX_PROTO3
      val to_int: t -> int
      val from_int: int -> t Runtime'.Result.t
      val from_int_exn: int -> t
    end
    and Type : sig
      val name': unit -> string
      type t = { name: string; fields: Field.t list; oneofs: string list; options: Option.t list; source_context: Imported'modules.Source_context.Google.Protobuf.SourceContext.t option; syntax: Syntax.t }
      val make: ?name:string -> ?fields:Field.t list -> ?oneofs:string list -> ?options:Option.t list -> ?source_context:Imported'modules.Source_context.Google.Protobuf.SourceContext.t -> ?syntax:Syntax.t -> unit -> t
      val merge: t -> t -> t
      val to_proto': Runtime'.Writer.t -> t -> Runtime'.Writer.t
      val to_proto: t -> Runtime'.Writer.t
      val from_proto: Runtime'.Reader.t -> (t, [> Runtime'.Result.error]) result
      val from_proto_exn: Runtime'.Reader.t -> t
    end
    and Field : sig
      module rec Kind : sig
        type t = TYPE_UNKNOWN | TYPE_DOUBLE | TYPE_FLOAT | TYPE_INT64 | TYPE_UINT64 | TYPE_INT32 | TYPE_FIXED64 | TYPE_FIXED32 | TYPE_BOOL | TYPE_STRING | TYPE_GROUP | TYPE_MESSAGE | TYPE_BYTES | TYPE_UINT32 | TYPE_ENUM | TYPE_SFIXED32 | TYPE_SFIXED64 | TYPE_SINT32 | TYPE_SINT64
        val to_int: t -> int
        val from_int: int -> t Runtime'.Result.t
        val from_int_exn: int -> t
      end
      and Cardinality : sig
        type t = CARDINALITY_UNKNOWN | CARDINALITY_OPTIONAL | CARDINALITY_REQUIRED | CARDINALITY_REPEATED
        val to_int: t -> int
        val from_int: int -> t Runtime'.Result.t
        val from_int_exn: int -> t
      end
      val name': unit -> string
      type t = { kind: Kind.t; cardinality: Cardinality.t; number: int; name: string; type_url: string; oneof_index: int; packed: bool; options: Option.t list; json_name: string; default_value: string }
      val make: ?kind:Kind.t -> ?cardinality:Cardinality.t -> ?number:int -> ?name:string -> ?type_url:string -> ?oneof_index:int -> ?packed:bool -> ?options:Option.t list -> ?json_name:string -> ?default_value:string -> unit -> t
      val merge: t -> t -> t
      val to_proto': Runtime'.Writer.t -> t -> Runtime'.Writer.t
      val to_proto: t -> Runtime'.Writer.t
      val from_proto: Runtime'.Reader.t -> (t, [> Runtime'.Result.error]) result
      val from_proto_exn: Runtime'.Reader.t -> t
    end
    and Enum : sig
      val name': unit -> string
      type t = { name: string; enumvalue: EnumValue.t list; options: Option.t list; source_context: Imported'modules.Source_context.Google.Protobuf.SourceContext.t option; syntax: Syntax.t }
      val make: ?name:string -> ?enumvalue:EnumValue.t list -> ?options:Option.t list -> ?source_context:Imported'modules.Source_context.Google.Protobuf.SourceContext.t -> ?syntax:Syntax.t -> unit -> t
      val merge: t -> t -> t
      val to_proto': Runtime'.Writer.t -> t -> Runtime'.Writer.t
      val to_proto: t -> Runtime'.Writer.t
      val from_proto: Runtime'.Reader.t -> (t, [> Runtime'.Result.error]) result
      val from_proto_exn: Runtime'.Reader.t -> t
    end
    and EnumValue : sig
      val name': unit -> string
      type t = { name: string; number: int; options: Option.t list }
      val make: ?name:string -> ?number:int -> ?options:Option.t list -> unit -> t
      val merge: t -> t -> t
      val to_proto': Runtime'.Writer.t -> t -> Runtime'.Writer.t
      val to_proto: t -> Runtime'.Writer.t
      val from_proto: Runtime'.Reader.t -> (t, [> Runtime'.Result.error]) result
      val from_proto_exn: Runtime'.Reader.t -> t
    end
    and Option : sig
      val name': unit -> string
      type t = { name: string; value: Imported'modules.Any.Google.Protobuf.Any.t option }
      val make: ?name:string -> ?value:Imported'modules.Any.Google.Protobuf.Any.t -> unit -> t
      val merge: t -> t -> t
      val to_proto': Runtime'.Writer.t -> t -> Runtime'.Writer.t
      val to_proto: t -> Runtime'.Writer.t
      val from_proto: Runtime'.Reader.t -> (t, [> Runtime'.Result.error]) result
      val from_proto_exn: Runtime'.Reader.t -> t
    end
  end = struct
    module rec Syntax : sig
      type t = SYNTAX_PROTO2 | SYNTAX_PROTO3
      val to_int: t -> int
      val from_int: int -> t Runtime'.Result.t
      val from_int_exn: int -> t
    end = struct
      type t = SYNTAX_PROTO2 | SYNTAX_PROTO3
      let to_int = function
        | SYNTAX_PROTO2 -> 0
        | SYNTAX_PROTO3 -> 1

      let from_int_exn = function
        | 0 -> SYNTAX_PROTO2
        | 1 -> SYNTAX_PROTO3
        | n -> Runtime'.Result.raise (`Unknown_enum_value n)

      let from_int e = Runtime'.Result.catch (fun () -> from_int_exn e)
    end
    and Type : sig
      val name': unit -> string
      type t = { name: string; fields: Field.t list; oneofs: string list; options: Option.t list; source_context: Imported'modules.Source_context.Google.Protobuf.SourceContext.t option; syntax: Syntax.t }
      val make: ?name:string -> ?fields:Field.t list -> ?oneofs:string list -> ?options:Option.t list -> ?source_context:Imported'modules.Source_context.Google.Protobuf.SourceContext.t -> ?syntax:Syntax.t -> unit -> t
      val merge: t -> t -> t
      val to_proto': Runtime'.Writer.t -> t -> Runtime'.Writer.t
      val to_proto: t -> Runtime'.Writer.t
      val from_proto: Runtime'.Reader.t -> (t, [> Runtime'.Result.error]) result
      val from_proto_exn: Runtime'.Reader.t -> t
    end = struct
      let name' () = "type.google.protobuf.Type"
      type t = { name: string; fields: Field.t list; oneofs: string list; options: Option.t list; source_context: Imported'modules.Source_context.Google.Protobuf.SourceContext.t option; syntax: Syntax.t }
      let make ?(name = {||}) ?(fields = []) ?(oneofs = []) ?(options = []) ?source_context ?(syntax = Syntax.SYNTAX_PROTO2) () = { name; fields; oneofs; options; source_context; syntax }
      let merge = (fun t1 t2 -> {
        name = (Runtime'.Merge.merge Runtime'.Deserialize.C.( basic (1, string, ({||})) ) t1.name t2.name);
        fields = (Runtime'.Merge.merge Runtime'.Deserialize.C.( repeated (2, (message ((fun writer -> Field.from_proto_exn writer), Field.merge)), not_packed) ) t1.fields t2.fields);
        oneofs = (Runtime'.Merge.merge Runtime'.Deserialize.C.( repeated (3, string, not_packed) ) t1.oneofs t2.oneofs);
        options = (Runtime'.Merge.merge Runtime'.Deserialize.C.( repeated (4, (message ((fun writer -> Option.from_proto_exn writer), Option.merge)), not_packed) ) t1.options t2.options);
        source_context = (Runtime'.Merge.merge Runtime'.Deserialize.C.( basic_opt (5, (message ((fun writer -> Imported'modules.Source_context.Google.Protobuf.SourceContext.from_proto_exn writer), Imported'modules.Source_context.Google.Protobuf.SourceContext.merge))) ) t1.source_context t2.source_context);
        syntax = (Runtime'.Merge.merge Runtime'.Deserialize.C.( basic (6, (enum Syntax.from_int_exn), (Syntax.SYNTAX_PROTO2)) ) t1.syntax t2.syntax);
         })
      let to_proto' =
        let spec = Runtime'.Serialize.C.( basic (1, string, ({||})) ^:: repeated (2, (message Field.to_proto'), not_packed) ^:: repeated (3, string, not_packed) ^:: repeated (4, (message Option.to_proto'), not_packed) ^:: basic_opt (5, (message Imported'modules.Source_context.Google.Protobuf.SourceContext.to_proto')) ^:: basic (6, (enum Syntax.to_int), (Syntax.SYNTAX_PROTO2)) ^:: nil ) in
        let serialize = Runtime'.Serialize.serialize spec in
        fun writer { name; fields; oneofs; options; source_context; syntax } -> serialize writer name fields oneofs options source_context syntax

      let to_proto t = to_proto' (Runtime'.Writer.init ()) t
      let from_proto_exn =
        let constructor = fun name fields oneofs options source_context syntax -> { name; fields; oneofs; options; source_context; syntax } in
        let spec = Runtime'.Deserialize.C.( basic (1, string, ({||})) ^:: repeated (2, (message ((fun writer -> Field.from_proto_exn writer), Field.merge)), not_packed) ^:: repeated (3, string, not_packed) ^:: repeated (4, (message ((fun writer -> Option.from_proto_exn writer), Option.merge)), not_packed) ^:: basic_opt (5, (message ((fun writer -> Imported'modules.Source_context.Google.Protobuf.SourceContext.from_proto_exn writer), Imported'modules.Source_context.Google.Protobuf.SourceContext.merge))) ^:: basic (6, (enum Syntax.from_int_exn), (Syntax.SYNTAX_PROTO2)) ^:: nil ) in
        Runtime'.Deserialize.deserialize spec constructor
      let from_proto writer = Runtime'.Result.catch (fun () -> from_proto_exn writer)
    end
    and Field : sig
      module rec Kind : sig
        type t = TYPE_UNKNOWN | TYPE_DOUBLE | TYPE_FLOAT | TYPE_INT64 | TYPE_UINT64 | TYPE_INT32 | TYPE_FIXED64 | TYPE_FIXED32 | TYPE_BOOL | TYPE_STRING | TYPE_GROUP | TYPE_MESSAGE | TYPE_BYTES | TYPE_UINT32 | TYPE_ENUM | TYPE_SFIXED32 | TYPE_SFIXED64 | TYPE_SINT32 | TYPE_SINT64
        val to_int: t -> int
        val from_int: int -> t Runtime'.Result.t
        val from_int_exn: int -> t
      end
      and Cardinality : sig
        type t = CARDINALITY_UNKNOWN | CARDINALITY_OPTIONAL | CARDINALITY_REQUIRED | CARDINALITY_REPEATED
        val to_int: t -> int
        val from_int: int -> t Runtime'.Result.t
        val from_int_exn: int -> t
      end
      val name': unit -> string
      type t = { kind: Kind.t; cardinality: Cardinality.t; number: int; name: string; type_url: string; oneof_index: int; packed: bool; options: Option.t list; json_name: string; default_value: string }
      val make: ?kind:Kind.t -> ?cardinality:Cardinality.t -> ?number:int -> ?name:string -> ?type_url:string -> ?oneof_index:int -> ?packed:bool -> ?options:Option.t list -> ?json_name:string -> ?default_value:string -> unit -> t
      val merge: t -> t -> t
      val to_proto': Runtime'.Writer.t -> t -> Runtime'.Writer.t
      val to_proto: t -> Runtime'.Writer.t
      val from_proto: Runtime'.Reader.t -> (t, [> Runtime'.Result.error]) result
      val from_proto_exn: Runtime'.Reader.t -> t
    end = struct
      module rec Kind : sig
        type t = TYPE_UNKNOWN | TYPE_DOUBLE | TYPE_FLOAT | TYPE_INT64 | TYPE_UINT64 | TYPE_INT32 | TYPE_FIXED64 | TYPE_FIXED32 | TYPE_BOOL | TYPE_STRING | TYPE_GROUP | TYPE_MESSAGE | TYPE_BYTES | TYPE_UINT32 | TYPE_ENUM | TYPE_SFIXED32 | TYPE_SFIXED64 | TYPE_SINT32 | TYPE_SINT64
        val to_int: t -> int
        val from_int: int -> t Runtime'.Result.t
        val from_int_exn: int -> t
      end = struct
        type t = TYPE_UNKNOWN | TYPE_DOUBLE | TYPE_FLOAT | TYPE_INT64 | TYPE_UINT64 | TYPE_INT32 | TYPE_FIXED64 | TYPE_FIXED32 | TYPE_BOOL | TYPE_STRING | TYPE_GROUP | TYPE_MESSAGE | TYPE_BYTES | TYPE_UINT32 | TYPE_ENUM | TYPE_SFIXED32 | TYPE_SFIXED64 | TYPE_SINT32 | TYPE_SINT64
        let to_int = function
          | TYPE_UNKNOWN -> 0
          | TYPE_DOUBLE -> 1
          | TYPE_FLOAT -> 2
          | TYPE_INT64 -> 3
          | TYPE_UINT64 -> 4
          | TYPE_INT32 -> 5
          | TYPE_FIXED64 -> 6
          | TYPE_FIXED32 -> 7
          | TYPE_BOOL -> 8
          | TYPE_STRING -> 9
          | TYPE_GROUP -> 10
          | TYPE_MESSAGE -> 11
          | TYPE_BYTES -> 12
          | TYPE_UINT32 -> 13
          | TYPE_ENUM -> 14
          | TYPE_SFIXED32 -> 15
          | TYPE_SFIXED64 -> 16
          | TYPE_SINT32 -> 17
          | TYPE_SINT64 -> 18

        let from_int_exn = function
          | 0 -> TYPE_UNKNOWN
          | 1 -> TYPE_DOUBLE
          | 2 -> TYPE_FLOAT
          | 3 -> TYPE_INT64
          | 4 -> TYPE_UINT64
          | 5 -> TYPE_INT32
          | 6 -> TYPE_FIXED64
          | 7 -> TYPE_FIXED32
          | 8 -> TYPE_BOOL
          | 9 -> TYPE_STRING
          | 10 -> TYPE_GROUP
          | 11 -> TYPE_MESSAGE
          | 12 -> TYPE_BYTES
          | 13 -> TYPE_UINT32
          | 14 -> TYPE_ENUM
          | 15 -> TYPE_SFIXED32
          | 16 -> TYPE_SFIXED64
          | 17 -> TYPE_SINT32
          | 18 -> TYPE_SINT64
          | n -> Runtime'.Result.raise (`Unknown_enum_value n)

        let from_int e = Runtime'.Result.catch (fun () -> from_int_exn e)
      end
      and Cardinality : sig
        type t = CARDINALITY_UNKNOWN | CARDINALITY_OPTIONAL | CARDINALITY_REQUIRED | CARDINALITY_REPEATED
        val to_int: t -> int
        val from_int: int -> t Runtime'.Result.t
        val from_int_exn: int -> t
      end = struct
        type t = CARDINALITY_UNKNOWN | CARDINALITY_OPTIONAL | CARDINALITY_REQUIRED | CARDINALITY_REPEATED
        let to_int = function
          | CARDINALITY_UNKNOWN -> 0
          | CARDINALITY_OPTIONAL -> 1
          | CARDINALITY_REQUIRED -> 2
          | CARDINALITY_REPEATED -> 3

        let from_int_exn = function
          | 0 -> CARDINALITY_UNKNOWN
          | 1 -> CARDINALITY_OPTIONAL
          | 2 -> CARDINALITY_REQUIRED
          | 3 -> CARDINALITY_REPEATED
          | n -> Runtime'.Result.raise (`Unknown_enum_value n)

        let from_int e = Runtime'.Result.catch (fun () -> from_int_exn e)
      end
      let name' () = "type.google.protobuf.Field"
      type t = { kind: Kind.t; cardinality: Cardinality.t; number: int; name: string; type_url: string; oneof_index: int; packed: bool; options: Option.t list; json_name: string; default_value: string }
      let make ?(kind = Kind.TYPE_UNKNOWN) ?(cardinality = Cardinality.CARDINALITY_UNKNOWN) ?(number = 0) ?(name = {||}) ?(type_url = {||}) ?(oneof_index = 0) ?(packed = false) ?(options = []) ?(json_name = {||}) ?(default_value = {||}) () = { kind; cardinality; number; name; type_url; oneof_index; packed; options; json_name; default_value }
      let merge = (fun t1 t2 -> {
        kind = (Runtime'.Merge.merge Runtime'.Deserialize.C.( basic (1, (enum Kind.from_int_exn), (Kind.TYPE_UNKNOWN)) ) t1.kind t2.kind);
        cardinality = (Runtime'.Merge.merge Runtime'.Deserialize.C.( basic (2, (enum Cardinality.from_int_exn), (Cardinality.CARDINALITY_UNKNOWN)) ) t1.cardinality t2.cardinality);
        number = (Runtime'.Merge.merge Runtime'.Deserialize.C.( basic (3, int32_int, (0)) ) t1.number t2.number);
        name = (Runtime'.Merge.merge Runtime'.Deserialize.C.( basic (4, string, ({||})) ) t1.name t2.name);
        type_url = (Runtime'.Merge.merge Runtime'.Deserialize.C.( basic (6, string, ({||})) ) t1.type_url t2.type_url);
        oneof_index = (Runtime'.Merge.merge Runtime'.Deserialize.C.( basic (7, int32_int, (0)) ) t1.oneof_index t2.oneof_index);
        packed = (Runtime'.Merge.merge Runtime'.Deserialize.C.( basic (8, bool, (false)) ) t1.packed t2.packed);
        options = (Runtime'.Merge.merge Runtime'.Deserialize.C.( repeated (9, (message ((fun writer -> Option.from_proto_exn writer), Option.merge)), not_packed) ) t1.options t2.options);
        json_name = (Runtime'.Merge.merge Runtime'.Deserialize.C.( basic (10, string, ({||})) ) t1.json_name t2.json_name);
        default_value = (Runtime'.Merge.merge Runtime'.Deserialize.C.( basic (11, string, ({||})) ) t1.default_value t2.default_value);
         })
      let to_proto' =
        let spec = Runtime'.Serialize.C.( basic (1, (enum Kind.to_int), (Kind.TYPE_UNKNOWN)) ^:: basic (2, (enum Cardinality.to_int), (Cardinality.CARDINALITY_UNKNOWN)) ^:: basic (3, int32_int, (0)) ^:: basic (4, string, ({||})) ^:: basic (6, string, ({||})) ^:: basic (7, int32_int, (0)) ^:: basic (8, bool, (false)) ^:: repeated (9, (message Option.to_proto'), not_packed) ^:: basic (10, string, ({||})) ^:: basic (11, string, ({||})) ^:: nil ) in
        let serialize = Runtime'.Serialize.serialize spec in
        fun writer { kind; cardinality; number; name; type_url; oneof_index; packed; options; json_name; default_value } -> serialize writer kind cardinality number name type_url oneof_index packed options json_name default_value

      let to_proto t = to_proto' (Runtime'.Writer.init ()) t
      let from_proto_exn =
        let constructor = fun kind cardinality number name type_url oneof_index packed options json_name default_value -> { kind; cardinality; number; name; type_url; oneof_index; packed; options; json_name; default_value } in
        let spec = Runtime'.Deserialize.C.( basic (1, (enum Kind.from_int_exn), (Kind.TYPE_UNKNOWN)) ^:: basic (2, (enum Cardinality.from_int_exn), (Cardinality.CARDINALITY_UNKNOWN)) ^:: basic (3, int32_int, (0)) ^:: basic (4, string, ({||})) ^:: basic (6, string, ({||})) ^:: basic (7, int32_int, (0)) ^:: basic (8, bool, (false)) ^:: repeated (9, (message ((fun writer -> Option.from_proto_exn writer), Option.merge)), not_packed) ^:: basic (10, string, ({||})) ^:: basic (11, string, ({||})) ^:: nil ) in
        Runtime'.Deserialize.deserialize spec constructor
      let from_proto writer = Runtime'.Result.catch (fun () -> from_proto_exn writer)
    end
    and Enum : sig
      val name': unit -> string
      type t = { name: string; enumvalue: EnumValue.t list; options: Option.t list; source_context: Imported'modules.Source_context.Google.Protobuf.SourceContext.t option; syntax: Syntax.t }
      val make: ?name:string -> ?enumvalue:EnumValue.t list -> ?options:Option.t list -> ?source_context:Imported'modules.Source_context.Google.Protobuf.SourceContext.t -> ?syntax:Syntax.t -> unit -> t
      val merge: t -> t -> t
      val to_proto': Runtime'.Writer.t -> t -> Runtime'.Writer.t
      val to_proto: t -> Runtime'.Writer.t
      val from_proto: Runtime'.Reader.t -> (t, [> Runtime'.Result.error]) result
      val from_proto_exn: Runtime'.Reader.t -> t
    end = struct
      let name' () = "type.google.protobuf.Enum"
      type t = { name: string; enumvalue: EnumValue.t list; options: Option.t list; source_context: Imported'modules.Source_context.Google.Protobuf.SourceContext.t option; syntax: Syntax.t }
      let make ?(name = {||}) ?(enumvalue = []) ?(options = []) ?source_context ?(syntax = Syntax.SYNTAX_PROTO2) () = { name; enumvalue; options; source_context; syntax }
      let merge = (fun t1 t2 -> {
        name = (Runtime'.Merge.merge Runtime'.Deserialize.C.( basic (1, string, ({||})) ) t1.name t2.name);
        enumvalue = (Runtime'.Merge.merge Runtime'.Deserialize.C.( repeated (2, (message ((fun writer -> EnumValue.from_proto_exn writer), EnumValue.merge)), not_packed) ) t1.enumvalue t2.enumvalue);
        options = (Runtime'.Merge.merge Runtime'.Deserialize.C.( repeated (3, (message ((fun writer -> Option.from_proto_exn writer), Option.merge)), not_packed) ) t1.options t2.options);
        source_context = (Runtime'.Merge.merge Runtime'.Deserialize.C.( basic_opt (4, (message ((fun writer -> Imported'modules.Source_context.Google.Protobuf.SourceContext.from_proto_exn writer), Imported'modules.Source_context.Google.Protobuf.SourceContext.merge))) ) t1.source_context t2.source_context);
        syntax = (Runtime'.Merge.merge Runtime'.Deserialize.C.( basic (5, (enum Syntax.from_int_exn), (Syntax.SYNTAX_PROTO2)) ) t1.syntax t2.syntax);
         })
      let to_proto' =
        let spec = Runtime'.Serialize.C.( basic (1, string, ({||})) ^:: repeated (2, (message EnumValue.to_proto'), not_packed) ^:: repeated (3, (message Option.to_proto'), not_packed) ^:: basic_opt (4, (message Imported'modules.Source_context.Google.Protobuf.SourceContext.to_proto')) ^:: basic (5, (enum Syntax.to_int), (Syntax.SYNTAX_PROTO2)) ^:: nil ) in
        let serialize = Runtime'.Serialize.serialize spec in
        fun writer { name; enumvalue; options; source_context; syntax } -> serialize writer name enumvalue options source_context syntax

      let to_proto t = to_proto' (Runtime'.Writer.init ()) t
      let from_proto_exn =
        let constructor = fun name enumvalue options source_context syntax -> { name; enumvalue; options; source_context; syntax } in
        let spec = Runtime'.Deserialize.C.( basic (1, string, ({||})) ^:: repeated (2, (message ((fun writer -> EnumValue.from_proto_exn writer), EnumValue.merge)), not_packed) ^:: repeated (3, (message ((fun writer -> Option.from_proto_exn writer), Option.merge)), not_packed) ^:: basic_opt (4, (message ((fun writer -> Imported'modules.Source_context.Google.Protobuf.SourceContext.from_proto_exn writer), Imported'modules.Source_context.Google.Protobuf.SourceContext.merge))) ^:: basic (5, (enum Syntax.from_int_exn), (Syntax.SYNTAX_PROTO2)) ^:: nil ) in
        Runtime'.Deserialize.deserialize spec constructor
      let from_proto writer = Runtime'.Result.catch (fun () -> from_proto_exn writer)
    end
    and EnumValue : sig
      val name': unit -> string
      type t = { name: string; number: int; options: Option.t list }
      val make: ?name:string -> ?number:int -> ?options:Option.t list -> unit -> t
      val merge: t -> t -> t
      val to_proto': Runtime'.Writer.t -> t -> Runtime'.Writer.t
      val to_proto: t -> Runtime'.Writer.t
      val from_proto: Runtime'.Reader.t -> (t, [> Runtime'.Result.error]) result
      val from_proto_exn: Runtime'.Reader.t -> t
    end = struct
      let name' () = "type.google.protobuf.EnumValue"
      type t = { name: string; number: int; options: Option.t list }
      let make ?(name = {||}) ?(number = 0) ?(options = []) () = { name; number; options }
      let merge = (fun t1 t2 -> {
        name = (Runtime'.Merge.merge Runtime'.Deserialize.C.( basic (1, string, ({||})) ) t1.name t2.name);
        number = (Runtime'.Merge.merge Runtime'.Deserialize.C.( basic (2, int32_int, (0)) ) t1.number t2.number);
        options = (Runtime'.Merge.merge Runtime'.Deserialize.C.( repeated (3, (message ((fun writer -> Option.from_proto_exn writer), Option.merge)), not_packed) ) t1.options t2.options);
         })
      let to_proto' =
        let spec = Runtime'.Serialize.C.( basic (1, string, ({||})) ^:: basic (2, int32_int, (0)) ^:: repeated (3, (message Option.to_proto'), not_packed) ^:: nil ) in
        let serialize = Runtime'.Serialize.serialize spec in
        fun writer { name; number; options } -> serialize writer name number options

      let to_proto t = to_proto' (Runtime'.Writer.init ()) t
      let from_proto_exn =
        let constructor = fun name number options -> { name; number; options } in
        let spec = Runtime'.Deserialize.C.( basic (1, string, ({||})) ^:: basic (2, int32_int, (0)) ^:: repeated (3, (message ((fun writer -> Option.from_proto_exn writer), Option.merge)), not_packed) ^:: nil ) in
        Runtime'.Deserialize.deserialize spec constructor
      let from_proto writer = Runtime'.Result.catch (fun () -> from_proto_exn writer)
    end
    and Option : sig
      val name': unit -> string
      type t = { name: string; value: Imported'modules.Any.Google.Protobuf.Any.t option }
      val make: ?name:string -> ?value:Imported'modules.Any.Google.Protobuf.Any.t -> unit -> t
      val merge: t -> t -> t
      val to_proto': Runtime'.Writer.t -> t -> Runtime'.Writer.t
      val to_proto: t -> Runtime'.Writer.t
      val from_proto: Runtime'.Reader.t -> (t, [> Runtime'.Result.error]) result
      val from_proto_exn: Runtime'.Reader.t -> t
    end = struct
      let name' () = "type.google.protobuf.Option"
      type t = { name: string; value: Imported'modules.Any.Google.Protobuf.Any.t option }
      let make ?(name = {||}) ?value () = { name; value }
      let merge = (fun t1 t2 -> {
        name = (Runtime'.Merge.merge Runtime'.Deserialize.C.( basic (1, string, ({||})) ) t1.name t2.name);
        value = (Runtime'.Merge.merge Runtime'.Deserialize.C.( basic_opt (2, (message ((fun writer -> Imported'modules.Any.Google.Protobuf.Any.from_proto_exn writer), Imported'modules.Any.Google.Protobuf.Any.merge))) ) t1.value t2.value);
         })
      let to_proto' =
        let spec = Runtime'.Serialize.C.( basic (1, string, ({||})) ^:: basic_opt (2, (message Imported'modules.Any.Google.Protobuf.Any.to_proto')) ^:: nil ) in
        let serialize = Runtime'.Serialize.serialize spec in
        fun writer { name; value } -> serialize writer name value

      let to_proto t = to_proto' (Runtime'.Writer.init ()) t
      let from_proto_exn =
        let constructor = fun name value -> { name; value } in
        let spec = Runtime'.Deserialize.C.( basic (1, string, ({||})) ^:: basic_opt (2, (message ((fun writer -> Imported'modules.Any.Google.Protobuf.Any.from_proto_exn writer), Imported'modules.Any.Google.Protobuf.Any.merge))) ^:: nil ) in
        Runtime'.Deserialize.deserialize spec constructor
      let from_proto writer = Runtime'.Result.catch (fun () -> from_proto_exn writer)
    end
  end
end