Skip to content

Instantly share code, notes, and snippets.

@abbysmal

abbysmal/test.ml

Created January 6, 2017 02:08
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save abbysmal/8bd02b239f0878097557f14b6bffacab to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save abbysmal/8bd02b239f0878097557f14b6bffacab to your computer and use it in GitHub Desktop.
Download ZIP
Raw
test.ml
This file has been truncated, but you can view the full file.
module I1 = struct type i2 = int;; let p3 = Extprot.Pretty_print.pp_int;; end;;
module I4 = struct type i5 = string;; let p6 = Extprot.Pretty_print.pp_string;; end;;
module L7 = struct type l8 = string;; let p9 = Extprot.Pretty_print.pp_string;; end;;
module S10 = struct type s11 = string;; let p12 = Extprot.Pretty_print.pp_string;; end;;
module S13 =
struct
type s14 = S10.s11 list;;
let p15 = Extprot.Pretty_print.pp_list S10.p12;;
end;;
module L16 =
struct
type 'a l17 = (S10.s11 * 'a) list;;
let p18 p19 =
Extprot.Pretty_print.pp_list (Extprot.Pretty_print.pp_tuple2 S10.p12 p19);;
end;;
module H20 =
struct
type ('k, 'v) h21 = ('k * 'v) list;;
let p22 p23 p24 =
Extprot.Pretty_print.pp_list (Extprot.Pretty_print.pp_tuple2 p23 p24);;
end;;
module U25 =
struct type u26 = string;; let p27 = Extprot.Pretty_print.pp_string;; end;;
module S28 = struct type s29 = float;; let p30 = Extprot.Pretty_print.pp_float;; end;;
module I31 =
struct type i32 = int;; let p33 = Extprot.Pretty_print.pp_int;; end;;
module S34 =
struct type s35 = float;; let p36 = Extprot.Pretty_print.pp_float;; end;;
module U37 =
struct
type u38 = (string * string);;
let p39 =
Extprot.Pretty_print.pp_tuple2 Extprot.Pretty_print.pp_string Extprot.Pretty_print.pp_string;;
end;;
module R40 =
struct
type 'a r41 = | A42 of string | A43 of string | A44 of string;;
let p45 p19 pp =
function
| A42 v0 -> Extprot.Pretty_print.fprintf pp "R40.A42 %a" Extprot.Pretty_print.pp_string v0
| A43 v0 -> Extprot.Pretty_print.fprintf pp "R40.A43 %a" Extprot.Pretty_print.pp_string v0
| A44 v0 -> Extprot.Pretty_print.fprintf pp "R40.A44 %a" Extprot.Pretty_print.pp_string v0;;
end;;
module I46 = struct type i47 = int;; let p48 = Extprot.Pretty_print.pp_int;; end;;
module L49 =
struct type l50 = string;; let p51 = Extprot.Pretty_print.pp_string;; end;;
module D52 = struct type d53 = int;; let p54 = Extprot.Pretty_print.pp_int;; end;;
module W55 =
struct type w56 = string;; let p57 = Extprot.Pretty_print.pp_string;; end;;
module Maybe =
struct
type 'a maybe = ('a option) = | None | Some of 'a;;
let pp_maybe p19 pp =
function
| None -> Extprot.Pretty_print.fprintf pp "Maybe.None"
| Some v0 -> Extprot.Pretty_print.fprintf pp "Maybe.Some %a" p19 v0;;
end;;
module P58 =
struct
type p59 = (I46.i47 * int * (string Maybe.maybe)) list;;
let p60 =
Extprot.Pretty_print.pp_list
(Extprot.Pretty_print.pp_tuple3 I46.p48 Extprot.Pretty_print.pp_int
(Maybe.pp_maybe Extprot.Pretty_print.pp_string));;
end;;
module C61 =
struct
type c62 = | Z63 | D64 | S65 | Z66 of int;;
let p67 pp =
function
| Z63 -> Extprot.Pretty_print.fprintf pp "C61.Z63"
| D64 -> Extprot.Pretty_print.fprintf pp "C61.D64"
| S65 -> Extprot.Pretty_print.fprintf pp "C61.S65"
| Z66 v0 ->
Extprot.Pretty_print.fprintf pp "C61.Z66 %a" Extprot.Pretty_print.pp_int v0;;
end;;
module E68 =
struct
type e69 = | R70 | U71 | E72 of string;;
let p73 pp =
function
| R70 -> Extprot.Pretty_print.fprintf pp "E68.R70"
| U71 -> Extprot.Pretty_print.fprintf pp "E68.U71"
| E72 v0 ->
Extprot.Pretty_print.fprintf pp "E68.E72 %a" Extprot.Pretty_print.pp_string v0;;
end;;
module T74 =
struct
type t75 = | T74 of string | C76 of string | T77 of string | I78 of string;;
let p79 pp =
function
| T74 v0 -> Extprot.Pretty_print.fprintf pp "T74.T74 %a" Extprot.Pretty_print.pp_string v0
| C76 v0 ->
Extprot.Pretty_print.fprintf pp "T74.C76 %a" Extprot.Pretty_print.pp_string v0
| T77 v0 -> Extprot.Pretty_print.fprintf pp "T74.T77 %a" Extprot.Pretty_print.pp_string v0
| I78 v0 -> Extprot.Pretty_print.fprintf pp "T74.I78 %a" Extprot.Pretty_print.pp_string v0;;
end;;
module H80 =
struct
type h81 =
{ n82 : bool; a83 : string Maybe.maybe; a84 : string;
c85 : (string * string) Maybe.maybe; t86 : T74.t75 array
};;
let p87 =
Extprot.Pretty_print.pp_struct
[ ("H80.n82",
(Extprot.Pretty_print.pp_field (fun t -> t.n82) Extprot.Pretty_print.pp_bool));
("a83",
(Extprot.Pretty_print.pp_field (fun t -> t.a83)
(Maybe.pp_maybe Extprot.Pretty_print.pp_string)));
("a84",
(Extprot.Pretty_print.pp_field (fun t -> t.a84) Extprot.Pretty_print.pp_string));
("c85",
(Extprot.Pretty_print.pp_field (fun t -> t.c85)
(Maybe.pp_maybe
(Extprot.Pretty_print.pp_tuple2 Extprot.Pretty_print.pp_string Extprot.Pretty_print.pp_string))));
("t86",
(Extprot.Pretty_print.pp_field (fun t -> t.t86)
(Extprot.Pretty_print.pp_array T74.p79))) ];;
end;;
module R88 =
struct
type r89 = { u90 : L7.l8; c91 : int };;
let p92 =
Extprot.Pretty_print.pp_struct
[ ("R88.u90",
(Extprot.Pretty_print.pp_field (fun t -> t.u90) L7.p9));
("c91", (Extprot.Pretty_print.pp_field (fun t -> t.c91) Extprot.Pretty_print.pp_int)) ];;
end;;
module L93 =
struct
type l94 =
| R95 of int
| H80 of H80.h81
| F96
| F97
| C98
| A99
| R100
| R101 of R88.r89 list;;
let p102 pp =
function
| R95 v0 ->
Extprot.Pretty_print.fprintf pp "L93.R95 %a" Extprot.Pretty_print.pp_int v0
| H80 v0 -> Extprot.Pretty_print.fprintf pp "L93.H80 %a" H80.p87 v0
| F96 -> Extprot.Pretty_print.fprintf pp "L93.F96"
| F97 -> Extprot.Pretty_print.fprintf pp "L93.F97"
| C98 -> Extprot.Pretty_print.fprintf pp "L93.C98"
| A99 -> Extprot.Pretty_print.fprintf pp "L93.A99"
| R100 -> Extprot.Pretty_print.fprintf pp "L93.R100"
| R101 v0 ->
Extprot.Pretty_print.fprintf pp "L93.R101 %a"
(Extprot.Pretty_print.pp_list R88.p92) v0;;
end;;
module I103 =
struct
type i104 = | O105 | R106 | R107 | H108;;
let p109 pp =
function
| O105 -> Extprot.Pretty_print.fprintf pp "I103.O105"
| R106 -> Extprot.Pretty_print.fprintf pp "I103.R106"
| R107 -> Extprot.Pretty_print.fprintf pp "I103.R107"
| H108 -> Extprot.Pretty_print.fprintf pp "I103.H108";;
end;;
module U110 =
struct type u111 = string;; let p112 = Extprot.Pretty_print.pp_string;; end;;
module R106 =
struct
type r113 = | R114 | R115;;
let p116 pp =
function
| R114 -> Extprot.Pretty_print.fprintf pp "R106.R114"
| R115 -> Extprot.Pretty_print.fprintf pp "R106.R115";;
end;;
module S117 =
struct
type s118 =
| F119 | N120 | F121 | R122 | P123 | U124;;
let p125 pp =
function
| F119 -> Extprot.Pretty_print.fprintf pp "S117.F119"
| N120 -> Extprot.Pretty_print.fprintf pp "S117.N120"
| F121 -> Extprot.Pretty_print.fprintf pp "S117.F121"
| R122 -> Extprot.Pretty_print.fprintf pp "S117.R122"
| P123 -> Extprot.Pretty_print.fprintf pp "S117.P123"
| U124 -> Extprot.Pretty_print.fprintf pp "S117.U124";;
end;;
module B126 =
struct
type b127 =
| E128 | S129 | C98 | R95 | N130 | U124 | N131;;
let p132 pp =
function
| E128 -> Extprot.Pretty_print.fprintf pp "B126.E128"
| S129 -> Extprot.Pretty_print.fprintf pp "B126.S129"
| C98 -> Extprot.Pretty_print.fprintf pp "B126.C98"
| R95 -> Extprot.Pretty_print.fprintf pp "B126.R95"
| N130 -> Extprot.Pretty_print.fprintf pp "B126.N130"
| U124 -> Extprot.Pretty_print.fprintf pp "B126.U124"
| N131 -> Extprot.Pretty_print.fprintf pp "B126.N131";;
end;;
module D133 =
struct
type d134 =
| M135
| N136
| N137
| T138
| O139
| R140
| D141
| N142
| M143
| B144
| D145;;
let p146 pp =
function
| M135 -> Extprot.Pretty_print.fprintf pp "D133.M135"
| N136 -> Extprot.Pretty_print.fprintf pp "D133.N136"
| N137 -> Extprot.Pretty_print.fprintf pp "D133.N137"
| T138 -> Extprot.Pretty_print.fprintf pp "D133.T138"
| O139 -> Extprot.Pretty_print.fprintf pp "D133.O139"
| R140 -> Extprot.Pretty_print.fprintf pp "D133.R140"
| D141 -> Extprot.Pretty_print.fprintf pp "D133.D141"
| N142 -> Extprot.Pretty_print.fprintf pp "D133.N142"
| M143 -> Extprot.Pretty_print.fprintf pp "D133.M143"
| B144 -> Extprot.Pretty_print.fprintf pp "D133.B144"
| D145 -> Extprot.Pretty_print.fprintf pp "D133.D145";;
end;;
module U147 =
struct
type u148 =
| R149
| S150 of S117.s118
| B151 of B126.b127
| D152 of D133.d134
| S153 of S117.s118 * S28.s29;;
let p154 pp =
function
| R149 -> Extprot.Pretty_print.fprintf pp "U147.R149"
| S150 v0 ->
Extprot.Pretty_print.fprintf pp "U147.S150 %a" S117.p125 v0
| B151 v0 ->
Extprot.Pretty_print.fprintf pp "U147.B151 %a" B126.p132 v0
| D152 v0 ->
Extprot.Pretty_print.fprintf pp "U147.D152 %a" D133.p146 v0
| S153 (v0, v1) ->
Extprot.Pretty_print.fprintf pp "U147.S153 %a"
(Extprot.Pretty_print.pp_tuple2 S117.p125 S28.p30)
(v0, v1);;
end;;
module R155 =
struct
type r156 = | O157 | N158;;
let p159 pp =
function
| O157 -> Extprot.Pretty_print.fprintf pp "R155.O157"
| N158 -> Extprot.Pretty_print.fprintf pp "R155.N158";;
end;;
module R160 =
struct
type r161 = { b162 : int; r : int array; t : R155.r156 };;
let p163 =
Extprot.Pretty_print.pp_struct
[ ("R160.b162",
(Extprot.Pretty_print.pp_field (fun t -> t.b162) Extprot.Pretty_print.pp_int));
("r",
(Extprot.Pretty_print.pp_field (fun t -> t.r)
(Extprot.Pretty_print.pp_array Extprot.Pretty_print.pp_int)));
("t", (Extprot.Pretty_print.pp_field (fun t -> t.t) R155.p159)) ];;
end;;
module R164 =
struct
type r165 = { b166 : int; f : int array };;
let p167 =
Extprot.Pretty_print.pp_struct
[ ("R164.b166",
(Extprot.Pretty_print.pp_field (fun t -> t.b166) Extprot.Pretty_print.pp_int));
("f",
(Extprot.Pretty_print.pp_field (fun t -> t.f)
(Extprot.Pretty_print.pp_array Extprot.Pretty_print.pp_int))) ];;
end;;
module A168 =
struct type a169 = string;; let p170 = Extprot.Pretty_print.pp_string;; end;;
module C171 =
struct
type c172 = | V0 | V1;;
let p173 pp =
function
| V0 -> Extprot.Pretty_print.fprintf pp "C171.V0"
| V1 -> Extprot.Pretty_print.fprintf pp "C171.V1";;
end;;
module L174 =
struct
type l175 =
{ l176 : S28.s29; l177 : S28.s29; l178 : S28.s29 Maybe.maybe;
s179 : bool; o180 : bool; l94 : L93.l94;
o181 : int Maybe.maybe; c182 : bool Maybe.maybe; l183 : S28.s29 Maybe.maybe;
r184 : bool Maybe.maybe; l185 : S28.s29 Maybe.maybe;
d134 : D133.d134 Maybe.maybe; n186 : bool Maybe.maybe;
r187 : R88.r89 list;
c172 : C171.c172;
r188 : string Maybe.maybe
};;
let p189 =
Extprot.Pretty_print.pp_struct
[ ("L174.l176",
(Extprot.Pretty_print.pp_field (fun t -> t.l176) S28.p30));
("l177", (Extprot.Pretty_print.pp_field (fun t -> t.l177) S28.p30));
("l178",
(Extprot.Pretty_print.pp_field (fun t -> t.l178) (Maybe.pp_maybe S28.p30)));
("s179",
(Extprot.Pretty_print.pp_field (fun t -> t.s179) Extprot.Pretty_print.pp_bool));
("o180",
(Extprot.Pretty_print.pp_field (fun t -> t.o180) Extprot.Pretty_print.pp_bool));
("l94",
(Extprot.Pretty_print.pp_field (fun t -> t.l94) L93.p102));
("o181",
(Extprot.Pretty_print.pp_field (fun t -> t.o181)
(Maybe.pp_maybe Extprot.Pretty_print.pp_int)));
("c182",
(Extprot.Pretty_print.pp_field (fun t -> t.c182)
(Maybe.pp_maybe Extprot.Pretty_print.pp_bool)));
("l183",
(Extprot.Pretty_print.pp_field (fun t -> t.l183) (Maybe.pp_maybe S28.p30)));
("r184",
(Extprot.Pretty_print.pp_field (fun t -> t.r184)
(Maybe.pp_maybe Extprot.Pretty_print.pp_bool)));
("l185",
(Extprot.Pretty_print.pp_field (fun t -> t.l185) (Maybe.pp_maybe S28.p30)));
("d134",
(Extprot.Pretty_print.pp_field (fun t -> t.d134)
(Maybe.pp_maybe D133.p146)));
("n186",
(Extprot.Pretty_print.pp_field (fun t -> t.n186)
(Maybe.pp_maybe Extprot.Pretty_print.pp_bool)));
("r187",
(Extprot.Pretty_print.pp_field (fun t -> t.r187)
(Extprot.Pretty_print.pp_list R88.p92)));
("c172",
(Extprot.Pretty_print.pp_field (fun t -> t.c172) C171.p173));
("r188",
(Extprot.Pretty_print.pp_field (fun t -> t.r188)
(Maybe.pp_maybe Extprot.Pretty_print.pp_string))) ];;
end;;
module D190 =
struct
type d191 =
{ l183 : I31.i32; l176 : I31.i32 Maybe.maybe;
o180 : bool; r184 : bool Maybe.maybe;
c172 : C171.c172
};;
let p192 =
Extprot.Pretty_print.pp_struct
[ ("D190.l183",
(Extprot.Pretty_print.pp_field (fun t -> t.l183) I31.p33));
("l176",
(Extprot.Pretty_print.pp_field (fun t -> t.l176)
(Maybe.pp_maybe I31.p33)));
("o180",
(Extprot.Pretty_print.pp_field (fun t -> t.o180) Extprot.Pretty_print.pp_bool));
("r184",
(Extprot.Pretty_print.pp_field (fun t -> t.r184)
(Maybe.pp_maybe Extprot.Pretty_print.pp_bool)));
("c172",
(Extprot.Pretty_print.pp_field (fun t -> t.c172) C171.p173)) ];;
end;;
module L193 =
struct
type l194 = { n195 : int; d196 : int; n197 : int; d198 : int };;
let p199 =
Extprot.Pretty_print.pp_struct
[ ("L193.n195",
(Extprot.Pretty_print.pp_field (fun t -> t.n195) Extprot.Pretty_print.pp_int));
("d196",
(Extprot.Pretty_print.pp_field (fun t -> t.d196) Extprot.Pretty_print.pp_int));
("n197",
(Extprot.Pretty_print.pp_field (fun t -> t.n197) Extprot.Pretty_print.pp_int));
("d198",
(Extprot.Pretty_print.pp_field (fun t -> t.d198) Extprot.Pretty_print.pp_int)) ];;
end;;
module S200 =
struct
type s201 = | E202 | E128 | C203 of int;;
let p204 pp =
function
| E202 -> Extprot.Pretty_print.fprintf pp "S200.E202"
| E128 -> Extprot.Pretty_print.fprintf pp "S200.E128"
| C203 v0 ->
Extprot.Pretty_print.fprintf pp "S200.C203 %a" Extprot.Pretty_print.pp_int v0;;
end;;
module S205 =
struct
type s206 = S200.s201 array;;
let p207 = Extprot.Pretty_print.pp_array S200.p204;;
end;;
module D208 =
struct
type d209 =
{ s29 : S28.s29; c91 : int; s210 : int; ip : I1.i2;
l194 : L193.l194 Maybe.maybe; s211 : S205.s206
};;
let p212 =
Extprot.Pretty_print.pp_struct
[ ("D208.s29", (Extprot.Pretty_print.pp_field (fun t -> t.s29) S28.p30));
("c91", (Extprot.Pretty_print.pp_field (fun t -> t.c91) Extprot.Pretty_print.pp_int));
("s210", (Extprot.Pretty_print.pp_field (fun t -> t.s210) Extprot.Pretty_print.pp_int));
("ip", (Extprot.Pretty_print.pp_field (fun t -> t.ip) I1.p3));
("l194",
(Extprot.Pretty_print.pp_field (fun t -> t.l194)
(Maybe.pp_maybe L193.p199)));
("s211",
(Extprot.Pretty_print.pp_field (fun t -> t.s211) S205.p207)) ];;
end;;
module D213 =
struct
type d214 = { s29 : I31.i32; l215 : (int * int); t216 : int };;
let p217 =
Extprot.Pretty_print.pp_struct
[ ("D213.s29",
(Extprot.Pretty_print.pp_field (fun t -> t.s29) I31.p33));
("l215",
(Extprot.Pretty_print.pp_field (fun t -> t.l215)
(Extprot.Pretty_print.pp_tuple2 Extprot.Pretty_print.pp_int Extprot.Pretty_print.pp_int)));
("t216",
(Extprot.Pretty_print.pp_field (fun t -> t.t216) Extprot.Pretty_print.pp_int)) ];;
end;;
module O218 =
struct
type o219 = | R220 | D221 | F222 | R107;;
let p223 pp =
function
| R220 -> Extprot.Pretty_print.fprintf pp "O218.R220"
| D221 -> Extprot.Pretty_print.fprintf pp "O218.D221"
| F222 -> Extprot.Pretty_print.fprintf pp "O218.F222"
| R107 -> Extprot.Pretty_print.fprintf pp "O218.R107";;
end;;
module R224 =
struct
type 'a r225 = | C226 of 'a | D227;;
let p228 p19 pp =
function
| C226 v0 -> Extprot.Pretty_print.fprintf pp "R224.C226 %a" p19 v0
| D227 -> Extprot.Pretty_print.fprintf pp "R224.D227";;
end;;
module B229 =
struct
type _230 =
{ r231 : int; c232 : int; dr : float; ip : I4.i5; n233 : int;
n234 : int; p235 : int; e69 : E68.e69;
t236 : string; l237 : L174.l175; s211 : S205.s206;
r238 : int array; o219 : O218.o219 Maybe.maybe;
s239 : I31.i32 Maybe.maybe; c91 : int Maybe.maybe;
p59 : P58.p59; s240 : float Maybe.maybe;
l241 : (string * float) list
};;
type b242 =
{ r231 : int; c232 : int; dr : float; ip : I4.i5; n233 : int;
n234 : int; p235 : int; e69 : E68.e69;
t236 : string; l237 : L174.l175; s211 : S205.s206;
r238 : int array; o219 : O218.o219 Maybe.maybe;
s239 : I31.i32 Maybe.maybe; c91 : int Maybe.maybe;
p59 : P58.p59; s240 : float Maybe.maybe;
l241 : (string * float) list
};;
let b243 : (unit -> b242) ref =
ref (fun () -> Extprot.Error.missing_field ~message: "b242" ());;
let p244 pp =
Extprot.Pretty_print.pp_struct
[ ("B229.r231",
(Extprot.Pretty_print.pp_field (fun t -> t.r231) Extprot.Pretty_print.pp_int));
("c232",
(Extprot.Pretty_print.pp_field (fun t -> t.c232) Extprot.Pretty_print.pp_int));
("dr", (Extprot.Pretty_print.pp_field (fun t -> t.dr) Extprot.Pretty_print.pp_float));
("ip", (Extprot.Pretty_print.pp_field (fun t -> t.ip) I4.p6));
("n233",
(Extprot.Pretty_print.pp_field (fun t -> t.n233) Extprot.Pretty_print.pp_int));
("n234",
(Extprot.Pretty_print.pp_field (fun t -> t.n234) Extprot.Pretty_print.pp_int));
("p235",
(Extprot.Pretty_print.pp_field (fun t -> t.p235) Extprot.Pretty_print.pp_int));
("e69", (Extprot.Pretty_print.pp_field (fun t -> t.e69) E68.p73));
("t236",
(Extprot.Pretty_print.pp_field (fun t -> t.t236) Extprot.Pretty_print.pp_string));
("l237", (Extprot.Pretty_print.pp_field (fun t -> t.l237) L174.p189));
("s211",
(Extprot.Pretty_print.pp_field (fun t -> t.s211) S205.p207));
("r238",
(Extprot.Pretty_print.pp_field (fun t -> t.r238)
(Extprot.Pretty_print.pp_array Extprot.Pretty_print.pp_int)));
("o219",
(Extprot.Pretty_print.pp_field (fun t -> t.o219) (Maybe.pp_maybe O218.p223)));
("s239",
(Extprot.Pretty_print.pp_field (fun t -> t.s239)
(Maybe.pp_maybe I31.p33)));
("c91",
(Extprot.Pretty_print.pp_field (fun t -> t.c91)
(Maybe.pp_maybe Extprot.Pretty_print.pp_int)));
("p59",
(Extprot.Pretty_print.pp_field (fun t -> t.p59) P58.p60));
("s240",
(Extprot.Pretty_print.pp_field (fun t -> t.s240)
(Maybe.pp_maybe Extprot.Pretty_print.pp_float)));
("l241",
(Extprot.Pretty_print.pp_field (fun t -> t.l241)
(Extprot.Pretty_print.pp_list
(Extprot.Pretty_print.pp_tuple2 Extprot.Pretty_print.pp_string Extprot.Pretty_print.pp_float)))) ]
pp;;
let pp = p244;;
let r245 s =
let t = Extprot.Reader.String_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 = Extprot.Reader.String_reader.read_vint s in
let e247 = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let () = Extprot.Limits.check_num_elements ~message: "b242" nelms in
let () = Extprot.Limits.check_message_length ~message: "b242" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let r231 =
if nelms >= 1
then
(try Extprot.Reader.String_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "r231" e l248)
else
Extprot.Error.missing_field ~message: "b242"
~constructor: "<d249>" ~field: "r231" () in
let c232 =
if nelms >= 2
then
(try Extprot.Reader.String_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "c232" e l248)
else
Extprot.Error.missing_field ~message: "b242"
~constructor: "<d249>" ~field: "c232" () in
let dr =
if nelms >= 3
then
(try Extprot.Reader.String_reader.read_float s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "dr" e l248)
else
Extprot.Error.missing_field ~message: "b242"
~constructor: "<d249>" ~field: "dr" () in
let ip =
if nelms >= 4
then
(try Extprot.Reader.String_reader.read_string s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "ip" e l248)
else
Extprot.Error.missing_field ~message: "b242"
~constructor: "<d249>" ~field: "ip" () in
let n233 =
if nelms >= 5
then
(try Extprot.Reader.String_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "n233" e l248)
else
Extprot.Error.missing_field ~message: "b242"
~constructor: "<d249>" ~field: "n233" () in
let n234 =
if nelms >= 6
then
(try Extprot.Reader.String_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "n234" e l248)
else
Extprot.Error.missing_field ~message: "b242"
~constructor: "<d249>" ~field: "n234" () in
let p235 =
if nelms >= 7
then
(try Extprot.Reader.String_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "p235" e l248)
else
Extprot.Error.missing_field ~message: "b242"
~constructor: "<d249>" ~field: "p235" () in
let e69 =
if nelms >= 8
then
(try
let t = Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> E68.R70
| 1 -> E68.U71
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.String_reader.read_vint s in
let e250' = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then Extprot.Reader.String_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "e69" 0
in E68.E72 v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.String_reader.skip_to s e250'; v)
| Extprot.Codec.Bytes ->
E68.E72 (Extprot.Reader.String_reader.read_raw_string s)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "e69" e l248)
else E68.R70 in
let t236 =
if nelms >= 9
then
(try Extprot.Reader.String_reader.read_string s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "t236" e l248)
else
Extprot.Error.missing_field ~message: "b242"
~constructor: "<d249>" ~field: "t236" () in
let l237 =
if nelms >= 10
then
(try
let t = Extprot.Reader.String_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 = Extprot.Reader.String_reader.read_vint s in
let e247 = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let () =
Extprot.Limits.check_num_elements ~message: "l175" nelms in
let () =
Extprot.Limits.check_message_length ~message: "l175" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let l176 =
if nelms >= 1
then
(try Extprot.Reader.String_reader.read_float s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "l176" e l248)
else
Extprot.Error.missing_field
~message: "b242"
~constructor: "<d249>"
~field: "l176" () in
let l177 =
if nelms >= 2
then
(try Extprot.Reader.String_reader.read_float s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "l177" e l248)
else
Extprot.Error.missing_field
~message: "b242"
~constructor: "<d249>"
~field: "l177" () in
let l178 =
if nelms >= 3
then
(try
let t =
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.String_reader.read_vint
s in
let e250' =
Extprot.Reader.String_reader.offset s
l246 in
let nelms =
Extprot.Reader.String_reader.read_vint
s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_float s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "l178" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.String_reader.skip_to s
e250';
v)
| Extprot.Codec.Bits64_float ->
Maybe.Some
(Extprot.Reader.String_reader.read_raw_float s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "l178" e l248)
else Maybe.None in
let s179 =
if nelms >= 4
then
(try Extprot.Reader.String_reader.read_bool s
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "s179" e l248)
else false in
let o180 =
if nelms >= 5
then
(try Extprot.Reader.String_reader.read_bool s
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "o180" e l248)
else false in
let l94 =
if nelms >= 6
then
(try
let t =
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> L93.F96
| 1 -> L93.F97
| 2 -> L93.C98
| 3 -> L93.A99
| 4 -> L93.R100
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.String_reader.read_vint
s in
let e250' =
Extprot.Reader.String_reader.offset s
l246 in
let nelms =
Extprot.Reader.String_reader.read_vint
s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_rel_int s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "l94" 0
in L93.R95 v0
| 1 ->
let v0
=
if nelms >= 1
then
(let t
=
Extprot.Reader.String_reader.read_prefix s
in
if
(Extprot.Codec.ll_type t) =
Extprot.Codec.Tuple
then
(let l246
=
Extprot.Reader.String_reader.read_vint s in
let e247
=
Extprot.Reader.String_reader.offset s l246 in
let nelms
=
Extprot.Reader.String_reader.read_vint s in
let () =
Extprot.Limits.check_num_elements
~message: "h81" nelms in
let () =
Extprot.Limits.check_message_length
~message: "h81" l246
in
match Extprot.Codec.ll_tag t
with
|
0 ->
(try
let v
=
let n82
=
if nelms >= 1
then
(try
Extprot.Reader.String_reader.read_bool s
with
|
Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)), l248)) ->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "n82" e l248)
else false in
let a83
=
if nelms >= 2
then
(try
let t
=
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t
with
|
0 -> Maybe.None
|
t75 ->
Extprot.Error.unknown_tag t75)
|
Extprot.Codec.Tuple ->
let l246
=
Extprot.Reader.String_reader.read_vint s in
let e250'
=
Extprot.Reader.String_reader.offset s l246 in
let nelms
=
Extprot.Reader.String_reader.read_vint s in
let v
=
(match Extprot.Codec.ll_tag t
with
|
0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "a83" 0
in Maybe.Some v0
|
t75 ->
Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.String_reader.skip_to s e250';
v)
|
Extprot.Codec.Bytes ->
Maybe.Some
(Extprot.Reader.String_reader.read_raw_string s)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ()
with
|
Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)), l248)) ->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "a83" e l248)
else Maybe.None in
let a84
=
if nelms >= 3
then
(try
Extprot.Reader.String_reader.read_string s
with
|
Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "a84" e l248)
else
Extprot.Error.missing_field
~message: "b242"
~constructor: "<d249>"
~field: "a84" () in
let c85
=
if nelms >= 4
then
(try
let t
=
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t
with
|
0 -> Maybe.None
|
t75 ->
Extprot.Error.unknown_tag t75)
|
Extprot.Codec.Tuple ->
let l246
=
Extprot.Reader.String_reader.read_vint s in
let e250'
=
Extprot.Reader.String_reader.offset s l246 in
let nelms
=
Extprot.Reader.String_reader.read_vint s in
let v
=
(match Extprot.Codec.ll_tag t
with
|
0 ->
let v0
=
if nelms >= 1
then
(let t
=
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Tuple ->
let l246
=
Extprot.Reader.String_reader.read_vint s in
let e250
=
Extprot.Reader.String_reader.offset s l246 in
let nelms
=
Extprot.Reader.String_reader.read_vint s in
let v
=
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "c85" 0 in
let v1
=
if nelms >= 2
then
Extprot.Reader.String_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "c85" 1
in v0, v1
in
(Extprot.Reader.String_reader.skip_to s e250;
v)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ())
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "c85" 0
in Maybe.Some v0
|
t75 ->
Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.String_reader.skip_to s e250';
v)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ()
with
|
Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)), l248)) ->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "c85" e l248)
else Maybe.None in
let t86
=
if nelms >= 5
then
(try
let t
=
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Htuple ->
let l246
=
Extprot.Reader.String_reader.read_vint s in
let e251
=
Extprot.Reader.String_reader.offset s l246 in
let nelms
=
Extprot.Reader.String_reader.read_vint s in
let () =
Extprot.Limits.check_message_length l246 in
let () =
Extprot.Limits.check_num_elements nelms in
let v
=
Array.init nelms
(fun _ ->
let t
=
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Tuple ->
let l246
=
Extprot.Reader.String_reader.read_vint s in
let e250'
=
Extprot.Reader.String_reader.offset s l246 in
let nelms
=
Extprot.Reader.String_reader.read_vint s in
let v
=
(match Extprot.Codec.ll_tag t
with
|
0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "t86" 0
in T74.T74 v0
|
1 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "t86" 0
in T74.C76 v0
|
2 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "t86" 0
in T74.T77 v0
|
3 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "t86" 0
in T74.I78 v0
|
t75 ->
Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.String_reader.skip_to s e250';
v)
|
Extprot.Codec.Bytes ->
T74.T74
(Extprot.Reader.String_reader.read_raw_string s)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ())
in
(Extprot.Reader.String_reader.skip_to s e251;
v)
|
ty ->
Extprot.Error.bad_wire_type
~ll_type: ty ()
with
|
Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)), l248)) ->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "t86" e l248)
else [| |]
in
{
H80.n82 = n82;
H80.a83 = a83;
H80.a84 = a84;
H80.c85 = c85;
H80.t86 = t86;
}
in
(Extprot.Reader.String_reader.skip_to s e247;
v)
with
|
e ->
(Extprot.Reader.String_reader.skip_to s e247;
raise e))
|
t75 ->
Extprot.Error.unknown_tag
~message: "h81" t75)
else
(let r252
() =
Extprot.Error.bad_wire_type
~message: "h81"
~ll_type:
(Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t
with
|
0 ->
let v0
=
(match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Bits8 ->
Extprot.Reader.String_reader.read_raw_bool s
|
_ -> r252 ()) in
let v1 = Maybe.None in
let v2
=
Extprot.Error.missing_field
~message: "b242"
~constructor: "<d249>"
~field: "a84" () in
let v3 = Maybe.None in
let v4 = [| |]
in
{
H80.n82 = v0;
H80.a83 = v1;
H80.a84 = v2;
H80.c85 = v3;
H80.t86 = v4;
}
|
t75 ->
Extprot.Error.unknown_tag
~message: "h81" t75))
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "l94" 0
in L93.H80 v0
| 2 ->
let v0
=
if nelms >= 1
then
(let t
=
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Htuple ->
let l246
=
Extprot.Reader.String_reader.read_vint s in
let e251
=
Extprot.Reader.String_reader.offset s l246 in
let nelms
=
Extprot.Reader.String_reader.read_vint s in
let () =
Extprot.Limits.check_message_length l246 in
let () =
Extprot.Limits.check_num_elements nelms in
let v
=
let rec l253
a254 =
(function
|
0 -> List.rev a254
|
n ->
let v
=
let t
=
Extprot.Reader.String_reader.read_prefix s
in
if
(Extprot.Codec.ll_type t) =
Extprot.Codec.Tuple
then
(let l246
=
Extprot.Reader.String_reader.read_vint s in
let e247
=
Extprot.Reader.String_reader.offset s l246 in
let nelms
=
Extprot.Reader.String_reader.read_vint s in
let () =
Extprot.Limits.check_num_elements
~message: "r89"
nelms in
let () =
Extprot.Limits.check_message_length
~message: "r89"
l246
in
match Extprot.Codec.ll_tag t
with
|
0 ->
(try
let v
=
let u90
=
if nelms >= 1
then
(try
Extprot.Reader.String_reader.read_string s
with
|
Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "u90" e l248)
else
Extprot.Error.missing_field
~message: "b242"
~constructor: "<d249>"
~field: "u90" () in
let c91
=
if nelms >= 2
then
(try
Extprot.Reader.String_reader.read_rel_int s
with
|
Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "c91" e l248)
else
Extprot.Error.missing_field
~message: "b242"
~constructor: "<d249>"
~field: "c91" ()
in
{
R88.u90 = u90;
R88.c91 = c91;
}
in
(Extprot.Reader.String_reader.skip_to s e247;
v)
with
|
e ->
(Extprot.Reader.String_reader.skip_to s e247;
raise e))
|
t75 ->
Extprot.Error.unknown_tag
~message: "r89"
t75)
else
(let r252
() =
Extprot.Error.bad_wire_type
~message: "r89"
~ll_type:
(Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t
with
|
0 ->
let v0
=
(match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Bytes ->
Extprot.Reader.String_reader.read_raw_string s
|
_ -> r252 ()) in
let v1
=
Extprot.Error.missing_field
~message: "b242"
~constructor: "<d249>"
~field: "c91" ()
in
{
R88.u90 = v0;
R88.c91 = v1;
}
|
t75 ->
Extprot.Error.unknown_tag
~message: "r89"
t75)
in l253 (v :: a254) (n - 1))
in l253 [] nelms
in
(Extprot.Reader.String_reader.skip_to s e251;
v)
|
ty ->
Extprot.Error.bad_wire_type
~ll_type: ty ())
else []
in
L93.R101
v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.String_reader.skip_to s
e250';
v)
| Extprot.Codec.Vint ->
L93.R95
(Extprot.Reader.String_reader.read_raw_rel_int s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "l94" e l248)
else L93.F96 in
let o181 =
if nelms >= 7
then
(try
let t =
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.String_reader.read_vint
s in
let e250' =
Extprot.Reader.String_reader.offset s
l246 in
let nelms =
Extprot.Reader.String_reader.read_vint
s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_rel_int s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "o181" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.String_reader.skip_to s
e250';
v)
| Extprot.Codec.Vint ->
Maybe.Some
(Extprot.Reader.String_reader.read_raw_rel_int s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "o181" e l248)
else Maybe.None in
let c182 =
if nelms >= 8
then
(try
let t =
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.String_reader.read_vint
s in
let e250' =
Extprot.Reader.String_reader.offset s
l246 in
let nelms =
Extprot.Reader.String_reader.read_vint
s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_bool s
else false
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.String_reader.skip_to s
e250';
v)
| Extprot.Codec.Bits8 ->
Maybe.Some
(Extprot.Reader.String_reader.read_raw_bool s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "c182" e l248)
else Maybe.None in
let l183 =
if nelms >= 9
then
(try
let t =
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.String_reader.read_vint
s in
let e250' =
Extprot.Reader.String_reader.offset s
l246 in
let nelms =
Extprot.Reader.String_reader.read_vint
s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_float s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "l183" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.String_reader.skip_to s
e250';
v)
| Extprot.Codec.Bits64_float ->
Maybe.Some
(Extprot.Reader.String_reader.read_raw_float s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "l183" e l248)
else Maybe.None in
let r184 =
if nelms >= 10
then
(try
let t =
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.String_reader.read_vint
s in
let e250' =
Extprot.Reader.String_reader.offset s
l246 in
let nelms =
Extprot.Reader.String_reader.read_vint
s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_bool s
else false
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.String_reader.skip_to s
e250';
v)
| Extprot.Codec.Bits8 ->
Maybe.Some
(Extprot.Reader.String_reader.read_raw_bool s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "r184" e l248)
else Maybe.None in
let l185 =
if nelms >= 11
then
(try
let t =
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.String_reader.read_vint
s in
let e250' =
Extprot.Reader.String_reader.offset s
l246 in
let nelms =
Extprot.Reader.String_reader.read_vint
s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_float s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "l185" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.String_reader.skip_to s
e250';
v)
| Extprot.Codec.Bits64_float ->
Maybe.Some
(Extprot.Reader.String_reader.read_raw_float s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "l185" e l248)
else Maybe.None in
let d134 =
if nelms >= 12
then
(try
let t =
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.String_reader.read_vint
s in
let e250' =
Extprot.Reader.String_reader.offset s
l246 in
let nelms =
Extprot.Reader.String_reader.read_vint
s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
(let t
=
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t
with
|
0 -> D133.M135
|
1 -> D133.N136
|
2 -> D133.N137
|
3 -> D133.T138
|
4 -> D133.O139
|
5 -> D133.R140
|
6 -> D133.D141
|
7 -> D133.N142
|
8 -> D133.M143
|
9 -> D133.B144
|
10 -> D133.D145
|
t75 ->
Extprot.Error.unknown_tag t75)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ())
else D133.M135
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.String_reader.skip_to s
e250';
v)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "d134" e l248)
else Maybe.None in
let n186 =
if nelms >= 13
then
(try
let t =
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.String_reader.read_vint
s in
let e250' =
Extprot.Reader.String_reader.offset s
l246 in
let nelms =
Extprot.Reader.String_reader.read_vint
s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_bool s
else false
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.String_reader.skip_to s
e250';
v)
| Extprot.Codec.Bits8 ->
Maybe.Some
(Extprot.Reader.String_reader.read_raw_bool s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "n186" e l248)
else Maybe.None in
let r187 =
if nelms >= 14
then
(try
let t =
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Htuple ->
let l246 =
Extprot.Reader.String_reader.read_vint
s in
let e251 =
Extprot.Reader.String_reader.offset s
l246 in
let nelms =
Extprot.Reader.String_reader.read_vint
s in
let () =
Extprot.Limits.check_message_length l246 in
let () =
Extprot.Limits.check_num_elements nelms in
let v =
let rec l255
a254 =
(function
| 0 -> List.rev a254
| n ->
let v
=
let t
=
Extprot.Reader.String_reader.read_prefix s
in
if
(Extprot.Codec.ll_type t) =
Extprot.Codec.Tuple
then
(let l246
=
Extprot.Reader.String_reader.read_vint s in
let e247
=
Extprot.Reader.String_reader.offset s l246 in
let nelms
=
Extprot.Reader.String_reader.read_vint s in
let () =
Extprot.Limits.check_num_elements
~message: "r89"
nelms in
let () =
Extprot.Limits.check_message_length
~message: "r89"
l246
in
match Extprot.Codec.ll_tag t
with
|
0 ->
(try
let v
=
let u90
=
if nelms >= 1
then
(try
Extprot.Reader.String_reader.read_string s
with
|
Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "u90" e l248)
else
Extprot.Error.missing_field
~message: "b242"
~constructor: "<d249>"
~field: "u90" () in
let c91
=
if nelms >= 2
then
(try
Extprot.Reader.String_reader.read_rel_int s
with
|
Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "c91" e l248)
else
Extprot.Error.missing_field
~message: "b242"
~constructor: "<d249>"
~field: "c91" ()
in
{
R88.u90 = u90;
R88.c91 = c91;
}
in
(Extprot.Reader.String_reader.skip_to s e247;
v)
with
|
e ->
(Extprot.Reader.String_reader.skip_to s e247;
raise e))
|
t75 ->
Extprot.Error.unknown_tag
~message: "r89"
t75)
else
(let r252
() =
Extprot.Error.bad_wire_type
~message: "r89"
~ll_type:
(Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t
with
|
0 ->
let v0
=
(match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Bytes ->
Extprot.Reader.String_reader.read_raw_string s
|
_ -> r252 ()) in
let v1
=
Extprot.Error.missing_field
~message: "b242"
~constructor: "<d249>"
~field: "c91" ()
in
{
R88.u90 = v0;
R88.c91 = v1;
}
|
t75 ->
Extprot.Error.unknown_tag
~message: "r89"
t75)
in l255 (v :: a254) (n - 1))
in l255 [] nelms
in
(Extprot.Reader.String_reader.skip_to s
e251;
v)
| ty ->
Extprot.Error.bad_wire_type
~ll_type: ty ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "r187" e l248)
else [] in
let c172 =
if nelms >= 15
then
(try
let t =
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> C171.V0
| 1 -> C171.V1
| t75 -> Extprot.Error.unknown_tag t75)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "c172" e l248)
else C171.V0 in
let r188 =
if nelms >= 16
then
(try
let t =
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.String_reader.read_vint
s in
let e250' =
Extprot.Reader.String_reader.offset s
l246 in
let nelms =
Extprot.Reader.String_reader.read_vint
s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "r188" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.String_reader.skip_to s
e250';
v)
| Extprot.Codec.Bytes ->
Maybe.Some
(Extprot.Reader.String_reader.read_raw_string s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "r188" e l248)
else Maybe.None
in
{
L174.l176 = l176;
L174.l177 = l177;
L174.l178 = l178;
L174.s179 = s179;
L174.o180 = o180;
L174.l94 = l94;
L174.o181 = o181;
L174.c182 = c182;
L174.l183 = l183;
L174.r184 = r184;
L174.l185 = l185;
L174.d134 = d134;
L174.n186 = n186;
L174.r187 = r187;
L174.c172 = c172;
L174.r188 = r188;
}
in (Extprot.Reader.String_reader.skip_to s e247; v)
with
| e ->
(Extprot.Reader.String_reader.skip_to s e247; raise e))
| t75 -> Extprot.Error.unknown_tag ~message: "l175" t75)
else
(let r252 () =
Extprot.Error.bad_wire_type ~message: "l175"
~ll_type: (Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
(match Extprot.Codec.ll_type t with
| Extprot.Codec.Bits64_float ->
Extprot.Reader.String_reader.read_raw_float s
| _ -> r252 ()) in
let v1 =
Extprot.Error.missing_field
~message: "b242" ~constructor: "<d249>"
~field: "l177" () in
let v2 = Maybe.None in
let v3 = false in
let v4 = false in
let v5 = L93.F96 in
let v6 = Maybe.None in
let v7 = Maybe.None in
let v8 = Maybe.None in
let v9 = Maybe.None in
let v256 = Maybe.None in
let v257 = Maybe.None in
let v258 = Maybe.None in
let v259 = [] in
let v260 = C171.V0 in
let v261 = Maybe.None
in
{
L174.l176 = v0;
L174.l177 = v1;
L174.l178 = v2;
L174.s179 = v3;
L174.o180 = v4;
L174.l94 = v5;
L174.o181 = v6;
L174.c182 = v7;
L174.l183 = v8;
L174.r184 = v9;
L174.l185 = v256;
L174.d134 = v257;
L174.n186 = v258;
L174.r187 = v259;
L174.c172 = v260;
L174.r188 = v261;
}
| t75 -> Extprot.Error.unknown_tag ~message: "l175" t75)
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "l237" e l248)
else
Extprot.Error.missing_field ~message: "b242"
~constructor: "<d249>" ~field: "l237" () in
let s211 =
if nelms >= 11
then
(try
let t = Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Htuple ->
let l246 = Extprot.Reader.String_reader.read_vint s in
let e251 = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let () = Extprot.Limits.check_message_length l246 in
let () = Extprot.Limits.check_num_elements nelms in
let v =
Array.init nelms
(fun _ ->
let t = Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> S200.E202
| 1 -> S200.E128
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.String_reader.read_vint s in
let e250' =
Extprot.Reader.String_reader.offset s l246 in
let nelms =
Extprot.Reader.String_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then
Extprot.Reader.String_reader.read_rel_int s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "s211" 0
in S200.C203 v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.String_reader.skip_to s e250'; v)
| Extprot.Codec.Vint ->
S200.C203
(Extprot.Reader.String_reader.read_raw_rel_int s)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ())
in (Extprot.Reader.String_reader.skip_to s e251; v)
| ty -> Extprot.Error.bad_wire_type ~ll_type: ty ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "s211" e l248)
else [| |] in
let r238 =
if nelms >= 12
then
(try
let t = Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Htuple ->
let l246 = Extprot.Reader.String_reader.read_vint s in
let e251 = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let () = Extprot.Limits.check_message_length l246 in
let () = Extprot.Limits.check_num_elements nelms in
let v =
Array.init nelms
(fun _ -> Extprot.Reader.String_reader.read_rel_int s)
in (Extprot.Reader.String_reader.skip_to s e251; v)
| ty -> Extprot.Error.bad_wire_type ~ll_type: ty ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "r238" e l248)
else [| |] in
let o219 =
if nelms >= 13
then
(try
let t = Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.String_reader.read_vint s in
let e250' = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then
(let t = Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> O218.R220
| 1 -> O218.D221
| 2 -> O218.F222
| 3 -> O218.R107
| t75 -> Extprot.Error.unknown_tag t75)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ())
else O218.R220
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.String_reader.skip_to s e250'; v)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "o219" e l248)
else Maybe.None in
let s239 =
if nelms >= 14
then
(try
let t = Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.String_reader.read_vint s in
let e250' = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then Extprot.Reader.String_reader.read_rel_int s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "s239" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.String_reader.skip_to s e250'; v)
| Extprot.Codec.Vint ->
Maybe.Some (Extprot.Reader.String_reader.read_raw_rel_int s)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "s239" e l248)
else Maybe.None in
let c91 =
if nelms >= 15
then
(try
let t = Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.String_reader.read_vint s in
let e250' = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then Extprot.Reader.String_reader.read_rel_int s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "c91" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.String_reader.skip_to s e250'; v)
| Extprot.Codec.Vint ->
Maybe.Some (Extprot.Reader.String_reader.read_raw_rel_int s)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "c91" e l248)
else Maybe.None in
let p59 =
if nelms >= 16
then
(try
let t = Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Htuple ->
let l246 = Extprot.Reader.String_reader.read_vint s in
let e251 = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let () = Extprot.Limits.check_message_length l246 in
let () = Extprot.Limits.check_num_elements nelms in
let v =
let rec l262 a254 =
(function
| 0 -> List.rev a254
| n ->
let v =
let t = Extprot.Reader.String_reader.read_prefix s
in
(match Extprot.Codec.ll_type t with
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.String_reader.read_vint s in
let e250 =
Extprot.Reader.String_reader.offset s l246 in
let nelms =
Extprot.Reader.String_reader.read_vint s in
let v =
let v0 =
if nelms >= 1
then
Extprot.Reader.String_reader.read_rel_int s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "p59" 0 in
let v1 =
if nelms >= 2
then
Extprot.Reader.String_reader.read_rel_int s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "p59" 1 in
let v2 =
if nelms >= 3
then
(let t =
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t
with
|
0 -> Maybe.None
|
t75 ->
Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246
=
Extprot.Reader.String_reader.read_vint s in
let e250'
=
Extprot.Reader.String_reader.offset s l246 in
let nelms
=
Extprot.Reader.String_reader.read_vint s in
let v
=
(
match Extprot.Codec.ll_tag t
with
|
0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "p59" 0
in Maybe.Some v0
|
t75 ->
Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.String_reader.skip_to s e250';
v)
| Extprot.Codec.Bytes ->
Maybe.Some
(
Extprot.Reader.String_reader.read_raw_string s)
| ll_type ->
Extprot.Error.bad_wire_type
~ll_type ())
else Maybe.None
in v0, v1, v2
in
(Extprot.Reader.String_reader.skip_to s e250;
v)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ())
in l262 (v :: a254) (n - 1))
in l262 [] nelms
in (Extprot.Reader.String_reader.skip_to s e251; v)
| ty -> Extprot.Error.bad_wire_type ~ll_type: ty ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "p59" e l248)
else [] in
let s240 =
if nelms >= 17
then
(try
let t = Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.String_reader.read_vint s in
let e250' = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then Extprot.Reader.String_reader.read_float s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "s240" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.String_reader.skip_to s e250'; v)
| Extprot.Codec.Bits64_float ->
Maybe.Some (Extprot.Reader.String_reader.read_raw_float s)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "s240"
e l248)
else Maybe.None in
let l241 =
if nelms >= 18
then
(try
let t = Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Htuple ->
let l246 = Extprot.Reader.String_reader.read_vint s in
let e251 = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let () = Extprot.Limits.check_message_length l246 in
let () = Extprot.Limits.check_num_elements nelms in
let v =
let rec l263 a254 =
(function
| 0 -> List.rev a254
| n ->
let v =
let t = Extprot.Reader.String_reader.read_prefix s
in
(match Extprot.Codec.ll_type t with
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.String_reader.read_vint s in
let e250 =
Extprot.Reader.String_reader.offset s l246 in
let nelms =
Extprot.Reader.String_reader.read_vint s in
let v =
let v0 =
if nelms >= 1
then
Extprot.Reader.String_reader.read_string
s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "l241" 0 in
let v1 =
if nelms >= 2
then
Extprot.Reader.String_reader.read_float
s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "l241" 1
in v0, v1
in
(Extprot.Reader.String_reader.skip_to s e250;
v)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ())
in l263 (v :: a254) (n - 1))
in l263 [] nelms
in (Extprot.Reader.String_reader.skip_to s e251; v)
| ty -> Extprot.Error.bad_wire_type ~ll_type: ty ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "l241" e l248)
else []
in
{
r231 = r231;
c232 = c232;
dr = dr;
ip = ip;
n233 = n233;
n234 = n234;
p235 = p235;
e69 = e69;
t236 = t236;
l237 = l237;
s211 = s211;
r238 = r238;
o219 = o219;
s239 = s239;
c91 = c91;
p59 = p59;
s240 = s240;
l241 = l241;
}
in (Extprot.Reader.String_reader.skip_to s e247; v)
with | e -> (Extprot.Reader.String_reader.skip_to s e247; raise e))
| t75 -> Extprot.Error.unknown_tag ~message: "b242" t75)
else
(let r252 () =
Extprot.Error.bad_wire_type ~message: "b242" ~ll_type: (Extprot.Codec.ll_type t)
()
in
match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
(match Extprot.Codec.ll_type t with
| Extprot.Codec.Vint -> Extprot.Reader.String_reader.read_raw_rel_int s
| _ -> r252 ()) in
let v1 =
Extprot.Error.missing_field ~message: "b242" ~constructor: "<d249>"
~field: "c232" () in
let v2 =
Extprot.Error.missing_field ~message: "b242" ~constructor: "<d249>"
~field: "dr" () in
let v3 =
Extprot.Error.missing_field ~message: "b242" ~constructor: "<d249>"
~field: "ip" () in
let v4 =
Extprot.Error.missing_field ~message: "b242" ~constructor: "<d249>"
~field: "n233" () in
let v5 =
Extprot.Error.missing_field ~message: "b242" ~constructor: "<d249>"
~field: "n234" () in
let v6 =
Extprot.Error.missing_field ~message: "b242" ~constructor: "<d249>"
~field: "p235" () in
let v7 = E68.R70 in
let v8 =
Extprot.Error.missing_field ~message: "b242" ~constructor: "<d249>"
~field: "t236" () in
let v9 =
Extprot.Error.missing_field ~message: "b242" ~constructor: "<d249>"
~field: "l237" () in
let v256 = [| |] in
let v257 = [| |] in
let v258 = Maybe.None in
let v259 = Maybe.None in
let v260 = Maybe.None in
let v261 = [] in
let v264 = Maybe.None in
let v265 = []
in
{
r231 = v0;
c232 = v1;
dr = v2;
ip = v3;
n233 = v4;
n234 = v5;
p235 = v6;
e69 = v7;
t236 = v8;
l237 = v9;
s211 = v256;
r238 = v257;
o219 = v258;
s239 = v259;
c91 = v260;
p59 = v261;
s240 = v264;
l241 = v265;
}
| t75 -> Extprot.Error.unknown_tag ~message: "b242" t75);;
let i266 io = r245 (Extprot.Reader.String_reader.from_io_reader io);;
let f267 = i266;;
let r268 = r245;;
let i269 = i266;;
let f270 = f267;;
let i266 s =
let t = Extprot.Reader.IO_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 = Extprot.Reader.IO_reader.read_vint s in
let e247 = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let () = Extprot.Limits.check_num_elements ~message: "b242" nelms in
let () = Extprot.Limits.check_message_length ~message: "b242" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let r231 =
if nelms >= 1
then
(try Extprot.Reader.IO_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "r231" e l248)
else
Extprot.Error.missing_field ~message: "b242"
~constructor: "<d249>" ~field: "r231" () in
let c232 =
if nelms >= 2
then
(try Extprot.Reader.IO_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "c232" e l248)
else
Extprot.Error.missing_field ~message: "b242"
~constructor: "<d249>" ~field: "c232" () in
let dr =
if nelms >= 3
then
(try Extprot.Reader.IO_reader.read_float s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "dr" e l248)
else
Extprot.Error.missing_field ~message: "b242"
~constructor: "<d249>" ~field: "dr" () in
let ip =
if nelms >= 4
then
(try Extprot.Reader.IO_reader.read_string s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "ip" e l248)
else
Extprot.Error.missing_field ~message: "b242"
~constructor: "<d249>" ~field: "ip" () in
let n233 =
if nelms >= 5
then
(try Extprot.Reader.IO_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "n233" e l248)
else
Extprot.Error.missing_field ~message: "b242"
~constructor: "<d249>" ~field: "n233" () in
let n234 =
if nelms >= 6
then
(try Extprot.Reader.IO_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "n234" e l248)
else
Extprot.Error.missing_field ~message: "b242"
~constructor: "<d249>" ~field: "n234" () in
let p235 =
if nelms >= 7
then
(try Extprot.Reader.IO_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "p235" e l248)
else
Extprot.Error.missing_field ~message: "b242"
~constructor: "<d249>" ~field: "p235" () in
let e69 =
if nelms >= 8
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> E68.R70
| 1 -> E68.U71
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.IO_reader.read_vint s in
let e250' = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then Extprot.Reader.IO_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "e69" 0
in E68.E72 v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.IO_reader.skip_to s e250'; v)
| Extprot.Codec.Bytes ->
E68.E72 (Extprot.Reader.IO_reader.read_raw_string s)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "e69" e l248)
else E68.R70 in
let t236 =
if nelms >= 9
then
(try Extprot.Reader.IO_reader.read_string s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "t236" e l248)
else
Extprot.Error.missing_field ~message: "b242"
~constructor: "<d249>" ~field: "t236" () in
let l237 =
if nelms >= 10
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 = Extprot.Reader.IO_reader.read_vint s in
let e247 = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let () =
Extprot.Limits.check_num_elements ~message: "l175" nelms in
let () =
Extprot.Limits.check_message_length ~message: "l175" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let l176 =
if nelms >= 1
then
(try Extprot.Reader.IO_reader.read_float s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "l176" e l248)
else
Extprot.Error.missing_field
~message: "b242"
~constructor: "<d249>"
~field: "l176" () in
let l177 =
if nelms >= 2
then
(try Extprot.Reader.IO_reader.read_float s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "l177" e l248)
else
Extprot.Error.missing_field
~message: "b242"
~constructor: "<d249>"
~field: "l177" () in
let l178 =
if nelms >= 3
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.IO_reader.read_vint s in
let e250' =
Extprot.Reader.IO_reader.offset s l246 in
let nelms =
Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_float s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "l178" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.IO_reader.skip_to s
e250';
v)
| Extprot.Codec.Bits64_float ->
Maybe.Some
(Extprot.Reader.IO_reader.read_raw_float s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "l178" e l248)
else Maybe.None in
let s179 =
if nelms >= 4
then
(try Extprot.Reader.IO_reader.read_bool s
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "s179" e l248)
else false in
let o180 =
if nelms >= 5
then
(try Extprot.Reader.IO_reader.read_bool s
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "o180" e l248)
else false in
let l94 =
if nelms >= 6
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> L93.F96
| 1 -> L93.F97
| 2 -> L93.C98
| 3 -> L93.A99
| 4 -> L93.R100
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.IO_reader.read_vint s in
let e250' =
Extprot.Reader.IO_reader.offset s l246 in
let nelms =
Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_rel_int s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "l94" 0
in L93.R95 v0
| 1 ->
let v0
=
if nelms >= 1
then
(let t
=
Extprot.Reader.IO_reader.read_prefix s
in
if
(Extprot.Codec.ll_type t) =
Extprot.Codec.Tuple
then
(let l246
=
Extprot.Reader.IO_reader.read_vint s in
let e247
=
Extprot.Reader.IO_reader.offset
s l246 in
let nelms
=
Extprot.Reader.IO_reader.read_vint s in
let () =
Extprot.Limits.check_num_elements
~message: "h81" nelms in
let () =
Extprot.Limits.check_message_length
~message: "h81" l246
in
match Extprot.Codec.ll_tag t
with
|
0 ->
(try
let v
=
let n82
=
if nelms >= 1
then
(try
Extprot.Reader.IO_reader.read_bool s
with
|
Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)), l248)) ->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "n82" e l248)
else false in
let a83
=
if nelms >= 2
then
(try
let t
=
Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t
with
|
0 -> Maybe.None
|
t75 ->
Extprot.Error.unknown_tag t75)
|
Extprot.Codec.Tuple ->
let l246
=
Extprot.Reader.IO_reader.read_vint s in
let e250'
=
Extprot.Reader.IO_reader.offset
s l246 in
let nelms
=
Extprot.Reader.IO_reader.read_vint s in
let v
=
(match Extprot.Codec.ll_tag t
with
|
0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "a83" 0
in Maybe.Some v0
|
t75 ->
Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.IO_reader.skip_to s e250';
v)
|
Extprot.Codec.Bytes ->
Maybe.Some
(Extprot.Reader.IO_reader.read_raw_string s)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ()
with
|
Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)), l248)) ->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "a83" e l248)
else Maybe.None in
let a84
=
if nelms >= 3
then
(try
Extprot.Reader.IO_reader.read_string s
with
|
Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "a84" e l248)
else
Extprot.Error.missing_field
~message: "b242"
~constructor: "<d249>"
~field: "a84" () in
let c85
=
if nelms >= 4
then
(try
let t
=
Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t
with
|
0 -> Maybe.None
|
t75 ->
Extprot.Error.unknown_tag t75)
|
Extprot.Codec.Tuple ->
let l246
=
Extprot.Reader.IO_reader.read_vint s in
let e250'
=
Extprot.Reader.IO_reader.offset
s l246 in
let nelms
=
Extprot.Reader.IO_reader.read_vint s in
let v
=
(match Extprot.Codec.ll_tag t
with
|
0 ->
let v0
=
if nelms >= 1
then
(let t
=
Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Tuple ->
let l246
=
Extprot.Reader.IO_reader.read_vint s in
let e250
=
Extprot.Reader.IO_reader.offset
s l246 in
let nelms
=
Extprot.Reader.IO_reader.read_vint s in
let v
=
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "c85" 0 in
let v1
=
if nelms >= 2
then
Extprot.Reader.IO_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "c85" 1
in v0, v1
in
(Extprot.Reader.IO_reader.skip_to s e250;
v)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ())
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "c85" 0
in Maybe.Some v0
|
t75 ->
Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.IO_reader.skip_to s e250';
v)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ()
with
|
Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)), l248)) ->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "c85" e l248)
else Maybe.None in
let t86
=
if nelms >= 5
then
(try
let t
=
Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Htuple ->
let l246
=
Extprot.Reader.IO_reader.read_vint s in
let e251
=
Extprot.Reader.IO_reader.offset
s l246 in
let nelms
=
Extprot.Reader.IO_reader.read_vint s in
let () =
Extprot.Limits.check_message_length l246 in
let () =
Extprot.Limits.check_num_elements nelms in
let v
=
Array.init nelms
(fun _ ->
let t
=
Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Tuple ->
let l246
=
Extprot.Reader.IO_reader.read_vint s in
let e250'
=
Extprot.Reader.IO_reader.offset
s l246 in
let nelms
=
Extprot.Reader.IO_reader.read_vint s in
let v
=
(match Extprot.Codec.ll_tag t
with
|
0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "t86" 0
in T74.T74 v0
|
1 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "t86" 0
in T74.C76 v0
|
2 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "t86" 0
in T74.T77 v0
|
3 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "t86" 0
in T74.I78 v0
|
t75 ->
Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.IO_reader.skip_to s e250';
v)
|
Extprot.Codec.Bytes ->
T74.T74
(Extprot.Reader.IO_reader.read_raw_string s)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ())
in
(Extprot.Reader.IO_reader.skip_to s e251;
v)
|
ty ->
Extprot.Error.bad_wire_type
~ll_type: ty ()
with
|
Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)), l248)) ->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "t86" e l248)
else [| |]
in
{
H80.n82 = n82;
H80.a83 = a83;
H80.a84 = a84;
H80.c85 = c85;
H80.t86 = t86;
}
in
(Extprot.Reader.IO_reader.skip_to s e247;
v)
with
|
e ->
(Extprot.Reader.IO_reader.skip_to s e247;
raise e))
|
t75 ->
Extprot.Error.unknown_tag
~message: "h81" t75)
else
(let r252
() =
Extprot.Error.bad_wire_type
~message: "h81"
~ll_type:
(Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t
with
|
0 ->
let v0
=
(match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Bits8 ->
Extprot.Reader.IO_reader.read_raw_bool s
|
_ -> r252 ()) in
let v1 = Maybe.None in
let v2
=
Extprot.Error.missing_field
~message: "b242"
~constructor: "<d249>"
~field: "a84" () in
let v3 = Maybe.None in
let v4 = [| |]
in
{
H80.n82 = v0;
H80.a83 = v1;
H80.a84 = v2;
H80.c85 = v3;
H80.t86 = v4;
}
|
t75 ->
Extprot.Error.unknown_tag
~message: "h81" t75))
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "l94" 0
in L93.H80 v0
| 2 ->
let v0
=
if nelms >= 1
then
(let t
=
Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Htuple ->
let l246
=
Extprot.Reader.IO_reader.read_vint s in
let e251
=
Extprot.Reader.IO_reader.offset
s l246 in
let nelms
=
Extprot.Reader.IO_reader.read_vint s in
let () =
Extprot.Limits.check_message_length l246 in
let () =
Extprot.Limits.check_num_elements nelms in
let v
=
let rec l271
a254 =
(function
|
0 -> List.rev a254
|
n ->
let v
=
let t
=
Extprot.Reader.IO_reader.read_prefix s
in
if
(Extprot.Codec.ll_type t) =
Extprot.Codec.Tuple
then
(let l246
=
Extprot.Reader.IO_reader.read_vint s in
let e247
=
Extprot.Reader.IO_reader.offset
s l246 in
let nelms
=
Extprot.Reader.IO_reader.read_vint s in
let () =
Extprot.Limits.check_num_elements
~message: "r89"
nelms in
let () =
Extprot.Limits.check_message_length
~message: "r89"
l246
in
match Extprot.Codec.ll_tag t
with
|
0 ->
(try
let v
=
let u90
=
if nelms >= 1
then
(try
Extprot.Reader.IO_reader.read_string s
with
|
Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "u90" e l248)
else
Extprot.Error.missing_field
~message: "b242"
~constructor: "<d249>"
~field: "u90" () in
let c91
=
if nelms >= 2
then
(try
Extprot.Reader.IO_reader.read_rel_int s
with
|
Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "c91" e l248)
else
Extprot.Error.missing_field
~message: "b242"
~constructor: "<d249>"
~field: "c91" ()
in
{
R88.u90 = u90;
R88.c91 = c91;
}
in
(Extprot.Reader.IO_reader.skip_to s e247;
v)
with
|
e ->
(Extprot.Reader.IO_reader.skip_to s e247;
raise e))
|
t75 ->
Extprot.Error.unknown_tag
~message: "r89"
t75)
else
(let r252
() =
Extprot.Error.bad_wire_type
~message: "r89"
~ll_type:
(Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t
with
|
0 ->
let v0
=
(match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Bytes ->
Extprot.Reader.IO_reader.read_raw_string s
|
_ -> r252 ()) in
let v1
=
Extprot.Error.missing_field
~message: "b242"
~constructor: "<d249>"
~field: "c91" ()
in
{
R88.u90 = v0;
R88.c91 = v1;
}
|
t75 ->
Extprot.Error.unknown_tag
~message: "r89"
t75)
in l271 (v :: a254) (n - 1))
in l271 [] nelms
in
(Extprot.Reader.IO_reader.skip_to s e251;
v)
|
ty ->
Extprot.Error.bad_wire_type
~ll_type: ty ())
else []
in
L93.R101
v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.IO_reader.skip_to s
e250';
v)
| Extprot.Codec.Vint ->
L93.R95
(Extprot.Reader.IO_reader.read_raw_rel_int s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "l94" e l248)
else L93.F96 in
let o181 =
if nelms >= 7
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.IO_reader.read_vint s in
let e250' =
Extprot.Reader.IO_reader.offset s l246 in
let nelms =
Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_rel_int s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "o181" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.IO_reader.skip_to s
e250';
v)
| Extprot.Codec.Vint ->
Maybe.Some
(Extprot.Reader.IO_reader.read_raw_rel_int s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "o181" e l248)
else Maybe.None in
let c182 =
if nelms >= 8
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.IO_reader.read_vint s in
let e250' =
Extprot.Reader.IO_reader.offset s l246 in
let nelms =
Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_bool s
else false
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.IO_reader.skip_to s
e250';
v)
| Extprot.Codec.Bits8 ->
Maybe.Some
(Extprot.Reader.IO_reader.read_raw_bool
s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "c182" e l248)
else Maybe.None in
let l183 =
if nelms >= 9
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.IO_reader.read_vint s in
let e250' =
Extprot.Reader.IO_reader.offset s l246 in
let nelms =
Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_float s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "l183" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.IO_reader.skip_to s
e250';
v)
| Extprot.Codec.Bits64_float ->
Maybe.Some
(Extprot.Reader.IO_reader.read_raw_float s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "l183" e l248)
else Maybe.None in
let r184 =
if nelms >= 10
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.IO_reader.read_vint s in
let e250' =
Extprot.Reader.IO_reader.offset s l246 in
let nelms =
Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_bool s
else false
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.IO_reader.skip_to s
e250';
v)
| Extprot.Codec.Bits8 ->
Maybe.Some
(Extprot.Reader.IO_reader.read_raw_bool
s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "r184" e l248)
else Maybe.None in
let l185 =
if nelms >= 11
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.IO_reader.read_vint s in
let e250' =
Extprot.Reader.IO_reader.offset s l246 in
let nelms =
Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_float s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "l185" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.IO_reader.skip_to s
e250';
v)
| Extprot.Codec.Bits64_float ->
Maybe.Some
(Extprot.Reader.IO_reader.read_raw_float s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "l185" e l248)
else Maybe.None in
let d134 =
if nelms >= 12
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.IO_reader.read_vint s in
let e250' =
Extprot.Reader.IO_reader.offset s l246 in
let nelms =
Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
(let t
=
Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t
with
|
0 -> D133.M135
|
1 -> D133.N136
|
2 -> D133.N137
|
3 -> D133.T138
|
4 -> D133.O139
|
5 -> D133.R140
|
6 -> D133.D141
|
7 -> D133.N142
|
8 -> D133.M143
|
9 -> D133.B144
|
10 -> D133.D145
|
t75 ->
Extprot.Error.unknown_tag t75)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ())
else D133.M135
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.IO_reader.skip_to s
e250';
v)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "d134" e l248)
else Maybe.None in
let n186 =
if nelms >= 13
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.IO_reader.read_vint s in
let e250' =
Extprot.Reader.IO_reader.offset s l246 in
let nelms =
Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_bool s
else false
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.IO_reader.skip_to s
e250';
v)
| Extprot.Codec.Bits8 ->
Maybe.Some
(Extprot.Reader.IO_reader.read_raw_bool
s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "n186" e l248)
else Maybe.None in
let r187 =
if nelms >= 14
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Htuple ->
let l246 =
Extprot.Reader.IO_reader.read_vint s in
let e251 =
Extprot.Reader.IO_reader.offset s l246 in
let nelms =
Extprot.Reader.IO_reader.read_vint s in
let () =
Extprot.Limits.check_message_length l246 in
let () =
Extprot.Limits.check_num_elements nelms in
let v =
let rec l272
a254 =
(function
| 0 -> List.rev a254
| n ->
let v
=
let t
=
Extprot.Reader.IO_reader.read_prefix s
in
if
(Extprot.Codec.ll_type t) =
Extprot.Codec.Tuple
then
(let l246
=
Extprot.Reader.IO_reader.read_vint s in
let e247
=
Extprot.Reader.IO_reader.offset
s l246 in
let nelms
=
Extprot.Reader.IO_reader.read_vint s in
let () =
Extprot.Limits.check_num_elements
~message: "r89"
nelms in
let () =
Extprot.Limits.check_message_length
~message: "r89"
l246
in
match Extprot.Codec.ll_tag t
with
|
0 ->
(try
let v
=
let u90
=
if nelms >= 1
then
(try
Extprot.Reader.IO_reader.read_string s
with
|
Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "u90" e l248)
else
Extprot.Error.missing_field
~message: "b242"
~constructor: "<d249>"
~field: "u90" () in
let c91
=
if nelms >= 2
then
(try
Extprot.Reader.IO_reader.read_rel_int s
with
|
Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "c91" e l248)
else
Extprot.Error.missing_field
~message: "b242"
~constructor: "<d249>"
~field: "c91" ()
in
{
R88.u90 = u90;
R88.c91 = c91;
}
in
(Extprot.Reader.IO_reader.skip_to s e247;
v)
with
|
e ->
(Extprot.Reader.IO_reader.skip_to s e247;
raise e))
|
t75 ->
Extprot.Error.unknown_tag
~message: "r89"
t75)
else
(let r252
() =
Extprot.Error.bad_wire_type
~message: "r89"
~ll_type:
(Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t
with
|
0 ->
let v0
=
(match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Bytes ->
Extprot.Reader.IO_reader.read_raw_string s
|
_ -> r252 ()) in
let v1
=
Extprot.Error.missing_field
~message: "b242"
~constructor: "<d249>"
~field: "c91" ()
in
{
R88.u90 = v0;
R88.c91 = v1;
}
|
t75 ->
Extprot.Error.unknown_tag
~message: "r89"
t75)
in l272 (v :: a254) (n - 1))
in l272 [] nelms
in
(Extprot.Reader.IO_reader.skip_to s
e251;
v)
| ty ->
Extprot.Error.bad_wire_type
~ll_type: ty ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "r187" e l248)
else [] in
let c172 =
if nelms >= 15
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> C171.V0
| 1 -> C171.V1
| t75 -> Extprot.Error.unknown_tag t75)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "c172" e l248)
else C171.V0 in
let r188 =
if nelms >= 16
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.IO_reader.read_vint s in
let e250' =
Extprot.Reader.IO_reader.offset s l246 in
let nelms =
Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "r188" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.IO_reader.skip_to s
e250';
v)
| Extprot.Codec.Bytes ->
Maybe.Some
(Extprot.Reader.IO_reader.read_raw_string s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b242"
~constructor: "<d249>"
~field: "r188" e l248)
else Maybe.None
in
{
L174.l176 = l176;
L174.l177 = l177;
L174.l178 = l178;
L174.s179 = s179;
L174.o180 = o180;
L174.l94 = l94;
L174.o181 = o181;
L174.c182 = c182;
L174.l183 = l183;
L174.r184 = r184;
L174.l185 = l185;
L174.d134 = d134;
L174.n186 = n186;
L174.r187 = r187;
L174.c172 = c172;
L174.r188 = r188;
}
in (Extprot.Reader.IO_reader.skip_to s e247; v)
with
| e -> (Extprot.Reader.IO_reader.skip_to s e247; raise e))
| t75 -> Extprot.Error.unknown_tag ~message: "l175" t75)
else
(let r252 () =
Extprot.Error.bad_wire_type ~message: "l175"
~ll_type: (Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
(match Extprot.Codec.ll_type t with
| Extprot.Codec.Bits64_float ->
Extprot.Reader.IO_reader.read_raw_float s
| _ -> r252 ()) in
let v1 =
Extprot.Error.missing_field
~message: "b242" ~constructor: "<d249>"
~field: "l177" () in
let v2 = Maybe.None in
let v3 = false in
let v4 = false in
let v5 = L93.F96 in
let v6 = Maybe.None in
let v7 = Maybe.None in
let v8 = Maybe.None in
let v9 = Maybe.None in
let v256 = Maybe.None in
let v257 = Maybe.None in
let v258 = Maybe.None in
let v259 = [] in
let v260 = C171.V0 in
let v261 = Maybe.None
in
{
L174.l176 = v0;
L174.l177 = v1;
L174.l178 = v2;
L174.s179 = v3;
L174.o180 = v4;
L174.l94 = v5;
L174.o181 = v6;
L174.c182 = v7;
L174.l183 = v8;
L174.r184 = v9;
L174.l185 = v256;
L174.d134 = v257;
L174.n186 = v258;
L174.r187 = v259;
L174.c172 = v260;
L174.r188 = v261;
}
| t75 -> Extprot.Error.unknown_tag ~message: "l175" t75)
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "l237" e l248)
else
Extprot.Error.missing_field ~message: "b242"
~constructor: "<d249>" ~field: "l237" () in
let s211 =
if nelms >= 11
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Htuple ->
let l246 = Extprot.Reader.IO_reader.read_vint s in
let e251 = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let () = Extprot.Limits.check_message_length l246 in
let () = Extprot.Limits.check_num_elements nelms in
let v =
Array.init nelms
(fun _ ->
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> S200.E202
| 1 -> S200.E128
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.IO_reader.read_vint s in
let e250' = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then
Extprot.Reader.IO_reader.read_rel_int s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "s211" 0
in S200.C203 v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.IO_reader.skip_to s e250'; v)
| Extprot.Codec.Vint ->
S200.C203
(Extprot.Reader.IO_reader.read_raw_rel_int s)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ())
in (Extprot.Reader.IO_reader.skip_to s e251; v)
| ty -> Extprot.Error.bad_wire_type ~ll_type: ty ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "s211" e l248)
else [| |] in
let r238 =
if nelms >= 12
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Htuple ->
let l246 = Extprot.Reader.IO_reader.read_vint s in
let e251 = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let () = Extprot.Limits.check_message_length l246 in
let () = Extprot.Limits.check_num_elements nelms in
let v =
Array.init nelms
(fun _ -> Extprot.Reader.IO_reader.read_rel_int s)
in (Extprot.Reader.IO_reader.skip_to s e251; v)
| ty -> Extprot.Error.bad_wire_type ~ll_type: ty ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "r238" e l248)
else [| |] in
let o219 =
if nelms >= 13
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.IO_reader.read_vint s in
let e250' = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then
(let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> O218.R220
| 1 -> O218.D221
| 2 -> O218.F222
| 3 -> O218.R107
| t75 -> Extprot.Error.unknown_tag t75)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ())
else O218.R220
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.IO_reader.skip_to s e250'; v)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "o219" e l248)
else Maybe.None in
let s239 =
if nelms >= 14
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.IO_reader.read_vint s in
let e250' = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then Extprot.Reader.IO_reader.read_rel_int s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "s239" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.IO_reader.skip_to s e250'; v)
| Extprot.Codec.Vint ->
Maybe.Some (Extprot.Reader.IO_reader.read_raw_rel_int s)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "s239" e l248)
else Maybe.None in
let c91 =
if nelms >= 15
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.IO_reader.read_vint s in
let e250' = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then Extprot.Reader.IO_reader.read_rel_int s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "c91" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.IO_reader.skip_to s e250'; v)
| Extprot.Codec.Vint ->
Maybe.Some (Extprot.Reader.IO_reader.read_raw_rel_int s)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "c91" e l248)
else Maybe.None in
let p59 =
if nelms >= 16
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Htuple ->
let l246 = Extprot.Reader.IO_reader.read_vint s in
let e251 = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let () = Extprot.Limits.check_message_length l246 in
let () = Extprot.Limits.check_num_elements nelms in
let v =
let rec l273 a254 =
(function
| 0 -> List.rev a254
| n ->
let v =
let t = Extprot.Reader.IO_reader.read_prefix s
in
(match Extprot.Codec.ll_type t with
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.IO_reader.read_vint s in
let e250 =
Extprot.Reader.IO_reader.offset s l246 in
let nelms =
Extprot.Reader.IO_reader.read_vint s in
let v =
let v0 =
if nelms >= 1
then
Extprot.Reader.IO_reader.read_rel_int s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "p59" 0 in
let v1 =
if nelms >= 2
then
Extprot.Reader.IO_reader.read_rel_int s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "p59" 1 in
let v2 =
if nelms >= 3
then
(let t =
Extprot.Reader.IO_reader.read_prefix
s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t
with
|
0 -> Maybe.None
|
t75 ->
Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246
=
Extprot.Reader.IO_reader.read_vint s in
let e250'
=
Extprot.Reader.IO_reader.offset
s l246 in
let nelms
=
Extprot.Reader.IO_reader.read_vint s in
let v
=
(
match Extprot.Codec.ll_tag t
with
|
0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "p59" 0
in Maybe.Some v0
|
t75 ->
Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.IO_reader.skip_to s e250';
v)
| Extprot.Codec.Bytes ->
Maybe.Some
(
Extprot.Reader.IO_reader.read_raw_string s)
| ll_type ->
Extprot.Error.bad_wire_type
~ll_type ())
else Maybe.None
in v0, v1, v2
in (Extprot.Reader.IO_reader.skip_to s e250; v)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ())
in l273 (v :: a254) (n - 1))
in l273 [] nelms
in (Extprot.Reader.IO_reader.skip_to s e251; v)
| ty -> Extprot.Error.bad_wire_type ~ll_type: ty ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "p59" e l248)
else [] in
let s240 =
if nelms >= 17
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.IO_reader.read_vint s in
let e250' = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then Extprot.Reader.IO_reader.read_float s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "s240" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.IO_reader.skip_to s e250'; v)
| Extprot.Codec.Bits64_float ->
Maybe.Some (Extprot.Reader.IO_reader.read_raw_float s)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "s240"
e l248)
else Maybe.None in
let l241 =
if nelms >= 18
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Htuple ->
let l246 = Extprot.Reader.IO_reader.read_vint s in
let e251 = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let () = Extprot.Limits.check_message_length l246 in
let () = Extprot.Limits.check_num_elements nelms in
let v =
let rec l274 a254 =
(function
| 0 -> List.rev a254
| n ->
let v =
let t = Extprot.Reader.IO_reader.read_prefix s
in
(match Extprot.Codec.ll_type t with
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.IO_reader.read_vint s in
let e250 =
Extprot.Reader.IO_reader.offset s l246 in
let nelms =
Extprot.Reader.IO_reader.read_vint s in
let v =
let v0 =
if nelms >= 1
then
Extprot.Reader.IO_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "l241" 0 in
let v1 =
if nelms >= 2
then Extprot.Reader.IO_reader.read_float s
else
Extprot.Error.missing_tuple_element
~message: "b242"
~constructor: "<d249>"
~field: "l241" 1
in v0, v1
in (Extprot.Reader.IO_reader.skip_to s e250; v)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ())
in l274 (v :: a254) (n - 1))
in l274 [] nelms
in (Extprot.Reader.IO_reader.skip_to s e251; v)
| ty -> Extprot.Error.bad_wire_type ~ll_type: ty ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b242"
~constructor: "<d249>" ~field: "l241" e l248)
else []
in
{
r231 = r231;
c232 = c232;
dr = dr;
ip = ip;
n233 = n233;
n234 = n234;
p235 = p235;
e69 = e69;
t236 = t236;
l237 = l237;
s211 = s211;
r238 = r238;
o219 = o219;
s239 = s239;
c91 = c91;
p59 = p59;
s240 = s240;
l241 = l241;
}
in (Extprot.Reader.IO_reader.skip_to s e247; v)
with | e -> (Extprot.Reader.IO_reader.skip_to s e247; raise e))
| t75 -> Extprot.Error.unknown_tag ~message: "b242" t75)
else
(let r252 () =
Extprot.Error.bad_wire_type ~message: "b242" ~ll_type: (Extprot.Codec.ll_type t)
()
in
match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
(match Extprot.Codec.ll_type t with
| Extprot.Codec.Vint -> Extprot.Reader.IO_reader.read_raw_rel_int s
| _ -> r252 ()) in
let v1 =
Extprot.Error.missing_field ~message: "b242" ~constructor: "<d249>"
~field: "c232" () in
let v2 =
Extprot.Error.missing_field ~message: "b242" ~constructor: "<d249>"
~field: "dr" () in
let v3 =
Extprot.Error.missing_field ~message: "b242" ~constructor: "<d249>"
~field: "ip" () in
let v4 =
Extprot.Error.missing_field ~message: "b242" ~constructor: "<d249>"
~field: "n233" () in
let v5 =
Extprot.Error.missing_field ~message: "b242" ~constructor: "<d249>"
~field: "n234" () in
let v6 =
Extprot.Error.missing_field ~message: "b242" ~constructor: "<d249>"
~field: "p235" () in
let v7 = E68.R70 in
let v8 =
Extprot.Error.missing_field ~message: "b242" ~constructor: "<d249>"
~field: "t236" () in
let v9 =
Extprot.Error.missing_field ~message: "b242" ~constructor: "<d249>"
~field: "l237" () in
let v256 = [| |] in
let v257 = [| |] in
let v258 = Maybe.None in
let v259 = Maybe.None in
let v260 = Maybe.None in
let v261 = [] in
let v264 = Maybe.None in
let v265 = []
in
{
r231 = v0;
c232 = v1;
dr = v2;
ip = v3;
n233 = v4;
n234 = v5;
p235 = v6;
e69 = v7;
t236 = v8;
l237 = v9;
s211 = v256;
r238 = v257;
o219 = v258;
s239 = v259;
c91 = v260;
p59 = v261;
s240 = v264;
l241 = v265;
}
| t75 -> Extprot.Error.unknown_tag ~message: "b242" t75);;
let i269 = i266;;
let w275 b m276 =
let a277 = Extprot.Msg_buffer.create () in
let nelms = 18
in
(Extprot.Msg_buffer.add_tuple_prefix b 0;
Extprot.Msg_buffer.write_relative_int a277 m276.r231;
Extprot.Msg_buffer.write_relative_int a277 m276.c232;
Extprot.Msg_buffer.write_float a277 m276.dr;
Extprot.Msg_buffer.write_string a277 m276.ip;
Extprot.Msg_buffer.write_relative_int a277 m276.n233;
Extprot.Msg_buffer.write_relative_int a277 m276.n234;
Extprot.Msg_buffer.write_relative_int a277 m276.p235;
(match m276.e69 with
| E68.R70 -> Extprot.Msg_buffer.add_const_prefix a277 0
| E68.U71 -> Extprot.Msg_buffer.add_const_prefix a277 1
| E68.E72 v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_string a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
Extprot.Msg_buffer.write_string a277 m276.t236;
(let b = a277 in
let m276 = m276.l237 in
let a277 = Extprot.Msg_buffer.create () in
let nelms = 16
in
(Extprot.Msg_buffer.add_tuple_prefix b 0;
Extprot.Msg_buffer.write_float a277 m276.L174.l176;
Extprot.Msg_buffer.write_float a277 m276.L174.l177;
(match m276.L174.l178 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_float a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
Extprot.Msg_buffer.write_bool a277 m276.L174.s179;
Extprot.Msg_buffer.write_bool a277 m276.L174.o180;
(match m276.L174.l94 with
| L93.F96 -> Extprot.Msg_buffer.add_const_prefix a277 0
| L93.F97 -> Extprot.Msg_buffer.add_const_prefix a277 1
| L93.C98 -> Extprot.Msg_buffer.add_const_prefix a277 2
| L93.A99 -> Extprot.Msg_buffer.add_const_prefix a277 3
| L93.R100 -> Extprot.Msg_buffer.add_const_prefix a277 4
| L93.R95 v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_relative_int a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278)
| L93.H80 v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in
((let b = a277 in
let m276 = v0 in
let a277 = Extprot.Msg_buffer.create () in
let nelms = 5
in
(Extprot.Msg_buffer.add_tuple_prefix b 0;
Extprot.Msg_buffer.write_bool a277 m276.H80.n82;
(match m276.H80.a83 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_string a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277
((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
Extprot.Msg_buffer.write_string a277 m276.H80.a84;
(match m276.H80.c85 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in
((let (v0, v1) = v0 in
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in
(Extprot.Msg_buffer.write_string a277 v0;
Extprot.Msg_buffer.write_string a277 v1;
a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277
((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 2;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277
((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(let write_elm a277 v =
match v with
| T74.T74 v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_string a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277
((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278)
| T74.C76 v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_string a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 1;
Extprot.Msg_buffer.add_vint a277
((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278)
| T74.T77 v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_string a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 2;
Extprot.Msg_buffer.add_vint a277
((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278)
| T74.I78 v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_string a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 3;
Extprot.Msg_buffer.add_vint a277
((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278) in
let nelms = ref 0 in
let a278 = Extprot.Msg_buffer.create ()
in
(Array.iter (fun v -> (write_elm a278 v; incr nelms)) m276.H80.t86;
Extprot.Msg_buffer.add_htuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277
((Extprot.Msg_buffer.length a278) +
(Extprot.Codec.vint_length nelms.contents));
Extprot.Msg_buffer.add_vint a277 nelms.contents;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
Extprot.Msg_buffer.add_vint b ((Extprot.Msg_buffer.length a277) + 1);
Extprot.Msg_buffer.add_vint b nelms;
Extprot.Msg_buffer.add_buffer b a277;
Extprot.Msg_buffer.discard a277));
a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 1;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278)
| L93.R101 v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in
((let write_elm a277 v =
let b = a277 in
let m276 = v in
let a277 = Extprot.Msg_buffer.create () in
let nelms = 2
in
(Extprot.Msg_buffer.add_tuple_prefix b 0;
Extprot.Msg_buffer.write_string a277 m276.R88.u90;
Extprot.Msg_buffer.write_relative_int a277 m276.R88.c91;
Extprot.Msg_buffer.add_vint b ((Extprot.Msg_buffer.length a277) + 1);
Extprot.Msg_buffer.add_vint b nelms;
Extprot.Msg_buffer.add_buffer b a277;
Extprot.Msg_buffer.discard a277) in
let nelms = ref 0 in
let a278 = Extprot.Msg_buffer.create ()
in
(List.iter (fun v -> (write_elm a278 v; incr nelms)) v0;
Extprot.Msg_buffer.add_htuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277
((Extprot.Msg_buffer.length a278) +
(Extprot.Codec.vint_length nelms.contents));
Extprot.Msg_buffer.add_vint a277 nelms.contents;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 2;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(match m276.L174.o181 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_relative_int a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(match m276.L174.c182 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_bool a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(match m276.L174.l183 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_float a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(match m276.L174.r184 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_bool a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(match m276.L174.l185 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_float a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(match m276.L174.d134 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in
((match v0 with
| D133.M135 -> Extprot.Msg_buffer.add_const_prefix a277 0
| D133.N136 -> Extprot.Msg_buffer.add_const_prefix a277 1
| D133.N137 -> Extprot.Msg_buffer.add_const_prefix a277 2
| D133.T138 -> Extprot.Msg_buffer.add_const_prefix a277 3
| D133.O139 -> Extprot.Msg_buffer.add_const_prefix a277 4
| D133.R140 -> Extprot.Msg_buffer.add_const_prefix a277 5
| D133.D141 -> Extprot.Msg_buffer.add_const_prefix a277 6
| D133.N142 -> Extprot.Msg_buffer.add_const_prefix a277 7
| D133.M143 -> Extprot.Msg_buffer.add_const_prefix a277 8
| D133.B144 -> Extprot.Msg_buffer.add_const_prefix a277 9
| D133.D145 -> Extprot.Msg_buffer.add_const_prefix a277 10);
a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(match m276.L174.n186 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_bool a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(let write_elm a277 v =
let b = a277 in
let m276 = v in
let a277 = Extprot.Msg_buffer.create () in
let nelms = 2
in
(Extprot.Msg_buffer.add_tuple_prefix b 0;
Extprot.Msg_buffer.write_string a277 m276.R88.u90;
Extprot.Msg_buffer.write_relative_int a277 m276.R88.c91;
Extprot.Msg_buffer.add_vint b ((Extprot.Msg_buffer.length a277) + 1);
Extprot.Msg_buffer.add_vint b nelms;
Extprot.Msg_buffer.add_buffer b a277;
Extprot.Msg_buffer.discard a277) in
let nelms = ref 0 in
let a278 = Extprot.Msg_buffer.create ()
in
(List.iter (fun v -> (write_elm a278 v; incr nelms)) m276.L174.r187;
Extprot.Msg_buffer.add_htuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277
((Extprot.Msg_buffer.length a278) + (Extprot.Codec.vint_length nelms.contents));
Extprot.Msg_buffer.add_vint a277 nelms.contents;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(match m276.L174.c172 with
| C171.V0 -> Extprot.Msg_buffer.add_const_prefix a277 0
| C171.V1 -> Extprot.Msg_buffer.add_const_prefix a277 1);
(match m276.L174.r188 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_string a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
Extprot.Msg_buffer.add_vint b ((Extprot.Msg_buffer.length a277) + 1);
Extprot.Msg_buffer.add_vint b nelms;
Extprot.Msg_buffer.add_buffer b a277;
Extprot.Msg_buffer.discard a277));
(let write_elm a277 v =
match v with
| S200.E202 -> Extprot.Msg_buffer.add_const_prefix a277 0
| S200.E128 -> Extprot.Msg_buffer.add_const_prefix a277 1
| S200.C203 v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_relative_int a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278) in
let nelms = ref 0 in
let a278 = Extprot.Msg_buffer.create ()
in
(Array.iter (fun v -> (write_elm a278 v; incr nelms)) m276.s211;
Extprot.Msg_buffer.add_htuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277
((Extprot.Msg_buffer.length a278) + (Extprot.Codec.vint_length nelms.contents));
Extprot.Msg_buffer.add_vint a277 nelms.contents;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(let write_elm a277 v = Extprot.Msg_buffer.write_relative_int a277 v in
let nelms = ref 0 in
let a278 = Extprot.Msg_buffer.create ()
in
(Array.iter (fun v -> (write_elm a278 v; incr nelms)) m276.r238;
Extprot.Msg_buffer.add_htuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277
((Extprot.Msg_buffer.length a278) + (Extprot.Codec.vint_length nelms.contents));
Extprot.Msg_buffer.add_vint a277 nelms.contents;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(match m276.o219 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in
((match v0 with
| O218.R220 -> Extprot.Msg_buffer.add_const_prefix a277 0
| O218.D221 -> Extprot.Msg_buffer.add_const_prefix a277 1
| O218.F222 -> Extprot.Msg_buffer.add_const_prefix a277 2
| O218.R107 -> Extprot.Msg_buffer.add_const_prefix a277 3);
a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(match m276.s239 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_relative_int a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(match m276.c91 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_relative_int a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(let write_elm a277 v =
let (v0, v1, v2) = v in
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in
(Extprot.Msg_buffer.write_relative_int a277 v0;
Extprot.Msg_buffer.write_relative_int a277 v1;
(match v2 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_string a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 3;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278) in
let nelms = ref 0 in
let a278 = Extprot.Msg_buffer.create ()
in
(List.iter (fun v -> (write_elm a278 v; incr nelms)) m276.p59;
Extprot.Msg_buffer.add_htuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277
((Extprot.Msg_buffer.length a278) + (Extprot.Codec.vint_length nelms.contents));
Extprot.Msg_buffer.add_vint a277 nelms.contents;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(match m276.s240 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_float a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(let write_elm a277 v =
let (v0, v1) = v in
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in
(Extprot.Msg_buffer.write_string a277 v0;
Extprot.Msg_buffer.write_float a277 v1;
a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 2;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278) in
let nelms = ref 0 in
let a278 = Extprot.Msg_buffer.create ()
in
(List.iter (fun v -> (write_elm a278 v; incr nelms)) m276.l241;
Extprot.Msg_buffer.add_htuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277
((Extprot.Msg_buffer.length a278) + (Extprot.Codec.vint_length nelms.contents));
Extprot.Msg_buffer.add_vint a277 nelms.contents;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
Extprot.Msg_buffer.add_vint b ((Extprot.Msg_buffer.length a277) + 1);
Extprot.Msg_buffer.add_vint b nelms;
Extprot.Msg_buffer.add_buffer b a277;
Extprot.Msg_buffer.discard a277);;
let w279 = w275;;
end;;
module B280 =
struct
type _281 = { a282 : B229.b242 R224.r225 };;
type b283 = { a282 : B229.b242 R224.r225 };;
let b284 : (unit -> b283) ref =
ref (fun () -> { a282 = R224.D227; });;
let p285 pp =
Extprot.Pretty_print.pp_struct
[ ("B280.a282",
(Extprot.Pretty_print.pp_field (fun t -> t.a282)
(R224.p228 B229.p244))) ]
pp;;
let pp = p285;;
let r286 s =
let t = Extprot.Reader.String_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 = Extprot.Reader.String_reader.read_vint s in
let e247 = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let () = Extprot.Limits.check_num_elements ~message: "b283" nelms in
let () = Extprot.Limits.check_message_length ~message: "b283" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let a282 =
if nelms >= 1
then
(try
let t = Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> R224.D227
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.String_reader.read_vint s in
let e250' = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then B229.r245 s
else !B229.b243 ()
in R224.C226 v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.String_reader.skip_to s e250'; v)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b283"
~constructor: "<d249>" ~field: "a282" e l248)
else R224.D227
in { a282 = a282; }
in (Extprot.Reader.String_reader.skip_to s e247; v)
with | e -> (Extprot.Reader.String_reader.skip_to s e247; raise e))
| t75 -> Extprot.Error.unknown_tag ~message: "b283" t75)
else
(let r252 () =
Extprot.Error.bad_wire_type ~message: "b283"
~ll_type: (Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t with
| 0 -> let v0 = r252 () in { a282 = v0; }
| t75 -> Extprot.Error.unknown_tag ~message: "b283" t75);;
let i287 io =
r286 (Extprot.Reader.String_reader.from_io_reader io);;
let f288 = i287;;
let r268 = r286;;
let i269 = i287;;
let f270 = f288;;
let i287 s =
let t = Extprot.Reader.IO_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 = Extprot.Reader.IO_reader.read_vint s in
let e247 = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let () = Extprot.Limits.check_num_elements ~message: "b283" nelms in
let () = Extprot.Limits.check_message_length ~message: "b283" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let a282 =
if nelms >= 1
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> R224.D227
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.IO_reader.read_vint s in
let e250' = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then B229.i266 s
else !B229.b243 ()
in R224.C226 v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.IO_reader.skip_to s e250'; v)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b283"
~constructor: "<d249>" ~field: "a282" e l248)
else R224.D227
in { a282 = a282; }
in (Extprot.Reader.IO_reader.skip_to s e247; v)
with | e -> (Extprot.Reader.IO_reader.skip_to s e247; raise e))
| t75 -> Extprot.Error.unknown_tag ~message: "b283" t75)
else
(let r252 () =
Extprot.Error.bad_wire_type ~message: "b283"
~ll_type: (Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t with
| 0 -> let v0 = r252 () in { a282 = v0; }
| t75 -> Extprot.Error.unknown_tag ~message: "b283" t75);;
let i269 = i287;;
let w289 b m276 =
let a277 = Extprot.Msg_buffer.create () in
let nelms = 1
in
(Extprot.Msg_buffer.add_tuple_prefix b 0;
(match m276.a282 with
| R224.D227 -> Extprot.Msg_buffer.add_const_prefix a277 0
| R224.C226 v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create () in (B229.w275 a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
Extprot.Msg_buffer.add_vint b ((Extprot.Msg_buffer.length a277) + 1);
Extprot.Msg_buffer.add_vint b nelms;
Extprot.Msg_buffer.add_buffer b a277;
Extprot.Msg_buffer.discard a277);;
let w279 = w289;;
end;;
module B290 =
struct
type b291 =
| A292
| D152 of D133.d134
| D293
| D294
| D295
| N296
| N297
| B298;;
let p299 pp =
function
| A292 -> Extprot.Pretty_print.fprintf pp "B290.A292"
| D152 v0 ->
Extprot.Pretty_print.fprintf pp "B290.D152 %a" D133.p146 v0
| D293 -> Extprot.Pretty_print.fprintf pp "B290.D293"
| D294 -> Extprot.Pretty_print.fprintf pp "B290.D294"
| D295 -> Extprot.Pretty_print.fprintf pp "B290.D295"
| N296 -> Extprot.Pretty_print.fprintf pp "B290.N296"
| N297 -> Extprot.Pretty_print.fprintf pp "B290.N297"
| B298 -> Extprot.Pretty_print.fprintf pp "B290.B298";;
end;;
module B300 =
struct
type _301 =
{ b242 : B229.b242; d302 : bool Maybe.maybe;
d214 : D213.d214 Maybe.maybe; c303 : int Maybe.maybe;
i304 : bool; s305 : U147.u148 Maybe.maybe;
r306 : B290.b291 Maybe.maybe
};;
type b307 =
{ b242 : B229.b242; d302 : bool Maybe.maybe;
d214 : D213.d214 Maybe.maybe; c303 : int Maybe.maybe;
i304 : bool; s305 : U147.u148 Maybe.maybe;
r306 : B290.b291 Maybe.maybe
};;
let b308 : (unit -> b307) ref =
ref
(fun () ->
{
b242 = !B229.b243 ();
d302 = Maybe.None;
d214 = Maybe.None;
c303 = Maybe.None;
i304 = false;
s305 = Maybe.None;
r306 = Maybe.None;
});;
let p309 pp =
Extprot.Pretty_print.pp_struct
[ ("B300.b242",
(Extprot.Pretty_print.pp_field (fun t -> t.b242) B229.p244));
("d302",
(Extprot.Pretty_print.pp_field (fun t -> t.d302)
(Maybe.pp_maybe Extprot.Pretty_print.pp_bool)));
("d214",
(Extprot.Pretty_print.pp_field (fun t -> t.d214) (Maybe.pp_maybe D213.p217)));
("c303",
(Extprot.Pretty_print.pp_field (fun t -> t.c303)
(Maybe.pp_maybe Extprot.Pretty_print.pp_int)));
("i304",
(Extprot.Pretty_print.pp_field (fun t -> t.i304) Extprot.Pretty_print.pp_bool));
("s305",
(Extprot.Pretty_print.pp_field (fun t -> t.s305)
(Maybe.pp_maybe U147.p154)));
("r306",
(Extprot.Pretty_print.pp_field (fun t -> t.r306)
(Maybe.pp_maybe B290.p299))) ]
pp;;
let pp = p309;;
let r310 s =
let t = Extprot.Reader.String_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 = Extprot.Reader.String_reader.read_vint s in
let e247 = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let () = Extprot.Limits.check_num_elements ~message: "b307" nelms in
let () = Extprot.Limits.check_message_length ~message: "b307" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let b242 =
if nelms >= 1
then
(try B229.r245 s
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b307"
~constructor: "<d249>" ~field: "b242" e l248)
else !B229.b243 () in
let d302 =
if nelms >= 2
then
(try
let t = Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.String_reader.read_vint s in
let e250' = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then Extprot.Reader.String_reader.read_bool s
else false
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.String_reader.skip_to s e250'; v)
| Extprot.Codec.Bits8 ->
Maybe.Some (Extprot.Reader.String_reader.read_raw_bool s)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b307"
~constructor: "<d249>" ~field: "d302" e l248)
else Maybe.None in
let d214 =
if nelms >= 3
then
(try
let t = Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.String_reader.read_vint s in
let e250' = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then
(let t = Extprot.Reader.String_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 =
Extprot.Reader.String_reader.read_vint s in
let e247 =
Extprot.Reader.String_reader.offset s l246 in
let nelms =
Extprot.Reader.String_reader.read_vint s in
let () =
Extprot.Limits.check_num_elements
~message: "d214" nelms in
let () =
Extprot.Limits.check_message_length
~message: "d214" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let s29
=
if nelms >= 1
then
(try
Extprot.Reader.String_reader.read_rel_int s
with
|
Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "b307"
~constructor: "<d249>"
~field: "s29" e l248)
else
Extprot.Error.missing_field
~message: "b307"
~constructor: "<d249>"
~field: "s29" () in
let l215
=
if nelms >= 2
then
(try
let t
=
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Tuple ->
let l246
=
Extprot.Reader.String_reader.read_vint s in
let e250
=
Extprot.Reader.String_reader.offset s l246 in
let nelms
=
Extprot.Reader.String_reader.read_vint s in
let v
=
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_rel_int s
else
Extprot.Error.missing_tuple_element
~message: "b307"
~constructor: "<d249>"
~field: "l215" 0 in
let v1
=
if nelms >= 2
then
Extprot.Reader.String_reader.read_rel_int s
else
Extprot.Error.missing_tuple_element
~message: "b307"
~constructor: "<d249>"
~field: "l215" 1
in v0, v1
in
(Extprot.Reader.String_reader.skip_to s e250;
v)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ()
with
|
Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "b307"
~constructor: "<d249>"
~field: "l215" e l248)
else
Extprot.Error.missing_field
~message: "b307"
~constructor: "<d249>"
~field: "l215" () in
let t216
=
if nelms >= 3
then
(try
Extprot.Reader.String_reader.read_rel_int s
with
|
Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "b307"
~constructor: "<d249>"
~field: "t216" e l248)
else
Extprot.Error.missing_field
~message: "b307"
~constructor: "<d249>"
~field: "t216" ()
in
{
D213.s29 = s29;
D213.l215 = l215;
D213.t216 = t216;
}
in
(Extprot.Reader.String_reader.skip_to s e247;
v)
with
| e ->
(Extprot.Reader.String_reader.skip_to s e247;
raise e))
| t75 ->
Extprot.Error.unknown_tag
~message: "d214" t75)
else
(let r252
() =
Extprot.Error.bad_wire_type
~message: "d214"
~ll_type: (Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
(match Extprot.Codec.ll_type t with
| Extprot.Codec.Vint ->
Extprot.Reader.String_reader.read_raw_rel_int s
| _ -> r252 ()) in
let v1 =
Extprot.Error.missing_field
~message: "b307"
~constructor: "<d249>"
~field: "l215" () in
let v2 =
Extprot.Error.missing_field
~message: "b307"
~constructor: "<d249>"
~field: "t216" ()
in
{
D213.s29 = v0;
D213.l215 = v1;
D213.t216 = v2;
}
| t75 ->
Extprot.Error.unknown_tag
~message: "d214" t75))
else
Extprot.Error.missing_tuple_element
~message: "b307"
~constructor: "<d249>"
~field: "d214" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.String_reader.skip_to s e250'; v)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b307"
~constructor: "<d249>" ~field: "d214" e l248)
else Maybe.None in
let c303 =
if nelms >= 4
then
(try
let t = Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.String_reader.read_vint s in
let e250' = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then Extprot.Reader.String_reader.read_rel_int s
else
Extprot.Error.missing_tuple_element
~message: "b307"
~constructor: "<d249>"
~field: "c303" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.String_reader.skip_to s e250'; v)
| Extprot.Codec.Vint ->
Maybe.Some (Extprot.Reader.String_reader.read_raw_rel_int s)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b307"
~constructor: "<d249>" ~field: "c303" e l248)
else Maybe.None in
let i304 =
if nelms >= 5
then
(try Extprot.Reader.String_reader.read_bool s
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b307"
~constructor: "<d249>" ~field: "i304" e
l248)
else false in
let s305 =
if nelms >= 6
then
(try
let t = Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.String_reader.read_vint s in
let e250' = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then
(let t = Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> U147.R149
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.String_reader.read_vint s in
let e250' =
Extprot.Reader.String_reader.offset s l246 in
let nelms =
Extprot.Reader.String_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then
(let t
=
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t
with
|
0 -> S117.F119
|
1 -> S117.N120
|
2 -> S117.F121
|
3 -> S117.R122
|
4 -> S117.P123
|
5 -> S117.U124
|
t75 ->
Extprot.Error.unknown_tag t75)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ())
else S117.F119
in U147.S150 v0
| 1 ->
let v0 =
if nelms >= 1
then
(let t
=
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t
with
|
0 -> B126.E128
|
1 -> B126.S129
|
2 -> B126.C98
|
3 -> B126.R95
|
4 -> B126.N130
|
5 -> B126.U124
|
6 -> B126.N131
|
t75 ->
Extprot.Error.unknown_tag t75)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ())
else B126.E128
in U147.B151 v0
| 2 ->
let v0 =
if nelms >= 1
then
(let t
=
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t
with
|
0 -> D133.M135
|
1 -> D133.N136
|
2 -> D133.N137
|
3 -> D133.T138
|
4 -> D133.O139
|
5 -> D133.R140
|
6 -> D133.D141
|
7 -> D133.N142
|
8 -> D133.M143
|
9 -> D133.B144
|
10 -> D133.D145
|
t75 ->
Extprot.Error.unknown_tag t75)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ())
else D133.M135
in U147.D152 v0
| 3 ->
let v0 =
if nelms >= 1
then
(let t
=
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t
with
|
0 -> S117.F119
|
1 -> S117.N120
|
2 -> S117.F121
|
3 -> S117.R122
|
4 -> S117.P123
|
5 -> S117.U124
|
t75 ->
Extprot.Error.unknown_tag t75)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ())
else S117.F119 in
let v1 =
if nelms >= 2
then
Extprot.Reader.String_reader.read_float s
else
Extprot.Error.missing_tuple_element
~message: "b307"
~constructor: "<d249>"
~field: "s305" 1
in U147.S153 (v0, v1)
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.String_reader.skip_to s e250';
v)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ())
else U147.R149
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.String_reader.skip_to s e250'; v)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b307"
~constructor: "<d249>" ~field: "s305" e l248)
else Maybe.None in
let r306 =
if nelms >= 7
then
(try
let t = Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.String_reader.read_vint s in
let e250' = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then
(let t = Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> B290.A292
| 1 -> B290.D293
| 2 -> B290.D294
| 3 -> B290.D295
| 4 -> B290.N296
| 5 -> B290.N297
| 6 -> B290.B298
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.String_reader.read_vint s in
let e250' =
Extprot.Reader.String_reader.offset s l246 in
let nelms =
Extprot.Reader.String_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then
(let t
=
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t
with
|
0 -> D133.M135
|
1 -> D133.N136
|
2 -> D133.N137
|
3 -> D133.T138
|
4 -> D133.O139
|
5 -> D133.R140
|
6 -> D133.D141
|
7 -> D133.N142
|
8 -> D133.M143
|
9 -> D133.B144
|
10 -> D133.D145
|
t75 ->
Extprot.Error.unknown_tag t75)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ())
else D133.M135
in B290.D152 v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.String_reader.skip_to s e250';
v)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ())
else B290.A292
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.String_reader.skip_to s e250'; v)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b307"
~constructor: "<d249>" ~field: "r306" e l248)
else Maybe.None
in
{
b242 = b242;
d302 = d302;
d214 = d214;
c303 = c303;
i304 = i304;
s305 = s305;
r306 = r306;
}
in (Extprot.Reader.String_reader.skip_to s e247; v)
with | e -> (Extprot.Reader.String_reader.skip_to s e247; raise e))
| t75 -> Extprot.Error.unknown_tag ~message: "b307" t75)
else
(let r252 () =
Extprot.Error.bad_wire_type ~message: "b307"
~ll_type: (Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t with
| 0 ->
let v0 = r252 () in
let v1 = Maybe.None in
let v2 = Maybe.None in
let v3 = Maybe.None in
let v4 = false in
let v5 = Maybe.None in
let v6 = Maybe.None
in
{
b242 = v0;
d302 = v1;
d214 = v2;
c303 = v3;
i304 = v4;
s305 = v5;
r306 = v6;
}
| t75 -> Extprot.Error.unknown_tag ~message: "b307" t75);;
let i311 io =
r310 (Extprot.Reader.String_reader.from_io_reader io);;
let f312 = i311;;
let r268 = r310;;
let i269 = i311;;
let f270 = f312;;
let i311 s =
let t = Extprot.Reader.IO_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 = Extprot.Reader.IO_reader.read_vint s in
let e247 = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let () = Extprot.Limits.check_num_elements ~message: "b307" nelms in
let () = Extprot.Limits.check_message_length ~message: "b307" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let b242 =
if nelms >= 1
then
(try B229.i266 s
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b307"
~constructor: "<d249>" ~field: "b242" e l248)
else !B229.b243 () in
let d302 =
if nelms >= 2
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.IO_reader.read_vint s in
let e250' = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then Extprot.Reader.IO_reader.read_bool s
else false
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.IO_reader.skip_to s e250'; v)
| Extprot.Codec.Bits8 ->
Maybe.Some (Extprot.Reader.IO_reader.read_raw_bool s)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b307"
~constructor: "<d249>" ~field: "d302" e l248)
else Maybe.None in
let d214 =
if nelms >= 3
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.IO_reader.read_vint s in
let e250' = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then
(let t = Extprot.Reader.IO_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 =
Extprot.Reader.IO_reader.read_vint s in
let e247 =
Extprot.Reader.IO_reader.offset s l246 in
let nelms =
Extprot.Reader.IO_reader.read_vint s in
let () =
Extprot.Limits.check_num_elements
~message: "d214" nelms in
let () =
Extprot.Limits.check_message_length
~message: "d214" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let s29
=
if nelms >= 1
then
(try
Extprot.Reader.IO_reader.read_rel_int s
with
|
Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "b307"
~constructor: "<d249>"
~field: "s29" e l248)
else
Extprot.Error.missing_field
~message: "b307"
~constructor: "<d249>"
~field: "s29" () in
let l215
=
if nelms >= 2
then
(try
let t
=
Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Tuple ->
let l246
=
Extprot.Reader.IO_reader.read_vint s in
let e250
=
Extprot.Reader.IO_reader.offset
s l246 in
let nelms
=
Extprot.Reader.IO_reader.read_vint s in
let v
=
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_rel_int s
else
Extprot.Error.missing_tuple_element
~message: "b307"
~constructor: "<d249>"
~field: "l215" 0 in
let v1
=
if nelms >= 2
then
Extprot.Reader.IO_reader.read_rel_int s
else
Extprot.Error.missing_tuple_element
~message: "b307"
~constructor: "<d249>"
~field: "l215" 1
in v0, v1
in
(Extprot.Reader.IO_reader.skip_to s e250;
v)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ()
with
|
Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "b307"
~constructor: "<d249>"
~field: "l215" e l248)
else
Extprot.Error.missing_field
~message: "b307"
~constructor: "<d249>"
~field: "l215" () in
let t216
=
if nelms >= 3
then
(try
Extprot.Reader.IO_reader.read_rel_int s
with
|
Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "b307"
~constructor: "<d249>"
~field: "t216" e l248)
else
Extprot.Error.missing_field
~message: "b307"
~constructor: "<d249>"
~field: "t216" ()
in
{
D213.s29 = s29;
D213.l215 = l215;
D213.t216 = t216;
}
in
(Extprot.Reader.IO_reader.skip_to s
e247;
v)
with
| e ->
(Extprot.Reader.IO_reader.skip_to s
e247;
raise e))
| t75 ->
Extprot.Error.unknown_tag
~message: "d214" t75)
else
(let r252
() =
Extprot.Error.bad_wire_type
~message: "d214"
~ll_type: (Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
(match Extprot.Codec.ll_type t with
| Extprot.Codec.Vint ->
Extprot.Reader.IO_reader.read_raw_rel_int s
| _ -> r252 ()) in
let v1 =
Extprot.Error.missing_field
~message: "b307"
~constructor: "<d249>"
~field: "l215" () in
let v2 =
Extprot.Error.missing_field
~message: "b307"
~constructor: "<d249>"
~field: "t216" ()
in
{
D213.s29 = v0;
D213.l215 = v1;
D213.t216 = v2;
}
| t75 ->
Extprot.Error.unknown_tag
~message: "d214" t75))
else
Extprot.Error.missing_tuple_element
~message: "b307"
~constructor: "<d249>"
~field: "d214" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.IO_reader.skip_to s e250'; v)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b307"
~constructor: "<d249>" ~field: "d214" e l248)
else Maybe.None in
let c303 =
if nelms >= 4
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.IO_reader.read_vint s in
let e250' = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then Extprot.Reader.IO_reader.read_rel_int s
else
Extprot.Error.missing_tuple_element
~message: "b307"
~constructor: "<d249>"
~field: "c303" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.IO_reader.skip_to s e250'; v)
| Extprot.Codec.Vint ->
Maybe.Some (Extprot.Reader.IO_reader.read_raw_rel_int s)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b307"
~constructor: "<d249>" ~field: "c303" e l248)
else Maybe.None in
let i304 =
if nelms >= 5
then
(try Extprot.Reader.IO_reader.read_bool s
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b307"
~constructor: "<d249>" ~field: "i304" e
l248)
else false in
let s305 =
if nelms >= 6
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.IO_reader.read_vint s in
let e250' = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then
(let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> U147.R149
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.IO_reader.read_vint s in
let e250' =
Extprot.Reader.IO_reader.offset s l246 in
let nelms =
Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then
(let t
=
Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t
with
|
0 -> S117.F119
|
1 -> S117.N120
|
2 -> S117.F121
|
3 -> S117.R122
|
4 -> S117.P123
|
5 -> S117.U124
|
t75 ->
Extprot.Error.unknown_tag t75)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ())
else S117.F119
in U147.S150 v0
| 1 ->
let v0 =
if nelms >= 1
then
(let t
=
Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t
with
|
0 -> B126.E128
|
1 -> B126.S129
|
2 -> B126.C98
|
3 -> B126.R95
|
4 -> B126.N130
|
5 -> B126.U124
|
6 -> B126.N131
|
t75 ->
Extprot.Error.unknown_tag t75)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ())
else B126.E128
in U147.B151 v0
| 2 ->
let v0 =
if nelms >= 1
then
(let t
=
Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t
with
|
0 -> D133.M135
|
1 -> D133.N136
|
2 -> D133.N137
|
3 -> D133.T138
|
4 -> D133.O139
|
5 -> D133.R140
|
6 -> D133.D141
|
7 -> D133.N142
|
8 -> D133.M143
|
9 -> D133.B144
|
10 -> D133.D145
|
t75 ->
Extprot.Error.unknown_tag t75)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ())
else D133.M135
in U147.D152 v0
| 3 ->
let v0 =
if nelms >= 1
then
(let t
=
Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t
with
|
0 -> S117.F119
|
1 -> S117.N120
|
2 -> S117.F121
|
3 -> S117.R122
|
4 -> S117.P123
|
5 -> S117.U124
|
t75 ->
Extprot.Error.unknown_tag t75)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ())
else S117.F119 in
let v1 =
if nelms >= 2
then
Extprot.Reader.IO_reader.read_float
s
else
Extprot.Error.missing_tuple_element
~message: "b307"
~constructor: "<d249>"
~field: "s305" 1
in U147.S153 (v0, v1)
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.IO_reader.skip_to s e250'; v)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ())
else U147.R149
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.IO_reader.skip_to s e250'; v)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b307"
~constructor: "<d249>" ~field: "s305" e l248)
else Maybe.None in
let r306 =
if nelms >= 7
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.IO_reader.read_vint s in
let e250' = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then
(let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> B290.A292
| 1 -> B290.D293
| 2 -> B290.D294
| 3 -> B290.D295
| 4 -> B290.N296
| 5 -> B290.N297
| 6 -> B290.B298
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.IO_reader.read_vint s in
let e250' =
Extprot.Reader.IO_reader.offset s l246 in
let nelms =
Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then
(let t
=
Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t
with
|
0 -> D133.M135
|
1 -> D133.N136
|
2 -> D133.N137
|
3 -> D133.T138
|
4 -> D133.O139
|
5 -> D133.R140
|
6 -> D133.D141
|
7 -> D133.N142
|
8 -> D133.M143
|
9 -> D133.B144
|
10 -> D133.D145
|
t75 ->
Extprot.Error.unknown_tag t75)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ())
else D133.M135
in B290.D152 v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.IO_reader.skip_to s e250'; v)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ())
else B290.A292
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.IO_reader.skip_to s e250'; v)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b307"
~constructor: "<d249>" ~field: "r306" e l248)
else Maybe.None
in
{
b242 = b242;
d302 = d302;
d214 = d214;
c303 = c303;
i304 = i304;
s305 = s305;
r306 = r306;
}
in (Extprot.Reader.IO_reader.skip_to s e247; v)
with | e -> (Extprot.Reader.IO_reader.skip_to s e247; raise e))
| t75 -> Extprot.Error.unknown_tag ~message: "b307" t75)
else
(let r252 () =
Extprot.Error.bad_wire_type ~message: "b307"
~ll_type: (Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t with
| 0 ->
let v0 = r252 () in
let v1 = Maybe.None in
let v2 = Maybe.None in
let v3 = Maybe.None in
let v4 = false in
let v5 = Maybe.None in
let v6 = Maybe.None
in
{
b242 = v0;
d302 = v1;
d214 = v2;
c303 = v3;
i304 = v4;
s305 = v5;
r306 = v6;
}
| t75 -> Extprot.Error.unknown_tag ~message: "b307" t75);;
let i269 = i311;;
let w313 b m276 =
let a277 = Extprot.Msg_buffer.create () in
let nelms = 7
in
(Extprot.Msg_buffer.add_tuple_prefix b 0;
B229.w275 a277 m276.b242;
(match m276.d302 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_bool a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(match m276.d214 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in
((let b = a277 in
let m276 = v0 in
let a277 = Extprot.Msg_buffer.create () in
let nelms = 3
in
(Extprot.Msg_buffer.add_tuple_prefix b 0;
Extprot.Msg_buffer.write_relative_int a277 m276.D213.s29;
(let (v0, v1) = m276.D213.l215 in
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in
(Extprot.Msg_buffer.write_relative_int a277 v0;
Extprot.Msg_buffer.write_relative_int a277 v1;
a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 2;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
Extprot.Msg_buffer.write_relative_int a277 m276.D213.t216;
Extprot.Msg_buffer.add_vint b ((Extprot.Msg_buffer.length a277) + 1);
Extprot.Msg_buffer.add_vint b nelms;
Extprot.Msg_buffer.add_buffer b a277;
Extprot.Msg_buffer.discard a277));
a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(match m276.c303 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_relative_int a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
Extprot.Msg_buffer.write_bool a277 m276.i304;
(match m276.s305 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in
((match v0 with
| U147.R149 -> Extprot.Msg_buffer.add_const_prefix a277 0
| U147.S150 v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in
((match v0 with
| S117.F119 ->
Extprot.Msg_buffer.add_const_prefix a277 0
| S117.N120 -> Extprot.Msg_buffer.add_const_prefix a277 1
| S117.F121 ->
Extprot.Msg_buffer.add_const_prefix a277 2
| S117.R122 ->
Extprot.Msg_buffer.add_const_prefix a277 3
| S117.P123 ->
Extprot.Msg_buffer.add_const_prefix a277 4
| S117.U124 ->
Extprot.Msg_buffer.add_const_prefix a277 5);
a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278)
| U147.B151 v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in
((match v0 with
| B126.E128 -> Extprot.Msg_buffer.add_const_prefix a277 0
| B126.S129 -> Extprot.Msg_buffer.add_const_prefix a277 1
| B126.C98 -> Extprot.Msg_buffer.add_const_prefix a277 2
| B126.R95 -> Extprot.Msg_buffer.add_const_prefix a277 3
| B126.N130 -> Extprot.Msg_buffer.add_const_prefix a277 4
| B126.U124 ->
Extprot.Msg_buffer.add_const_prefix a277 5
| B126.N131 -> Extprot.Msg_buffer.add_const_prefix a277 6);
a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 1;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278)
| U147.D152 v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in
((match v0 with
| D133.M135 -> Extprot.Msg_buffer.add_const_prefix a277 0
| D133.N136 ->
Extprot.Msg_buffer.add_const_prefix a277 1
| D133.N137 -> Extprot.Msg_buffer.add_const_prefix a277 2
| D133.T138 -> Extprot.Msg_buffer.add_const_prefix a277 3
| D133.O139 ->
Extprot.Msg_buffer.add_const_prefix a277 4
| D133.R140 -> Extprot.Msg_buffer.add_const_prefix a277 5
| D133.D141 -> Extprot.Msg_buffer.add_const_prefix a277 6
| D133.N142 -> Extprot.Msg_buffer.add_const_prefix a277 7
| D133.M143 -> Extprot.Msg_buffer.add_const_prefix a277 8
| D133.B144 ->
Extprot.Msg_buffer.add_const_prefix a277 9
| D133.D145 ->
Extprot.Msg_buffer.add_const_prefix a277 10);
a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 2;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278)
| U147.S153 (v0, v1) ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in
((match v0 with
| S117.F119 ->
Extprot.Msg_buffer.add_const_prefix a277 0
| S117.N120 -> Extprot.Msg_buffer.add_const_prefix a277 1
| S117.F121 ->
Extprot.Msg_buffer.add_const_prefix a277 2
| S117.R122 ->
Extprot.Msg_buffer.add_const_prefix a277 3
| S117.P123 ->
Extprot.Msg_buffer.add_const_prefix a277 4
| S117.U124 ->
Extprot.Msg_buffer.add_const_prefix a277 5);
Extprot.Msg_buffer.write_float a277 v1;
a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 3;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 2;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(match m276.r306 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in
((match v0 with
| B290.A292 -> Extprot.Msg_buffer.add_const_prefix a277 0
| B290.D293 -> Extprot.Msg_buffer.add_const_prefix a277 1
| B290.D294 -> Extprot.Msg_buffer.add_const_prefix a277 2
| B290.D295 -> Extprot.Msg_buffer.add_const_prefix a277 3
| B290.N296 -> Extprot.Msg_buffer.add_const_prefix a277 4
| B290.N297 -> Extprot.Msg_buffer.add_const_prefix a277 5
| B290.B298 -> Extprot.Msg_buffer.add_const_prefix a277 6
| B290.D152 v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in
((match v0 with
| D133.M135 -> Extprot.Msg_buffer.add_const_prefix a277 0
| D133.N136 ->
Extprot.Msg_buffer.add_const_prefix a277 1
| D133.N137 -> Extprot.Msg_buffer.add_const_prefix a277 2
| D133.T138 -> Extprot.Msg_buffer.add_const_prefix a277 3
| D133.O139 ->
Extprot.Msg_buffer.add_const_prefix a277 4
| D133.R140 -> Extprot.Msg_buffer.add_const_prefix a277 5
| D133.D141 -> Extprot.Msg_buffer.add_const_prefix a277 6
| D133.N142 -> Extprot.Msg_buffer.add_const_prefix a277 7
| D133.M143 -> Extprot.Msg_buffer.add_const_prefix a277 8
| D133.B144 ->
Extprot.Msg_buffer.add_const_prefix a277 9
| D133.D145 ->
Extprot.Msg_buffer.add_const_prefix a277 10);
a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
Extprot.Msg_buffer.add_vint b ((Extprot.Msg_buffer.length a277) + 1);
Extprot.Msg_buffer.add_vint b nelms;
Extprot.Msg_buffer.add_buffer b a277;
Extprot.Msg_buffer.discard a277);;
let w279 = w313;;
end;;
module S314 =
struct
type _315 =
{ t316 : int; t317 : int; a318 : int;
a319 : int; b242 : B229.b242
};;
type s320 =
{ t316 : int; t317 : int; a318 : int;
a319 : int; b242 : B229.b242
};;
let s321 : (unit -> s320) ref =
ref (fun () -> Extprot.Error.missing_field ~message: "s320" ());;
let p322 pp =
Extprot.Pretty_print.pp_struct
[ ("S314.t316",
(Extprot.Pretty_print.pp_field (fun t -> t.t316) Extprot.Pretty_print.pp_int));
("t317",
(Extprot.Pretty_print.pp_field (fun t -> t.t317) Extprot.Pretty_print.pp_int));
("a318",
(Extprot.Pretty_print.pp_field (fun t -> t.a318) Extprot.Pretty_print.pp_int));
("a319",
(Extprot.Pretty_print.pp_field (fun t -> t.a319) Extprot.Pretty_print.pp_int));
("b242", (Extprot.Pretty_print.pp_field (fun t -> t.b242) B229.p244)) ]
pp;;
let pp = p322;;
let r323 s =
let t = Extprot.Reader.String_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 = Extprot.Reader.String_reader.read_vint s in
let e247 = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let () = Extprot.Limits.check_num_elements ~message: "s320" nelms in
let () = Extprot.Limits.check_message_length ~message: "s320" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let t316 =
if nelms >= 1
then
(try Extprot.Reader.String_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "s320"
~constructor: "<d249>" ~field: "t316" e l248)
else
Extprot.Error.missing_field ~message: "s320"
~constructor: "<d249>" ~field: "t316" () in
let t317 =
if nelms >= 2
then
(try Extprot.Reader.String_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "s320"
~constructor: "<d249>" ~field: "t317" e l248)
else
Extprot.Error.missing_field ~message: "s320"
~constructor: "<d249>" ~field: "t317" () in
let a318 =
if nelms >= 3
then
(try Extprot.Reader.String_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "s320"
~constructor: "<d249>" ~field: "a318" e l248)
else
Extprot.Error.missing_field ~message: "s320"
~constructor: "<d249>" ~field: "a318" () in
let a319 =
if nelms >= 4
then
(try Extprot.Reader.String_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "s320"
~constructor: "<d249>" ~field: "a319" e l248)
else
Extprot.Error.missing_field ~message: "s320"
~constructor: "<d249>" ~field: "a319" () in
let b242 =
if nelms >= 5
then
(try B229.r245 s
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "s320"
~constructor: "<d249>" ~field: "b242" e l248)
else !B229.b243 ()
in
{
t316 = t316;
t317 = t317;
a318 = a318;
a319 = a319;
b242 = b242;
}
in (Extprot.Reader.String_reader.skip_to s e247; v)
with | e -> (Extprot.Reader.String_reader.skip_to s e247; raise e))
| t75 -> Extprot.Error.unknown_tag ~message: "s320" t75)
else
(let r252 () =
Extprot.Error.bad_wire_type ~message: "s320" ~ll_type: (Extprot.Codec.ll_type t)
()
in
match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
(match Extprot.Codec.ll_type t with
| Extprot.Codec.Vint -> Extprot.Reader.String_reader.read_raw_rel_int s
| _ -> r252 ()) in
let v1 =
Extprot.Error.missing_field ~message: "s320" ~constructor: "<d249>"
~field: "t317" () in
let v2 =
Extprot.Error.missing_field ~message: "s320" ~constructor: "<d249>"
~field: "a318" () in
let v3 =
Extprot.Error.missing_field ~message: "s320" ~constructor: "<d249>"
~field: "a319" () in
let v4 = !B229.b243 ()
in
{
t316 = v0;
t317 = v1;
a318 = v2;
a319 = v3;
b242 = v4;
}
| t75 -> Extprot.Error.unknown_tag ~message: "s320" t75);;
let i324 io = r323 (Extprot.Reader.String_reader.from_io_reader io);;
let f325 = i324;;
let r268 = r323;;
let i269 = i324;;
let f270 = f325;;
let i324 s =
let t = Extprot.Reader.IO_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 = Extprot.Reader.IO_reader.read_vint s in
let e247 = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let () = Extprot.Limits.check_num_elements ~message: "s320" nelms in
let () = Extprot.Limits.check_message_length ~message: "s320" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let t316 =
if nelms >= 1
then
(try Extprot.Reader.IO_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "s320"
~constructor: "<d249>" ~field: "t316" e l248)
else
Extprot.Error.missing_field ~message: "s320"
~constructor: "<d249>" ~field: "t316" () in
let t317 =
if nelms >= 2
then
(try Extprot.Reader.IO_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "s320"
~constructor: "<d249>" ~field: "t317" e l248)
else
Extprot.Error.missing_field ~message: "s320"
~constructor: "<d249>" ~field: "t317" () in
let a318 =
if nelms >= 3
then
(try Extprot.Reader.IO_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "s320"
~constructor: "<d249>" ~field: "a318" e l248)
else
Extprot.Error.missing_field ~message: "s320"
~constructor: "<d249>" ~field: "a318" () in
let a319 =
if nelms >= 4
then
(try Extprot.Reader.IO_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "s320"
~constructor: "<d249>" ~field: "a319" e l248)
else
Extprot.Error.missing_field ~message: "s320"
~constructor: "<d249>" ~field: "a319" () in
let b242 =
if nelms >= 5
then
(try B229.i266 s
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "s320"
~constructor: "<d249>" ~field: "b242" e l248)
else !B229.b243 ()
in
{
t316 = t316;
t317 = t317;
a318 = a318;
a319 = a319;
b242 = b242;
}
in (Extprot.Reader.IO_reader.skip_to s e247; v)
with | e -> (Extprot.Reader.IO_reader.skip_to s e247; raise e))
| t75 -> Extprot.Error.unknown_tag ~message: "s320" t75)
else
(let r252 () =
Extprot.Error.bad_wire_type ~message: "s320" ~ll_type: (Extprot.Codec.ll_type t)
()
in
match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
(match Extprot.Codec.ll_type t with
| Extprot.Codec.Vint -> Extprot.Reader.IO_reader.read_raw_rel_int s
| _ -> r252 ()) in
let v1 =
Extprot.Error.missing_field ~message: "s320" ~constructor: "<d249>"
~field: "t317" () in
let v2 =
Extprot.Error.missing_field ~message: "s320" ~constructor: "<d249>"
~field: "a318" () in
let v3 =
Extprot.Error.missing_field ~message: "s320" ~constructor: "<d249>"
~field: "a319" () in
let v4 = !B229.b243 ()
in
{
t316 = v0;
t317 = v1;
a318 = v2;
a319 = v3;
b242 = v4;
}
| t75 -> Extprot.Error.unknown_tag ~message: "s320" t75);;
let i269 = i324;;
let w326 b m276 =
let a277 = Extprot.Msg_buffer.create () in
let nelms = 5
in
(Extprot.Msg_buffer.add_tuple_prefix b 0;
Extprot.Msg_buffer.write_relative_int a277 m276.t316;
Extprot.Msg_buffer.write_relative_int a277 m276.t317;
Extprot.Msg_buffer.write_relative_int a277 m276.a318;
Extprot.Msg_buffer.write_relative_int a277 m276.a319;
B229.w275 a277 m276.b242;
Extprot.Msg_buffer.add_vint b ((Extprot.Msg_buffer.length a277) + 1);
Extprot.Msg_buffer.add_vint b nelms;
Extprot.Msg_buffer.add_buffer b a277;
Extprot.Msg_buffer.discard a277);;
let w279 = w326;;
end;;
module T327 =
struct
type _328 = { t329 : int; b242 : B229.b242 };;
type t330 = { t329 : int; b242 : B229.b242 };;
let t331 : (unit -> t330) ref =
ref (fun () -> Extprot.Error.missing_field ~message: "t330" ());;
let p332 pp =
Extprot.Pretty_print.pp_struct
[ ("T327.t329",
(Extprot.Pretty_print.pp_field (fun t -> t.t329) Extprot.Pretty_print.pp_int));
("b242", (Extprot.Pretty_print.pp_field (fun t -> t.b242) B229.p244)) ]
pp;;
let pp = p332;;
let r333 s =
let t = Extprot.Reader.String_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 = Extprot.Reader.String_reader.read_vint s in
let e247 = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let () = Extprot.Limits.check_num_elements ~message: "t330" nelms in
let () = Extprot.Limits.check_message_length ~message: "t330" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let t329 =
if nelms >= 1
then
(try Extprot.Reader.String_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "t330"
~constructor: "<d249>" ~field: "t329" e l248)
else
Extprot.Error.missing_field ~message: "t330"
~constructor: "<d249>" ~field: "t329" () in
let b242 =
if nelms >= 2
then
(try B229.r245 s
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "t330"
~constructor: "<d249>" ~field: "b242" e l248)
else !B229.b243 ()
in { t329 = t329; b242 = b242; }
in (Extprot.Reader.String_reader.skip_to s e247; v)
with | e -> (Extprot.Reader.String_reader.skip_to s e247; raise e))
| t75 -> Extprot.Error.unknown_tag ~message: "t330" t75)
else
(let r252 () =
Extprot.Error.bad_wire_type ~message: "t330"
~ll_type: (Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
(match Extprot.Codec.ll_type t with
| Extprot.Codec.Vint -> Extprot.Reader.String_reader.read_raw_rel_int s
| _ -> r252 ()) in
let v1 = !B229.b243 () in { t329 = v0; b242 = v1; }
| t75 -> Extprot.Error.unknown_tag ~message: "t330" t75);;
let i334 io =
r333 (Extprot.Reader.String_reader.from_io_reader io);;
let f335 = i334;;
let r268 = r333;;
let i269 = i334;;
let f270 = f335;;
let i334 s =
let t = Extprot.Reader.IO_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 = Extprot.Reader.IO_reader.read_vint s in
let e247 = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let () = Extprot.Limits.check_num_elements ~message: "t330" nelms in
let () = Extprot.Limits.check_message_length ~message: "t330" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let t329 =
if nelms >= 1
then
(try Extprot.Reader.IO_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "t330"
~constructor: "<d249>" ~field: "t329" e l248)
else
Extprot.Error.missing_field ~message: "t330"
~constructor: "<d249>" ~field: "t329" () in
let b242 =
if nelms >= 2
then
(try B229.i266 s
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "t330"
~constructor: "<d249>" ~field: "b242" e l248)
else !B229.b243 ()
in { t329 = t329; b242 = b242; }
in (Extprot.Reader.IO_reader.skip_to s e247; v)
with | e -> (Extprot.Reader.IO_reader.skip_to s e247; raise e))
| t75 -> Extprot.Error.unknown_tag ~message: "t330" t75)
else
(let r252 () =
Extprot.Error.bad_wire_type ~message: "t330"
~ll_type: (Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
(match Extprot.Codec.ll_type t with
| Extprot.Codec.Vint -> Extprot.Reader.IO_reader.read_raw_rel_int s
| _ -> r252 ()) in
let v1 = !B229.b243 () in { t329 = v0; b242 = v1; }
| t75 -> Extprot.Error.unknown_tag ~message: "t330" t75);;
let i269 = i334;;
let w336 b m276 =
let a277 = Extprot.Msg_buffer.create () in
let nelms = 2
in
(Extprot.Msg_buffer.add_tuple_prefix b 0;
Extprot.Msg_buffer.write_relative_int a277 m276.t329;
B229.w275 a277 m276.b242;
Extprot.Msg_buffer.add_vint b ((Extprot.Msg_buffer.length a277) + 1);
Extprot.Msg_buffer.add_vint b nelms;
Extprot.Msg_buffer.add_buffer b a277;
Extprot.Msg_buffer.discard a277);;
let w279 = w336;;
end;;
module T337 =
struct
type _338 = { l237 : B229.b242 };;
type t339 = { l237 : B229.b242 };;
let t340 : (unit -> t339) ref =
ref (fun () -> { l237 = !B229.b243 (); });;
let p341 pp =
Extprot.Pretty_print.pp_struct
[ ("T337.l237",
(Extprot.Pretty_print.pp_field (fun t -> t.l237) B229.p244)) ]
pp;;
let pp = p341;;
let r342 s =
let t = Extprot.Reader.String_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 = Extprot.Reader.String_reader.read_vint s in
let e247 = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let () = Extprot.Limits.check_num_elements ~message: "t339" nelms in
let () = Extprot.Limits.check_message_length ~message: "t339" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let l237 =
if nelms >= 1
then
(try B229.r245 s
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "t339"
~constructor: "<d249>" ~field: "l237" e l248)
else !B229.b243 ()
in { l237 = l237; }
in (Extprot.Reader.String_reader.skip_to s e247; v)
with | e -> (Extprot.Reader.String_reader.skip_to s e247; raise e))
| t75 -> Extprot.Error.unknown_tag ~message: "t339" t75)
else
(let r252 () =
Extprot.Error.bad_wire_type ~message: "t339" ~ll_type: (Extprot.Codec.ll_type t)
()
in
match Extprot.Codec.ll_tag t with
| 0 -> let v0 = r252 () in { l237 = v0; }
| t75 -> Extprot.Error.unknown_tag ~message: "t339" t75);;
let i343 io = r342 (Extprot.Reader.String_reader.from_io_reader io);;
let f344 = i343;;
let r268 = r342;;
let i269 = i343;;
let f270 = f344;;
let i343 s =
let t = Extprot.Reader.IO_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 = Extprot.Reader.IO_reader.read_vint s in
let e247 = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let () = Extprot.Limits.check_num_elements ~message: "t339" nelms in
let () = Extprot.Limits.check_message_length ~message: "t339" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let l237 =
if nelms >= 1
then
(try B229.i266 s
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "t339"
~constructor: "<d249>" ~field: "l237" e l248)
else !B229.b243 ()
in { l237 = l237; }
in (Extprot.Reader.IO_reader.skip_to s e247; v)
with | e -> (Extprot.Reader.IO_reader.skip_to s e247; raise e))
| t75 -> Extprot.Error.unknown_tag ~message: "t339" t75)
else
(let r252 () =
Extprot.Error.bad_wire_type ~message: "t339" ~ll_type: (Extprot.Codec.ll_type t)
()
in
match Extprot.Codec.ll_tag t with
| 0 -> let v0 = r252 () in { l237 = v0; }
| t75 -> Extprot.Error.unknown_tag ~message: "t339" t75);;
let i269 = i343;;
let w345 b m276 =
let a277 = Extprot.Msg_buffer.create () in
let nelms = 1
in
(Extprot.Msg_buffer.add_tuple_prefix b 0;
B229.w275 a277 m276.l237;
Extprot.Msg_buffer.add_vint b ((Extprot.Msg_buffer.length a277) + 1);
Extprot.Msg_buffer.add_vint b nelms;
Extprot.Msg_buffer.add_buffer b a277;
Extprot.Msg_buffer.discard a277);;
let w279 = w345;;
end;;
module B346 =
struct
type _347 =
{ n233 : int; n234 : int; e69 : E68.e69;
l237 : L174.l175; c91 : int; t236 : string; o219 : O218.o219;
d348 : float Maybe.maybe; c232 : int Maybe.maybe;
s211 : S205.s206
};;
type b349 =
{ n233 : int; n234 : int; e69 : E68.e69;
l237 : L174.l175; c91 : int; t236 : string; o219 : O218.o219;
d348 : float Maybe.maybe; c232 : int Maybe.maybe;
s211 : S205.s206
};;
let b350 : (unit -> b349) ref =
ref (fun () -> Extprot.Error.missing_field ~message: "b349" ());;
let p351 pp =
Extprot.Pretty_print.pp_struct
[ ("B346.n233",
(Extprot.Pretty_print.pp_field (fun t -> t.n233) Extprot.Pretty_print.pp_int));
("n234",
(Extprot.Pretty_print.pp_field (fun t -> t.n234) Extprot.Pretty_print.pp_int));
("e69", (Extprot.Pretty_print.pp_field (fun t -> t.e69) E68.p73));
("l237", (Extprot.Pretty_print.pp_field (fun t -> t.l237) L174.p189));
("c91", (Extprot.Pretty_print.pp_field (fun t -> t.c91) Extprot.Pretty_print.pp_int));
("t236",
(Extprot.Pretty_print.pp_field (fun t -> t.t236) Extprot.Pretty_print.pp_string));
("o219", (Extprot.Pretty_print.pp_field (fun t -> t.o219) O218.p223));
("d348",
(Extprot.Pretty_print.pp_field (fun t -> t.d348)
(Maybe.pp_maybe Extprot.Pretty_print.pp_float)));
("c232",
(Extprot.Pretty_print.pp_field (fun t -> t.c232)
(Maybe.pp_maybe Extprot.Pretty_print.pp_int)));
("s211",
(Extprot.Pretty_print.pp_field (fun t -> t.s211) S205.p207)) ]
pp;;
let pp = p351;;
let r352 s =
let t = Extprot.Reader.String_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 = Extprot.Reader.String_reader.read_vint s in
let e247 = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let () = Extprot.Limits.check_num_elements ~message: "b349" nelms in
let () = Extprot.Limits.check_message_length ~message: "b349" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let n233 =
if nelms >= 1
then
(try Extprot.Reader.String_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "b349"
~constructor: "<d249>" ~field: "n233" e l248)
else
Extprot.Error.missing_field ~message: "b349"
~constructor: "<d249>" ~field: "n233" () in
let n234 =
if nelms >= 2
then
(try Extprot.Reader.String_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "b349"
~constructor: "<d249>" ~field: "n234" e l248)
else
Extprot.Error.missing_field ~message: "b349"
~constructor: "<d249>" ~field: "n234" () in
let e69 =
if nelms >= 3
then
(try
let t = Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> E68.R70
| 1 -> E68.U71
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.String_reader.read_vint s in
let e250' = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then Extprot.Reader.String_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "e69" 0
in E68.E72 v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.String_reader.skip_to s e250'; v)
| Extprot.Codec.Bytes ->
E68.E72 (Extprot.Reader.String_reader.read_raw_string s)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b349"
~constructor: "<d249>" ~field: "e69" e l248)
else E68.R70 in
let l237 =
if nelms >= 4
then
(try
let t = Extprot.Reader.String_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 = Extprot.Reader.String_reader.read_vint s in
let e247 = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let () =
Extprot.Limits.check_num_elements ~message: "l175" nelms in
let () =
Extprot.Limits.check_message_length ~message: "l175" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let l176 =
if nelms >= 1
then
(try Extprot.Reader.String_reader.read_float s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "l176" e l248)
else
Extprot.Error.missing_field
~message: "b349"
~constructor: "<d249>"
~field: "l176" () in
let l177 =
if nelms >= 2
then
(try Extprot.Reader.String_reader.read_float s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "l177" e l248)
else
Extprot.Error.missing_field
~message: "b349"
~constructor: "<d249>"
~field: "l177" () in
let l178 =
if nelms >= 3
then
(try
let t =
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.String_reader.read_vint
s in
let e250' =
Extprot.Reader.String_reader.offset s
l246 in
let nelms =
Extprot.Reader.String_reader.read_vint
s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_float s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "l178" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.String_reader.skip_to s
e250';
v)
| Extprot.Codec.Bits64_float ->
Maybe.Some
(Extprot.Reader.String_reader.read_raw_float s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "l178" e l248)
else Maybe.None in
let s179 =
if nelms >= 4
then
(try Extprot.Reader.String_reader.read_bool s
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "s179" e l248)
else false in
let o180 =
if nelms >= 5
then
(try Extprot.Reader.String_reader.read_bool s
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "o180" e l248)
else false in
let l94 =
if nelms >= 6
then
(try
let t =
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> L93.F96
| 1 -> L93.F97
| 2 -> L93.C98
| 3 -> L93.A99
| 4 -> L93.R100
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.String_reader.read_vint
s in
let e250' =
Extprot.Reader.String_reader.offset s
l246 in
let nelms =
Extprot.Reader.String_reader.read_vint
s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_rel_int s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "l94" 0
in L93.R95 v0
| 1 ->
let v0
=
if nelms >= 1
then
(let t
=
Extprot.Reader.String_reader.read_prefix s
in
if
(Extprot.Codec.ll_type t) =
Extprot.Codec.Tuple
then
(let l246
=
Extprot.Reader.String_reader.read_vint s in
let e247
=
Extprot.Reader.String_reader.offset s l246 in
let nelms
=
Extprot.Reader.String_reader.read_vint s in
let () =
Extprot.Limits.check_num_elements
~message: "h81" nelms in
let () =
Extprot.Limits.check_message_length
~message: "h81" l246
in
match Extprot.Codec.ll_tag t
with
|
0 ->
(try
let v
=
let n82
=
if nelms >= 1
then
(try
Extprot.Reader.String_reader.read_bool s
with
|
Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)), l248)) ->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "n82" e l248)
else false in
let a83
=
if nelms >= 2
then
(try
let t
=
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t
with
|
0 -> Maybe.None
|
t75 ->
Extprot.Error.unknown_tag t75)
|
Extprot.Codec.Tuple ->
let l246
=
Extprot.Reader.String_reader.read_vint s in
let e250'
=
Extprot.Reader.String_reader.offset s l246 in
let nelms
=
Extprot.Reader.String_reader.read_vint s in
let v
=
(match Extprot.Codec.ll_tag t
with
|
0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "a83" 0
in Maybe.Some v0
|
t75 ->
Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.String_reader.skip_to s e250';
v)
|
Extprot.Codec.Bytes ->
Maybe.Some
(Extprot.Reader.String_reader.read_raw_string s)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ()
with
|
Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)), l248)) ->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "a83" e l248)
else Maybe.None in
let a84
=
if nelms >= 3
then
(try
Extprot.Reader.String_reader.read_string s
with
|
Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "a84" e l248)
else
Extprot.Error.missing_field
~message: "b349"
~constructor: "<d249>"
~field: "a84" () in
let c85
=
if nelms >= 4
then
(try
let t
=
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t
with
|
0 -> Maybe.None
|
t75 ->
Extprot.Error.unknown_tag t75)
|
Extprot.Codec.Tuple ->
let l246
=
Extprot.Reader.String_reader.read_vint s in
let e250'
=
Extprot.Reader.String_reader.offset s l246 in
let nelms
=
Extprot.Reader.String_reader.read_vint s in
let v
=
(match Extprot.Codec.ll_tag t
with
|
0 ->
let v0
=
if nelms >= 1
then
(let t
=
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Tuple ->
let l246
=
Extprot.Reader.String_reader.read_vint s in
let e250
=
Extprot.Reader.String_reader.offset s l246 in
let nelms
=
Extprot.Reader.String_reader.read_vint s in
let v
=
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "c85" 0 in
let v1
=
if nelms >= 2
then
Extprot.Reader.String_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "c85" 1
in v0, v1
in
(Extprot.Reader.String_reader.skip_to s e250;
v)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ())
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "c85" 0
in Maybe.Some v0
|
t75 ->
Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.String_reader.skip_to s e250';
v)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ()
with
|
Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)), l248)) ->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "c85" e l248)
else Maybe.None in
let t86
=
if nelms >= 5
then
(try
let t
=
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Htuple ->
let l246
=
Extprot.Reader.String_reader.read_vint s in
let e251
=
Extprot.Reader.String_reader.offset s l246 in
let nelms
=
Extprot.Reader.String_reader.read_vint s in
let () =
Extprot.Limits.check_message_length l246 in
let () =
Extprot.Limits.check_num_elements nelms in
let v
=
Array.init nelms
(fun _ ->
let t
=
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Tuple ->
let l246
=
Extprot.Reader.String_reader.read_vint s in
let e250'
=
Extprot.Reader.String_reader.offset s l246 in
let nelms
=
Extprot.Reader.String_reader.read_vint s in
let v
=
(match Extprot.Codec.ll_tag t
with
|
0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "t86" 0
in T74.T74 v0
|
1 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "t86" 0
in T74.C76 v0
|
2 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "t86" 0
in T74.T77 v0
|
3 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "t86" 0
in T74.I78 v0
|
t75 ->
Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.String_reader.skip_to s e250';
v)
|
Extprot.Codec.Bytes ->
T74.T74
(Extprot.Reader.String_reader.read_raw_string s)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ())
in
(Extprot.Reader.String_reader.skip_to s e251;
v)
|
ty ->
Extprot.Error.bad_wire_type
~ll_type: ty ()
with
|
Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)), l248)) ->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "t86" e l248)
else [| |]
in
{
H80.n82 = n82;
H80.a83 = a83;
H80.a84 = a84;
H80.c85 = c85;
H80.t86 = t86;
}
in
(Extprot.Reader.String_reader.skip_to s e247;
v)
with
|
e ->
(Extprot.Reader.String_reader.skip_to s e247;
raise e))
|
t75 ->
Extprot.Error.unknown_tag
~message: "h81" t75)
else
(let r252
() =
Extprot.Error.bad_wire_type
~message: "h81"
~ll_type:
(Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t
with
|
0 ->
let v0
=
(match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Bits8 ->
Extprot.Reader.String_reader.read_raw_bool s
|
_ -> r252 ()) in
let v1 = Maybe.None in
let v2
=
Extprot.Error.missing_field
~message: "b349"
~constructor: "<d249>"
~field: "a84" () in
let v3 = Maybe.None in
let v4 = [| |]
in
{
H80.n82 = v0;
H80.a83 = v1;
H80.a84 = v2;
H80.c85 = v3;
H80.t86 = v4;
}
|
t75 ->
Extprot.Error.unknown_tag
~message: "h81" t75))
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "l94" 0
in L93.H80 v0
| 2 ->
let v0
=
if nelms >= 1
then
(let t
=
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Htuple ->
let l246
=
Extprot.Reader.String_reader.read_vint s in
let e251
=
Extprot.Reader.String_reader.offset s l246 in
let nelms
=
Extprot.Reader.String_reader.read_vint s in
let () =
Extprot.Limits.check_message_length l246 in
let () =
Extprot.Limits.check_num_elements nelms in
let v
=
let rec l353
a254 =
(function
|
0 -> List.rev a254
|
n ->
let v
=
let t
=
Extprot.Reader.String_reader.read_prefix s
in
if
(Extprot.Codec.ll_type t) =
Extprot.Codec.Tuple
then
(let l246
=
Extprot.Reader.String_reader.read_vint s in
let e247
=
Extprot.Reader.String_reader.offset s l246 in
let nelms
=
Extprot.Reader.String_reader.read_vint s in
let () =
Extprot.Limits.check_num_elements
~message: "r89"
nelms in
let () =
Extprot.Limits.check_message_length
~message: "r89"
l246
in
match Extprot.Codec.ll_tag t
with
|
0 ->
(try
let v
=
let u90
=
if nelms >= 1
then
(try
Extprot.Reader.String_reader.read_string s
with
|
Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "u90" e l248)
else
Extprot.Error.missing_field
~message: "b349"
~constructor: "<d249>"
~field: "u90" () in
let c91
=
if nelms >= 2
then
(try
Extprot.Reader.String_reader.read_rel_int s
with
|
Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "c91" e l248)
else
Extprot.Error.missing_field
~message: "b349"
~constructor: "<d249>"
~field: "c91" ()
in
{
R88.u90 = u90;
R88.c91 = c91;
}
in
(Extprot.Reader.String_reader.skip_to s e247;
v)
with
|
e ->
(Extprot.Reader.String_reader.skip_to s e247;
raise e))
|
t75 ->
Extprot.Error.unknown_tag
~message: "r89"
t75)
else
(let r252
() =
Extprot.Error.bad_wire_type
~message: "r89"
~ll_type:
(Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t
with
|
0 ->
let v0
=
(match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Bytes ->
Extprot.Reader.String_reader.read_raw_string s
|
_ -> r252 ()) in
let v1
=
Extprot.Error.missing_field
~message: "b349"
~constructor: "<d249>"
~field: "c91" ()
in
{
R88.u90 = v0;
R88.c91 = v1;
}
|
t75 ->
Extprot.Error.unknown_tag
~message: "r89"
t75)
in l353 (v :: a254) (n - 1))
in l353 [] nelms
in
(Extprot.Reader.String_reader.skip_to s e251;
v)
|
ty ->
Extprot.Error.bad_wire_type
~ll_type: ty ())
else []
in
L93.R101
v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.String_reader.skip_to s
e250';
v)
| Extprot.Codec.Vint ->
L93.R95
(Extprot.Reader.String_reader.read_raw_rel_int s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "l94" e l248)
else L93.F96 in
let o181 =
if nelms >= 7
then
(try
let t =
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.String_reader.read_vint
s in
let e250' =
Extprot.Reader.String_reader.offset s
l246 in
let nelms =
Extprot.Reader.String_reader.read_vint
s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_rel_int s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "o181" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.String_reader.skip_to s
e250';
v)
| Extprot.Codec.Vint ->
Maybe.Some
(Extprot.Reader.String_reader.read_raw_rel_int s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "o181" e l248)
else Maybe.None in
let c182 =
if nelms >= 8
then
(try
let t =
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.String_reader.read_vint
s in
let e250' =
Extprot.Reader.String_reader.offset s
l246 in
let nelms =
Extprot.Reader.String_reader.read_vint
s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_bool s
else false
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.String_reader.skip_to s
e250';
v)
| Extprot.Codec.Bits8 ->
Maybe.Some
(Extprot.Reader.String_reader.read_raw_bool s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "c182" e l248)
else Maybe.None in
let l183 =
if nelms >= 9
then
(try
let t =
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.String_reader.read_vint
s in
let e250' =
Extprot.Reader.String_reader.offset s
l246 in
let nelms =
Extprot.Reader.String_reader.read_vint
s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_float s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "l183" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.String_reader.skip_to s
e250';
v)
| Extprot.Codec.Bits64_float ->
Maybe.Some
(Extprot.Reader.String_reader.read_raw_float s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "l183" e l248)
else Maybe.None in
let r184 =
if nelms >= 10
then
(try
let t =
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.String_reader.read_vint
s in
let e250' =
Extprot.Reader.String_reader.offset s
l246 in
let nelms =
Extprot.Reader.String_reader.read_vint
s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_bool s
else false
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.String_reader.skip_to s
e250';
v)
| Extprot.Codec.Bits8 ->
Maybe.Some
(Extprot.Reader.String_reader.read_raw_bool s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "r184" e l248)
else Maybe.None in
let l185 =
if nelms >= 11
then
(try
let t =
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.String_reader.read_vint
s in
let e250' =
Extprot.Reader.String_reader.offset s
l246 in
let nelms =
Extprot.Reader.String_reader.read_vint
s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_float s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "l185" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.String_reader.skip_to s
e250';
v)
| Extprot.Codec.Bits64_float ->
Maybe.Some
(Extprot.Reader.String_reader.read_raw_float s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "l185" e l248)
else Maybe.None in
let d134 =
if nelms >= 12
then
(try
let t =
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.String_reader.read_vint
s in
let e250' =
Extprot.Reader.String_reader.offset s
l246 in
let nelms =
Extprot.Reader.String_reader.read_vint
s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
(let t
=
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t
with
|
0 -> D133.M135
|
1 -> D133.N136
|
2 -> D133.N137
|
3 -> D133.T138
|
4 -> D133.O139
|
5 -> D133.R140
|
6 -> D133.D141
|
7 -> D133.N142
|
8 -> D133.M143
|
9 -> D133.B144
|
10 -> D133.D145
|
t75 ->
Extprot.Error.unknown_tag t75)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ())
else D133.M135
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.String_reader.skip_to s
e250';
v)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "d134" e l248)
else Maybe.None in
let n186 =
if nelms >= 13
then
(try
let t =
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.String_reader.read_vint
s in
let e250' =
Extprot.Reader.String_reader.offset s
l246 in
let nelms =
Extprot.Reader.String_reader.read_vint
s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_bool s
else false
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.String_reader.skip_to s
e250';
v)
| Extprot.Codec.Bits8 ->
Maybe.Some
(Extprot.Reader.String_reader.read_raw_bool s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "n186" e l248)
else Maybe.None in
let r187 =
if nelms >= 14
then
(try
let t =
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Htuple ->
let l246 =
Extprot.Reader.String_reader.read_vint
s in
let e251 =
Extprot.Reader.String_reader.offset s
l246 in
let nelms =
Extprot.Reader.String_reader.read_vint
s in
let () =
Extprot.Limits.check_message_length l246 in
let () =
Extprot.Limits.check_num_elements nelms in
let v =
let rec l354
a254 =
(function
| 0 -> List.rev a254
| n ->
let v
=
let t
=
Extprot.Reader.String_reader.read_prefix s
in
if
(Extprot.Codec.ll_type t) =
Extprot.Codec.Tuple
then
(let l246
=
Extprot.Reader.String_reader.read_vint s in
let e247
=
Extprot.Reader.String_reader.offset s l246 in
let nelms
=
Extprot.Reader.String_reader.read_vint s in
let () =
Extprot.Limits.check_num_elements
~message: "r89"
nelms in
let () =
Extprot.Limits.check_message_length
~message: "r89"
l246
in
match Extprot.Codec.ll_tag t
with
|
0 ->
(try
let v
=
let u90
=
if nelms >= 1
then
(try
Extprot.Reader.String_reader.read_string s
with
|
Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "u90" e l248)
else
Extprot.Error.missing_field
~message: "b349"
~constructor: "<d249>"
~field: "u90" () in
let c91
=
if nelms >= 2
then
(try
Extprot.Reader.String_reader.read_rel_int s
with
|
Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "c91" e l248)
else
Extprot.Error.missing_field
~message: "b349"
~constructor: "<d249>"
~field: "c91" ()
in
{
R88.u90 = u90;
R88.c91 = c91;
}
in
(Extprot.Reader.String_reader.skip_to s e247;
v)
with
|
e ->
(Extprot.Reader.String_reader.skip_to s e247;
raise e))
|
t75 ->
Extprot.Error.unknown_tag
~message: "r89"
t75)
else
(let r252
() =
Extprot.Error.bad_wire_type
~message: "r89"
~ll_type:
(Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t
with
|
0 ->
let v0
=
(match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Bytes ->
Extprot.Reader.String_reader.read_raw_string s
|
_ -> r252 ()) in
let v1
=
Extprot.Error.missing_field
~message: "b349"
~constructor: "<d249>"
~field: "c91" ()
in
{
R88.u90 = v0;
R88.c91 = v1;
}
|
t75 ->
Extprot.Error.unknown_tag
~message: "r89"
t75)
in l354 (v :: a254) (n - 1))
in l354 [] nelms
in
(Extprot.Reader.String_reader.skip_to s
e251;
v)
| ty ->
Extprot.Error.bad_wire_type
~ll_type: ty ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "r187" e l248)
else [] in
let c172 =
if nelms >= 15
then
(try
let t =
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> C171.V0
| 1 -> C171.V1
| t75 -> Extprot.Error.unknown_tag t75)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "c172" e l248)
else C171.V0 in
let r188 =
if nelms >= 16
then
(try
let t =
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.String_reader.read_vint
s in
let e250' =
Extprot.Reader.String_reader.offset s
l246 in
let nelms =
Extprot.Reader.String_reader.read_vint
s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.String_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "r188" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.String_reader.skip_to s
e250';
v)
| Extprot.Codec.Bytes ->
Maybe.Some
(Extprot.Reader.String_reader.read_raw_string s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "r188" e l248)
else Maybe.None
in
{
L174.l176 = l176;
L174.l177 = l177;
L174.l178 = l178;
L174.s179 = s179;
L174.o180 = o180;
L174.l94 = l94;
L174.o181 = o181;
L174.c182 = c182;
L174.l183 = l183;
L174.r184 = r184;
L174.l185 = l185;
L174.d134 = d134;
L174.n186 = n186;
L174.r187 = r187;
L174.c172 = c172;
L174.r188 = r188;
}
in (Extprot.Reader.String_reader.skip_to s e247; v)
with
| e ->
(Extprot.Reader.String_reader.skip_to s e247; raise e))
| t75 -> Extprot.Error.unknown_tag ~message: "l175" t75)
else
(let r252 () =
Extprot.Error.bad_wire_type ~message: "l175"
~ll_type: (Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
(match Extprot.Codec.ll_type t with
| Extprot.Codec.Bits64_float ->
Extprot.Reader.String_reader.read_raw_float s
| _ -> r252 ()) in
let v1 =
Extprot.Error.missing_field
~message: "b349" ~constructor: "<d249>"
~field: "l177" () in
let v2 = Maybe.None in
let v3 = false in
let v4 = false in
let v5 = L93.F96 in
let v6 = Maybe.None in
let v7 = Maybe.None in
let v8 = Maybe.None in
let v9 = Maybe.None in
let v256 = Maybe.None in
let v257 = Maybe.None in
let v258 = Maybe.None in
let v259 = [] in
let v260 = C171.V0 in
let v261 = Maybe.None
in
{
L174.l176 = v0;
L174.l177 = v1;
L174.l178 = v2;
L174.s179 = v3;
L174.o180 = v4;
L174.l94 = v5;
L174.o181 = v6;
L174.c182 = v7;
L174.l183 = v8;
L174.r184 = v9;
L174.l185 = v256;
L174.d134 = v257;
L174.n186 = v258;
L174.r187 = v259;
L174.c172 = v260;
L174.r188 = v261;
}
| t75 -> Extprot.Error.unknown_tag ~message: "l175" t75)
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "b349"
~constructor: "<d249>" ~field: "l237" e l248)
else
Extprot.Error.missing_field ~message: "b349"
~constructor: "<d249>" ~field: "l237" () in
let c91 =
if nelms >= 5
then
(try Extprot.Reader.String_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "b349"
~constructor: "<d249>" ~field: "c91" e l248)
else
Extprot.Error.missing_field ~message: "b349"
~constructor: "<d249>" ~field: "c91" () in
let t236 =
if nelms >= 6
then
(try Extprot.Reader.String_reader.read_string s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "b349"
~constructor: "<d249>" ~field: "t236" e l248)
else
Extprot.Error.missing_field ~message: "b349"
~constructor: "<d249>" ~field: "t236" () in
let o219 =
if nelms >= 7
then
(try
let t = Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> O218.R220
| 1 -> O218.D221
| 2 -> O218.F222
| 3 -> O218.R107
| t75 -> Extprot.Error.unknown_tag t75)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b349"
~constructor: "<d249>" ~field: "o219" e l248)
else O218.R220 in
let d348 =
if nelms >= 8
then
(try
let t = Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.String_reader.read_vint s in
let e250' = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then Extprot.Reader.String_reader.read_float s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "d348" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.String_reader.skip_to s e250'; v)
| Extprot.Codec.Bits64_float ->
Maybe.Some (Extprot.Reader.String_reader.read_raw_float s)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b349"
~constructor: "<d249>" ~field: "d348" e l248)
else Maybe.None in
let c232 =
if nelms >= 9
then
(try
let t = Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.String_reader.read_vint s in
let e250' = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then Extprot.Reader.String_reader.read_rel_int s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "c232" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.String_reader.skip_to s e250'; v)
| Extprot.Codec.Vint ->
Maybe.Some (Extprot.Reader.String_reader.read_raw_rel_int s)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b349"
~constructor: "<d249>" ~field: "c232" e l248)
else Maybe.None in
let s211 =
if nelms >= 10
then
(try
let t = Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Htuple ->
let l246 = Extprot.Reader.String_reader.read_vint s in
let e251 = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let () = Extprot.Limits.check_message_length l246 in
let () = Extprot.Limits.check_num_elements nelms in
let v =
Array.init nelms
(fun _ ->
let t = Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> S200.E202
| 1 -> S200.E128
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.String_reader.read_vint s in
let e250' =
Extprot.Reader.String_reader.offset s l246 in
let nelms =
Extprot.Reader.String_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then
Extprot.Reader.String_reader.read_rel_int s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "s211" 0
in S200.C203 v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.String_reader.skip_to s e250'; v)
| Extprot.Codec.Vint ->
S200.C203
(Extprot.Reader.String_reader.read_raw_rel_int s)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ())
in (Extprot.Reader.String_reader.skip_to s e251; v)
| ty -> Extprot.Error.bad_wire_type ~ll_type: ty ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b349"
~constructor: "<d249>" ~field: "s211" e l248)
else [| |]
in
{
n233 = n233;
n234 = n234;
e69 = e69;
l237 = l237;
c91 = c91;
t236 = t236;
o219 = o219;
d348 = d348;
c232 = c232;
s211 = s211;
}
in (Extprot.Reader.String_reader.skip_to s e247; v)
with | e -> (Extprot.Reader.String_reader.skip_to s e247; raise e))
| t75 -> Extprot.Error.unknown_tag ~message: "b349" t75)
else
(let r252 () =
Extprot.Error.bad_wire_type ~message: "b349" ~ll_type: (Extprot.Codec.ll_type t)
()
in
match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
(match Extprot.Codec.ll_type t with
| Extprot.Codec.Vint -> Extprot.Reader.String_reader.read_raw_rel_int s
| _ -> r252 ()) in
let v1 =
Extprot.Error.missing_field ~message: "b349"
~constructor: "<d249>" ~field: "n234" () in
let v2 = E68.R70 in
let v3 =
Extprot.Error.missing_field ~message: "b349"
~constructor: "<d249>" ~field: "l237" () in
let v4 =
Extprot.Error.missing_field ~message: "b349"
~constructor: "<d249>" ~field: "c91" () in
let v5 =
Extprot.Error.missing_field ~message: "b349"
~constructor: "<d249>" ~field: "t236" () in
let v6 = O218.R220 in
let v7 = Maybe.None in
let v8 = Maybe.None in
let v9 = [| |]
in
{
n233 = v0;
n234 = v1;
e69 = v2;
l237 = v3;
c91 = v4;
t236 = v5;
o219 = v6;
d348 = v7;
c232 = v8;
s211 = v9;
}
| t75 -> Extprot.Error.unknown_tag ~message: "b349" t75);;
let i355 io = r352 (Extprot.Reader.String_reader.from_io_reader io);;
let f356 = i355;;
let r268 = r352;;
let i269 = i355;;
let f270 = f356;;
let i355 s =
let t = Extprot.Reader.IO_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 = Extprot.Reader.IO_reader.read_vint s in
let e247 = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let () = Extprot.Limits.check_num_elements ~message: "b349" nelms in
let () = Extprot.Limits.check_message_length ~message: "b349" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let n233 =
if nelms >= 1
then
(try Extprot.Reader.IO_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "b349"
~constructor: "<d249>" ~field: "n233" e l248)
else
Extprot.Error.missing_field ~message: "b349"
~constructor: "<d249>" ~field: "n233" () in
let n234 =
if nelms >= 2
then
(try Extprot.Reader.IO_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "b349"
~constructor: "<d249>" ~field: "n234" e l248)
else
Extprot.Error.missing_field ~message: "b349"
~constructor: "<d249>" ~field: "n234" () in
let e69 =
if nelms >= 3
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> E68.R70
| 1 -> E68.U71
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.IO_reader.read_vint s in
let e250' = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then Extprot.Reader.IO_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "e69" 0
in E68.E72 v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.IO_reader.skip_to s e250'; v)
| Extprot.Codec.Bytes ->
E68.E72 (Extprot.Reader.IO_reader.read_raw_string s)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b349"
~constructor: "<d249>" ~field: "e69" e l248)
else E68.R70 in
let l237 =
if nelms >= 4
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 = Extprot.Reader.IO_reader.read_vint s in
let e247 = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let () =
Extprot.Limits.check_num_elements ~message: "l175" nelms in
let () =
Extprot.Limits.check_message_length ~message: "l175" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let l176 =
if nelms >= 1
then
(try Extprot.Reader.IO_reader.read_float s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "l176" e l248)
else
Extprot.Error.missing_field
~message: "b349"
~constructor: "<d249>"
~field: "l176" () in
let l177 =
if nelms >= 2
then
(try Extprot.Reader.IO_reader.read_float s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "l177" e l248)
else
Extprot.Error.missing_field
~message: "b349"
~constructor: "<d249>"
~field: "l177" () in
let l178 =
if nelms >= 3
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.IO_reader.read_vint s in
let e250' =
Extprot.Reader.IO_reader.offset s l246 in
let nelms =
Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_float s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "l178" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.IO_reader.skip_to s
e250';
v)
| Extprot.Codec.Bits64_float ->
Maybe.Some
(Extprot.Reader.IO_reader.read_raw_float s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "l178" e l248)
else Maybe.None in
let s179 =
if nelms >= 4
then
(try Extprot.Reader.IO_reader.read_bool s
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "s179" e l248)
else false in
let o180 =
if nelms >= 5
then
(try Extprot.Reader.IO_reader.read_bool s
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "o180" e l248)
else false in
let l94 =
if nelms >= 6
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> L93.F96
| 1 -> L93.F97
| 2 -> L93.C98
| 3 -> L93.A99
| 4 -> L93.R100
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.IO_reader.read_vint s in
let e250' =
Extprot.Reader.IO_reader.offset s l246 in
let nelms =
Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_rel_int s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "l94" 0
in L93.R95 v0
| 1 ->
let v0
=
if nelms >= 1
then
(let t
=
Extprot.Reader.IO_reader.read_prefix s
in
if
(Extprot.Codec.ll_type t) =
Extprot.Codec.Tuple
then
(let l246
=
Extprot.Reader.IO_reader.read_vint s in
let e247
=
Extprot.Reader.IO_reader.offset
s l246 in
let nelms
=
Extprot.Reader.IO_reader.read_vint s in
let () =
Extprot.Limits.check_num_elements
~message: "h81" nelms in
let () =
Extprot.Limits.check_message_length
~message: "h81" l246
in
match Extprot.Codec.ll_tag t
with
|
0 ->
(try
let v
=
let n82
=
if nelms >= 1
then
(try
Extprot.Reader.IO_reader.read_bool s
with
|
Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)), l248)) ->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "n82" e l248)
else false in
let a83
=
if nelms >= 2
then
(try
let t
=
Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t
with
|
0 -> Maybe.None
|
t75 ->
Extprot.Error.unknown_tag t75)
|
Extprot.Codec.Tuple ->
let l246
=
Extprot.Reader.IO_reader.read_vint s in
let e250'
=
Extprot.Reader.IO_reader.offset
s l246 in
let nelms
=
Extprot.Reader.IO_reader.read_vint s in
let v
=
(match Extprot.Codec.ll_tag t
with
|
0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "a83" 0
in Maybe.Some v0
|
t75 ->
Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.IO_reader.skip_to s e250';
v)
|
Extprot.Codec.Bytes ->
Maybe.Some
(Extprot.Reader.IO_reader.read_raw_string s)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ()
with
|
Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)), l248)) ->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "a83" e l248)
else Maybe.None in
let a84
=
if nelms >= 3
then
(try
Extprot.Reader.IO_reader.read_string s
with
|
Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "a84" e l248)
else
Extprot.Error.missing_field
~message: "b349"
~constructor: "<d249>"
~field: "a84" () in
let c85
=
if nelms >= 4
then
(try
let t
=
Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t
with
|
0 -> Maybe.None
|
t75 ->
Extprot.Error.unknown_tag t75)
|
Extprot.Codec.Tuple ->
let l246
=
Extprot.Reader.IO_reader.read_vint s in
let e250'
=
Extprot.Reader.IO_reader.offset
s l246 in
let nelms
=
Extprot.Reader.IO_reader.read_vint s in
let v
=
(match Extprot.Codec.ll_tag t
with
|
0 ->
let v0
=
if nelms >= 1
then
(let t
=
Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Tuple ->
let l246
=
Extprot.Reader.IO_reader.read_vint s in
let e250
=
Extprot.Reader.IO_reader.offset
s l246 in
let nelms
=
Extprot.Reader.IO_reader.read_vint s in
let v
=
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "c85" 0 in
let v1
=
if nelms >= 2
then
Extprot.Reader.IO_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "c85" 1
in v0, v1
in
(Extprot.Reader.IO_reader.skip_to s e250;
v)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ())
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "c85" 0
in Maybe.Some v0
|
t75 ->
Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.IO_reader.skip_to s e250';
v)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ()
with
|
Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)), l248)) ->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "c85" e l248)
else Maybe.None in
let t86
=
if nelms >= 5
then
(try
let t
=
Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Htuple ->
let l246
=
Extprot.Reader.IO_reader.read_vint s in
let e251
=
Extprot.Reader.IO_reader.offset
s l246 in
let nelms
=
Extprot.Reader.IO_reader.read_vint s in
let () =
Extprot.Limits.check_message_length l246 in
let () =
Extprot.Limits.check_num_elements nelms in
let v
=
Array.init nelms
(fun _ ->
let t
=
Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Tuple ->
let l246
=
Extprot.Reader.IO_reader.read_vint s in
let e250'
=
Extprot.Reader.IO_reader.offset
s l246 in
let nelms
=
Extprot.Reader.IO_reader.read_vint s in
let v
=
(match Extprot.Codec.ll_tag t
with
|
0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "t86" 0
in T74.T74 v0
|
1 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "t86" 0
in T74.C76 v0
|
2 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "t86" 0
in T74.T77 v0
|
3 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "t86" 0
in T74.I78 v0
|
t75 ->
Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.IO_reader.skip_to s e250';
v)
|
Extprot.Codec.Bytes ->
T74.T74
(Extprot.Reader.IO_reader.read_raw_string s)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ())
in
(Extprot.Reader.IO_reader.skip_to s e251;
v)
|
ty ->
Extprot.Error.bad_wire_type
~ll_type: ty ()
with
|
Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)), l248)) ->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "t86" e l248)
else [| |]
in
{
H80.n82 = n82;
H80.a83 = a83;
H80.a84 = a84;
H80.c85 = c85;
H80.t86 = t86;
}
in
(Extprot.Reader.IO_reader.skip_to s e247;
v)
with
|
e ->
(Extprot.Reader.IO_reader.skip_to s e247;
raise e))
|
t75 ->
Extprot.Error.unknown_tag
~message: "h81" t75)
else
(let r252
() =
Extprot.Error.bad_wire_type
~message: "h81"
~ll_type:
(Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t
with
|
0 ->
let v0
=
(match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Bits8 ->
Extprot.Reader.IO_reader.read_raw_bool s
|
_ -> r252 ()) in
let v1 = Maybe.None in
let v2
=
Extprot.Error.missing_field
~message: "b349"
~constructor: "<d249>"
~field: "a84" () in
let v3 = Maybe.None in
let v4 = [| |]
in
{
H80.n82 = v0;
H80.a83 = v1;
H80.a84 = v2;
H80.c85 = v3;
H80.t86 = v4;
}
|
t75 ->
Extprot.Error.unknown_tag
~message: "h81" t75))
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "l94" 0
in L93.H80 v0
| 2 ->
let v0
=
if nelms >= 1
then
(let t
=
Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Htuple ->
let l246
=
Extprot.Reader.IO_reader.read_vint s in
let e251
=
Extprot.Reader.IO_reader.offset
s l246 in
let nelms
=
Extprot.Reader.IO_reader.read_vint s in
let () =
Extprot.Limits.check_message_length l246 in
let () =
Extprot.Limits.check_num_elements nelms in
let v
=
let rec l357
a254 =
(function
|
0 -> List.rev a254
|
n ->
let v
=
let t
=
Extprot.Reader.IO_reader.read_prefix s
in
if
(Extprot.Codec.ll_type t) =
Extprot.Codec.Tuple
then
(let l246
=
Extprot.Reader.IO_reader.read_vint s in
let e247
=
Extprot.Reader.IO_reader.offset
s l246 in
let nelms
=
Extprot.Reader.IO_reader.read_vint s in
let () =
Extprot.Limits.check_num_elements
~message: "r89"
nelms in
let () =
Extprot.Limits.check_message_length
~message: "r89"
l246
in
match Extprot.Codec.ll_tag t
with
|
0 ->
(try
let v
=
let u90
=
if nelms >= 1
then
(try
Extprot.Reader.IO_reader.read_string s
with
|
Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "u90" e l248)
else
Extprot.Error.missing_field
~message: "b349"
~constructor: "<d249>"
~field: "u90" () in
let c91
=
if nelms >= 2
then
(try
Extprot.Reader.IO_reader.read_rel_int s
with
|
Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "c91" e l248)
else
Extprot.Error.missing_field
~message: "b349"
~constructor: "<d249>"
~field: "c91" ()
in
{
R88.u90 = u90;
R88.c91 = c91;
}
in
(Extprot.Reader.IO_reader.skip_to s e247;
v)
with
|
e ->
(Extprot.Reader.IO_reader.skip_to s e247;
raise e))
|
t75 ->
Extprot.Error.unknown_tag
~message: "r89"
t75)
else
(let r252
() =
Extprot.Error.bad_wire_type
~message: "r89"
~ll_type:
(Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t
with
|
0 ->
let v0
=
(match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Bytes ->
Extprot.Reader.IO_reader.read_raw_string s
|
_ -> r252 ()) in
let v1
=
Extprot.Error.missing_field
~message: "b349"
~constructor: "<d249>"
~field: "c91" ()
in
{
R88.u90 = v0;
R88.c91 = v1;
}
|
t75 ->
Extprot.Error.unknown_tag
~message: "r89"
t75)
in l357 (v :: a254) (n - 1))
in l357 [] nelms
in
(Extprot.Reader.IO_reader.skip_to s e251;
v)
|
ty ->
Extprot.Error.bad_wire_type
~ll_type: ty ())
else []
in
L93.R101
v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.IO_reader.skip_to s
e250';
v)
| Extprot.Codec.Vint ->
L93.R95
(Extprot.Reader.IO_reader.read_raw_rel_int s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "l94" e l248)
else L93.F96 in
let o181 =
if nelms >= 7
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.IO_reader.read_vint s in
let e250' =
Extprot.Reader.IO_reader.offset s l246 in
let nelms =
Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_rel_int s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "o181" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.IO_reader.skip_to s
e250';
v)
| Extprot.Codec.Vint ->
Maybe.Some
(Extprot.Reader.IO_reader.read_raw_rel_int s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "o181" e l248)
else Maybe.None in
let c182 =
if nelms >= 8
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.IO_reader.read_vint s in
let e250' =
Extprot.Reader.IO_reader.offset s l246 in
let nelms =
Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_bool s
else false
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.IO_reader.skip_to s
e250';
v)
| Extprot.Codec.Bits8 ->
Maybe.Some
(Extprot.Reader.IO_reader.read_raw_bool
s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "c182" e l248)
else Maybe.None in
let l183 =
if nelms >= 9
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.IO_reader.read_vint s in
let e250' =
Extprot.Reader.IO_reader.offset s l246 in
let nelms =
Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_float s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "l183" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.IO_reader.skip_to s
e250';
v)
| Extprot.Codec.Bits64_float ->
Maybe.Some
(Extprot.Reader.IO_reader.read_raw_float s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "l183" e l248)
else Maybe.None in
let r184 =
if nelms >= 10
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.IO_reader.read_vint s in
let e250' =
Extprot.Reader.IO_reader.offset s l246 in
let nelms =
Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_bool s
else false
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.IO_reader.skip_to s
e250';
v)
| Extprot.Codec.Bits8 ->
Maybe.Some
(Extprot.Reader.IO_reader.read_raw_bool
s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "r184" e l248)
else Maybe.None in
let l185 =
if nelms >= 11
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.IO_reader.read_vint s in
let e250' =
Extprot.Reader.IO_reader.offset s l246 in
let nelms =
Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_float s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "l185" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.IO_reader.skip_to s
e250';
v)
| Extprot.Codec.Bits64_float ->
Maybe.Some
(Extprot.Reader.IO_reader.read_raw_float s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "l185" e l248)
else Maybe.None in
let d134 =
if nelms >= 12
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.IO_reader.read_vint s in
let e250' =
Extprot.Reader.IO_reader.offset s l246 in
let nelms =
Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
(let t
=
Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t
with
|
0 -> D133.M135
|
1 -> D133.N136
|
2 -> D133.N137
|
3 -> D133.T138
|
4 -> D133.O139
|
5 -> D133.R140
|
6 -> D133.D141
|
7 -> D133.N142
|
8 -> D133.M143
|
9 -> D133.B144
|
10 -> D133.D145
|
t75 ->
Extprot.Error.unknown_tag t75)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ())
else D133.M135
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.IO_reader.skip_to s
e250';
v)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "d134" e l248)
else Maybe.None in
let n186 =
if nelms >= 13
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.IO_reader.read_vint s in
let e250' =
Extprot.Reader.IO_reader.offset s l246 in
let nelms =
Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_bool s
else false
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.IO_reader.skip_to s
e250';
v)
| Extprot.Codec.Bits8 ->
Maybe.Some
(Extprot.Reader.IO_reader.read_raw_bool
s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "n186" e l248)
else Maybe.None in
let r187 =
if nelms >= 14
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Htuple ->
let l246 =
Extprot.Reader.IO_reader.read_vint s in
let e251 =
Extprot.Reader.IO_reader.offset s l246 in
let nelms =
Extprot.Reader.IO_reader.read_vint s in
let () =
Extprot.Limits.check_message_length l246 in
let () =
Extprot.Limits.check_num_elements nelms in
let v =
let rec l358
a254 =
(function
| 0 -> List.rev a254
| n ->
let v
=
let t
=
Extprot.Reader.IO_reader.read_prefix s
in
if
(Extprot.Codec.ll_type t) =
Extprot.Codec.Tuple
then
(let l246
=
Extprot.Reader.IO_reader.read_vint s in
let e247
=
Extprot.Reader.IO_reader.offset
s l246 in
let nelms
=
Extprot.Reader.IO_reader.read_vint s in
let () =
Extprot.Limits.check_num_elements
~message: "r89"
nelms in
let () =
Extprot.Limits.check_message_length
~message: "r89"
l246
in
match Extprot.Codec.ll_tag t
with
|
0 ->
(try
let v
=
let u90
=
if nelms >= 1
then
(try
Extprot.Reader.IO_reader.read_string s
with
|
Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "u90" e l248)
else
Extprot.Error.missing_field
~message: "b349"
~constructor: "<d249>"
~field: "u90" () in
let c91
=
if nelms >= 2
then
(try
Extprot.Reader.IO_reader.read_rel_int s
with
|
Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "c91" e l248)
else
Extprot.Error.missing_field
~message: "b349"
~constructor: "<d249>"
~field: "c91" ()
in
{
R88.u90 = u90;
R88.c91 = c91;
}
in
(Extprot.Reader.IO_reader.skip_to s e247;
v)
with
|
e ->
(Extprot.Reader.IO_reader.skip_to s e247;
raise e))
|
t75 ->
Extprot.Error.unknown_tag
~message: "r89"
t75)
else
(let r252
() =
Extprot.Error.bad_wire_type
~message: "r89"
~ll_type:
(Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t
with
|
0 ->
let v0
=
(match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Bytes ->
Extprot.Reader.IO_reader.read_raw_string s
|
_ -> r252 ()) in
let v1
=
Extprot.Error.missing_field
~message: "b349"
~constructor: "<d249>"
~field: "c91" ()
in
{
R88.u90 = v0;
R88.c91 = v1;
}
|
t75 ->
Extprot.Error.unknown_tag
~message: "r89"
t75)
in l358 (v :: a254) (n - 1))
in l358 [] nelms
in
(Extprot.Reader.IO_reader.skip_to s
e251;
v)
| ty ->
Extprot.Error.bad_wire_type
~ll_type: ty ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "r187" e l248)
else [] in
let c172 =
if nelms >= 15
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> C171.V0
| 1 -> C171.V1
| t75 -> Extprot.Error.unknown_tag t75)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "c172" e l248)
else C171.V0 in
let r188 =
if nelms >= 16
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 =
Extprot.Reader.IO_reader.read_vint s in
let e250' =
Extprot.Reader.IO_reader.offset s l246 in
let nelms =
Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0
=
if nelms >= 1
then
Extprot.Reader.IO_reader.read_string s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "r188" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in
(Extprot.Reader.IO_reader.skip_to s
e250';
v)
| Extprot.Codec.Bytes ->
Maybe.Some
(Extprot.Reader.IO_reader.read_raw_string s)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "b349"
~constructor: "<d249>"
~field: "r188" e l248)
else Maybe.None
in
{
L174.l176 = l176;
L174.l177 = l177;
L174.l178 = l178;
L174.s179 = s179;
L174.o180 = o180;
L174.l94 = l94;
L174.o181 = o181;
L174.c182 = c182;
L174.l183 = l183;
L174.r184 = r184;
L174.l185 = l185;
L174.d134 = d134;
L174.n186 = n186;
L174.r187 = r187;
L174.c172 = c172;
L174.r188 = r188;
}
in (Extprot.Reader.IO_reader.skip_to s e247; v)
with
| e -> (Extprot.Reader.IO_reader.skip_to s e247; raise e))
| t75 -> Extprot.Error.unknown_tag ~message: "l175" t75)
else
(let r252 () =
Extprot.Error.bad_wire_type ~message: "l175"
~ll_type: (Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
(match Extprot.Codec.ll_type t with
| Extprot.Codec.Bits64_float ->
Extprot.Reader.IO_reader.read_raw_float s
| _ -> r252 ()) in
let v1 =
Extprot.Error.missing_field
~message: "b349" ~constructor: "<d249>"
~field: "l177" () in
let v2 = Maybe.None in
let v3 = false in
let v4 = false in
let v5 = L93.F96 in
let v6 = Maybe.None in
let v7 = Maybe.None in
let v8 = Maybe.None in
let v9 = Maybe.None in
let v256 = Maybe.None in
let v257 = Maybe.None in
let v258 = Maybe.None in
let v259 = [] in
let v260 = C171.V0 in
let v261 = Maybe.None
in
{
L174.l176 = v0;
L174.l177 = v1;
L174.l178 = v2;
L174.s179 = v3;
L174.o180 = v4;
L174.l94 = v5;
L174.o181 = v6;
L174.c182 = v7;
L174.l183 = v8;
L174.r184 = v9;
L174.l185 = v256;
L174.d134 = v257;
L174.n186 = v258;
L174.r187 = v259;
L174.c172 = v260;
L174.r188 = v261;
}
| t75 -> Extprot.Error.unknown_tag ~message: "l175" t75)
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "b349"
~constructor: "<d249>" ~field: "l237" e l248)
else
Extprot.Error.missing_field ~message: "b349"
~constructor: "<d249>" ~field: "l237" () in
let c91 =
if nelms >= 5
then
(try Extprot.Reader.IO_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "b349"
~constructor: "<d249>" ~field: "c91" e l248)
else
Extprot.Error.missing_field ~message: "b349"
~constructor: "<d249>" ~field: "c91" () in
let t236 =
if nelms >= 6
then
(try Extprot.Reader.IO_reader.read_string s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "b349"
~constructor: "<d249>" ~field: "t236" e l248)
else
Extprot.Error.missing_field ~message: "b349"
~constructor: "<d249>" ~field: "t236" () in
let o219 =
if nelms >= 7
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> O218.R220
| 1 -> O218.D221
| 2 -> O218.F222
| 3 -> O218.R107
| t75 -> Extprot.Error.unknown_tag t75)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b349"
~constructor: "<d249>" ~field: "o219" e l248)
else O218.R220 in
let d348 =
if nelms >= 8
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.IO_reader.read_vint s in
let e250' = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then Extprot.Reader.IO_reader.read_float s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "d348" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.IO_reader.skip_to s e250'; v)
| Extprot.Codec.Bits64_float ->
Maybe.Some (Extprot.Reader.IO_reader.read_raw_float s)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b349"
~constructor: "<d249>" ~field: "d348" e l248)
else Maybe.None in
let c232 =
if nelms >= 9
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> Maybe.None
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.IO_reader.read_vint s in
let e250' = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then Extprot.Reader.IO_reader.read_rel_int s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "c232" 0
in Maybe.Some v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.IO_reader.skip_to s e250'; v)
| Extprot.Codec.Vint ->
Maybe.Some (Extprot.Reader.IO_reader.read_raw_rel_int s)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b349"
~constructor: "<d249>" ~field: "c232" e l248)
else Maybe.None in
let s211 =
if nelms >= 10
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Htuple ->
let l246 = Extprot.Reader.IO_reader.read_vint s in
let e251 = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let () = Extprot.Limits.check_message_length l246 in
let () = Extprot.Limits.check_num_elements nelms in
let v =
Array.init nelms
(fun _ ->
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> S200.E202
| 1 -> S200.E128
| t75 -> Extprot.Error.unknown_tag t75)
| Extprot.Codec.Tuple ->
let l246 = Extprot.Reader.IO_reader.read_vint s in
let e250' = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let v =
(match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
if nelms >= 1
then
Extprot.Reader.IO_reader.read_rel_int s
else
Extprot.Error.missing_tuple_element
~message: "b349"
~constructor: "<d249>"
~field: "s211" 0
in S200.C203 v0
| t75 -> Extprot.Error.unknown_tag t75)
in (Extprot.Reader.IO_reader.skip_to s e250'; v)
| Extprot.Codec.Vint ->
S200.C203
(Extprot.Reader.IO_reader.read_raw_rel_int s)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ())
in (Extprot.Reader.IO_reader.skip_to s e251; v)
| ty -> Extprot.Error.bad_wire_type ~ll_type: ty ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "b349"
~constructor: "<d249>" ~field: "s211" e l248)
else [| |]
in
{
n233 = n233;
n234 = n234;
e69 = e69;
l237 = l237;
c91 = c91;
t236 = t236;
o219 = o219;
d348 = d348;
c232 = c232;
s211 = s211;
}
in (Extprot.Reader.IO_reader.skip_to s e247; v)
with | e -> (Extprot.Reader.IO_reader.skip_to s e247; raise e))
| t75 -> Extprot.Error.unknown_tag ~message: "b349" t75)
else
(let r252 () =
Extprot.Error.bad_wire_type ~message: "b349" ~ll_type: (Extprot.Codec.ll_type t)
()
in
match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
(match Extprot.Codec.ll_type t with
| Extprot.Codec.Vint -> Extprot.Reader.IO_reader.read_raw_rel_int s
| _ -> r252 ()) in
let v1 =
Extprot.Error.missing_field ~message: "b349"
~constructor: "<d249>" ~field: "n234" () in
let v2 = E68.R70 in
let v3 =
Extprot.Error.missing_field ~message: "b349"
~constructor: "<d249>" ~field: "l237" () in
let v4 =
Extprot.Error.missing_field ~message: "b349"
~constructor: "<d249>" ~field: "c91" () in
let v5 =
Extprot.Error.missing_field ~message: "b349"
~constructor: "<d249>" ~field: "t236" () in
let v6 = O218.R220 in
let v7 = Maybe.None in
let v8 = Maybe.None in
let v9 = [| |]
in
{
n233 = v0;
n234 = v1;
e69 = v2;
l237 = v3;
c91 = v4;
t236 = v5;
o219 = v6;
d348 = v7;
c232 = v8;
s211 = v9;
}
| t75 -> Extprot.Error.unknown_tag ~message: "b349" t75);;
let i269 = i355;;
let w359 b m276 =
let a277 = Extprot.Msg_buffer.create () in
let nelms = 10
in
(Extprot.Msg_buffer.add_tuple_prefix b 0;
Extprot.Msg_buffer.write_relative_int a277 m276.n233;
Extprot.Msg_buffer.write_relative_int a277 m276.n234;
(match m276.e69 with
| E68.R70 -> Extprot.Msg_buffer.add_const_prefix a277 0
| E68.U71 -> Extprot.Msg_buffer.add_const_prefix a277 1
| E68.E72 v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_string a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(let b = a277 in
let m276 = m276.l237 in
let a277 = Extprot.Msg_buffer.create () in
let nelms = 16
in
(Extprot.Msg_buffer.add_tuple_prefix b 0;
Extprot.Msg_buffer.write_float a277 m276.L174.l176;
Extprot.Msg_buffer.write_float a277 m276.L174.l177;
(match m276.L174.l178 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_float a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
Extprot.Msg_buffer.write_bool a277 m276.L174.s179;
Extprot.Msg_buffer.write_bool a277 m276.L174.o180;
(match m276.L174.l94 with
| L93.F96 -> Extprot.Msg_buffer.add_const_prefix a277 0
| L93.F97 -> Extprot.Msg_buffer.add_const_prefix a277 1
| L93.C98 -> Extprot.Msg_buffer.add_const_prefix a277 2
| L93.A99 -> Extprot.Msg_buffer.add_const_prefix a277 3
| L93.R100 -> Extprot.Msg_buffer.add_const_prefix a277 4
| L93.R95 v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_relative_int a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278)
| L93.H80 v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in
((let b = a277 in
let m276 = v0 in
let a277 = Extprot.Msg_buffer.create () in
let nelms = 5
in
(Extprot.Msg_buffer.add_tuple_prefix b 0;
Extprot.Msg_buffer.write_bool a277 m276.H80.n82;
(match m276.H80.a83 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_string a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277
((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
Extprot.Msg_buffer.write_string a277 m276.H80.a84;
(match m276.H80.c85 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in
((let (v0, v1) = v0 in
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in
(Extprot.Msg_buffer.write_string a277 v0;
Extprot.Msg_buffer.write_string a277 v1;
a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277
((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 2;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277
((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(let write_elm a277 v =
match v with
| T74.T74 v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_string a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277
((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278)
| T74.C76 v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_string a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 1;
Extprot.Msg_buffer.add_vint a277
((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278)
| T74.T77 v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_string a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 2;
Extprot.Msg_buffer.add_vint a277
((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278)
| T74.I78 v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_string a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 3;
Extprot.Msg_buffer.add_vint a277
((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278) in
let nelms = ref 0 in
let a278 = Extprot.Msg_buffer.create ()
in
(Array.iter (fun v -> (write_elm a278 v; incr nelms)) m276.H80.t86;
Extprot.Msg_buffer.add_htuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277
((Extprot.Msg_buffer.length a278) +
(Extprot.Codec.vint_length nelms.contents));
Extprot.Msg_buffer.add_vint a277 nelms.contents;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
Extprot.Msg_buffer.add_vint b ((Extprot.Msg_buffer.length a277) + 1);
Extprot.Msg_buffer.add_vint b nelms;
Extprot.Msg_buffer.add_buffer b a277;
Extprot.Msg_buffer.discard a277));
a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 1;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278)
| L93.R101 v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in
((let write_elm a277 v =
let b = a277 in
let m276 = v in
let a277 = Extprot.Msg_buffer.create () in
let nelms = 2
in
(Extprot.Msg_buffer.add_tuple_prefix b 0;
Extprot.Msg_buffer.write_string a277 m276.R88.u90;
Extprot.Msg_buffer.write_relative_int a277 m276.R88.c91;
Extprot.Msg_buffer.add_vint b ((Extprot.Msg_buffer.length a277) + 1);
Extprot.Msg_buffer.add_vint b nelms;
Extprot.Msg_buffer.add_buffer b a277;
Extprot.Msg_buffer.discard a277) in
let nelms = ref 0 in
let a278 = Extprot.Msg_buffer.create ()
in
(List.iter (fun v -> (write_elm a278 v; incr nelms)) v0;
Extprot.Msg_buffer.add_htuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277
((Extprot.Msg_buffer.length a278) +
(Extprot.Codec.vint_length nelms.contents));
Extprot.Msg_buffer.add_vint a277 nelms.contents;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 2;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(match m276.L174.o181 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_relative_int a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(match m276.L174.c182 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_bool a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(match m276.L174.l183 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_float a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(match m276.L174.r184 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_bool a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(match m276.L174.l185 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_float a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(match m276.L174.d134 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in
((match v0 with
| D133.M135 -> Extprot.Msg_buffer.add_const_prefix a277 0
| D133.N136 -> Extprot.Msg_buffer.add_const_prefix a277 1
| D133.N137 -> Extprot.Msg_buffer.add_const_prefix a277 2
| D133.T138 -> Extprot.Msg_buffer.add_const_prefix a277 3
| D133.O139 -> Extprot.Msg_buffer.add_const_prefix a277 4
| D133.R140 -> Extprot.Msg_buffer.add_const_prefix a277 5
| D133.D141 -> Extprot.Msg_buffer.add_const_prefix a277 6
| D133.N142 -> Extprot.Msg_buffer.add_const_prefix a277 7
| D133.M143 -> Extprot.Msg_buffer.add_const_prefix a277 8
| D133.B144 -> Extprot.Msg_buffer.add_const_prefix a277 9
| D133.D145 -> Extprot.Msg_buffer.add_const_prefix a277 10);
a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(match m276.L174.n186 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_bool a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(let write_elm a277 v =
let b = a277 in
let m276 = v in
let a277 = Extprot.Msg_buffer.create () in
let nelms = 2
in
(Extprot.Msg_buffer.add_tuple_prefix b 0;
Extprot.Msg_buffer.write_string a277 m276.R88.u90;
Extprot.Msg_buffer.write_relative_int a277 m276.R88.c91;
Extprot.Msg_buffer.add_vint b ((Extprot.Msg_buffer.length a277) + 1);
Extprot.Msg_buffer.add_vint b nelms;
Extprot.Msg_buffer.add_buffer b a277;
Extprot.Msg_buffer.discard a277) in
let nelms = ref 0 in
let a278 = Extprot.Msg_buffer.create ()
in
(List.iter (fun v -> (write_elm a278 v; incr nelms)) m276.L174.r187;
Extprot.Msg_buffer.add_htuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277
((Extprot.Msg_buffer.length a278) + (Extprot.Codec.vint_length nelms.contents));
Extprot.Msg_buffer.add_vint a277 nelms.contents;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(match m276.L174.c172 with
| C171.V0 -> Extprot.Msg_buffer.add_const_prefix a277 0
| C171.V1 -> Extprot.Msg_buffer.add_const_prefix a277 1);
(match m276.L174.r188 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_string a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
Extprot.Msg_buffer.add_vint b ((Extprot.Msg_buffer.length a277) + 1);
Extprot.Msg_buffer.add_vint b nelms;
Extprot.Msg_buffer.add_buffer b a277;
Extprot.Msg_buffer.discard a277));
Extprot.Msg_buffer.write_relative_int a277 m276.c91;
Extprot.Msg_buffer.write_string a277 m276.t236;
(match m276.o219 with
| O218.R220 -> Extprot.Msg_buffer.add_const_prefix a277 0
| O218.D221 -> Extprot.Msg_buffer.add_const_prefix a277 1
| O218.F222 -> Extprot.Msg_buffer.add_const_prefix a277 2
| O218.R107 -> Extprot.Msg_buffer.add_const_prefix a277 3);
(match m276.d348 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_float a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(match m276.c232 with
| Maybe.None -> Extprot.Msg_buffer.add_const_prefix a277 0
| Maybe.Some v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_relative_int a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
(let write_elm a277 v =
match v with
| S200.E202 -> Extprot.Msg_buffer.add_const_prefix a277 0
| S200.E128 -> Extprot.Msg_buffer.add_const_prefix a277 1
| S200.C203 v0 ->
let a278 =
let a277 = Extprot.Msg_buffer.create ()
in (Extprot.Msg_buffer.write_relative_int a277 v0; a277)
in
(Extprot.Msg_buffer.add_tuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277 ((Extprot.Msg_buffer.length a278) + 1);
Extprot.Msg_buffer.add_vint a277 1;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278) in
let nelms = ref 0 in
let a278 = Extprot.Msg_buffer.create ()
in
(Array.iter (fun v -> (write_elm a278 v; incr nelms)) m276.s211;
Extprot.Msg_buffer.add_htuple_prefix a277 0;
Extprot.Msg_buffer.add_vint a277
((Extprot.Msg_buffer.length a278) + (Extprot.Codec.vint_length nelms.contents));
Extprot.Msg_buffer.add_vint a277 nelms.contents;
Extprot.Msg_buffer.add_buffer a277 a278;
Extprot.Msg_buffer.discard a278));
Extprot.Msg_buffer.add_vint b ((Extprot.Msg_buffer.length a277) + 1);
Extprot.Msg_buffer.add_vint b nelms;
Extprot.Msg_buffer.add_buffer b a277;
Extprot.Msg_buffer.discard a277);;
let w279 = w359;;
end;;
module P360 =
struct
type p361 = | Z362 | E363 | E364;;
let p365 pp =
function
| Z362 -> Extprot.Pretty_print.fprintf pp "P360.Z362"
| E363 -> Extprot.Pretty_print.fprintf pp "P360.E363"
| E364 -> Extprot.Pretty_print.fprintf pp "P360.E364";;
end;;
module P366 =
struct
type _367 =
{ t368 : R164.r165; r231 : R160.r161;
t369 : R164.r165 array;
r238 : R160.r161 array; e370 : P360.p361
};;
type p371 =
{ t368 : R164.r165; r231 : R160.r161;
t369 : R164.r165 array;
r238 : R160.r161 array; e370 : P360.p361
};;
let p372 : (unit -> p371) ref =
ref (fun () -> Extprot.Error.missing_field ~message: "p371" ());;
let p373 pp =
Extprot.Pretty_print.pp_struct
[ ("P366.t368",
(Extprot.Pretty_print.pp_field (fun t -> t.t368) R164.p167));
("r231", (Extprot.Pretty_print.pp_field (fun t -> t.r231) R160.p163));
("t369",
(Extprot.Pretty_print.pp_field (fun t -> t.t369)
(Extprot.Pretty_print.pp_array R164.p167)));
("r238",
(Extprot.Pretty_print.pp_field (fun t -> t.r238)
(Extprot.Pretty_print.pp_array R160.p163)));
("e370",
(Extprot.Pretty_print.pp_field (fun t -> t.e370) P360.p365)) ]
pp;;
let pp = p373;;
let r374 s =
let t = Extprot.Reader.String_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 = Extprot.Reader.String_reader.read_vint s in
let e247 = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let () = Extprot.Limits.check_num_elements ~message: "p371" nelms in
let () = Extprot.Limits.check_message_length ~message: "p371" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let t368 =
if nelms >= 1
then
(try
let t = Extprot.Reader.String_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 = Extprot.Reader.String_reader.read_vint s in
let e247 = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let () =
Extprot.Limits.check_num_elements ~message: "r165" nelms in
let () =
Extprot.Limits.check_message_length ~message: "r165" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let b166 =
if nelms >= 1
then
(try Extprot.Reader.String_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location
~message: "p371"
~constructor: "<d249>"
~field: "b166" e l248)
else
Extprot.Error.missing_field
~message: "p371"
~constructor: "<d249>"
~field: "b166" () in
let f =
if nelms >= 2
then
(try
let t =
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Htuple ->
let l246 =
Extprot.Reader.String_reader.read_vint
s in
let e251 =
Extprot.Reader.String_reader.offset s
l246 in
let nelms =
Extprot.Reader.String_reader.read_vint
s in
let () =
Extprot.Limits.check_message_length l246 in
let () =
Extprot.Limits.check_num_elements nelms in
let v =
Array.init nelms
(fun _ ->
Extprot.Reader.String_reader.read_rel_int s)
in
(Extprot.Reader.String_reader.skip_to s
e251;
v)
| ty ->
Extprot.Error.bad_wire_type
~ll_type: ty ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "p371"
~constructor: "<d249>"
~field: "f" e l248)
else [| |]
in
{
R164.b166 = b166;
R164.f = f;
}
in (Extprot.Reader.String_reader.skip_to s e247; v)
with
| e ->
(Extprot.Reader.String_reader.skip_to s e247; raise e))
| t75 -> Extprot.Error.unknown_tag ~message: "r165" t75)
else
(let r252 () =
Extprot.Error.bad_wire_type ~message: "r165"
~ll_type: (Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
(match Extprot.Codec.ll_type t with
| Extprot.Codec.Vint ->
Extprot.Reader.String_reader.read_raw_rel_int s
| _ -> r252 ()) in
let v1 = [| |]
in { R164.b166 = v0; R164.f = v1; }
| t75 -> Extprot.Error.unknown_tag ~message: "r165" t75)
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "p371"
~constructor: "<d249>" ~field: "t368" e l248)
else
Extprot.Error.missing_field ~message: "p371"
~constructor: "<d249>" ~field: "t368" () in
let r231 =
if nelms >= 2
then
(try
let t = Extprot.Reader.String_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 = Extprot.Reader.String_reader.read_vint s in
let e247 = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let () =
Extprot.Limits.check_num_elements ~message: "r161" nelms in
let () =
Extprot.Limits.check_message_length ~message: "r161" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let b162 =
if nelms >= 1
then
(try Extprot.Reader.String_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location
~message: "p371"
~constructor: "<d249>"
~field: "b162" e l248)
else
Extprot.Error.missing_field
~message: "p371"
~constructor: "<d249>"
~field: "b162" () in
let r =
if nelms >= 2
then
(try
let t =
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Htuple ->
let l246 =
Extprot.Reader.String_reader.read_vint
s in
let e251 =
Extprot.Reader.String_reader.offset s
l246 in
let nelms =
Extprot.Reader.String_reader.read_vint
s in
let () =
Extprot.Limits.check_message_length l246 in
let () =
Extprot.Limits.check_num_elements nelms in
let v =
Array.init nelms
(fun _ ->
Extprot.Reader.String_reader.read_rel_int s)
in
(Extprot.Reader.String_reader.skip_to s
e251;
v)
| ty ->
Extprot.Error.bad_wire_type
~ll_type: ty ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "p371"
~constructor: "<d249>"
~field: "r" e l248)
else [| |] in
let t =
if nelms >= 3
then
(try
let t =
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> R155.O157
| 1 -> R155.N158
| t75 -> Extprot.Error.unknown_tag t75)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "p371"
~constructor: "<d249>"
~field: "t" e l248)
else R155.O157
in
{ R160.b162 = b162; R160.r = r; R160.t = t;
}
in (Extprot.Reader.String_reader.skip_to s e247; v)
with
| e ->
(Extprot.Reader.String_reader.skip_to s e247; raise e))
| t75 -> Extprot.Error.unknown_tag ~message: "r161" t75)
else
(let r252 () =
Extprot.Error.bad_wire_type ~message: "r161"
~ll_type: (Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
(match Extprot.Codec.ll_type t with
| Extprot.Codec.Vint ->
Extprot.Reader.String_reader.read_raw_rel_int s
| _ -> r252 ()) in
let v1 = [| |] in
let v2 = R155.O157
in { R160.b162 = v0; R160.r = v1; R160.t = v2; }
| t75 -> Extprot.Error.unknown_tag ~message: "r161" t75)
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "p371"
~constructor: "<d249>" ~field: "r231" e l248)
else
Extprot.Error.missing_field ~message: "p371"
~constructor: "<d249>" ~field: "r231" () in
let t369 =
if nelms >= 3
then
(try
let t = Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Htuple ->
let l246 = Extprot.Reader.String_reader.read_vint s in
let e251 = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let () = Extprot.Limits.check_message_length l246 in
let () = Extprot.Limits.check_num_elements nelms in
let v =
Array.init nelms
(fun _ ->
let t = Extprot.Reader.String_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 =
Extprot.Reader.String_reader.read_vint s in
let e247 =
Extprot.Reader.String_reader.offset s l246 in
let nelms =
Extprot.Reader.String_reader.read_vint s in
let () =
Extprot.Limits.check_num_elements
~message: "r165" nelms in
let () =
Extprot.Limits.check_message_length
~message: "r165" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let b166
=
if nelms >= 1
then
(try
Extprot.Reader.String_reader.read_rel_int s
with
| Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "p371"
~constructor: "<d249>"
~field: "b166" e l248)
else
Extprot.Error.missing_field
~message: "p371"
~constructor: "<d249>"
~field: "b166" () in
let f =
if nelms >= 2
then
(try
let t
=
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Htuple ->
let l246
=
Extprot.Reader.String_reader.read_vint s in
let e251
=
Extprot.Reader.String_reader.offset s l246 in
let nelms
=
Extprot.Reader.String_reader.read_vint s in
let () =
Extprot.Limits.check_message_length l246 in
let () =
Extprot.Limits.check_num_elements nelms in
let v
=
Array.init nelms
(fun _ ->
Extprot.Reader.String_reader.read_rel_int s)
in
(Extprot.Reader.String_reader.skip_to s e251;
v)
|
ty ->
Extprot.Error.bad_wire_type
~ll_type: ty ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)), l248))
->
Extprot.Error.failwith_location
~message: "p371"
~constructor: "<d249>"
~field: "f" e l248)
else [| |]
in
{
R164.b166 = b166;
R164.f = f;
}
in
(Extprot.Reader.String_reader.skip_to s
e247;
v)
with
| e ->
(Extprot.Reader.String_reader.skip_to s
e247;
raise e))
| t75 ->
Extprot.Error.unknown_tag
~message: "r165" t75)
else
(let r252
() =
Extprot.Error.bad_wire_type
~message: "r165"
~ll_type: (Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
(match Extprot.Codec.ll_type t with
| Extprot.Codec.Vint ->
Extprot.Reader.String_reader.read_raw_rel_int s
| _ -> r252 ()) in
let v1 = [| |]
in
{
R164.b166 = v0;
R164.f = v1;
}
| t75 ->
Extprot.Error.unknown_tag
~message: "r165" t75))
in (Extprot.Reader.String_reader.skip_to s e251; v)
| ty -> Extprot.Error.bad_wire_type ~ll_type: ty ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "p371"
~constructor: "<d249>" ~field: "t369" e l248)
else [| |] in
let r238 =
if nelms >= 4
then
(try
let t = Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Htuple ->
let l246 = Extprot.Reader.String_reader.read_vint s in
let e251 = Extprot.Reader.String_reader.offset s l246 in
let nelms = Extprot.Reader.String_reader.read_vint s in
let () = Extprot.Limits.check_message_length l246 in
let () = Extprot.Limits.check_num_elements nelms in
let v =
Array.init nelms
(fun _ ->
let t = Extprot.Reader.String_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 =
Extprot.Reader.String_reader.read_vint s in
let e247 =
Extprot.Reader.String_reader.offset s l246 in
let nelms =
Extprot.Reader.String_reader.read_vint s in
let () =
Extprot.Limits.check_num_elements
~message: "r161" nelms in
let () =
Extprot.Limits.check_message_length
~message: "r161" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let b162 =
if nelms >= 1
then
(try
Extprot.Reader.String_reader.read_rel_int s
with
| Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "p371"
~constructor: "<d249>"
~field: "b162" e l248)
else
Extprot.Error.missing_field
~message: "p371"
~constructor: "<d249>"
~field: "b162" () in
let r =
if nelms >= 2
then
(try
let t
=
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Htuple ->
let l246
=
Extprot.Reader.String_reader.read_vint s in
let e251
=
Extprot.Reader.String_reader.offset s l246 in
let nelms
=
Extprot.Reader.String_reader.read_vint s in
let () =
Extprot.Limits.check_message_length l246 in
let () =
Extprot.Limits.check_num_elements nelms in
let v
=
Array.init nelms
(fun _ ->
Extprot.Reader.String_reader.read_rel_int s)
in
(Extprot.Reader.String_reader.skip_to s e251;
v)
|
ty ->
Extprot.Error.bad_wire_type
~ll_type: ty ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)), l248))
->
Extprot.Error.failwith_location
~message: "p371"
~constructor: "<d249>"
~field: "r" e l248)
else [| |] in
let t =
if nelms >= 3
then
(try
let t
=
Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t
with
|
0 -> R155.O157
|
1 -> R155.N158
|
t75 ->
Extprot.Error.unknown_tag t75)
|
ll_type ->
Extprot.Error.bad_wire_type
~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)), l248))
->
Extprot.Error.failwith_location
~message: "p371"
~constructor: "<d249>"
~field: "t" e l248)
else R155.O157
in
{
R160.b162 = b162;
R160.r = r;
R160.t = t;
}
in
(Extprot.Reader.String_reader.skip_to s
e247;
v)
with
| e ->
(Extprot.Reader.String_reader.skip_to s
e247;
raise e))
| t75 ->
Extprot.Error.unknown_tag
~message: "r161" t75)
else
(let r252
() =
Extprot.Error.bad_wire_type
~message: "r161"
~ll_type: (Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
(match Extprot.Codec.ll_type t with
| Extprot.Codec.Vint ->
Extprot.Reader.String_reader.read_raw_rel_int s
| _ -> r252 ()) in
let v1 = [| |] in
let v2 = R155.O157
in
{
R160.b162 = v0;
R160.r = v1;
R160.t = v2;
}
| t75 ->
Extprot.Error.unknown_tag
~message: "r161" t75))
in (Extprot.Reader.String_reader.skip_to s e251; v)
| ty -> Extprot.Error.bad_wire_type ~ll_type: ty ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "p371"
~constructor: "<d249>" ~field: "r238" e l248)
else [| |] in
let e370 =
if nelms >= 5
then
(try
let t = Extprot.Reader.String_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> P360.Z362
| 1 -> P360.E363
| 2 -> P360.E364
| t75 -> Extprot.Error.unknown_tag t75)
| ll_type -> Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "p371"
~constructor: "<d249>" ~field: "e370" e l248)
else P360.Z362
in
{
t368 = t368;
r231 = r231;
t369 = t369;
r238 = r238;
e370 = e370;
}
in (Extprot.Reader.String_reader.skip_to s e247; v)
with | e -> (Extprot.Reader.String_reader.skip_to s e247; raise e))
| t75 -> Extprot.Error.unknown_tag ~message: "p371" t75)
else
(let r252 () =
Extprot.Error.bad_wire_type ~message: "p371"
~ll_type: (Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t with
| 0 ->
let v0 = r252 () in
let v1 =
Extprot.Error.missing_field ~message: "p371"
~constructor: "<d249>" ~field: "r231" () in
let v2 = [| |] in
let v3 = [| |] in
let v4 = P360.Z362
in
{
t368 = v0;
r231 = v1;
t369 = v2;
r238 = v3;
e370 = v4;
}
| t75 -> Extprot.Error.unknown_tag ~message: "p371" t75);;
let i375 io =
r374 (Extprot.Reader.String_reader.from_io_reader io);;
let f376 = i375;;
let r268 = r374;;
let i269 = i375;;
let f270 = f376;;
let i375 s =
let t = Extprot.Reader.IO_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 = Extprot.Reader.IO_reader.read_vint s in
let e247 = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let () = Extprot.Limits.check_num_elements ~message: "p371" nelms in
let () = Extprot.Limits.check_message_length ~message: "p371" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let t368 =
if nelms >= 1
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 = Extprot.Reader.IO_reader.read_vint s in
let e247 = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let () =
Extprot.Limits.check_num_elements ~message: "r165" nelms in
let () =
Extprot.Limits.check_message_length ~message: "r165" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let b166 =
if nelms >= 1
then
(try Extprot.Reader.IO_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location
~message: "p371"
~constructor: "<d249>"
~field: "b166" e l248)
else
Extprot.Error.missing_field
~message: "p371"
~constructor: "<d249>"
~field: "b166" () in
let f =
if nelms >= 2
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Htuple ->
let l246 =
Extprot.Reader.IO_reader.read_vint s in
let e251 =
Extprot.Reader.IO_reader.offset s l246 in
let nelms =
Extprot.Reader.IO_reader.read_vint s in
let () =
Extprot.Limits.check_message_length l246 in
let () =
Extprot.Limits.check_num_elements nelms in
let v =
Array.init nelms
(fun _ ->
Extprot.Reader.IO_reader.read_rel_int s)
in
(Extprot.Reader.IO_reader.skip_to s
e251;
v)
| ty ->
Extprot.Error.bad_wire_type
~ll_type: ty ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "p371"
~constructor: "<d249>"
~field: "f" e l248)
else [| |]
in
{
R164.b166 = b166;
R164.f = f;
}
in (Extprot.Reader.IO_reader.skip_to s e247; v)
with
| e -> (Extprot.Reader.IO_reader.skip_to s e247; raise e))
| t75 -> Extprot.Error.unknown_tag ~message: "r165" t75)
else
(let r252 () =
Extprot.Error.bad_wire_type ~message: "r165"
~ll_type: (Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
(match Extprot.Codec.ll_type t with
| Extprot.Codec.Vint ->
Extprot.Reader.IO_reader.read_raw_rel_int s
| _ -> r252 ()) in
let v1 = [| |]
in { R164.b166 = v0; R164.f = v1; }
| t75 -> Extprot.Error.unknown_tag ~message: "r165" t75)
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "p371"
~constructor: "<d249>" ~field: "t368" e l248)
else
Extprot.Error.missing_field ~message: "p371"
~constructor: "<d249>" ~field: "t368" () in
let r231 =
if nelms >= 2
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 = Extprot.Reader.IO_reader.read_vint s in
let e247 = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let () =
Extprot.Limits.check_num_elements ~message: "r161" nelms in
let () =
Extprot.Limits.check_message_length ~message: "r161" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let b162 =
if nelms >= 1
then
(try Extprot.Reader.IO_reader.read_rel_int s
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location
~message: "p371"
~constructor: "<d249>"
~field: "b162" e l248)
else
Extprot.Error.missing_field
~message: "p371"
~constructor: "<d249>"
~field: "b162" () in
let r =
if nelms >= 2
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Htuple ->
let l246 =
Extprot.Reader.IO_reader.read_vint s in
let e251 =
Extprot.Reader.IO_reader.offset s l246 in
let nelms =
Extprot.Reader.IO_reader.read_vint s in
let () =
Extprot.Limits.check_message_length l246 in
let () =
Extprot.Limits.check_num_elements nelms in
let v =
Array.init nelms
(fun _ ->
Extprot.Reader.IO_reader.read_rel_int s)
in
(Extprot.Reader.IO_reader.skip_to s
e251;
v)
| ty ->
Extprot.Error.bad_wire_type
~ll_type: ty ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "p371"
~constructor: "<d249>"
~field: "r" e l248)
else [| |] in
let t =
if nelms >= 3
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Enum ->
(match Extprot.Codec.ll_tag t with
| 0 -> R155.O157
| 1 -> R155.N158
| t75 -> Extprot.Error.unknown_tag t75)
| ll_type ->
Extprot.Error.bad_wire_type ~ll_type ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)),
l248))
->
Extprot.Error.failwith_location
~message: "p371"
~constructor: "<d249>"
~field: "t" e l248)
else R155.O157
in
{ R160.b162 = b162; R160.r = r; R160.t = t;
}
in (Extprot.Reader.IO_reader.skip_to s e247; v)
with
| e -> (Extprot.Reader.IO_reader.skip_to s e247; raise e))
| t75 -> Extprot.Error.unknown_tag ~message: "r161" t75)
else
(let r252 () =
Extprot.Error.bad_wire_type ~message: "r161"
~ll_type: (Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
(match Extprot.Codec.ll_type t with
| Extprot.Codec.Vint ->
Extprot.Reader.IO_reader.read_raw_rel_int s
| _ -> r252 ()) in
let v1 = [| |] in
let v2 = R155.O157
in { R160.b162 = v0; R160.r = v1; R160.t = v2; }
| t75 -> Extprot.Error.unknown_tag ~message: "r161" t75)
with
| Extprot.Error.Extprot_error ((e, l248)) ->
Extprot.Error.failwith_location ~message: "p371"
~constructor: "<d249>" ~field: "r231" e l248)
else
Extprot.Error.missing_field ~message: "p371"
~constructor: "<d249>" ~field: "r231" () in
let t369 =
if nelms >= 3
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Htuple ->
let l246 = Extprot.Reader.IO_reader.read_vint s in
let e251 = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let () = Extprot.Limits.check_message_length l246 in
let () = Extprot.Limits.check_num_elements nelms in
let v =
Array.init nelms
(fun _ ->
let t = Extprot.Reader.IO_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 = Extprot.Reader.IO_reader.read_vint s in
let e247 = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let () =
Extprot.Limits.check_num_elements
~message: "r165" nelms in
let () =
Extprot.Limits.check_message_length
~message: "r165" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let b166
=
if nelms >= 1
then
(try
Extprot.Reader.IO_reader.read_rel_int s
with
| Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "p371"
~constructor: "<d249>"
~field: "b166" e l248)
else
Extprot.Error.missing_field
~message: "p371"
~constructor: "<d249>"
~field: "b166" () in
let f =
if nelms >= 2
then
(try
let t
=
Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Htuple ->
let l246
=
Extprot.Reader.IO_reader.read_vint s in
let e251
=
Extprot.Reader.IO_reader.offset
s l246 in
let nelms
=
Extprot.Reader.IO_reader.read_vint s in
let () =
Extprot.Limits.check_message_length l246 in
let () =
Extprot.Limits.check_num_elements nelms in
let v
=
Array.init nelms
(fun _ ->
Extprot.Reader.IO_reader.read_rel_int s)
in
(Extprot.Reader.IO_reader.skip_to s e251;
v)
|
ty ->
Extprot.Error.bad_wire_type
~ll_type: ty ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format
(Extprot.Error.Bad_wire_type _)
as e)), l248))
->
Extprot.Error.failwith_location
~message: "p371"
~constructor: "<d249>"
~field: "f" e l248)
else [| |]
in
{
R164.b166 = b166;
R164.f = f;
}
in
(Extprot.Reader.IO_reader.skip_to s e247;
v)
with
| e ->
(Extprot.Reader.IO_reader.skip_to s e247;
raise e))
| t75 ->
Extprot.Error.unknown_tag
~message: "r165" t75)
else
(let r252
() =
Extprot.Error.bad_wire_type
~message: "r165"
~ll_type: (Extprot.Codec.ll_type t) ()
in
match Extprot.Codec.ll_tag t with
| 0 ->
let v0 =
(match Extprot.Codec.ll_type t with
| Extprot.Codec.Vint ->
Extprot.Reader.IO_reader.read_raw_rel_int s
| _ -> r252 ()) in
let v1 = [| |]
in
{
R164.b166 = v0;
R164.f = v1;
}
| t75 ->
Extprot.Error.unknown_tag
~message: "r165" t75))
in (Extprot.Reader.IO_reader.skip_to s e251; v)
| ty -> Extprot.Error.bad_wire_type ~ll_type: ty ()
with
| Extprot.Error.Extprot_error
((((Extprot.Error.Bad_format (Extprot.Error.Bad_wire_type _) as e)),
l248))
->
Extprot.Error.failwith_location ~message: "p371"
~constructor: "<d249>" ~field: "t369" e l248)
else [| |] in
let r238 =
if nelms >= 4
then
(try
let t = Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t with
| Extprot.Codec.Htuple ->
let l246 = Extprot.Reader.IO_reader.read_vint s in
let e251 = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let () = Extprot.Limits.check_message_length l246 in
let () = Extprot.Limits.check_num_elements nelms in
let v =
Array.init nelms
(fun _ ->
let t = Extprot.Reader.IO_reader.read_prefix s
in
if (Extprot.Codec.ll_type t) = Extprot.Codec.Tuple
then
(let l246 = Extprot.Reader.IO_reader.read_vint s in
let e247 = Extprot.Reader.IO_reader.offset s l246 in
let nelms = Extprot.Reader.IO_reader.read_vint s in
let () =
Extprot.Limits.check_num_elements
~message: "r161" nelms in
let () =
Extprot.Limits.check_message_length
~message: "r161" l246
in
match Extprot.Codec.ll_tag t with
| 0 ->
(try
let v =
let b162 =
if nelms >= 1
then
(try
Extprot.Reader.IO_reader.read_rel_int s
with
| Extprot.Error.Extprot_error
((e, l248)) ->
Extprot.Error.failwith_location
~message: "p371"
~constructor: "<d249>"
~field: "b162" e l248)
else
Extprot.Error.missing_field
~message: "p371"
~constructor: "<d249>"
~field: "b162" () in
let r =
if nelms >= 2
then
(try
let t
=
Extprot.Reader.IO_reader.read_prefix s
in
match Extprot.Codec.ll_type t
with
|
Extprot.Codec.Htuple ->
let l246
=
Extprot.Reader.IO_reader.read_vint s in
let e251
=
Extprot.Reader.IO_reader.offset
s l246 in
let nelms
=
Extprot.Reader.IO_reader.read_vint s in
let () =
Extprot.Limits.check_message_length l246 in
let () =
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment