(* This generated code requires the following version of CamlinternalMenhirLib: *) let () = CamlinternalMenhirLib.StaticVersion.require_20240715 module MenhirBasics = struct exception Error = Parsing.Parse_error let _eRR = fun _s -> raise Error type token = | WITH | WHILE | WHEN | VIRTUAL | VAL | UNDERSCORE | UIDENT of ( # 870 "parsing/parser.mly" (string) # 26 "parsing/parser.ml" ) | TYPE | TRY | TRUE | TO | TILDE | THEN | STRUCT | STRING of ( # 857 "parsing/parser.mly" (string * Location.t * string option) # 38 "parsing/parser.ml" ) | STAR | SIG | SEMISEMI | SEMI | RPAREN | REC | RBRACKET | RBRACE | QUOTED_STRING_ITEM of ( # 861 "parsing/parser.mly" (string * Location.t * string * Location.t * string option) # 51 "parsing/parser.ml" ) | QUOTED_STRING_EXPR of ( # 859 "parsing/parser.mly" (string * Location.t * string * Location.t * string option) # 56 "parsing/parser.ml" ) | QUOTE | QUESTION | PRIVATE | PREFIXOP of ( # 843 "parsing/parser.mly" (string) # 64 "parsing/parser.ml" ) | PLUSEQ | PLUSDOT | PLUS | PERCENT | OR | OPTLABEL of ( # 836 "parsing/parser.mly" (string) # 74 "parsing/parser.ml" ) | OPEN | OF | OBJECT | NONREC | NEW | MUTABLE | MODULE | MINUSGREATER | MINUSDOT | MINUS | METHOD | METAOCAML_ESCAPE | METAOCAML_BRACKET_OPEN | METAOCAML_BRACKET_CLOSE | MATCH | LPAREN | LIDENT of ( # 819 "parsing/parser.mly" (string) # 95 "parsing/parser.ml" ) | LETOP of ( # 801 "parsing/parser.mly" (string) # 100 "parsing/parser.ml" ) | LET | LESSMINUS | LESS | LBRACKETPERCENTPERCENT | LBRACKETPERCENT | LBRACKETLESS | LBRACKETGREATER | LBRACKETBAR | LBRACKETATATAT | LBRACKETATAT | LBRACKETAT | LBRACKET | LBRACELESS | LBRACE | LAZY | LABEL of ( # 806 "parsing/parser.mly" (string) # 120 "parsing/parser.ml" ) | INT of ( # 805 "parsing/parser.mly" (string * char option) # 125 "parsing/parser.ml" ) | INITIALIZER | INHERIT | INFIXOP4 of ( # 799 "parsing/parser.mly" (string) # 132 "parsing/parser.ml" ) | INFIXOP3 of ( # 798 "parsing/parser.mly" (string) # 137 "parsing/parser.ml" ) | INFIXOP2 of ( # 797 "parsing/parser.mly" (string) # 142 "parsing/parser.ml" ) | INFIXOP1 of ( # 796 "parsing/parser.mly" (string) # 147 "parsing/parser.ml" ) | INFIXOP0 of ( # 795 "parsing/parser.mly" (string) # 152 "parsing/parser.ml" ) | INCLUDE | IN | IF | HASHOP of ( # 854 "parsing/parser.mly" (string) # 160 "parsing/parser.ml" ) | HASH | GREATERRBRACKET | GREATERRBRACE | GREATER | FUNCTOR | FUNCTION | FUN | FOR | FLOAT of ( # 784 "parsing/parser.mly" (string * char option) # 173 "parsing/parser.ml" ) | FALSE | EXTERNAL | EXCEPTION | EQUAL | EOL | EOF | END | ELSE | EFFECT | DOWNTO | DOTOP of ( # 800 "parsing/parser.mly" (string) # 188 "parsing/parser.ml" ) | DOTDOT | DOT | DONE | DOCSTRING of ( # 878 "parsing/parser.mly" (Docstrings.docstring) # 196 "parsing/parser.ml" ) | DO | CONSTRAINT | COMMENT of ( # 877 "parsing/parser.mly" (string * Location.t) # 203 "parsing/parser.ml" ) | COMMA | COLONGREATER | COLONEQUAL | COLONCOLON | COLON | CLASS | CHAR of ( # 763 "parsing/parser.mly" (char) # 214 "parsing/parser.ml" ) | BEGIN | BARRBRACKET | BARBAR | BAR | BANG | BACKQUOTE | ASSERT | AS | ANDOP of ( # 802 "parsing/parser.mly" (string) # 227 "parsing/parser.ml" ) | AND | AMPERSAND | AMPERAMPER end include MenhirBasics # 25 "parsing/parser.mly" [@@@ocaml.warning "-60"] module Str = Ast_helper.Str (* For ocamldep *) [@@@ocaml.warning "+60"] open Asttypes open Longident open Parsetree open Ast_helper open Docstrings open Docstrings.WithMenhir let mkloc = Location.mkloc let mknoloc = Location.mknoloc let make_loc (startpos, endpos) = { Location.loc_start = startpos; Location.loc_end = endpos; Location.loc_ghost = false; } let ghost_loc (startpos, endpos) = { Location.loc_start = startpos; Location.loc_end = endpos; Location.loc_ghost = true; } let mktyp ~loc ?attrs d = Typ.mk ~loc:(make_loc loc) ?attrs d let mkpat ~loc ?attrs d = Pat.mk ~loc:(make_loc loc) ?attrs d let mkexp ~loc ?attrs d = Exp.mk ~loc:(make_loc loc) ?attrs d let mkmty ~loc ?attrs d = Mty.mk ~loc:(make_loc loc) ?attrs d let mksig ~loc d = Sig.mk ~loc:(make_loc loc) d let mkmod ~loc ?attrs d = Mod.mk ~loc:(make_loc loc) ?attrs d let mkstr ~loc d = Str.mk ~loc:(make_loc loc) d let mkclass ~loc ?attrs d = Cl.mk ~loc:(make_loc loc) ?attrs d let mkcty ~loc ?attrs d = Cty.mk ~loc:(make_loc loc) ?attrs d let mkconst ~loc c = Const.mk ~loc:(make_loc loc) c let pstr_extension body attrs = (Pstr_extension (body, attrs), None) let pstr_attribute body = (Pstr_attribute body, None) let pstr_typext (te, ext) = (Pstr_typext te, ext) let pstr_primitive (vd, ext) = (Pstr_primitive vd, ext) let pstr_type ((nr, ext), tys) = (Pstr_type (nr, tys), ext) let pstr_exception (te, ext) = (Pstr_exception te, ext) let pstr_include (body, ext) = (Pstr_include body, ext) let pstr_module (body, ext) = (Pstr_module body, ext) let pstr_recmodule (ext, bindings) = (Pstr_recmodule bindings, ext) let pstr_modtype (body, ext) = (Pstr_modtype body, ext) let pstr_open (body, ext) = (Pstr_open body, ext) let pstr_class (ext, l) = (Pstr_class l, ext) let pstr_class_type (ext, l) = (Pstr_class_type l, ext) let psig_extension body attrs = (Psig_extension (body, attrs), None) let psig_attribute body = (Psig_attribute body, None) let psig_typext (te, ext) = (Psig_typext te, ext) let psig_value (vd, ext) = (Psig_value vd, ext) let psig_type ((nr, ext), tys) = (Psig_type (nr, tys), ext) let psig_typesubst ((nr, ext), tys) = assert (nr = Recursive); (* see [no_nonrec_flag] *) (Psig_typesubst tys, ext) let psig_exception (te, ext) = (Psig_exception te, ext) let psig_include (body, ext) = (Psig_include body, ext) let psig_module (body, ext) = (Psig_module body, ext) let psig_modsubst (body, ext) = (Psig_modsubst body, ext) let psig_recmodule (ext, l) = (Psig_recmodule l, ext) let psig_modtype (body, ext) = (Psig_modtype body, ext) let psig_modtypesubst (body, ext) = (Psig_modtypesubst body, ext) let psig_open (body, ext) = (Psig_open body, ext) let psig_class (ext, l) = (Psig_class l, ext) let psig_class_type (ext, l) = (Psig_class_type l, ext) let mkctf ~loc ?attrs ?docs d = Ctf.mk ~loc:(make_loc loc) ?attrs ?docs d let mkcf ~loc ?attrs ?docs d = Cf.mk ~loc:(make_loc loc) ?attrs ?docs d let mkrhs rhs loc = mkloc rhs (make_loc loc) let ghrhs rhs loc = mkloc rhs (ghost_loc loc) let ldot lid lid_loc name loc = Ldot (mkrhs lid lid_loc, mkrhs name loc) let push_loc x acc = if x.Location.loc_ghost then acc else x :: acc let reloc_pat ~loc x = { x with ppat_loc = make_loc loc; ppat_loc_stack = push_loc x.ppat_loc x.ppat_loc_stack } let reloc_exp ~loc x = { x with pexp_loc = make_loc loc; pexp_loc_stack = push_loc x.pexp_loc x.pexp_loc_stack } let _reloc_typ ~loc x = { x with ptyp_loc = make_loc loc; ptyp_loc_stack = push_loc x.ptyp_loc x.ptyp_loc_stack } let mkexpvar ~loc (name : string) = mkexp ~loc (Pexp_ident(mkrhs (Lident name) loc)) let mkoperator = mkexpvar let mkpatvar ~loc name = mkpat ~loc (Ppat_var (mkrhs name loc)) (* See ./location.mli for when to use a ghost location or not. Every grammar rule that generates an element with a location must make at most one non-ghost element, the topmost one. *) let ghexp ~loc ?attrs d = Exp.mk ~loc:(ghost_loc loc) ?attrs d let ghpat ~loc ?attrs d = Pat.mk ~loc:(ghost_loc loc) ?attrs d let ghtyp ~loc ?attrs d = Typ.mk ~loc:(ghost_loc loc) ?attrs d let ghloc ~loc d = { txt = d; loc = ghost_loc loc } let ghstr ~loc d = Str.mk ~loc:(ghost_loc loc) d let ghsig ~loc d = Sig.mk ~loc:(ghost_loc loc) d let mkinfix arg1 op arg2 = Pexp_apply(op, [Nolabel, arg1; Nolabel, arg2]) let neg_string f = if String.length f > 0 && f.[0] = '-' then String.sub f 1 (String.length f - 1) else "-" ^ f (* Pre-apply the special [-], [-.], [+] and [+.] prefix operators into constants if possible, otherwise turn them into the corresponding prefix operators [~-], [~-.], etc.. *) let mkuminus ~sloc ~oploc name arg = match name, arg.pexp_desc, arg.pexp_attributes with | "-", Pexp_constant({pconst_desc = Pconst_integer (n,m); pconst_loc=_}), [] -> Pexp_constant(mkconst ~loc:sloc (Pconst_integer(neg_string n, m))) | ("-" | "-."), Pexp_constant({pconst_desc = Pconst_float (f, m); pconst_loc=_}), [] -> Pexp_constant(mkconst ~loc:sloc (Pconst_float(neg_string f, m))) | _ -> Pexp_apply(mkoperator ~loc:oploc ("~" ^ name), [Nolabel, arg]) let mkuplus ~sloc ~oploc name arg = let desc = arg.pexp_desc in match name, desc, arg.pexp_attributes with | "+", Pexp_constant({pconst_desc = Pconst_integer _ as desc; pconst_loc=_}), [] | ("+" | "+."), Pexp_constant({pconst_desc = Pconst_float _ as desc; pconst_loc=_}), [] -> Pexp_constant(mkconst ~loc:sloc desc) | _ -> Pexp_apply(mkoperator ~loc:oploc ("~" ^ name), [Nolabel, arg]) let mk_attr ~loc name payload = Builtin_attributes.(register_attr Parser name); Attr.mk ~loc name payload (* TODO define an abstraction boundary between locations-as-pairs and locations-as-Location.t; it should be clear when we move from one world to the other *) let mkexp_cons_desc consloc args = Pexp_construct(mkrhs (Lident "::") consloc, Some args) let mkexp_cons ~loc consloc args = mkexp ~loc (mkexp_cons_desc consloc args) let mkpat_cons_desc consloc args = Ppat_construct(mkrhs (Lident "::") consloc, Some ([], args)) let mkpat_cons ~loc consloc args = mkpat ~loc (mkpat_cons_desc consloc args) let ghexp_cons_desc consloc args = Pexp_construct(ghrhs (Lident "::") consloc, Some args) let ghpat_cons_desc consloc args = Ppat_construct(ghrhs (Lident "::") consloc, Some ([], args)) let rec mktailexp nilloc = let open Location in function [] -> let nil = ghloc ~loc:nilloc (Lident "[]") in Pexp_construct (nil, None), nilloc | e1 :: el -> let exp_el, el_loc = mktailexp nilloc el in let loc = (e1.pexp_loc.loc_start, snd el_loc) in let arg = ghexp ~loc (Pexp_tuple [None, e1; None, ghexp ~loc:el_loc exp_el]) in ghexp_cons_desc loc arg, loc let rec mktailpat nilloc = let open Location in function [] -> let nil = ghloc ~loc:nilloc (Lident "[]") in Ppat_construct (nil, None), nilloc | p1 :: pl -> let pat_pl, el_loc = mktailpat nilloc pl in let loc = (p1.ppat_loc.loc_start, snd el_loc) in let arg = ghpat ~loc (Ppat_tuple ([None, p1; None, ghpat ~loc:el_loc pat_pl], Closed)) in ghpat_cons_desc loc arg, loc let mkstrexp e attrs = { pstr_desc = Pstr_eval (e, attrs); pstr_loc = e.pexp_loc } let mkexp_desc_constraint e t = match t with | Pconstraint t -> Pexp_constraint(e, t) | Pcoerce(t1, t2) -> Pexp_coerce(e, t1, t2) let mkexp_constraint ~loc e t = mkexp ~loc (mkexp_desc_constraint e t) let mkexp_opt_constraint ~loc e = function | None -> e | Some constraint_ -> mkexp_constraint ~loc e constraint_ let mkpat_opt_constraint ~loc p = function | None -> p | Some typ -> mkpat ~loc (Ppat_constraint(p, typ)) let syntax_error () = raise Syntaxerr.Escape_error let unclosed opening_name opening_loc closing_name closing_loc = raise(Syntaxerr.Error(Syntaxerr.Unclosed(make_loc opening_loc, opening_name, make_loc closing_loc, closing_name))) let expecting loc nonterm = raise Syntaxerr.(Error(Expecting(make_loc loc, nonterm))) let removed_string_set loc = raise(Syntaxerr.Error(Syntaxerr.Removed_string_set(make_loc loc))) (* Using the function [not_expecting] in a semantic action means that this syntactic form is recognized by the parser but is in fact incorrect. This idiom is used in a few places to produce ad hoc syntax error messages. *) (* This idiom should be used as little as possible, because it confuses the analyses performed by Menhir. Because Menhir views the semantic action as opaque, it believes that this syntactic form is correct. This can lead [make generate-parse-errors] to produce sentences that cause an early (unexpected) syntax error and do not achieve the desired effect. This could also lead a completion system to propose completions which in fact are incorrect. In order to avoid these problems, the productions that use [not_expecting] should be marked with AVOID. *) let not_expecting loc nonterm = raise Syntaxerr.(Error(Not_expecting(make_loc loc, nonterm))) (* Helper functions for desugaring array indexing operators *) type paren_kind = Paren | Brace | Bracket (* We classify the dimension of indices: Bigarray distinguishes indices of dimension 1,2,3, or more. Similarly, user-defined indexing operator behave differently for indices of dimension 1 or more. *) type index_dim = | One | Two | Three | Many type ('dot,'index) array_family = { name: Lexing.position * Lexing.position -> 'dot -> assign:bool -> paren_kind -> index_dim -> Longident.t Location.loc (* This functions computes the name of the explicit indexing operator associated with a sugared array indexing expression. For instance, for builtin arrays, if Clflags.unsafe is set, * [ a.[index] ] => [String.unsafe_get] * [ a.{x,y} <- 1 ] => [ Bigarray.Array2.unsafe_set] User-defined indexing operator follows a more local convention: * [ a .%(index)] => [ (.%()) ] * [ a.![1;2] <- 0 ] => [(.![;..]<-)] * [ a.My.Map.?(0) => [My.Map.(.?())] *); index: Lexing.position * Lexing.position -> paren_kind -> 'index -> index_dim * (arg_label * expression) list (* [index (start,stop) paren index] computes the dimension of the index argument and how it should be desugared when transformed to a list of arguments for the indexing operator. In particular, in both the Bigarray case and the user-defined case, beyond a certain dimension, multiple indices are packed into a single array argument: * [ a.(x) ] => [ [One, [Nolabel, <>] ] * [ a.{1,2} ] => [ [Two, [Nolabel, <<1>>; Nolabel, <<2>>] ] * [ a.{1,2,3,4} ] => [ [Many, [Nolabel, <<[|1;2;3;4|]>>] ] ] *); } let bigarray_untuplify exp = match exp.pexp_desc with | Pexp_tuple explist when List.for_all (fun (l, _) -> Option.is_none l) explist -> List.map snd explist | _ -> [exp] let builtin_arraylike_name loc _ ~assign paren_kind n = let opname = if assign then "set" else "get" in let opname = if !Clflags.unsafe then "unsafe_" ^ opname else opname in let prefix = match paren_kind with | Paren -> Lident "Array" | Bracket -> if assign then removed_string_set loc else Lident "String" | Brace -> let submodule_name = match n with | One -> "Array1" | Two -> "Array2" | Three -> "Array3" | Many -> "Genarray" in Ldot(mknoloc (Lident "Bigarray"), mknoloc submodule_name) in ghloc ~loc (Ldot(mknoloc prefix, mknoloc opname)) let builtin_arraylike_index loc paren_kind index = match paren_kind with | Paren | Bracket -> One, [Nolabel, index] | Brace -> (* Multi-indices for bigarray are comma-separated ([a.{1,2,3,4}]) *) match bigarray_untuplify index with | [x] -> One, [Nolabel, x] | [x;y] -> Two, [Nolabel, x; Nolabel, y] | [x;y;z] -> Three, [Nolabel, x; Nolabel, y; Nolabel, z] | coords -> Many, [Nolabel, ghexp ~loc (Pexp_array coords)] let builtin_indexing_operators : (unit, expression) array_family = { index = builtin_arraylike_index; name = builtin_arraylike_name } let paren_to_strings = function | Paren -> "(", ")" | Bracket -> "[", "]" | Brace -> "{", "}" let user_indexing_operator_name loc (prefix,ext) ~assign paren_kind n = let name = let assign = if assign then "<-" else "" in let mid = match n with | Many | Three | Two -> ";.." | One -> "" in let left, right = paren_to_strings paren_kind in String.concat "" ["."; ext; left; mid; right; assign] in let lid = match prefix with | None -> Lident name | Some p -> Ldot(mknoloc p,mknoloc name) in ghloc ~loc lid let user_index loc _ index = (* Multi-indices for user-defined operators are semicolon-separated ([a.%[1;2;3;4]]) *) match index with | [a] -> One, [Nolabel, a] | l -> Many, [Nolabel, mkexp ~loc (Pexp_array l)] let user_indexing_operators: (Longident.t option * string, expression list) array_family = { index = user_index; name = user_indexing_operator_name } let mk_indexop_expr array_indexing_operator ~loc (array,dot,paren,index,set_expr) = let assign = match set_expr with None -> false | Some _ -> true in let n, index = array_indexing_operator.index loc paren index in let fn = array_indexing_operator.name loc dot ~assign paren n in let set_arg = match set_expr with | None -> [] | Some expr -> [Nolabel, expr] in let args = (Nolabel,array) :: index @ set_arg in mkexp ~loc (Pexp_apply(ghexp ~loc (Pexp_ident fn), args)) let indexop_unclosed_error loc_s s loc_e = let left, right = paren_to_strings s in unclosed left loc_s right loc_e let lapply ~loc p1 loc_p1 p2 loc_p2 = if !Clflags.applicative_functors then Lapply(mkrhs p1 loc_p1, mkrhs p2 loc_p2) else raise (Syntaxerr.Error( Syntaxerr.Applicative_path (make_loc loc))) (* [loc_map] could be [Location.map]. *) let loc_map (f : 'a -> 'b) (x : 'a Location.loc) : 'b Location.loc = { x with txt = f x.txt } let make_ghost x = { x with loc = { x.loc with loc_ghost = true }} let loc_last (id : Longident.t Location.loc) : string Location.loc = loc_map Longident.last id let loc_lident (id : string Location.loc) : Longident.t Location.loc = loc_map (fun x -> Lident x) id let exp_of_longident lid = let lid = loc_map (fun id -> Lident (Longident.last id)) lid in Exp.mk ~loc:lid.loc (Pexp_ident lid) let exp_of_label lbl = Exp.mk ~loc:lbl.loc (Pexp_ident (loc_lident lbl)) let pat_of_label lbl = Pat.mk ~loc:lbl.loc (Ppat_var (loc_last lbl)) let mk_newtypes ~loc newtypes exp = let mkexp = mkexp ~loc in List.fold_right (fun newtype exp -> mkexp (Pexp_newtype (newtype, exp))) newtypes exp let wrap_type_annotation ~loc newtypes core_type body = let mkexp, ghtyp = mkexp ~loc, ghtyp ~loc in let mk_newtypes = mk_newtypes ~loc in let exp = mkexp(Pexp_constraint(body,core_type)) in let exp = mk_newtypes newtypes exp in (exp, ghtyp(Ptyp_poly(newtypes, Typ.varify_constructors newtypes core_type))) let pexp_extension ~id e = Pexp_extension (id, PStr [mkstrexp e []]) let mkexp_attrs ~loc desc (ext, attrs) = (* todo: keep exact location for the entire attribute *) match ext with | None -> mkexp ~loc ~attrs desc | Some id -> mkexp ~loc (pexp_extension ~id (ghexp ~loc ~attrs desc)) let mktyp_attrs ~loc desc (ext, attrs) = (* todo: keep exact location for the entire attribute *) match ext with | None -> mktyp ~loc ~attrs desc | Some id -> mktyp ~loc (Ptyp_extension (id, PTyp (ghtyp ~loc ~attrs desc))) let mkpat_attrs ~loc desc (ext, attrs) = (* todo: keep exact location for the entire attribute *) match ext with | None -> mkpat ~loc ~attrs desc | Some id -> mkpat ~loc (Ppat_extension (id, PPat (ghpat ~loc ~attrs desc, None))) let wrap_class_attrs ~loc:_ body attrs = {body with pcl_attributes = attrs @ body.pcl_attributes} let wrap_mod_attrs ~loc:_ attrs body = {body with pmod_attributes = attrs @ body.pmod_attributes} let wrap_mty_attrs ~loc:_ attrs body = {body with pmty_attributes = attrs @ body.pmty_attributes} let wrap_mkstr_ext ~loc (item, ext) = match ext with | None -> mkstr ~loc item | Some id -> mkstr ~loc (Pstr_extension ((id, PStr [ghstr ~loc item]), [])) let wrap_mksig_ext ~loc (item, ext) = match ext with | None -> mksig ~loc item | Some id -> mksig ~loc (Psig_extension ((id, PSig [ghsig ~loc item]), [])) let mk_quotedext ~loc (id, idloc, str, strloc, delim) = let exp_id = mkloc id idloc in let const = Const.mk ~loc:strloc (Pconst_string (str, strloc, delim)) in let e = ghexp ~loc (Pexp_constant const) in (exp_id, PStr [mkstrexp e []]) let text_str pos = Str.text (rhs_text pos) let text_sig pos = Sig.text (rhs_text pos) let text_cstr pos = Cf.text (rhs_text pos) let text_csig pos = Ctf.text (rhs_text pos) let text_def pos = List.map (fun def -> Ptop_def [def]) (Str.text (rhs_text pos)) let extra_text startpos endpos text items = match items with | [] -> let post = rhs_post_text endpos in let post_extras = rhs_post_extra_text endpos in text post @ text post_extras | _ :: _ -> let pre_extras = rhs_pre_extra_text startpos in let post_extras = rhs_post_extra_text endpos in text pre_extras @ items @ text post_extras let extra_str p1 p2 items = extra_text p1 p2 Str.text items let extra_sig p1 p2 items = extra_text p1 p2 Sig.text items let extra_cstr p1 p2 items = extra_text p1 p2 Cf.text items let extra_csig p1 p2 items = extra_text p1 p2 Ctf.text items let extra_def p1 p2 items = extra_text p1 p2 (fun txt -> List.map (fun def -> Ptop_def [def]) (Str.text txt)) items let extra_rhs_core_type ct ~pos = let docs = rhs_info pos in { ct with ptyp_attributes = add_info_attrs docs ct.ptyp_attributes } type let_binding = { lb_pattern: pattern; lb_expression: expression; lb_constraint: value_constraint option; lb_is_pun: bool; lb_attributes: attributes; lb_docs: docs Lazy.t; lb_text: text Lazy.t; lb_loc: Location.t; } type let_bindings = { lbs_bindings: let_binding list; lbs_rec: rec_flag; lbs_extension: string Asttypes.loc option } let mklb first ~loc (p, e, typ, is_pun) attrs = { lb_pattern = p; lb_expression = e; lb_constraint=typ; lb_is_pun = is_pun; lb_attributes = attrs; lb_docs = symbol_docs_lazy loc; lb_text = (if first then empty_text_lazy else symbol_text_lazy (fst loc)); lb_loc = make_loc loc; } let addlb lbs lb = if lb.lb_is_pun && lbs.lbs_extension = None then syntax_error (); { lbs with lbs_bindings = lb :: lbs.lbs_bindings } let mklbs ext rf lb = let lbs = { lbs_bindings = []; lbs_rec = rf; lbs_extension = ext; } in addlb lbs lb let val_of_let_bindings ~loc lbs = let bindings = List.map (fun lb -> Vb.mk ~loc:lb.lb_loc ~attrs:lb.lb_attributes ~docs:(Lazy.force lb.lb_docs) ~text:(Lazy.force lb.lb_text) ?value_constraint:lb.lb_constraint lb.lb_pattern lb.lb_expression) lbs.lbs_bindings in let str = mkstr ~loc (Pstr_value(lbs.lbs_rec, List.rev bindings)) in match lbs.lbs_extension with | None -> str | Some id -> ghstr ~loc (Pstr_extension((id, PStr [str]), [])) let expr_of_let_bindings ~loc lbs body = let bindings = List.map (fun lb -> Vb.mk ~loc:lb.lb_loc ~attrs:lb.lb_attributes ?value_constraint:lb.lb_constraint lb.lb_pattern lb.lb_expression) lbs.lbs_bindings in mkexp_attrs ~loc (Pexp_let(lbs.lbs_rec, List.rev bindings, body)) (lbs.lbs_extension, []) let class_of_let_bindings ~loc lbs body = let bindings = List.map (fun lb -> Vb.mk ~loc:lb.lb_loc ~attrs:lb.lb_attributes ?value_constraint:lb.lb_constraint lb.lb_pattern lb.lb_expression) lbs.lbs_bindings in (* Our use of let_bindings(no_ext) guarantees the following: *) assert (lbs.lbs_extension = None); mkclass ~loc (Pcl_let (lbs.lbs_rec, List.rev bindings, body)) (* If all the parameters are [Pparam_newtype x], then return [Some xs] where [xs] is the corresponding list of values [x]. This function is optimized for the common case, where a list of parameters contains at least one value parameter. *) let all_params_as_newtypes = let is_newtype { pparam_desc; _ } = match pparam_desc with | Pparam_newtype _ -> true | Pparam_val _ -> false in let as_newtype { pparam_desc; pparam_loc } = match pparam_desc with | Pparam_newtype x -> Some (x, pparam_loc) | Pparam_val _ -> None in fun params -> if List.for_all is_newtype params then Some (List.filter_map as_newtype params) else None (* Given a construct [fun (type a b c) : t -> e], we construct [Pexp_newtype(a, Pexp_newtype(b, Pexp_newtype(c, Pexp_constraint(e, t))))] rather than a [Pexp_function]. *) let mkghost_newtype_function_body newtypes body_constraint body = let wrapped_body = match body_constraint with | None -> body | Some body_constraint -> let loc = { body.pexp_loc with loc_ghost = true } in Exp.mk (mkexp_desc_constraint body body_constraint) ~loc in let expr = List.fold_right (fun (newtype, newtype_loc) e -> (* Mints a ghost location that approximates the newtype's "extent" as being from the start of the newtype param until the end of the function body. *) let loc = (newtype_loc.Location.loc_start, body.pexp_loc.loc_end) in ghexp (Pexp_newtype (newtype, e)) ~loc) newtypes wrapped_body in expr.pexp_desc let mkfunction params body_constraint body = match body with | Pfunction_cases _ -> Pexp_function (params, body_constraint, body) | Pfunction_body body_exp -> (* If all the params are newtypes, then we don't create a function node; we create nested newtype nodes. *) match all_params_as_newtypes params with | None -> Pexp_function (params, body_constraint, body) | Some newtypes -> mkghost_newtype_function_body newtypes body_constraint body_exp let mk_functor_typ args mty = List.fold_left (fun acc (startpos, arg) -> mkmty ~loc:(startpos, mty.pmty_loc.loc_end) (Pmty_functor (arg, acc))) mty args (* Alternatively, we could keep the generic module type in the Parsetree and extract the package type during type-checking. In that case, the assertions below should be turned into explicit checks. *) let package_type_of_module_type pmty = let err loc s = raise (Syntaxerr.Error (Syntaxerr.Invalid_package_type (loc, s))) in let map_cstr = function | Pwith_type (lid, ptyp) -> let loc = ptyp.ptype_loc in if ptyp.ptype_params <> [] then err loc Syntaxerr.Parameterized_types; if ptyp.ptype_cstrs <> [] then err loc Syntaxerr.Constrained_types; if ptyp.ptype_private <> Public then err loc Syntaxerr.Private_types; (* restrictions below are checked by the 'with_constraint' rule *) assert (ptyp.ptype_kind = Ptype_abstract); assert (ptyp.ptype_attributes = []); let ty = match ptyp.ptype_manifest with | Some ty -> ty | None -> assert false in (lid, ty) | _ -> err pmty.pmty_loc Not_with_type in match pmty with | {pmty_desc = Pmty_ident lid} -> (lid, [], pmty.pmty_attributes) | {pmty_desc = Pmty_with({pmty_desc = Pmty_ident lid}, cstrs)} -> (lid, List.map map_cstr cstrs, pmty.pmty_attributes) | _ -> err pmty.pmty_loc Neither_identifier_nor_with_type let mk_directive_arg ~loc k = { pdira_desc = k; pdira_loc = make_loc loc; } let mk_directive ~loc name arg = Ptop_dir { pdir_name = name; pdir_arg = arg; pdir_loc = make_loc loc; } # 953 "parsing/parser.ml" module Tables = struct include MenhirBasics let token2terminal : token -> int = fun _tok -> match _tok with | AMPERAMPER -> 127 | AMPERSAND -> 126 | AND -> 125 | ANDOP _ -> 124 | AS -> 123 | ASSERT -> 122 | BACKQUOTE -> 121 | BANG -> 120 | BAR -> 119 | BARBAR -> 118 | BARRBRACKET -> 117 | BEGIN -> 116 | CHAR _ -> 115 | CLASS -> 114 | COLON -> 113 | COLONCOLON -> 112 | COLONEQUAL -> 111 | COLONGREATER -> 110 | COMMA -> 109 | COMMENT _ -> 108 | CONSTRAINT -> 107 | DO -> 106 | DOCSTRING _ -> 105 | DONE -> 104 | DOT -> 103 | DOTDOT -> 102 | DOTOP _ -> 101 | DOWNTO -> 100 | EFFECT -> 99 | ELSE -> 98 | END -> 97 | EOF -> 96 | EOL -> 95 | EQUAL -> 94 | EXCEPTION -> 93 | EXTERNAL -> 92 | FALSE -> 91 | FLOAT _ -> 90 | FOR -> 89 | FUN -> 88 | FUNCTION -> 87 | FUNCTOR -> 86 | GREATER -> 85 | GREATERRBRACE -> 84 | GREATERRBRACKET -> 83 | HASH -> 82 | HASHOP _ -> 81 | IF -> 80 | IN -> 79 | INCLUDE -> 78 | INFIXOP0 _ -> 77 | INFIXOP1 _ -> 76 | INFIXOP2 _ -> 75 | INFIXOP3 _ -> 74 | INFIXOP4 _ -> 73 | INHERIT -> 72 | INITIALIZER -> 71 | INT _ -> 70 | LABEL _ -> 69 | LAZY -> 68 | LBRACE -> 67 | LBRACELESS -> 66 | LBRACKET -> 65 | LBRACKETAT -> 64 | LBRACKETATAT -> 63 | LBRACKETATATAT -> 62 | LBRACKETBAR -> 61 | LBRACKETGREATER -> 60 | LBRACKETLESS -> 59 | LBRACKETPERCENT -> 58 | LBRACKETPERCENTPERCENT -> 57 | LESS -> 56 | LESSMINUS -> 55 | LET -> 54 | LETOP _ -> 53 | LIDENT _ -> 52 | LPAREN -> 51 | MATCH -> 50 | METAOCAML_BRACKET_CLOSE -> 49 | METAOCAML_BRACKET_OPEN -> 48 | METAOCAML_ESCAPE -> 47 | METHOD -> 46 | MINUS -> 45 | MINUSDOT -> 44 | MINUSGREATER -> 43 | MODULE -> 42 | MUTABLE -> 41 | NEW -> 40 | NONREC -> 39 | OBJECT -> 38 | OF -> 37 | OPEN -> 36 | OPTLABEL _ -> 35 | OR -> 34 | PERCENT -> 33 | PLUS -> 32 | PLUSDOT -> 31 | PLUSEQ -> 30 | PREFIXOP _ -> 29 | PRIVATE -> 28 | QUESTION -> 27 | QUOTE -> 26 | QUOTED_STRING_EXPR _ -> 25 | QUOTED_STRING_ITEM _ -> 24 | RBRACE -> 23 | RBRACKET -> 22 | REC -> 21 | RPAREN -> 20 | SEMI -> 19 | SEMISEMI -> 18 | SIG -> 17 | STAR -> 16 | STRING _ -> 15 | STRUCT -> 14 | THEN -> 13 | TILDE -> 12 | TO -> 11 | TRUE -> 10 | TRY -> 9 | TYPE -> 8 | UIDENT _ -> 7 | UNDERSCORE -> 6 | VAL -> 5 | VIRTUAL -> 4 | WHEN -> 3 | WHILE -> 2 | WITH -> 1 and error_terminal = 0 and token2value : token -> Obj.t = fun _tok -> match _tok with | AMPERAMPER -> Obj.repr () | AMPERSAND -> Obj.repr () | AND -> Obj.repr () | ANDOP _v -> Obj.repr _v | AS -> Obj.repr () | ASSERT -> Obj.repr () | BACKQUOTE -> Obj.repr () | BANG -> Obj.repr () | BAR -> Obj.repr () | BARBAR -> Obj.repr () | BARRBRACKET -> Obj.repr () | BEGIN -> Obj.repr () | CHAR _v -> Obj.repr _v | CLASS -> Obj.repr () | COLON -> Obj.repr () | COLONCOLON -> Obj.repr () | COLONEQUAL -> Obj.repr () | COLONGREATER -> Obj.repr () | COMMA -> Obj.repr () | COMMENT _v -> Obj.repr _v | CONSTRAINT -> Obj.repr () | DO -> Obj.repr () | DOCSTRING _v -> Obj.repr _v | DONE -> Obj.repr () | DOT -> Obj.repr () | DOTDOT -> Obj.repr () | DOTOP _v -> Obj.repr _v | DOWNTO -> Obj.repr () | EFFECT -> Obj.repr () | ELSE -> Obj.repr () | END -> Obj.repr () | EOF -> Obj.repr () | EOL -> Obj.repr () | EQUAL -> Obj.repr () | EXCEPTION -> Obj.repr () | EXTERNAL -> Obj.repr () | FALSE -> Obj.repr () | FLOAT _v -> Obj.repr _v | FOR -> Obj.repr () | FUN -> Obj.repr () | FUNCTION -> Obj.repr () | FUNCTOR -> Obj.repr () | GREATER -> Obj.repr () | GREATERRBRACE -> Obj.repr () | GREATERRBRACKET -> Obj.repr () | HASH -> Obj.repr () | HASHOP _v -> Obj.repr _v | IF -> Obj.repr () | IN -> Obj.repr () | INCLUDE -> Obj.repr () | INFIXOP0 _v -> Obj.repr _v | INFIXOP1 _v -> Obj.repr _v | INFIXOP2 _v -> Obj.repr _v | INFIXOP3 _v -> Obj.repr _v | INFIXOP4 _v -> Obj.repr _v | INHERIT -> Obj.repr () | INITIALIZER -> Obj.repr () | INT _v -> Obj.repr _v | LABEL _v -> Obj.repr _v | LAZY -> Obj.repr () | LBRACE -> Obj.repr () | LBRACELESS -> Obj.repr () | LBRACKET -> Obj.repr () | LBRACKETAT -> Obj.repr () | LBRACKETATAT -> Obj.repr () | LBRACKETATATAT -> Obj.repr () | LBRACKETBAR -> Obj.repr () | LBRACKETGREATER -> Obj.repr () | LBRACKETLESS -> Obj.repr () | LBRACKETPERCENT -> Obj.repr () | LBRACKETPERCENTPERCENT -> Obj.repr () | LESS -> Obj.repr () | LESSMINUS -> Obj.repr () | LET -> Obj.repr () | LETOP _v -> Obj.repr _v | LIDENT _v -> Obj.repr _v | LPAREN -> Obj.repr () | MATCH -> Obj.repr () | METAOCAML_BRACKET_CLOSE -> Obj.repr () | METAOCAML_BRACKET_OPEN -> Obj.repr () | METAOCAML_ESCAPE -> Obj.repr () | METHOD -> Obj.repr () | MINUS -> Obj.repr () | MINUSDOT -> Obj.repr () | MINUSGREATER -> Obj.repr () | MODULE -> Obj.repr () | MUTABLE -> Obj.repr () | NEW -> Obj.repr () | NONREC -> Obj.repr () | OBJECT -> Obj.repr () | OF -> Obj.repr () | OPEN -> Obj.repr () | OPTLABEL _v -> Obj.repr _v | OR -> Obj.repr () | PERCENT -> Obj.repr () | PLUS -> Obj.repr () | PLUSDOT -> Obj.repr () | PLUSEQ -> Obj.repr () | PREFIXOP _v -> Obj.repr _v | PRIVATE -> Obj.repr () | QUESTION -> Obj.repr () | QUOTE -> Obj.repr () | QUOTED_STRING_EXPR _v -> Obj.repr _v | QUOTED_STRING_ITEM _v -> Obj.repr _v | RBRACE -> Obj.repr () | RBRACKET -> Obj.repr () | REC -> Obj.repr () | RPAREN -> Obj.repr () | SEMI -> Obj.repr () | SEMISEMI -> Obj.repr () | SIG -> Obj.repr () | STAR -> Obj.repr () | STRING _v -> Obj.repr _v | STRUCT -> Obj.repr () | THEN -> Obj.repr () | TILDE -> Obj.repr () | TO -> Obj.repr () | TRUE -> Obj.repr () | TRY -> Obj.repr () | TYPE -> Obj.repr () | UIDENT _v -> Obj.repr _v | UNDERSCORE -> Obj.repr () | VAL -> Obj.repr () | VIRTUAL -> Obj.repr () | WHEN -> Obj.repr () | WHILE -> Obj.repr () | WITH -> Obj.repr () and default_reduction = (16, "\000\000\000\000\000\000\003\156\003\155\003\154\003\153\003\152\003j\003\151\003\150\003\149\003\148\003\147\003\146\003\145\003\144\003\143\003\142\003\141\003\140\003\139\003\138\003\137\003\136\003\135\003\134\003\133\003i\003\132\003\131\003\130\003\129\003\128\003\127\003~\003}\003|\003{\003z\003y\003x\003w\003v\003u\003t\003s\003r\003q\003p\003o\003n\003m\003l\003k\000\000\000\000\000\"\000\130\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\221\002\018\001\253\002\015\002\014\002\r\002\019\002\023\000\000\003\222\002\017\002\016\001\254\002\021\002\012\002\011\002\n\002\t\002\b\002\006\002\022\002\020\000\000\000\000\000\000\001\n\000\000\000\000\002\001\000\000\000\000\000\000\002\003\000\000\000\000\000\000\002\005\002\027\002\024\002\007\001\255\002\025\002\026\000\000\003\220\003\219\003\223\000\000\000\000\000 \001\164\000\132\000\000\001\006\001\007\000\000\000\000\000\000\0024\0023\000\000\000\000\000\031\000\000\000\000\000\000\000\000\000\000\001\207\000\000\000\000\000\000\000\000\000\000\003\216\000\000\003\211\000\000\000\000\003\213\000\000\003\215\000\000\003\212\003\214\000\000\003\206\000\000\003\205\003\201\002\208\000\000\003\204\000\000\002\209\000\000\000\000\000\000\000\000\000c\000\000\000\000\000a\000\000\000\000\001\162\000\000\000\000\000\000\000\000\000\000\000\234\001\176\000\000\000\000\000\000\000\000\000\000\000\000\002\185\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\197\000\000\002\031\000\000\000\000\000|\000\000\000\000\000\000\000\000\000\000\001\182\000\000\001\181\000\000\001\165\001\180\000\000\001\163\000[\000\027\000\000\000\000\001\228\000\024\000\000\000\000\000\000\000\000\000\000\000s\000\000\000\000\000\000\003\200\000\018\000t\000\135\000u\000\023\000\000\000v\000r\000\000\000\000\000\000\000\000\000\000\000\000\000\028\000\025\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\019\000\030\000\243\000\245\002\218\002\204\000\000\000y\000\000\002\205\000\000\000\000\002\028\000\000\000\000\000\000\000\000\003\178\000\000\001p\000\000\003\179\000\000\000\000\000x\000\000\000\000\000\000\000z\000\000\000{\000\000\000}\000\000\000\000\000~\002\194\002\193\000\000\000\000\003\196\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\172\002\171\000^\000\000\000\000\000\000\000\000\000\000\003W\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0017\0016\000\000\003\005\003\006\000\000\003\003\003\004\000\000\000\000\000\000\000\000\000\000\001\202\001\201\000\000\003U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\r\000\017\000\016\000\000\000\000\000\000\000\000\000\000\001\193\000\000\000\000\000\000\000\000\000\000\000\000\001\174\000\000\000\000\001\177\001\175\001\183\000:\003(\003\177\003\176\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001L\001K\000\000\000\000\000`\000\000\001\021\000\000\003\b\003\007\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\\\000\000\003\\\000_\000b\000]\003Q\003\224\003R\002a\003T\000\000\000\000\003Y\003\002\003[\000\000\000\000\000\000\003b\003_\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001/\001.\000\000\001-\003h\003Z\000j\000\000\000\000\000\000\000\000\002]\000\000\000\000\002\\\000\000\001N\002T\002`\002S\002W\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001'\001&\000\000\001%\002\174\000\000\000\000\002X\000\000\000\000\000\000\000\000\000\000\001\230\000\000\000\000\002_\000\000\000\000\000i\000\000\003c\003S\000\000\0018\000\000\000\000\000\000\000\000\000\000\001+\001*\000\000\001)\002\175\000\000\000\000\003f\000\000\003e\003d\000\000\002Z\000\000\000\000\002V\002U\002^\002[\002\176\000\000\000\000\000h\000\000\003a\003`\000\000\003^\000\000\003\n\003\t\000\000\000\000\002\231\003]\000\000\000\000\000\000\000\000\002!\001\139\001\140\003\012\000\000\003\r\003\011\000\000\001J\002\184\001O\000\000\000\000\002h\000\000\002c\002d\002g\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001<\001;\000\000\001:\002\180\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001H\001G\000\000\001F\002\183\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001D\001C\000\000\001B\002\182\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001 \001!\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\128\000\000\000\000\000\000\000\000\000\000\000\248\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\214\000\000\000\000\000\000\000\000\000\000\000\000\003\247\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\203\000\000\000\000\000\000\000\000\000\000\001\213\000\000\000\000\000\000\001\173\001\220\001\172\002\189\001\217\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\202\000\000\000\000\002\203\002\190\000\000\000\000\001\212\001\211\000\000\000\249\000\000\000\000\000\000\000\000\000\000\001\195\000\000\000\000\001\199\000\000\0028\0027\000\000\000\000\0026\0025\001\198\001\196\000\000\001\200\000\000\000\000\001\185\000\000\000\000\000\000\000\000\000\000\001v\001\143\000\000\001\187\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003.\001\178\0033\0031\000\000\000\000\000\000\003>\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003P\000\000\003O\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002l\000\000\000\000\000\000\000\000\000\000\000\000\001\030\002k\001\031\000\000\000\000\000\000\000\235\000\000\001\"\001#\000\000\000\236\002\188\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\157\002\156\000\000\000\000\000\000\003;\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\225\003=\0030\003/\000\000\000\000\000\000\000\000\000\204\002\197\000\000\000\000\000\000\000\000\000\000\001\025\001\024\000\000\001\026\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\225\000\000\000\000\000\000\000\000\000\000\000\000\002\147\002\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\199\000\000\000\000\000\000\000\000\000\207\002\235\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\233\000\000\000\000\000\000\000\000\000\000\000\000\000\206\000\205\000\000\000\000\000\000\000\241\000\240\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\152\002\151\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\158\000\000\000\000\000\000\000\000\000\000\000\000\001U\000\000\000\000\002\196\000\000\000\000\000\000\001T\000\000\000\000\001S\001R\000\000\0022\000\000\000\000\000\140\003\159\002\187\000\000\000\000\000\000\000\000\001W\000\000\000\000\001V\000\000\001M\000\000\000\000\000\000\000\000\000\000\001@\001?\000\000\001>\002\181\000\000\000\000\002j\000\000\000\000\002f\002e\001P\000\000\000\020\001Y\000\000\000\000\000\000\002\224\000\000\003\029\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003!\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\031\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\026\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\028\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\027\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\030\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\"\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\192\002\191\000\203\000\000\000\127\000\128\000\000\000\000\000\000\000\000\000\156\000\155\000\000\003\017\000\000\000\000\003\019\000\000\000\000\003\018\000\000\000\000\000\000\000\000\003\021\000\000\000\000\003\025\000\000\000\000\003\023\0037\000\000\000\000\000\000\000\000\000\000\000\143\000\000\000\000\001\146\000\000\001\147\001\145\002\198\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\020\000\000\000\000\003\024\000\000\000\000\003\022\000\000\000\000\000\000\000\000\000\000\002\162\002\161\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001a\000\000\000\000\001b\000\000\000\000\000\208\000\000\001d\001c\000\000\000\000\003?\0038\000\000\003H\000\000\003I\003G\000\000\003M\000\000\003N\003L\000\000\000\000\003:\0039\000\000\000\000\000\000\002\130\000\000\000\000\000\000\000\000\002\234\002\129\000\000\003C\003B\000\000\000\000\000\000\001\179\000\000\003&\000\000\003'\003%\000\000\003A\003@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\228\0036\000\000\0035\0034\000\000\003K\003J\002q\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\218\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001l\003\170\000\000\000\000\000\000\000\000\000\000\000\000\003\174\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\232\000\000\002w\000\000\000\000\000\000\000\000\000d\000\000\000\000\000e\000\000\000\000\000\000\000\000\001\222\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\015\000\000\000\000\000n\000\000\001\018\001\016\000\000\000\000\000\000\000\251\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\157\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\237\000f\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\252\000\000\000\000\000\000\001\251\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\219\000\000\000\000\000\000\000\000\001\204\000\000\001\203\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001n\002\251\000\000\000\000\001\189\000\000\002\249\000\000\000\000\000\000\002\248\000\000\000\000\001\190\000\000\000\000\000\000\000\000\002\255\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\233\000\000\000\000\000\000\000\138\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000>\000\000\000\000\000\000\000\000\001\227\000\000\001\226\000\000\000\000\000\000\000\000\000A\000\000\000\000\000\000\002~\000\000\002}\000\000\000\000\000\000\000\000\000B\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000G\000\000\000\000\000\000\000H\000F\000\000\000K\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000C\000\000\000J\000I\000\000\000D\000E\000\000\001\127\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001j\000Z\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000W\000\000\000Y\000X\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001h\003\000\002\241\000\000\002\247\002\242\002\254\002\253\002\252\002\250\001y\000\000\002\239\000\000\000\000\000\000\000\000\000\000\002\185\000\000\000\000\001r\002\243\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\243\001\239\000\000\000\000\000\000\001\000\000\000\000\000\002\133\002\185\000\000\000\000\001t\002\131\002\132\000\000\000\000\000\000\000\000\000\000\001\246\001\242\001\238\000\000\000\000\001\001\000\000\000\000\001\245\001\241\001\237\001\235\002\244\002\240\003\001\001x\002n\002\238\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\228\000\000\000\000\003\230\000\000\000/\000\000\000\000\003\236\000\000\003\235\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\227\000\000\000\000\003\229\000\000\000\000\000\000\002y\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\161\000\000\000\000\001\159\001\157\000\000\0000\000\000\000\000\003\239\000\000\003\238\000\000\000\000\000\000\001\155\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\160\000\000\000\000\001\158\001\156\000\000\000\000\000\000\0002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001[\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000Q\000\000\000\000\000\000\000\000\000\000\000\000\000,\000\000\000\000\000P\000\000\000*\001\\\000\000\0009\000&\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001Z\000\000\000O\000N\000\000\000\000\000T\000S\000\000\000\000\002#\000\000\000.\000\000\000\000\000\000\000-\000\000\000\000\000\000\0001\000\000\000R\000U\000\000\0003\0004\000\000\001\129\000\000\000\000\000\000\000\000\000\000\000\000\0007\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001f\003\172\003\165\000\000\000\000\000\000\000\000\000\000\000\000\001X\003\169\001\142\003\164\001\144\003\171\003\175\001}\000\000\000\000\001\141\000\000\003\166\003\163\003\173\002m\000\000\000\000\003\161\000#\003\160\000\000\000\000\000\136\000\000\001\012\000\000\000\000\000\142\0020\000\000\001\028\001\029\001_\000\000\000\000\000\000\000\000\000\000\003F\000\000\003E\003D\0032\000\000\000\000\000\000\000\000\003)\000\000\003+\000\000\003*\000\000\003\015\003\014\000\000\003\016\000\000\000\000\000\000\000\000\003$\003#\000\000\000\000\000\000\000\000\002F\002:\000\000\002D\000\000\002@\000\000\002B\000\000\002<\000\000\000\000\002>\000\000\002E\0029\000\000\002C\000\000\002?\000\000\002A\000\000\002;\000\000\000\000\002=\000\000\001\250\000\000\000\000\000\000\001\249\000\000\000\000\001|\001{\000\000\001\192\001\191\000\000\000\000\003g\003V\000\000\0015\002\178\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0013\0012\000\000\0011\002\177\000\000\000\000\000;\000\000\000\000\000<\000\000\000\000\003-\003,\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\167\002\166\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\146\000\000\000\000\002v\001\005\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\133\000\000\003\168\002\138\002\139\002\134\002\136\002\135\002\137\000\000\000\000\000\000\000\134\000\000\000\000\002\185\000\000\001\004\000\000\000\000\000\000\000\000\003\167\000\000\000\131\000\000\000\000\000\000\000\000\001\154\001\148\000\000\000\000\001\149\001\248\000\000\001\247\000\000\000\000\000\244\000\000\000\000\000\000\000\000\000\246\000\000\000\000\000\000\000\029\000\026\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\244\001\240\000\000\001\236\003\199\000\000\002\185\000\000\001\003\000\000\000\000\000\000\000\000\002\246\002\142\002\140\002\141\000\000\000\000\000\000\002\185\000\000\001\002\000\000\000\000\000\000\000\000\002\245\000\000\001\206\001\205\000\000\000w\000\000\003\231\000\000\000$\000\000\000\000\000\000\000\000\000\154\000\153\000\000\001\b\000\001\000\000\000\000\001\011\000\002\000\000\000\000\000\000\001\167\001\168\000\003\000\000\000\000\000\000\000\000\001\170\001\171\001\169\000\021\001\166\000\022\000\000\002G\000\000\000\004\000\000\002H\000\000\000\005\000\000\002I\000\000\000\000\002J\000\006\000\000\000\007\000\000\002K\000\000\000\b\000\000\002L\000\000\000\t\000\000\002M\000\000\000\n\000\000\002N\000\000\000\011\000\000\002O\000\000\000\000\002P\000\012\000\000\000\000\002Q\000\r\000\000\000\000\000\000\000\000\000\000\003\186\003\181\003\182\003\185\003\183\000\000\003\190\000\014\000\000\003\189\000\000\001\131\000\000\000\000\003\187\000\000\003\188\000\000\000\000\000\000\000\000\001\135\001\136\000\000\000\000\001\134\001\133\000\015\000\000\000\000\000\000\003\218\000\000\003\217") and error = (128, "'\233 \197\138\173\190f~\002\129\252\128\0008\224#i\000E\194\141\190$\254\000\129\240\000\000\024\224}\246D\b/\226*\000\t\131\131\220x\176(4\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\175\235f\245\155\175\190f\255\146\163\252Q\016y\224}\246D\b/\226*\000\t\131\131\220x\176(4\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000#i\000E\130\141\190$\254\000\129\240\000\000\024\224}\246D\b/\226*\000\t\131\131\220x\176(4'\233\"\213\138\173\190f~\002\129\252\000\000x\224\000\000\000\000@\000\024\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\024\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\128\000\128\007\224,\004\128\000|D\002\004\001\002\139\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000P\000\000\000\000\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\b\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\018\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\b\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\017\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\b\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\133\128\179\160\b2\nC\129\131$\014\193\018!\020\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\016 \024\184@\000 \000\000\000\000\000\001\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\002@@@ \024 \128\000\002\000\000\000\000\000\001\002@@\000 \024 \128\000\002\000\000\000\000\000\001\002@@\000 \024 \000\000\002\000\000\000\000\000\196\128*\128\b0\018C\128\002 \014\193\003 \004\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128 \128\b \000B\128\002\000\012@\000 \000\132\128 \128\b \000B\000\002\000\012@\000 \000\003\000\000$\193\004\024\000\128\016\000\000\000\000\000\128\003\000\000$\129\004\024\000\128\016\000\000\000\000\000\128\003\000\000$\129\004\024\000\000\016\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000 \000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000$\128\004\024\000\000\016\000\000\000\000\000\128\002\000\000 \000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000$\128\004\000\000\000\016\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000 \128\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000$\128\004\000\000\000\016\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\132\128\"\130\b \000C\000\002\000\014\192\017 \004\003 \000x\016\000\024\184P\000 \016\002\000\001\000\132\128\"\128\012 \018C\128\002 \012\193\016a\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003 \000p\016\000\024\184P\000 \016\002\000\001\000\003\000\bp\016 \024\184@\000 \000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\197\128\187\128\b2\nC\129\130$\014\192\022a\022\003\000\000`\000\000\024\184@\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000`\000\000\024\184@\000$\000\002\000\000\000\001\000\016\000\000\000\b\000\000\000$\000\000\000@\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000}\246D\b/\226*\000\t\131\131\220x\176(4'\233\"\213\138\173\190f~\002\129\252\000\000x\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000$\193\004\024\000\128\016\000\000\000\000\000\128\003\000\000$\129\004\024\000\128\016\000\000\000\000\000\128\003\000\000$\129\004\024\000\000\016\000\000\000\000\000\128\003\000\000$\128\004\024\000\000\016\000\000\000\000\000\128\001\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\132\128\"\130\b \002C\000\002 \014\192\016 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \002C\000\002 \012\192\016 \004}\246D\b/\226*\000\t\131\131\220x\176(4'\233\"\213\138\173\190f~\002\129\252\000\000x\224#i\000E\194\141\190$\254\000\129\240\000\000\024\224#i\000E\130\141\190$\254\000\129\240\000\000\024\224#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002@\000\131\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000\024\184@\000 \000\000\000\001@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000\024\184@\000 \000\000\000\000@\003\000\002p\016\000\024\184@\000 \000\000\000\001@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000\024\184@\000 \000\000\000\000@\003\000\000p\016\000\024\184@\000 \000\000\000\001@\001\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\001\000\000\000\129\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\016\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000\024\184@\000 \000\000\000\000@\001\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\196\128;\128\b2\002C\129\130$\014\192\022!\022\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\003\000\000`\000\000\024\184@\000 \000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\001\000\000\000\001\000\000\000\000\000\024\024@\000\000\000\000\000\000\000\003\000\000p\016 \024\184@\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\197\128\187\128\b2\nC\129\130$\014\192\022!\022\003\000\000`\000\000\024\184@\000 \000\000\000\000\000\197\128\187\128\b2\nC\129\130$\014\192\022a\022\003\000\000`\000\000\024\184@\000 \000\000\000\000\000\197\128\187\128\b2\nC\129\130$\014\192\022!\022\001\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\196\128\187\128\b2\002C\129\130$\014\192\022!\022\003\000\000`\000\000\024\184@\000 \000\000\000\000\000\197\128\187\128\b2\nC\129\130$\014\192\022a\022\003\000\000`\000\000\024\184@\000 \000\000\000\000\000\197\128\187\128\b2\nC\129\130$\014\192\022!\022\197\128\187\128\b2\nC\129\130$\014\192\022!\022\197\128\187\128\b2\nC\129\130$\014\192\022!\022\196\128;\128\b2\002C\129\130$\014\192\022!\020\000\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000\024\184@\000 \000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\004\000\000\000\128\000\004\000\000\000\001\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\002\000\000\000\000\000\128\000\004\000\000\000\001\002\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\002\000\000\000\000\000\128\000\004\000\000\000\001\018\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\175\235w\253\155\239\190\255\255\147\167\252\210\0169\228\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\128\000\004\000\000\000\001\018\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\128\000\004\000\000\000\001\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\003\000\000p\016\000\024\184@\000 \000\000\000\000@\000\000\002\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\004\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\025\000\000\000\000\000\128\000\000\002\000\000\000\000\131\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\025\000\000\000\000\000\128\000\000\002\000\002\000\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\128\000\025\000\000\000\000\000\128\000\000\002\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002@\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001!\000D\002\129\152$r\000\0000\000\000\024\192\132\000\000\128@\002\016B\129\128\000\000@\016\000\000\132\000\000\128\000\002\016B\129\128\000\000@\016\000\000\132\000\000\128\000\002\016B\001\128\000\000@\016\000\000\003)\000@\128\004\024$^\000 4\016\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\b\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\000\003)\000@\128\004\024$^\000 4\018\000\016@\000\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\b\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\131)\136G\224,\028\164^|d6\020\001\146\203\128\000\b\000\000\000\000\000\002\000\000 \000\000\000\000\131\000\000\000@\000\000\000\128\000\000\000\000\000\000\000\003\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\003\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\002@@\000 \024 \000\000\002\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\001\002@@\000\000\016 \128\000\002\000\000\000\000\000\001\002@@\000\000\016 \000\000\002\000\000\000\000\000\167\233 \197\138\173\190f\254\002\129\252@\0008\224\167\233 \197\138\173\190f~\002\129\252@\0008\224\167\233\"\197\138\173\190f~\002\129\252\192\0008\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\002@@@\000\016 \128\000\002\000\000\000\000\128\001\002@@@\000\016 \128\000\002\000\000\000\000\000\001\002@@\000\000\016 \128\000\002\000\000\000\000\000\001\002@@\000\000\016 \000\000\002\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\005\002@@\000\000\016 \000\000\002\000\000\000\000\000#i\000E\130\141\190$\254\000\129\240\000\000\024\224#i\000E\130\141\190$~\000\129\240\000\000\024\224\001\000\000\000@\000\b\000\128\000\000\000\000\000\000\000\001\000\000\000\000\000\b\000\128\000\000\000\000\000\000\000\001\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\001\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001!\000D\002\129\152$r\000\0000\000\000\024\192#i\000E\130\141\190$~\000\129\240\000\000\024\224#i\000E\194\141\190$\254\000\129\240\000\000\024\224#i\000E\130\141\190$\254\000\129\240\000\000\024\224#i\000E\130\141\190$~\000\129\240\000\000\024\224\163i\136G\226\173\190\164~|\197\242\004\001\154\235\129!\bD\002\129\152$r\000\0000\000\000\024\192#i\000E\130\141\190$~\000\129\240\000\000\028\224\197\189\187\215\250\191\219\231\247\255l>\237\183\255\207#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\128\004\024$^\000 0\000\000\016@\000\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\b\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\000\003)\000@\128\004\024$^\000 0\002\000\016@\000\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\b\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003)\000@\128\004\024$^\000 4\016\000\020@\003)\002@\128\004\024$^\000 4\016\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\017\000\000\000\000\000\000\000\000\002\000\000@\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\128\000\017\000\000\000\000\000\128\000\000\002\000\000\000\000\128\000\017\000\000\000\000\000\000\000\000\002\000\000\000\000\003)\000@\128\004\024$^\000 4\016\000\016@\003!\000@\192\004\024$\210\000 0\000\000\016@\003!\000@\128\004\024$\210\000 0\000\000\016@\003!\000@\128\004\024$R\000 0\000\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\147)\027P\144\020\024$\214\000 2\130\006\213P\000\001\000\000\128\004\000\000\002\000\000 \000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\147)\027P\144\020\024$\222\000 6\145\006\213P\001\000\000\000\000\000\016\004P\000\000\000\000\000\000\000\131)\b@\128\004\024$^\000 4\016\000\144@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003!\000@\128\004\024$R\000 0\000\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\000\003)\000@\128\004\024$^\000 4\018\000\016@\000\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\b\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003!\000@\128\004\024$R\000 0\000\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003)\000@\192\004\024$\222\000 4\016\000\016@\003)\000@\128\004\024$\222\000 4\016\000\016@\003)\000@\128\004\024$^\000 4\016\000\016@\003!\000@\128\004\024$Z\000 0\000\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\000\003!\000@\128\004\024$R\000 0\000\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\147)\027@\128\020\024$\222\000 6\144\004\213P\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\144\000\027\000\000\016\000\000\128\000\000\002\128\004\197\016\003)\000@\128\004\024$^\000 4\018\000\016@\000\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\b\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003!\000@\128\004\024$R\000 0\000\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\144\000\027\000\000\016\000\000\128\000\000\002\128\004\197\016\131)\000@\128\004\024$^\000 4\016\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\144\000\027\000\000\016\000\000\128\000\000\002\128\004\197\016\147)\027@\128\020\024$\222\000 6\144\004\213P\131\169\136G\224,\028\164^|d6\020\001\146\203\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\b\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\003!\000@\128\004\024$R\000 0\000\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\b\000\000\000\000\000\002\000\000 \000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\b\000\000\000\000\000\128\000\000\000\000\004\193\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\131)\000@\128\004\024$^\000 4\018\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\b\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003!\000@\128\004\024$R\000 0\000\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\144\000\027\000\000\016\000\000\128\000\000\002\128\004\197\016\131\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\b\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\131)\000@\128\004\024$^\000 4\016\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\144\000\027\000\000\016\000\000\128\000\000\002\128\004\197\016\128\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\144\000\027\000\000\016\000\000\128\000\000\002\128\004\197\016\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\b\000\000\000\000\000\128\000\000\000\000\004\129\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003)\002@\128\004\024$^\000 4\016\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\018\000\000\000\000\000\128\000\000\000\000\004\133\016\131)\002@\128\004\024$^\000 4\016\000\020@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\017\000\000\000\000\000\128\000\000\000\000\004\129\016\128\000\017\000\000\000\000\000\000\000\000\000\000\000\000\000\131\000\001\000\000\000\b\000\000\000\000\000\000\000\000\000\128\000\017\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003!\000@\128\004\024$R\000 0\000\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\002\000\004\129\016\131)\000@\128\004\024$^\000 4\016\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\002\000\004\129\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\002\000\004\129\016\003)\000@\128\004\024$^\000 0\002\000\016@\000\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\b\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003!\000@\128\004\024$R\000 0\000\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\002\000\004\129\016\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\000\003)\000@\128\004\024$^\000 0\002\000\016@\000\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\b\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003!\000@\128\004\024$R\000 0\000\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\002\000\004\129\016\003!\000@\128\004\024$R\000 0\000\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\000\003)\000@\128\004\024$^\000 0\002\000\016@\000\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\b\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003!\000@\128\004\024$R\000 0\000\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\002\000\004\129\016\003)\000P\144\004\024$\214\001 2\000\004\209X\000\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\002\000\000@\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\b\000\000\000\000\000\128\000\000\002\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\002\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\004\192\200$\024d\222\000 4\000\000\016@\003)\004\192\136$\024d\222\000 4\000\000\016@\003)\004\192\136$\024d^\000 4\000\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000\000@\000\000\000\128\000\000\000\000\000\000\000\003\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\003\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\002\000\000@\000\003\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\001\002@@\000 \024 \000\000\002\000\000\000\000\000\003\002H@\000 \024 \000\000\002\000\000\000\000\000\192\000\b\000\000\016\016\000\128\000\000\000\001\000@\000\000\000\000\000\000\000\016\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\016\000\000\000\000\000\000\000\000\000\001\002@@\000 \024 \000\000\002\000\000\000\000\000\000\000\000\000\000\016\016\000\000\000\000\000\000\000\000\000\001\002@@\000 \024 \000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\196\128*\128\b0\002C\128\002 \014\192\002 \004\000\128\000\000\000 \000\000\000\000\000\000\000\000\000\000\003\000\000$\128\004\024\000\000\016\000\000\000\000\000\128\001\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\001\000\000\003\000\000x\016\000\024\184@\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\196\128*\128\b0\002C\128\002 \014\192\002 \020\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\196\128*\128\b0\002C\128\002 \014\192\018 \020\196\128*\128\b0\002C\128\002 \014\192\018 \004\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\002\000\000\000\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\196\128*\128\b0\002C\128\002 \014\192\018 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\001\000\000\001\002@@\000 \024 \000\000\002\000\000\000\000\000\196\128*\128\b0\002C\128\002 \014\192\002 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\001\000\000\000\001\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\196\128*\128\b0\018C\128\002 \014\193\003 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\002@@\000 \024 \000\000\002\000\000\000\000\000\196\128*\128\b0\002C\128\002 \014\192\002 \004\001\002@@\000 \024 \000\000\002\000\000\000\000\000\196\128*\128\b0\002C\128\002 \014\192\002 \004\000\000\000\000\000\000\000\000\000\000\000\002\001\001\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\196\128*\128\b0\018C\128\002 \014\193\002 \004\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\196\128*\128\b0\018C\128\002 \014\193\002 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\196\128*\128\b0\002C\128\002 \014\192\002 \004\000\128\000\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\196\128*\128\b0\002C\128\002 \014\192\002 \004\192\000\b\000\000\016\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\b\000\000\016\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\002@@\000\000\016 \000\000\002\000\000\000\000\000\000\000\000\000\000\000\016\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\016\000\000\000\000\000\000\000\000\000\001\002@@\000\000\016 \000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\196\128*\128\b0\018C\128\003 \014\192\002`\004\005\002H@\000\000\016 \000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\b\000\000\000\016\000\128\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\002@@\000 \024 \000\000\002\000\000\000\000\000\192\000\b\000\000\016\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\196\128*\128\b0\018C\128\003 \014\193\002`\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \018C\128\003 \012\192\000 \004\129\002@@\000 \024 \000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\000\016\000\000\128\000\000\002\000\000\000\000\001\002@@\000\000\016 \000\000\002\000\000\000\000\000\132\128\"\128\b \018C\128\003 \012\192\000 \004\132\128\"\128\b \002C\000\003 \012\192\000 \000\132\128\"\128\b\"\002C\001\131 \012\192\016 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\002\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000}\246D\b/\226*\000\t\131\131\220x\176(4'\233\"\213\138\173\190f~\002\129\252\000\000x\224\003)\000@\128\004\024$^\000 4\016\000\016@\016\000\002\000\000\000\000\000\128\000\000\000\000\004\129\016#i\000E\130\141\190$~\000\129\240\000\000\024\224#i\002E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\b\000\000\000\b\000\000\000\000\000\128\000\016\000\000\000\000\000\000\000\b\002\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\001!\000D\002\129\152$r\000\0000\000\000\024\192\192\000\017\000\000\000\000\000\000\000`\002\005\002@\000#i\000E\194\141\190$\254\000\129\240@\000\024\224#i\000E\130\141\190$\254\000\129\240@\000\024\224#i\000E\130\141\190$~\000\129\240@\000\024\224\001!\000DB\129\152$\242\000\0000\000\000\024\192\001!\000D\002\129\152$\242\000\0000\000\000\024\192\001!\000D\002\129\152$r\000\0000\000\000\024\192\001!\000D\002\129\152$r\000\0000\000\000\024\192\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\197\189\187\215\250\191\218\231\247\255l>\237\183\255\223\001\000\000\000\000\000\024\004p\000\000\000\000\000\000\000\163i\136G\226\173\190\164~|\197\242\004\001\154\235\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\163i\bE\130\141\190$~\000\129\240\000\000\024\224\163i\bE\130\141\190$~\000\129\240\000\000\024\224\129\002@@@\000\016 \128\000\002\000\000\000\000\000\001\002@@\000\000\016 \128\000\002\000\000\000\000\000\001\002@@\000\000\016 \000\000\002\000\000\000\000\000\000\000\000\000\000\000\016\000\128\000\000\000\000\000@\000\129\002@@\000 \024 \000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\b\000\000\016\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\163i\bE\130\141\190$~\000\129\240\000\000\024\224\163i\bE\130\141\190$~\000\129\240\000\000\024\224\131)\b@\128\004\024$^\000 0\000\000\016@\000\000\000\000\000\000\000\000\128\000\000\002\000\004\193\016\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\002\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\001!\000D\002\129\152$r\000\0000\000\000\024\192\000\000\000\000\000\000\000\000\000\000`\000\005\004\000\000\001!\000D\002\129\152$r\000\0000\000\000\024\192\197\189\187\215\250\191\218\231\247\255l>\237\183\255\223\000\000\000\000\000\000\016\000P\000\000\000\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224#i\000E\194\141\190$\254\000\129\240\000\000\024\224#i\000E\130\141\190$\254\000\129\240\000\000\024\224#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\016@\016\000\000\000\000\016\000\000\128\000\000\000\000\004\129\016#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000P\208\004\024$\214\000 0\000\000\016@\003)\000P\144\004\024$\214\000 0\000\000\016@\003)\000P\144\004\024$V\000 0\000\000\016@\002\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003)\000@\128\004\024$^\000 4\016\000\016@\000\000\b\000\000\000\000\000\128\000\000\002\000\004\193\016\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\b\000\000\000\000\000\128\000\000\002\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\131\169\136G\224,\028\164^|d6\020\001\146\203\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003!\000@\128\004\024$R\000 0\000\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003)\000P\144\020\024$V\000 2\000\002P@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000@\000\003\000\000`\000\000\024\184@\000 \000\000\000\000\000\001\000\000\000\000\016\b\000\000\000 \000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002@\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001!\000D\002\129\152$r\000\0000\000\000\024\192\196\148\187\131\232>B\195\129\255l\014\237\183\231\015\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\024\000P\000\000\000\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\016@\003)\000@\128\004\024$\222\000 4\016\000\016@\003)\000@\128\004\024$^\000 4\016\000\016@\000\000\000\000\000\000\000\000\128\000\000\002\000\004\129\016#i\000E\130\141\190$~\000\129\240\000\000\024\224\001!\000DB\129\152$\242\000\0000\000\000\024\192\001!\000D\002\129\152$\242\000\0000\000\000\024\192\001!\000D\002\129\152$r\000\0000\000\000\024\192\196\148\187\131\232>B\195\129\255l\014\237\183\231\015\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\197\189\187\215\250\191\218\231\247\255l>\237\183\255\207\000\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002@\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001!\000D\002\129\152$r\000\0000\000\000\024\192\197\189\187\215\250\191\218\231\247\255l>\237\183\255\223\001!\000D\002\129\152$r\000\0000\000\000\024\192\197\189\187\215\250\191\218\231\247\255l>\237\183\255\223\000\000\000\000\000\000\016\000P\000\000\000\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\128\000\027\000\000\000\000\000\000\000\000\000\000\004\005\000\163i\011E\130\141\190$~\000\129\240\000\000\028\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002@\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001!\000D\002\129\152$r\000\0000\000\000\024\192\196\148\187\131\232>B\195\129\255l\014\237\183\231\015\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\003)\000@\128\004\024$^\000 4\016\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\197\189\187\215\250\191\218\231\247\255l>\237\183\255\207\196\148\187\131\232>B\195\129\255l\014\237\183\231\015\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\004#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\197\189\187\215\250\191\218\231\247\255l>\237\183\255\207\196\148\187\131\232>B\195\129\255l\014\237\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\231\253\187\199\234\191\254\231\255\255\173\254\232\183\255\239}\246D\b/\226*\000\t\131\131\220x\176(4#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002@\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001!\000D\002\129\152$r\000\0000\000\000\024\192\196\148\187\131\232>B\195\129\255l\014\237\183\231\015\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\003)\000@\128\004\024$\222\000 0\000\000\016@\003)\000@\128\004\024$^\000 0\000\000\016@\135\169\"\208\152$\026g\214\003 >\192\006\241T#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\131\128\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\002\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\001\000\000\000\001\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\002\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\002@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\002\000\004\193\016\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\002\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\002\000\004\129\016#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\131)\000@\128\004\024$^\000 0\002\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\b\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003!\000@\128\004\024$R\000 0\000\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\002\000\004\129\016\131)\000@\128\004\024$^\000 4\016\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\002\000\004\129\016\128\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \002C\000\003 \012\192\000 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\128\000\155\003\224\012\000\128\128|\004\002\000\005\134\003\163i\011E\130\141\190$~\000\129\240\000\000\028\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\197\189\187\215\250\191\219\231\247\255l>\237\183\255\207#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\128\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\197\189\187\215\250\191\219\231\247\255l>\237\183\255\207#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\128\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\197\189\187\215\250\191\219\231\247\255l>\237\183\255\207#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\001\000\000\000\000\000\024\000P\000\000\000\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\128\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\197\189\187\215\250\191\219\231\247\255l>\237\183\255\207#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\128\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\197\189\187\215\250\191\219\231\247\255l>\237\183\255\207#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\128\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\197\189\187\215\250\191\219\231\247\255l>\237\183\255\207#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\000\000\000\000\000\000\000\000\000\000\000\000\005\000\000\000\000\000\000\000\000\000\016\000P\000\000\000\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\128\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\197\189\187\215\250\191\219\231\247\255l>\237\183\255\207#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\128\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\197\189\187\215\250\191\219\231\247\255l>\237\183\255\207#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\128\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\197\189\187\215\250\191\219\231\247\255l>\237\183\255\207#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\197\189\187\215\250\191\219\231\247\255l>\237\183\255\207#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\197\189\187\215\250\191\218\231\247\255l>\237\183\255\223\197\189\187\215\250\191\218\231\247\255,>\232\183\255\207\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\128\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\128\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\128\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\005\000\000\000\000\000\000\000\000\000\016\000P\000\000\000\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\128\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\128\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\128\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000#i\000E\130\141\190$~\000\129\240\001\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015#i\000E\130\141\190$~\000\129\240\000\000\024\224\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\128\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\128\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\128\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002@\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001!\000D\002\129\152$r\000\0000\000\000\024\192\196\148\187\131\232>B\195\129\255l\014\237\183\231\015\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\002\000\004\129\016#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\b#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003)\000@\128\004\024$^\000 0\000\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\129!\bD\002\129\152$r\000\0000\000\000\024\192\128\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\028\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000#i\002E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001!\000D\002\129\152$r\000\0000\000\000\024\192@\000\000\000\000\000\000\000\000\000`\000\005\000\000\000\001\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\017\000\000\000\000\000\000\000\000\002\000\002@\000\128\000\017\000\000\000\000\000\000\000\000\002\000\000\000\000\128\000\017\000\000\000\000\000\000\000\000\000\000\000\000\000\129\000\001\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\000`\000\005\000\000\000\001\000\000\000\000\000\024\004p\000\000\000\000\000\000\000\192\000\017\000\000\000\000\000\000\000`\002\005\002@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\196\148\187\131\232>B\195\129\255l\014\237\183\231\015\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\128\000\017\000\000\000\000\000\000\000\b\000\000\004\001\000\128\000\145\003\224\012\000\128\128|\012\002\000\005\130\003\128\000\016\000\000\000\000\000\000\000\b\000\000\000\000\000\128\000\000\000\000\000\b\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\128\004\000@\000\000\000\128\000\000\000\000\000\000\000\001\000\000\000@\000\b\000\128\000\000\000\000\000\000\000\001\000\000\000\000\000\b\000\128\000\000\000\000\000\000\000\001\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\132\128\"\128\b \002C\000\002 \014\192\000 \000\001\002@@\000 \024 \000\000\002\000\000\000\000\000\196\128\"\128\b0\002C\128\002 \012\192\000 \000\132\128\"\128\b \002C\000\002 \012\192\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\004\000\000\000\000\000\128\000\000\000\000\000\000\000\003\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\002\000\000@\000\132\128\"\128\b \002C\000\002 \012\192\000 \004\132\128\"\128\b \002B\000\002 \012\192\000 \004\003\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\003\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\002\000\000@\000\132\128\"\128\b \002C\000\002 \012\192\000 \004\132\128\"\128\b \002B\000\002 \012\192\000 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000}\246D\b/\226*\000\t\131\131\220x\176(4'\233\"\213\138\173\190f~\002\129\252\000\000x\224\001\002@@@\000\016 \128\000\002\000\000\000\000\000\001\002@@\000\000\016 \128\000\002\000\000\000\000\000\001\002@@\000\000\016 \000\000\002\000\000\000\000\000\132\128\"\128\b \018C\128\002 \012\192\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\024\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\024\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\001\000\000\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\132\128\"\128\b\"\002C\129\130 \014\192\016 \000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\129\"\128\b \002C\000\002 \012\192\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \002C\000\002 \012\192\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b\"\002C\129\130 \014\192\016 \000\001 \000\000@\000\016\000\192\000\000\016\000\000\000\000\001 \000\000\000\000\016\000\192\000\000\016\000\000\000\000\001 \000\000\000\000\016\000@\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\012 \002C\128\002 \014\192\000`\000\003\000\000`\000\000\024\184P\000 \000\000\000\000\000\000\000\000\000\000@\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\001\000\000\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\017\000\000\000\000\000\128\000\004\000\000\000\000\016\000\000\017\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\017\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000@\b\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\017\000\000\000\000\000\128\000\004\000\000\000\000\016\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000@\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000`\000\000\024\184@\000 \000\000\000\000\000\133\128\162\128\b0\nC\128\003 \012\192\016!\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\133\128\162\128\b \nC\128\003 \012\192\016!\004\001 \000\000\000\000\016\000@\000\000\016\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\128\000\132\128\"\128\b \002C\128\002 \012\193\000!\000\001\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\132\128\"\128\b \002C\128\002 \012\192\000 \000\132\128\"\128\b \002C\000\002 \012\192\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000`\000\000\024\184P\000 \000\000\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\001\000\000\000\003\000\000`\000\000\024\184P\000 \000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\003\000\000`\000\000\024\184@\000 \000\000\000\000\000\133\128\"\128\b \nC\128\003 \012\192\016!\004\133\128\162\128\b0\nC\128\003 \012\192\016!\004\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\003\000\000`\000\000\024\184@\000 \000\000\000\000\000\133\128\"\128\b \nC\128\003 \012\192\016!\004\133\128\162\128\b0\nC\128\003 \012\192\016!\004\132\128\"\128\b \002C\128\003 \012\192\000 \000\132\128\"\128\b \002C\000\003 \012\192\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\007\128\"\240\024 \024\250@\002 \012\000\000 \000\132\128\"\128\b \000B\000\002\000\012\192\000 \000\001\000\000\000@\000\000\000\128\000\000\000\000\000\000\128\001\000\000\000@\000\000\000\128\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \016C\000\002\000\012\193\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \016C\000\002\000\012\193\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\128\004\000@\000\000\000\128\000\000\000\000\000\000\000\001\000\000\000@\000\b\000\128\000\000\000\000\000\000\000\001\000\000\000\000\000\b\000\128\000\000\000\000\000\000\000\001\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\132\128\"\128\b \000C\000\002\000\014\192\001 \000\001\002@@\000 \024 \000\000\002\000\000\000\000\000\196\128\"\128\b0\000C\128\002\000\012\192\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\004\000\000\000\000\000\128\000\000\000\000\000\000\000\003\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\002\000\001@\000\129\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \016C\000\002\000\012\193\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\001\002@@\000 \024 \000\000\002\000\000\000\000\000\196\128\"\128\b0\000C\128\002\000\012\192\000 \004\132\128\"\128\b \000B\000\002\000\012\192\000 \004\003\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\003\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\001\002@@\000 \024 \000\000\002\000\000\000\000\000\196\128\"\128\b0\000C\128\002\000\012\192\000 \004\132\128\"\128\b \000B\000\002\000\012\192\000 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\002\000\000@\000\129\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \000C\000\002\000\012\193\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\002@@\000 \024 \000\000\002\000\000\000\000\000\196\128\"\128\b0\000C\128\002\000\012\192\000 \000\132\128\"\128\b \000C\000\002\000\012\192\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\002\000\000@\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\002@@@ \024 \128\000\002\000\000\000\000\000\001\002@@\000 \024 \128\000\002\000\000\000\000\000\001\002@@\000 \024 \000\000\002\000\000\000\000\000\196\128\"\128\b0\000C\128\002\000\012\192\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001 \000\000@\000\016\000\192\000\000\016\000\000\000\000\001 \000\000\000\000\016\000\192\000\000\016\000\000\000\000\001 \000\000\000\000\016\000@\000\000\016\000\000\000\000\132\128\"\128\012 \000C\128\003\000\012\192\000`\000\b\128\000\000@\000\b\000\192\000\000\000\000\000\000\000\b\000\000\000@\000\b\000\192\000\000\000\000\000\000\000\b\000\000\000\000\000\b\000\192\000\000\000\000\000\000\000\b\000\000\000\000\000\b\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000@\000\000\000\000\000\000\000\002\000\000$\128\004\000\000\000\016\000\000\000\000\000\128\000\000\002\000\000\000\000\000\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\001\000\000@\002\000\n @\000\000\000\000\000\000\000\132\000\000\128\000\002\016B\128\128\000\000@\016\000\000\132\000\000\128\000\002\016B\000\128\000\000@\016\000\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\b\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\000\000\128\000\002\000B\000\128\000\000@\016\000\000\b\000\000\000\000@\b\000\128\000\000\000\000\000\000\000\b\000\000\000\000@\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\132\000\000\128\000\002\000C\128\128\000\000@\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\b\000\000\b\000\128\000\000\000\000\000\000\000\b\000\000\b\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\132\000\000\128\000\002\000C\000\128\000\000@\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000@\002\000\n \192\000\000\000\000\000\000\000\001\000\000@\002\000\n @\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\128\000\000\000\000\000\000\128\001\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\001\000\000\000\001\000\000@\002\000\n @\000\000\000\000\000\000\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\004\000\000\001\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\002\000\000\000\000\000\128\000\000\000\000\004\000\000\000\000\002\000\000\000\000\000\128\000\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128*\128\b\"\002C\128\130 \014\192\016 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\001\000\000\000\001\000\000@\002\000\n @\000\000\000\000\000\000\000\132\128*\128\b\"\002C\128\130 \014\192\016 \004\132\000\000\128\000\002\000C\128\128\000\000@\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000\024\184\192\000 \000\000\000\000\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\002\000\000\000\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\132\000\000\128\000\002\000C\129\128\000\000@\016\000\000\132\000\000\128\000\002\000C\000\128\000\000@\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\000\000\128\000\002\000C\000\128\000\000@\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\000\000\128\000\002\000B\000\128\000\000@\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \002C\128\002 \012\192\000 \004\132\128\"\128\b \002B\000\002 \012\192\000 \004\b\000\000\000\000\000\b\000\192\000\000\000\000\000\000\000\b\000\000\000\000\000\b\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\001\000\000@\002\000\n @\000\000\000\000\000\000\000\132\128\"\128\b \002C\128\002 \012\192\000 \004\132\128\"\128\b \002B\000\002 \012\192\000 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\b\000\192\000\000\000\000\000\000\000\b\000\000\000\000\000\b\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\003\000\000p\018\000\026\184@\000 \000\000\000\000\000\133\128\170\128\b0\bC\128\002 \014\192\000`\004\003\000\000`\000\000\024\184@\000 \000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\003\000\000p\018\000\026\184@\000 \000\000\000\000\000\003\000\000p\016\000\024\184@\000 \000\000\000\001@\000\000\002\000\000\000\000\000\128\000\000\000\000\004\001\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\003\000\000p\018\000\026\184@\000 \000\000\000\000\000\003\000\000`\000\000\024\184@\000 \000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\003\000\000p\018\000\026\184@\000 \000\000\000\000\000\133\128\170\128\b0\bC\128\002 \014\192\000 \004\133\128\170\128\b0\bC\128\002 \014\192\000 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128*\128\b \000C\128\002\000\014\192\000 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \000C\000\002\000\012\192\000 \004\132\128\"\128\b \000B\000\002\000\012\192\000 \004\b\000\000\000\000\000\b\000\192\000\000\000\000\000\000\000\b\000\000\000\000\000\b\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\003\000\000p\018\000\026\184@\000 \000\000\000\000\000\132\128\"\128\b \000C\000\002\000\012\192\000 \004\132\128\"\128\b \000B\000\002\000\012\192\000 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \000B\000\002\000\012\192\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \000C\000\002\000\012\192\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \000B\000\002\000\012\192\000 \004\002\000\000$\128\004\024\000\128\016\000\000\000\000\000\128\002\000\000$\128\004\024\000\000\016\000\000\000\000\000\128\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\132\128\"\128\b \002C\000\002 \014\192\016 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \002C\000\002 \012\192\016 \004\132\128\"\128\b \002B\000\002 \012\192\000 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \000B\000\002\000\012\192\000 \004\002\000\000$\128\004\024\000\128\016\000\000\000\000\000\128\002\000\000$\128\004\024\000\000\016\000\000\000\000\000\128\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\003 \000x\016\000\024\184P\000 \016\002\000\001\000\003\000\002p\016\000\024\184@\000 \000\000\000\001@\000\000\000\000\000@\b\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\133\160\"\128\b \018C@\002 \028\192\016 \004\132\128\"\128\012 \002C\128\002 \012\192\016a\004\132\128\"\128\b \002C\128\002 \012\192\016!\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \002C\000\002 \012\192\016!\004\001 \000\000\000\000\016\000@\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \000C\000\002\000\012\192\016 \004\132\128\"\128\b \000B\000\002\000\012\192\000 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \002C\128\002 \014\192\016 \004\001 \000\b\000\000\016\000P\000\000\016\002\000\001\000\001 \000\000\000\000\016\000P\000\000\016\002\000\001\000\000\000\000\000\000@\b\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\012 \002C\128\002 \012\192\016a\004\132\128\"\128\b \002C\128\002 \012\192\016!\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\b\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\128\000\000\000\000\000\000\000\b\128\000\000@\000\b\000\192\000\000\000\000\000\000\000\b\000\000\000\000\000\b\000\192\000\000\000\000\000\000\000\b\000\000\000\000\000\b\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\003)\000P\144\004\024$V\000 2\000\000P@\001\000\000@\002\000\026 @\000\000\128\000\000\000\000\132\000\000\128\000\002\016B\129\128\000\000@\016\000\000\132\000\000\128\000\002\016B\001\128\000\000@\016\000\000\132\000\000\128\000\002\000B\001\128\000\000@\016\000\000\b\000\000\000\000@\b\000\128\000\000\000\000\000\000\128\000\000\000\000\000@\b\000\128\000\000\000\000\000\000\000\000\000\000\000\000@\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\002@\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\000\000\128\000\002\000C\001\128\000\000@\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000@\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\132\000\000\128\000\002\000C\129\128\000\000@\016\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\002@\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\b\000\000\b\000\128\000\000\000\000\000\000\128\000\000\000\b\000\000\b\000\128\000\000\000\000\000\000\000\000\000\000\b\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\003)\000P\144\004\024$V\000 2\000\000P@\003\128\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\002\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\000\000\128\000\002\000C\001\128\000\000@\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\b\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\003)\000P\144\004\024$V\000 2\000\000P@\003\128\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\002\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000#i\000E\130\141\190$\254\000\129\240\000\000\024\224#i\000E\130\141\190$~\000\129\240\000\000\024\224\132\000\000\128\000\002\000C\001\128\000\000@\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000@\002\000\026 \192\000\000\128\000\000\000\128\001\000\000@\002\000\026 \192\000\000\128\000\000\000\000\001\000\000@\002\000\026 @\000\000\128\000\000\000\000\001\000\000@\002\000\026 @\000\000\128\000\000\000\000\003)\004@\200\004\024$\222\000 0\000\000\016@}\246D\b/\226*\000\t\131\131\220x\176(4\003)\004@\128\004\024$\222\000 0\000\000\016@\003)\004@\128\004\024$^\000 0\000\000\016@\003)\000@\128\004\024$^\000 0\000\000\016@\000\000\000\000\000\000\000\001\000\001\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\128\000\000\000\000\000\000\128\001\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\001\000\000\000\001\000\000@\002\000\026 @\000\000\128\000\000\000\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\004\000\000\001\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003)\000P\144\004\024$\214\000 0\000\000\016@\003)\000P\144\004\024$V\000 0\000\000\016@\003)\000P\144\020\024$V\000 0\000\000\016@\001\000\000@\002\000\026 @\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\004\001\000\000@\002\000\026 @\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\133\169*\212\026\163\154g\247\130 <\192\016x\212\133\169*\212\026\163\154g\247\130 <\192\016x\212\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128*\128\b\"\002C\129\130 \012\192\016`\020\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128*\128\b\"\002C\129\130 \012\192\016`\020\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128*\128\b\"\002C\129\130 \012\192\016`\020\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\001\000\000\000\001\000\000@\002\000\026 @\000\000\128\000\000\000\000\132\128*\128\b\"\002C\129\130 \012\192\016`\020\003)\004@\128\004\024$^\000 0\000\000\016@\003)\000@\128\004\024$^\000 0\000\000\016@\000\000\000\000\000\000\000\001\000\001\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\b\000\000\000\000\000\128\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\018\000\026\184@\000 \000\000\000\000\000\128\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\000\000\128\000\002\000C\129\128\000\000@\016\000\016\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\000\000\128\000\002\000C\001\128\000\000@\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000@\002\000\026 @\000\000\128\000\000\000\000\132\000\000\128\000\002\000C\129\128\000\000@\016\000\016\132\000\000\128\000\002\000C\001\128\000\000@\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000\024\184\192\000 \000\000\000\000\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\132\000\000\128\000\002\000C\001\128\000\000@\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\000\000\128\000\002\000C\001\128\000\000@\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\000\000\128\000\002\000B\001\128\000\000@\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \002C\128\002 \012\192\000 \004\003\000\000p\018\000\026\184@\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\001\000\000@\002\000\026 @\000\000\128\000\000\000\000\132\128\"\128\b \002C\128\002 \012\192\000 \004\003)\000P\144\004\024$V\000 2\000\000P@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \002C\000\002 \012\192\000 \004\132\128\"\128\b \002B\000\002 \012\192\000 \004\b\000\000\000\000\000\b\000\192\000\000\000\000\000\000\000\b\000\000\000\000\000\b\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\003)\000P\144\004\024$V\000 2\000\000P@\132\128\"\128\b \002C\000\002 \012\192\000 \004\132\128\"\128\b \002B\000\002 \012\192\000 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \002B\000\002\000\012\192\000 \000\003)\004@\192\004\024$\222\000 0\000\000\016@\003)\004@\128\004\024$\222\000 0\000\000\016@\003)\004@\128\004\024$^\000 0\000\000\016@\003)\000@\128\004\024$^\000 0\000\000\016@\132\128\"\128\b \002C\000\003 \012\192\000 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \002B\000\002 \012\192\000 \004\132\128\"\128\b \002C\000\003 \012\192\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \002B\000\002 \012\192\000 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \002C\000\002\000\012\192\000 \000\132\128\"\128\b \002B\000\002\000\012\192\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \002B\000\003 \012\192\000 \004\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\129\002@@@\000\016 \128\000\002\000\000\000\000\000\001\002@@\000\000\016 \128\000\002\000\000\000\000\000\001\002@@\000\000\016 \000\000\002\000\000\000\000\000\000\000\b\000\000\000\016\000\128\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\129\002@@\000 \024 \000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\b\000\000\016\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\b\000\000\000\000\000\000\000\000\000\000\002@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\128\000\b\000\000\000\000\000\000\000\000\000\000\006A\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\129\002@@\000 \024 \000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\b\000\000\016\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\129\002@@\000 \024 \000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\b\000\000\016\000\000\128\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\002@@\000 \024 \000\000\002\000\000\000\000\000@\000\b\000\000\016\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\136\003\224\012\000\128\128|\004\002\000\007\194\003\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\129\002@@\000 \024 \000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\b\000\000\016\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\129\002@@\000 \024 \000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\b\000\000\016\000\000\128\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\002@@\000 \024 \000\000\002\000\000\000\000\000@\000\b\000\000\016\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \018C\128\003 \012\192\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\002@@\000\000\016 \128\000\002\000\000\000\000\000\001\002@@\000\000\016 \000\000\002\000\000\000\000\000\132\128\"\128\b \018C\128\003 \012\192\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \002C\000\002\000\012\192\000 \000\132\128\"\128\b \002B\000\002\000\012\192\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\196\128*\128\b0\018C\128\002 \014\192\002 \004\192\000\b\000\000\016\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003!\000@\128\004\024$R\000 0\000\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\144\000\027\000\000\016\000\000\128\000\000\002\128\004\197\016\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\000\003)\000@\128\004\024$^\000 4\018\000\016@\000\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\b\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003!\000@\128\004\024$R\000 0\000\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\144\000\027\000\000\016\000\000\128\000\000\002\128\004\197\016\000\000\b\000\000\000\000\000\128\000\000\000\000\004\193\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\b\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\000\000\128\000\002\000B\001\128\000\000@\016\000\000\128\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001!\000D\002\129\152$r\000\0000\000\000\024\192\196\148\187\131\232>B\195\129\255l\014\237\183\231\015\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002@\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001!\000D\002\129\152$r\000\0000\000\000\024\192\196\148\187\131\232>B\195\129\255l\014\237\183\231\015\003)\000@\192\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$\222\000 4\016\000\017@\003)\000@\128\004\024$^\000 4\016\000\017@\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\196\148\187\131\232>B\195\129\255,\014\232\183\231\015@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\131)\000@\128\004\024$^\000 4\016\000\017@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\196\148\187\131\232>B\195\129\255,\014\232\183\231\015\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\001 \000\b\000\000\016\000@\000\000\016\000\000\001\000\001 \000\000\000\000\016\000@\000\000\016\000\000\001\000\001 \000\000\000\000\016\000@\000\000\016\000\000\000\000\132\128\"\128\012 \002C\128\002 \014\192\000a\000\001 \000\000\000\000\016\000@\000\000\016\000\000\000\000\132\128\"\128\b \002C\128\002 \012\192\000!\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \002C\000\002 \012\192\000!\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\012 \002C\128\002 \014\192\000a\000\001 \000\000\000\000\016\000@\000\000\016\000\000\000\000\132\128\"\128\b \002C\128\002 \012\192\000!\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\132\128\"\130\b \002C\000\002 \014\192\016 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \002C\000\002 \012\192\016 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\001 \000\b\000\000\016\000@\000\000\016\000\000\001\000\001 \000\000\000\000\016\000@\000\000\016\000\000\001\000\132\128\"\128\b \002C\000\002 \012\192\000!\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\128\000\004\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\004\000\000\000\000\000\003\000\000`\000\000\024\184\192\000$\000\002\000\000\000\003\000\000`\000\000\024\184@\000$\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\016\000\000\000\b\000\000\000$\000\000\000\000\000\003\000\000`\000\000\024\184@\000$\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\128\000\000\016\b\000\000\000 \000\000\000\000\000\003\000\000`\000\000\024\184@\000 \000\000\000\000\000\196\128\187\128\b2\002C\129\130$\014\192\022!\022\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\004\000\000\001\000\000\000\000\000\b\000\000\000 \000\000\000\000\000\001\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\b\000\000\000\000\000\128\000\000\000\000\004\000\000\000\000\b\000\000\000\000\000\128\000\000\000\000\004\000\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\b\000\000\000\000\000\128\000\000\000\000\004\000\000\000\000\000\000\000@\b\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \002C\128\002 \012\192\016 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003 \000x\016\000\024\184P\000 \016\002\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \000C\000\002\000\012\192\016 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\001 \000\b\000\000\016\000@\000\000\016\000\000\001\000\001 \000\000\000\000\016\000@\000\000\016\000\000\001\000\132\128\"\128\b \000C\000\002\000\012\192\000!\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\132\128\"\130\b \000C\000\002\000\014\192\017 \004\003 \000x\016\000\024\184P\000 \016\002\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \000C\000\002\000\012\192\016 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\001 \000\b\000\000\016\000@\000\000\016\000\000\001\000\001 \000\000\000\000\016\000@\000\000\016\000\000\001\000\132\128\"\128\b \000C\000\002\000\012\192\000!\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\b\000\000\016\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \002C\000\002 \012\192\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\128\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\128 \128\b \000B\000\002\000\012\128\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001 \000\000\000\000\024\000@\000\000\016\000\000\000\000\128\000\136\007\224,\004\128\000|D\002\004\001\130\139\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\001\000\000\000\001\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\128\000\128\007\224,\004\128\000|D\002\004\001\130\139\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001 \000\000\000\000\016\000@\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000\024\184@\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000#i\000E\130\141\190$~\000\129\240\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\129\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\129\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\002@@\000\000\016 \000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\128\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\002@@\000 \024 \000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\000\016\000\000\128\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003)\000@\128\004\024$^\000 4\016\000\016@\000\000\000\000\000\000\000\000\128\000\000\000\128\004\129\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\001\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000'\233 \197\138\173\190f~\002\161\252\128\0008\224\001\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\005\161 \128\b \026B\002\002 \028\128\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\128 \128\b \002B\000\002 \012\129\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\128 \128\b \002B\000\002\000\012\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\000\000\000\001\000\000\000\000\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000'\233 \197\138\173\190f~\002\161\252\128\0008\224'\233 \197\138\173\190f~\002\161\252\128\0008\224\004\128 \128\b \002B\000\002 \012\128\000 \000\004\128 \128\b \002B\000\002 \012\128\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\128 \128\b \002C\000\002 \012\128\000 \000\004\128 \128\b \002B\000\002 \012\128\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\128 \128\b \002C\000\002 \012\128\000 \000\004\128 \128\b \002B\000\002 \012\128\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000") and start = 15 and action = ((16, "z\218\133\n\129v\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\021\248\129v\000\000\000\000\021\000\129vz\218\003F\005F\0003\188>\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\028\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\232\001\136\000\242\000\000\001\170\b\136\000\000\000\172\002\b\t\136\000\000\003\252\003\238\n\136\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\012\000\000\000\000\000\000\003R\131\186\000\000\000\000\000\000\005V\000\000\000\000\182j\004>\003\208\000\000\000\000\180\176\005V\000\000\133\n\021\000\129@\188\252\006\018\000\000\021\000\141:\132\236\021\000\134d\000\000\001\022\000\000\134d\001\192\000\000xZ\000\000\001l\000\000\000\000\003\192\000\000\005V\000\000\000\000\000\000\003*\000\000xZ\000\000\006\014\225\164\232\128\198\200\000\000\234&\180\176\000\000\139v\206\012\000\000\204\128\026\148\131\186\129vz\218\000\000\000\000\132\236\021\000\135\220\134d\006D\225\164\000\000\229\190\129vz\218\133\n\021\000\000\000\006\160\006V\000*\137\024\000\000\219\128\000\000\142X\219\128\000\000\142X\204\152\003\014\004\160\003\176\000\000\004\228\000\000\007\014\000\000\000\000\007\014\000\000\000\000\000\000\142X\005V\000\000\000\000\184\230\137\024\206\012\b\"\137\024\000\000\007\004\028\214\180\176\000\000\000\000\000\000\000\000\000\000\000\000\000F\000\000\000\000\175\156\238 \139\128\206\012\176\154\003\014\000\000\000\000\183B\238X\139\132\206\012\177\152\178\150\179\148\185\170\t\232\005V\000\000\000\000\000\000\000\000\000\000\000\000\b\216\000\000\142X\000\000\001\b\216\138\000\000\137\024\006\b\137\024}T\000\000\021\000\000\000}v\000\000\007\b\tJ\000\000\t4\142X\n\030\000\000\nJ\000\000\004J\000\000\000\000\004\230\000\000\000\000\000\000 \212\138\002\000\000{\130\137\024!\212\n\138\t\236\140~\011\016\n\180\000*\011*\000\000\000\000\000\000\017\000\127\208\021\000\143\146\180\134\000\000\011H\011p\011p\137\024\005\170\012x\214\248\011\142\r \012\228\137\024\007\234\000\000\000\000\006\158\000\000\000\000\b\150\000\000\000\000\127\132\022\140\021\188\002\248\000\007\000\000\000\000\002&\000\000\129@\r\200\r\234\021\000\023\238\021\000z\218z\218\000\000\000\000\000\000\145\250\132\236\021\000\023\238\014\190\000\000\175`\021\000\141:\027\230\020\160\007\230\000\000\006\226\b\230\000\000\000\000\000\000\000\000\000\000\000\000\000\000\017\000\000\000\133\n\021\000\000\000x\238\215\162\136\182\001\000\141\246\224v\012\016\014^\014\208\137\024\b\234\014\242\129\218\012F\016V\015\240\137\024\t\170\000\000\000\000\199>\199>\000\000\007\230\000\000\000\028\000\000\000\000\022\150\137\024(\212!(\180\134\133\n\021\000\129\218\000\000\003\014\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\142\236\027\198\000\000\000\000\000\000\002\004\030\210\199>\000\000\000\000\129\218\015\254\216(\012J\016\170\016R\137\024\t\234\000\000\000\000\129\218\000\000\000\000\000\000\000\000\133\n\021\000\180\134\129\218\000\000\016\158\129\218\000\000\180\134\000\000\000\000\000\000\000\000\000\000\190\030\216\182\012\142\0178\017\018\137\024\n\170\000\000\000\000\129\218\000\000\000\000\191\168\217D\000\000\223\130\181z\127\132\003\170\003\170\000\000\017\222\129\218\000\000\025R\017\234\000\000y\210\000\000\000\000\206\196\000\000\012\158\017\180\017V\137\024\n\234\000\000\000\000\129\218\000\000\000\000\235l\142X\000\000\005\136\000\000\000\000\217\210\000\000\235\200\003\160\000\000\000\000\000\000\000\000\000\000\236\n\018\136\000\000|\158\000\000\000\000\214f\000\000\000\202\000\000\000\000|l\199\208\000\000\000\000\138>\020\160\022\146\030v\000\000\000\000\000\000\000\000\005N\000\000\000\000\129\218\000\000\000\000\000\000\027\"\218`\000\000\028\"\000\000\000\000\000\000\029\"\226`\r\016\018J\017\220\137\024\011\170\000\000\000\000\129\218\000\000\000\000\030\"\017\236\226\152\rF\018j\017\246\137\024\011\228\000\000\000\000\129\218\000\000\000\000\031\"\129\218\018*\227&\rJ\018\170\018:\137\024\011\234\000\000\000\000\129\218\000\000\000\000\"\"\186|\r\142\018\186\001\228\137\024\000\234\019\016\000\000\000\000\r\158\018\186\004x\000\000\1876\021\000\191\236\000\000\021\188\002\248\000\007\004H\000\007\000\000\018p\129@\194Bx:\000F\004H\012\182\129@\012\188\129@\000\000\207\\\002^\134d\007\230\012L\236\n\000\000\137\024\200h\137\024\192\132\200\234\137\024\007\234\137\024\201n\000\000\n\158\t\160\rL\129@\207\222\000\000\n\228\t\158\189\000\000\000\000\000\000\000\000\000\000\000\129@\208`\129@\208\226\021\002\003\014\193H\b\230\003\014\193\202\000\000\209d\002^\000\000\000\000\209\230\029\226\000\000\000\000\023\140\000\000\023\238\000F\004H\r\182\023\238\000\000\189\232\175`\000\000\028\186\000\000\000\000\129@\031\226\000\000\000\000\000\000\000\000\187\206\000\000\227l\129@\000\000\000L\023\238\227\214\218\166\218\166\000\000\000\000\004H\000\000\129vz\218\180\134\024\"\000\000\137\160\0001\022J\143\216\022\238\131\206\133\n\021\000}\168\133\n\021\000\017\000\017\000\000\000\000\000\000\000\000\000\002\000\024\210y\228\000\000\133\198\134\130\132\236\021\000\023\238\005\228\135,\000\000\026\140\000\000\135>\135\250\224v\025F\137\024\b\234\000\000\017\000\024\210\017\000\003\000\003\232\131X\133\n\021\000\000\000\202*\021\000\199>\180\134\024F\000\000\1876\021\000\130h\005\016\000\000\180\134z\142\137\024\005\228\004x\019<\000\000\000\000\000\000\128x\003\170\019B\000\000\129\218\000\000\000\000\202\184\000\000\000\000\002V\206\012\003\014\019\024\144\148\202*\021\000\199> \238\145P\014\016\019\014\000*\019P\000\000\000\000\017\000\022\238\019 \000\000\023\214\000\000\133\n\021\000\180\134#\"\000\000\133\n\021\000\017\000\023\238\000\000\000\000\000\000\000\000\146\012\202*\021\000\199>\000\000\000\000\017\000\014F\0198\000*\019~\000\000\000\000\019D\000\000\017\000\004\000\017\000\005\000\015\232\131X\202*\021\000\199>xv\131X\000\000!\238\146\200\014J\019F\000*\019\136\000\000\000\000\017\000\024\238\202*\021\000\199>\"\238\180\134\000\000\018\000\025\238\007\180\000\000\000\000\000\000#\238\147\132\202*\021\000\199>$\238%\238\148@\202*\021\000\199>&\238'\238\000\000\019\000\026\238\148\252\202*\021\000\199>\000\000\000\000\000\000\129v\000\000\000\000\000\000\149\184\202*\021\000\199>(\238)\238\150t\202*\021\000\199>*\238+\238\1510\202*\021\000\199>,\238-\238\151\236\202*\021\000\199>.\238/\238\152\168\202*\021\000\199>0\2381\238\153d\202*\021\000\199>2\2383\238\154 \202*\021\000\199>4\2385\238\154\220\202*\021\000\199>6\2387\238\155\152\202*\021\000\199>8\2389\238\156T\202*\021\000\199>:\238;\238\157\016\202*\021\000\199><\238=\238\157\204\202*\021\000\199>>\238?\238\158\136\202*\021\000\199>@\238A\238\159D\202*\021\000\199>B\238C\238\160\000\202*\021\000\199>D\238E\238\160\188\202*\021\000\199>F\238G\238\161x\202*\021\000\199>H\238I\238\1624\202*\021\000\199>J\238K\238\162\240\014\142\019J\000*\019\150\000\000\000\000\017\000\027\238\202*\021\000\199>L\238M\238\163\172\202*\021\000\199>N\238O\238\021\000\224v\130h\000\000\000\000\131\186\003\170\018\254\137\024\t\234\000\000\000\000\011T\005V\000\000\137\024\n\228\000\000\000\000\019\022\000\000\000\000\000\000\003\240\000\000\019\028\144\148\000\000\000\000\000\000\026F\137\024\n\234\000\000\000\000$\"\000\000\000\000\224\174\000\000\014\158\019\140\019\020\137\024\012&\000\000\000\000\129\218\000\000\000\000%\"\219V\000\000&\"\007\160\000\000\000\000\000\000\218\166\000\000\000\000P\238\190\146\132N\000\000\t*\000\000\006\000\164h\202*\021\000\199>Q\238R\238\131X\011\b\000\000\007\000\165$\202*\021\000\199>S\238T\238\131X\006x\000\000\b\000\165\224\202*\021\000\199>U\238V\238\027\210\000\000\014\"\000\000\t\000\166\156\202*\021\000\199>W\238X\238\000\000\012\b\000\000\n\000\167X\202*\021\000\199>Y\238Z\238\000\000\012\028\000\000\011\000\168\020\202*\021\000\199>[\238\\\238\006\226\016\232\131X\015\012\000\000\012\000\168\208\202*\021\000\199>]\238^\238\131X\012\160\000\000\r\000\169\140\202*\021\000\199>_\238`\238\131X\015\028\000\000\014\000\170H\202*\021\000\199>a\238b\238\015\000\171\004\202*\021\000\199>c\238d\238\016\000\020\000\000\000\000\000\000\000\r\138\000\000\000\000\000\000\0190\000\000\nR\000\000\000\000\015*\000\000\000\000\r8\000\000\000\000\015x\000\000\012\128\017\232\131X\015N\000\000\131X\r\166\000\000\131X\015\198\000\000\000\000\202*\021\000\199>e\238f\238\000\000\019\176\000\000\000\000\000\000\000\000\000\000\000\000g\238\019\238\171\192\202*\021\000\199>h\238\172|\202*\021\000\199>i\238j\238k\238\1738\202*\021\000\199>l\238m\238\015\136\000\000\131X\0148\000\000\131X\015\216\000\000\173\244\015F\019\164\000*\019\234\000\000\000\000\017\000\028\238\202*\021\000\199>n\238o\238\000\000'\"\000\000\000\000\014\198\000\000\000\000\224v\000\000\000\000\220\000\016\012\000\000\000\000\137\160\000\000\007J\000\000\000\000\138\138\000\000\014\160\000\000\000\000\0001\rj\000\000\000\000\022\238\024\210\007\230\000\000zZ\"(\031v\029&\000\000\000\000\016\028\000\000\000\000\002&\025\210\133x\000\000\029\238\000\000\011\198\000\000\000\000\016x\000\000\000\000\202*\021\000\199>\030L\203&\005\166\006j\000\000\000\000\014j\000\000\000\000\014\166\000\000\000\000\000\000\030\020\027\230\020\160\005V\232\254\129@\228\200\218\166\000\000\002\248\005\248\000\007\004H\218\166\177b\002\248\000\007\004H\218\166\177b\000\000\000\000\129vz\218\132\236\021\000\023\238\229\142\000\000\003F\005F\0003\019:\131\186\012\004\137\024\220\142\019f\020\012\233h\000\000\218\166\000\000\221.\027\230\020\196\021\192\000\000\015B\020\012\000\000\020\012\225v\206\012\000\252\000\000\019\226\019l\131\186\014T\137\024zv\020\226\012\152\020\226\000\000{\216\0206\000\000\000\252\000\000\000\000\020J\206\012\194L\000\000\203\200\025T\015\206\002\n\015\196\019\142\021\000\218\166\000\000\238\012\015\222\206\012\020 \206\012\210h\195\b\020\"\206\012\210\200\195\196\021\000\218\166\000\000\000\000\204\152\236l\027\230\000\246\002\248\003\014\229\190\000\000\002\248\003\014\229\190\000\000\031\020\027\230\020\160\005V\211\164\129@\229\190\000\000\002\248\006\162\024(\011\190\000\000\229\190\000\000\000\007\019\166\129@\229\190\234&\002\248\000\007\019\192\129@\229\190\234&\000\000\000\000\007H\r\190\000\000\229\142\000\000\129@\233\198\218\166\000\000\007\228\r\190\000\000\133\n\021\000\129@\229\190\000\000\027\230\020\196\021\192\221\\y\172\027\190\020J\003\208\000\000\004VxZ\0028\000\000\020>\019\244x\178\021\000{H\137\024\016\136\000\000\135\204\020\196\006\208\016\180\000\000\tp\000\000\020\178\020Z\137\024\145P\000\000\000>\001\208\004\234\000\000\np\000\000\021*\020\178\131\186|\154\000\000\020\196x\178\021P\021^\002\248\000\000\014:x\178\137\024\015\216\003\014\000\000\137\024\tt\nt\000\000\000\000\211N\000\000\000\000\015jx\178\211\210\145P\000\000\021\000\137\024\015\228\137\024\130z|\154\000\000\016v\000\000\000\000|\154\000\000\000\000\135\204\000\000\229\190\178`\020J\003\208\004V\0212\020\234x\178\229\190\178`\000\000\000\000\020J\003\208\004V\021p\020\248\181\164\205\018\206\012\021\140\181\164\204\152\025\"\021\150\181\164\206\012\021\184\181\164\212\144\213\018\000\000\231D\000\000\000\000\218\166\234\190\020J\003\208\004V\021\184\021N\181\164\218\166\234\190\000\000\000\000\000\000\236l\000\000\000\000\000\000\000\000\000\000\000\000\000\000\218\166\000\000\179^\021\000~:\021\210\225\164\000\000\229\190\179^\000\000\000\000\234\236\021\000~:\021\254\021\138\232\128\222~\000\252\022@\000\000\000\000\213r\221\\\021\000\000\000\228\246\021\192\000\000\000\000\229\190\234\236\000\000\000\000\000\000\228\004~\172\174\194\000\252\022\\\000\000\000\000\000\000\221\\\021\000\000\000\000\252\022b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\005ty\172\020J\003\208\004V\0222\222\028\138\180\021\000\143\146\140\198\021(\b\180\000\252\022:\006\234\000\000\000\000\021\250\000\000\000\000\145P\000\000\007\208\016\186\000\000\016\252\000\000\022P\021\224\137\024\144\148\022`\007\240\000\000\000\000\022\014\000\000\000\000\021D\000>\017>\000\000\022d\222\170\217\024\003\170\022\006\137\024\017L\000\000\000\000\022\026\000\000\000\000\000\000\145P\000\000\b\208\017\142\000\000\017J\000\000\022z\022\018\131\186\000\000\022\142\2238\217\166\003\170\0222\137\024\017\228\000\000\000\000\022N\000\000\000\000\000\000\021\000\000\000\145P\000\000\021\"\020\196\138\180\138\180\214\"\129v\021\000\191\236\224v\002\172\000\000\021j\002\248\000\000\017f\138\180\137\024\016\254\007\230\000\000\021\000\222\028\222\028\138\180\012:\138\180\000\000{\198|\180\000\000\196H\000\000\000\000\196\232\000\000\000\000\197\136\000\000\017\132\138\180\198(\191\236\224v\002\172\000\000\004\136\000\000\000\000\181\164\016\204\000\000\000\000\142\254\022\168\000\000\145P\000\000\138\180\142\254\145P\000\000\021\000\137\024\145P\000\000\016\136\000\000\000\000\145P\000\000\000\000\140\198\000\000\231r\181\164\022f\138\180\232\n\222\028\000\000\218\166\194\210\020J\003\208\004V\022\188\222\028\218\166\194\210\000\000\000\000\000\000\235\026\1876\021\000\191\236\224v\218\166\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\175\138\218\166\000\000\179^\000\000\000\000\000\000\000\000\218\166\235\026\000\000\000\000\000\000\175\138\022\250\000\000\023\b\000\000\022\154\000\000\000\000\000\000\023\020\000\000\000\000\000\000\202*\021\000\199>p\238q\238\000\000\014N\000\000\000\000\000\000\132\236\021\000\023\238\003\228\000\000\142\212\000\000\027\140\000\000\000*\000\000\000\000\0230\000\000\023Z\199>r\238\023\002\000\000\000\000\202*\021\000\199>\021\246\000\000\000\000\146\182\000\000\028\210\000\000\147r\000\000\021\000\000\000\129@\029\210\000\000\205X\000\000\000\000\148.\000\000\030\140\000\000\148\234\000\000\025\140\000\000\129@\030\210\000\000\229\142\000\000\021\000\023\238\229\142\000\000\218\166\235\026\000\000\000\000\016\198\000\000\000\000\205\250 \226\000\000\000\000\129\218\000\000\000\000\236\240\022\140\223\198\017F\023\014\022\178\137\024\017\170\000\000\000\000\129\218\000\000\000\000\2372|l\000\000\137\024\017\228\000\000\140\198\018J\000\000\000\000\017\000\030\238\202*\021\000\199>s\238t\238\022\192\174\176\018\016\0234\000*\023v\000\000\000\000\017\000\031\238\202*\021\000\199>u\238v\238\023\158\214f\000\000w\238\023\128\000\000\000\000\023~\024\166\023\178\021\192\221\\\025T\021\000\000\000\218\166\000\000\000\000\000\000\000\000\000\000\000\000\000\000\225F\025T\021\000\000\000\018\158\225\164\000\000\229\190\000\000\023\182\024\166\023\178\218\166\000\000\023\200\000\000\006\206\018\128\021\000\2372\000\000\000\000!\184\237\212\000\000\000\000\023L\000\000\023\164\137\024\000\000\020\158\238 \184\"\137\024\000\000\015x\b\014\003\014\000\000\000\000\137\024\006\228\007\228\137\024\b\228\000\252\023\210\000\000\000\000\229\236\000\000\000\000\232\128\000\000\229\190\000\000\023\198\024\166\026\230\229\142\000\000\000\000\000\000\000\000\018\160\230V\232\128\000\000\229\190\000\000\023\202\024\166\026\230\229\142\000\000\018\136\000\000\000\000!$\000\000\218\166\000\000\023\246\000\000\000\000\023P\000\000\018\246\000\000\000\000\023f\000\000\000\000\192\218\023x\000\000\000\000\031\230\188>\024\018\000\000\000\000\000\000\018f\t\158\191F\024\024\000\000\000\000\000\000\000\000\000\000\000\000\023\146\000\000\025T\000\000\023\150\000\000\137\024\000\000\tt\000\000\000\000\023\164\000\000\000\000\003\014\000\000\t\254\000\000\000\000\000\000\016\240\000\000\023\238\000\000\tL\000\000\129@\000\000\026 \000\000\t\160\000\000\023\166\000\000\180\134\024\"\000\000\000\000\n\158\023\176\000\000\000\000\023\164\011\158}\168\005V\230\218\000\000\000\000\000\000\000\000\000\000\2204\000\000\000\000\024P\000\000\186\160\000\000\018\208\024R\000\000\024T\000\000~\154~\154\184\016\184\016\000\000\000\000\206\182\184\016\000\000\000\000\000\000\206\182\184\016\023\186\000\000\023\212\000\000"), (16, "\003\185\003\185\000\006\005Z\005^\003\185\002\198\002\202\003\185\002\246\002\150\003\185\003\002\003\185\006j\004\218\003\185\t\202\003\185\003\185\003\185\030\150\003\185\003\185\003\185\001\214\001\006\001\194\011f\004\222\003\185\005\142\005\146\014>\003\185\005\185\003\185\006n\004\226\t\254\005\186\030\154\003\185\003\185\005\230\005\234\003\185\005\238\005\242\003\185\005\246\006\002\006\014\006\022\t\166\003\182\003\185\003\185\002\190\005\185\0216\006\n\003\185\003\185\003\185\011^\011b\011n\011\130\011\246\006\146\003\185\003\185\003\185\003\185\003\185\003\185\003\185\003\185\003\185\012\014\n~\003\185\005\185\003\185\003\185\005\185\012\026\0122\012\234\006\158\006\162\003\185\003\185\003\185\000\242\003\185\003\185\003\185\000\242\003\185\bb\000\242\019\142\003\185\001j\003\185\003\185\004!\003\185\003\185\003\185\003\185\003\185\003\185\006\166\011v\003\185\003\185\003\185\011\142\003j\012\254\bf\003\185\003\185\003\185\003\185\015y\015y\002\001\003\014\011*\015y\004\162\015y\015y\004M\015y\015y\015y\015y\001.\015y\015y\015=\015y\015y\015y\004A\015y\015y\015y\015y\005\185\015y\000\n\015y\015y\015y\015y\015y\015y\015y\015y\015=\015y\0222\015y\0042\015y\015y\015y\015y\015y\015y\015y\015y\007q\015y\015y\000\242\015y\006\018\015y\015y\015y\002\001\015E\015y\015y\015y\015y\015y\015y\015y\000\242\015y\015y\015y\015y\015y\015y\015y\015y\015y\015y\015y\015E\015y\015y\004M\015y\015y\002V\001j\004!\005\185\015y\015y\015y\015y\015y\001n\015y\015y\015y\002Z\015y\015y\015A\015y\015y\001v\015y\015y\024V\015y\015y\015y\015y\015y\015y\015y\015y\015y\015y\015y\015y\015y\015A\005\185\015y\015y\015y\015y\001\153\001\153\001\153\002:\024^\001\153\004I\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\134\001\153\t\229\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\005f\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\023\250\001\153\001\153\001\153\001\153\n\002\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\004I\001\153\001\153\001\153\001\153\001\153\b\141\001\153\002F\n>\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\t\130\001\153\001\153\001\153\011\166\001\153\006\214\001\153\001\153\022\150\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\001\153\020\234\001\153\001\153\001\153\001\153\001\153\012\237\012\237\005\185\005\185\005j\012\237\001\186\012\237\012\237\002~\012\237\012\237\012\237\012\237\001\210\012\237\012\237\005\185\012\237\012\237\012\237\002\238\012\237\012\237\012\237\012\237\001\190\012\237\012\150\012\237\012\237\012\237\012\237\012\237\012\237\012\237\012\237\005\209\012\237\001f\012\237\002z\012\237\012\237\012\237\012\237\012\237\012\237\012\237\012\237\b\145\012\237\012\237\001~\012\237\001\142\012\237\012\237\012\237\002\174\000\242\012\237\012\237\012\237\012\237\012\237\012\237\012\237\000\n\012\237\012\237\012\237\012\237\012\237\012\237\012\237\012\237\012\237\012\237\012\237\b*\012\237\012\237\005\209\012\237\012\237\002\001\002\001\003>\003\210\012\237\012\237\012\237\012\237\012\237\001\210\012\237\012\237\012\237\002\001\012\237\012\006\002b\012\226\012\237\007\145\012\237\012\237\023\234\012\237\012\237\012\237\012\237\012\237\012\237\012\237\012\237\012\237\012\237\012\237\012\237\012\237\002f\012\237\012\237\012\237\012\237\012\237\004i\004i\002~\001\006\001\194\004i\030~\004i\004i\007\166\004i\004i\004i\004i\001\150\004i\004i\001j\004i\004i\004i\004!\004i\004i\004i\004i\001\202\004i\015\157\004i\004i\004i\004i\004i\004i\004i\004i\n\230\004i\012\n\004i\015\157\004i\004i\004i\004i\004i\004i\004i\004i\000\242\004i\004i\019\242\004i\019\254\004i\004i\004i\004\134\007\145\004i\004i\004i\004i\004i\004i\004i\028\238\004i\004i\004i\004i\004i\004i\004i\004i\004i\004i\004i\b\185\011\254\012\218\001\238\004i\004i\b\193\t\198\028\242\001\242\004i\004i\004i\004i\004i\002!\004i\004i\004i\030\130\004i\012\006\003\014\012\226\004i\004\162\004i\004i\023\242\004i\004i\004i\004i\004i\004i\004i\004i\004i\004i\004i\004i\004i\004\138\004i\004i\004i\004i\004i\004Y\004Y\n\202\003:\000\242\004Y\003F\004Y\004Y\004\146\004Y\004Y\004Y\004Y\012B\004Y\004Y\024Z\004Y\004Y\004Y\011\030\004Y\004Y\004Y\004Y\t\162\004Y\004&\004Y\004Y\004Y\004Y\004Y\004Y\004Y\004Y\003:\004Y\b\158\004Y\t\237\004Y\004Y\004Y\004Y\004Y\004Y\004Y\004Y\001\222\004Y\004Y\028\246\004Y\003V\004Y\004Y\004Y\012F\012b\004Y\004Y\004Y\004Y\004Y\004Y\004Y\b\018\004Y\004Y\004Y\004Y\004Y\004Y\004Y\004Y\004Y\004Y\004Y\t\185\011\254\012\218\011\133\004Y\004Y\005\185\005\185\b\022\003J\004Y\004Y\004Y\004Y\004Y\001\226\004Y\004Y\004Y\000\242\004Y\012\006\021.\012\226\004Y\005\n\004Y\004Y\003j\004Y\004Y\004Y\004Y\004Y\004Y\004Y\004Y\004Y\004Y\004Y\004Y\004Y\000\242\004Y\004Y\004Y\004Y\004Y\012M\012M\005Z\005^\000\242\012M\005u\012M\012M\002\026\012M\012M\012M\012M\001\210\012M\012M\021\130\012M\012M\012M\000\242\012M\012M\012M\012M\005\185\012M\b\162\012M\012M\012M\012M\012M\012M\012M\012M\n\230\012M\011\133\012M\001\210\012M\012M\012M\012M\012M\012M\012M\012M\000\242\012M\012M\011\137\012M\017^\012M\012M\012M\002\138\017\166\012M\012M\012M\012M\012M\012M\012M\000\242\012M\012M\012M\012M\012M\012M\012M\012M\012M\012M\012M\005u\012M\012M\017\170\012M\012M\002\226\005Z\023>\005\185\012M\012M\012M\012M\012M\003\n\012M\012M\012M\011\202\012M\012M\023R\012M\012M\011f\012M\012M\024*\012M\012M\012M\012M\012M\012M\012M\012M\012M\012M\012M\012M\012M\005\185\005\185\012M\012M\012M\012M\012]\012]\004B\003\006 \002\012]\011]\012]\012]\011\137\012]\012]\012]\012]\003N\012]\012]\0242\012]\012]\012]\0052\012]\012]\012]\012]\011i\012]\007y\012]\012]\012]\012]\012]\012]\012]\012]\020\134\012]\000\242\012]\0056\012]\012]\012]\012]\012]\012]\012]\012]\000\242\012]\012]\003:\012]\017\134\012]\012]\012]\003Z\005\185\012]\012]\012]\012]\012]\012]\012]\000\242\012]\012]\012]\012]\012]\012]\012]\012]\012]\012]\012]\017*\012]\012]\027&\012]\012]\018F\t\198\005\206\011i\012]\012]\012]\012]\012]\011]\012]\012]\012]\003\014\012]\012]\004\162\012]\012]\003\146\012]\012]\027F\012]\012]\012]\012]\012]\012]\012]\012]\012]\012]\012]\012]\012]\002\202\011i\012]\012]\012]\012]\012U\012U\023\138\001\006\001\194\012U\003\182\012U\012U\005&\012U\012U\012U\012U\001\210\012U\012U\027N\012U\012U\012U\023\154\012U\012U\012U\012U\020\138\012U\007q\012U\012U\012U\012U\012U\012U\012U\012U\t\198\012U\005\198\012U\r\214\012U\012U\012U\012U\012U\012U\012U\012U\000\242\012U\012U\000\242\012U\017\174\012U\012U\012U\002\174\003\134\012U\012U\012U\012U\012U\012U\012U\007\253\012U\012U\012U\012U\012U\012U\012U\012U\012U\012U\012U\023\174\012U\012U\n2\012U\012U\027n\016N\007\253!2\012U\012U\012U\012U\012U!J\012U\012U\012U\023\154\012U\012U\003\014\012U\012U\004\162\012U\012U\027\210\012U\012U\012U\012U\012U\012U\012U\012U\012U\012U\012U\012U\012U\005\210\001z\012U\012U\012U\012U\012A\012A\004\"\005\185\027\218\012A\011a\012A\012A\006.\012A\012A\012A\012A\005\185\012A\012A\005>\012A\012A\012A\017V\012A\012A\012A\012A\000\242\012A\t\221\012A\012A\012A\012A\012A\012A\012A\012A\005B\012A\005\214\012A\017Z\012A\012A\012A\012A\012A\012A\012A\012A\000\242\012A\012A\000\242\012A\017\218\012A\012A\012A\004f\0246\012A\012A\012A\012A\012A\012A\012A\b\005\012A\012A\012A\012A\012A\012A\012A\012A\012A\012A\012A\0119\012A\012A\011\242\012A\012A\n^\002\018\b\005\n\230\012A\012A\012A\012A\012A\011a\012A\012A\012A\004&\012A\012A\000\242\012A\012A\006J\012A\012A\007}\012A\012A\012A\012A\012A\012A\012A\012A\012A\012A\012A\012A\012A\000\242\001\138\012A\012A\012A\012A\012I\012I\"B\001\226\001\226\012I\"\199\012I\012I\007\006\012I\012I\012I\012I\004\002\012I\012I\004n\012I\012I\012I\000\242\012I\012I\012I\012I\"\135\012I\011e\012I\012I\012I\012I\012I\012I\012I\012I\004v\012I\0119\012I\019\014\012I\012I\012I\012I\012I\012I\012I\012I\003:\012I\012I\000\242\012I\018\002\012I\012I\012I\004~\024b\012I\012I\012I\012I\012I\012I\012I\b\r\012I\012I\012I\012I\012I\012I\012I\012I\012I\012I\012I\0115\012I\012I\016v\012I\012I\002\202\nB\b\r\004\186\012I\012I\012I\012I\012I\"\167\012I\012I\012I\004\190\012I\012I\003J\012I\012I\007v\012I\012I\t\233\012I\012I\012I\012I\012I\012I\012I\012I\012I\012I\012I\012I\012I\000\242\001\154\012I\012I\012I\012I\012E\012E\001\006\001\194\017~\012E\004&\012E\012E\007\238\012E\012E\012E\012E\004\202\012E\012E\019\018\012E\012E\012E\000\242\012E\012E\012E\012E\017\130\012E\004&\012E\012E\012E\012E\012E\012E\012E\012E\003:\012E\0115\012E\004\210\012E\012E\012E\012E\012E\012E\012E\012E\000\242\012E\012E\000\242\012E\018*\012E\012E\012E\004\198\004\214\012E\012E\012E\012E\012E\012E\012E\016\130\012E\012E\012E\012E\012E\012E\012E\012E\012E\012E\012E\016\146\012E\012E\016\210\012E\012E\005\210\004\250\031\142\nZ\012E\012E\012E\012E\012E\023F\012E\012E\012E\021\002\012E\012E\001\210\012E\012E\b\238\012E\012E\004\254\012E\012E\012E\012E\012E\012E\012E\012E\012E\012E\012E\012E\012E\005\022\005*\012E\012E\012E\012E\012Q\012Q\001\006\001\194\017\250\012Q\t\"\012Q\012Q\tZ\012Q\012Q\012Q\012Q\018\"\012Q\012Q\016\138\012Q\012Q\012Q\000\242\012Q\012Q\012Q\012Q\017\254\012Q\016\130\012Q\012Q\012Q\012Q\012Q\012Q\012Q\012Q\018&\012Q\017\002\012Q\005\002\012Q\012Q\012Q\012Q\012Q\012Q\012Q\012Q\000\242\012Q\012Q\000\242\012Q\018Z\012Q\012Q\012Q\006\030\t\006\012Q\012Q\012Q\012Q\012Q\012Q\012Q\021\006\012Q\012Q\012Q\012Q\012Q\012Q\012Q\012Q\012Q\012Q\012Q\018z\012Q\012Q\000\242\012Q\012Q\006:\006N\006\246\007\n\012Q\012Q\012Q\012Q\012Q\022V\012Q\012Q\012Q\0045\012Q\012Q\018~\012Q\012Q\021\226\012Q\012Q\028\154\012Q\012Q\012Q\012Q\012Q\012Q\012Q\012Q\012Q\012Q\012Q\012Q\012Q\007f\007z\012Q\012Q\012Q\012Q\012a\012a\007\222\007\242\n\014\012a\t\234\012a\012a\t\242\012a\012a\012a\012a\t\198\012a\012a\t\198\012a\012a\012a\n\022\012a\012a\012a\012a\016N\012a\017\250\012a\012a\012a\012a\012a\012a\012a\012a\019:\012a\005\206\012a\005\014\012a\012a\012a\012a\012a\012a\012a\012a\019&\012a\012a\020\170\012a\018\130\012a\012a\012a\b\222\b\242\012a\012a\012a\012a\012a\012a\012a\005\026\012a\012a\012a\012a\012a\012a\012a\012a\012a\012a\012a\018\246\012a\012a\018z\012a\012a\t\018\t&\tJ\t^\012a\012a\012a\012a\012a\023\142\012a\012a\012a\005\030\012a\012a\002\202\012a\012a\019R\012a\012a\005r\012a\012a\012a\012a\012a\012a\012a\012a\012a\012a\012a\012a\012a\tz\t\146\012a\012a\012a\012a\012Y\012Y\t\154\030>\nJ\012Y\n\218\012Y\012Y\020\174\012Y\012Y\012Y\012Y\t\198\012Y\012Y\017\210\012Y\012Y\012Y\nv\012Y\012Y\012Y\012Y\005v\012Y\017~\012Y\012Y\012Y\012Y\012Y\012Y\012Y\012Y\017\214\012Y\030b\012Y\018\250\012Y\012Y\012Y\012Y\012Y\012Y\012Y\012Y\019\250\012Y\012Y\021>\012Y\018\170\012Y\012Y\012Y\012\190\012\206\012Y\012Y\012Y\012Y\012Y\012Y\012Y\016\130\012Y\012Y\012Y\012Y\012Y\012Y\012Y\012Y\012Y\012Y\012Y\020\154\012Y\012Y\021J\012Y\012Y\r>\rN\r\150\r\166\012Y\012Y\012Y\012Y\012Y\005\170\012Y\012Y\012Y\006\"\012Y\012Y\020\158\012Y\012Y\021N\012Y\012Y\024\150\012Y\012Y\012Y\012Y\012Y\012Y\012Y\012Y\012Y\012Y\012Y\012Y\012Y\016\006\016\022\012Y\012Y\012Y\012Y\012\217\012\217\016\242\017\006\n\146\012\217\018R\012\217\012\217\021B\012\217\012\217\012\217\012\217\018\162\012\217\012\217\022F\012\217\012\217\012\217\017\210\012\217\012\217\012\217\012\217\018V\012\217\030f\012\217\012\217\012\217\012\217\012\217\012\217\012\217\012\217\018\166\012\217\018R\012\217\019\026\012\217\012\217\012\217\012\217\012\217\012\217\012\217\012\217\020V\012\217\012\217\002\162\012\217\018\198\012\217\012\217\012\217\019F\018\"\012\217\012\217\012\217\012\217\012\217\012\217\012\217\017V\012\217\012\217\012\217\012\217\012\217\012\217\012\217\012\217\012\217\012\217\012\217!.\012\217\012\217\0192\012\217\012\217\020\018\020\"\019\238\006&\012\217\012\217\012\217\012\217\012\217\020^\012\217\012\217\012\217\018\162\012\217\012\217\0062\012\217\012\217\005\210\012\217\012\217\017\166\012\217\012\217\012\217\012\217\012\217\012\217\012\217\012\217\012\217\012\217\012\217\012\217\012\217\019^\002\162\012\217\012\217\012\217\012\217\004U\004U\024\162\020\006\024\206\004U\020r\004U\004U\016\130\004U\004U\004U\004U\020\222\004U\004U\022\026\004U\004U\004U\022\154\004U\004U\004U\004U\020v\004U\n\146\004U\004U\004U\004U\004U\004U\004U\004U\020\226\004U\rn\004U!>\004U\004U\004U\004U\004U\004U\004U\004U\000\242\004U\004U\017v\004U\017\158\004U\004U\004U\024\254\021\014\004U\004U\004U\004U\004U\004U\004U\029>\004U\004U\004U\004U\004U\004U\004U\004U\004U\004U\004U\024\234\011\254\012\218\021\018\004U\004U\022\178\007\190\024\026\024\170\004U\004U\004U\004U\004U\006>\004U\004U\004U\031f\004U\012\006\028\254\012\226\004U\006B\004U\004U\006\238\004U\004U\004U\004U\004U\004U\004U\004U\004U\004U\004U\004U\004U\029\002\004U\004U\004U\004U\004U\0021\0021\027R\024.\000\242\0021\027J\002\202\0021\006\250\002\150\0021\r:\0021\007\129\004\218\0021\015\165\0021\0021\0021\028~\0021\0021\0021\001\214\006\254\rR\025\002\004\222\0021\0021\0021\0021\0021\rZ\0021\029B\004\226\018J\005\186\027\222\0021\0021\0021\0021\0021\005\238\005\242\0021\007u\006\002\001\194\018r\0021\018\154\0021\0021\002\190\027\142\007:\006\n\0021\0021\0021\011^\011b\011n\031j\rb\006\146\0021\0021\0021\0021\0021\0021\0021\0021\0021\007j\011\254\012\218\t\221\0021\0021\031\154\031\174\"\183\t\225\006\158\006\162\0021\0021\0021\n\146\0021\0021\0021\027\214\0021\rj\000\242\017\198\0021\031\170\0021\0021\024\170\0021\0021\0021\0021\0021\0021\006\166\011v\0021\0021\0021\011\142\003j\007n\015\177\0021\0021\0021\0021\012\193\012\193\028r\007\178\027\174\012\193\031\210\002\202\012\193\007\194\002\150\012\193\012\193\012\193\007\226\004\218\012\193\028\210\012\193\012\193\012\193\000\242\012\193\012\193\012\193\001\214\n\146\012\193\007\230\004\222\012\193\012\193\012\193\012\193\012\193\012\193\012\193\031\222\004\226\019>\005\186\n\146\012\193\012\193\012\193\012\193\012\193\005\238\005\242\012\193\000\242\006\002\001\194\019J\012\193\019V\012\193\012\193\002\190 \014 \030\006\n\012\193\012\193\012\193\011^\011b\011n!\206\012\193\006\146\012\193\012\193\012\193\012\193\012\193\012\193\012\193\012\193\012\193\028\014\012\193\012\193 \226\012\193\012\193\001\210\001\210\bF\b\226\006\158\006\162\012\193\012\193\012\193\b\230\012\193\012\193\012\193\t\n\012\193\012\193\003:\012\193\012\193\t\022\012\193\012\193\t\026\012\193\012\193\012\193\012\193\012\193\012\193\006\166\011v\012\193\012\193\012\193\011\142\003j\005\209!\254\012\193\012\193\012\193\012\193\012\189\012\189\tB \174!\162\012\189\031\226\002\202\012\189\tN\002\150\012\189\012\189\012\189\tR\004\218\012\189\t~\012\189\012\189\012\189\006]\012\189\012\189\012\189\001\214\">\012\189\t\142\004\222\012\189\012\189\012\189\012\189\012\189\012\189\012\189!\210\004\226\002\238\005\186\t\210\012\189\012\189\012\189\012\189\012\189\005\238\005\242\012\189\012^\006\002\001\194\012v\012\189\012\162\012\189\012\189\002\190\012\194\012\202\006\n\012\189\012\189\012\189\011^\011b\011n\012\222\012\189\006\146\012\189\012\189\012\189\012\189\012\189\012\189\012\189\012\189\012\189\rB\012\189\012\189\rJ\012\189\012\189\rV\r\154\r\162\016\n\006\158\006\162\012\189\012\189\012\189\016\018\012\189\012\189\012\189\"\002\012\189\012\189\016n\012\189\012\189\016\158\012\189\012\189\016\182\012\189\012\189\012\189\012\189\012\189\012\189\006\166\011v\012\189\012\189\012\189\011\142\003j\016\246\016\250\012\189\012\189\012\189\012\189\002y\002y\019\006\019\130\019\162\002y\020\022\002\202\002y\020\030\002\150\002y\r:\002y\021\218\004\218\002y\021\238\002y\002y\002y\021\242\002y\002y\002y\001\214\022\030\rR\006Z\004\222\002y\002y\002y\002y\002y\rZ\002y\022:\004\226\022>\005\186\005\185\002y\002y\002y\002y\002y\005\238\005\242\002y\022f\006\002\001\194\022z\002y\bB\002y\002y\002\190\022\186\022\202\006\n\002y\002y\002y\011^\011b\011n\023Z\rb\006\146\002y\002y\002y\002y\002y\002y\002y\002y\002y\006!\023r\002y\024\002\002y\002y\001\210\005\185\024\006\005\185\006\158\006\162\002y\002y\002y!\026\002y\002y\002y\b\130\002y\000\242\005\185\006!\002y\005\185\002y\002y\005\185\002y\002y\002y\002y\002y\002y\006\166\011v\002y\002y\002y\011\142\003j\014\249\005\185\002y\002y\002y\002y\005\185\t\254\005\185\002\174\005\185\005\185\005\185\005\185\005\185\005\185\005\185\005\185\005\185\024>\005\185\005\185\000\242\005\185\005\185\005\185\030\242\005\185\005\185\005\185\005\185\005\185\005\185\005\185\005\185\005\185\024B\005\185\005\185\003\210\000\242\005\185\005\185\005\185\005\185\005\185\005\185\005\185\005\185\n~\005\185\005\185\005\185\005\185\005\185\000\242\005\185\005\185\005\185\005\185\005\185\005\185\005\185\005\185\005\185\005\185\005\185\005\185\005\185\005\185\000\242\005\185\005\185\005\185\005\185\005\185\005\185\005\185\005\185\024j\024n\005\185\024\134\0252\005\185\005\185\005\185\000\242\005\185\0256\000\242\005\185\005\185\005\185\005\185\005\185\005\185\005\185\005\185\005\185\001.\n\138\005\185\005\185\000\242\005\185\002\001\002\001\005\185\022\018\n\146\005\185\002\150\005\185\025Z\025^\030\246\000\242\n\150\025n\005\185\005\185\005\185\000\242\025~\005\185\005\185\005\185\005\185\030\206\000\129\005\185\000\129\000\n\000\129\000\129\000\129\000\129\000\129\000\129\000\129\025\138\000\129\028:\000\129\000\129\027\022\000\129\000\129\030\210\025\190\000\129\000\129\022\022\000\129\000\129\000\129\000\129\025\194\000\129\027\134\000\129\000\129\026\018\002\001\000\129\000\129\022\"\000\129\000\129\000\129\b\157\000\129\024\138\000\129\000\129\000\129\000\129\000\129\028f\000\129\000\129\000\129\000\129\000\129\026:\026>\000\129\000\129\026N\b\157\000\129\000\129\006\162\000\129\000\129\000\129\000\129\000\129\000\129\000\129\000\129\000\129\026\158\b1\000\129\026\190\006%\000\129\b\149\000\129\026\254\000\129\b\134\002\202\027\"\000\129\000\129\000\129\000\129\000\129\000\129\000\129\000\129\b1\0272\027Z\000\129\b\149\000\129\006%\027^\b\149\000\226\027j\027z\027\150\000\129\012\182\030\214\027\166\027\186\030\230\000\129\000\129\000\129\000\129\027\230\r\194\000\129\000\129\000\129\000\129\ni\ni\b\157\027\234\027\246\ni\005\198\002\202\ni\028\006\002\150\ni\011j\ni\028\026\004\218\ni\029\014\ni\ni\ni\0052\ni\ni\ni\001\214\029f\029\142\030\026\004\222\ni\ni\ni\ni\ni\030\"\ni\030*\004\226\030:\005\186\0056\ni\ni\ni\ni\ni\005\238\005\242\ni\b\149\006\002\011r\030\162\ni\030\170\ni\ni\002\190\030\182\031\146\006\n\ni\ni\ni\011^\011b\011n\031\158\006v\006\146\ni\ni\ni\ni\ni\ni\ni\ni\ni\t\254\011\254\012\218\031\162\ni\ni \006 \018 \026 B\006\158\006\162\ni\ni\ni R\ni\ni\ni\n\198\ni\012\006 ^\012\226\ni\022\018\ni\ni\002\150\ni\ni\ni\ni\ni\ni\006\166\011v\ni\ni\ni\011\142\003j\n~\002\202\ni\ni\ni\ni\002q\002q \194 \214!\006\002q!\014\002\202\002q!Z!\130\002q!\186\002q\005~\000\242\002q\005\166\002q\002q\002q\022\022\002q\002q\002q\001\214!\234!\246\"\011\011Z\002q\002q\002q\002q\002q\022\"\002q\"\027\".\012\230\005\198\"J\002q\002q\002q\002q\002q\012.\t\189\002q\"g\005\174\"w\019\030\002q\019*\002q\002q\002\190\"\147\"\231\006\162\002q\002q\002q#\003#\014#C#W#_#\155\002q\002q\002q\002q\002q\002q\002q\002q\002q\007!\011\254\012\218#\163\002q\002q\n\206\019\138\000\000 f\000\242\000\000\002q\002q\002q\000\000\002q\002q\002q\t\221\002q\012\006\t\221\012\226\002q\000\000\002q\002q\000\242\002q\002q\002q\002q\002q\002q\020\186\000\000\002q\002q\002q\027\142\005\210\"\243\007!\002q\002q\002q\002q\nA\nA\000\000\000\000\000\000\nA\000\000\007\210\nA\000\000\007\142\nA\023B\nA\007!\t\221\nA\b\026\nA\nA\nA\b&\nA\nA\nA\007\210\000\000\000\000\007\142\t\221\nA\nA\nA\nA\nA\b\026\nA\011\170\001\194\b&\000\000\000\000\nA\nA\nA\nA\nA\020z\0115\nA\b=\020\142\020\162\020\178\nA\t\221\nA\nA\002\202\000\000\000\000\002\150\nA\nA\nA\000\000\000\000\011\254\012\218\000\000\b=\nA\nA\nA\nA\nA\nA\nA\nA\nA\t\254\011\254\012\218\t\221\nA\nA\000\000\012\006\000\000\012\226\000\242\000\000\nA\nA\nA\020\n\nA\nA\nA\031*\nA\012\006\022\142\012\226\nA\000\000\nA\nA\tq\nA\nA\nA\nA\nA\nA\000\000\022\"\nA\nA\nA\005>\005\210\n~\000\000\nA\nA\nA\nA\002\133\002\133\000\000\000\000\000\000\002\133\000\000\0115\002\133\000\000\tq\002\133\005B\002\133\006\162\000\242\002\133\011i\002\133\002\133\002\133\000\000\002\133\002\133\002\133\tq\t\254\000\000\tq\011\234\002\133\002\133\002\133\002\133\002\133\tq\002\133\011\170\020\238\tq\000\000\000\000\002\133\002\133\002\133\002\133\002\133\020z\000\000\002\133\000\000\020\142\020\162\020\178\002\133\000\000\002\133\002\133\000\000\000\000\000\000\031.\002\133\002\133\002\133\000\000\000\000\000\000\n~\000\000\000\000\002\133\002\133\002\133\002\133\002\133\002\133\002\133\002\133\002\133\t\254\011\254\012\218\000\000\002\133\002\133\000\000\000\000\000\000\000\242\006\133\000\000\002\133\002\133\002\133\000\000\002\133\002\133\002\133\011\214\002\133\012\006\006\133\012\226\002\133\000\000\002\133\002\133\rE\002\133\002\133\002\133\002\133\002\133\002\133\000\000\000\000\002\133\002\133\002\133\000\000\"\215\n~\000\000\002\133\002\133\002\133\002\133\002\129\002\129\000\000\022\018\000\000\002\129\002\150\006\133\002\129\000\000\rE\002\129\000\000\002\129\000\000\000\242\002\129\000\000\002\129\002\129\002\129\000\000\002\129\002\129\002\129\rE\000\000\000\000\rE\016\202\002\129\002\129\002\129\002\129\002\129\rE\002\129\006\133\000\000\rE\006\133\000\000\002\129\002\129\002\129\002\129\002\129\022\022\000\000\002\129\000\000\000\000\000\000\000\000\002\129\000\000\002\129\002\129\000\000\000\000\000\000\022\"\002\129\002\129\002\129\000\000\000\000\000\000\002\186\000\000\000\000\002\129\002\129\002\129\002\129\002\129\002\129\002\129\002\129\002\129\t\254\011\254\012\218\000\000\002\129\002\129\000\000\006\162\000\000\000\000\000\242\000\000\002\129\002\129\002\129\000\000\002\129\002\129\002\129\030\142\002\129\012\006\000\000\012\226\002\129\000\000\002\129\002\129\002\001\002\129\002\129\002\129\002\129\002\129\002\129\026j\000\000\002\129\002\129\002\129\005!\002\202\n~\004\218\002\129\002\129\002\129\002\129\nU\nU\000\000\002\001\000\000\nU\002\001\005!\nU\000\n\b\186\nU\005.\nU\000\000\000\242\nU\005!\nU\nU\nU\005!\nU\nU\nU\005:\000\000\000\000\002\001\000\n\nU\nU\nU\nU\nU\000\000\nU\017\202\005\198\000\000\002\001\002\001\nU\nU\nU\nU\nU\002\001\002\001\nU\006\146\017\242\000\000\018\026\nU\000\000\nU\nU\000\000\000\000\002\001\002\001\nU\nU\nU\000\000\000\000\000\000\000\000\000\000\006\158\nU\nU\nU\nU\nU\nU\nU\nU\nU\000\000\011\254\012\218\000\000\nU\nU\000\000\002\001\000\000\000\000\t\133\000\000\nU\nU\nU\006\166\nU\nU\nU\000\000\nU\012\006\n\242\012\226\nU\000\000\nU\nU\000\000\nU\nU\nU\nU\nU\nU\t\254\022\242\nU\nU\nU\t\133\000\000\n\246\003N\nU\nU\nU\nU\n}\n}\000\000\000\000\000\000\n}\030\226\t\133\n}\000\000\007\142\n}\000\000\n}\000\000\000\000\n}\t\133\n}\n}\n}\t\133\n}\n}\n}\n\230\000\000\000\000\011\161\n~\n}\n}\n}\n}\n}\002\202\n}\000\000\000\242\003\150\003Z\000\000\n}\n}\n}\n}\n}\003\022\003\"\n}\000\242\011\161\000\000\003.\n}\000\000\n}\n}\000\000\000\000\000\000\000\000\n}\n}\n}\000\000\000\000\000\000\000\000\000\000\000\000\n}\n}\n}\n}\n}\n}\n}\n}\n}\005\198\011\254\012\218\000\000\n}\n}\000\000\n\250\000\000\000\000\n\201\000\000\n}\n}\n}\000\000\n}\n}\n}\000\000\n}\012\006\000\000\012\226\n}\000\000\n}\n}\000\000\n}\n}\n}\n}\n}\n}\t\254\000\000\n}\n}\n}\n\201\000\000\n\186\t\254\n}\n}\n}\n}\002u\002u\000\000\000\000\000\000\002u\030\254\b\214\002u\000\000\n\201\002u\000\000\002u\n\190\000\000\002u\n\201\002u\002u\002u\n\201\002u\002u\002u\002\001\002\001\021Z\000\000\n~\002u\002u\002u\002u\002u\000\000\002u\n~\000\000\000\000\002\001\000\000\002u\002u\002u\002u\002u\b\165\000\000\002u\000\242\000\000\000\n\000\000\002u\000\000\002u\002u\000\242\000\000\000\000\000\000\002u\002u\002u\000\000\b\165\000\000\b}\000\000\b\165\002u\002u\002u\002u\002u\002u\002u\002u\002u\t\254\011\254\012\218\002\001\002u\002u\000\000\b\138\000\000\000\000\000\242\b}\002u\002u\002u\000\000\002u\002u\002u\031\026\002u\012\006\000\000\012\226\002u\000\000\002u\002u\000\000\002u\002u\002u\002u\002u\002u\t\254\000\000\002u\002u\002u\004\225\005\210\n~\000\000\002u\002u\002u\002u\n\165\n\165\000\000\b\165\000\000\n\165\0316\004\225\n\165\000\000\b\186\n\165\000\000\n\165\000\000\000\242\n\165\004\225\n\165\n\165\n\165\004\225\n\165\n\165\n\165\002\001\002\001\023\026\012\182\n~\n\165\n\165\n\165\n\165\n\165\000\000\n\165\006\218\r\194\000\000\002\001\000\000\n\165\n\165\n\165\n\165\n\165\006R\000\000\n\165\000\242\bV\000\n\006^\n\165\000\000\n\165\n\165\000\000\000\000\000\000\000\000\n\165\n\165\n\165\000\000\000\000\000\000\011\157\000\000\000\000\n\165\n\165\n\165\n\165\n\165\n\165\n\165\n\165\n\165\000\000\011\254\012\218\002\001\n\165\n\165\000\000\020\206\000\000\000\000\000\242\011\157\n\165\n\165\n\165\000\000\n\165\n\165\n\165\000\000\n\165\012\006\000\000\012\226\n\165\000\000\n\165\n\165\000\000\n\165\n\165\n\165\n\165\n\165\n\165\000\000\000\000\n\165\n\165\n\165\005\017\000\000\011\002\t\254\n\165\n\165\n\165\n\165\n\145\n\145\000\000\002\018\000\000\n\145\002\150\005\017\n\145\000\000\b\186\n\145\000\000\n\145\011\006\000\000\n\145\005\017\n\145\n\145\n\145\005\017\n\145\n\145\n\145\000\000\000\000\000\000\000\000\000\000\n\145\n\145\n\145\n\145\n\145\000\000\n\145\n~\000\000\000\000\000\000\000\000\n\145\n\145\n\145\n\145\n\145\"&\001\226\n\145\000\000\000\000\000\000\000\000\n\145\000\000\n\145\n\145\000\242\000\000\000\000\022\"\n\145\n\145\n\145\000\000\000\000\000\000\000\000\000\000\000\000\n\145\n\145\n\145\n\145\n\145\n\145\n\145\n\145\n\145\000\000\011\254\012\218\000\000\n\145\n\145\000\000\006\162\000\000\000\000\000\000\000\000\n\145\n\145\n\145\000\000\n\145\n\145\n\145\000\000\n\145\012\006\000\000\012\226\n\145\000\000\n\145\n\145\000\000\n\145\n\145\n\145\n\145\n\145\n\145\015\t\000\000\n\145\n\145\n\145\000\000\000\000\031v\t\254\n\145\n\145\n\145\n\145\002)\002)\000\000\000\000\000\000\002)\015\t\015\t\002)\000\000\015\t\002)\000\000\002)\031z\000\000\002)\000\000\002)\002)\002)\000\000\002)\002)\002)\000\000\000\000\000\000\t\254\b\177\002)\002)\002)\002)\002)\000\000\002)\n~\000\000\000\000\000\000\000\000\002)\002)\002)\002)\002)!\218\b\177\002)\000\000\000\242\b\177\000\000\002)\000\000\002)\002)\000\242\000\000\000\000\000\000\002)\002)\002)\000\000\000\000\000\000\000\000\000\000\n~\002)\002)\002)\002)\002)\002)\002)\002)\002)\000\000\015\t\002)\000\000\002)\002)\000\000\000\000\000\000\000\000\000\000\000\242\002)\002)\002)\000\000\002)\002)\002)\000\000\002)\000\000\000\000\000\000\002)\000\000\002)\002)\001\210\012\182\002)\002)\002)\002)\002)\015\005\000\000\002)\002)\r\194 \246\000\000\000\000\006\130\002)\002)\002)\002)\002}\002}\000\000\000\000\000\000\002}\015\005\015\005\002}\000\000\015\005\002}\000\000\002}\000\000\000\000\002}\000\000\002}\002}\002}\000\000\002}\002}\002}\002\174\000\000\000\000\000\000\b\157\002}\002}\002}\002}\002}\000\000\002}\000\000\000\000\000\000\000\000\000\000\002}\002}\002}\002}\002}\000\000\b\157\002}\000\000\000\242\b\157\000\000\002}\003\210\002}\002}\006a\000\000\000\000\000\000\002}\002}\002}\000\000\000\000\000\000\000\000\000\000\000\000\002}\002}\002}\002}\002}\002}\002}\002}\002}\000\000\015\005\002}\000\000\002}\002}\000\000\000\000\000\000\000\000\000\242\000\000\002}\002}\002}\000\000\002}\002}\002}\000\000\002}\000\000\000\000\000\000\002}\000\000\002}\002}\000\000\r\142\002}\002}\002}\002}\002}\000\000\000\000\002}\002}\002}\005\001\000\000\000\000\011j\002}\002}\002}\002}\n=\n=\000\000\000\000\000\000\n=\000\000\005\001\n=\000\000\b\186\n=\000\000\n=\000\000\000\000\n=\005\001\n=\n=\n=\005\001\n=\n=\n=\000\000\000\000\000\000\000\000\000\000\n=\n=\n=\n=\n=\000\000\n=\000\000\000\000\000\000\000\000\000\000\n=\n=\n=\n=\n=\000\000\000\000\n=\000\000\000\000\000\000\000\000\n=\000\000\n=\n=\000\000\000\000\000\000\000\000\n=\n=\n=\000\000\000\000\000\000\000\000\000\000\000\000\n=\n=\n=\n=\n=\n=\n=\n=\n=\000\000\000\000\n=\000\000\n=\n=\000\000\000\000\000\000\000\000\000\242\000\000\n=\n=\n=\000\000\n=\n=\n=\000\000\n=\000\000\000\000\000\000\n=\000\000\n=\n=\000\000\012\182\n=\n=\n=\n=\n=\000\000\000\000\n=\n=\r\194\012\250\000\000\000\000\000\000\n=\n=\n=\n=\003\181\003\181\000\000\000\000\000\000\003\181\000\000\007\210\003\181\000\000\007\142\003\181\000\000\003\181\000\000\000\000\r\230\b\026\003\181\014:\003\181\b&\003\181\003\181\003\181\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\014\198\000\000\003\181\000\000\000\000\000\000\000\000\000\000\003\181\003\181\014\222\014\246\003\181\000\000\000\000\003\181\000\000\000\000\000\000\000\000\003\181\000\000\015\014\003\181\000\000\000\000\000\000\000\000\003\181\003\181\000\242\000\000\000\000\000\000\000\000\000\000\000\000\003\181\003\181\r\254\014~\015&\015>\015n\003\181\003\181\000\000\000\000\003\181\000\000\003\181\015\134\000\000\000\000\000\000\000\000\000\242\000\000\003\181\003\181\015\158\000\000\003\181\003\181\003\181\000\000\003\181\000\000\000\000\000\000\003\181\000\000\003\181\003\181\000\000\015\254\003\181\0166\015V\003\181\003\181\000\000\000\000\003\181\015\182\003\181\016\222\000\000\000\000\000\000\003\181\003\181\015\206\015\230\002\221\002\221\000\000\000\000\000\000\002\221\000\000\016\230\002\221\000\000\b\186\002\221\000\000\002\221\000\000\000\000\002\221\017\026\002\221\002\221\002\221\017&\002\221\002\221\002\221\000\000\000\000\000\000\000\000\000\000\002\221\002\221\002\221\002\221\002\221\000\000\002\221\000\000\000\000\000\000\000\000\000\000\002\221\002\221\002\221\002\221\002\221\000\000\000\000\002\221\000\000\000\000\000\000\000\000\002\221\000\000\002\221\002\221\000\000\000\000\000\000\000\000\002\221\002\221\002\221\000\000\000\000\000\000\000\000\000\000\000\000\002\221\002\221\002\221\002\221\002\221\002\221\002\221\002\221\002\221\000\000\000\000\002\221\000\000\002\221\002\221\000\000\000\000\000\000\000\000\000\242\000\000\002\221\002\221\002\221\000\000\002\221\002\221\002\221\000\000\002\221\000\000\000\000\000\000\002\221\000\000\002\221\002\221\000\000\012\182\002\221\002\221\002\221\002\221\002\221\000\000\000\000\002\221\002\221\r\194\004\241\000\000\000\000\000\000\002\221\002\221\002\221\002\221\002\217\002\217\000\000\000\000\000\000\002\217\000\000\004\241\002\217\000\000\b\186\002\217\000\000\002\217\000\000\000\000\002\217\004\241\002\217\002\217\002\217\004\241\002\217\002\217\002\217\000\000\000\000\000\000\000\000\000\000\002\217\002\217\002\217\002\217\002\217\000\000\002\217\000\000\000\000\000\000\000\000\000\000\002\217\002\217\002\217\002\217\002\217\000\000\000\000\002\217\000\000\000\000\000\000\000\000\002\217\000\000\002\217\002\217\000\000\000\000\000\000\000\000\002\217\002\217\002\217\000\000\000\000\000\000\000\000\000\000\000\000\002\217\002\217\r\254\002\217\002\217\002\217\002\217\002\217\002\217\000\000\000\000\002\217\000\000\002\217\002\217\000\000\000\000\000\000\000\000\000\242\000\000\002\217\002\217\002\217\000\000\002\217\002\217\002\217\000\000\002\217\000\000\000\000\000\000\002\217\000\000\002\217\002\217\000\000\002\217\002\217\002\217\002\217\002\217\002\217\000\000\000\000\002\217\002\217\002\217\t\161\000\000\000\000\000\000\002\217\002\217\002\217\002\217\002\173\002\173\000\000\000\000\000\000\002\173\000\000\007\210\002\173\000\000\007\142\002\173\000\000\002\173\000\000\000\000\002\173\t\161\002\173\002\173\002\173\t\161\002\173\002\173\002\173\000\000\000\000\000\000\000\000\000\000\002\173\002\173\002\173\002\173\002\173\000\000\002\173\000\000\000\000\000\000\000\000\000\000\002\173\002\173\002\173\002\173\002\173\000\000\000\000\002\173\000\000\000\000\000\000\000\000\002\173\000\000\002\173\002\173\000\000\000\000\000\000\000\000\002\173\002\173\002\173\000\000\000\000\000\000\000\000\000\000\000\000\002\173\002\173\002\173\002\173\002\173\002\173\002\173\002\173\002\173\000\000\000\000\002\173\000\000\002\173\002\173\000\000\000\000\000\000\000\000\000\242\000\000\002\173\002\173\002\173\000\000\002\173\002\173\002\173\000\000\002\173\000\000\000\000\000\000\002\173\000\000\002\173\002\173\000\000\012\182\002\173\002\173\002\173\002\173\002\173\000\000\000\000\002\173\002\173\r\194\020J\000\000\000\000\000\000\002\173\002\173\002\173\002\173\002\169\002\169\000\000\000\000\000\000\002\169\000\000\016\230\002\169\000\000\b\186\002\169\000\000\002\169\000\000\000\000\002\169\017\026\002\169\002\169\002\169\017&\002\169\002\169\002\169\000\000\000\000\000\000\000\000\000\000\002\169\002\169\002\169\002\169\002\169\000\000\002\169\000\000\000\000\000\000\000\000\000\000\002\169\002\169\002\169\002\169\002\169\000\000\000\000\002\169\000\000\000\000\000\000\000\000\002\169\000\000\002\169\002\169\000\000\000\000\000\000\000\000\002\169\002\169\002\169\000\000\000\000\000\000\000\000\000\000\000\000\002\169\002\169\r\254\002\169\002\169\002\169\002\169\002\169\002\169\000\000\000\000\002\169\000\000\002\169\002\169\000\000\000\000\000\000\000\000\000\000\000\000\002\169\002\169\002\169\000\000\002\169\002\169\002\169\000\000\002\169\000\000\000\000\000\000\002\169\000\000\002\169\002\169\000\000\002\169\002\169\002\169\002\169\002\169\002\169\b\153\000\000\002\169\002\169\002\169\000\000\000\000\000\000\000\000\002\169\002\169\002\169\002\169\002\197\002\197\000\000\000\000\000\000\002\197\b\153\000\000\002\197\000\000\b\153\002\197\000\000\002\197\000\000\000\000\002\197\000\000\002\197\002\197\002\197\000\000\002\197\002\197\002\197\000\000\000\000\000\000\000\000\000\000\002\197\002\197\002\197\002\197\002\197\000\000\002\197\000\000\000\000\000\000\000\000\000\000\002\197\002\197\002\197\002\197\002\197\000\000\000\000\002\197\000\000\000\242\000\000\000\000\002\197\000\000\002\197\002\197\000\000\000\000\000\000\000\000\002\197\002\197\002\197\000\000\000\000\000\000\000\000\000\000\000\000\002\197\002\197\002\197\002\197\002\197\002\197\002\197\002\197\002\197\000\000\b\153\002\197\000\000\002\197\002\197\000\000\000\000\000\000\000\000\000\000\000\000\002\197\002\197\002\197\000\000\002\197\002\197\002\197\000\000\002\197\000\000\000\000\000\000\002\197\000\000\002\197\002\197\000\000\012\182\002\197\002\197\002\197\002\197\002\197\000\000\000\000\002\197\002\197\r\194\000\000\000\000\000\000\000\000\002\197\002\197\002\197\002\197\002\193\002\193\000\000\000\000\000\000\002\193\000\000\000\000\002\193\000\000\000\000\002\193\000\000\002\193\000\000\000\000\r\230\000\000\002\193\002\193\002\193\000\000\002\193\002\193\002\193\000\000\000\000\000\000\000\000\000\000\002\193\002\193\002\193\014f\002\193\000\000\002\193\000\000\000\000\000\000\000\000\000\000\002\193\002\193\002\193\002\193\002\193\000\000\000\000\002\193\000\000\000\000\000\000\000\000\002\193\000\000\002\193\002\193\000\000\000\000\000\000\000\000\002\193\002\193\002\193\000\000\000\000\000\000\000\000\000\000\000\000\002\193\002\193\r\254\014~\002\193\002\193\002\193\002\193\002\193\000\000\000\000\002\193\000\000\002\193\002\193\000\000\000\000\000\000\000\000\000\000\000\000\002\193\002\193\002\193\000\000\002\193\002\193\002\193\000\000\002\193\000\000\000\000\000\000\002\193\000\000\002\193\002\193\000\000\002\193\002\193\002\193\002\193\002\193\002\193\000\000\000\000\002\193\002\193\002\193\000\000\000\000\000\000\000\000\002\193\002\193\002\193\002\193\002\229\002\229\000\000\000\000\000\000\002\229\000\000\000\000\002\229\000\000\000\000\002\229\000\000\002\229\000\000\000\000\002\229\000\000\002\229\002\229\002\229\000\000\002\229\002\229\002\229\000\000\000\000\000\000\000\000\000\000\002\229\002\229\002\229\002\229\002\229\000\000\002\229\000\000\000\000\000\000\000\000\000\000\002\229\002\229\002\229\002\229\002\229\000\000\000\000\002\229\000\000\000\000\000\000\000\000\002\229\000\000\002\229\002\229\000\000\000\000\000\000\000\000\002\229\002\229\002\229\000\000\000\000\000\000\000\000\000\000\000\000\002\229\002\229\002\229\002\229\002\229\002\229\002\229\002\229\002\229\000\000\000\000\002\229\000\000\002\229\002\229\000\000\000\000\000\000\000\000\000\000\000\000\002\229\002\229\002\229\000\000\002\229\002\229\002\229\000\000\002\229\000\000\000\000\000\000\002\229\000\000\002\229\002\229\000\000\012\182\002\229\002\229\002\229\002\229\002\229\000\000\000\000\002\229\002\229\r\194\000\000\000\000\000\000\000\000\002\229\002\229\002\229\002\229\002\225\002\225\000\000\000\000\000\000\002\225\000\000\000\000\002\225\000\000\000\000\002\225\000\000\002\225\000\000\000\000\002\225\000\000\002\225\002\225\002\225\000\000\002\225\002\225\002\225\000\000\000\000\000\000\000\000\000\000\002\225\002\225\002\225\002\225\002\225\000\000\002\225\000\000\000\000\000\000\000\000\000\000\002\225\002\225\002\225\002\225\002\225\000\000\000\000\002\225\000\000\000\000\000\000\000\000\002\225\000\000\002\225\002\225\000\000\000\000\000\000\000\000\002\225\002\225\002\225\000\000\000\000\000\000\000\000\000\000\000\000\002\225\002\225\r\254\002\225\002\225\002\225\002\225\002\225\002\225\000\000\000\000\002\225\000\000\002\225\002\225\000\000\000\000\000\000\000\000\000\000\000\000\002\225\002\225\002\225\000\000\002\225\002\225\002\225\000\000\002\225\000\000\000\000\000\000\002\225\000\000\002\225\002\225\000\000\002\225\002\225\002\225\002\225\002\225\002\225\000\000\000\000\002\225\002\225\002\225\000\000\000\000\000\000\000\000\002\225\002\225\002\225\002\225\002\165\002\165\000\000\000\000\000\000\002\165\000\000\000\000\002\165\000\000\000\000\002\165\000\000\002\165\000\000\000\000\002\165\000\000\002\165\002\165\002\165\000\000\002\165\002\165\002\165\000\000\000\000\000\000\000\000\000\000\002\165\002\165\002\165\002\165\002\165\000\000\002\165\000\000\000\000\000\000\000\000\000\000\002\165\002\165\002\165\002\165\002\165\000\000\000\000\002\165\000\000\000\000\000\000\000\000\002\165\000\000\002\165\002\165\000\000\000\000\000\000\000\000\002\165\002\165\002\165\000\000\000\000\000\000\000\000\000\000\000\000\002\165\002\165\002\165\002\165\002\165\002\165\002\165\002\165\002\165\000\000\000\000\002\165\000\000\002\165\002\165\000\000\000\000\000\000\000\000\000\000\000\000\002\165\002\165\002\165\000\000\002\165\002\165\002\165\000\000\002\165\000\000\000\000\000\000\002\165\000\000\002\165\002\165\000\000\012\182\002\165\002\165\002\165\002\165\002\165\000\000\000\000\002\165\002\165\r\194\000\000\000\000\000\000\000\000\002\165\002\165\002\165\002\165\002\161\002\161\000\000\000\000\000\000\002\161\000\000\000\000\002\161\000\000\000\000\002\161\000\000\002\161\000\000\000\000\002\161\000\000\002\161\002\161\002\161\000\000\002\161\002\161\002\161\000\000\000\000\000\000\000\000\000\000\002\161\002\161\002\161\002\161\002\161\000\000\002\161\000\000\000\000\000\000\000\000\000\000\002\161\002\161\002\161\002\161\002\161\000\000\000\000\002\161\000\000\000\000\000\000\000\000\002\161\000\000\002\161\002\161\000\000\000\000\000\000\000\000\002\161\002\161\002\161\000\000\000\000\000\000\000\000\000\000\000\000\002\161\002\161\r\254\002\161\002\161\002\161\002\161\002\161\002\161\000\000\000\000\002\161\000\000\002\161\002\161\000\000\000\000\000\000\000\000\000\000\000\000\002\161\002\161\002\161\000\000\002\161\002\161\002\161\000\000\002\161\000\000\000\000\000\000\002\161\000\000\002\161\002\161\000\000\002\161\002\161\002\161\002\161\002\161\002\161\000\000\000\000\002\161\002\161\002\161\000\000\000\000\000\000\000\000\002\161\002\161\002\161\002\161\002\189\002\189\000\000\000\000\000\000\002\189\000\000\000\000\002\189\000\000\000\000\002\189\000\000\002\189\000\000\000\000\002\189\000\000\002\189\002\189\002\189\000\000\002\189\002\189\002\189\000\000\000\000\000\000\000\000\000\000\002\189\002\189\002\189\002\189\002\189\000\000\002\189\000\000\000\000\000\000\000\000\000\000\002\189\002\189\002\189\002\189\002\189\000\000\000\000\002\189\000\000\000\000\000\000\000\000\002\189\000\000\002\189\002\189\000\000\000\000\000\000\000\000\002\189\002\189\002\189\000\000\000\000\000\000\000\000\000\000\000\000\002\189\002\189\002\189\002\189\002\189\002\189\002\189\002\189\002\189\000\000\000\000\002\189\000\000\002\189\002\189\000\000\000\000\000\000\000\000\000\000\000\000\002\189\002\189\002\189\000\000\002\189\002\189\002\189\000\000\002\189\000\000\000\000\000\000\002\189\000\000\002\189\002\189\000\000\012\182\002\189\002\189\002\189\002\189\002\189\000\000\000\000\002\189\002\189\r\194\000\000\000\000\000\000\000\000\002\189\002\189\002\189\002\189\002\185\002\185\000\000\000\000\000\000\002\185\000\000\000\000\002\185\000\000\000\000\002\185\000\000\002\185\000\000\000\000\r\230\000\000\002\185\002\185\002\185\000\000\002\185\002\185\002\185\000\000\000\000\000\000\000\000\000\000\002\185\002\185\002\185\014f\002\185\000\000\002\185\000\000\000\000\000\000\000\000\000\000\002\185\002\185\002\185\002\185\002\185\000\000\000\000\002\185\000\000\000\000\000\000\000\000\002\185\000\000\002\185\002\185\000\000\000\000\000\000\000\000\002\185\002\185\002\185\000\000\000\000\000\000\000\000\000\000\000\000\002\185\002\185\r\254\014~\002\185\002\185\002\185\002\185\002\185\000\000\000\000\002\185\000\000\002\185\002\185\000\000\000\000\000\000\000\000\000\000\000\000\002\185\002\185\002\185\000\000\002\185\002\185\002\185\000\000\002\185\000\000\000\000\000\000\002\185\000\000\002\185\002\185\000\000\002\185\002\185\002\185\002\185\002\185\002\185\000\000\000\000\002\185\002\185\002\185\000\000\000\000\000\000\000\000\002\185\002\185\002\185\002\185\002\181\002\181\000\000\000\000\000\000\002\181\000\000\000\000\002\181\000\000\000\000\002\181\000\000\002\181\000\000\000\000\002\181\000\000\002\181\002\181\002\181\000\000\002\181\002\181\002\181\000\000\000\000\000\000\000\000\000\000\002\181\002\181\002\181\002\181\002\181\000\000\002\181\000\000\000\000\000\000\000\000\000\000\002\181\002\181\002\181\002\181\002\181\000\000\000\000\002\181\000\000\000\000\000\000\000\000\002\181\000\000\002\181\002\181\000\000\000\000\000\000\000\000\002\181\002\181\002\181\000\000\000\000\000\000\000\000\000\000\000\000\002\181\002\181\002\181\002\181\002\181\002\181\002\181\002\181\002\181\000\000\000\000\002\181\000\000\002\181\002\181\000\000\000\000\000\000\000\000\000\000\000\000\002\181\002\181\002\181\000\000\002\181\002\181\002\181\000\000\002\181\000\000\000\000\000\000\002\181\000\000\002\181\002\181\000\000\012\182\002\181\002\181\002\181\002\181\002\181\000\000\000\000\002\181\002\181\r\194\000\000\000\000\000\000\000\000\002\181\002\181\002\181\002\181\002\177\002\177\000\000\000\000\000\000\002\177\000\000\000\000\002\177\000\000\000\000\002\177\000\000\002\177\000\000\000\000\r\230\000\000\002\177\002\177\002\177\000\000\002\177\002\177\002\177\000\000\000\000\000\000\000\000\000\000\002\177\002\177\002\177\014f\002\177\000\000\002\177\000\000\000\000\000\000\000\000\000\000\002\177\002\177\002\177\002\177\002\177\000\000\000\000\002\177\000\000\000\000\000\000\000\000\002\177\000\000\002\177\002\177\000\000\000\000\000\000\000\000\002\177\002\177\002\177\000\000\000\000\000\000\000\000\000\000\000\000\002\177\002\177\r\254\014~\002\177\002\177\002\177\002\177\002\177\000\000\000\000\002\177\000\000\002\177\002\177\000\000\000\000\000\000\000\000\000\000\000\000\002\177\002\177\002\177\000\000\002\177\002\177\002\177\000\000\002\177\000\000\000\000\000\000\002\177\000\000\002\177\002\177\000\000\002\177\002\177\002\177\002\177\002\177\002\177\000\000\000\000\002\177\002\177\002\177\000\000\000\000\000\000\000\000\002\177\002\177\002\177\002\177\003\005\003\005\000\000\000\000\000\000\003\005\000\000\000\000\003\005\000\000\000\000\003\005\000\000\003\005\000\000\000\000\003\005\000\000\003\005\003\005\003\005\000\000\003\005\003\005\003\005\000\000\000\000\000\000\000\000\000\000\003\005\003\005\003\005\003\005\003\005\000\000\003\005\000\000\000\000\000\000\000\000\000\000\003\005\003\005\003\005\003\005\003\005\000\000\000\000\003\005\000\000\000\000\000\000\000\000\003\005\000\000\003\005\003\005\000\000\000\000\000\000\000\000\003\005\003\005\003\005\000\000\000\000\000\000\000\000\000\000\000\000\003\005\003\005\003\005\003\005\003\005\003\005\003\005\003\005\003\005\000\000\000\000\003\005\000\000\003\005\003\005\000\000\000\000\000\000\000\000\000\000\000\000\003\005\003\005\003\005\000\000\003\005\003\005\003\005\000\000\003\005\000\000\000\000\000\000\003\005\000\000\003\005\003\005\000\000\012\182\003\005\003\005\003\005\003\005\003\005\000\000\000\000\003\005\003\005\r\194\000\000\000\000\000\000\000\000\003\005\003\005\003\005\003\005\003\001\003\001\000\000\000\000\000\000\003\001\000\000\000\000\003\001\000\000\000\000\003\001\000\000\003\001\000\000\000\000\r\230\000\000\003\001\003\001\003\001\000\000\003\001\003\001\003\001\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\014\198\000\000\003\001\000\000\000\000\000\000\000\000\000\000\003\001\003\001\014\222\014\246\003\001\000\000\000\000\003\001\000\000\000\000\000\000\000\000\003\001\000\000\015\014\003\001\000\000\000\000\000\000\000\000\003\001\003\001\000\242\000\000\000\000\000\000\000\000\000\000\000\000\003\001\003\001\r\254\014~\015&\015>\015n\003\001\003\001\000\000\000\000\003\001\000\000\003\001\015\134\000\000\000\000\000\000\000\000\000\000\000\000\003\001\003\001\015\158\000\000\003\001\003\001\003\001\000\000\003\001\000\000\000\000\000\000\003\001\000\000\003\001\003\001\000\000\003\001\003\001\003\001\015V\003\001\003\001\000\000\000\000\003\001\015\182\003\001\000\000\000\000\000\000\000\000\003\001\003\001\015\206\015\230\002\213\002\213\000\000\000\000\000\000\002\213\000\000\000\000\002\213\000\000\000\000\002\213\000\000\002\213\000\000\000\000\002\213\000\000\002\213\002\213\002\213\000\000\002\213\002\213\002\213\000\000\000\000\000\000\000\000\000\000\002\213\002\213\002\213\002\213\002\213\000\000\002\213\000\000\000\000\000\000\000\000\000\000\002\213\002\213\002\213\002\213\002\213\000\000\000\000\002\213\000\000\000\000\000\000\000\000\002\213\000\000\002\213\002\213\000\000\000\000\000\000\000\000\002\213\002\213\002\213\000\000\000\000\000\000\000\000\000\000\000\000\002\213\002\213\002\213\002\213\002\213\002\213\002\213\002\213\002\213\000\000\000\000\002\213\000\000\002\213\002\213\000\000\000\000\000\000\000\000\000\000\000\000\002\213\002\213\002\213\000\000\002\213\002\213\002\213\000\000\002\213\000\000\000\000\000\000\002\213\000\000\002\213\002\213\000\000\012\182\002\213\002\213\002\213\002\213\002\213\000\000\000\000\002\213\002\213\r\194\000\000\000\000\000\000\000\000\002\213\002\213\002\213\002\213\002\209\002\209\000\000\000\000\000\000\002\209\000\000\000\000\002\209\000\000\000\000\002\209\000\000\002\209\000\000\000\000\r\230\000\000\002\209\002\209\002\209\000\000\002\209\002\209\002\209\000\000\000\000\000\000\000\000\000\000\002\209\002\209\002\209\014f\002\209\000\000\002\209\000\000\000\000\000\000\000\000\000\000\002\209\002\209\002\209\002\209\002\209\000\000\000\000\002\209\000\000\000\000\000\000\000\000\002\209\000\000\002\209\002\209\000\000\000\000\000\000\000\000\002\209\002\209\002\209\000\000\000\000\000\000\000\000\000\000\000\000\002\209\002\209\r\254\014~\002\209\002\209\002\209\002\209\002\209\000\000\000\000\002\209\000\000\002\209\002\209\000\000\000\000\000\000\000\000\000\000\000\000\002\209\002\209\002\209\000\000\002\209\002\209\002\209\000\000\002\209\000\000\000\000\000\000\002\209\000\000\002\209\002\209\000\000\002\209\002\209\002\209\002\209\002\209\002\209\000\000\000\000\002\209\002\209\002\209\000\000\000\000\000\000\000\000\002\209\002\209\002\209\002\209\002\205\002\205\000\000\000\000\000\000\002\205\000\000\000\000\002\205\000\000\000\000\002\205\000\000\002\205\000\000\000\000\002\205\000\000\002\205\002\205\002\205\000\000\002\205\002\205\002\205\000\000\000\000\000\000\000\000\000\000\002\205\002\205\002\205\002\205\002\205\000\000\002\205\000\000\000\000\000\000\000\000\000\000\002\205\002\205\002\205\002\205\002\205\000\000\000\000\002\205\000\000\000\000\000\000\000\000\002\205\000\000\002\205\002\205\000\000\000\000\000\000\000\000\002\205\002\205\002\205\000\000\000\000\000\000\000\000\000\000\000\000\002\205\002\205\002\205\002\205\002\205\002\205\002\205\002\205\002\205\000\000\000\000\002\205\000\000\002\205\002\205\000\000\000\000\000\000\000\000\000\000\000\000\002\205\002\205\002\205\000\000\002\205\002\205\002\205\000\000\002\205\000\000\000\000\000\000\002\205\000\000\002\205\002\205\000\000\012\182\002\205\002\205\002\205\002\205\002\205\000\000\000\000\002\205\002\205\r\194\000\000\000\000\000\000\000\000\002\205\002\205\002\205\002\205\002\201\002\201\000\000\000\000\000\000\002\201\000\000\000\000\002\201\000\000\000\000\002\201\000\000\002\201\000\000\000\000\r\230\000\000\002\201\002\201\002\201\000\000\002\201\002\201\002\201\000\000\000\000\000\000\000\000\000\000\002\201\002\201\002\201\014f\002\201\000\000\002\201\000\000\000\000\000\000\000\000\000\000\002\201\002\201\002\201\002\201\002\201\000\000\000\000\002\201\000\000\000\000\000\000\000\000\002\201\000\000\002\201\002\201\000\000\000\000\000\000\000\000\002\201\002\201\002\201\000\000\000\000\000\000\000\000\000\000\000\000\002\201\002\201\r\254\014~\002\201\002\201\002\201\002\201\002\201\000\000\000\000\002\201\000\000\002\201\002\201\000\000\000\000\000\000\000\000\000\000\000\000\002\201\002\201\002\201\000\000\002\201\002\201\002\201\000\000\002\201\000\000\000\000\000\000\002\201\000\000\002\201\002\201\000\000\002\201\002\201\002\201\002\201\002\201\002\201\000\000\000\000\002\201\002\201\002\201\000\000\000\000\000\000\000\000\002\201\002\201\002\201\002\201\002\245\002\245\000\000\000\000\000\000\002\245\000\000\000\000\002\245\000\000\000\000\002\245\000\000\002\245\000\000\000\000\002\245\000\000\002\245\002\245\002\245\000\000\002\245\002\245\002\245\000\000\000\000\000\000\000\000\000\000\002\245\002\245\002\245\002\245\002\245\000\000\002\245\000\000\000\000\000\000\000\000\000\000\002\245\002\245\002\245\002\245\002\245\000\000\000\000\002\245\000\000\000\000\000\000\000\000\002\245\000\000\002\245\002\245\000\000\000\000\000\000\000\000\002\245\002\245\002\245\000\000\000\000\000\000\000\000\000\000\000\000\002\245\002\245\002\245\002\245\002\245\002\245\002\245\002\245\002\245\000\000\000\000\002\245\000\000\002\245\002\245\000\000\000\000\000\000\000\000\000\000\000\000\002\245\002\245\002\245\000\000\002\245\002\245\002\245\000\000\002\245\000\000\000\000\000\000\002\245\000\000\002\245\002\245\000\000\012\182\002\245\002\245\002\245\002\245\002\245\000\000\000\000\002\245\002\245\r\194\000\000\000\000\000\000\000\000\002\245\002\245\002\245\002\245\002\241\002\241\000\000\000\000\000\000\002\241\000\000\000\000\002\241\000\000\000\000\002\241\000\000\002\241\000\000\000\000\r\230\000\000\002\241\002\241\002\241\000\000\002\241\002\241\002\241\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\002\241\000\000\002\241\000\000\000\000\000\000\000\000\000\000\002\241\002\241\014\222\014\246\002\241\000\000\000\000\002\241\000\000\000\000\000\000\000\000\002\241\000\000\002\241\002\241\000\000\000\000\000\000\000\000\002\241\002\241\000\242\000\000\000\000\000\000\000\000\000\000\000\000\002\241\002\241\r\254\014~\015&\015>\002\241\002\241\002\241\000\000\000\000\002\241\000\000\002\241\002\241\000\000\000\000\000\000\000\000\000\000\000\000\002\241\002\241\002\241\000\000\002\241\002\241\002\241\000\000\002\241\000\000\000\000\000\000\002\241\000\000\002\241\002\241\000\000\002\241\002\241\002\241\015V\002\241\002\241\000\000\000\000\002\241\002\241\002\241\000\000\000\000\000\000\000\000\002\241\002\241\002\241\002\241\002\157\002\157\000\000\000\000\000\000\002\157\000\000\000\000\002\157\000\000\000\000\002\157\000\000\002\157\000\000\000\000\002\157\000\000\002\157\002\157\002\157\000\000\002\157\002\157\002\157\000\000\000\000\000\000\000\000\000\000\002\157\002\157\002\157\002\157\002\157\000\000\002\157\000\000\000\000\000\000\000\000\000\000\002\157\002\157\002\157\002\157\002\157\000\000\000\000\002\157\000\000\000\000\000\000\000\000\002\157\000\000\002\157\002\157\000\000\000\000\000\000\000\000\002\157\002\157\002\157\000\000\000\000\000\000\000\000\000\000\000\000\002\157\002\157\002\157\002\157\002\157\002\157\002\157\002\157\002\157\000\000\000\000\002\157\000\000\002\157\002\157\000\000\000\000\000\000\000\000\000\000\000\000\002\157\002\157\002\157\000\000\002\157\002\157\002\157\000\000\002\157\000\000\000\000\000\000\002\157\000\000\002\157\002\157\000\000\012\182\002\157\002\157\002\157\002\157\002\157\000\000\000\000\002\157\002\157\r\194\000\000\000\000\000\000\000\000\002\157\002\157\002\157\002\157\002\153\002\153\000\000\000\000\000\000\002\153\000\000\000\000\002\153\000\000\000\000\002\153\000\000\002\153\000\000\000\000\r\230\000\000\002\153\002\153\002\153\000\000\002\153\002\153\002\153\000\000\000\000\000\000\000\000\000\000\002\153\002\153\002\153\014f\002\153\000\000\002\153\000\000\000\000\000\000\000\000\000\000\002\153\002\153\002\153\002\153\002\153\000\000\000\000\002\153\000\000\000\000\000\000\000\000\002\153\000\000\002\153\002\153\000\000\000\000\000\000\000\000\002\153\002\153\002\153\000\000\000\000\000\000\000\000\000\000\000\000\002\153\002\153\r\254\014~\002\153\002\153\002\153\002\153\002\153\000\000\000\000\002\153\000\000\002\153\002\153\000\000\000\000\000\000\000\000\000\000\000\000\002\153\002\153\002\153\000\000\002\153\002\153\002\153\000\000\002\153\000\000\000\000\000\000\002\153\000\000\002\153\002\153\000\000\002\153\002\153\002\153\002\153\002\153\002\153\000\000\000\000\002\153\002\153\002\153\000\000\000\000\000\000\000\000\002\153\002\153\002\153\002\153\002\149\002\149\000\000\000\000\000\000\002\149\000\000\000\000\002\149\000\000\000\000\002\149\000\000\002\149\000\000\000\000\002\149\000\000\002\149\002\149\002\149\000\000\002\149\002\149\002\149\000\000\000\000\000\000\000\000\000\000\002\149\002\149\002\149\002\149\002\149\000\000\002\149\000\000\000\000\000\000\000\000\000\000\002\149\002\149\002\149\002\149\002\149\000\000\000\000\002\149\000\000\000\000\000\000\000\000\002\149\000\000\002\149\002\149\000\000\000\000\000\000\000\000\002\149\002\149\002\149\000\000\000\000\000\000\000\000\000\000\000\000\002\149\002\149\002\149\002\149\002\149\002\149\002\149\002\149\002\149\000\000\000\000\002\149\000\000\002\149\002\149\000\000\000\000\000\000\000\000\000\000\000\000\002\149\002\149\002\149\000\000\002\149\002\149\002\149\000\000\002\149\000\000\000\000\000\000\002\149\000\000\002\149\002\149\000\000\012\182\002\149\002\149\002\149\002\149\002\149\000\000\000\000\002\149\002\149\r\194\000\000\000\000\000\000\000\000\002\149\002\149\002\149\002\149\002\145\002\145\000\000\000\000\000\000\002\145\000\000\000\000\002\145\000\000\000\000\002\145\000\000\002\145\000\000\000\000\r\230\000\000\002\145\002\145\002\145\000\000\002\145\002\145\002\145\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\002\145\000\000\002\145\000\000\000\000\000\000\000\000\000\000\002\145\002\145\014\222\014\246\002\145\000\000\000\000\002\145\000\000\000\000\000\000\000\000\002\145\000\000\002\145\002\145\000\000\000\000\000\000\000\000\002\145\002\145\000\242\000\000\000\000\000\000\000\000\000\000\000\000\002\145\002\145\r\254\014~\015&\015>\002\145\002\145\002\145\000\000\000\000\002\145\000\000\002\145\002\145\000\000\000\000\000\000\000\000\000\000\000\000\002\145\002\145\002\145\000\000\002\145\002\145\002\145\000\000\002\145\000\000\000\000\000\000\002\145\000\000\002\145\002\145\000\000\002\145\002\145\002\145\015V\002\145\002\145\000\000\000\000\002\145\002\145\002\145\000\000\000\000\000\000\000\000\002\145\002\145\002\145\002\145\003E\003E\000\000\000\000\000\000\003E\000\000\000\000\003E\000\000\000\000\003E\000\000\003E\000\000\000\000\003E\000\000\003E\003E\003E\000\000\003E\003E\003E\000\000\000\000\000\000\000\000\000\000\003E\003E\003E\003E\003E\000\000\003E\000\000\000\000\000\000\000\000\000\000\003E\003E\003E\003E\003E\000\000\000\000\003E\000\000\000\000\000\000\000\000\003E\000\000\003E\003E\000\000\000\000\000\000\000\000\003E\003E\003E\000\000\000\000\000\000\000\000\000\000\000\000\003E\003E\003E\003E\003E\003E\003E\003E\003E\000\000\000\000\003E\000\000\003E\003E\000\000\000\000\000\000\000\000\000\000\000\000\003E\003E\003E\000\000\003E\003E\003E\000\000\003E\000\000\000\000\000\000\003E\000\000\003E\003E\000\000\012\182\003E\003E\003E\003E\003E\000\000\000\000\003E\003E\r\194\000\000\000\000\000\000\000\000\003E\003E\003E\003E\003A\003A\000\000\000\000\000\000\003A\000\000\000\000\003A\000\000\000\000\003A\000\000\003A\000\000\000\000\r\230\000\000\003A\003A\003A\000\000\003A\003A\003A\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\003A\000\000\003A\000\000\000\000\000\000\000\000\000\000\003A\003A\014\222\014\246\003A\000\000\000\000\003A\000\000\000\000\000\000\000\000\003A\000\000\003A\003A\000\000\000\000\000\000\000\000\003A\003A\003A\000\000\000\000\000\000\000\000\000\000\000\000\003A\003A\r\254\014~\015&\003A\003A\003A\003A\000\000\000\000\003A\000\000\003A\003A\000\000\000\000\000\000\000\000\000\000\000\000\003A\003A\003A\000\000\003A\003A\003A\000\000\003A\000\000\000\000\000\000\003A\000\000\003A\003A\000\000\003A\003A\003A\015V\003A\003A\000\000\000\000\003A\003A\003A\000\000\000\000\000\000\000\000\003A\003A\003A\003A\002\141\002\141\000\000\000\000\000\000\002\141\000\000\000\000\002\141\000\000\000\000\002\141\000\000\002\141\000\000\000\000\002\141\000\000\002\141\002\141\002\141\000\000\002\141\002\141\002\141\000\000\000\000\000\000\000\000\000\000\002\141\002\141\002\141\002\141\002\141\000\000\002\141\000\000\000\000\000\000\000\000\000\000\002\141\002\141\002\141\002\141\002\141\000\000\000\000\002\141\000\000\000\000\000\000\000\000\002\141\000\000\002\141\002\141\000\000\000\000\000\000\000\000\002\141\002\141\002\141\000\000\000\000\000\000\000\000\000\000\000\000\002\141\002\141\002\141\002\141\002\141\002\141\002\141\002\141\002\141\000\000\000\000\002\141\000\000\002\141\002\141\000\000\000\000\000\000\000\000\000\000\000\000\002\141\002\141\002\141\000\000\002\141\002\141\002\141\000\000\002\141\000\000\000\000\000\000\002\141\000\000\002\141\002\141\000\000\012\182\002\141\002\141\002\141\002\141\002\141\000\000\000\000\002\141\002\141\r\194\000\000\000\000\000\000\000\000\002\141\002\141\002\141\002\141\002\137\002\137\000\000\000\000\000\000\002\137\000\000\000\000\002\137\000\000\000\000\002\137\000\000\002\137\000\000\000\000\r\230\000\000\002\137\002\137\002\137\000\000\002\137\002\137\002\137\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\002\137\000\000\002\137\000\000\000\000\000\000\000\000\000\000\002\137\002\137\014\222\014\246\002\137\000\000\000\000\002\137\000\000\000\000\000\000\000\000\002\137\000\000\002\137\002\137\000\000\000\000\000\000\000\000\002\137\002\137\000\242\000\000\000\000\000\000\000\000\000\000\000\000\002\137\002\137\r\254\014~\015&\015>\002\137\002\137\002\137\000\000\000\000\002\137\000\000\002\137\002\137\000\000\000\000\000\000\000\000\000\000\000\000\002\137\002\137\002\137\000\000\002\137\002\137\002\137\000\000\002\137\000\000\000\000\000\000\002\137\000\000\002\137\002\137\000\000\002\137\002\137\002\137\015V\002\137\002\137\000\000\000\000\002\137\002\137\002\137\000\000\000\000\000\000\000\000\002\137\002\137\002\137\002\137\002\253\002\253\000\000\000\000\000\000\002\253\000\000\000\000\002\253\000\000\000\000\002\253\000\000\002\253\000\000\000\000\002\253\000\000\002\253\002\253\002\253\000\000\002\253\002\253\002\253\000\000\000\000\000\000\000\000\000\000\002\253\002\253\002\253\002\253\002\253\000\000\002\253\000\000\000\000\000\000\000\000\000\000\002\253\002\253\002\253\002\253\002\253\000\000\000\000\002\253\000\000\000\000\000\000\000\000\002\253\000\000\002\253\002\253\000\000\000\000\000\000\000\000\002\253\002\253\002\253\000\000\000\000\000\000\000\000\000\000\000\000\002\253\002\253\002\253\002\253\002\253\002\253\002\253\002\253\002\253\000\000\000\000\002\253\000\000\002\253\002\253\000\000\000\000\000\000\000\000\000\000\000\000\002\253\002\253\002\253\000\000\002\253\002\253\002\253\000\000\002\253\000\000\000\000\000\000\002\253\000\000\002\253\002\253\000\000\012\182\002\253\002\253\002\253\002\253\002\253\000\000\000\000\002\253\002\253\r\194\000\000\000\000\000\000\000\000\002\253\002\253\002\253\002\253\002\249\002\249\000\000\000\000\000\000\002\249\000\000\000\000\002\249\000\000\000\000\002\249\000\000\002\249\000\000\000\000\r\230\000\000\002\249\002\249\002\249\000\000\002\249\002\249\002\249\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\002\249\000\000\002\249\000\000\000\000\000\000\000\000\000\000\002\249\002\249\014\222\014\246\002\249\000\000\000\000\002\249\000\000\000\000\000\000\000\000\002\249\000\000\002\249\002\249\000\000\000\000\000\000\000\000\002\249\002\249\000\242\000\000\000\000\000\000\000\000\000\000\000\000\002\249\002\249\r\254\014~\015&\015>\002\249\002\249\002\249\000\000\000\000\002\249\000\000\002\249\002\249\000\000\000\000\000\000\000\000\000\000\000\000\002\249\002\249\002\249\000\000\002\249\002\249\002\249\000\000\002\249\000\000\000\000\000\000\002\249\000\000\002\249\002\249\000\000\002\249\002\249\002\249\015V\002\249\002\249\000\000\000\000\002\249\002\249\002\249\000\000\000\000\000\000\000\000\002\249\002\249\002\249\002\249\002\237\002\237\000\000\000\000\000\000\002\237\000\000\000\000\002\237\000\000\000\000\002\237\000\000\002\237\000\000\000\000\002\237\000\000\002\237\002\237\002\237\000\000\002\237\002\237\002\237\000\000\000\000\000\000\000\000\000\000\002\237\002\237\002\237\002\237\002\237\000\000\002\237\000\000\000\000\000\000\000\000\000\000\002\237\002\237\002\237\002\237\002\237\000\000\000\000\002\237\000\000\000\000\000\000\000\000\002\237\000\000\002\237\002\237\000\000\000\000\000\000\000\000\002\237\002\237\002\237\000\000\000\000\000\000\000\000\000\000\000\000\002\237\002\237\002\237\002\237\002\237\002\237\002\237\002\237\002\237\000\000\000\000\002\237\000\000\002\237\002\237\000\000\000\000\000\000\000\000\000\000\000\000\002\237\002\237\002\237\000\000\002\237\002\237\002\237\000\000\002\237\000\000\000\000\000\000\002\237\000\000\002\237\002\237\000\000\012\182\002\237\002\237\002\237\002\237\002\237\000\000\000\000\002\237\002\237\r\194\000\000\000\000\000\000\000\000\002\237\002\237\002\237\002\237\002\233\002\233\000\000\000\000\000\000\002\233\000\000\000\000\002\233\000\000\000\000\002\233\000\000\002\233\000\000\000\000\r\230\000\000\002\233\002\233\002\233\000\000\002\233\002\233\002\233\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\002\233\000\000\002\233\000\000\000\000\000\000\000\000\000\000\002\233\002\233\014\222\014\246\002\233\000\000\000\000\002\233\000\000\000\000\000\000\000\000\002\233\000\000\002\233\002\233\000\000\000\000\000\000\000\000\002\233\002\233\000\242\000\000\000\000\000\000\000\000\000\000\000\000\002\233\002\233\r\254\014~\015&\015>\002\233\002\233\002\233\000\000\000\000\002\233\000\000\002\233\002\233\000\000\000\000\000\000\000\000\000\000\000\000\002\233\002\233\002\233\000\000\002\233\002\233\002\233\000\000\002\233\000\000\000\000\000\000\002\233\000\000\002\233\002\233\000\000\002\233\002\233\002\233\015V\002\233\002\233\000\000\000\000\002\233\002\233\002\233\000\000\000\000\000\000\000\000\002\233\002\233\002\233\002\233\003\r\003\r\000\000\000\000\000\000\003\r\000\000\000\000\003\r\000\000\000\000\003\r\000\000\003\r\000\000\000\000\003\r\000\000\003\r\003\r\003\r\000\000\003\r\003\r\003\r\000\000\000\000\000\000\000\000\000\000\003\r\003\r\003\r\003\r\003\r\000\000\003\r\000\000\000\000\000\000\000\000\000\000\003\r\003\r\003\r\003\r\003\r\000\000\000\000\003\r\000\000\000\000\000\000\000\000\003\r\000\000\003\r\003\r\000\000\000\000\000\000\000\000\003\r\003\r\003\r\000\000\000\000\000\000\000\000\000\000\000\000\003\r\003\r\003\r\003\r\003\r\003\r\003\r\003\r\003\r\000\000\000\000\003\r\000\000\003\r\003\r\000\000\000\000\000\000\000\000\000\000\000\000\003\r\003\r\003\r\000\000\003\r\003\r\003\r\000\000\003\r\000\000\000\000\000\000\003\r\000\000\003\r\003\r\000\000\012\182\003\r\003\r\003\r\003\r\003\r\000\000\000\000\003\r\003\r\r\194\000\000\000\000\000\000\000\000\003\r\003\r\003\r\003\r\003\t\003\t\000\000\000\000\000\000\003\t\000\000\000\000\003\t\000\000\000\000\003\t\000\000\003\t\000\000\000\000\r\230\000\000\003\t\003\t\003\t\000\000\003\t\003\t\003\t\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\014\198\000\000\003\t\000\000\000\000\000\000\000\000\000\000\003\t\003\t\014\222\014\246\003\t\000\000\000\000\003\t\000\000\000\000\000\000\000\000\003\t\000\000\015\014\003\t\000\000\000\000\000\000\000\000\003\t\003\t\000\242\000\000\000\000\000\000\000\000\000\000\000\000\003\t\003\t\r\254\014~\015&\015>\015n\003\t\003\t\000\000\000\000\003\t\000\000\003\t\015\134\000\000\000\000\000\000\000\000\000\000\000\000\003\t\003\t\015\158\000\000\003\t\003\t\003\t\000\000\003\t\000\000\000\000\000\000\003\t\000\000\003\t\003\t\000\000\003\t\003\t\003\t\015V\003\t\003\t\000\000\000\000\003\t\015\182\003\t\000\000\000\000\000\000\000\000\003\t\003\t\015\206\015\230\003\021\003\021\000\000\000\000\000\000\003\021\000\000\000\000\003\021\000\000\000\000\003\021\000\000\003\021\000\000\000\000\003\021\000\000\003\021\003\021\003\021\000\000\003\021\003\021\003\021\000\000\000\000\000\000\000\000\000\000\003\021\003\021\003\021\003\021\003\021\000\000\003\021\000\000\000\000\000\000\000\000\000\000\003\021\003\021\003\021\003\021\003\021\000\000\000\000\003\021\000\000\000\000\000\000\000\000\003\021\000\000\003\021\003\021\000\000\000\000\000\000\000\000\003\021\003\021\003\021\000\000\000\000\000\000\000\000\000\000\000\000\003\021\003\021\003\021\003\021\003\021\003\021\003\021\003\021\003\021\000\000\000\000\003\021\000\000\003\021\003\021\000\000\000\000\000\000\000\000\000\000\000\000\003\021\003\021\003\021\000\000\003\021\003\021\003\021\000\000\003\021\000\000\000\000\000\000\003\021\000\000\003\021\003\021\000\000\012\182\003\021\003\021\003\021\003\021\003\021\000\000\000\000\003\021\003\021\r\194\000\000\000\000\000\000\000\000\003\021\003\021\003\021\003\021\003\017\003\017\000\000\000\000\000\000\003\017\000\000\000\000\003\017\000\000\000\000\003\017\000\000\003\017\000\000\000\000\r\230\000\000\003\017\003\017\003\017\000\000\003\017\003\017\003\017\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\003\017\000\000\003\017\000\000\000\000\000\000\000\000\000\000\003\017\003\017\014\222\014\246\003\017\000\000\000\000\003\017\000\000\000\000\000\000\000\000\003\017\000\000\015\014\003\017\000\000\000\000\000\000\000\000\003\017\003\017\000\242\000\000\000\000\000\000\000\000\000\000\000\000\003\017\003\017\r\254\014~\015&\015>\015n\003\017\003\017\000\000\000\000\003\017\000\000\003\017\015\134\000\000\000\000\000\000\000\000\000\000\000\000\003\017\003\017\015\158\000\000\003\017\003\017\003\017\000\000\003\017\000\000\000\000\000\000\003\017\000\000\003\017\003\017\000\000\003\017\003\017\003\017\015V\003\017\003\017\000\000\000\000\003\017\003\017\003\017\000\000\000\000\000\000\000\000\003\017\003\017\015\206\015\230\003\029\003\029\000\000\000\000\000\000\003\029\000\000\000\000\003\029\000\000\000\000\003\029\000\000\003\029\000\000\000\000\003\029\000\000\003\029\003\029\003\029\000\000\003\029\003\029\003\029\000\000\000\000\000\000\000\000\000\000\003\029\003\029\003\029\003\029\003\029\000\000\003\029\000\000\000\000\000\000\000\000\000\000\003\029\003\029\003\029\003\029\003\029\000\000\000\000\003\029\000\000\000\000\000\000\000\000\003\029\000\000\003\029\003\029\000\000\000\000\000\000\000\000\003\029\003\029\003\029\000\000\000\000\000\000\000\000\000\000\000\000\003\029\003\029\003\029\003\029\003\029\003\029\003\029\003\029\003\029\000\000\000\000\003\029\000\000\003\029\003\029\000\000\000\000\000\000\000\000\000\000\000\000\003\029\003\029\003\029\000\000\003\029\003\029\003\029\000\000\003\029\000\000\000\000\000\000\003\029\000\000\003\029\003\029\000\000\012\182\003\029\003\029\003\029\003\029\003\029\000\000\000\000\003\029\003\029\r\194\000\000\000\000\000\000\000\000\003\029\003\029\003\029\003\029\003\025\003\025\000\000\000\000\000\000\003\025\000\000\000\000\003\025\000\000\000\000\003\025\000\000\003\025\000\000\000\000\r\230\000\000\003\025\003\025\003\025\000\000\003\025\003\025\003\025\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\003\025\000\000\003\025\000\000\000\000\000\000\000\000\000\000\003\025\003\025\014\222\014\246\003\025\000\000\000\000\003\025\000\000\000\000\000\000\000\000\003\025\000\000\015\014\003\025\000\000\000\000\000\000\000\000\003\025\003\025\000\242\000\000\000\000\000\000\000\000\000\000\000\000\003\025\003\025\r\254\014~\015&\015>\015n\003\025\003\025\000\000\000\000\003\025\000\000\003\025\015\134\000\000\000\000\000\000\000\000\000\000\000\000\003\025\003\025\015\158\000\000\003\025\003\025\003\025\000\000\003\025\000\000\000\000\000\000\003\025\000\000\003\025\003\025\000\000\003\025\003\025\003\025\015V\003\025\003\025\000\000\000\000\003\025\003\025\003\025\000\000\000\000\000\000\000\000\003\025\003\025\015\206\015\230\nQ\nQ\000\000\000\000\000\000\nQ\000\000\000\000\nQ\000\000\000\000\nQ\000\000\nQ\000\000\000\000\nQ\000\000\nQ\nQ\nQ\000\000\nQ\nQ\nQ\000\000\000\000\000\000\000\000\000\000\nQ\nQ\nQ\nQ\nQ\000\000\nQ\000\000\000\000\000\000\000\000\000\000\nQ\nQ\nQ\nQ\nQ\000\000\000\000\nQ\000\000\000\000\000\000\000\000\nQ\000\000\nQ\nQ\000\000\000\000\000\000\000\000\nQ\nQ\nQ\000\000\000\000\000\000\000\000\000\000\000\000\nQ\nQ\nQ\nQ\nQ\nQ\nQ\nQ\nQ\000\000\000\000\nQ\000\000\nQ\nQ\000\000\000\000\000\000\000\000\000\000\000\000\nQ\nQ\nQ\000\000\nQ\nQ\nQ\000\000\nQ\000\000\000\000\000\000\nQ\000\000\nQ\nQ\000\000\012\182\nQ\nQ\nQ\nQ\nQ\000\000\000\000\nQ\nQ\r\194\000\000\000\000\000\000\000\000\nQ\nQ\nQ\nQ\nM\nM\000\000\000\000\000\000\nM\000\000\000\000\nM\000\000\000\000\nM\000\000\nM\000\000\000\000\r\230\000\000\nM\nM\nM\000\000\nM\nM\nM\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\014\198\000\000\nM\000\000\000\000\000\000\000\000\000\000\nM\nM\014\222\014\246\nM\000\000\000\000\nM\000\000\000\000\000\000\000\000\nM\000\000\015\014\nM\000\000\000\000\000\000\000\000\nM\nM\000\242\000\000\000\000\000\000\000\000\000\000\000\000\nM\nM\r\254\014~\015&\015>\015n\nM\nM\000\000\000\000\nM\000\000\nM\015\134\000\000\000\000\000\000\000\000\000\000\000\000\nM\nM\015\158\000\000\nM\nM\nM\000\000\nM\000\000\000\000\000\000\nM\000\000\nM\nM\000\000\nM\nM\nM\015V\nM\nM\000\000\000\000\nM\015\182\nM\000\000\000\000\000\000\000\000\nM\nM\015\206\015\230\003%\003%\000\000\000\000\000\000\003%\000\000\000\000\003%\000\000\000\000\003%\000\000\003%\000\000\000\000\003%\000\000\003%\003%\003%\000\000\003%\003%\003%\000\000\000\000\000\000\000\000\000\000\003%\003%\003%\003%\003%\000\000\003%\000\000\000\000\000\000\000\000\000\000\003%\003%\003%\003%\003%\000\000\000\000\003%\000\000\000\000\000\000\000\000\003%\000\000\003%\003%\000\000\000\000\000\000\000\000\003%\003%\003%\000\000\000\000\000\000\000\000\000\000\000\000\003%\003%\003%\003%\003%\003%\003%\003%\003%\000\000\000\000\003%\000\000\003%\003%\000\000\000\000\000\000\000\000\000\000\000\000\003%\003%\003%\000\000\003%\003%\003%\000\000\003%\000\000\000\000\000\000\003%\000\000\003%\003%\000\000\012\182\003%\003%\003%\003%\003%\000\000\000\000\003%\003%\r\194\000\000\000\000\000\000\000\000\003%\003%\003%\003%\003!\003!\000\000\000\000\000\000\003!\000\000\000\000\003!\000\000\000\000\003!\000\000\003!\000\000\000\000\r\230\000\000\003!\003!\003!\000\000\003!\003!\003!\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\014\198\000\000\003!\000\000\000\000\000\000\000\000\000\000\003!\003!\014\222\014\246\003!\000\000\000\000\003!\000\000\000\000\000\000\000\000\003!\000\000\015\014\003!\000\000\000\000\000\000\000\000\003!\003!\000\242\000\000\000\000\000\000\000\000\000\000\000\000\003!\003!\r\254\014~\015&\015>\015n\003!\003!\000\000\000\000\003!\000\000\003!\015\134\000\000\000\000\000\000\000\000\000\000\000\000\003!\003!\015\158\000\000\003!\003!\003!\000\000\003!\000\000\000\000\000\000\003!\000\000\003!\003!\000\000\015\254\003!\0166\015V\003!\003!\000\000\000\000\003!\015\182\003!\000\000\000\000\000\000\000\000\003!\003!\015\206\015\230\n9\n9\000\000\000\000\000\000\n9\000\000\000\000\n9\000\000\000\000\n9\000\000\n9\000\000\000\000\r\230\000\000\n9\n9\n9\000\000\n9\n9\n9\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\014\198\000\000\n9\000\000\000\000\000\000\000\000\000\000\n9\n9\014\222\014\246\n9\000\000\000\000\n9\000\000\000\000\000\000\000\000\n9\000\000\015\014\n9\000\000\000\000\000\000\000\000\n9\n9\000\242\000\000\000\000\000\000\000\000\000\000\000\000\n9\n9\r\254\014~\015&\015>\015n\n9\n9\000\000\000\000\n9\000\000\n9\015\134\000\000\000\000\000\000\000\000\000\000\000\000\n9\n9\015\158\000\000\n9\n9\n9\000\000\n9\000\000\000\000\000\000\n9\000\000\n9\n9\000\000\n9\n9\n9\015V\n9\n9\000\000\000\000\n9\015\182\n9\000\000\000\000\000\000\000\000\n9\n9\015\206\015\230\003u\003u\000\000\000\000\000\000\003u\000\000\000\000\003u\000\000\000\000\003u\000\000\003u\000\000\000\000\003u\000\000\003u\003u\003u\000\000\003u\003u\003u\000\000\000\000\000\000\000\000\000\000\003u\003u\003u\003u\003u\000\000\003u\000\000\000\000\000\000\000\000\000\000\003u\003u\003u\003u\003u\000\000\000\000\003u\000\000\000\000\000\000\000\000\003u\000\000\003u\003u\000\000\000\000\000\000\000\000\003u\003u\003u\000\000\000\000\000\000\000\000\000\000\000\000\003u\003u\003u\003u\003u\003u\003u\003u\003u\000\000\000\000\003u\000\000\003u\003u\000\000\000\000\000\000\000\000\000\000\000\000\003u\003u\003u\000\000\003u\003u\003u\000\000\003u\000\000\000\000\000\000\003u\000\000\003u\003u\000\000\012\182\003u\003u\003u\003u\003u\000\000\000\000\003u\003u\r\194\000\000\000\000\000\000\000\000\003u\003u\003u\003u\003q\003q\000\000\000\000\000\000\003q\000\000\000\000\003q\000\000\000\000\003q\000\000\003q\000\000\000\000\r\230\000\000\003q\003q\003q\000\000\003q\003q\003q\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\014\198\000\000\003q\000\000\000\000\000\000\000\000\000\000\003q\003q\014\222\014\246\003q\000\000\000\000\003q\000\000\000\000\000\000\000\000\003q\000\000\015\014\003q\000\000\000\000\000\000\000\000\003q\003q\000\242\000\000\000\000\000\000\000\000\000\000\000\000\003q\003q\r\254\014~\015&\015>\015n\003q\003q\000\000\000\000\003q\000\000\003q\015\134\000\000\000\000\000\000\000\000\000\000\000\000\003q\003q\015\158\000\000\003q\003q\003q\000\000\003q\000\000\000\000\000\000\003q\000\000\003q\003q\000\000\015\254\003q\0166\015V\003q\003q\000\000\000\000\003q\015\182\003q\000\000\000\000\000\000\000\000\003q\003q\015\206\015\230\003\149\003\149\000\000\000\000\000\000\003\149\000\000\000\000\003\149\000\000\000\000\003\149\000\000\003\149\000\000\000\000\003\149\000\000\003\149\003\149\003\149\000\000\003\149\003\149\003\149\000\000\000\000\000\000\000\000\000\000\003\149\003\149\003\149\003\149\003\149\000\000\003\149\000\000\000\000\000\000\000\000\000\000\003\149\003\149\003\149\003\149\003\149\000\000\000\000\003\149\000\000\000\000\000\000\000\000\003\149\000\000\003\149\003\149\000\000\000\000\000\000\000\000\003\149\003\149\003\149\000\000\000\000\000\000\000\000\000\000\000\000\003\149\003\149\003\149\003\149\003\149\003\149\003\149\003\149\003\149\000\000\000\000\003\149\000\000\003\149\003\149\000\000\000\000\000\000\000\000\000\000\000\000\003\149\003\149\003\149\000\000\003\149\003\149\003\149\000\000\003\149\000\000\000\000\000\000\003\149\000\000\003\149\003\149\000\000\012\182\003\149\003\149\003\149\003\149\003\149\000\000\000\000\003\149\003\149\r\194\000\000\000\000\000\000\000\000\003\149\003\149\003\149\003\149\003\145\003\145\000\000\000\000\000\000\003\145\000\000\000\000\003\145\000\000\000\000\003\145\000\000\003\145\000\000\000\000\r\230\000\000\003\145\003\145\003\145\000\000\003\145\003\145\003\145\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\014\198\000\000\003\145\000\000\000\000\000\000\000\000\000\000\003\145\003\145\014\222\014\246\003\145\000\000\000\000\003\145\000\000\000\000\000\000\000\000\003\145\000\000\015\014\003\145\000\000\000\000\000\000\000\000\003\145\003\145\000\242\000\000\000\000\000\000\000\000\000\000\000\000\003\145\003\145\r\254\014~\015&\015>\015n\003\145\003\145\000\000\000\000\003\145\000\000\003\145\015\134\000\000\000\000\000\000\000\000\000\000\000\000\003\145\003\145\015\158\000\000\003\145\003\145\003\145\000\000\003\145\000\000\000\000\000\000\003\145\000\000\003\145\003\145\000\000\015\254\003\145\0166\015V\003\145\003\145\000\000\000\000\003\145\015\182\003\145\000\000\000\000\000\000\000\000\003\145\003\145\015\206\015\230\003\133\003\133\000\000\000\000\000\000\003\133\000\000\000\000\003\133\000\000\000\000\003\133\000\000\003\133\000\000\000\000\003\133\000\000\003\133\003\133\003\133\000\000\003\133\003\133\003\133\000\000\000\000\000\000\000\000\000\000\003\133\003\133\003\133\003\133\003\133\000\000\003\133\000\000\000\000\000\000\000\000\000\000\003\133\003\133\003\133\003\133\003\133\000\000\000\000\003\133\000\000\000\000\000\000\000\000\003\133\000\000\003\133\003\133\000\000\000\000\000\000\000\000\003\133\003\133\003\133\000\000\000\000\000\000\000\000\000\000\000\000\003\133\003\133\003\133\003\133\003\133\003\133\003\133\003\133\003\133\000\000\000\000\003\133\000\000\003\133\003\133\000\000\000\000\000\000\000\000\000\000\000\000\003\133\003\133\003\133\000\000\003\133\003\133\003\133\000\000\003\133\000\000\000\000\000\000\003\133\000\000\003\133\003\133\000\000\012\182\003\133\003\133\003\133\003\133\003\133\000\000\000\000\003\133\003\133\r\194\000\000\000\000\000\000\000\000\003\133\003\133\003\133\003\133\003\129\003\129\000\000\000\000\000\000\003\129\000\000\000\000\003\129\000\000\000\000\003\129\000\000\003\129\000\000\000\000\r\230\000\000\003\129\003\129\003\129\000\000\003\129\003\129\003\129\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\014\198\000\000\003\129\000\000\000\000\000\000\000\000\000\000\003\129\003\129\014\222\014\246\003\129\000\000\000\000\003\129\000\000\000\000\000\000\000\000\003\129\000\000\015\014\003\129\000\000\000\000\000\000\000\000\003\129\003\129\000\242\000\000\000\000\000\000\000\000\000\000\000\000\003\129\003\129\r\254\014~\015&\015>\015n\003\129\003\129\000\000\000\000\003\129\000\000\003\129\015\134\000\000\000\000\000\000\000\000\000\000\000\000\003\129\003\129\015\158\000\000\003\129\003\129\003\129\000\000\003\129\000\000\000\000\000\000\003\129\000\000\003\129\003\129\000\000\015\254\003\129\0166\015V\003\129\003\129\000\000\000\000\003\129\015\182\003\129\000\000\000\000\000\000\000\000\003\129\003\129\015\206\015\230\003]\003]\000\000\000\000\000\000\003]\000\000\000\000\003]\000\000\000\000\003]\000\000\003]\000\000\000\000\003]\000\000\003]\003]\003]\000\000\003]\003]\003]\000\000\000\000\000\000\000\000\000\000\003]\003]\003]\003]\003]\000\000\003]\000\000\000\000\000\000\000\000\000\000\003]\003]\003]\003]\003]\000\000\000\000\003]\000\000\000\000\000\000\000\000\003]\000\000\003]\003]\000\000\000\000\000\000\000\000\003]\003]\003]\000\000\000\000\000\000\000\000\000\000\000\000\003]\003]\003]\003]\003]\003]\003]\003]\003]\000\000\000\000\003]\000\000\003]\003]\000\000\000\000\000\000\000\000\000\000\000\000\003]\003]\003]\000\000\003]\003]\003]\000\000\003]\000\000\000\000\000\000\003]\000\000\003]\003]\000\000\012\182\003]\003]\003]\003]\003]\000\000\000\000\003]\003]\r\194\000\000\000\000\000\000\000\000\003]\003]\003]\003]\003Y\003Y\000\000\000\000\000\000\003Y\000\000\000\000\003Y\000\000\000\000\003Y\000\000\003Y\000\000\000\000\r\230\000\000\003Y\003Y\003Y\000\000\003Y\003Y\003Y\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\014\198\000\000\003Y\000\000\000\000\000\000\000\000\000\000\003Y\003Y\014\222\014\246\003Y\000\000\000\000\003Y\000\000\000\000\000\000\000\000\003Y\000\000\015\014\003Y\000\000\000\000\000\000\000\000\003Y\003Y\000\242\000\000\000\000\000\000\000\000\000\000\000\000\003Y\003Y\r\254\014~\015&\015>\015n\003Y\003Y\000\000\000\000\003Y\000\000\003Y\015\134\000\000\000\000\000\000\000\000\000\000\000\000\003Y\003Y\015\158\000\000\003Y\003Y\003Y\000\000\003Y\000\000\000\000\000\000\003Y\000\000\003Y\003Y\000\000\015\254\003Y\0166\015V\003Y\003Y\000\000\000\000\003Y\015\182\003Y\000\000\000\000\000\000\000\000\003Y\003Y\015\206\015\230\003m\003m\000\000\000\000\000\000\003m\000\000\000\000\003m\000\000\000\000\003m\000\000\003m\000\000\000\000\003m\000\000\003m\003m\003m\000\000\003m\003m\003m\000\000\000\000\000\000\000\000\000\000\003m\003m\003m\003m\003m\000\000\003m\000\000\000\000\000\000\000\000\000\000\003m\003m\003m\003m\003m\000\000\000\000\003m\000\000\000\000\000\000\000\000\003m\000\000\003m\003m\000\000\000\000\000\000\000\000\003m\003m\003m\000\000\000\000\000\000\000\000\000\000\000\000\003m\003m\003m\003m\003m\003m\003m\003m\003m\000\000\000\000\003m\000\000\003m\003m\000\000\000\000\000\000\000\000\000\000\000\000\003m\003m\003m\000\000\003m\003m\003m\000\000\003m\000\000\000\000\000\000\003m\000\000\003m\003m\000\000\012\182\003m\003m\003m\003m\003m\000\000\000\000\003m\003m\r\194\000\000\000\000\000\000\000\000\003m\003m\003m\003m\003i\003i\000\000\000\000\000\000\003i\000\000\000\000\003i\000\000\000\000\003i\000\000\003i\000\000\000\000\r\230\000\000\003i\003i\003i\000\000\003i\003i\003i\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\014\198\000\000\003i\000\000\000\000\000\000\000\000\000\000\003i\003i\014\222\014\246\003i\000\000\000\000\003i\000\000\000\000\000\000\000\000\003i\000\000\015\014\003i\000\000\000\000\000\000\000\000\003i\003i\000\242\000\000\000\000\000\000\000\000\000\000\000\000\003i\003i\r\254\014~\015&\015>\015n\003i\003i\000\000\000\000\003i\000\000\003i\015\134\000\000\000\000\000\000\000\000\000\000\000\000\003i\003i\015\158\000\000\003i\003i\003i\000\000\003i\000\000\000\000\000\000\003i\000\000\003i\003i\000\000\015\254\003i\0166\015V\003i\003i\000\000\000\000\003i\015\182\003i\000\000\000\000\000\000\000\000\003i\003i\015\206\015\230\003e\003e\000\000\000\000\000\000\003e\000\000\000\000\003e\000\000\000\000\003e\000\000\003e\000\000\000\000\003e\000\000\003e\003e\003e\000\000\003e\003e\003e\000\000\000\000\000\000\000\000\000\000\003e\003e\003e\003e\003e\000\000\003e\000\000\000\000\000\000\000\000\000\000\003e\003e\003e\003e\003e\000\000\000\000\003e\000\000\000\000\000\000\000\000\003e\000\000\003e\003e\000\000\000\000\000\000\000\000\003e\003e\003e\000\000\000\000\000\000\000\000\000\000\000\000\003e\003e\003e\003e\003e\003e\003e\003e\003e\000\000\000\000\003e\000\000\003e\003e\000\000\000\000\000\000\000\000\000\000\000\000\003e\003e\003e\000\000\003e\003e\003e\000\000\003e\000\000\000\000\000\000\003e\000\000\003e\003e\000\000\012\182\003e\003e\003e\003e\003e\000\000\000\000\003e\003e\r\194\000\000\000\000\000\000\000\000\003e\003e\003e\003e\003a\003a\000\000\000\000\000\000\003a\000\000\000\000\003a\000\000\000\000\003a\000\000\003a\000\000\000\000\r\230\000\000\003a\003a\003a\000\000\003a\003a\003a\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\014\198\000\000\003a\000\000\000\000\000\000\000\000\000\000\003a\003a\014\222\014\246\003a\000\000\000\000\003a\000\000\000\000\000\000\000\000\003a\000\000\015\014\003a\000\000\000\000\000\000\000\000\003a\003a\000\242\000\000\000\000\000\000\000\000\000\000\000\000\003a\003a\r\254\014~\015&\015>\015n\003a\003a\000\000\000\000\003a\000\000\003a\015\134\000\000\000\000\000\000\000\000\000\000\000\000\003a\003a\015\158\000\000\003a\003a\003a\000\000\003a\000\000\000\000\000\000\003a\000\000\003a\003a\000\000\015\254\003a\0166\015V\003a\003a\000\000\000\000\003a\015\182\003a\000\000\000\000\000\000\000\000\003a\003a\015\206\015\230\003}\003}\000\000\000\000\000\000\003}\000\000\000\000\003}\000\000\000\000\003}\000\000\003}\000\000\000\000\003}\000\000\003}\003}\003}\000\000\003}\003}\003}\000\000\000\000\000\000\000\000\000\000\003}\003}\003}\003}\003}\000\000\003}\000\000\000\000\000\000\000\000\000\000\003}\003}\003}\003}\003}\000\000\000\000\003}\000\000\000\000\000\000\000\000\003}\000\000\003}\003}\000\000\000\000\000\000\000\000\003}\003}\003}\000\000\000\000\000\000\000\000\000\000\000\000\003}\003}\003}\003}\003}\003}\003}\003}\003}\000\000\000\000\003}\000\000\003}\003}\000\000\000\000\000\000\000\000\000\000\000\000\003}\003}\003}\000\000\003}\003}\003}\000\000\003}\000\000\000\000\000\000\003}\000\000\003}\003}\000\000\012\182\003}\003}\003}\003}\003}\000\000\000\000\003}\003}\r\194\000\000\000\000\000\000\000\000\003}\003}\003}\003}\003y\003y\000\000\000\000\000\000\003y\000\000\000\000\003y\000\000\000\000\003y\000\000\003y\000\000\000\000\r\230\000\000\003y\003y\003y\000\000\003y\003y\003y\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\014\198\000\000\003y\000\000\000\000\000\000\000\000\000\000\003y\003y\014\222\014\246\003y\000\000\000\000\003y\000\000\000\000\000\000\000\000\003y\000\000\015\014\003y\000\000\000\000\000\000\000\000\003y\003y\000\242\000\000\000\000\000\000\000\000\000\000\000\000\003y\003y\r\254\014~\015&\015>\015n\003y\003y\000\000\000\000\003y\000\000\003y\015\134\000\000\000\000\000\000\000\000\000\000\000\000\003y\003y\015\158\000\000\003y\003y\003y\000\000\003y\000\000\000\000\000\000\003y\000\000\003y\003y\000\000\015\254\003y\0166\015V\003y\003y\000\000\000\000\003y\015\182\003y\000\000\000\000\000\000\000\000\003y\003y\015\206\015\230\003\157\003\157\000\000\000\000\000\000\003\157\000\000\000\000\003\157\000\000\000\000\003\157\000\000\003\157\000\000\000\000\003\157\000\000\003\157\003\157\003\157\000\000\003\157\003\157\003\157\000\000\000\000\000\000\000\000\000\000\003\157\003\157\003\157\003\157\003\157\000\000\003\157\000\000\000\000\000\000\000\000\000\000\003\157\003\157\003\157\003\157\003\157\000\000\000\000\003\157\000\000\000\000\000\000\000\000\003\157\000\000\003\157\003\157\000\000\000\000\000\000\000\000\003\157\003\157\003\157\000\000\000\000\000\000\000\000\000\000\000\000\003\157\003\157\003\157\003\157\003\157\003\157\003\157\003\157\003\157\000\000\000\000\003\157\000\000\003\157\003\157\000\000\000\000\000\000\000\000\000\000\000\000\003\157\003\157\003\157\000\000\003\157\003\157\003\157\000\000\003\157\000\000\000\000\000\000\003\157\000\000\003\157\003\157\000\000\012\182\003\157\003\157\003\157\003\157\003\157\000\000\000\000\003\157\003\157\r\194\000\000\000\000\000\000\000\000\003\157\003\157\003\157\003\157\003\153\003\153\000\000\000\000\000\000\003\153\000\000\000\000\003\153\000\000\000\000\003\153\000\000\003\153\000\000\000\000\r\230\000\000\003\153\003\153\003\153\000\000\003\153\003\153\003\153\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\014\198\000\000\003\153\000\000\000\000\000\000\000\000\000\000\003\153\003\153\014\222\014\246\003\153\000\000\000\000\003\153\000\000\000\000\000\000\000\000\003\153\000\000\015\014\003\153\000\000\000\000\000\000\000\000\003\153\003\153\000\242\000\000\000\000\000\000\000\000\000\000\000\000\003\153\003\153\r\254\014~\015&\015>\015n\003\153\003\153\000\000\000\000\003\153\000\000\003\153\015\134\000\000\000\000\000\000\000\000\000\000\000\000\003\153\003\153\015\158\000\000\003\153\003\153\003\153\000\000\003\153\000\000\000\000\000\000\003\153\000\000\003\153\003\153\000\000\015\254\003\153\0166\015V\003\153\003\153\000\000\000\000\003\153\015\182\003\153\000\000\000\000\000\000\000\000\003\153\003\153\015\206\015\230\003\141\003\141\000\000\000\000\000\000\003\141\000\000\000\000\003\141\000\000\000\000\003\141\000\000\003\141\000\000\000\000\003\141\000\000\003\141\003\141\003\141\000\000\003\141\003\141\003\141\000\000\000\000\000\000\000\000\000\000\003\141\003\141\003\141\003\141\003\141\000\000\003\141\000\000\000\000\000\000\000\000\000\000\003\141\003\141\003\141\003\141\003\141\000\000\000\000\003\141\000\000\000\000\000\000\000\000\003\141\000\000\003\141\003\141\000\000\000\000\000\000\000\000\003\141\003\141\003\141\000\000\000\000\000\000\000\000\000\000\000\000\003\141\003\141\003\141\003\141\003\141\003\141\003\141\003\141\003\141\000\000\000\000\003\141\000\000\003\141\003\141\000\000\000\000\000\000\000\000\000\000\000\000\003\141\003\141\003\141\000\000\003\141\003\141\003\141\000\000\003\141\000\000\000\000\000\000\003\141\000\000\003\141\003\141\000\000\012\182\003\141\003\141\003\141\003\141\003\141\000\000\000\000\003\141\003\141\r\194\000\000\000\000\000\000\000\000\003\141\003\141\003\141\003\141\003\137\003\137\000\000\000\000\000\000\003\137\000\000\000\000\003\137\000\000\000\000\003\137\000\000\003\137\000\000\000\000\r\230\000\000\003\137\003\137\003\137\000\000\003\137\003\137\003\137\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\014\198\000\000\003\137\000\000\000\000\000\000\000\000\000\000\003\137\003\137\014\222\014\246\003\137\000\000\000\000\003\137\000\000\000\000\000\000\000\000\003\137\000\000\015\014\003\137\000\000\000\000\000\000\000\000\003\137\003\137\000\242\000\000\000\000\000\000\000\000\000\000\000\000\003\137\003\137\r\254\014~\015&\015>\015n\003\137\003\137\000\000\000\000\003\137\000\000\003\137\015\134\000\000\000\000\000\000\000\000\000\000\000\000\003\137\003\137\015\158\000\000\003\137\003\137\003\137\000\000\003\137\000\000\000\000\000\000\003\137\000\000\003\137\003\137\000\000\015\254\003\137\0166\015V\003\137\003\137\000\000\000\000\003\137\015\182\003\137\000\000\000\000\000\000\000\000\003\137\003\137\015\206\015\230\003U\003U\000\000\000\000\000\000\003U\000\000\000\000\003U\000\000\000\000\003U\000\000\003U\000\000\000\000\003U\000\000\003U\003U\003U\000\000\003U\003U\003U\000\000\000\000\000\000\000\000\000\000\003U\003U\003U\003U\003U\000\000\003U\000\000\000\000\000\000\000\000\000\000\003U\003U\003U\003U\003U\000\000\000\000\003U\000\000\000\000\000\000\000\000\003U\000\000\003U\003U\000\000\000\000\000\000\000\000\003U\003U\003U\000\000\000\000\000\000\000\000\000\000\000\000\003U\003U\003U\003U\003U\003U\003U\003U\003U\000\000\000\000\003U\000\000\003U\003U\000\000\000\000\000\000\000\000\000\000\000\000\003U\003U\003U\000\000\003U\003U\003U\000\000\003U\000\000\000\000\000\000\003U\000\000\003U\003U\000\000\012\182\003U\003U\003U\003U\003U\000\000\000\000\003U\003U\r\194\000\000\000\000\000\000\000\000\003U\003U\003U\003U\003Q\003Q\000\000\000\000\000\000\003Q\000\000\000\000\003Q\000\000\000\000\003Q\000\000\003Q\000\000\000\000\r\230\000\000\003Q\003Q\003Q\000\000\003Q\003Q\003Q\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\014\198\000\000\003Q\000\000\000\000\000\000\000\000\000\000\003Q\003Q\014\222\014\246\003Q\000\000\000\000\003Q\000\000\000\000\000\000\000\000\003Q\000\000\015\014\003Q\000\000\000\000\000\000\000\000\003Q\003Q\000\242\000\000\000\000\000\000\000\000\000\000\000\000\003Q\003Q\r\254\014~\015&\015>\015n\003Q\003Q\000\000\000\000\003Q\000\000\003Q\015\134\000\000\000\000\000\000\000\000\000\000\000\000\003Q\003Q\015\158\000\000\003Q\003Q\003Q\000\000\003Q\000\000\000\000\000\000\003Q\000\000\003Q\003Q\000\000\015\254\003Q\0166\015V\003Q\003Q\000\000\000\000\003Q\015\182\003Q\000\000\000\000\000\000\000\000\003Q\003Q\015\206\015\230\ne\ne\000\000\000\000\000\000\ne\000\000\000\000\ne\000\000\000\000\ne\000\000\ne\000\000\000\000\ne\000\000\ne\ne\ne\000\000\ne\ne\ne\000\000\000\000\000\000\000\000\000\000\ne\ne\ne\ne\ne\000\000\ne\000\000\000\000\000\000\000\000\000\000\ne\ne\ne\ne\ne\000\000\000\000\ne\000\000\000\000\000\000\000\000\ne\000\000\ne\ne\000\000\000\000\000\000\000\000\ne\ne\ne\000\000\000\000\000\000\000\000\000\000\000\000\ne\ne\ne\ne\ne\ne\ne\ne\ne\000\000\000\000\ne\000\000\ne\ne\000\000\000\000\000\000\000\000\000\000\000\000\ne\ne\ne\000\000\ne\ne\ne\000\000\ne\000\000\000\000\000\000\ne\000\000\ne\ne\000\000\012\182\ne\ne\ne\ne\ne\000\000\000\000\ne\ne\r\194\000\000\000\000\000\000\000\000\ne\ne\ne\ne\na\na\000\000\000\000\000\000\na\000\000\000\000\na\000\000\000\000\na\000\000\na\000\000\000\000\r\230\000\000\na\na\na\000\000\na\na\na\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\014\198\000\000\na\000\000\000\000\000\000\000\000\000\000\na\na\014\222\014\246\na\000\000\000\000\na\000\000\000\000\000\000\000\000\na\000\000\015\014\na\000\000\000\000\000\000\000\000\na\na\000\242\000\000\000\000\000\000\000\000\000\000\000\000\na\na\r\254\014~\015&\015>\015n\na\na\000\000\000\000\na\000\000\na\015\134\000\000\000\000\000\000\000\000\000\000\000\000\na\na\015\158\000\000\na\na\na\000\000\na\000\000\000\000\000\000\na\000\000\na\na\000\000\na\na\na\015V\na\na\000\000\000\000\na\015\182\na\000\000\000\000\000\000\000\000\na\na\015\206\015\230\011\173\011\173\000\000\000\000\000\000\011\173\000\000\000\000\011\173\000\000\000\000\011\173\000\000\011\173\000\000\000\000\011\173\000\000\011\173\011\173\011\173\000\000\011\173\011\173\011\173\000\000\000\000\000\000\000\000\000\000\011\173\011\173\011\173\011\173\011\173\000\000\011\173\000\000\000\000\000\000\000\000\000\000\011\173\011\173\011\173\011\173\011\173\000\000\000\000\011\173\000\000\000\000\000\000\000\000\011\173\000\000\011\173\011\173\000\000\000\000\000\000\000\000\011\173\011\173\011\173\000\000\000\000\000\000\000\000\000\000\000\000\011\173\011\173\011\173\011\173\011\173\011\173\011\173\011\173\011\173\000\000\000\000\011\173\000\000\011\173\011\173\000\000\000\000\000\000\000\000\000\000\000\000\011\173\011\173\011\173\000\000\011\173\011\173\011\173\000\000\011\173\000\000\000\000\000\000\011\173\000\000\011\173\011\173\000\000\012\182\011\173\011\173\011\173\011\173\011\173\000\000\000\000\011\173\011\173\r\194\000\000\000\000\000\000\000\000\011\173\011\173\011\173\011\173\002]\002]\000\000\000\000\000\000\002]\000\000\000\000\002]\000\000\000\000\002]\000\000\002]\000\000\000\000\002]\000\000\002]\002]\002]\000\000\002]\002]\002]\000\000\000\000\000\000\000\000\000\000\002]\002]\002]\002]\002]\000\000\002]\000\000\000\000\000\000\000\000\000\000\002]\002]\002]\002]\002]\000\000\000\000\002]\000\000\000\000\000\000\000\000\002]\000\000\002]\002]\000\000\000\000\000\000\000\000\002]\002]\002]\000\000\000\000\000\000\000\000\000\000\000\000\002]\002]\002]\002]\002]\002]\002]\002]\002]\000\000\000\000\002]\000\000\002]\002]\000\000\000\000\000\000\000\000\000\000\000\000\002]\002]\002]\000\000\002]\002]\019\182\000\000\002]\000\000\000\000\000\000\002]\000\000\002]\002]\000\000\012\182\002]\002]\002]\002]\002]\000\000\000\000\002]\002]\r\194\000\000\000\000\000\000\000\000\002]\002]\002]\002]\002U\002U\000\000\000\000\000\000\002U\000\000\000\000\002U\000\000\000\000\002U\000\000\002U\000\000\000\000\002U\000\000\002U\002U\002U\000\000\002U\002U\002U\000\000\000\000\000\000\000\000\000\000\002U\002U\002U\002U\002U\000\000\002U\000\000\000\000\000\000\000\000\000\000\002U\002U\002U\002U\002U\000\000\000\000\002U\000\000\000\000\000\000\000\000\002U\000\000\002U\002U\000\000\000\000\000\000\000\000\002U\002U\002U\000\000\000\000\000\000\000\000\000\000\000\000\002U\002U\002U\002U\002U\002U\002U\002U\002U\000\000\000\000\002U\000\000\002U\002U\000\000\000\000\000\000\000\000\000\000\000\000\002U\002U\002U\000\000\002U\002U\002U\000\000\002U\000\000\000\000\000\000\002U\000\000\002U\002U\000\000\012\182\002U\002U\002U\002U\002U\000\000\000\000\002U\002U\r\194\000\000\000\000\000\000\000\000\002U\002U\002U\002U\002Q\002Q\000\000\000\000\000\000\002Q\000\000\000\000\002Q\000\000\000\000\002Q\000\000\002Q\000\000\000\000\r\230\000\000\002Q\002Q\002Q\000\000\002Q\002Q\002Q\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\014\198\000\000\002Q\000\000\000\000\000\000\000\000\000\000\002Q\002Q\014\222\014\246\002Q\000\000\000\000\002Q\000\000\000\000\000\000\000\000\002Q\000\000\015\014\002Q\000\000\000\000\000\000\000\000\002Q\002Q\000\242\000\000\000\000\000\000\000\000\000\000\000\000\002Q\002Q\r\254\014~\015&\015>\015n\002Q\002Q\000\000\000\000\002Q\000\000\002Q\015\134\000\000\000\000\000\000\000\000\000\000\000\000\002Q\002Q\015\158\000\000\002Q\002Q\002Q\000\000\002Q\000\000\000\000\000\000\002Q\000\000\002Q\002Q\000\000\015\254\002Q\0166\015V\002Q\002Q\000\000\000\000\002Q\015\182\002Q\000\000\000\000\000\000\000\000\002Q\002Q\015\206\015\230\002Y\002Y\000\000\000\000\000\000\002Y\000\000\000\000\002Y\000\000\000\000\002Y\000\000\002Y\000\000\000\000\r\230\000\000\002Y\002Y\002Y\000\000\002Y\002Y\002Y\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\014\198\000\000\002Y\000\000\000\000\000\000\000\000\000\000\002Y\002Y\014\222\014\246\002Y\000\000\000\000\002Y\000\000\000\000\000\000\000\000\002Y\000\000\015\014\002Y\000\000\000\000\000\000\000\000\002Y\002Y\000\242\000\000\000\000\000\000\000\000\000\000\000\000\002Y\002Y\r\254\014~\015&\015>\015n\002Y\002Y\000\000\000\000\002Y\000\000\002Y\015\134\000\000\000\000\000\000\000\000\000\000\000\000\002Y\002Y\015\158\000\000\002Y\002Y\019\210\000\000\002Y\000\000\000\000\000\000\002Y\000\000\002Y\002Y\000\000\015\254\002Y\0166\015V\002Y\002Y\000\000\000\000\002Y\015\182\002Y\000\000\000\000\000\000\000\000\002Y\002Y\015\206\015\230\002M\002M\000\000\000\000\000\000\002M\000\000\000\000\002M\000\000\000\000\002M\000\000\002M\000\000\000\000\002M\000\000\002M\002M\002M\000\000\002M\002M\002M\000\000\000\000\000\000\000\000\000\000\002M\002M\002M\002M\002M\000\000\002M\000\000\000\000\000\000\000\000\000\000\002M\002M\002M\002M\002M\000\000\000\000\002M\000\000\000\000\000\000\000\000\002M\000\000\002M\002M\000\000\000\000\000\000\000\000\002M\002M\002M\000\000\000\000\000\000\000\000\000\000\000\000\002M\002M\002M\002M\002M\002M\002M\002M\002M\000\000\000\000\002M\000\000\002M\002M\000\000\000\000\000\000\000\000\000\000\000\000\002M\002M\002M\000\000\002M\002M\002M\000\000\002M\000\000\000\000\000\000\002M\000\000\002M\002M\000\000\012\182\002M\002M\002M\002M\002M\000\000\000\000\002M\002M\r\194\000\000\000\000\000\000\000\000\002M\002M\002M\002M\002I\002I\000\000\000\000\000\000\002I\000\000\000\000\002I\000\000\000\000\002I\000\000\002I\000\000\000\000\r\230\000\000\002I\002I\002I\000\000\002I\002I\002I\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\014\198\000\000\002I\000\000\000\000\000\000\000\000\000\000\002I\002I\014\222\014\246\002I\000\000\000\000\002I\000\000\000\000\000\000\000\000\002I\000\000\015\014\002I\000\000\000\000\000\000\000\000\002I\002I\000\242\000\000\000\000\000\000\000\000\000\000\000\000\002I\002I\r\254\014~\015&\015>\015n\002I\002I\000\000\000\000\002I\000\000\002I\015\134\000\000\000\000\000\000\000\000\000\000\000\000\002I\002I\015\158\000\000\002I\002I\002I\000\000\002I\000\000\000\000\000\000\002I\000\000\002I\002I\000\000\015\254\002I\0166\015V\002I\002I\000\000\000\000\002I\015\182\002I\000\000\000\000\000\000\000\000\002I\002I\015\206\015\230\ny\ny\000\000\000\000\000\000\ny\000\000\000\000\ny\000\000\000\000\ny\000\000\ny\000\000\000\000\ny\000\000\ny\ny\ny\000\000\ny\ny\ny\000\000\000\000\000\000\000\000\000\000\ny\ny\ny\ny\ny\000\000\ny\000\000\000\000\000\000\000\000\000\000\ny\ny\ny\ny\ny\000\000\000\000\ny\000\000\000\000\000\000\000\000\ny\000\000\ny\ny\000\000\000\000\000\000\000\000\ny\ny\ny\000\000\000\000\000\000\000\000\000\000\000\000\ny\ny\ny\ny\ny\ny\ny\ny\ny\000\000\000\000\ny\000\000\ny\ny\000\000\000\000\000\000\000\000\000\000\000\000\ny\ny\ny\000\000\ny\ny\ny\000\000\ny\000\000\000\000\000\000\ny\000\000\ny\ny\000\000\012\182\ny\ny\ny\ny\ny\000\000\000\000\ny\ny\r\194\000\000\000\000\000\000\000\000\ny\ny\ny\ny\nu\nu\000\000\000\000\000\000\nu\000\000\000\000\nu\000\000\000\000\nu\000\000\nu\000\000\000\000\r\230\000\000\nu\nu\nu\000\000\nu\nu\nu\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\014\198\000\000\nu\000\000\000\000\000\000\000\000\000\000\nu\nu\014\222\014\246\nu\000\000\000\000\nu\000\000\000\000\000\000\000\000\nu\000\000\015\014\nu\000\000\000\000\000\000\000\000\nu\nu\000\242\000\000\000\000\000\000\000\000\000\000\000\000\nu\nu\r\254\014~\015&\015>\015n\nu\nu\000\000\000\000\nu\000\000\nu\015\134\000\000\000\000\000\000\000\000\000\000\000\000\nu\nu\015\158\000\000\nu\nu\nu\000\000\nu\000\000\000\000\000\000\nu\000\000\nu\nu\000\000\nu\nu\nu\015V\nu\nu\000\000\000\000\nu\015\182\nu\000\000\000\000\000\000\000\000\nu\nu\015\206\015\230\003M\003M\000\000\000\000\000\000\003M\000\000\000\000\003M\000\000\000\000\003M\000\000\003M\000\000\000\000\003M\000\000\003M\003M\003M\000\000\003M\003M\003M\000\000\000\000\000\000\000\000\000\000\003M\003M\003M\003M\003M\000\000\003M\000\000\000\000\000\000\000\000\000\000\003M\003M\003M\003M\003M\000\000\000\000\003M\000\000\000\000\000\000\000\000\003M\000\000\003M\003M\000\000\000\000\000\000\000\000\003M\003M\003M\000\000\000\000\000\000\000\000\000\000\000\000\003M\003M\003M\003M\003M\003M\003M\003M\003M\000\000\000\000\003M\000\000\003M\003M\000\000\000\000\000\000\000\000\000\000\000\000\003M\003M\003M\000\000\003M\003M\003M\000\000\003M\000\000\000\000\000\000\003M\000\000\003M\003M\000\000\012\182\003M\003M\003M\003M\003M\000\000\000\000\003M\003M\r\194\000\000\000\000\000\000\000\000\003M\003M\003M\003M\003I\003I\000\000\000\000\000\000\003I\000\000\000\000\003I\000\000\000\000\003I\000\000\003I\000\000\000\000\r\230\000\000\003I\003I\003I\000\000\003I\003I\003I\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\014\198\000\000\003I\000\000\000\000\000\000\000\000\000\000\003I\003I\014\222\014\246\003I\000\000\000\000\003I\000\000\000\000\000\000\000\000\003I\000\000\015\014\003I\000\000\000\000\000\000\000\000\003I\003I\000\242\000\000\000\000\000\000\000\000\000\000\000\000\003I\003I\r\254\014~\015&\015>\015n\003I\003I\000\000\000\000\003I\000\000\003I\015\134\000\000\000\000\000\000\000\000\000\000\000\000\003I\003I\015\158\000\000\003I\003I\003I\000\000\003I\000\000\000\000\000\000\003I\000\000\003I\003I\000\000\015\254\003I\0166\015V\003I\003I\000\000\000\000\003I\015\182\003I\000\000\000\000\000\000\000\000\003I\003I\015\206\015\230\002=\002=\000\000\000\000\000\000\002=\000\000\000\000\002=\000\000\000\000\002=\000\000\002=\000\000\000\000\002=\000\000\002=\002=\002=\000\000\002=\002=\002=\000\000\000\000\000\000\000\000\000\000\002=\002=\002=\002=\002=\000\000\002=\000\000\000\000\000\000\000\000\000\000\002=\002=\002=\002=\002=\000\000\000\000\002=\000\000\000\000\000\000\000\000\002=\000\000\002=\002=\000\000\000\000\000\000\000\000\002=\002=\002=\000\000\000\000\000\000\000\000\000\000\000\000\002=\002=\002=\002=\002=\002=\002=\002=\002=\000\000\000\000\002=\000\000\002=\002=\000\000\000\000\000\000\000\000\000\000\000\000\002=\002=\002=\000\000\002=\002=\002=\000\000\002=\000\000\000\000\000\000\002=\000\000\002=\002=\000\000\002=\002=\002=\002=\002=\002=\000\000\000\000\002=\002=\r\194\000\000\000\000\000\000\000\000\002=\002=\002=\002=\n\161\n\161\000\000\000\000\000\000\n\161\000\000\000\000\n\161\000\000\000\000\n\161\000\000\n\161\000\000\000\000\n\161\000\000\n\161\n\161\n\161\000\000\n\161\n\161\n\161\000\000\000\000\000\000\000\000\000\000\n\161\n\161\n\161\n\161\n\161\000\000\n\161\000\000\000\000\000\000\000\000\000\000\n\161\n\161\n\161\n\161\n\161\000\000\000\000\n\161\000\000\000\000\000\000\000\000\n\161\000\000\n\161\n\161\000\000\000\000\000\000\000\000\n\161\n\161\n\161\000\000\000\000\000\000\000\000\000\000\000\000\n\161\n\161\n\161\n\161\n\161\n\161\n\161\n\161\n\161\000\000\000\000\n\161\000\000\n\161\n\161\000\000\000\000\000\000\000\000\000\000\000\000\n\161\n\161\n\161\000\000\n\161\n\161\n\161\000\000\n\161\000\000\000\000\000\000\n\161\000\000\n\161\n\161\000\000\012\182\n\161\n\161\n\161\n\161\n\161\000\000\000\000\n\161\n\161\r\194\000\000\000\000\000\000\000\000\n\161\n\161\n\161\n\161\n\157\n\157\000\000\000\000\000\000\n\157\000\000\000\000\n\157\000\000\000\000\n\157\000\000\n\157\000\000\000\000\r\230\000\000\n\157\n\157\n\157\000\000\n\157\n\157\n\157\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\014\198\000\000\n\157\000\000\000\000\000\000\000\000\000\000\n\157\n\157\014\222\014\246\n\157\000\000\000\000\n\157\000\000\000\000\000\000\000\000\n\157\000\000\015\014\n\157\000\000\000\000\000\000\000\000\n\157\n\157\000\242\000\000\000\000\000\000\000\000\000\000\000\000\n\157\n\157\r\254\014~\015&\015>\015n\n\157\n\157\000\000\000\000\n\157\000\000\n\157\015\134\000\000\000\000\000\000\000\000\000\000\000\000\n\157\n\157\015\158\000\000\n\157\n\157\n\157\000\000\n\157\000\000\000\000\000\000\n\157\000\000\n\157\n\157\000\000\n\157\n\157\n\157\015V\n\157\n\157\000\000\000\000\n\157\015\182\n\157\000\000\000\000\000\000\000\000\n\157\n\157\015\206\015\230\n\141\n\141\000\000\000\000\000\000\n\141\000\000\000\000\n\141\000\000\000\000\n\141\000\000\n\141\000\000\000\000\n\141\000\000\n\141\n\141\n\141\000\000\n\141\n\141\n\141\000\000\000\000\000\000\000\000\000\000\n\141\n\141\n\141\n\141\n\141\000\000\n\141\000\000\000\000\000\000\000\000\000\000\n\141\n\141\n\141\n\141\n\141\000\000\000\000\n\141\000\000\000\000\000\000\000\000\n\141\000\000\n\141\n\141\000\000\000\000\000\000\000\000\n\141\n\141\n\141\000\000\000\000\000\000\000\000\000\000\000\000\n\141\n\141\n\141\n\141\n\141\n\141\n\141\n\141\n\141\000\000\000\000\n\141\000\000\n\141\n\141\000\000\000\000\000\000\000\000\000\000\000\000\n\141\n\141\n\141\000\000\n\141\n\141\n\141\000\000\n\141\000\000\000\000\000\000\n\141\000\000\n\141\n\141\000\000\012\182\n\141\n\141\n\141\n\141\n\141\000\000\000\000\n\141\n\141\r\194\000\000\000\000\000\000\000\000\n\141\n\141\n\141\n\141\n\137\n\137\000\000\000\000\000\000\n\137\000\000\000\000\n\137\000\000\000\000\n\137\000\000\n\137\000\000\000\000\r\230\000\000\n\137\n\137\n\137\000\000\n\137\n\137\n\137\000\000\000\000\000\000\000\000\000\000\014N\014\150\014\174\014f\014\198\000\000\n\137\000\000\000\000\000\000\000\000\000\000\n\137\n\137\014\222\014\246\n\137\000\000\000\000\n\137\000\000\000\000\000\000\000\000\n\137\000\000\015\014\n\137\000\000\000\000\000\000\000\000\n\137\n\137\000\242\000\000\000\000\000\000\000\000\000\000\000\000\n\137\n\137\r\254\014~\015&\015>\015n\n\137\n\137\000\000\000\000\n\137\000\000\n\137\015\134\000\000\000\000\000\000\000\000\000\000\000\000\n\137\n\137\015\158\000\000\n\137\n\137\n\137\000\000\n\137\000\000\000\000\000\000\n\137\000\000\n\137\n\137\000\000\n\137\n\137\n\137\015V\n\137\n\137\000\000\000\000\n\137\015\182\n\137\000\000\000\000\000\000\000\000\n\137\n\137\015\206\015\230\002A\002A\000\000\000\000\000\000\002A\000\000\000\000\002A\000\000\000\000\002A\000\000\002A\000\000\000\000\002A\000\000\002A\002A\002A\000\000\002A\002A\002A\000\000\000\000\000\000\000\000\000\000\002A\002A\002A\002A\002A\000\000\002A\000\000\004\021\004\021\000\000\000\000\002A\002A\002A\002A\002A\000\000\000\000\002A\000\000\000\000\000\000\000\000\002A\000\000\002A\002A\004\021\000\000\0159\000\000\002A\002A\002A\000\000\000\000\000\000\011u\000\000\000\000\002A\002A\002A\002A\002A\002A\002A\002A\002A\0159\004\021\002A\0022\002A\002A\0026\r\130\011u\006\141\011u\011u\002A\002A\002A\000\000\002A\002A\002A\002B\002A\000\000\004\021\000\000\002A\001\210\002A\002A\000\000\002A\002A\002A\002A\002A\002A\000\000\000\000\002A\002A\r\194\000\000\000\000\000\000\001\214\002A\002A\002A\002A\001\n\002N\000\006\000\000\000\000\000\000\002\198\002\202\024\n\002\246\002\150\000\000\003\002\006\141\000\000\004\218\001\014\000\000\000\000\000\000\002\162\000\000\002\174\007!\024\130\001\214\000\000\000\000\002\190\006\006\001\022\011\178\011\182\001\"\001&\024\154\000\000\000\000\004\226\000\000\005\186\000\000\030n\000\000\011\218\011\222\002R\005\238\005\242\012\182\005\246\006\002\006\014\011\226\t\166\000\000\001>\011u\002\190\r\194\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\001B\001F\001J\001N\001R\000\000\000\000\012\014\001V\000\000\000\000\000\000\001Z\000\000\012\026\0122\012\234\006\158\006\162\000\000\000\000\001^\000\000\000\000\000\000\000\000\002\001\000\000\001b\000\000\023\222\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\158\007\190\000\000\007\202\006\166\011v\000\000\001\162\000\000\020j\003j\012\254\001\n\001\170\000\006\001\174\001\178\000\n\002\198\002\202\000\000\002\246\002\150\007\206\003\002\000\000\000\000\004\218\001\014\000\000\000\000\000\000\011\174\000\000\000\000\000\000\002\001\001\214\000\000\000\000\000\000\006\006\001\022\011\178\011\182\001\"\001&\000\000\002\001\002\001\004\226\000\000\005\186\000\000\011\186\000\000\011\218\011\222\000\000\005\238\005\242\000\000\005\246\006\002\006\014\011\226\t\166\000\242\001>\000\000\002\190\b\193\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\001B\001F\001J\001N\001R\b\193\000\000\012\014\001V\b\193\000\000\000\000\001Z\000\000\012\026\0122\012\234\006\158\006\162\t\209\000\000\001^\000\000\t\209\000\000\000\000\000\000\007\210\001b\000\000\007\142\b\006\005q\000\000\000\000\000\000\000\000\b\026\001\158\bB\000\000\b&\006\166\011v\000\000\001\162\000\000\020j\003j\012\254\005\229\001\170\000\006\001\174\001\178\000\250\002\198\002\202\002\206\002\246\002\150\000\000\003\002\000\000\t\209\004\218\000\000\000\000\005\134\000\000\000\000\000\000\005\229\000\000\005\138\001\214\000\242\011R\000\000\004\222\b\193\005\142\005\146\000\000\000\000\t\209\005\150\000\000\004\226\000\000\005\186\000\000\021V\000\000\005\230\005\234\003\014\005\238\005\242\004\162\005\246\006\002\006\014\006\022\t\166\000\249\005q\011J\002\190\000\000\000\249\006\n\021\174\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\007\210\000\000\003\254\007\142\012N\000\000\000\000\021\182\000\249\012\014\b\026\000\000\000\000\015\001\b&\000\000\012\026\0122\012\234\006\158\006\162\021\202\022\006\000\000\000\000\005\229\005\229\000\000\000\000\000\000\000\249\000\000\015\001\015\001\000\000\024\018\015\001\000\000\000\000\000\000\000\000\000\249\022\230\026\234\006\166\011v\000\249\000\145\000\000\011\142\003j\012\254\000\145\000\000\002\202\000\145\000\249\002\150\000\000\r:\000\000\000\000\004\218\000\000\000\000\000\145\000\000\000\145\000\000\000\145\000\000\000\145\001\214\000\000\rR\t\205\004\222\000\242\000\000\t\205\000\000\000\249\rZ\000\145\000\000\004\226\000\000\005\186\000\000\000\145\000\000\000\249\000\000\000\145\005\238\005\242\000\000\000\000\006\002\001\194\000\000\000\145\000\000\000\000\000\145\002\190\000\000\015\001\006\n\000\145\000\145\000\145\011^\011b\011n\000\000\rb\006\146\000\145\000\145\t\205\000\000\000\000\004\174\000\000\000\145\000\000\000\000\000\000\000\145\011\145\000\000\000\000\000\000\000\000\000\000\000\000\006\158\006\162\000\145\000\145\t\205\000\000\000\145\000\145\000\000\000\000\000\000\000\000\bn\031\198\000\000\011\145\005\209\000\145\bN\000\000\000\000\005\209\000\000\000\145\000\145\006\166\011v\000\000\000\000\000\169\011\142\003j\000\000\000\145\000\169\000\145\002\202\000\169\bR\002\150\005\209\r:\003\254\000\000\004\218\000\000\000\000\000\169\000\000\000\169\000\000\000\169\000\000\000\169\001\214\000\000\rR\000\242\004\222\000\000\000\000\000\000\005\209\000\000\rZ\000\169\000\000\004\226\000\000\005\186\000\000\000\169\000\000\005\209\000\000\000\169\005\238\005\242\005\209\002\238\006\002\001\194\000\242\000\169\000\000\000\000\000\169\002\190\005\209\000\000\006\n\000\169\000\169\000\169\011^\011b\011n\000\000\rb\006\146\000\169\000\169\007\210\000\000\000\000\007\142\031\202\000\169\000\000\000\000\011\145\000\169\b\026\005\209\000\000\000\000\b&\000\000\000\000\006\158\006\162\000\169\000\169\005\209\000\000\000\169\000\169\007\210\000\000\000\000\007\142\011!\000\000\000\000\000\000\000\000\000\169\b\026\000\000\000\000\000\000\b&\000\169\000\169\006\166\011v\000\000\000\000\011\029\011\142\003j\000\000\000\169\000\006\000\169\000\000\000\250\002\198\002\202\002\206\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\006\005\000\000\000\000\000\000\011!\000\000\005\138\001\214\000\000\000\000\000\000\004\222\000\000\005\142\005\146\000\000\000\000\000\000\005\150\000\000\004\226\011\029\005\186\000\000\021V\011!\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\011J\002\190\000\000\011\029\006\n\021\174\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\011!\021\182\0159\012\014\003\254#\022\000\000\011!\000\000\000\000\012\026\0122\012\234\006\158\006\162\021\202\022\006\011\029\000\000#7\020\250\003\254\0159\000\000\011\029\0022\000\000\000\000\0026\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\026\234\006\166\011v\000\000\002B\000\000\011\142\003j\012\254\000\006\002J\015%\000\250\002\198\002\202\002\206\002\246\002\150\000\000\003\002\000\000\000\000\004\218\022\018\000\000#f\002\150\000\000\000\000\000\000\000\000\005\138\001\214\000\000\002N\000\000\004\222\000\000\005\142\005\146\000\000\000\000\000\000\005\150\026\146\004\226\000\000\005\186\000\000\021V\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\011J\002\190\000\000\022\022\006\n\021\174\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\002R\000\000\022\"\000\000\026\182\000\000\021\182\000\000\012\014\000\000#\022\000\000\000\000\000\000\000\000\012\026\0122\012\234\006\158\006\162\021\202\022\006\000\000\000\000\006\r\000\000\000\000\000\000\006\162\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\026\194\000\000\000\000\026\234\006\166\011v\001\n\000\000\000\000\011\142\003j\012\254\004\242\002\202\007\162\000\000\002\150\026V\004\246\000\000\000\000\004\218\001\014\000\000\000\000\000\000\002\162\000\000\000\000\000\000\000\000\001\214\000\000\000\000\000\000\001\018\001\022\001\026\005J\001\"\001&\000\000\000\000\000\000\002\001\000\000\000\000\000\000\005N\002\001\0012\007\186\000\000\000\000\000\000\000\000\000\000\005F\001\194\001:\000\000\000\000\001>\000\000\002\190\000\000\000\000\006R\002\001\000\000\000\000\006V\000\000\006^\006\134\006\230\006\146\000\n\000\000\001B\001F\001J\001N\001R\000\000\000\000\000\000\001V\006\150\000\000\002\001\001Z\000\000\000\000\000\000\002\001\006\158\006\162\000\000\007\"\001^\002\001\000\000\000\000\000\000\007.\002\001\001b\002\001\000\000\000\000\000\000\000\000\000\000\000\000\002\001\002\001\001\158\007\190\000\000\000\000\006\166\000\000\000\000\001\162\000\000\001\166\003j\001\n\000\000\001\170\000\000\001\174\001\178\004\242\002\202\012n\000\000\002\150\000\000\004\246\002\001\000\000\004\218\001\014\000\000\000\000\000\000\002\162\000\000\000\000\002\001\000\000\001\214\000\000\000\000\000\000\001\018\001\022\001\026\005J\001\"\001&\000\000\000\000\000\000\000\000\000\000\000\000\000\000\005N\000\000\0012\007\186\000\000\000\000\000\000\000\000\000\000\005F\001\194\001:\000\000\000\000\001>\000\000\002\190\000\000\000\000\006R\000\000\000\000\000\000\006V\000\000\006^\006\134\006\230\006\146\000\000\000\000\001B\001F\001J\001N\001R\000\000\000\000\000\000\001V\006\150\000\000\000\000\001Z\000\000\000\000\000\000\000\000\006\158\006\162\000\000\007\"\001^\000\000\000\000\000\000\000\000\007.\011\"\001b\000\000\000\000\000\000\000\000\000\000\002\018\000\000\000\000\000\000\001\158\007\190\000\000\002\022\006\166\000\000\002\030\001\162\000\000\001\166\003j\000\000\000\000\001\170\001\214\001\174\001\178\000\014\000\018\000\022\000\026\000\030\000\000\000\"\000&\000*\000.\0002\000\000\0006\000:\005n\000\000\000>\000\000\000\000\000\000\000B\000\000\000\000\t\214\001\226\000\000\000\000\000F\000\000\000\000\002\190\000\000\000\000\000J\000\000\000N\000R\000V\000Z\000^\000b\000f\000\000\000\000\000\000\000j\000\000\000\000\000\000\000n\000\000\000r\000\000\000v\000\000\004\242\002\202\000\000\t\222\002\150\000\000\0066\000\000\000\000\004\218\000\000\000\000\000z\000\000\000\000\000~\000\130\000\000\000\000\001\214\000\000\000\000\000\134\000\138\000\142\000\000\005.\000\000\000\000\000\000\000\146\000\150\000\154\000\158\000\000\000\162\000\166\000\170\000\000\005:\000\000\000\174\000\178\000\182\000\186\005F\001\194\000\000\000\190\000\000\000\194\000\198\002\190\000\000\000\000\006R\000\000\000\000\000\202\006V\000\206\006^\006\134\b\166\006\146\005A\000\210\000\214\000\000\000\218\005A\004\242\002\202\005A\001\169\002\150\006\150\tv\000\000\001\169\004\218\000\000\000\000\005A\006\158\006\162\000\000\005A\000\000\005A\001\214\000\000\t\150\000\000\000\000\000\000\b\174\005.\001\169\000\000\012>\005A\000\000\000\000\000\000\000\000\000\000\005A\000\000\006\166\005:\000\000\000\000\000\000\000\000\003j\012j\001\194\000\000\005A\001\169\000\000\005A\002\190\000\000\000\000\006R\005A\005A\rA\006V\001\169\006^\000\000\012z\006\146\001\169\001\169\000\242\000\000\000\000\000\000\000\000\005A\005A\001\169\001\169\006\150\000\000\000\000\000\000\000\000\000\000\000\000\000\000\006\158\006\162\005A\005A\016Z\000\000\005A\005A\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\169\000\000\000\000\rA\003\014\000\000\rA\016b\005A\006\166\001\169\000\000\000\000\rA\011y\003j\000\006\rA\000\000\005A\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\011y\000\000\011y\011y\000\000\001\214\000\000\000\000\000\000\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\004\166\005\246\006\002\006\014\006\022\t\166\001\206\001\210\016f\002\190\006\181\015y\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\001\214\001\218\001\234\000\000\006\181\000\000\012\014\000\000\006\181\000\000\001\246\000\000\000\000\rr\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\250\002\166\000\000\000\000\000\000\002\178\000\000\002\190\003\022\003\"\000\000\000\000\000\000\000\000\003.\006\166\011v\011y\000\000\000\000\011\142\003j\012\254\011q\000\000\000\006\000\000\000\000\000\000\002\198\002\202\0032\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\015y\015y\000\000\011q\000\000\011q\011q\000\000\001\214\000\000\000\000\000\000\004\222\006\181\005\142\005\146\000\000\000\000\000\000\000\000\015y\004\226\015y\005\186\000\000\000\000\000\000\005\230\005\234\006\181\005\238\005\242\006\181\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001.\012\014\000\000\000\000\000\000\000\000\002\001\002\001\rr\0122\012\234\006\158\006\162\000\000\002\001\000\000\000\000\002\001\000\000\000\000\000\000\002\001\002\001\000\000\002\001\002\001\002\001\002\001\000\000\002\001\002\001\000\000\002\001\000\n\000\000\000\000\006\166\011v\011q\002\001\002\001\011\142\003j\012\254\002\001\002\001\002\001\002\001\000\n\000\000\000\000\002\001\002\001\002\001\000\000\002\001\000\000\002\001\002\001\002\001\002\001\000\000\002\001\002\001\002\001\002\001\002\001\002\001\002\001\002\001\006\185\015y\000\000\002\001\000\000\002\001\002\001\000\000\000\000\002\001\002\001\002\001\002\001\002\001\002\001\002\001\002\001\000\000\000\000\006\185\000\000\000\000\000\000\006\185\000\000\002\001\000\000\002\001\000\000\000\000\000\000\002\001\002\001\002\001\002\001\002\001\002\001\000\000\002\001\b5\000\000\000A\002\001\000\000\002\001\000A\000A\000\000\000A\000A\002\001\000A\000\000\000\000\000A\000\000\000\000\000\000\000\000\b5\002\001\002\001\000\000\000\000\000A\002\001\002\001\002\001\000A\000\000\000A\000A\000\000\000\000\000\000\000\000\000\000\000A\000\000\000A\000\000\015y\015y\000A\000A\000\000\000A\000A\000\000\000A\000A\000A\000A\000A\006\185\000\000\000\000\000A\000\000\000\000\000A\015y\000\000\015y\000A\000A\000A\000A\000A\000A\006\185\000\000\000\000\006\185\000\000\000\000\000\000\000\000\000\000\000A\000\000\000\000\000\000\000\000\0159\015%\000A\000A\000A\000A\000A\000\000\000\000\b1\000\000\000=\000\000\000\000\000\000\000=\000=\000\000\000=\000=\0159\000=\000\000\0022\000=\000\000\0026\000\000\000\000\b1\000A\000A\000\000\002>\000=\000A\000A\000A\000=\002B\000=\000=\000\000\000\000\000\000\002J\015%\000=\000\000\000=\000\000\000\000\000\000\000=\000=\000\000\000=\000=\000\000\000=\000=\000=\000=\000=\000\000\000\000\000\000\000=\000\000\002N\000=\000\000\000\000\000\000\000=\000=\000=\000=\000=\000=\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000=\000\000\000\000\000\000\000\000\011\206\000\000\000=\000=\000=\000=\000=\002\018\000\000\bA\000\000\014\193\000\000\000\000\002\022\014\193\014\193\002\030\014\193\014\193\002R\014\193\000\000\000\000\014\193\001\214\000\000\000\000\000\000\bA\000=\000=\000\000\000\000\014\193\000=\000=\000=\014\193\000\000\014\193\014\193\005n\000\000\000\000\000\000\000\000\014\193\000\000\014\193\000\000\t\214\001\226\014\193\014\193\000\000\014\193\014\193\002\190\014\193\014\193\014\193\014\193\014\193\000\000\000\000\000\000\014\193\000\000\000\000\014\193\000\000\000\000\000\000\014\193\014\193\014\193\014\193\014\193\014\193\005\245\000\000\000\000\000\000\000\000\024\"\t\222\000\000\000\000\014\193\000\000\000\000\000\000\000\000\0159\015%\014\193\014\193\014\193\014\193\014\193\000\000\000\000\b=\005\138\014\189\000\000\000\000\000\000\014\189\014\189\000\000\014\189\014\189\0159\014\189\000\000\0022\014\189\000\000\0026\000\000\000\000\b=\014\193\014\193\024N\002\218\014\189\014\193\014\193\014\193\014\189\002B\014\189\014\189\000\000\011J\000\000\002J\015%\014\189\021\174\014\189\000\000\000\000\000\000\014\189\014\189\000\000\014\189\014\189\024z\014\189\014\189\014\189\014\189\014\189\000\000\000\000\000\000\014\189\000\000\002N\014\189\000\000\000\000\000\000\014\189\014\189\014\189\014\189\014\189\014\189\000\000\000\000\000\000\005\245\000\000\000\000\000\000\000\000\000\000\014\189\000\000\000\000\000\000\024\222\000\000\000\000\014\189\014\189\014\189\014\189\014\189\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\002R\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\014\189\014\189\000\000\000\000\001\214\014\189\014\189\014\189\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\003\018\005\246\006\002\006\014\006\022\t\166\001\206\001\210\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\001\214\001\254\001\234\000\000\000\000\000\000\012\014\000\000\000\000\000\000\001\246\000\000\000\000\rr\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\250\002\166\000\000\000\000\000\000\002\178\000\000\002\190\003\022\003\"\000\000\000\000\000\000\000\000\003.\006\166\011v\030Z\000\000\000\006\011\142\003j\012\254\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\0032\004\218\000\000\000\000\000\000\000\000\000\000\000\000\006Z\000\000\000\000\001\214\000\000\000\000\000\000\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\004\166\005\246\006\002\006\014\006\022\t\166\001\206\001\210\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\001\214\001\254\001\234\000\000\000\000\b\181\012\014\000\000\000\000\000\000\001\246\000\000\000\000\rr\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\000\000\000\b\181\000\000\001\250\002\166\b\181\000\000\000\000\002\178\000\000\002\190\003\022\003\"\000\000\000\000\000\000\000\000\003.\006\166\011v\020~\000\000\000\006\011\142\003j\012\254\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\0032\004\218\000\000\000\000\000\000\000\000\000\000\000\000\020\146\000\000\000\000\001\214\000\242\000\000\002\202\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\001\214\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\027\006\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\007\210\028B\005\198\007\142\028F\000\000\000\000\000\000\002\190\012\014\b\026\000\000\000\000\000\000\b&\028v\rr\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\028\134\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\006\133\006\133\011\142\003j\012\254\006\133\006\133\006\133\006\133\000\000\006\133\000\000\006\133\006\133\006\133\006\133\006\133\000\000\006\133\006\133\006\133\006\133\006\133\006\133\006\133\006\133\006\133\006\133\006\133\006\133\006\133\006\133\000\000\000\000\000\000\000\000\006\133\000\000\000\000\000\000\000\000\006\133\006\133\006\133\000\000\000\000\006\133\006\133\006\133\006\133\006\133\006\133\006\133\006\133\006\133\000\000\000\000\006\133\000\000\006\133\000\000\006\133\006\133\006\133\006\133\000\000\000\000\006\133\006\133\006\133\006\133\006\133\006\133\000\000\000\000\000\000\006\133\006\133\006\133\006\133\000\000\000\000\006\133\006\133\000\000\006\133\000\000\006\133\000\000\006\133\006\133\000\000\006\133\006\133\006\133\000\000\006\133\006\133\006\133\006\133\006\133\006\133\006\133\006\133\006\133\000\000\000\000\006\133\000\000\006\133\006\133\000\000\006\133\002\170\006\133\006\133\006\133\006\133\003\202\006\133\003\234\006\133\000\000\006\133\006\133\006\133\006\133\000\000\006\133\000\000\006\133\006\133\006\133\006\133\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\004\194\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\214\000\000\000\000\000\000\004\222\000\000\005\142\005\146\000\000\000\000\000\000\005\253\000\000\004\226\000\000\005\186\027\018\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\005\138\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\031\230\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\027\130\000\000\000\000\000\000\000\000\031\238\0122\012\234\006\158\006\162\000\000\011J\005\217\000\000\000\006\000\000\021\174\000\250\002\198\002\202\002&\002\246\002\150\000\000\003\002\028&\0286\004\218\000\000\000\000\022\234\000\000\000\000\006\166\011v\000\000\005\138\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\022\238\000\000\004\226\005\253\005\186\000\000\023\022\000\000\005\230\005\234\000\000\005\238\005\242\029*\005\246\006\002\006\014\006\022\t\166\000\000\000\000\011J\002\190\000\000\000\000\006\n\021\174\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\023\182\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\030\190\0122\012\234\006\158\006\162\021\202\023\202\000\000\000\000\000\006\005\217\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\023\218\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\b\n\005\246\006\002\006\014\006\022\t\166\001\206\001\210\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\001\214\001\254\001\234\000\000\000\000\000\000\012\014\000\000\000\000\000\000\001\246\000\000\000\000\030F\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\250\002\166\000\000\000\000\000\000\002\178\000\000\002\190\003\022\003\"\000\000\030\134\000\000\000\000\003.\006\166\011v\000\000\002\018\000\000\011\142\003j\012\254\r]\000\000\002\022\r]\000\000\002\030\r]\r]\0032\b\133\r]\000\000\r]\001\214\b\133\r]\000\000\000\000\000\000\r]\r]\000\000\r]\r]\000\000\r]\000\000\r]\000\000\000\000\005n\000\000\r]\b\133\000\000\r]\000\000\000\000\000\000\t\214\001\226\000\000\000\000\r]\000\000\r]\002\190\003j\000\000\000\000\000\000\r]\r]\000\000\000\000\b\133\000\000\000\000\r]\000\000\000\000\r]\000\000\000\000\r]\r]\b\133\r]\000\000\r]\r]\b\133\b\133\000\242\t\222\000\000\000\000\000\000\000\000\000\000\b\133\b\133\r]\000\241\000\000\000\000\000\000\000\000\000\241\000\000\r]\r]\000\000\000\000\r]\000\000\r]\000\000\000\000\000\000\000\000\000\000\006\194\000\000\000\000\000\000\b\133\000\241\000\000\r]\r]\000\000\r]\r]\000\000\r]\b\133\r]\000\000\r]\000\006\r]\000\000\r]\002\198\002\202\000\000\002\246\002\150\000\241\003\002\000\000\029\n\004\218\004\238\000\000\000\000\000\000\000\000\000\000\000\241\000\000\000\000\001\214\000\000\000\241\000\000\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\241\000\241\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\241\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\241\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\021\022\0122\012\234\006\158\006\162\000\000\000\000\015\133\000\000\000\006\000\000\000\000\015\133\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\015\133\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\015\133\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\015\133\002\190\000\000\000\000\006\n\015\133\015\133\000\242\011^\011b\011n\011\130\011\246\006\146\015\133\015\133\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\012\166\0122\012\234\006\158\006\162\000\000\000\000\005\209\000\000\000\006\015\133\000\000\005\209\002\198\002\202\000\000\002\246\002\150\000\000\012\186\015\133\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\005\209\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\005\209\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\005\209\002\190\000\000\000\000\006\n\005\209\002\238\000\242\011^\011b\011n\011\130\012\210\006\146\005\209\005\209\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\019f\0122\012\234\006\158\006\162\002\001\000\000\000\000\000\000\000\006\005\209\000\000\002\001\002\198\002\202\002\001\002\246\002\150\000\000\003\002\005\209\000\000\004\218\002\001\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\n\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\002\001\000\000\005\230\005\234\000\000\005\238\005\242\002\001\005\246\006\002\006\014\006\022\t\166\002\001\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\002\001\000\000\000\000\012\014\000\000\000\000\000\000\000\000\030\218\000\000\r\"\0122\012\234\006\158\006\162\002\018\000\000\000\000\000\000\000\006\000\000\000\000\002\022\002\198\002\202\002\030\002\246\002\150\000\000\r\146\000\000\000\000\004\218\001\214\005\154\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\005n\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\t\214\001\226\005\230\005\234\000\000\005\238\005\242\002\190\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\r\170\006\146\000\000\000\000\000\000\000\000\000\000\000\000\t\222\000\000\000\000\012\014\000\000\000\000\000\000\000\000\030\234\000\000\r\178\0122\012\234\006\158\006\162\002\018\000\000\000\000\000\000\000\006\000\000\000\000\002\022\002\198\002\202\002\030\002\246\002\150\000\000\003\002\000\000\000\000\004\218\001\214\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\005n\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\t\214\001\226\005\230\005\234\000\000\005\238\005\242\002\190\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\t\222\000\000\000\000\012\014\000\000\000\000\000\000\000\000\031\018\000\000\r\234\0122\012\234\006\158\006\162\002\018\000\000\000\000\000\000\000\006\000\000\000\000\002\022\002\198\002\202\002\030\002\246\002\150\000\000\003\002\000\000\000\000\004\218\001\214\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\005n\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\t\214\001\226\005\230\005\234\000\000\005\238\005\242\002\190\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\t\222\000\000\000\000\012\014\000\000\000\000\000\000\000\000\031\"\000\000\014\002\0122\012\234\006\158\006\162\002\018\000\000\000\000\000\000\000\006\000\000\000\000\002\022\002\198\002\202\002\030\002\246\002\150\000\000\003\002\000\000\000\000\004\218\001\214\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\005n\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\t\214\001\226\005\230\005\234\000\000\005\238\005\242\002\190\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\t\222\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\014&\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\014R\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\014j\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\014\130\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\014\154\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\014\178\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\014\202\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\014\226\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\014\250\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\015\018\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\015*\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\015B\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\015Z\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\015r\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\015\138\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\015\162\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\015\186\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\015\210\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\015\234\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\016\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\016\026\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\016\"\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\016:\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\017b\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\017\138\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\017\178\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\017\222\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\018\006\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\018.\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\018^\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\018\134\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\018\174\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\018\202\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\019\166\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\019\186\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\003\002\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\011\246\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\019\214\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000\020\014\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\011\130\020&\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000\020.\0122\012\234\006\158\006\162\000\000\000\000\000\000\000\000\000\006\000\000\000\000\000\000\002\198\002\202\000\000\002\246\002\150\000\000 \n\000\000\000\000\004\218\022\018\000\000\000\000\002\150\000\000\006\166\011v\000\000\000\000\001\214\011\142\003j\012\254\004\222\000\000\005\142\005\146\000\000\000\000\000\000\000\000\000\000\004\226\000\000\005\186\000\000\000\000\000\000\005\230\005\234\000\000\005\238\005\242\000\000\005\246\006\002\006\014\006\022\t\166\000\000\000\000\000\000\002\190\000\000\022\022\006\n\000\000\000\000\000\000\011^\011b\011n\011\130 \"\006\146\000\000\000\000\000\000\022\"\000\000\026\150\000\000\000\000\000\000\012\014\000\000\000\000\000\000\000\000\000\000\000\000 *\0122\012\234\006\158\006\162\000\000\005\178\000\000\002\202\000\000\000\000\000\000\000\000\006\162\000\000\005~\000\000\000\000\005\166\000\000\000\000\n\234\014\133\000\000\026\162\000\000\001\214\014\133\006\166\011v\014\133\014\249\014\249\011\142\003j\012\254\014\249\000\000\001\210\014\249\014\133\026V\000\000\000\000\014\133\000\000\014\133\003\194\000\000\014\249\014\249\014\249\005\174\014\249\014\249\014\249\000\000\000\000\014\133\002\190\000\000\000\000\000\000\000\000\014\133\000\000\000\000\014\249\000\000\000\000\000\000\000\000\000\000\014\249\014\249\000\000\014\133\014\249\000\000\014\133\000\000\000\000\000\000\002\174\014\133\014\249\000\000\n\206\014\249\000\000\000\000\000\000\000\000\014\249\014\249\014\249\000\000\000\000\000\000\000\000\014\133\r\214\014\249\014\249\014\133\000\000\000\000\000\000\000\000\014\249\000\000\000\000\000\000\003\210\014\133\014\133\014\249\000\000\014\133\014\133\000\000\000\000\000\000\014\249\014\249\014\249\000\000\014\249\014\249\000\000\000\000\000\000\000\000\000\000\000\000\000\000\014\133\000\000\014\249\000\000\014\249\014\249\000\000\000\000\000\000\014\249\000\000\016N\000\000\000\000\014\249\000\000\000\000\000\000\014\249\000\000\014\249\014\249\011Q\011Q\000\000\000\000\000\000\011Q\000\000\001\210\011Q\000\000\000\000\000\000\000\000\000\000\000\000\000\000\011Q\000\000\011Q\011Q\011Q\000\000\011Q\011Q\011Q\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\011Q\000\000\000\000\000\000\000\000\000\000\011Q\011Q\000\000\000\000\011Q\000\000\000\000\000\000\000\000\000\000\002\174\000\000\011Q\000\000\000\000\011Q\000\000\000\000\000\000\000\000\011Q\011Q\011Q\000\000\000\000\000\000\000\000\000\000\000\000\011Q\011Q\000\000\000\000\000\000\000\000\000\000\011Q\000\000\000\000\000\000\003\210\000\000\000\000\011Q\000\000\000\000\000\000\000\000\000\000\000\000\011Q\011Q\011Q\000\000\011Q\011Q\000\000\000\000\005\169\000\000\000\000\000\000\000\000\005\169\000\000\011Q\005\169\011Q\011Q\000\000\000\000\000\000\011Q\000\000\000\000\000\000\005\169\011Q\000\000\000\000\005\169\011Q\005\169\011Q\011Q\011Y\011Y\000\000\000\000\000\000\011Y\000\000\001\210\011Y\005\169\000\000\000\000\000\000\000\000\000\000\005\169\011Y\000\000\011Y\011Y\011Y\000\000\011Y\011Y\011Y\000\000\000\000\005\169\000\000\000\000\005\169\000\000\000\000\000\000\000\000\005\169\011Y\000\000\000\000\000\000\000\000\000\000\011Y\011Y\000\000\000\000\011Y\000\000\000\000\000\000\000\000\005\169\002\174\000\000\011Y\005\169\000\000\011Y\000\000\000\000\000\000\000\000\011Y\011Y\011Y\005\169\005\169\000\000\000\000\005\169\005\169\011Y\011Y\000\000\000\000\000\000\000\000\000\000\011Y\000\000\000\000\000\000\003\210\000\000\000\000\011Y\000\000\005\169\000\000\000\000\000\000\000\000\011Y\011Y\011Y\000\000\011Y\011Y\021\146\000\000\005\161\000\000\000\000\000\000\000\000\005\161\000\000\011Y\005\161\011Y\011Y\000\000\000\000\000\000\011Y\000\000\000\000\000\000\005\161\011Y\000\000\000\000\005\161\011Y\005\161\011Y\011Y\011U\011U\000\000\000\000\000\000\011U\000\000\001\210\011U\005\161\000\000\000\000\000\000\000\000\000\000\005\161\011U\000\000\011U\011U\011U\000\000\011U\011U\011U\000\000\000\000\005\161\000\000\000\000\005\161\000\000\000\000\000\000\000\000\005\161\011U\000\000\000\000\000\000\000\000\000\000\011U\011U\000\000\000\000\011U\000\000\000\000\000\000\000\000\005\161\002\174\000\000\011U\005\161\000\000\011U\000\000\000\000\000\000\000\000\011U\011U\011U\005\161\005\161\000\000\000\000\005\161\005\161\011U\011U\000\000\000\000\000\000\000\000\000\000\011U\000\000\000\000\000\000\003\210\000\000\000\000\011U\000\000\005\161\000\000\000\000\000\000\000\000\011U\011U\011U\000\000\011U\011U\025\"\000\000\005\193\000\000\000\000\000\000\000\000\005\193\000\000\011U\005\193\011U\011U\000\000\000\000\000\000\011U\000\000\000\000\000\000\005\193\011U\000\000\000\000\005\193\011U\005\193\011U\011U\011M\011M\000\000\000\000\000\000\011M\000\000\001\210\011M\005\193\000\000\000\000\000\000\000\000\000\000\005\193\011M\000\000\011M\011M\011M\000\000\011M\011M\011M\000\000\000\000\005\193\000\000\000\000\005\193\000\000\000\000\000\000\000\000\005\193\011M\000\000\000\000\000\000\000\000\000\000\011M\011M\000\000\000\000\011M\000\000\000\000\000\000\000\000\005\193\002\174\000\000\011M\005\193\000\000\011M\000\000\000\000\000\000\000\000\011M\011M\011M\005\193\005\193\000\000\000\000\005\193\005\193\011M\011M\000\000\000\000\000\000\000\000\000\000\011M\000\000\000\000\000\000\003\210\000\000\000\000\011M\000\000\005\193\000\000\000\000\000\000\000\000\011M\011M\011M\000\000\011M\011M\026\006\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\011M\000\000\011M\011M\000\000\000\000\000\000\011M\000\000\000\000\000\000\000\000\011M\000\000\ri\000\000\011M\ri\011M\011M\004\242\002\202\000\000\000\000\002\150\000\000\004\246\000\000\000\000\004\218\000\000\000\000\000\000\ri\ri\000\000\ri\ri\000\000\001\214\000\000\001\206\001\210\000\000\000\000\000\000\005.\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\162\000\000\ri\000\000\005:\001\214\001\254\001\234\000\000\000\000\005F\001\194\000\000\000\000\000\000\001\246\000\000\002\190\000\000\000\000\006R\000\000\002\006\ri\006V\000\000\006^\006\134\006\230\006\146\000\000\001\250\002\166\000\000\000\000\000\000\002\178\000\000\002\190\003\022\003\"\006\150\000\000\000\000\000\000\003.\000\000\000\000\000\000\006\158\006\162\000\000\007\"\ri\000\000\ri\000\000\000\000\007.\000\000\000\000\000\000\0032\000\000\000\000\000\000\000\000\000\000\ri\000\000\000\000\ri\ri\000\000\006\166\000\000\ri\000\000\ri\000\000\003j\re\ri\000\000\re\000\000\000\000\004\242\002\202\000\000\000\000\002\150\022\026\004\246\000\000\000\000\004\218\000\000\000\000\000\000\re\re\000\000\re\re\000\000\001\214\000\000\001\206\001\210\000\000\000\000\000\000\005.\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\re\000\000\005:\001\214\001\254\001\234\000\000\000\000\007\158\001\194\000\000\000\000\000\000\001\246\000\000\002\190\024\n\000\000\006R\000\000\000\000\re\006V\000\000\006^\006\134\006\230\006\146\000\000\001\250\025b\000\000\024\130\000\000\002\178\000\000\002\190\003\022\003\"\006\150\000\000\000\000\000\000\025r\000\000\000\000\000\000\006\158\006\162\000\000\007\"\re\000\000\re\000\000\000\000\007.\000\000\000\000\000\000\0032\000\000\000\000\000\000\000\000\000\000\re\000\000\000\000\re\re\000\000\006\166\000\000\re\000\000\re\000y\003j\000\000\re\000\000\000y\000\000\000y\000y\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000y\000\000\000y\000y\000\000\000\000\000y\000y\000y\000\000\011\t\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000y\000\000\000\000\000\000\000\000\000\000\000y\000y\000\000\000\000\000y\000\000\000\000\000\000\000\000\000\000\000y\000\000\000y\000\000\000\000\000y\000\000\000\000\000\000\000\000\000y\000y\000y\000\000\000\000\000\000\000\000\000\000\000\000\000y\000y\000\000\000\000\000\000\000\000\000\000\000y\000y\000\000\000\000\000y\000\000\000\000\000y\000\000\000\000\000\000\000\000\000\000\000\000\000y\000y\000y\000\000\000y\000y\000\000\000\000\000\000\000\000\000\000\011\t\000\000\000\000\000\000\000y\014\253\014\253\000y\000\000\000\000\014\253\000y\000\000\014\253\000\000\000\000\000y\000\000\000\000\000\000\000y\003\226\000y\014\253\014\253\014\253\000\000\014\253\014\253\014\253\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\014\253\000\000\000\000\000\000\000\000\000\000\014\253\014\253\000\000\000\000\014\253\000\000\000\000\000\000\000\000\000\000\000\000\000\000\014\253\000\000\000\000\014\253\000\000\000\000\000\000\000\000\014\253\014\253\014\253\000\000\000\000\000\000\000\000\000\000\000\000\014\253\014\253\000\000\000\000\000\000\000\000\000\000\014\253\000\000\000\000\000\000\014\253\000\000\000\000\014\253\000\000\000\000\000\000\000\000\000\000\000\000\014\253\014\253\014\253\000\000\014\253\014\253\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\014\253\000\250\014\253\014\253\002\206\003\217\003\217\014\253\000\000\000\000\003\217\000\000\014\253\003\217#f\000\000\014\253\000\000\014\253\014\253\005\138\003\226\000\000\003\217\003\217\003\217\000\000\003\217\003\217\003\217\000\000\000\000\005\150\000\000\000\000\000\000\000\000\000\000\021V\000\000\000\000\003\217\000\000\000\000\000\000\000\000\000\000\003\217!\"\000\000\029\170\003\217\000\000\011J\000\000\000\000\000\000\000\000\021\174\003\217\000\000\000\000\003\217\000\000\000\000\000\000\000\000\003\217\003\217\003\217\000\000\000\000\000\000\000\000\021\182\000\000\003\217\003\217#\022\000\000\000\000\000\000\000\000\003\217\000\000\000\000\000\000\003\217\021\202\022\006\003\217\000\000\006\r\000\000\000\000\000\000\000\000\003\217\003\217\003\217\000\000\003\217\003\217\003\197\003\197\000\000\000\000\000\000\003\197\000\000\026\234\003\197\003\217\000\000\003\217\003\217\000\000\000\000\000\000\003\217\000\000\003\197\003\197\003\197\003\217\003\197\003\197\003\197\003\217\000\000\003\217\003\217\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\197\000\000\000\000\000\000\000\000\000\000\003\197\003z\000\000\000\000\003\197\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\197\000\000\000\000\003\197\000\000\000\000\000\000\000\000\003\197\003\197\003\197\000\000\000\000\000\000\000\000\000\000\000\000\003\197\003\197\000\000\000\000\000\000\000\000\000\000\003\197\000\000\000\000\000\000\003\197\000\000\000\000\003\197\000\000\000\000\000\000\000\000\000\000\000\000\003\197\003\197\003\197\000\000\003\197\003\197\001\193\001\193\000\000\000\000\000\000\001\193\000\000\000\000\001\193\003\197\000\000\003\197\003\197\000\000\000\000\000\000\003\197\000\000\001\193\001\193\001\193\003\197\001\193\001\193\001\193\003\197\000\000\003\197\003\197\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\193\000\000\000\000\000\000\000\000\000\000\001\193\001\193\000\000\000\000\001\193\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\193\000\000\000\000\001\193\000\000\000\000\000\000\000\000\001\193\001\193\001\193\000\000\000\000\000\000\000\000\000\000\000\000\001\193\001\193\000\000\000\000\000\000\000\000\000\000\001\193\000\000\000\000\000\000\001\193\000\000\000\000\001\193\000\000\000\000\000\000\000\000\000\000\000\000\001\193\001\193\001\193\000\000\001\193\001\193\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\193\000\000\001\193\001\193\004\242\002\202\000\000\001\193\002\150\000\000\tv\000\000\001\193\004\218\000\000\000\000\003\254\000\000\001\193\000\000\000\000\000\250\000\000\001\214\002\206\t\150\000\000\000\000\000\000\000\000\005.\000\000\000\000\012>\006\005\000\000\000\000\000\000\000\000\000\000\005\138\000\000\000\000\005:\000\000\000\000\000\000\000\000\000\000\012j\001\194\000\000\005\150\000\000\000\000\000\000\002\190\000\000\021V\006R\000\000\000\000\rA\006V\000\000\006^\000\000\012z\006\146\000\000\029\170\000\000\000\000\011J\000\000\000\000\000\000\005}\021\174\000\000\006\150\000\000\000\000\000\000\000\000\000\000\000\000\000\000\006\158\006\162\000\000\000\000\016Z\000\000\021\182\000\000\000\000\002\001\002\001\000\000\000\000\002\001\000\000\002\001\000\000\000\000\002\001\rA\021\202\022\006\rA\rA\002\001\006\166\000\000\002\001\002\001\rA\002\001\003j\000\000\rA\005}\002\001\000\n\000\000\002\001\002\001\000\000\000\000\026\234\000\000\000\000\002\001\000\000\000\000\002\001\000\000\000\000\000\000\000\000\000\000\002\001\002\001\000\000\000\000\000\000\000\000\002\001\002\001\000\000\000\000\002\001\000\000\000\000\002\001\002\001\000\000\002\001\002\001\002\001\002\001\000\000\000\000\000\000\000\000\000\000\007\017\007\017\000\000\000\000\000\000\007\017\002\001\000\000\007\017\000\000\000\000\000\000\000\000\000\000\002\001\002\001\000\000\002\001\007\017\000\000\007\017\000\000\007\017\000\000\007\017\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\007\017\000\000\000\000\002\001\000\000\000\000\007\017\007\017\000\000\002\001\000\000\000\000\000\000\000\000\000\000\007\017\000\000\000\000\007\017\000\000\001\n\007\017\000\000\000\000\000\000\000\000\007\017\007\017\007\017\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\014\000\000\000\000\000\000\002\162\000\000\007\017\007\017\000\000\000\000\007\017\000\000\000\000\001\018\001\022\001\026\001\030\001\"\001&\000\000\007\017\007\017\007\017\000\000\007\017\007\017\001*\000\000\0012\0016\000\000\n\146\000\000\000\000\000\000\000\000\000\000\001:\007\017\000\000\001>\007\017\007\017\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\007\017\000\000\000\000\000\000\001B\001F\001J\001N\001R\000\000\000\000\000\000\001V\000\000\000\000\000\000\001Z\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001^\004\021\004\021\004\021\004\021\000\000\004\021\001b\004\021\004\021\000\000\004\021\000\000\000\000\000\000\000\000\000\000\001\158\"*\004\021\000\000\004\021\000\000\004\021\001\162\004\021\001\166\004\021\000\000\000\000\001\170\000\000\001\174\001\178\000\000\000\000\000\000\004\021\000\000\004\021\000\000\000\000\000\000\004\021\004\021\004\021\004\021\000\000\000\000\000\000\000\000\000\000\006\141\000\000\006\145\004\021\000\000\004\021\004\021\000\000\004\021\000\000\000\000\004\021\004\021\004\021\004\021\004\021\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\021\000\000\004\021\000\000\004\021\000\000\004\021\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\021\004\021\004\021\004\021\004\021\004\021\004\021\004\021\000\000\000\000\000\000\006\141\000\000\006\145\000\000\000\000\000\000\000\000\004\021\004\021\004\021\004\021\004\021\000\000\004\021\000\000\007\005\007\005\000\000\000\000\000\000\007\005\000\000\004\021\007\005\004\021\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\007\005\000\000\007\005\000\000\007\005\000\000\007\005\000\000\000\000\n\177\000\000\000\000\n\177\000\000\000\000\000\000\000\000\000\000\007\005\000\000\000\000\000\000\000\000\000\000\007\005\007\005\000\000\000\000\n\177\n\177\000\000\n\177\n\177\n\230\000\000\000\000\007\005\000\000\000\000\007\005\000\000\000\000\000\000\000\000\007\005\007\005\000\242\000\000\000\000\000\000\000\000\000\000\n\177\000\000\000\000\000\000\000\000\000\000\000\000\000\000\007\005\007\005\000\000\000\000\007\005\000\000\000\000\011m\000\000\000\000\000\000\000\000\000\000\n\177\007\005\007\005\007\005\000\000\007\005\007\005\000\000\000\000\000\000\r\230\000\000\000\000\017J\011m\000\000\011m\011m\000\000\007\005\000\000\000\000\007\005\007\005\014N\014\150\014\174\014f\014\198\000\000\n\177\000\000\n\177\000\000\007\005\000\000\000\000\000\000\014\222\014\246\000\000\000\000\000\000\000\000\000\000\007^\000\000\000\000\n\177\n\177\015\014\000\000\000\000\n\177\000\000\n\177\000\000\000\000\000\242\n\177\000\000\000\000\000\000\000\000\000\000\000\000\000\000\r\254\014~\015&\015>\015n\000\000\000\000\000\000\000\000\000\000\000\000\000\000\015\134\000\000\000\000\000\000\000\000\001\n\000\000\000\000\000\000\015\158\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\014\000\000\000\000\015\254\000\000\0166\015V\000\000\000\000\000\000\000\000\011m\015\182\001\018\001\022\001\026\001\030\001\"\001&\000\000\015\206\015\230\000\000\000\000\000\000\000\000\001*\000\000\0012\0016\000\000\000\000\000\000\004\141\000\000\000\000\004\141\001:\000\000\000\000\001>\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\141\004\141\000\000\004\141\004\141\001B\001F\001J\001N\001R\000\000\000\000\000\000\001V\000\000\000\000\000\000\001Z\000\000\000\000\000\000\t\249\t\249\000\000\004\141\t\249\001^\t\249\000\000\000\000\t\249\000\000\000\000\001b\000\000\000\000\t\178\000\000\000\000\005\138\t\249\000\000\000\000\001\158\"F\000\242\000\000\t\249\000\000\000\000\001\162\005\150\001\166\000\000\000\000\000\000\001\170\t\182\001\174\001\178\t\249\000\000\000\000\000\000\000\000\000\000\t\249\t\249\000\000\000\000\000\000\000\000\011J\t\249\000\000\004\141\t\249\004\141\000\000\000\000\t\249\000\000\t\249\t\249\t\249\t\249\000\000\000\000\000\000\000\000\004\141\n\225\n\225\007\142\004\141\000\000\n\225\t\249\004\141\n\225\004\141\000\000\000\000\000\000\004\141\t\249\t\249\000\000\023\202\n\225\000\000\n\225\000\000\n\225\000\000\n\225\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\n\225\000\000\000\000\t\249\000\000\000\000\n\225\n\225\000\000\t\249\000\000\000\000\000\250\000\000\000\000\002&\000\000\000\000\n\225\000\000\000\000\n\225\000\000\000\000\000\000\022\234\n\225\n\225\n\225\000\000\000\000\005\138\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\n\225\022\238\000\000\000\000\n\225\000\000\000\000\023\022\000\000\000\000\000\000\000\000\000\000\000\000\n\225\n\225\n\225\000\000\n\225\n\225\015\197\015\197\011J\000\000\000\000\015\197\000\000\021\174\015\197\n\225\000\000\000\000\n\225\000\000\000\000\000\000\n\225\000\000\015\197\000\000\015\197\000\000\015\197\023\182\015\197\003\254\000\000\n\225\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\015\197\021\202\023\202\000\000\000\000\005\217\015\197\015\197\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003:\000\000\000\000\015\197\000\000\000\000\015\197\000\000\023\218\000\000\000\000\015\197\015\197\015\197\015\201\015\201\000\000\000\000\000\000\015\201\000\000\000\000\015\201\000\000\000\000\000\000\000\000\015\197\000\000\000\000\000\000\015\197\015\201\000\000\015\201\000\000\015\201\000\000\015\201\000\000\000\000\015\197\015\197\015\197\000\000\015\197\015\197\000\000\000\000\000\000\015\201\000\000\003J\000\000\000\000\000\000\015\201\015\201\000\000\015\197\000\000\000\000\000\000\015\197\000\000\003:\000\000\000\000\015\201\000\000\000\000\015\201\000\000\000\000\015\197\000\000\015\201\015\201\015\201\001\177\005Z\t\218\000\000\000\000\001\177\000\000\001\210\001\177\002\022\000\000\000\000\002\030\015\201\000\000\t\202\011I\015\201\001\177\000\000\001\214\000\000\001\177\000\000\001\177\000\000\000\000\015\201\015\201\015\201\000\000\015\201\015\201\000\000\000\000\000\000\001\177\005n\003J\000\000\000\000\000\000\001\177\001\177\000\000\015\201\t\214\001\226\000\000\015\201\000\000\000\000\002\174\002\190\001\177\000\000\000\000\001\177\000\000\000\000\015\201\000\000\001\177\001\177\001\177\000\000\000\000\005\145\000\000\000\000\000\000\000\000\005\145\000\000\000\000\005\145\000\000\000\000\001\177\001\177\000\000\t\222\003\210\000\000\000\000\005\145\000\000\000\000\000\000\005\145\000\000\005\145\001\177\001\177\003\249\000\000\001\177\001\177\000\000\003\249\000\000\001\210\003\249\005\145\000\000\000\000\000\000\001\177\000\000\005\145\011E\000\000\003\249\000\000\001\177\000\000\003\249\000\000\003\249\001\177\000\000\005\145\000\000\000\000\005\145\001\177\000\000\000\000\000\000\005\145\003\249\000\000\000\000\000\000\000\000\000\000\003\249\001\173\000\000\000\000\000\000\000\000\000\000\000\000\000\000\005\145\002\174\000\000\003\249\005\145\000\000\003\249\000\000\000\000\000\000\000\000\003\249\003\249\003\249\005\145\005\145\000\000\000\000\005\145\005\145\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\249\003\249\000\000\000\000\003\210\000\000\000\000\000\000\000\000\005\145\000\000\000\000\000\000\000\000\003\249\003\249\003\245\000\000\003\249\003\249\029~\003\245\000\000\001\210\003\245\000\000\000\000\000\000\000\000\003\249\000\000\000\000\011E\000\000\003\245\000\000\003\249\000\000\003\245\000\000\003\245\003\249\000\000\000\000\000\000\000\000\000\000\003\249\000\000\000\000\000\000\000\000\003\245\000\000\000\000\000\000\000\000\000\000\003\245\001\173\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\174\000\000\003\245\000\000\000\000\003\245\000\000\000\000\000\000\000\000\003\245\003\245\003\245\000\000\000\153\000\000\000\000\000\000\000\000\000\153\000\000\000\000\000\153\000\000\000\000\000\000\003\245\003\245\000\000\000\000\003\210\000\000\000\153\000\000\000\153\000\000\000\153\000\000\000\153\000\000\003\245\003\245\000\000\000\000\003\245\003\245\000\000\000\000\000\000\000\000\000\153\000\000\000\000\000\000\000\000\003\245\000\153\000\000\000\000\000\000\000\153\000\000\003\245\000\000\000\000\000\000\000\000\003\245\000\153\000\000\000\000\000\153\000\000\003\245\000\000\000\000\000\153\000\153\000\242\000\000\000\000\000\000\000\000\000\000\000\000\000\153\000\153\000\000\000\000\000\000\000\000\000\000\000\153\000\000\000\221\000\000\000\153\000\000\000\000\000\221\000\000\000\000\000\221\000\000\000\000\000\000\000\153\000\153\000\000\000\000\000\153\000\153\000\221\000\000\000\221\000\000\000\221\000\000\000\221\000\000\000\000\000\153\000\000\000\000\000\000\000\000\000\000\000\153\000\153\000\000\000\221\000\000\000\000\000\000\000\000\000\000\000\221\000\153\000\000\000\153\000\221\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\221\000\000\000\000\000\221\000\000\000\000\000\000\000\000\000\221\000\221\000\242\000\000\000\000\000\000\000\000\000\000\000\000\000\221\000\221\000\000\000\000\000\000\000\000\000\000\000\221\000\000\000\161\000\000\000\221\000\000\000\000\000\161\000\000\000\000\000\161\000\000\000\000\000\000\000\221\000\221\000\000\000\000\000\221\000\221\000\161\000\000\000\161\000\000\000\161\000\000\000\161\000\000\000\000\000\221\000\000\000\000\000\000\000\000\000\000\000\221\000\221\000\000\000\161\000\000\000\000\000\000\000\000\000\000\000\161\000\221\000\000\000\221\000\161\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\161\000\000\000\000\000\161\000\000\000\000\000\000\000\000\000\161\000\161\000\242\000\000\000\000\000\000\000\000\000\000\000\000\000\161\000\161\000\000\000\000\000\000\000\000\000\000\000\161\000\000\000\157\000\000\000\161\000\000\000\000\000\157\000\000\000\000\000\157\000\000\000\000\000\000\000\161\000\161\000\000\000\000\000\161\000\161\000\157\000\000\000\157\000\000\000\157\000\000\000\157\000\000\000\000\000\161\000\000\000\000\000\000\000\000\000\000\000\161\000\161\000\000\000\157\000\000\000\000\000\000\000\000\000\000\000\157\000\161\000\000\000\161\000\157\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\157\000\000\000\000\000\157\000\000\000\000\000\000\000\000\000\157\000\157\000\242\000\000\000\000\000\000\000\000\000\000\000\000\000\157\000\157\000\000\000\000\000\000\000\000\000\000\000\157\000\000\001\141\000\000\000\157\000\000\000\000\001\141\000\000\000\000\001\141\000\000\000\000\000\000\000\157\000\157\000\000\000\000\000\157\000\157\001\141\000\000\000\000\000\000\001\141\000\000\001\141\000\000\000\000\000\157\000\000\000\000\000\000\000\000\000\000\000\157\000\157\000\000\001\141\001\141\000\000\000\000\000\000\000\000\001\141\000\157\000\000\000\157\000\000\000\000\000\000\000\000\000\000\006\141\000\000\000\000\001\141\000\000\000\000\001\141\000\000\006\222\000\000\000\000\001\141\001\141\001\141\004\242\002\202\000\000\000\000\002\150\000\000\004\246\000\000\000\000\004\218\000\000\000\000\000\000\001\141\006\226\000\000\006Z\001\141\000\000\001\214\000\000\000\000\000\000\000\000\000\000\000\000\005.\001\141\001\141\000\000\000\000\001\141\001\141\000\000\000\000\000\000\000\000\000\000\006\141\005:\000\000\000\000\001\141\000\000\000\000\005F\001\194\000\000\001\141\001\141\000\000\000\000\002\190\000\000\001\141\006R\000\000\000\000\000\000\006V\001\141\006^\006\134\006\230\006\146\000\000\000\000\011\149\000\000\000\000\000\000\000\000\000\000\004\242\002\202\000\000\006\150\002\150\000\000\004\246\000\000\000\000\004\218\000\000\006\158\006\162\000\000\007\"\000\000\011\149\000\000\000\000\001\214\007.\000\000\000\000\000\000\000\000\000\000\005.\000\000\000\000\000\000\000\000\000\000\000\000\bB\000\000\000\000\006\166\000\000\b\150\005:\012&\000\000\003j\000\000\000\000\005F\001\194\000\000\000\000\000\000\000\000\000\000\002\190\000\000\000\000\006R\000\000\000\000\000\000\006V\000\000\006^\006\134\006\230\006\146\000\000\000\000\000\000\000\000\000\000\015\193\015\193\000\000\000\000\000\000\015\193\006\150\000\000\015\193\000\000\000\000\000\000\000\000\000\000\006\158\006\162\000\000\007\"\015\193\000\000\015\193\000\000\015\193\007.\015\193\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\015\193\000\000\000\000\006\166\000\000\011\149\015\193\015\193\000\000\003j\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\015\193\000\000\000\000\015\193\000\000\000\000\000\000\000\000\015\193\015\193\015\193\015\189\015\189\000\000\000\000\000\000\015\189\000\000\000\000\015\189\000\000\000\000\000\000\000\000\015\193\000\000\000\000\000\000\015\193\015\189\000\000\015\189\000\000\015\189\000\000\015\189\000\000\000\000\015\193\015\193\015\193\000\000\015\193\015\193\000\000\000\000\000\000\015\189\000\000\000\000\000\000\000\000\000\000\015\189\015\189\000\000\015\193\000\000\000\000\000\000\015\193\000\000\000\000\000\000\000\000\015\189\000\000\000\000\015\189\003\254\000\000\015\193\000\000\015\189\015\189\015\189\000\000\n\229\n\229\000\000\000\000\000\000\n\229\000\000\000\000\n\229\000\000\000\000\000\000\015\189\000\000\000\000\000\000\015\189\000\000\n\229\000\000\n\229\000\000\n\229\000\000\n\229\000\000\015\189\015\189\015\189\000\000\015\189\015\189\000\000\000\000\000\000\000\000\n\229\000\000\000\000\000\000\000\000\n*\n\229\n\229\015\189\000\000\000\000\000\000\015\189\000\000\000\000\000\000\000\000\000\000\n\229\000\000\000\000\n\229\000\000\015\189\000\000\000\000\n\229\n\229\000\242\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\n\229\000\000\000\000\000\000\n\229\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\n\229\n\229\n\229\000\000\n\229\n\229\000\000\000\000\002\001\002\001\000\000\000\000\002\001\000\000\002\001\n\229\000\000\002\001\n\229\000\000\000\000\000\000\n\229\000\000\000\000\000\000\000\000\002\001\000\000\000\000\000\000\000\000\000\000\n\229\002\001\000\n\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\001\000\000\000\000\000\000\000\000\000\000\002\001\002\001\000\000\000\000\000\000\000\000\000\000\002\001\000\000\000\000\002\001\000\000\000\000\002\001\002\001\000\000\002\001\002\001\002\001\002\001\000\000\000\000\000\000\000\000\000\000\000\000\004\242\002\202\000\000\000\000\002\150\002\001\tv\000\000\000\000\004\218\000\000\000\000\000\000\002\001\002\001\000\000\002\001\000\000\000\000\001\214\000\000\t\150\002\001\000\000\000\000\000\000\005.\000\000\000\000\012>\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\177\002\001\005:\000\000\000\000\002\001\000\000\002\001\012j\001\194\000\000\000\000\b\161\000\000\000\000\002\190\000\000\000\000\006R\000\000\000\000\000\000\006V\000\000\006^\000\000\012z\006\146\r\230\000\000\000\000\b\161\000\000\000\000\000\000\b\161\000\000\000\000\000\000\006\150\000\000\000\000\014N\014\150\014\174\014f\014\198\006\158\006\162\000\000\000\000\003\177\000\000\000\000\000\000\000\000\014\222\014\246\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\177\015\014\000\000\003\177\000\000\006\166\000\000\000\000\000\000\000\242\000\000\003j\000\000\000\000\000\000\000\000\000\000\000\000\r\254\014~\015&\015>\015n\000\000\000\000\000\000\001\173\000\000\000\000\b\161\015\134\001\173\000\000\001\210\001\173\000\000\000\000\000\000\000\000\015\158\000\000\000\000\011E\000\000\001\173\000\000\000\000\000\000\001\173\000\000\001\173\000\000\000\000\000\000\015\254\000\000\0166\015V\000\000\000\000\000\000\000\000\001\173\015\182\000\000\000\000\000\000\000\000\001\173\000\000\000\000\015\206\015\230\000\000\000\000\000\000\000\000\000\000\002\174\000\000\001\173\000\000\000\000\001\173\000\000\000\000\000\000\000\000\001\173\001\173\001\173\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\173\001\173\000\000\000\000\003\210\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\173\001\173\000\000\000\000\001\173\001\173\001\206\001\210\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\173\000\000\000\250\001\206\001\210\002&\000\000\001\173\000\000\000\000\001\214\001\254\001\173\000\000\000\000\022\234\000\000\000\000\001\173\005\217\000\000\005\138\001\214\001\254\001\234\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\246\022\238\000\000\000\000\001\250\002\182\000\000\023\022\000\000\002\178\000\000\002\190\003\022\003\"\000\000\000\000\001\250\002\166\003.\000\000\000\000\002\178\011J\002\190\003\022\003\"\006\133\021\174\000\000\000\000\003.\006\133\000\000\006\133\006\133\0032\000\000\000\000 \254\000\000\000\000\000\000\006\133\023\182\006\133\000\000\006\133\0032\006\133\000\000\006\133\000\000\000\000\000\000\000\000 \234\000\000\021\202\023\202\000\000\000\000\031\006\006\133\000\000\000\000\000\000\000\000\000\000\006\133\006\133\000\000\000\000\000\000\000\000\000\000\000\000\000\000\r\230\006\133\023\218\000\000\031\n\000\000\006\133\003f\000\000\003j\000\000\006\133\006\133\006\133\014N\014\150\014\174\014f\014\198\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\006\133\014\222\014\246\000\000\006\133\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\015\014\006\133\006\133\006\133\000\000\006\133\006\133\000\000\000\242\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\r\254\014~\015&\015>\015n\025f\006\133\000\000\007E\007E\000\000\000\000\015\134\007E\000\000\000\000\007E\006\133\000\000\000\000\000\000\015\158\000\000\001\206\001\210\000\000\007E\000\000\007E\000\000\007E\000\000\007E\000\000\000\000\000\000\015\254\031\014\0166\015V\031\030\000\000\001\214\001\254\007E\015\182\000\000\000\000\000\000\000\000\007E\007E\000\000\015\206\015\230\000\000\000\000\000\000\000\000\n\230\000\000\000\000\007E\000\000\000\000\007E\000\000\000\000\001\250\002\174\007E\007E\000\242\002\178\000\000\002\190\003\022\003\"\000\000\000\000\000\000\000\000\003.\000\000\022.\000\000\007E\000\000\000\000\000\000\007E\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0032\007E\007E\007E\000\000\007E\007E\000\000\005\209\000\000\007\214\005\209\000\000\000\000\000\000\000\000\004\242\002\202\000\000\007E\002\150\005\209\007\218\007E\000\000\004\218\000\000\005\209\000\000\000\000\000\000\000\000\000\000\000\000\007E\001\214\000\000\000\000\000\000\005\209\000\000\000\000\005.\000\000\000\000\005\209\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\005:\000\000\005\209\000\000\000\000\005\209\005F\001\194\000\000\000\000\005\209\002\238\000\000\002\190\000\000\000\000\006R\000\000\000\000\000\000\006V\000\000\006^\006\134\007\246\006\146\005\209\000\000\000\000\000\000\005\209\007A\t\254\000\000\000\000\000\000\007A\006\150\000\000\007A\005\209\005\209\000\000\000\000\005\209\006\158\006\162\000\000\007\"\007A\000\000\007A\000\000\007A\007.\007A\000\000\007\254\000\000\000\000\000\000\000\000\005\209\000\000\000\000\000\000\000\000\007A\000\000\000\000\006\166\000\000\000\000\007A\n~\000\000\003j\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\007A\000\000\000\000\007A\000\000\000\000\000\000\000\000\007A\007A\000\242\015\205\015\205\000\000\000\000\000\000\015\205\000\000\000\000\015\205\000\000\000\000\000\000\000\000\007A\000\000\000\000\000\000\007A\015\205\000\000\015\205\000\000\015\205\000\000\015\205\000\000\000\000\007A\007A\007A\000\000\007A\007A\000\000\000\000\000\000\015\205\000\000\000\000\000\000\000\000\000\000\015\205\015\205\000\000\007A\000\000\000\000\000\000\007A\000\000\000\000\000\000\000\000\015\205\000\000\000\000\015\205\000\000\000\000\007A\000\000\015\205\015\205\000\242\015\209\015\209\000\000\000\000\000\000\015\209\000\000\000\000\015\209\000\000\000\000\000\000\000\000\015\205\000\000\000\000\000\000\015\205\015\209\000\000\015\209\000\000\015\209\000\000\015\209\000\000\000\000\015\205\015\205\015\205\000\000\015\205\015\205\000\000\000\000\000\000\015\209\000\000\000\000\000\000\000\000\000\000\015\209\n~\000\000\015\205\000\000\000\000\000\000\015\205\000\000\000\000\000\000\000\000\015\209\000\000\000\000\015\209\000\000\000\000\015\205\000\000\015\209\015\209\000\242\007Y\t\254\000\000\000\000\000\000\007Y\000\000\000\000\007Y\000\000\000\000\000\000\000\000\015\209\000\000\000\000\000\000\015\209\007Y\000\000\007Y\000\000\007Y\000\000\007Y\000\000\000\000\015\209\015\209\015\209\000\000\015\209\015\209\000\000\000\000\000\000\007Y\000\000\000\000\000\000\000\000\000\000\007Y\n~\000\000\015\209\000\000\000\000\000\000\015\209\000\000\000\000\000\000\000\000\007Y\000\000\000\000\007Y\000\000\000\000\015\209\000\000\007Y\007Y\000\242\007]\007]\000\000\000\000\000\000\007]\000\000\000\000\007]\000\000\000\000\000\000\000\000\007Y\000\000\000\000\000\000\007Y\007]\000\000\007]\000\000\007]\000\000\007]\000\000\000\000\007Y\007Y\007Y\000\000\007Y\007Y\000\000\000\000\000\000\007]\000\000\000\000\000\000\000\000\000\000\007]\007]\000\000\007Y\000\000\000\000\000\000\007Y\000\000\000\000\000\000\000\000\007]\000\000\000\000\007]\000\000\000\000\007Y\000\000\007]\007]\007]\007=\t\254\000\000\000\000\000\000\007=\000\000\000\000\007=\000\000\000\000\000\000\000\000\007]\000\000\000\000\000\000\007]\007=\000\000\007=\000\000\007=\000\000\007=\000\000\000\000\007]\007]\007]\000\000\007]\007]\000\000\000\000\000\000\007=\000\000\000\000\000\000\000\000\000\000\007=\n~\000\000\007]\000\000\000\000\000\000\007]\000\000\000\000\000\000\000\000\007=\000\000\000\000\007=\000\000\000\000\n\166\000\000\007=\007=\000\242\003\241\000\000\000\000\000\000\000\000\003\241\000\000\001\210\003\241\000\000\000\000\000\000\000\000\007=\000\000\000\000\000\000\007=\003\241\000\000\000\000\000\000\003\241\000\000\003\241\000\000\000\000\007=\007=\007=\000\000\007=\007=\000\000\000\000\000\000\003\241\000\000\000\000\000\000\000\000\000\000\003\241\000\000\000\000\007=\000\000\000\000\003\237\007=\000\000\000\000\002\174\003\237\003\241\001\210\003\237\003\241\000\000\000\000\007=\000\000\003\241\003\241\003\241\000\000\003\237\000\000\000\000\000\000\003\237\000\000\003\237\000\000\000\000\000\000\000\000\000\000\003\241\003\241\000\000\000\000\003\210\000\000\003\237\000\000\000\000\000\000\000\000\000\000\003\237\000\000\003\241\003\241\000\000\000\000\003\241\003\241\000\000\000\000\002\174\000\000\003\237\000\000\000\000\003\237\000\000\003\241\000\000\000\000\003\237\003\237\003\237\000\000\003\241\0011\000\000\000\000\000\000\003\241\0011\000\000\000\000\0011\000\000\003\241\003\237\003\237\000\000\000\000\003\210\000\000\000\000\0011\000\000\0011\000\000\0011\000\000\0011\003\237\003\237\000\000\000\000\003\237\003\237\000\000\000\000\000\000\000\000\000\000\0011\000\000\000\000\000\000\003\237\000\000\0011\b\169\000\000\000\000\0011\003\237\b\169\000\000\000\000\b\169\003\237\000\000\0011\000\000\000\000\0011\003\237\000\000\000\000\b\169\0011\0011\000\242\b\169\001-\b\169\000\000\000\000\000\000\001-\0011\000\000\001-\000\000\000\000\000\000\0011\b\169\000\000\000\000\0011\000\000\001-\b\169\001-\000\000\001-\000\000\001-\000\000\0011\0011\0011\000\000\0011\0011\000\000\000\000\b\169\000\000\001-\000\000\000\000\b\169\b\169\0011\001-\000\000\000\000\000\000\001-\000\000\0011\000\000\000\000\000\000\000\000\000\000\001-\b\169\000\000\001-\000\000\0011\000\000\000\000\001-\001-\000\242\000\000\000\000\000\000\000\000\b\169\b\169\021j\001-\b\169\b\169\000\000\000\000\000\000\001-\000\000\000\000\000\000\001-\000\000\000\000\000\000\000\000\000\000\023*\000\000\000\000\b\169\001-\001-\001-\001i\001-\001-\000\000\000\000\001i\000\000\015\029\001i\000\000\000\000\000\000\001-\000\000\000\000\000\000\015\029\000\000\001i\001-\001i\000\000\001i\000\000\001i\000\000\000\000\000\000\000\000\000\000\001-\000\000\000\000\000\000\000\000\000\000\001i\000\000\000\000\000\000\000\000\000\000\001i\015\029\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\015\029\000\000\000\000\000\000\000\000\001i\000\000\000\000\000\000\000\000\001i\001i\001i\001\029\000\000\000\000\000\000\000\000\001\029\000\000\002\025\001\029\000\000\000\000\000\000\000\000\001i\000\000\000\000\002\025\015\029\001\029\000\000\001\029\000\000\001\029\000\000\001\029\000\000\000\000\001i\001i\001i\000\000\001i\001i\000\000\000\000\000\000\001\029\000\000\000\000\000\000\000\000\000\000\001\029\002\025\000\000\000\000\000\000\000\000\001\185\001i\000\000\000\000\002\025\001\185\000\000\022\018\001\185\001\029\002\150\000\000\001i\000\000\001\029\001\029\001\029\000\000\001\185\000\000\000\000\000\000\001\185\000\000\001\185\000\000\000\000\000\000\000\000\000\000\001\029\000\000\000\000\000\000\002\025\000\000\001\185\000\000\000\000\000\000\000\000\000\000\001\185\000\000\001\029\001\029\001\029\000\000\001\029\001\029\000\000\022\022\000\000\000\000\001\185\000\000\000\000\001\185\000\000\000\000\000\000\000\000\001\185\001\185\000\000\022\"\001\029\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\029\001\185\000\000\000\000\000\000\001\185\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\006\162\001\185\001\185\005\185\005\185\001\185\001\185\005\185\000\000\005\185\000\000\000\000\005\185\000\000\000\000\000\000\001\185\000\000\005\185\000\000\000\000\000\000\005\185\001\185\000\000\000\000\000\000\000\000\000\000\005\185\028J F\000\000\028b\001\185\000\000\000\000\004\242\002\202\000\000\000\000\002\150\005\185\004\246\000\000\000\000\004\218\000\000\005\185\005\185\000\000\000\000\000\000\bZ\000\000\005\185\001\214\000\000\005\185\000\000\000\000\000\242\005\185\005.\005\185\005\185\005\185\005\185\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\005:\000\000\000\000\005\185\000\000\000\000\005F\001\194\000\000\000\000\000\000\005\185\005\185\002\190\000\000\000\000\006R\000\000\000\000\000\000\006V\000\000\006^\006\134\006\230\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\242\002\202\005\185\006\150\002\150\000\000\005\018\000\000\005\185\004\218\000\000\006\158\006\162\000\000\007\"\000\000\000\000\000\000\000\000\001\214\007.\000\000\000\000\000\000\000\000\000\000\005.\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\006\166\000\000\000\000\005:\012&\000\000\003j\000\000\000\000\005F\001\194\000\000\000\000\000\000\000\000\000\000\002\190\000\000\000\000\006R\000\000\000\000\000\000\006V\000\000\006^\006\134\031~\006\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\006\150\000\000\000\000\007\241\000\000\000\000\000\000\000\000\006\158\006\162\002\202\007\"\000\000\002\150\000\000\000\000\000\000\007.\004\218\000\000\031\134\000\000\000\000\007\241\000\000\000\000\000\000\000\000\001\214\000\000\000\000\000\000\004\222\006\166\000\000\000\000\000\000\000\000\000\000\003j\000\000\004\226\000\000\005\186\000\000\000\000\000\000\000\000\000\000\000\000\005\238\005\242\000\000\000\000\006\002\001\194\000\000\000\000\000\000\000\000\000\000\002\190\000\000\000\000\006\n\000\000\000\000\000\000\011^\011b\011n\000\000\000\000\006\146\000\000\000\000\004\242\002\202\000\000\000\000\002\150\000\000\006\242\000\000\000\000\004\218\000\000\000\000\000\000\000\000\000\000\000\000\000\000\006\158\006\162\001\214\000\000\000\000\000\000\000\000\000\000\000\000\005.\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\005:\000\000\000\000\006\166\011v\000\000\005F\001\194\011\142\003j\bq\bq\000\000\002\190\000\000\000\000\006R\000\000\000\000\000\000\006V\000\000\006^\006\134\007\014\006\146\000\000\000\000\000\000\bq\bq\bq\004\242\002\202\000\000\000\000\002\150\006\150\007b\bq\000\000\004\218\000\000\000\000\000\000\006\158\006\162\000\000\007\"\000\000\000\000\001\214\000\000\000\000\007.\bq\bq\b:\005.\000\000\bq\000\000\bq\bq\bq\000\000\000\000\000\000\000\000\bq\006\166\005:\000\000\000\000\000\000\000\000\003j\005F\001\194\000\000\000\000\001\206\001\210\027\158\002\190\000\000\bq\006R\000\000\000\000\000\000\006V\000\000\006^\006\134\007~\006\146\007\146\000\000\000\000\001\214\001\218\001\234\004\242\002\202\000\000\000\000\002\150\006\150\004\246\001\246\000\000\004\218\000\000\000\000\000\000\006\158\006\162\000\000\007\"\000\000\000\000\001\214\000\000\000\000\007.\001\250\002\166\007\134\005.\0046\002\178\000\000\002\190\003\022\003\"\000\000\000\000\000\000\000\000\003.\006\166\005:\000\000\000\000\000\000\000\000\003j\005F\001\194\000\000\000\000\001\206\001\210\027\254\002\190\000\000\0032\006R\000\000\000\000\000\000\006V\000\000\006^\006\134\006\230\006\146\b\030\000\000\000\000\001\214\001\218\001\234\004\242\002\202\000\000\000\000\002\150\006\150\004\246\001\246\000\000\004\218\000\000\000\000\000\000\006\158\006\162\000\000\007\"\000\000\000\000\001\214\000\000\000\000\007.\001\250\002\166\000\000\005.\000\000\002\178\000\000\002\190\003\022\003\"\000\000\000\000\000\000\000\000\003.\006\166\005:\000\000\000\000\000\000\000\000\003j\005F\001\194\000\000\000\000\000\000\000\000\000\000\002\190\000\000\0032\006R\000\000\000\000\000\000\006V\000\000\006^\006\134\006\230\006\146\b\190\000\000\000\000\000\000\000\000\000\000\004\242\002\202\000\000\000\000\002\150\006\150\004\246\000\000\000\000\004\218\000\000\000\000\000\000\006\158\006\162\000\000\007\"\000\000\000\000\001\214\000\000\000\000\007.\000\000\000\000\000\000\005.\000\000\000\000\005\209\000\000\000\000\000\000\000\000\005\209\000\000\000\000\005\209\006\166\005:\000\000\000\000\000\000\000\000\003j\005F\001\194\005\209\000\000\000\000\000\000\005\209\002\190\005\209\000\000\006R\000\000\000\000\000\000\006V\000\000\006^\006\134\006\230\006\146\005\209\000\000\000\000\000\000\000\000\000\000\005\209\000\000\000\000\000\000\005\209\006\150\000\000\000\000\000\000\000\000\000\000\000\000\005\209\006\158\006\162\005\209\007\"\000\000\000\000\000\000\005\209\002\238\007.\000\000\000\000\000\000\000\000\000\000\000\000\005\209\005\209\000\000\000\000\000\000\000\000\000\000\005\209\005\209\006\166\000\000\005\209\000\000\000\000\000\000\003j\000\000\017\030\000\000\000\000\000\000\005\209\005\209\004\242\002\202\005\209\005\209\002\150\000\000\004\246\000\000\000\000\004\218\000\000\000\000\000\000\005\209\000\000\000\000\000\000\000\000\000\000\001\214\005\209\bu\bu\000\000\000\000 f\005.\000\000\000\000\000\000\000\000\005\209\000\000\000\000\000\000\000\000\000\000\003&\000\000\005:\bu\bu\bu\000\000\000\000\005F\001\194\000\000\000\000\000\000\bu\000\000\002\190\000\000\000\000\006R\000\000\000\000\000\000\006V\000\000\006^\006\134\006\230\006\146\000\000\bu\bu\000\000\000\000\000\000\bu\000\000\bu\bu\bu\006\150\000\000\000\000\b\025\bu\000\000\000\000\000\000\006\158\006\162\002\202\007\"\000\000\002\150\000\000\000\000\000\000\007.\004\218\000\000\000\000\bu\000\000\b\025\000\000\000\000\000\000\000\000\001\214\000\000\000\000\000\000\004\222\006\166\014\221\000\000\000\000\014\221\000\000\003j\000\000\004\226\000\000\005\186\000\000\000\000\000\000\014\221\000\000\000\000\005\238\005\242\000\000\014\221\006\002\001\194\000\000\000\000\003\026\000\000\bu\002\190\000\000\000\000\006\n\014\221\000\000\000\000\011^\011b\011n\014\221\000\000\006\146\t\201\000\000\000\000\000\000\000\000\t\201\000\000\000\000\t\201\014\221\000\000\000\000\014\221\000\000\000\000\000\000\000\000\014\221\t\201\006\158\006\162\000\000\t\201\000\000\t\201\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\014\221\000\000\000\000\t\201\014\221\000\000\000\000\000\000\000\000\t\201\000\000\006\166\011v\t\201\014\221\014\221\011\142\003j\014\221\000\000\000\000\t\201\000\000\000\000\t\201#\014\000\000\000\000\000\000\t\201\t\201\000\242\000\000\000\000\000\000\000\000\014\221\000\000\t\201\t\201\000\000\000\000\000\000\000\000\000\000\t\201\000\000\t\197\000\000\t\201\000\000\000\000\t\197\000\000\000\000\t\197\000\000\000\000\000\000\t\201\t\201\t\201\000\000\t\201\t\201\t\197\000\000\000\000\000\000\t\197\003\229\t\197\000\000\000\000\t\201\003\229\000\000\000\000\003\229\000\000\000\000\t\201\000\000\t\197\000\000\000\000\000\000\000\000\003\229\t\197\000\000\000\000\003\229\t\197\003\229\000\000\000\000\000\000\000\000\000\000\000\000\t\197\000\000\000\000\t\197\000\000\003\229\022*\000\000\t\197\t\197\000\242\003\229\000\000\000\000\000\000\000\000\000\000\t\197\t\197\000\000\000\000\000\000\000\000\003\229\t\197\000\000\003\229\000\000\t\197\000\000\000\000\003\229\003\229\003\229\000\000\000\000\000\000\000\000\t\197\t\197\t\197\000\000\t\197\t\197\000\000\000\000\000\000\003\229\003\229\000\000\000\000\003\229\000\000\t\197\000\000\000\000\000\000\000\000\000\000\000\000\t\197\003\229\003\229 n\000\000\003\229\003\229\000\000\000\000\000\000\000\000\004\242\002\202\000\000\000\000\002\150\003\229\tv\000\000\000\000\004\218\000\000\022\170\003\229\000\000\000\000\000\000\000\000\003\229\000\000\001\214\000\000\t\150\000\000\003\229\000\000\000\000\005.\000\000\000\000\012>\000\000\000\000\000\000\000\000\000\000\000\000\000\000\028\146\000\000\005:\000\000\000\000\000\000\000\000\000\000\005F\001\194\000\000\000\000\001\206\001\210\000\000\002\190\000\000\000\000\006R\000\000\000\000\000\000\006V\000\000\006^\000\000\012z\006\146\006Z\000\000\000\000\001\214\001\254\001\234\004\242\002\202\000\000\000\000\002\150\006\150\tv\001\246\000\000\004\218\000\000\000\000\000\000\006\158\006\162\000\000\000\000\027\002\000\000\001\214\000\000\t\150\000\000\001\250\002\166\000\000\005.\000\000\002\178\012>\002\190\003\022\003\"\000\000\000\000\000\000\029^\003.\006\166\005:\000\000\000\000\000\000\000\000\003j\012j\001\194\000\000\000\000\000\000\000\000\000\000\002\190\000\000\0032\006R\000\000\000\000\000\000\006V\000\000\006^\000\000\012z\006\146\000\000\000\000\000\000\000\000\000\000\000\000\004\242\002\202\000\000\000\000\002\150\006\150\tv\000\000\000\000\004\218\000\000\000\000\000\000\006\158\006\162\000\000\000\000\016Z\000\000\001\214\003f\t\150\003j\000\000\000\000\000\000\005.\000\000\000\000\012>\000\000\tE\000\000\000\000\tE\000\000\027\154\000\000\006\166\005:\000\000\000\000\000\000\000\000\003j\012j\001\194\000\000\000\000\000\000\tE\tE\002\190\tE\tE\006R\000\000\000\000\000\000\006V\000\000\006^\000\000\012z\006\146\000\000\000\000\000\000\000\000\000\000\000\000\004\242\002\202\000\000\tE\002\150\006\150\031\150\000\000\000\000\004\218\000\000\000\000\000\000\006\158\006\162\000\000\000\000\016Z\000\000\001\214\000\000\000\000\000\000\000\000\tE\000\000\005.\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\027\250\000\000\006\166\005:\000\000\000\000\000\000\000\000\003j\005F\001\194\000\000\000\000\000\000\000\000\000\000\002\190\000\000\tE\006R\tE\000\000\000\000\006V\000\000\006^\006\134\031\178\006\146\000\000\000\000\000\000\000\000\tE\000\000\000\000\007\142\tE\000\000\000\000\006\150\tE\000\000\tE\000\000\000\000\007\245\tE\006\158\006\162\000\000\007\"\004\242\002\202\000\000\000\000\002\150\007.\006\026\000\000\031\186\004\218\000\000\000\000\000\000\000\000\007\245\000\000\000\000\000\000\000\000\001\214\000\000\006\166\016\234\000\000\000\000\000\000\005.\003j\004\242\002\202\000\000\000\000\002\150\000\000\016\238\000\000\000\000\004\218\000\000\005:\000\000\000\000\000\000\000\000\000\000\005F\001\194\001\214\000\000\000\000\000\000\000\000\002\190\000\000\005.\006R\000\000\000\000\000\000\006V\000\000\006^\006\134\t:\006\146\000\000\000\000\005:\000\000\000\000\000\000\000\000\000\000\005F\001\194\000\000\006\150\000\000\000\000\000\000\002\190\000\000\000\000\006R\006\158\006\162\000\000\006V\000\000\006^\006\134\017\n\006\146\000\000\000\000\000\000\000\000\000\000\003\229\000\000\000\000\000\000\000\000\003\229\006\150\000\000\003\229\000\000\000\000\006\166\000\000\000\000\006\158\006\162\000\000\003j\003\229\000\000\000\000\000\000\003\229\000\000\003\229\000\000\017\018\000\000\000\000\003\229\000\000\000\000\003\229\000\000\000\000\000\000\003\229\022*\000\000\006\166\000\000\000\000\003\229\000\000\000\000\003j\003\229\015\021\003\229\000\000\000\000\000\000\015\021\000\000\003\229\015\021\000\000\003\229\000\000\000\000\003\229\022*\003\229\003\229\003\229\015\021\003\229\000\000\000\000\015\021\000\000\015\021\000\000\000\000\000\000\000\000\000\000\006\133\003\229\000\000\000\000\003\229\003\229\015\021\000\000\000\000\003\229\003\229\003\229\015\021\000\000\000\000\003\229\003\229 \158\000\000\003\229\003\229\000\000\000\000\000\000\015\021\003\229\000\000\015\021\000\000\003\229\000\000\000\000\015\021\015\021\000\000\000\000\022\170\003\229\000\000\003\229\003\229\022\138\003\229\003\229\003\229\000\000\000\000\000\000\015\021\000\000\000\000\000\000\015\021\000\000\000\000\000\000\000\000\000\000\000\000\000\000\022\170\003\229\015\021\015\021\002\142\000\000\015\021\015\021\000\000\000\000\004\242\002\202\000\000\000\000\002\150\000\000\b\218\015\021\000\000\004\218\000\000!n\000\000\000\000\015\021\000\000\000\000\000\000\000\000\001\214\000\000\000\000\000\000\000\000\000\000\015\021\005.\000\000\004\242\002\202\000\000\000\000\002\150\000\000\t\014\000\000\000\000\004\218\000\000\005:\000\000\000\000\000\000\000\000\000\000\005F\001\194\001\214\000\000\000\000\000\000\000\000\002\190\000\000\005.\006R\000\000\000\000\000\000\006V\000\000\006^\006\134\b\246\006\146\000\000\000\000\005:\000\000\000\000\000\000\000\000\000\000\005F\001\194\000\000\006\150\000\000\000\000\000\000\002\190\000\000\000\000\006R\006\158\006\162\000\000\006V\000\000\006^\006\134\t*\006\146\000\000\000\000\000\000\b\254\000\000\000\000\004\242\002\202\000\000\000\000\002\150\006\150\tF\000\000\000\000\004\218\006\166\000\000\000\000\006\158\006\162\000\000\003j\000\000\000\000\001\214\000\000\000\000\000\000\000\000\000\000\t2\005.\000\000\000\000\006\221\000\000\000\000\000\000\000\000\006\221\000\000\000\000\006\221\006\166\005:\000\000\000\000\000\000\000\000\003j\005F\001\194\006\221\000\000\000\000\000\000\006\221\002\190\006\221\000\000\006R\000\000\000\000\000\000\006V\000\000\006^\006\134\tb\006\146\006\221\000\000\000\000\000\000\000\000\000\000\006\221\000\000\000\000\000\000\000\000\006\150\000\000\000\000\000\000\n\230\000\000\006\229\006\221\006\158\006\162\006\221\006\229\000\000\000\000\006\229\006\221\006\221\000\242\000\000\000\000\tj\000\000\000\000\000\000\006\229\000\000\000\000\000\000\006\229\007\161\006\229\006\221\006\221\006\166\007\161\006\221\000\000\007\161\000\000\003j\000\000\000\000\006\229\000\000\000\000\006\221\006\221\007\161\006\229\006\221\006\221\007\161\000\000\007\161\000\000\000\000\000\000\n\230\000\000\000\000\006\229\000\000\000\000\006\229\000\000\007\161\000\000\006\221\006\229\006\229\000\242\007\161\000\000\000\000\000\000\000\000\000\000\000\000\006\221\000\000\000\000\000\000\000\000\007\161\006\229\006\229\007\161\000\000\006\229\000\000\000\000\007\161\007\161\000\242\000\000\000\000\000\000\000\000\006\229\006\229\000\000\000\000\006\229\006\229\000\000\000\000\000\000\007\161\000\000\000\000\000\000\007\161\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\006\229\007\161\007\161\026\142\000\000\007\161\007\161\b\173\t\254\000\000\000\000\006\229\b\173\000\000\000\000\b\173\007\161\000\000\000\000\000\000\000\000\000\000\000\000\007\161\000\000\b\173\000\000\000\000\000\000\b\173\001\189\b\173\000\000\000\000\007\161\001\189\000\000\000\000\001\189\000\000\000\000\000\000\000\000\b\173\000\000\000\000\000\000\000\000\001\189\b\173\n~\000\000\001\189\000\000\001\189\000\000\000\000\000\000\000\000\000\000\000\000\b\173\000\000\000\000\b\173\000\000\001\189\000\000\000\000\b\173\b\173\000\242\001\189\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\189\b\173\000\000\001\189\000\000\b\173\000\000\000\000\001\189\001\189\000\000\000\000\000\000\000\000\000\000\b\173\b\173\000\000\000\000\b\173\b\173\000\000\005\209\000\000\001\189\000\000\000\000\005\209\001\189\000\000\005\209\000\000\000\000\000\000\000\000\000\000\000\000\b\173\001\189\001\189\005\209\000\000\001\189\001\189\005\209\000\000\005\209\t\254\000\000\000\000\000\000\005\209\000\000\001\189\005\209\000\000\000\000\000\000\005\209\000\000\001\189\000\000\000\000\000\000\005\209\026j\000\000\000\000\005\209\007\165\005\209\001\189\000\000\n\230\007\165\000\000\005\209\007\165\000\000\005\209\000\000\000\000\005\209\000\000\005\209\002\238\000\242\007\165\005\209\n~\000\000\007\165\000\000\007\165\000\000\000\000\000\000\003:\000\000\000\000\005\209\005\209\000\000\005\209\005\209\007\165\000\000\000\000\005\209\002\238\000\242\007\165\000\000\000\000\005\209\005\209\000\000\000\000\005\209\005\209\000\000\000\000\015\021\007\165\005\209\n\146\007\165\015\021\005\209\000\000\015\021\007\165\007\165\000\242\000\000\000\000\005\209\000\000\005\209\005\209\015\021\026j\005\209\005\209\015\021\000\000\015\021\007\165\000\000\003J\000\000\007\165\006\133\n*\000\000\000\000\000\000\000\000\015\021\000\000\005\209\007\165\007\165\000\000\015\021\007\165\007\165\000\000\000\000\000\000\000\000\005\209\000\000\000\000\000\000\000\000\007\165\000\000\000\000\015\021\000\000\000\000\000\000\007\165\015\021\015\021\000\000\000\000\000\000\000\000\000\000\000\000\000\000\014\205\007\165\002\202\014\205\000\000#\030\000\000\015\021\000\000\000\000#\"\000\000\000\000\014\205\000\000\000\000\000\000\000\000\000\000\014\205\000\000\015\021\015\021\002\142\000\000\015\021\015\021\000\000\000\000\000\000\000\000\014\205\000\000\000\000\000\000\000\000\015\021\014\205\000\000\000\000!\166\000\000\000\000\015\021\000\000\000\000\001\006\001\194\001U\014\205\000\000\000\000\014\205\001U\015\021\000\000\001U\014\205\000\000\000\000\000\000\000\000\000\000\000\000\000\000#&\001U\000\000\001U\000\000\001U\000\209\001U\014\205\000\000\000\000\000\209\014\205\000\000\000\209\000\000\000\000\000\000\000\000\001U\000\000#*\014\205\014\205\000\209\001U\014\205\000\000\000\209\000\000\000\209\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001U\000\000\000\209\000\000\014\205\001U\001U\000\242\000\209\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\209\001U\000\000\000\209\000\000\000\000\000\000\000\000\000\209\000\209\000\242\000\000\000\000\000\000\000\000\001U\001U\001U\000\000\001U\001U\000\000\000\213\000\000\000\209\000\000\000\000\000\213\000\209\000\000\000\213\000\000\000\000\000\000\000\000\000\000\000\000\001U\000\209\000\209\000\213\000\000\000\209\000\209\000\213\000\000\000\213\000\000\001U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\213\000\000\000\209\000\000\000\000\000\000\000\213\000\000\000\000\000\000\000\000\000\000\000\000\000\209\000\000\000\000\000\000\000\000\000\213\000\000\000\000\000\213\000\000\000\000\000\000\000\000\000\213\000\213\000\242\001\206\002\146\000\000\000\000\002\150\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\213\000\000\000\000\000\000\000\213\000\000\001\214\001\254\001\234\002\154\000\000\000\000\000\000\000\000\000\213\000\213\001\246\000\000\000\213\000\213\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\158\002\166\000\000\000\000\000\213\002\178\000\000\002\190\003\022\003\"\000\000\000\000\b\169\000\000\026B\000\213\026F\b\169\000\000\000\000\b\169\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\169\0032\000\000\000\000\b\169\000\000\b\169\000\000\000\000\000\000\006\162\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\169\000\000\000\000\026R\000\000\000\000\b\169\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\007\153\b\169\000\000\026V\b\169\007\153\000\000\000\000\007\153\b\169\b\169\000\000\000\000\000\000\000\000\021\242\000\000\000\000\007\153\000\000\000\000\000\000\007\153\000\000\007\153\b\169\000\000\000\000\000\000\b\169\000\000\000\000\000\000\000\000\000\000\000\000\007\153\000\000\000\000\b\169\b\169\021j\007\153\b\169\b\169\000\000\000\000\006\237\t\254\000\000\000\000\000\000\006\237\000\000\007\153\006\237\000\000\007\153\000\000\000\000\000\000\b\169\007\153\007\153\000\000\006\237\000\000\000\000\000\000\006\237\000\000\006\237\000\000\000\000\000\000\000\000\000\000\000\000\007\153\000\000\000\000\000\000\007\153\006\237\000\000\000\000\000\000\000\000\000\000\006\237\n~\000\000\007\153\007\153\000\000\005\177\007\153\007\153\000\000\000\000\005\177\001\206\002\146\005\177\006\237\002\150\000\000\000\000\000\000\006\237\006\237\000\242\000\000\005\177\007\153\000\000\000\000\005\177\000\000\005\177\001\214\001\254\001\234\000\000\000\000\006\237\000\000\000\000\000\000\000\000\001\246\005\177\000\000\000\000\000\000\000\000\000\000\005\177\000\000\006\237\006\237\000\000\000\000\006\237\006\237\000\000\002\158\002\166\000\000\000\000\000\000\002\178\005\177\002\190\003\022\003\"\000\000\005\177\000\000\000\000\026B\006\237!R\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\005\153\000\000\005\177\000\000\000\000\005\153\0032\000\000\005\153\000\000\000\000\000\000\000\000\000\000\000\000\006\162\005\177\005\177\005\153\000\000\005\177\005\177\005\153\005\201\005\153\000\000!^\000\000\005\201\000\000\000\000\005\201\000\000\000\000\000\000\000\000\005\153\000\000\005\177\000\000\000\000\005\201\005\153\026V\000\000\005\201\005\229\005\201\000\000\023f\000\000\000\250\000\000\000\000\002\206\000\000\000\000\005\153\000\000\005\201\000\000\000\000\005\153\000\000\005\134\005\201\000\000\000\000\005\229\000\000\005\138\000\000\000\000\000\000\000\000\000\000\000\000\000\000\005\153\000\000\005\201\000\000\005\150\000\000\000\000\005\201\000\000\004\157\021V\000\000\004\157\000\000\005\153\005\153\000\000\000\000\005\153\005\153\000\000\000\000\029\170\005\201\000\000\011J\000\000\000\000\004\157\004\157\021\174\004\157\004\157\000\000\000\000\000\000\005\153\005\201\005\201\000\000\000\000\005\201\005\201\000\000\000\000\000\000\021\182\025\174\000\000\000\000\000\000\000\000\004\157\000\000\000\000\ta\000\000\000\000\ta\005\201\021\202\022\006\000\000\000\000\005\229\005\229\000\000\000\000\000\000\000\000\026.\000\000\000\000\000\242\ta\ta\000\000\ta\ta\000\000\000\000\000\000\026\234\000\000\000\000\000\000\000\000\000\000\004\173\000\000\000\000\004\173\000\000\000\000\015\213\015\213\000\000\000\000\ta\000\000\000\000\000\000\000\000\004\157\000\000\004\157\000\000\004\173\004\173\000\000\004\173\004\173\000\000\015\213\015\213\015\213\n\018\000\000\004\157\000\242\000\000\007\142\004\157\015\213\000\000\000\000\004\157\000\000\004\157\000\000\000\000\004\173\004\157\000\000\000\000\000\000\000\000\005\217\000\000\015\213\015\213\000\000\000\250\000\000\015\213\002&\015\213\015\213\015\213\ta\000\000\ta\000\242\015\213\000\000\022\234\000\000\000\000\000\000\005\217\000\000\005\138\000\000\000\000\007\210\000\000\000\000\007\142\ta\000\000\015\213\000\000\ta\022\238\ta\000\000\000\000\000\000\ta\023\022\000\000\000\000\004\173\000\000\004\173\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\011J\000\000\000\000\004\173\000\000\021\174\007\142\004\173\000\000\004\205\000\000\004\173\004\205\004\173\000\000\000\000\000\000\004\173\000\000\000\000\000\000\023\182\000\000\000\000\000\000\000\000\000\000\000\000\004\205\004\205\000\000\004\205\004\205\000\000\000\000\021\202\023\202\000\000\000\000\005\217\005\217\000\000\004\189\000\000\000\000\004\189\000\000\000\000\001\206\001\210\000\000\000\000\004\205\000\000\000\000\000\000\000\000\023\218\000\000\000\000\000\000\004\189\004\189\000\000\004\189\004\189\000\000\001\214\001\254\000\000\000\000\000\000\000\000\000\242\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\189\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\250\002\182\000\000\000\000\000\000\002\178\000\000\002\190\003\022\003\"\004\205\000\000\004\205\000\242\003.\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\205\000\000\000\000\007\142\004\205\000\000\0032\000\000\004\205\006U\004\205\001\206\001\210\000\000\004\205\000\000\000\000\000\000\004\189\000\000\004\189\000\000\000\000\000\000\000\000\000\000 \234\000\000\000\000\000\000\001\214\001\254\000\000\004\189\000\000\000\000\007\142\004\189\000\000\001\206\001\210\004\189\000\000\004\189\000\000\000\000\000\000\004\189\000\000\001\206\001\210\000\000\000\000\000\000\000\000\000\000\001\250\002\182\001\214\001\218\000\000\002\178\000\000\002\190\003\022\003\"\000\000\000\000\001\214\001\254\003.\000\000\000\000\000\000\000\000\000\000\000\000\001\206\001\210\000\000\000\000\000\000\000\000\000\000\001\250\002\174\000\000\0032\000\000\002\178\006Y\002\190\003\022\003\"\001\250\003\198\001\214\001\254\003.\002\178\022.\002\190\003\022\003\"\000\000\000\000\000\000 \234\003.\000\000\000\000\000\000\000\000\000\000\000\000\0032\000\000\000\000\000\000\000\000\000\000\000\000\001\250\003\230\000\000\0032\000\000\002\178\000\000\002\190\003\022\003\"\000\000\000\000\000\000\000\000\003.\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0032")) and lhs = (8, "\014\r\012\011\n\t\b\007\006\005\004\003\002\001\000\236\236\235\235\234\233\233\232\232\232\232\232\232\232\232\232\232\231\231\230\229\228\228\228\228\228\228\228\228\227\227\227\227\227\227\227\227\226\226\226\225\225\224\223\223\223\222\222\221\221\221\221\221\221\220\220\220\220\220\220\220\220\219\219\219\219\219\219\219\219\218\218\218\218\217\216\215\215\215\215\214\214\214\214\213\213\213\212\212\212\212\211\210\210\210\209\209\208\208\207\207\207\206\206\206\206\206\206\206\206\206\205\205\204\204\203\203\202\201\200\199\198\198\197\197\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\196\195\195\194\193\193\193\193\192\192\192\192\192\192\191\191\190\190\190\190\190\190\189\188\187\187\186\186\185\185\184\183\183\182\181\181\180\179\178\178\178\177\177\176\175\175\175\175\175\175\174\174\174\174\174\174\174\174\173\173\173\173\173\173\173\173\173\173\173\173\173\173\173\173\173\173\173\173\173\172\172\172\172\172\172\172\172\172\172\172\172\172\172\172\172\172\172\172\172\172\171\170\169\169\168\168\168\168\168\168\167\167\166\166\166\165\165\164\164\164\164\163\163\162\162\161\161\160\160\159\159\158\158\157\157\156\156\155\155\154\154\153\153\153\152\152\152\152\151\151\150\150\149\149\148\148\148\148\148\147\147\147\147\146\146\146\146\145\145\145\144\144\144\144\144\144\144\143\143\143\143\143\143\143\142\142\141\141\140\140\140\140\140\140\139\139\138\138\137\137\136\136\135\135\135\134\133\133\133\133\132\132\132\131\131\131\131\131\131\131\131\131\131\130\130\129\129\128\128\128\128\128\128\128\128\128\128\128\128\128\127~}||{{{{{zyyxxwwwwwwwwwwwwwwvvuuttsssssssssssssssssssssssssssssssrrqqppoonnmmlllkkjjiihhggffffffffffffffffffedcba`_^]\\[ZZZZZZZZZZZYYYYYXXXXXXXXXWWVVVVVUUTTSRQQPPPPPOONNMMMLLLLLLKKKJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJIIIIIIHHHHHHGGFFEEDDCCBBAAA@@??>>==<<;;::::998877777766655544433210000000000000000000/////.......-------------------------------------------------------------------,,++++++++++++++++++++++****************************************************)((''&&&&&&&&&&&&&&%%$$#######\"\"\"\"!! \031\031\030\029\028\028\028\027\027\026\026\026\026\026\026\026\026\026\026\025\025\024\024\024\024\023\023\022\021\021\021\021\021\020\019\019\018\018\018\017\017\017\016\016\016\016\016\016\015\015") and goto = ((16, "\001\220\001K\0005\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000'\000\000\000\000\001-\000\006\000)\000\243\000\147\000\192\000)\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000m\000\000\000\000\000\000\000\000\000\000\000E\000\000\000\000\000\000\000+\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000B\192\000\000\000\000\000\000\000\026\000\000\000\000\000\000\000\000\000\000\000\000\000\000O\180\000\186\000\000\000\234\000\139\002\014\000\000\000\000\000\000\000\022U\020\001j\001<\000\164\000\000\000\000\000\000\002&\000\000\000\000\001N\000\000\000\000\000\000\000\000\003H\000\000\002,\000\000\000\000\000\000\000\000\000\000\000\244\000\000\000\222\003j\b\148\000\000\000\000\t\214O\180\000\000\000\000\007\172\000\000\000;\000\000)\180\001\206\003H\000\000\000\000\002\246\002\030\005\242\0078\001\140\003j\004\026\001`\001\240\000$\003\024\002\176\001\014\000\000\000\000\004\188UR\000\000\0042\000\000\031\254\004\132\000\000 \1884\128\000\231\000\000\000U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \250\004 \000\000\000\000\000\000$\188\028~\000\000>\006\000\000\000\000\004\016U\154\000\000\000\000\000\000\000\000\000\000\000\000\003\234\000\000\000\000\003\244\022\026\000\000\tl\003\244\000\227\000\000\000\000\000\000.\b\000\0001R\003\244\003\244\003\244\000\000\000\000\004\206\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0004\254\000\000\002\224\006\026\000\000U\178\003(4\236\000\000\000\000\004D\000\000\000\000\000\000\003\234\000\000\000\000\000\000!\168\000\000\000\000\000\000\000\000\000\000\000\000\001\026\006.\000\000\000\000\000\000\003\234S(\000\000\003\234U\244\003\234\000\000\000\000C\"\000\000\000\000\006\244\000\000\000\000\000\000\000\000/X\006.\004V\006:5\152\000\000\000\000\000\000\000\000V8\003\234\000\0005\228\000\000\000\000\000\000V^\003\234\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\206\000\000\006\142\004\134\007<\000\000\000\000\000\000\000\000\b\222\000\000\000\000\0052\001f\005z\006\168\007\232\000\000\000\000\000\000\006\222\007,\005\178\002\250\000\000\000\000\005\222\005\224CZ\007V\005\236\001\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000C2\002\198\007\152\006\016!\212\011\022/X6\024\000\000C\178\011\136\000\000\000\000\000\000V\154\003\234\000\000-\244\000\000\000\000\000\000V\214\003\234\000\000\000\000\"~\"\188\000\000\003\136\000\000\000\000\000\000\000\000\bZWn\003\234\b\1826b\b\012\006P`\228\000\000\004\214\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\178\000\000\000\000\000\000\000\000\tJ6\242\000\000\000\000a\210\000\0007z\000\000\000\000\000\000W\170\003\234\000\000\000\000bB\000\000\000\000\000\000\000\000\b4\006\1987\132_\020\000\000\000\000bx\000\0007\158\000\000\000\000\b0\000\000\000\000\000\0008P\000\000\000\000\000\000W\206\003\234\000\000\000\000b\148\000\000\000\000\b08\142\000\000\b08\192\003\206\t\012\t.\000\000\000\000b\230\000\000\000\000\000\000\000\000\b0\000\000\000\00098\000\000\000\000\000\000\000\000W\230\003\234\000\000\000\000c\000\000\000\000\000\b0X\n\000\000\003\234\000\000\000\0009~\000\000\b0\003\130\000\000\000\000\b0\b0\000\000\b0\000\000\000\000\b0\000\000\000\000\"\188\000\000\000\000\000\000\000\000\b0#0\000\000\000\000\b0\000\000\004N\t\\\000\000\000\000\000\000\000\000\000\000\000\000\000\000c@\000\000\000\000\000\000\bz9\176\000\000\b0\000\000\000\000\000\000\000\000:*\000\000\000\000\000\000X\164\003\234\000\000\000\000c`\000\000\000\000\bz\000\000:\152\000\000\000\000\000\000X\224\003\234\000\000\000\000ct\000\000\000\000\bzc\166\000\000:\162\000\000\000\000\000\000Y<\003\234\000\000\000\000d\b\000\000\000\000\bz;\016\000\000\b\240\000\000YP\003\234\000\000\000\000\000\000\000\000\b\254\t\156#\134\b\218\006\244\002\182\000\000\b\228\007\002\t\152\002\134\t\162\000\000\000\000\011`\n\192\000\000\007\014\000\150\th\024\232\th\025\206\000\000\001v\002T\b0\000\183\n\230\000\000\000\000_\236\000\000`\000\n\132\000\000Yx\003\234Y\218\003\234\000\000\003D\000\183\000\000\026\140\001v\000\000\000\000\t\164\000\000\000\000\000\000\000\000\000\000\000\000\027^\001v R\001v\000\000\003\004\000\000\000\000\004\186\000\000\000\000\000\000\n\248\000\000\000\000\001v\001v\000\000\000\000\001v\000\000\006\146\007\030\004R\th\006\188\000\000\000\164\005\222\000\000\000\164\000\000\000\000$\210\001v\000\000\000\000\000\000\000\000\000\000\000\000\000\164&l\000\000\001v\007\144\000\164\003\016\003\242\000\000\000\000\003f\000\000\005\178\003\148;J\b0#\216;\158\n\174\nFD\n\000j\000\000\t\142\007v$\024\t\186\007\130e^e~\000\000\000\000\000\000\000\000\000\000\006\b\011\214\000\000\000\000\000\000\t\194\007\144\007\246\000\164(>\000\000\001v\000\000\000\000\000\000\011\136\000\000Z6\003\234$\134e\142\000\000e\190\000\000\000\000F\000\000\000\000\000\000MJ\012v\n\196\022~\000\000\n\166>h\000\000\000\000\000\000M\156\012\164\n\214\023>\000\000\n\166\003\218+\016\000\000\000\000\000\000M\210\012\172\n\224\023\132\000\000\n\166+r\000\000\000\000\000\000N@\012\192\n\234\023\240\000\000\n\166+\192\000\000\000\000\000\000N\146\012\218\n\252\024\012\000\000\n\166\000\000\000\000>\156\000\000\000\000\000\000N\210\012\230\011\n\024\202\000\000\n\166>\210\000\000\000\000\000\000O\018\012\246\011\016\024\222\000\000\n\166?\142\000\000\000\000\000\000Od\r\002\011\026\025\156\000\000\n\166\000\000O\210\r\028\0112\025\176\000\000\n\166\000\000)<\000\000\000\000\n\166\r \000\000\000\000,\"\000\000,p\000\000\000\000\000\000\000\000\000\000,\210\000\000\000\000- \000\000\000\000\000\000\000\000?\252\000\000\000\000@\b\000\000\000\000@^\000\000\000\000\000\000\r&\0118\026n\000\000\n\166\000\000\000\000-\130\000\000-\208\000\000\000\000\000\000\000\000\000\000P\b\r,\011>\026\130\000\000PZ\rH\011R\027@\000\000\n\166\n\166P\172\rp\011b\027T\000\000\n\166\000\000\000\000A\004\000\000\000\000A,\000\000\000\000P\254\000\000\000\000\014\208\000\000\000\000\000\000g\212\000\000\r\148\011v\028\018\000\000\n\166\000\000\bz.2\000\000\000\000.\128\000\000\005\138\000\000\000\000e~\000\000\000\000\000\000A\210\000\000\000\000\000\000\000\000A\250\000\000\000\000\000\000\000\000\014\204\000\000\000\000\000\000\002\"\000\000\005\016\000\000\012r\014~\000\000\005H\000\000\000\000\000\000\000\000\000\000\000\000\006\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\r\196\011\192\028&\000\000\n\166\000\000\014\244\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\r\208\r\224\011\236\014\b\014\206,D\001v\006\200\000\000\012\022\t\152\014\166\003\176\006\238\014\128\012\024\014\192\006\250\b\018\014\180\000\000\000\000\006j\001\144\014h\012\026\t\194\000\164\000\000\014\130\012\028\007\016\000\000Q \000\000[\200\003\234\000\000\015,\015>\000\000\b\176\000\000\003\234\014\168\012(\005\206\000\000\000\000\000\000\000\000\000\000\014\200\0030\000\128\000\000\000\000\000\000+Z\000\000`\\\000\000\012*\000\000\012:\000\000\000\000\000\000\000\000\004\226\000\000\000\000\000\000?B\003\244\000\000\003\244\001\166\000\000\000\000\000\000\000\000\012<\b\206\000\0005@\000\000\b\238\000\000H>\003\244\003\244\000\000H\216\003\244\003\244\012@\tD\000\000\000\000\bR`\172\014\178\014\184\012B\006L\tj\000\000\012R\006\148\t\166\000\000\014\190\014\196\012f\014\242\014\206,\244\001v\000\000\012h\015p\000\000\006\188\000\000\nT\000\000\015x\000\0000\212\001\152\015H\012j\015\134\000\0001\026\001\224\015Z\000\000\000\000\004T\007\206\000\000\n\212\000\0002\024\001v\011*\000\000\007\218\000\000\000\000\015\012\012n2\230\003\214\000\000\015\014\012\150\007T\014\200\015\020\015\026\012\162\016\142\000\000\0150\004P\000\000\000\000\000\000\000\000\001\005\012\174\015\004\\\004\003\234\000\000\001\030\012\182\015\204\000\000\000\000\000\000\000\000\000\000\000\000\\@\005N\000\000\012\194\016(\000\000\000\000\000\000\000\000\000\000\000\000Q\194\011\192\000\000\012\214\000\141\000\000\012\218\012\222\b \000\000\001,S\128\000\000\002\214\000\000\\\156\003\234\003\234\000\000\000\000\005\222\000\000\t\136\000\000\002`\005\222\005\222\000\000\012\224S\152\003\234\\\216\003\234\011\216\000\000\000\000\000\000\000\000\011\226\000\000\000\000\002\232\000\000\005\250\015\142\012\252\016\172\015H\000\000\000\000\004\168\006b\015\150\000\000\000\000\r\000\016\178\015N\000\000\000\000\006N\000\000+\248\000\000\024\140.\162\003\234\000\000\"\242.\248\000\000B\236\000\000\000\000\000\000\005\222\000\000\000\000\012\018\015\154\r\014\016\188\015`\000\000\000\000\\\236\012\146\015\176\000\000\000\000\000\000`\204\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\204\000\000\015\188\r$\bN\000\000\016\184\016j\012\248\015\196\000\000\000\000\015\206\r,\bf\000\000\000\000\tL4\128\006X\000\000\000\000\000\000\007d\015\138\r:\000\000\015\148\007d\000\000\016\134\r\026\015\224\000\000\000\000\000\000\003\234\000\015\002\188\006l\000\000\000\000\000\000\000\000\015\160\r<\000\000\006\250\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\234\015\134\rH\016\254\015\154\000\000\011\156\000\171\rJ\015j\000\181\002\154\rL\0162\000\000\016\236/\166\000\000\000\000/\236\000\000\r\154\000\000\002n\000\000\000\000\000\000\000\000\000\000\000\000]2\003\234\000\000\016\24402\000\000\000\0000x\000\000\000\213\rh\016\150\000\000\000\000A\140R\026\016L\000\000]D\003\2341r\000\000\000\0001\184\000\000\000\000\r\236\000\000\002\\\000\000\000\000\000\000\000\000\000\000\000\000R.\000\000\000\000B\026R\134\016N\000\000]\222\003\2341\254\000\000\000\0002D\000\000\000\000\rl3>\014\b\000\000\r\134\r\142\000\162\002\246\r\182\b\228\r\190\016\164\028\154\014>\000\000\r\192\r\194\t\168\000\000\004@T\022\000\000\000\205\000\000\r\196\031\152+0\004\248\015p\t\n\000\000:\136)<\000\000\007\206\000\000\000\000\007\206\000\000\000\000\007\206\t\196\000\000\011\000\007\206\016\168\028\228\014d\000\000\007\206\000\000\000\000]\242\000\000\000\000\000\000\007\206\000\000\000\000\014r\000\000\r\022\b\000\014~\000\000\r\236S\236\014\148\000\000\000\000\000\000\000\000\014\152\000\000\000\000\000\198\000\000\007\206^J\000\000\020\214\007\206I\020\000\000\014\154\016\004\014 \017$\015\194\000\000^\198\014\160\016\014\000\000\000\000\000\000?\030\015\188\0140\002\182\029\000\014\220\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\n\136\014\234\000\000\016\"\000\000\000\000\000\000\000\000\014\246a\152\000\000\000\000\000\000\n\136\000\000\000\000\000\000\000\000\000\0003\132\000\000\000\000\000\000\000\000\000\000\000\000\015\200\014r\029\172\000\000\n\166\000\000\000\000\000\000\000\000\000\000\015\204\014t\n\136\000\164\000\0003\016\000\000\001v\000\000\017&\000\000\000\000\000\000\000\000\000\000\030j\000\000\000\000\000\000\000\000\015\208\014~\030\134\000\000\000\000\000\0007\184\000\000\001v\000\000\007~\005r\003H\007j\007\127\001\020\007q\005\153\005\155\005\157\003N\000\206\007&\b\020\007V\007r\007\128\000\213\000\231\003\137\b\168\003E\003s\007i\002\206\002\229\002\230\001\172\001'\001\178\003F\002\156\001\200\003G\002\233\002\206\003D\001w\0008\003c\003H\007j\b\130\000\129\007q\007R\002\184\007s\003N\007(\000\206\007\131\002\206\007r\007\128\0008\000\213\000\216\b\169\006?\002\229\002\230\001\172\007T\000\213\007)\000\152\003u\000\162\002\143\007+\b\204\002\230\001\172\007B\007\220\002\196\003c\002\197\002\168\000\140\001w\007t\005.\006\249\007s\000\131\003s\002\206\006B\0056\007U\007u\003x\006\214\b\022\003y\002|\000\206\002\233\b\172\003D\001w\003E\000\213\000\231\005\205\006D\b#\b$\005\165\007v\003\135\001w\001\200\003G\0057\007\132\006.\006\207\007t\b%\b&\005\217\004\206\003s\002\169\001w\001\153\006E\007u\006/\007\133\b'\005\185\0060\003\137\002\233\b\173\003D\001w\001w\002\229\002\230\001\172\002\206\007y\002\198\006\253\007v\000\139\007{\001\020\002~\002\206\007\132\bv\003H\003x\005\223\002\232\003y\007r\002\150\007}\003N\004\217\002\154\003E\000\213\007\133\007\173\005:\002\195\003D\001w\001\153\003\135\002\206\001\200\003G\002\149\007~\b\205\007y\003D\001w\b\132\005\168\007{\001\200\007n\006\154\000\182\003c\007\134\003x\001\179\002\149\003y\006\218\003\137\007}\000\221\000\206\007i\003E\002\229\002\230\001\172\000\213\000\216\000\156\002\155\0051\003\135\bd\001\200\003G\002\156\007~\002\205\003H\007j\007\127\007\208\007q\000\177\000\155\007t\003N\002\157\005\158\000\186\002\149\007r\007\128\002\012\001\172\003\137\002\206\003E\003s\007i\000\189\002\229\002\230\001\172\002\184\br\003F\be\001\200\003G\002\233\006\209\003D\001w\007\138\003c\003H\007j\007\127\000\206\007q\001\020\000\192\007s\003N\000\213\000\216\b5\006.\007r\007\128\001\171\001\172\007\207\001s\002\209\002\197\001w\001x\001w\be\006/\002\164\003u\006F\0065\001\023\000\227\000\213\007y\bq\001\173\001\205\003c\001\175\001\176\002\196\000\247\007t\006\161\006\162\007s\000\221\003s\000\228\007\136\007&\002\208\007u\003x\000\213\000\231\003y\002\162\006B\002\233\001w\003D\001w\003E\006\170\001\210\001\019\001\020\006\171\005\185\002\206\007v\003\135\002\210\001\200\003G\006D\007\132\001\020\002\206\007t\001\211\001\242\000\152\006*\003s\000\157\007(\000\181\002\198\007u\001s\007\133\002\206\001w\001\153\003\137\002\233\006E\003D\001w\000\187\001\020\007)\001\154\000\191\007y\000n\007+\007v\005c\007{\007;\000\233\001\209\007\132\000\234\005\254\003x\000\235\000\236\003y\005\165\005\161\007}\001w\001\181\002\182\003E\001w\007\133\002\209\004\145\001\157\000\227\001w\001\153\003\135\001\020\001\200\003G\b \007~\001.\007y\005\162\000\206\bf\bg\007{\005\242\000\228\000\213\000\231\001\167\000\200\003x\000\213\000\231\003y\b<\003\137\007}\001\214\002\207\001\215\003E\007i\002\209\002\229\002\230\001\172\006\171\005\185\004\177\003\135\b!\001\200\003G\007\247\007~\b\207\b\208\001s\003H\b\210\001w\001x\007q\b\"\001s\005\233\003N\001w\001\153\001\198\000\203\007r\b\212\003\137\b\029\002\206\001\200\002%\001\231\0050\001\200\001\179\001\021\007i\007R\002\229\002\230\001\172\b\227\007&\000\233\001;\000\220\000\234\002\195\003c\000\235\000\236\b\219\002\149\003H\b\220\007T\007s\007q\001\003\001\157\0055\003N\000\239\000\206\002]\001\172\007r\b\228\001V\000\213\000\216\005\165\002\167\b\176\001w\b=\002\156\005\235\000\213\007(\002\184\005\142\b\141\007U\001\173\002\250\000\206\001\175\001\176\b0\003c\007t\000\213\000\231\002\206\007)\003s\002\206\007s\007\212\007+\007u\001s\0008\0072\001w\001x\001\020\002\233\b\177\003D\001w\002\197\002-\001s\001w\001\020\001w\001\153\000\152\007v\b+\002\143\b\215\002\229\002\230\001\172\005=\001\172\005\018\0023\006.\001\002\007t\007&\005\156\005\155\005\157\003s\003H\001\020\007\133\001s\007u\006/\001w\001\153\003N\006O\b)\002\233\001\200\003D\001w\001_\007y\0051\004L\001\172\b\142\007{\0008\007v\001\209\b\232\006\019\002\206\003x\b4\000\221\003y\007(\006_\007}\002\196\001\181\003c\003E\001w\b\148\002\206\002\198\bO\007\133\0051\002\184\003\135\007)\001\200\003G\001a\007~\007+\b\143\000\206\0008\007/\007y\b\150\000\213\000\213\000\231\007{\b!\007i\005\025\002\229\002\230\001\172\003x\003\137\0024\003y\0025\002\188\007}\b\"\002\197\001i\003E\001w\003H\007j\007\217\003s\007q\001\020\001\015\003\135\003N\001\200\003G\002\206\007~\007r\007\128\002\233\0067\003D\001w\000\239\001n\006a\b\151\001\198\001&\007i\001q\002\229\002\230\001\172\006H\003\137\001\231\0014\001\200\001\179\000\227\003c\005v\001\172\b\219\001\020\003H\b\220\001\128\007s\007q\005\142\003u\002\206\003N\b\152\005\192\000\228\002\184\007r\b\223\005\142\000\213\000\213\006d\000\152\002\206\000\184\002\143\002\198\000\206\005\138\005\185\001\020\b\153\002\212\000\213\000\231\004/\002\184\001\164\003y\004\223\003c\007t\002\206\006P\002\199\003E\003s\002\197\007s\005\196\001w\007u\0061\001\020\003\135\000\213\001\200\003G\002\233\001\020\003D\001w\006\147\005\155\005\157\002\185\0061\001:\002\197\005\211\007v\001w\006\167\005\155\005\157\000\213\007\132\001\020\003\137\000\233\b\149\004O\006e\007t\000\221\000\235\000\236\bC\003s\005\142\003\145\007\133\007\246\007u\005^\006/\001\203\006j\005h\006g\002\233\b3\003D\001w\007i\007y\002\229\002\230\001\172\001\020\007{\000\240\007v\005d\b\226\001U\002\198\003x\0061\002l\003y\003H\007j\007}\005m\007q\002p\003E\001Y\003N\001\171\001\172\002y\007\133\007r\007\213\003\135\002\198\001\200\003G\002\181\007~\002\184\006\175\005\155\005\157\000\152\007y\002\130\002\143\001\173\003!\007{\001\175\001\176\007\209\002\209\006v\003c\003x\003\137\000\152\003y\006\132\002\143\007}\007s\000\221\001\020\003E\000\222\002\204\000\227\000\152\002\197\006\142\002\143\001w\003\135\005\142\001\200\003G\007E\007~\002\224\006w\006\184\006x\002\206\000\228\002\227\001\020\bn\002\184\001h\000\213\000\231\002\241\001\020\003\006\000\221\007t\003\137\000\222\001\020\005\229\003s\007I\001w\005\237\000\206\007u\001\020\b#\b$\001p\000\213\000\216\002\233\006y\003D\001w\002\242\005\246\005\185\002\197\b%\b&\001w\001\180\007v\006\151\005\185\bV\005\155\005\157\007\216\003\t\b'\005\185\000\224\001\181\003\015\002\198\001w\000\221\006%\006\154\001\127\001w\001\160\007\133\0008\006z\000\233\000\227\001\020\000\234\003,\005i\000\235\000\236\001\020\006{\006|\007y\006}\002\206\005\235\001\020\007{\001\020\000\228\000\224\005\158\003=\002|\003x\000\213\000\231\003y\003#\002\206\007}\b\027\005\185\bF\003E\000\227\b[\006\185\bN\000\221\002 \002\198\000\222\003\135\000\206\001\200\003G\007-\007~\003$\000\213\000\231\000\228\001\163\002\030\000\221\001\020\001\198\000\213\000\231\003B\001\020\003K\003_\003o\006\127\001\199\003\137\001\200\001\179\006\129\006\139\007-\001\202\003}\000\221\000\232\001\020\000\222\002~\000\227\003\131\007\221\006\181\000\233\005\128\006\154\000\234\002\206\002\150\000\235\000\236\006\186\002\154\001\020\000\213\001\213\000\228\001\236\003\140\005\170\006\182\003\151\000\213\000\231\006\161\006\162\002\206\000\221\000\232\001s\000\222\000\224\001w\001x\001\235\000\240\000\233\003\157\000\255\000\234\003\163\006\154\000\235\000\236\006\163\006\179\000\227\006\157\002$\006\171\005\185\001\020\0022\001\020\001\020\001\020\002\206\000\221\002\155\002c\000\222\007&\000\227\000\228\002\156\001\020\002h\000\224\000\240\000\213\000\231\000\255\001\020\007\142\006\154\002k\002\157\003\169\005\184\000\228\002o\000\233\000\227\b]\000\234\000\213\000\231\000\235\000\236\002\184\001\020\005\174\0063\001\020\003\175\001w\002q\005\193\007(\000\228\000\224\002t\003\181\003\187\006\154\000\213\000\231\007\020\007\028\001\020\003\193\001w\001\020\005\177\007)\000\227\006\161\006\162\005q\007+\000\232\002\197\0074\007,\001w\001w\003\199\005\197\000\233\003\205\000\224\000\234\000\228\002\172\000\235\000\236\006\163\006\179\000\213\000\231\003\211\006\171\005\185\002\206\000\233\000\227\bk\000\234\002\136\001\020\000\235\000\236\006\161\006\162\003\217\002\138\000\232\002\153\002\171\005O\000\240\005K\000\228\000\255\000\233\002\223\001\020\000\234\000\213\000\231\000\235\000\236\006\163\006\179\001\020\001\020\000\244\006\171\005\185\002\229\002\230\001\172\001\020\002|\003\223\006\161\006\162\002\226\002\184\000\232\002\198\002\240\003\229\003\235\003H\003\005\000\240\000\233\001\020\000\255\000\234\001\020\003N\000\235\000\236\bY\bZ\002\206\007\165\003\241\006\171\005\185\001\020\003\247\005\212\006\161\006\162\007\159\003\b\000\232\002\197\003\014\003\026\001w\003\023\003\029\001\020\000\233\003\253\000\240\000\234\003c\000\255\000\235\000\236\006\163\006\179\002]\001\172\002~\006\171\005\185\002\174\004\011\002t\003(\003+\001\171\001\172\002\150\002\206\004\017\0032\002\154\004\021\000\213\001\020\001\173\002\250\000\240\001\175\001\176\000\255\002|\001\020\001\020\004,\001\173\003!\004[\001\175\001\176\000n\004e\003<\002\229\002\230\001\172\005\230\003s\001s\001\020\004o\001w\001x\001\020\002-\004z\003A\002\198\003H\002\233\004\132\003D\001w\002\229\002\230\001\172\003N\002\155\001\020\004\142\005\018\0023\005\028\002\156\003J\003R\004\154\003^\003H\004\164\007&\003h\003n\001\020\004\174\002\157\003N\002~\004P\005\234\002\177\001\020\003u\002\206\001\020\003c\004\181\002\150\003\134\004\220\003|\002\154\004\236\000\213\001\209\002\206\004-\003\130\003\139\001\020\002\206\003\150\004\241\001\020\001\180\003c\001\181\007(\003x\001w\004\248\003y\001\020\003\156\003\162\003\168\001\181\001\020\003E\001w\005\014\004,\001\020\007)\002\206\003\174\000n\003\135\007+\001\200\003G\001\020\0076\003s\003\180\005\021\005\026\002\155\001\020\001\171\001\172\001\020\0024\002\156\0025\002\233\001\020\003D\001w\001\171\001\172\003\137\003\186\003s\006\030\002\157\007\\\005H\001\020\001\173\001\205\001\020\001\175\001\176\001\020\002\233\006>\003D\001w\001\173\001\205\006C\001\175\001\176\001\020\001\198\003\192\003\198\003u\005Y\003\204\004\231\001\020\003\210\001\231\001\198\001\200\001\179\002\206\001\210\003\216\003-\001\020\0052\001\199\006k\001\200\001\179\003u\001\210\005`\005f\005p\005u\003x\001\211\003\011\003y\007^\005\132\005\149\003\222\001\171\001\172\003E\001\211\003\011\002\206\005\151\005\169\002\184\005\183\005\191\003\135\004/\001\200\003G\003y\0040\001\020\005\195\003\228\001\173\001\205\003E\001\175\001\176\003\234\001\209\002\206\005\201\005\207\005\219\003\135\005\240\001\200\003G\003\137\001\209\007\211\001\181\001\020\002\197\001w\003L\001w\002\206\003\240\003\246\006s\001\181\003M\001\210\001w\005\245\003\252\004\004\003\137\004\n\004\016\005\250\003M\001\020\001\020\001\020\001\020\006\004\004\027\001\211\003\011\006\n\001\020\001\020\001\171\001\172\004\"\006\021\001\214\006\128\001\215\001\020\001\020\004Z\001\020\001\020\004d\006 \001\214\0062\001\215\006$\0069\001\020\001\173\001\205\001s\001\175\001\176\001w\001x\006\136\001\209\001\020\001\020\001\020\006J\001\020\006T\004n\001\198\002\206\002\198\004y\001\181\006m\003`\001w\006\159\001\231\001\198\001\200\001\179\004\131\001\210\003M\006\131\001\020\007&\001\231\006\141\001\200\001\179\001\020\001\171\001\172\004\141\006\153\006\173\001\020\001\211\003\011\004\153\001\020\006\189\006\195\006\199\001\171\001\172\001\020\004\163\001\214\002\206\001\215\001\173\001\205\004\173\001\175\001\176\001\020\006\227\001\020\007\011\001\020\001\020\007(\002\206\001\173\001\205\004\180\001\175\001\176\004\192\001\209\004\219\007G\003p\004\235\001\020\007\016\001\020\007)\006\208\001\198\001\210\001\181\007+\001\020\001w\003~\007H\004\240\001\231\002\206\001\200\001\179\003M\001\210\001\020\0077\001\211\003\011\001\020\007\021\0073\007\027\007#\001\171\001\172\001\020\001\020\004\247\002\206\001\211\003\011\005\007\001\020\001\020\001\020\002\206\001\171\001\172\001\214\006\243\001\215\002\206\007L\001\173\001\205\005\r\001\175\001\176\001\020\001\209\001\020\005*\002\206\007\r\002\206\002\206\001\173\001\205\002\206\001\175\001\176\001\181\001\209\001\020\001w\003\132\0053\001\020\007a\005G\001\198\005M\003M\001\210\001\181\005_\007m\001w\003\141\001\231\007\024\001\200\001\179\005X\005Z\003M\001\210\001\020\002\206\001\211\003\011\001\020\001\020\001\020\001\020\002\206\001\171\001\172\001\214\007:\001\215\002\206\001\211\003\011\002\206\005]\007F\002\206\005b\007\148\007\158\001\214\007J\001\215\001\020\007\178\001\173\001\205\005k\001\175\001\176\005g\001\209\007N\007\210\007S\007_\007\254\b\r\007f\001\198\002\206\b\030\b*\001\181\001\209\b8\001w\003\152\001\231\001\020\001\200\001\179\001\198\005j\003M\001\210\001\181\001\020\b:\001w\005o\001\231\002\206\001\200\001\179\001\171\001\172\003M\007p\002\206\002\206\001\211\003\011\005t\005\127\007z\002\206\002\206\001\171\001\172\001\214\007\129\001\215\005~\007\214\001\173\001\205\b/\001\175\001\176\001\020\001\020\005\131\001\214\005\182\001\215\001\020\005\194\001\173\001\205\005\190\001\175\001\176\005\206\001\209\001\020\005\200\003\158\001\020\001\020\005\202\b_\001\198\001\020\001\020\001\210\001\181\001\020\005\226\001w\003\164\001\231\005\214\001\200\001\179\001\198\005\225\003M\001\210\005\220\001\020\001\211\003\011\bm\001\231\005\224\001\200\001\179\001\171\001\172\by\b\213\005\239\005\244\001\211\003\011\006S\b\224\b\229\005\249\005\252\001\171\001\172\001\214\006\000\001\215\006\b\006\015\001\173\001\205\006\026\001\175\001\176\006R\001\209\006K\006L\006Q\006U\006V\006u\001\173\001\205\006n\001\175\001\176\001\181\001\209\006o\001w\003\170\006t\006\138\006\134\006\135\001\198\006\137\003M\001\210\001\181\006\180\006\152\001w\003\176\001\231\006\156\001\200\001\179\006\158\006\160\003M\001\210\006\172\006\188\001\211\003\011\006\190\006\191\006\196\006\200\006\204\001\171\001\172\001\214\006\222\001\215\006\229\001\211\003\011\006\233\007\001\007\022\007.\0078\007h\007b\001\214\007c\001\215\007g\007l\001\173\001\205\007|\001\175\001\176\007\147\001\209\007\157\007\168\007\177\007\253\b\006\b\012\b\025\001\198\b-\b.\b2\001\181\001\209\b^\001w\003\182\001\231\bb\001\200\001\179\001\198\bl\003M\001\210\001\181\bp\b\199\001w\000\000\001\231\000\000\001\200\001\179\001\171\001\172\003M\000\000\000\000\000\000\001\211\003\011\000\000\000\000\000\000\000\000\000\000\001\171\001\172\001\214\000\000\001\215\000\000\000\000\001\173\001\205\000\000\001\175\001\176\000\000\000\000\000\000\001\214\000\000\001\215\000\000\000\000\001\173\001\205\000\000\001\175\001\176\000\000\001\209\000\000\000\000\003\188\000\000\000\000\000\000\000\000\001\198\000\000\000\000\001\210\001\181\000\000\000\000\001w\003\194\001\231\000\000\001\200\001\179\001\198\000\000\003M\001\210\000\000\000\000\001\211\003\011\000\000\001\231\000\000\001\200\001\179\001\171\001\172\000\000\000\000\000\000\000\000\001\211\003\011\000\000\000\000\000\000\000\000\000\000\001\171\001\172\001\214\000\000\001\215\000\000\000\000\001\173\001\205\000\000\001\175\001\176\000\000\001\209\000\000\000\000\000\000\000\000\000\000\000\000\001\173\001\205\000\000\001\175\001\176\001\181\001\209\000\000\001w\003\200\000\000\000\000\000\000\000\000\001\198\000\000\003M\001\210\001\181\000\000\000\000\001w\003\206\001\231\000\000\001\200\001\179\000\000\000\000\003M\001\210\000\000\000\000\001\211\003\011\000\000\000\000\000\000\000\000\000\000\001\171\001\172\001\214\000\000\001\215\000\000\001\211\003\011\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\214\000\000\001\215\000\000\000\000\001\173\001\205\000\000\001\175\001\176\000\000\001\209\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\198\000\000\000\000\000\000\001\181\001\209\000\000\001w\003\212\001\231\000\000\001\200\001\179\001\198\000\000\003M\001\210\001\181\000\000\000\000\001w\000\000\001\231\000\000\001\200\001\179\001\171\001\172\003M\000\000\000\000\000\000\001\211\003\011\000\000\000\000\000\000\000\000\000\000\001\171\001\172\001\214\000\000\001\215\000\000\000\000\001\173\001\205\000\000\001\175\001\176\000\000\000\000\000\000\001\214\000\000\001\215\000\000\000\000\001\173\001\205\000\000\001\175\001\176\000\000\001\209\000\000\000\000\003\218\000\000\000\000\000\000\000\000\001\198\000\000\000\000\001\210\001\181\000\000\000\000\001w\003\224\001\231\000\000\001\200\001\179\001\198\000\000\003M\001\210\000\000\000\000\001\211\003\011\000\000\001\231\000\000\001\200\001\179\001\171\001\172\000\000\000\000\000\000\000\000\001\211\003\011\000\000\000\000\000\000\000\000\000\000\001\171\001\172\001\214\000\000\001\215\000\000\000\000\001\173\001\205\000\000\001\175\001\176\000\000\001\209\000\000\000\000\000\000\000\000\000\000\000\000\001\173\001\205\000\000\001\175\001\176\001\181\001\209\000\000\001w\003\230\000\000\000\000\000\000\000\000\001\198\000\000\003M\001\210\001\181\000\000\000\000\001w\003\236\001\231\000\000\001\200\001\179\000\000\000\000\003M\001\210\000\000\000\000\001\211\003\011\000\000\000\000\000\000\000\000\000\000\001\171\001\172\001\214\000\000\001\215\000\000\001\211\003\011\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\214\000\000\001\215\000\000\000\000\001\173\001\205\000\000\001\175\001\176\000\000\001\209\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\198\000\000\000\000\000\000\001\181\001\209\000\000\001w\003\242\001\231\000\000\001\200\001\179\001\198\000\000\003M\001\210\001\181\000\000\000\000\001w\000\000\001\231\000\000\001\200\001\179\001\171\001\172\003M\000\000\000\000\000\000\001\211\003\011\000\000\000\000\000\000\000\000\000\000\001\171\001\172\001\214\000\000\001\215\000\000\000\000\001\173\001\205\000\000\001\175\001\176\000\000\000\000\000\000\001\214\000\000\001\215\000\000\000\000\001\173\001\205\000\000\001\175\001\176\000\000\001\209\000\000\000\000\003\248\000\000\000\000\000\000\000\000\001\198\000\000\000\000\001\210\001\181\000\000\000\000\001w\003\254\001\231\000\000\001\200\001\179\001\198\000\000\003M\001\210\000\000\000\000\001\211\003\011\000\000\001\231\000\000\001\200\001\179\001\171\001\172\000\000\000\000\000\000\000\000\001\211\003\011\000\000\000\000\000\000\000\000\000\000\001\171\001\172\001\214\000\000\001\215\000\000\000\000\001\173\001\205\000\000\001\175\001\176\000\000\001\209\000\000\000\000\000\000\000\000\000\000\000\000\001\173\001\205\000\000\001\175\001\176\001\181\001\209\000\000\001w\004\012\000\000\000\000\000\000\000\000\001\198\000\000\003M\001\210\001\181\000\000\000\000\001w\004\018\001\231\001s\001\200\001\179\001w\001x\003M\001\210\000\000\000\000\001\211\003\011\000\000\000\000\000\000\000\000\004\022\001\172\000\000\001\214\000\000\001\215\000\000\001\211\003\011\000\000\000\000\000\000\000\000\000\000\000\000\007i\001\214\007&\001\215\000\000\0042\001\205\000\000\001\175\001\176\000\000\000\000\001\209\000\000\000\000\b\219\000\000\000\000\b\220\000\000\001\198\007q\000\000\000\000\001\181\001\209\000\000\001w\000\221\001\231\007r\001\200\001\179\001\198\002-\003M\000\000\001\181\000\000\007(\001w\000\000\001\231\000\000\001\200\001\179\000\000\000\000\003M\000\000\0047\0023\000\000\000\000\000\000\007)\000\248\000\000\001\171\001\172\007+\001\214\007s\001\215\007[\000\000\000\000\000\000\000\000\000\000\000\000\001\171\001\172\000\000\001\214\000\000\001\215\000\000\001\173\001\205\000\000\001\175\001\176\000\000\001\209\000\000\000\000\000\000\000\000\000\000\000\000\001\173\001\205\001\198\001\175\001\176\001\181\007t\000\000\001w\004\\\000\000\001\231\000\000\001\200\001\179\001\198\007u\001\210\000\000\000\000\000\000\000\000\004f\000\000\001\231\000\227\001\200\001\179\000\000\000\000\001\210\000\000\000\000\001\211\003\011\007v\000\000\b\222\000\000\004M\004N\0024\000\228\0025\000\000\000\000\001\211\003\011\000\213\000\231\000\000\000\000\000\000\000\000\000\000\000\000\007x\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\209\000\000\000\000\000\000\007y\000\000\000\000\000\000\001\198\007{\001\171\001\172\001\181\001\209\000\000\001w\000\000\001\231\000\000\001\200\001\179\000\000\007}\003M\000\000\001\181\000\000\000\000\001w\000\000\001\173\001\205\000\000\001\175\001\176\000\000\003M\000\000\000\000\000\000\007~\000\233\000\000\000\000\000\234\001\171\001\172\000\235\000\236\001\214\000\000\001\215\004p\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\210\000\000\001\214\000\000\001\215\001\173\001\205\000\000\001\175\001\176\000\000\000\000\000\000\000\254\000\000\000\000\001\211\003\011\000\000\000\000\000\000\001\198\000\000\000\000\000\000\000\000\000\000\004{\000\000\000\000\001\231\000\000\001\200\001\179\001\198\001\210\000\000\000\000\000\000\001\171\001\172\000\000\000\000\001\231\000\000\001\200\001\179\000\000\000\000\001\209\000\000\001\211\003\011\001\171\001\172\000\000\000\000\000\000\000\000\001\173\001\205\001\181\001\175\001\176\001w\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003M\001\173\001\205\000\000\001\175\001\176\000\000\000\000\000\000\004\133\000\000\000\000\001\209\000\000\000\000\000\000\000\000\001\210\000\000\000\000\000\000\000\000\000\000\004\143\001\181\000\000\001\214\001w\001\215\000\000\000\000\001\210\000\000\001\211\003\011\003M\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\211\003\011\000\000\000\000\000\000\000\221\000\000\000\000\006_\000\000\000\000\001\198\000\000\000\000\001\214\000\000\001\215\000\000\000\000\001\209\001\231\000\000\001\200\001\179\000\000\000\000\000\000\000\000\000\000\001\171\001\172\001\181\000\000\001\209\001w\000\000\000\000\000\000\000\000\001\171\001\172\000\000\003M\000\000\000\000\001\181\001\198\000\000\001w\001\173\001\205\000\000\001\175\001\176\000\000\001\231\003M\001\200\001\179\001\173\001\205\000\000\001\175\001\176\000\000\000\000\000\000\000\000\001\214\000\000\001\215\004\155\000\000\000\000\000\000\000\000\000\000\000\000\006a\001\210\000\000\004\165\001\214\000\000\001\215\000\000\000\000\000\000\000\000\001\210\002|\000\000\000\000\000\227\000\000\001\211\003\011\000\000\000\000\000\000\001\198\000\000\000\000\000\000\000\000\001\211\003\011\000\000\000\000\001\231\000\228\001\200\001\179\000\000\001\198\000\000\000\213\006d\000\000\000\000\000\000\000\000\000\000\001\231\000\000\001\200\001\179\000\000\001\209\000\000\000\000\000\000\000\000\000\000\001\171\001\172\000\000\000\000\001\209\000\000\001\181\000\000\000\000\001w\001\171\001\172\002~\000\000\000\000\002\173\001\181\003M\000\000\001w\001\173\001\205\002\150\001\175\001\176\000\000\002\154\003M\000\213\000\000\001\173\001\205\000\000\001\175\001\176\000\000\000\000\000\000\000\000\000\000\000\000\000\233\004\175\001\214\006e\001\215\000\000\000\235\000\236\000\000\001\210\000\000\004\182\001\214\000\000\001\215\000\000\006/\000\000\006i\001\210\006g\000\000\000\000\000\000\000\000\001\211\003\011\000\000\000\000\000\000\002|\002\155\000\240\000\000\001\198\001\211\003\011\002\156\000\000\000\000\000\000\000\000\000\000\001\231\001\198\001\200\001\179\000\000\000\000\002\157\000\000\000\000\000\000\001\231\000\000\001\200\001\179\000\000\001\209\000\000\000\000\000\000\000\000\000\000\001\171\001\172\000\000\000\000\001\209\000\000\001\181\000\000\000\000\001w\001\171\001\172\000\000\000\000\000\000\000\000\001\181\003M\000\000\001w\001\173\001\205\002~\001\175\001\176\002\127\000\000\003M\000\000\000\000\001\173\001\205\002\150\001\175\001\176\000\000\002\154\000\000\000\213\000\000\000\000\000\000\004\221\001\214\000\000\001\215\000\000\000\000\000\000\000\000\001\210\000\000\004\237\001\214\000\000\001\215\000\000\000\000\000\000\000\000\001\210\002|\000\000\000\000\000\000\000\000\001\211\003\011\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\198\001\211\003\011\000\000\000\000\000\000\000\000\002\155\000\000\001\231\001\198\001\200\001\179\002\156\000\000\000\000\000\000\000\000\000\000\001\231\000\000\001\200\001\179\000\000\001\209\002\157\000\000\000\000\000\000\000\000\001\171\001\172\000\000\000\000\001\209\000\000\001\181\000\000\000\000\001w\001\171\001\172\002~\000\000\000\000\002\148\001\181\003M\000\000\001w\001\173\001\205\002\150\001\175\001\176\000\000\002\154\003M\000\213\000\000\001\173\001\205\000\000\001\175\001\176\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\242\001\214\000\000\001\215\000\000\000\000\000\000\000\000\001\210\000\000\004\249\001\214\000\000\001\215\000\000\000\000\000\000\000\000\001\210\002|\000\000\000\000\000\000\000\000\001\211\003\011\000\000\000\000\000\000\000\000\002\155\000\000\000\000\001\198\001\211\003\011\002\156\000\000\000\000\000\000\000\000\000\000\001\231\001\198\001\200\001\179\000\000\000\000\002\157\000\000\000\000\000\000\001\231\000\000\001\200\001\179\000\000\001\209\000\000\000\000\000\000\000\000\000\000\001\171\001\172\000\000\000\000\001\209\000\000\001\181\000\000\000\000\001w\001\171\001\172\002~\000\000\000\000\002\159\001\181\003M\000\000\001w\001\173\001\205\002\150\001\175\001\176\000\000\002\154\003M\000\213\000\000\001\173\001\205\000\000\001\175\001\176\000\000\000\000\000\000\000\000\000\000\000\000\000\000\005\015\001\214\000\000\001\215\000\000\000\000\000\000\000\000\001\210\000\000\005I\001\214\000\000\001\215\000\000\000\000\000\000\000\000\001\210\000\221\000\000\000\000\000\225\000\000\001\211\003\011\004\022\001\172\000\000\000\000\002\155\000\000\000\000\001\198\001\211\003\011\002\156\000\000\000\000\000\000\000\000\000\000\001\231\001\198\001\200\001\179\0042\001\205\002\157\001\175\001\176\000\000\001\231\000\000\001\200\001\179\000\000\001\209\000\000\000\000\000\000\000\000\000\000\004\022\001\172\000\000\000\000\001\209\000\000\001\181\000\000\000\000\001w\000\000\000\000\002-\000\000\004\022\001\172\001\181\003M\000\000\001w\0042\001\205\000\000\001\175\001\176\000\000\000\000\003M\0047\0023\000\000\000\000\000\000\000\000\0042\001\205\000\000\001\175\001\176\000\000\000\000\000\000\000\000\001\214\000\227\001\215\000\000\000\000\000\000\002-\000\000\000\000\000\000\001\214\000\000\001\215\000\000\000\000\000\000\000\000\000\000\000\228\001\209\002-\000\000\0047\0023\000\213\000\231\000\000\000\000\000\000\000\000\000\000\001\181\001\198\000\221\001w\000\000\0047\0023\000\000\000\000\000\000\001\231\001\198\001\200\001\179\000\000\000\000\000\000\000\000\000\000\000\000\001\231\000\000\001\200\001\179\000\000\001\209\001\171\001\172\000\000\000\000\000\000\000\000\000\000\000\000\004M\007\023\0024\001\181\0025\001\209\001w\000\000\000\000\000\000\000\000\000\000\001\173\001\205\000\000\001\175\001\176\001\181\000\233\000\000\001w\000\234\000\000\000\000\000\235\000\236\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\007\149\001\198\000\000\004M\0079\0024\000\000\0025\001\210\000\000\001\231\000\000\001\200\001\179\000\000\000\000\000\240\004M\007o\0024\000\000\0025\000\227\000\000\001\211\003\011\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\198\000\228\000\000\000\000\000\000\000\000\000\000\000\213\000\231\001\231\b?\001\200\001\179\000\000\001\198\001\171\001\172\000\000\000\000\001\209\000\000\000\000\000\000\001\231\000\000\001\200\001\179\000\000\000\000\001\171\001\172\001\181\000\000\000\000\001w\001\173\001\205\000\000\001\175\001\176\000\000\000\000\003M\000\000\000\000\000\000\000\000\000\000\000\000\001\173\001\205\000\000\001\175\001\176\000\000\000\000\000\000\007\172\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\210\000\233\000\000\001\214\000\234\001\215\007\179\000\235\000\236\000\000\000\000\000\000\000\000\000\000\001\210\000\000\001\211\003\011\001\171\001\172\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\211\003\011\000\000\b=\000\000\001\198\000\000\000\000\001\173\001\205\000\000\001\175\001\176\000\000\001\231\000\000\001\200\001\179\000\000\001\209\000\000\000\000\000\000\001\171\001\172\000\000\000\000\000\000\000\000\000\000\007\255\001\181\000\000\001\209\001w\000\000\000\000\000\000\001\210\000\000\000\000\000\000\003M\001\173\001\205\001\181\001\175\001\176\001w\000\000\000\000\000\000\000\000\000\000\001\211\003\011\003M\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\014\000\000\000\000\001\214\000\000\001\215\001\171\001\172\001\210\000\000\000\000\000\000\000\000\002\229\002\230\001\172\000\000\001\214\000\000\001\215\000\000\000\000\001\209\000\000\001\211\003\011\001\173\003!\003H\001\175\001\176\000\000\001\171\001\172\001\181\001\198\003N\001w\000\000\000\000\000\000\000\000\b\164\000\000\001\231\003M\001\200\001\179\000\000\001\198\000\000\000\000\001\173\001\205\000\000\001\175\001\176\001\209\001\231\000\000\001\200\001\179\000\000\000\000\000\221\003c\000\000\000\222\000\000\001\181\001\006\001\214\001w\001\215\b\019\000\000\000\000\000\000\000\000\000\000\003M\000\000\001\210\000\000\000\000\000\000\000\000\000\000\000\000\b\166\001\007\000\000\000\000\000\000\000\000\000\000\001!\000\000\001\211\003\011\000\000\000\000\000\000\001\198\000\000\001\180\001\214\000\000\001\215\000\000\000\000\000\000\001\231\003s\001\200\001\179\000\000\001\181\000\000\000\000\001w\000\000\000\000\000\000\000\000\002\233\000\000\003D\001w\000\000\000\000\001\209\000\000\000\000\000\000\000\000\000\000\000\224\001\198\000\000\000\000\000\000\000\000\001\181\000\000\002|\001w\001\231\000\000\001\200\001\179\000\000\000\227\000\000\003M\000\000\001\012\007$\003u\000\221\000\000\000\000\000\222\000\000\000\000\001\006\000\000\000\000\000\000\000\228\000\000\000\000\000\000\000\000\000\000\000\213\000\231\000\000\000\000\000\000\001\214\000\000\001\215\000\000\003x\001\007\001\198\003y\000\000\000\000\000\221\001\031\000\000\000\222\003E\001\199\001\006\001\200\001\179\000\000\000\000\002~\000\000\003\135\002\161\001\200\003G\000\000\0071\000\000\000\000\002\150\001\198\000\000\000\000\002\154\001\007\000\213\000\000\000\000\000\000\001\231\001\b\001\200\001\179\000\000\000\232\003\137\000\000\000\000\000\000\000\000\000\224\000\000\000\233\000\000\000\000\000\234\000\000\000\000\000\235\000\236\001\024\000\000\000\000\000\000\000\000\000\227\000\000\000\000\000\000\001\012\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\155\000\000\000\224\000\228\000\000\000\240\002\156\000\000\000\255\000\213\000\231\000\000\000\000\000\000\000\000\000\000\000\221\000\227\002\157\000\222\000\000\001\012\001\006\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\229\002\230\001\172\000\000\000\228\000\000\000\000\000\000\000\000\000\000\000\213\000\231\001\007\000\000\000\000\003H\000\000\000\000\001\029\000\000\002\229\002\230\001\172\003N\000\000\000\000\000\000\000\000\000\000\007\170\000\232\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\233\000\000\000\000\000\234\000\000\004\184\000\235\000\236\001\024\000\000\000\000\000\000\000\000\000\000\003c\000\000\000\000\000\000\000\000\000\000\000\000\000\224\000\000\000\232\000\000\000\000\000\000\000\000\004\185\000\000\000\000\000\233\000\240\000\000\000\234\000\255\000\227\000\235\000\236\001\024\001\012\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\171\001\172\000\000\000\000\000\000\000\228\000\000\000\000\000\000\000\000\000\000\000\213\000\231\000\000\003s\000\240\000\000\000\000\000\255\000\000\001\173\001\205\000\000\001\175\001\176\000\000\002\233\000\000\003D\001w\002'\001\171\001\172\000\000\002\232\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\233\000\000\003D\001w\001\210\001\173\001\205\000\000\001\175\001\176\000\000\000\000\000\000\003u\000\000\002\024\000\232\000\000\000\000\000\221\001\211\002\027\006_\000\000\000\233\000\000\000\000\000\234\000\000\000\000\000\235\000\236\001\024\000\000\000\000\001\210\000\000\000\000\000\000\003x\000\000\004\187\003y\001\171\001\172\000\000\000\000\000\000\000\000\003E\000\000\001\211\002\027\001\209\000\000\000\000\000\240\000\000\003\135\000\255\001\200\003G\000\000\001\173\001\205\001\181\001\175\001\176\001w\003E\000\000\000\000\000\000\002\029\000\000\000\000\000\000\000\000\003F\000\000\001\200\003G\003\137\000\000\001\209\002\229\002\230\001\172\000\000\000\000\000\000\000\000\006a\001\210\000\000\000\000\001\181\000\000\000\000\001w\003H\000\000\001\214\000\000\001\215\000\000\000\000\000\227\003N\001\211\002\027\000\000\000\000\000\000\007\141\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\228\000\000\002\229\002\230\001\172\000\000\000\213\006d\000\000\001\214\001\198\001\215\000\000\003c\000\000\000\000\000\000\003H\001\209\001\231\000\000\001\200\001\179\000\000\000\000\003N\000\000\000\000\000\000\000\000\001\181\005U\000\000\001w\002\229\002\230\001\172\000\000\000\000\000\000\000\000\001\198\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003H\001\231\000\000\001\200\001\179\003c\000\000\000\000\003N\000\000\000\000\000\000\003s\000\000\005@\000\000\000\233\000\000\001\214\006e\001\215\000\000\000\235\000\236\002\233\000\000\003D\001w\000\000\000\000\000\000\000\000\006/\000\000\006h\000\000\006g\003c\000\000\000\000\002\229\002\230\001\172\000\000\000\000\000\000\000\000\000\000\000\240\000\000\001\198\000\000\000\000\003s\000\000\003H\000\000\003u\000\000\001\231\000\000\001\200\001\179\003N\000\000\002\233\000\000\003D\001w\005\017\000\000\000\000\000\000\000\000\000\000\000\221\000\000\000\000\000\222\000\000\000\000\000\000\000\000\003x\000\000\003s\003y\000\000\000\000\000\000\000\000\000\000\003c\003E\000\000\000\000\000\000\002\233\003u\003D\001w\000\000\003\135\000\000\001\200\003G\000\000\000\000\002\229\002\230\001\172\000\000\000\000\002\229\002\230\001\172\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003H\003x\002|\003\137\003y\003H\000\000\003u\003N\000\000\000\000\003E\000\000\003N\004\232\000\000\000\000\003s\000\000\004\224\003\135\000\000\001\200\003G\000\000\000\224\000\000\000\000\000\000\002\233\000\000\003D\001w\003x\000\000\000\000\003y\003c\000\000\000\000\000\227\000\000\003c\003E\003\137\000\000\001\171\001\172\000\000\000\000\000\000\000\000\003\135\000\000\001\200\003G\000\000\000\228\002~\000\000\000\000\002\192\003u\000\213\000\231\000\000\001\173\001\205\002\150\001\175\001\176\000\000\002\154\000\000\000\213\000\000\003\137\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003s\000\000\000\000\003x\000\000\003s\003y\000\000\000\000\000\000\000\000\001\210\002\233\003E\003D\001w\000\000\002\233\000\000\003D\001w\000\000\003\135\000\000\001\200\003G\000\000\001\211\003\011\001\005\000\000\000\000\000\000\002\155\001\171\001\172\000\000\000\233\000\000\002\156\000\234\000\000\000\000\000\235\000\236\003u\003\137\000\000\000\000\000\000\003u\002\157\000\000\000\000\001\173\001\205\000\000\001\175\001\176\000\000\001\209\000\000\000\000\000\000\000\000\002\229\002\230\001\172\000\000\000\240\000\000\003x\001\181\000\000\003y\001w\003x\000\000\000\000\003y\003H\003E\000\000\004\230\001\210\000\000\003E\000\000\003N\000\000\003\135\000\000\001\200\003G\004\198\003\135\000\000\001\200\003G\000\000\001\211\003\019\000\000\002\229\002\230\001\172\000\000\000\000\000\000\001\214\000\000\001\215\000\000\000\000\003\137\000\000\000\000\003c\003H\003\137\000\000\000\000\002|\001\171\001\172\000\000\003N\000\000\000\000\000\000\000\000\000\000\004\189\001\209\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\198\000\000\001\173\001\205\001\181\001\175\001\176\001w\000\000\001\231\000\000\001\200\001\179\000\000\003c\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003s\000\000\000\000\002\229\002\230\001\172\000\000\000\000\001\210\000\000\000\000\003\022\002\233\002~\003D\001w\002\202\001\214\003H\001\215\000\000\000\000\000\000\002\150\001\211\003\011\003N\002\154\000\000\000\213\000\000\000\000\003w\000\000\000\000\000\000\000\000\000\000\003s\000\000\000\000\000\000\000\000\000\000\000\000\003u\000\000\000\000\000\000\001\198\002\233\000\000\003D\001w\000\000\003c\000\000\001\209\001\231\000\000\001\200\001\179\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\181\000\000\003x\001w\002\155\003y\000\000\000\000\000\000\000\000\002\156\003r\003E\000\000\003u\000\000\000\000\000\000\002\229\002\230\001\172\003\135\002\157\001\200\003G\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003H\003s\000\000\000\000\001\214\000\000\001\215\003x\003N\000\000\003y\000\000\003\137\002\233\003\147\003D\001w\003E\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\135\000\000\001\200\003G\000\000\000\000\000\000\000\000\001\171\001\172\001\198\003c\002\229\002\230\001\172\000\000\000\000\004'\000\000\001\231\003u\001\200\001\179\000\000\003\137\004*\000\000\003H\001\173\003!\000\000\001\175\001\176\000\000\000\000\003N\000\000\000\000\000\000\000\000\000\000\003\146\000\000\000\000\000\000\000\000\003x\000\000\000\000\003y\000\000\000\000\000\000\000\000\000\000\003\"\003E\000\000\000\000\003s\000\000\000\000\002|\000\000\003c\003\135\000\000\001\200\003G\000\000\000\000\002\233\000\000\003D\001w\000\000\000\000\002\229\002\230\001\172\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\137\000\000\000\000\003H\000\000\002\229\002\230\001\172\000\000\000\000\000\000\003N\000\000\000\000\000\000\003u\000\000\004\024\001\180\000\000\003H\000\000\000\000\003s\000\000\000\000\000\000\000\000\003N\002~\001\181\000\000\002\245\001w\004\031\002\233\000\000\003D\001w\002\150\003c\003x\000\000\002\154\003y\000\213\002\229\002\230\001\172\000\000\000\000\003E\000\000\002\229\002\230\001\172\000\000\003c\000\000\000\000\003\135\003H\001\200\003G\000\000\000\000\000\000\000\000\003u\003N\003#\000\000\000\000\000\000\000\000\004&\004\184\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\137\000\000\000\000\000\000\003s\002\155\004+\0041\000\000\000\000\003x\002\156\000\000\003y\003c\001\198\002\233\000\000\003D\001w\003E\003s\000\000\002\157\001\199\000\000\001\200\001\179\000\000\003\135\000\000\001\200\003G\002\233\000\000\003D\001w\000\221\000\000\000\000\000\222\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003u\000\000\000\000\000\000\003\137\000\000\000\000\000\000\002\229\002\230\001\172\000\000\000\000\003s\000\000\000\000\000\000\003u\000\000\000\000\002\232\000\000\000\000\003H\005\145\002\233\003x\003D\001w\003y\000\000\003N\002\233\000\000\003D\001w\003E\004)\000\000\000\000\000\000\000\000\b7\003x\000\000\003\135\003y\001\200\003G\000\000\000\000\000\000\000\000\003E\000\000\000\000\000\000\000\000\003u\000\000\003c\000\224\003\135\000\000\001\200\003G\002\229\002\230\001\172\003\137\000\000\000\000\000\000\004\186\000\000\000\000\000\227\000\000\000\000\000\000\000\000\003H\000\000\000\000\003x\000\000\003\137\003y\000\000\003N\000\000\000\000\000\000\000\228\003E\0046\000\000\000\000\000\000\000\213\000\231\003E\000\000\003\135\000\000\001\200\003G\000\000\003s\000\000\003F\000\000\001\200\003G\000\000\002\229\002\230\001\172\003c\000\000\002\233\000\000\003D\001w\000\000\000\000\000\000\003\137\000\000\000\000\003H\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003N\000\000\000\000\000\000\000\000\000\000\0049\000\000\000\000\000\000\000\000\000\000\000\232\000\000\000\000\003u\002\229\002\230\001\172\000\000\000\233\000\000\000\000\000\234\000\000\000\000\000\235\000\236\003s\003c\000\000\003H\000\000\001\171\001\172\000\000\000\000\000\000\000\000\003N\002\233\003x\003D\001w\003y\004t\000\000\000\000\000\000\000\000\000\000\003E\000\240\001\173\003!\005\152\001\175\001\176\000\000\000\000\003\135\000\221\001\200\003G\000\222\002\229\002\230\001\172\003c\000\000\000\000\000\000\000\000\003u\000\000\000\000\000\000\003s\000\000\000\000\003H\000\000\000\000\000\000\003\137\000\000\000\000\000\000\003N\002\233\000\000\003D\001w\000\000\004~\000\000\000\000\005\145\000\000\003x\000\000\000\000\003y\000\000\002\229\002\230\001\172\000\000\000\000\003E\000\000\000\000\000\000\000\000\000\000\005\148\003s\003c\003\135\003H\001\200\003G\003u\000\000\000\000\000\000\000\000\003N\002\233\000\000\003D\001w\001\180\004\136\000\224\000\000\000\000\000\000\000\000\000\000\000\221\000\000\003\137\006[\001\181\000\000\000\000\001w\003x\000\227\000\000\003y\000\000\002\229\002\230\001\172\003c\000\000\003E\000\000\000\000\003u\000\000\000\000\000\000\003s\000\228\003\135\003H\001\200\003G\000\000\000\213\000\231\000\000\000\000\003N\002\233\000\000\003D\001w\000\000\004\193\000\000\007$\000\000\000\000\003x\000\000\000\000\003y\003\137\002\229\002\230\001\172\000\000\000\000\003E\000\000\000\000\000\000\000\000\000\000\000\000\003s\003c\003\135\003H\001\200\003G\003u\000\000\000\000\001\198\000\000\003N\002\233\002|\003D\001w\000\000\004\195\001\199\000\232\001\200\001\179\000\000\000\000\000\227\000\000\003\137\000\233\000\000\000\000\000\234\0070\003x\000\235\000\236\003y\000\000\002\229\002\230\001\172\003c\000\228\003E\000\000\000\000\003u\000\000\000\213\000\231\003s\000\000\003\135\003H\001\200\003G\000\000\000\000\000\000\000\000\000\240\003N\002\233\005\152\003D\001w\000\000\004\201\000\000\000\000\002~\000\000\003x\005\\\000\000\003y\003\137\002\229\002\230\001\172\002\150\000\000\003E\000\000\002\154\000\000\000\213\000\000\000\000\003s\003c\003\135\003H\001\200\003G\003u\000\000\000\000\000\000\000\000\003N\002\233\002|\003D\001w\000\000\004\204\000\233\000\000\000\000\000\234\000\000\000\000\000\235\000\236\003\137\000\000\000\000\000\000\000\000\000\000\003x\000\000\000\000\003y\000\000\002\229\002\230\001\172\003c\002\155\003E\000\000\000\000\003u\000\000\002\156\000\000\003s\000\240\003\135\003H\001\200\003G\000\000\000\000\000\000\000\000\002\157\003N\002\233\000\000\003D\001w\000\000\004\226\000\000\000\000\002~\000\000\003x\005\204\000\000\003y\003\137\002\229\002\230\001\172\002\150\000\000\003E\000\000\002\154\000\000\000\213\000\000\000\000\003s\003c\003\135\003H\001\200\003G\003u\001\171\001\172\000\000\000\000\003N\002\233\000\000\003D\001w\000\000\004\229\000\000\000\000\000\000\000\000\000\000\000\000\000\221\000\000\003\137\001\173\001\205\000\000\001\175\001\176\003x\000\000\000\000\003y\000\000\002\229\002\230\001\172\003c\002\155\003E\000\000\000\000\003u\000\000\002\156\000\000\003s\000\000\003\135\003H\001\200\003G\000\000\002-\000\000\000\000\002\157\003N\002\233\000\000\003D\001w\000\000\005\020\000\000\000\000\000\000\000\000\003x\002.\0023\003y\003\137\002\229\002\230\001\172\000\000\000\000\003E\000\000\000\000\000\000\000\000\000\000\000\000\003s\003c\003\135\003H\001\200\003G\003u\000\000\000\000\000\000\000\000\003N\002\233\000\221\003D\001w\000\222\005\023\001\209\001\025\000\000\000\000\000\000\000\000\000\227\000\000\003\137\000\000\000\000\000\000\001\181\000\000\003x\001w\000\000\003y\000\000\000\000\000\000\001\027\003c\000\228\003E\000\000\006(\003u\000\000\000\213\000\231\003s\000\000\003\135\000\000\001\200\003G\000\000\000\221\000\000\000\000\006b\000\000\002\233\000\000\003D\001w\000\000\0024\000\000\0025\000\000\000\000\003x\000\000\000\000\003y\003\137\000\000\000\000\000\000\000\000\000\000\003E\000\000\000\000\000\000\000\000\000\224\000\000\003s\000\221\003\135\000\000\001\200\003G\003u\000\000\002\229\002\230\001\172\001\198\002\233\000\227\003D\001w\000\000\001\012\000\233\000\000\001\231\000\234\001\200\001\179\000\235\000\236\003\137\000\000\000\000\bH\000\228\007\155\003x\000\000\000\000\003y\000\213\000\231\000\000\000\000\000\000\000\000\003E\000\000\000\000\003u\000\000\002\229\002\230\001\172\000\253\003\135\000\000\001\200\003G\000\000\000\227\000\000\000\000\000\000\000\000\000\000\003H\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003N\003x\000\000\000\228\003y\003\137\006\203\000\000\000\000\000\213\000\231\003E\002\229\002\230\001\172\000\000\000\000\000\232\000\000\000\227\003\135\000\000\001\200\003G\000\000\000\233\000\000\003H\000\234\003c\000\000\000\235\000\236\006^\000\000\003N\000\228\000\000\002\232\000\000\000\000\006\206\000\213\000\231\003\137\000\000\000\000\002\229\002\230\001\172\002\233\000\000\003D\001w\000\000\000\000\000\000\000\240\000\000\000\000\000\255\000\000\003H\000\000\003c\000\000\000\000\000\000\000\233\000\000\003N\000\234\000\000\000\000\000\235\000\236\006\221\003s\000\000\000\000\000\000\000\000\002\229\002\230\001\172\000\000\000\000\000\000\007i\002\233\000\000\003D\001w\000\000\000\000\000\000\000\000\003H\000\000\003c\000\240\000\233\000\000\b\219\000\234\003N\b\220\000\235\000\236\007q\000\000\006\224\003s\000\000\000\000\000\000\000\000\000\000\007r\003E\000\000\000\000\003u\000\000\002\233\000\000\003D\001w\003F\000\000\001\200\003G\000\000\000\254\003c\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003s\003x\000\000\007s\003y\000\000\000\000\000\000\000\000\000\000\003u\003E\002\233\000\000\003D\001w\000\000\000\000\000\000\000\000\003\135\000\000\001\200\003G\000\000\000\000\000\000\000\000\002|\000\000\000\000\000\000\000\000\000\000\000\000\003s\003x\000\000\007t\003y\000\000\000\000\000\000\000\000\003\137\003u\003E\002\233\007u\003D\001w\000\000\000\221\000\000\000\000\003\135\000\000\001\200\003G\000\000\002\229\002\230\001\172\002|\000\000\000\000\000\000\007v\000\000\b\221\000\000\003x\000\000\000\000\003y\003H\000\000\000\000\000\000\003\137\003u\003E\000\000\003N\002~\000\000\000\000\005\216\007x\006\237\003\135\000\000\001\200\003G\002\150\002\229\002\230\001\172\002\154\000\000\000\213\000\000\007y\000\000\000\000\000\000\003x\007{\000\000\003y\003H\000\000\003c\000\000\003\137\000\000\003E\000\000\003N\002~\007}\000\000\005\222\000\000\006\240\003\135\000\000\001\200\003G\002\150\002\229\002\230\001\172\002\154\000\000\000\213\000\000\000\000\007~\000\000\000\227\000\000\000\000\000\000\002\155\003H\000\000\003c\000\000\003\137\002\156\000\000\000\000\003N\000\000\000\000\000\000\000\228\000\000\007\005\003s\000\000\002\157\000\213\000\231\002\229\002\230\001\172\000\000\000\000\000\000\007i\002\233\000\000\003D\001w\000\000\000\000\000\000\002\155\003H\000\000\003c\000\000\000\000\002\156\b\219\000\000\003N\b\220\002|\000\000\007q\000\000\007\b\003s\000\000\002\157\000\000\000\000\000\000\007r\000\000\000\000\000\000\003u\000\000\002\233\000\000\003D\001w\000\000\000\000\000\000\000\000\000\000\000\000\003c\000\000\000\000\000\000\000\000\000\233\000\000\000\000\000\234\000\000\000\000\000\235\000\236\003s\003x\000\000\007s\003y\000\000\000\000\000\000\000\000\000\000\003u\003E\002\233\000\000\003D\001w\002~\000\000\000\000\005\232\003\135\000\000\001\200\003G\000\252\000\000\002\150\000\000\000\000\000\000\002\154\000\000\000\213\000\000\000\000\003s\003x\000\000\007t\003y\000\000\000\000\000\000\000\000\003\137\003u\003E\002\233\007u\003D\001w\000\000\000\000\000\000\000\000\003\135\000\000\001\200\003G\000\000\002\229\002\230\001\172\002|\000\000\000\000\000\000\007v\000\000\b\225\000\000\003x\000\000\000\000\003y\003H\002\155\000\000\000\000\003\137\003u\003E\002\156\003N\002|\000\000\000\000\000\000\007x\007\012\003\135\000\000\001\200\003G\002\157\002\229\002\230\001\172\000\000\000\000\000\000\000\000\007y\000\000\000\000\000\000\003x\007{\000\000\003y\003H\000\000\003c\000\000\003\137\000\000\003E\000\000\003N\002~\007}\000\000\005\241\000\000\007\140\003\135\000\000\001\200\003G\002\150\002\229\002\230\001\172\002\154\000\000\000\213\000\000\000\000\007~\000\000\002~\000\000\000\000\007\163\000\000\003H\000\000\003c\000\000\003\137\002\150\000\000\000\000\003N\002\154\000\000\000\213\000\000\000\000\b}\003s\000\000\000\000\000\000\000\000\002\229\002\230\001\172\000\000\000\000\000\000\000\000\002\233\000\000\003D\001w\000\000\000\000\000\000\002\155\003H\000\000\003c\000\000\000\000\002\156\000\000\000\000\003N\000\000\000\000\000\000\000\000\000\000\b\127\003s\000\000\002\157\000\000\000\000\002\155\001\171\001\172\000\000\000\000\003u\002\156\002\233\000\000\003D\001w\000\000\000\000\000\000\000\000\000\000\000\000\003c\002\157\000\000\000\000\001\173\001\205\000\000\001\175\001\176\000\000\000\000\000\000\000\221\003s\003x\000\222\000\000\003y\001\025\000\000\000\000\000\000\000\000\003u\003E\002\233\000\000\003D\001w\000\000\000\000\000\000\000\000\003\135\001\210\001\200\003G\000\000\001\027\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003s\003x\001\211\b\188\003y\b\190\000\000\000\000\000\000\003\137\003u\003E\002\233\000\000\003D\001w\000\000\000\000\000\221\000\000\003\135\000\222\001\200\003G\000\000\000\000\000\000\000\221\000\000\000\000\000\222\000\000\000\000\001\006\000\000\001\209\003x\000\224\000\000\003y\000\000\000\000\000\000\000\000\003\137\003u\003E\001\181\000\000\000\000\001w\000\000\000\227\001\011\000\000\003\135\001\012\001\200\003G\000\000\000\221\000\000\000\000\000\000\000\000\000\221\000\000\000\000\000\000\000\228\000\000\003x\000\000\000\000\003y\000\213\000\231\000\000\000\000\003\137\000\000\003E\000\000\000\000\001\214\000\000\001\215\000\000\000\000\005\158\003\135\000\224\001\200\003G\000\000\000\000\005\172\001\171\001\172\000\000\000\224\000\000\000\000\000\000\000\000\000\000\000\227\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\137\000\227\001\198\001\173\001\205\001\012\001\175\001\176\000\000\000\228\000\000\001\231\000\232\001\200\001\179\000\213\000\231\000\000\000\228\000\000\000\233\001\171\001\172\000\234\000\213\000\231\000\235\000\236\001\024\000\000\000\000\000\000\000\000\001\210\000\227\000\000\000\000\000\000\000\000\000\227\000\000\001\173\001\205\000\000\001\175\001\176\002\229\002\230\001\172\001\211\007\241\000\228\000\240\000\000\000\000\000\255\000\228\000\213\000\231\000\000\000\000\003H\000\213\000\231\000\000\000\000\000\232\000\000\000\000\003N\000\000\001\210\000\000\000\000\000\233\000\232\000\000\000\234\000\000\007\152\000\235\000\236\001\209\000\233\001\171\001\172\000\234\001\211\007\227\000\235\000\236\001\024\000\000\000\000\001\181\000\000\000\000\001w\003c\000\000\000\000\000\000\000\000\000\000\001\173\001\205\000\240\001\175\001\176\001\018\000\000\000\000\000\000\000\000\000\000\000\240\000\233\000\000\000\255\000\234\001\209\000\233\000\235\000\236\000\234\000\000\005\178\000\235\000\236\000\000\000\000\001\214\001\181\001\215\001\210\001w\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003s\000\000\005\181\000\000\001\211\002\031\000\000\003'\000\000\000\000\001\171\001\172\002\233\000\000\003D\001w\000\000\001\198\000\000\000\000\000\000\000\000\000\000\001\214\000\000\001\215\001\231\000\000\001\200\001\179\001\173\001\205\000\000\001\175\001\176\000\000\000\000\001\209\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003u\000\000\000\000\000\000\001\181\000\000\000\000\001w\000\000\000\000\001\198\000\000\000\000\000\000\000\000\001\210\000\000\000\000\000\000\001\231\000\000\001\200\001\179\000\000\000\000\000\000\000\000\000\000\000\000\004R\000\000\001\211\002\019\001\171\001\172\000\000\003E\000\000\001\171\001\172\000\000\001\214\000\000\001\215\000\000\003\135\000\000\001\200\003G\000\000\000\000\001\171\001\172\001\173\001\205\000\000\001\175\001\176\001\173\001\205\000\000\001\175\001\176\000\000\001\209\000\000\000\000\000\000\000\000\003\137\000\000\001\173\001\205\001\198\001\175\001\176\001\181\000\000\000\000\001w\000\000\000\000\001\231\001\210\001\200\001\179\000\000\000\000\001\210\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\211\002\016\001\210\000\000\000\000\001\211\002\014\000\000\000\000\007i\000\000\002|\000\000\000\000\001\214\000\000\001\215\000\000\001\211\001\212\000\000\000\000\000\000\000\000\b\219\000\000\000\000\b\220\000\000\000\000\007q\000\000\000\000\001\209\000\000\000\000\000\000\000\000\001\209\007r\000\000\001\171\001\172\000\000\000\000\001\181\001\198\000\000\001w\000\000\001\181\001\209\000\000\001w\000\000\001\231\000\000\001\200\001\179\000\000\000\000\001\173\001\205\001\181\001\175\001\176\001w\002~\000\000\000\000\007\184\007s\001\171\001\172\000\000\000\000\000\000\002\150\000\000\000\000\000\000\002\154\001\214\000\213\001\215\000\000\000\000\001\214\000\000\001\215\000\000\001\210\001\173\001\205\000\000\001\175\001\176\001\171\001\172\000\000\001\214\000\000\001\215\000\000\000\000\000\000\007t\001\211\001\227\000\000\000\000\000\000\000\000\000\000\001\198\000\000\007u\001\173\001\205\001\198\001\175\001\176\001\210\001\231\000\000\001\200\001\179\002\155\001\231\000\000\001\200\001\179\001\198\002\156\000\000\007v\000\000\b\230\001\211\001\230\001\209\001\231\000\000\001\200\001\179\002\157\000\000\001\210\000\000\000\000\000\000\000\000\001\181\000\000\000\000\001w\007x\001\171\001\172\000\000\000\000\000\000\000\000\001\211\002\r\000\000\000\000\000\000\000\000\000\000\007y\001\209\000\000\000\000\000\000\007{\000\000\001\173\001\205\000\000\001\175\001\176\000\000\001\181\000\000\000\000\001w\000\000\007}\001\214\000\000\001\215\001\171\001\172\000\000\000\000\001\209\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\007~\001\210\001\181\000\000\000\000\001w\001\173\001\205\000\000\001\175\001\176\001\171\001\172\000\000\001\214\001\198\001\215\001\211\002\001\000\000\000\000\000\000\000\000\000\000\001\231\000\000\001\200\001\179\000\000\000\000\000\000\001\173\001\205\000\000\001\175\001\176\001\210\000\000\000\000\001\214\000\000\001\215\000\000\000\000\000\000\000\000\001\198\000\000\000\000\000\000\001\209\000\000\001\211\002\t\000\000\001\231\000\000\001\200\001\179\000\000\000\000\001\210\001\181\000\000\000\000\001w\000\000\000\000\000\000\000\000\000\000\001\198\001\171\001\172\000\000\000\000\000\000\001\211\0021\000\000\001\231\000\000\001\200\001\179\000\000\001\209\000\000\000\000\000\000\000\000\000\000\000\000\001\173\001\205\000\000\001\175\001\176\001\181\000\000\001\214\001w\001\215\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\209\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\229\002\230\001\172\002-\001\181\000\000\000\000\001w\000\000\001\171\001\172\000\000\000\000\001\198\001\171\001\172\001\214\000\000\001\215\002A\0023\000\000\001\231\004\184\001\200\001\179\000\000\000\000\000\000\001\173\001\205\000\000\001\175\001\176\001\173\001\205\000\000\001\175\001\176\000\000\000\000\001\214\000\000\001\215\000\000\000\000\007*\000\000\001\198\000\000\000\000\000\000\000\000\001\209\000\000\000\000\000\000\001\231\002-\001\200\001\179\000\000\000\000\002-\000\000\001\181\000\000\000\000\001w\001\171\001\172\000\000\000\000\001\198\002N\0023\000\000\000\000\000\000\002\\\0023\000\000\001\231\000\000\001\200\001\179\007\145\000\000\000\000\001\173\003!\000\000\001\175\001\176\000\000\000\000\000\000\000\000\001\171\001\172\002\232\0024\000\000\0025\000\000\000\000\000\000\000\000\001\209\000\000\000\000\000\000\002\233\001\209\003D\001w\003\"\000\000\001\173\001\205\001\181\001\175\001\176\001w\000\000\001\181\000\000\000\000\001w\000\000\000\000\000\000\000\000\000\000\001\198\000\000\000\000\000\000\000\000\002\229\002\230\001\172\000\000\001\231\000\000\001\200\001\179\000\000\001\210\000\000\000\000\000\000\000\000\004\187\003H\000\000\0024\000\000\0025\000\000\000\000\0024\003N\0025\001\211\002\214\000\000\000\000\001\180\000\000\000\000\000\000\005R\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\181\003E\000\000\001w\000\000\000\000\000\000\000\000\000\000\001\198\003F\003c\001\200\003G\001\198\000\000\000\000\001\209\001\231\000\000\001\200\001\179\000\000\001\231\000\000\001\200\001\179\000\000\000\000\001\181\000\000\000\000\001w\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003#\000\000\002\229\002\230\001\172\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003H\000\000\003s\004+\0041\000\000\001\171\001\172\003N\001\214\000\000\001\215\001\198\000\000\002\233\000\000\003D\001w\004\251\000\000\000\000\001\199\000\000\001\200\001\179\000\000\001\173\001\205\000\000\001\175\001\176\000\000\000\000\000\000\002\229\002\230\001\172\003c\000\000\000\000\000\000\001\198\002|\000\000\000\000\000\000\000\000\003u\000\000\003H\001\231\000\000\001\200\001\179\000\000\000\000\001\210\003N\001\171\001\172\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004U\000\000\000\000\000\000\000\000\001\211\003>\000\000\000\000\004R\000\000\001\173\001\205\000\000\001\175\001\176\003E\000\000\003s\003c\000\000\002\229\002\230\001\172\000\000\003\135\000\000\001\200\003G\000\000\002\233\002~\003D\001w\007\188\000\000\003H\000\000\001\209\000\000\002-\002\150\000\000\000\000\003N\002\154\000\000\000\213\000\000\003\137\001\181\001\171\001\172\001w\003b\000\000\004F\0023\000\000\000\000\000\000\000\000\000\000\003u\000\000\000\000\000\000\003s\000\000\000\000\000\000\001\173\001\205\003c\001\175\001\176\000\000\000\000\000\000\002\233\000\000\003D\001w\000\000\000\000\000\000\000\000\001\214\000\000\001\215\001\209\002\155\004R\000\000\000\000\000\000\000\000\002\156\000\000\003E\000\000\001\210\001\181\000\000\000\000\001w\000\000\000\000\003\135\002\157\001\200\003G\003u\000\000\000\000\000\000\000\000\001\211\004I\001\198\000\000\003s\002\229\002\230\001\172\000\000\000\000\000\000\001\231\000\000\001\200\001\179\003\137\002\233\000\000\003D\001w\003H\0024\000\000\0025\004R\000\000\000\000\000\000\003N\000\000\000\000\003E\000\000\001\209\000\221\000\000\000\000\000\222\004T\000\000\003\135\000\000\001\200\003G\000\000\001\181\000\000\000\000\001w\003u\000\000\000\000\000\000\000\000\001\198\000\000\000\000\003c\002\229\002\230\001\172\000\000\000\000\001\231\003\137\001\200\001\179\000\000\000\000\000\000\000\000\000\000\000\000\003H\000\000\002\229\002\230\001\172\004R\000\000\000\000\003N\001\214\000\000\001\215\003E\000\000\000\000\000\000\000\000\003H\004_\000\000\000\000\003\135\000\000\001\200\003G\003N\000\000\000\000\002\229\002\230\001\172\000\000\003s\000\000\000\224\004i\000\000\003c\000\000\000\000\000\000\001\198\000\000\003H\002\233\003\137\003D\001w\000\000\000\227\001\231\003N\001\200\001\179\003c\002\229\002\230\001\172\000\000\000\000\000\000\004\148\000\000\000\000\000\000\000\000\000\228\000\000\000\000\000\000\003H\000\000\000\213\000\231\000\000\000\000\000\000\003u\003N\000\000\003c\000\000\000\000\000\000\000\000\003s\000\000\000\000\004\158\000\000\000\000\007i\000\000\000\000\000\000\000\000\000\000\002\233\000\000\003D\001w\000\000\003s\000\000\000\000\000\000\004R\003c\000\000\007j\000\000\000\000\007q\003E\002\233\000\000\003D\001w\000\000\000\221\000\000\007r\003\135\001\004\001\200\003G\000\000\000\000\003s\000\000\003u\000\233\000\000\000\000\000\234\000\000\000\000\000\235\000\236\000\000\002\233\000\000\003D\001w\000\000\000\000\003\137\003u\000\000\002\229\002\230\001\172\000\000\007s\000\000\003s\000\000\000\000\000\000\004R\000\000\000\000\000\000\000\240\003H\000\000\003E\002\233\000\000\003D\001w\000\000\003N\003u\000\000\003\135\004R\001\200\003G\000\000\000\000\000\000\004\168\003E\000\000\000\000\000\000\000\000\007t\000\000\000\000\000\000\003\135\000\000\001\200\003G\000\000\000\000\007u\003\137\003u\003c\004R\000\000\002\229\002\230\001\172\000\227\000\000\003E\002\229\002\230\001\172\000\000\000\000\000\000\003\137\007v\003\135\003H\001\200\003G\000\000\007w\000\228\003H\000\000\003N\000\000\004R\000\213\000\231\000\000\003N\000\000\000\000\003E\004\209\007x\000\000\000\000\000\000\003\137\004\212\000\000\003\135\000\000\001\200\003G\003s\000\000\000\000\007y\002\229\002\230\001\172\003c\007{\000\000\000\000\000\000\002\233\003c\003D\001w\000\000\000\000\000\000\003H\003\137\007}\000\000\000\000\000\000\000\000\000\000\003N\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\215\000\000\007~\000\233\000\000\000\000\000\234\000\000\003u\000\235\000\236\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003s\003c\000\000\000\000\000\000\000\000\003s\000\000\000\000\000\000\000\000\000\000\002\233\000\000\003D\001w\000\000\005\160\002\233\004R\003D\001w\000\000\000\000\000\000\000\000\003E\000\000\000\000\000\000\000\000\000\000\002\229\002\230\001\172\003\135\000\000\001\200\003G\000\000\000\000\000\000\000\000\000\000\000\000\003u\000\000\003H\000\000\003s\000\000\003u\002\229\002\230\001\172\003N\000\000\000\000\000\000\003\137\000\000\002\233\000\000\003D\001w\004\254\000\000\003H\000\000\000\000\000\000\000\000\000\000\000\000\004R\003N\000\000\000\000\000\000\000\000\004R\003E\000\000\000\000\003c\005\001\000\000\003E\000\000\000\000\003\135\000\000\001\200\003G\003u\000\000\003\135\000\000\001\200\003G\000\000\001\171\001\172\000\000\003c\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\137\000\000\000\000\000\000\006\241\000\000\003\137\001\173\003!\004R\001\175\001\176\000\000\000\000\000\000\000\000\003E\000\000\003s\000\000\000\000\002\229\002\230\001\172\000\000\003\135\000\000\001\200\003G\000\000\002\233\000\000\003D\001w\003\"\000\000\003H\000\000\003s\000\000\000\000\002\229\002\230\001\172\003N\000\000\000\000\000\000\000\000\003\137\002\233\000\000\003D\001w\005!\000\000\003H\000\000\001\171\001\172\000\000\000\000\000\000\003u\003N\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003c\005&\007\t\000\000\000\000\001\173\003!\000\000\001\175\001\176\003u\000\000\000\000\001\180\000\000\000\000\000\000\000\000\000\000\004R\003c\001\171\001\172\000\000\000\000\001\181\003E\000\000\001w\000\000\000\000\000\000\003\"\000\000\000\000\003\135\000\000\001\200\003G\004R\000\000\001\173\001\205\000\000\001\175\001\176\003E\000\000\003s\000\000\000\000\000\000\000\000\000\000\000\000\003\135\000\000\001\200\003G\003\137\002\233\000\000\003D\001w\000\000\003#\000\000\000\000\003s\000\000\000\000\001\210\000\000\000\000\000\000\000\221\000\000\000\000\000\222\003\137\002\233\000\000\003D\001w\001\180\004+\0041\001\211\007\240\000\000\000\000\000\000\000\000\003u\001\198\000\000\001\181\000\221\000\000\001w\006_\000\000\000\000\001\199\000\000\001\200\001\179\000\000\000\000\000\000\000\000\005x\000\000\003u\000\000\000\000\002\229\002\230\001\172\000\000\001\209\000\000\004R\000\000\002\229\002\230\001\172\000\000\000\000\003E\bx\003H\001\181\000\000\000\000\001w\003#\000\000\003\135\003N\001\200\003G\004R\000\000\002\229\002\230\001\172\007\175\000\224\003E\000\000\000\000\000\000\000\000\000\000\000\000\004+\0041\003\135\003H\001\200\003G\003\137\000\227\000\000\001\198\000\000\003N\003c\001\214\006a\001\215\000\000\000\000\001\199\000\000\001\200\001\179\000\000\000\000\000\228\000\000\003\137\000\000\000\000\000\227\000\213\000\231\002\229\002\230\001\172\000\000\000\000\000\000\000\000\000\000\003c\000\000\000\000\001\171\001\172\001\198\000\228\003H\000\000\000\000\000\000\000\000\000\213\006d\001\231\003N\001\200\001\179\000\000\000\000\003s\000\000\000\000\001\173\003!\000\000\001\175\001\176\002\232\000\000\000\000\000\000\002\233\000\000\003D\001w\002\229\002\230\001\172\000\000\002\233\000\232\003D\001w\003c\000\000\000\000\000\000\003s\000\233\003\"\003H\000\234\000\000\000\000\000\235\000\236\005\129\000\000\003N\002\233\000\000\003D\001w\000\000\003u\000\000\000\000\000\000\000\000\000\000\000\233\000\000\000\000\006e\000\000\000\000\000\235\000\236\000\000\000\000\000\240\000\000\000\000\000\255\000\000\000\000\006/\003c\006f\000\000\006g\003s\003u\b\000\000\000\000\000\000\000\000\000\000\000\000\000\003E\001\180\000\240\002\233\000\000\003D\001w\000\000\003E\003\135\000\000\001\200\003G\001\181\000\000\000\000\001w\003F\000\000\001\200\003G\007\193\000\000\002\229\002\230\001\172\000\000\000\000\003E\000\000\000\000\000\000\000\000\003\137\000\000\003s\003u\003\135\003H\001\200\003G\000\000\000\000\002\229\002\230\001\172\003N\002\233\000\000\003D\001w\000\000\000\000\003#\000\000\000\000\000\000\000\000\003H\000\000\000\000\003\137\000\000\000\000\000\000\007\150\003N\000\000\000\000\000\000\000\000\000\000\003E\003%\0041\003c\000\000\002\229\002\230\001\172\003u\003\135\001\198\001\200\003G\000\000\000\000\002\229\002\230\001\172\000\000\001\199\003H\001\200\001\179\003c\000\000\000\000\000\000\000\000\003N\000\000\003H\000\000\000\000\003\137\000\000\000\000\000\000\005J\003N\000\000\000\000\000\000\000\000\000\000\003E\000\000\000\000\000\000\000\000\000\000\000\000\003s\000\000\003\135\000\000\001\200\003G\003c\002\229\002\230\001\172\000\000\000\000\002\233\000\000\003D\001w\003c\000\000\000\000\000\000\003s\000\000\003H\000\000\000\000\000\000\003\137\000\000\000\000\000\000\003N\000\000\002\233\000\000\003D\001w\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003u\000\000\000\000\002\229\002\230\001\172\000\000\000\000\000\000\003s\000\000\000\000\000\000\000\000\003c\000\000\000\000\000\000\003H\003s\003u\002\233\000\000\003D\001w\000\000\003N\000\000\000\000\004\222\000\000\002\233\000\000\003D\001w\000\000\003E\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\135\000\000\001\200\003G\004\188\000\000\000\000\000\000\000\000\003u\003c\003E\000\000\002\229\002\230\001\172\000\000\003s\000\000\003u\003\135\000\000\001\200\003G\003\137\000\000\000\000\000\000\003H\002\233\000\000\003D\001w\000\000\000\000\000\000\003N\000\000\004Q\000\000\000\000\000\000\000\000\000\000\003\137\003E\000\000\000\000\003\127\000\000\000\000\000\000\000\000\000\000\003\135\003E\001\200\003G\003s\002\229\002\230\001\172\003u\000\000\003\135\003c\001\200\003G\000\000\000\000\002\233\000\000\003D\001w\003H\000\000\000\000\000\000\003\137\000\000\000\000\000\000\003N\000\000\000\000\002\229\002\230\001\172\003\137\000\000\000\000\003\133\000\000\000\000\000\000\000\000\000\000\000\000\003E\000\000\003H\000\000\000\000\003u\000\000\000\000\000\000\003\135\003N\001\200\003G\003c\000\000\003s\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\233\000\000\003D\001w\000\000\000\000\003\137\003\142\000\000\000\000\000\000\000\000\003c\000\000\003E\000\000\002\229\002\230\001\172\000\000\000\000\000\000\000\000\003\135\000\000\001\200\003G\000\000\000\000\000\000\000\000\003H\000\000\003u\003s\000\000\000\000\000\000\000\000\003N\000\000\000\000\002\229\002\230\001\172\000\000\002\233\003\137\003D\001w\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003H\000\000\000\000\003s\000\000\003\153\000\000\000\000\003N\000\000\000\000\003c\003E\000\000\000\000\002\233\000\000\003D\001w\000\000\000\000\003\135\003u\001\200\003G\000\000\000\000\002\229\002\230\001\172\000\000\002\229\002\230\001\172\000\000\000\000\000\000\003c\000\000\000\000\000\000\000\000\003H\000\000\000\000\003\137\003H\000\000\003u\000\000\003N\003\159\000\000\000\000\003N\000\000\000\000\000\000\003E\003s\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\135\000\000\001\200\003G\002\233\000\000\003D\001w\000\000\000\000\003\165\000\000\003c\000\000\000\000\000\000\003c\003E\003s\000\221\000\000\000\000\000\000\000\000\003\137\000\000\003\135\000\000\001\200\003G\002\233\000\000\003D\001w\000\000\000\000\000\000\003u\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\229\002\230\001\172\000\000\003\137\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003s\003H\000\000\003u\003s\000\000\003\171\000\000\000\000\003N\000\000\000\000\002\233\003E\003D\001w\002\233\000\000\003D\001w\000\000\000\000\003\135\000\000\001\200\003G\000\000\000\000\000\000\000\000\000\000\000\000\003\177\000\000\000\000\000\000\000\221\000\000\003c\003E\000\000\000\000\000\000\000\000\000\000\003u\003\137\000\227\003\135\003u\001\200\003G\000\000\000\000\002\229\002\230\001\172\000\000\000\000\001\171\001\172\000\000\000\000\000\000\000\228\000\000\000\000\000\000\000\000\003H\000\213\000\231\003\137\000\000\003\183\000\000\000\000\003N\003\189\001\173\003!\003E\001\175\001\176\000\000\003E\003s\000\000\000\000\000\000\003\135\000\000\001\200\003G\003\135\000\000\001\200\003G\002\233\000\000\003D\001w\000\000\000\000\000\000\000\000\003c\002\229\002\230\001\172\000\000\002\229\002\230\001\172\003\137\000\000\000\000\000\000\003\137\000\000\000\000\000\000\003H\000\000\000\227\000\000\003H\000\000\000\000\000\233\003N\003u\000\234\000\000\003N\000\235\000\236\000\000\000\000\000\000\000\000\000\228\000\000\000\000\000\000\000\000\000\000\000\213\000\231\002\229\002\230\001\172\000\000\000\000\003s\000\000\000\000\000\000\001\180\003c\003\195\005\176\000\000\003c\003H\000\000\002\233\003E\003D\001w\001\181\000\000\003N\001w\000\000\000\000\003\135\000\000\001\200\003G\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\229\002\230\001\172\000\000\000\000\000\000\003u\003\137\003c\000\000\000\000\000\000\000\000\000\233\003s\003H\000\234\007\\\003s\000\235\000\236\000\000\000\000\003N\000\000\000\000\002\233\000\000\003D\001w\002\233\000\000\003D\001w\000\000\003\201\000\000\000\000\000\000\000\000\000\000\000\000\003E\000\000\000\000\005\180\001\198\000\000\000\000\000\000\000\000\003\135\003c\001\200\003G\001\199\003s\001\200\001\179\003u\000\000\000\000\000\000\003u\002\229\002\230\001\172\000\000\002\233\007]\003D\001w\000\000\000\000\000\000\003\137\000\000\000\000\000\000\003H\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003N\003\207\000\000\000\000\000\000\003\213\000\000\000\000\003E\000\000\000\000\000\000\003E\003s\003u\000\000\000\000\003\135\000\000\001\200\003G\003\135\000\000\001\200\003G\002\233\000\000\003D\001w\003c\000\000\000\000\002\229\002\230\001\172\000\000\000\000\000\000\000\000\000\000\000\000\003\137\000\000\003\219\000\000\003\137\000\000\003H\000\000\000\000\003E\000\000\000\000\000\000\000\000\003N\000\000\000\000\003u\003\135\000\000\001\200\003G\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\229\002\230\001\172\000\000\003s\002\229\002\230\001\172\000\000\000\000\003\137\003c\000\000\000\000\003\225\003H\002\233\000\000\003D\001w\003H\003E\000\000\003N\000\000\000\000\000\000\000\000\003N\000\000\003\135\000\000\001\200\003G\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\229\002\230\001\172\000\000\000\000\000\000\003u\000\000\000\000\003c\000\000\003\137\000\000\000\000\003c\003H\003s\000\000\000\000\000\000\000\000\000\000\000\000\003N\000\000\000\000\000\000\000\000\002\233\000\000\003D\001w\000\000\000\000\000\000\003\231\000\000\000\000\000\000\000\000\000\000\000\000\003E\000\000\002\229\002\230\001\172\000\000\000\000\000\000\000\000\003\135\003c\001\200\003G\000\000\000\000\003s\000\000\003H\000\000\003u\003s\000\000\000\000\000\000\000\000\003N\000\000\002\233\000\000\003D\001w\000\000\002\233\003\137\003D\001w\000\000\000\000\007i\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\237\000\000\000\000\000\000\000\000\000\000\003c\003E\b\210\000\000\003s\007q\003u\000\000\000\000\000\000\003\135\003u\001\200\003G\007r\000\000\002\233\000\000\003D\001w\000\000\002\229\002\230\001\172\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\137\003\243\003H\000\000\000\000\000\000\003\249\000\000\003E\000\000\003N\000\000\007s\003E\003s\003u\000\000\003\135\000\000\001\200\003G\000\000\003\135\000\000\001\200\003G\002\233\000\000\003D\001w\002\229\002\230\001\172\000\000\000\000\000\000\000\000\000\000\000\000\003c\000\000\003\137\000\000\000\000\003\255\003H\003\137\007t\000\000\000\000\000\000\003E\000\000\003N\000\000\000\000\000\000\007u\000\000\003u\003\135\000\000\001\200\003G\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\229\002\230\001\172\000\000\000\000\007v\000\000\000\000\b\211\000\000\000\000\003c\000\000\003\137\000\000\003H\003s\004\r\000\000\000\000\000\000\000\000\000\000\003N\003E\000\000\007x\000\000\002\233\000\000\003D\001w\000\000\003\135\000\000\001\200\003G\000\000\000\000\000\000\007y\002\229\002\230\001\172\000\000\007{\000\000\000\000\000\000\000\000\000\000\000\000\003c\000\000\000\000\000\000\003H\003\137\007}\003s\000\000\003u\000\000\000\000\003N\000\000\000\000\000\000\002\229\002\230\001\172\002\233\000\000\003D\001w\000\000\007~\000\000\002|\000\000\000\000\000\000\000\000\003H\000\000\000\000\000\000\000\000\000\000\000\000\004\019\003N\000\000\003c\000\000\000\000\000\000\003E\000\000\000\000\003s\000\000\000\000\000\000\003u\000\000\003\135\000\000\001\200\003G\000\000\000\000\002\233\000\000\003D\001w\000\000\000\000\000\000\000\000\003c\000\000\000\000\002\229\002\230\001\172\000\000\000\000\000\000\000\000\003\137\000\000\000\000\004]\002~\000\000\000\000\007\191\003H\000\000\003E\003s\000\000\000\000\002\150\003u\003N\000\000\002\154\003\135\000\213\001\200\003G\002\233\000\000\003D\001w\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\229\002\230\001\172\000\000\003s\000\000\000\000\000\000\000\000\003\137\004g\003c\000\000\000\000\000\000\003H\002\233\003E\003D\001w\000\000\000\000\003u\003N\000\000\000\000\003\135\000\000\001\200\003G\002\155\000\000\002\229\002\230\001\172\000\000\002\156\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003H\002\157\003u\003\137\004q\003c\000\000\000\000\003N\000\000\000\000\003E\003s\000\000\000\000\000\000\000\000\002\229\002\230\001\172\003\135\000\000\001\200\003G\002\233\000\000\003D\001w\000\000\000\000\000\000\004|\003H\000\000\000\000\000\000\000\000\003c\003E\000\000\003N\000\000\000\000\000\000\003\137\000\000\000\000\003\135\000\000\001\200\003G\000\000\002|\003s\000\000\000\000\000\000\003u\002\229\002\230\001\172\000\000\000\000\000\000\000\000\002\233\000\000\003D\001w\003c\000\000\003\137\000\000\003H\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003N\000\000\000\000\000\000\003s\004\134\000\000\000\000\000\000\000\000\000\000\000\000\003E\000\000\000\000\000\000\002\233\003u\003D\001w\000\000\003\135\000\000\001\200\003G\000\221\000\000\002~\000\222\003c\007\198\000\000\002\229\002\230\001\172\000\000\003s\002\150\000\000\000\000\000\000\002\154\000\000\000\213\000\000\003\137\004\144\003H\002\233\003u\003D\001w\bK\003E\000\000\003N\000\000\000\000\000\000\002\229\002\230\001\172\003\135\000\000\001\200\003G\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003H\000\000\000\000\003s\004\156\000\000\000\000\003u\003N\000\000\003c\003E\003\137\002\155\000\000\002\233\000\000\003D\001w\002\156\003\135\000\000\001\200\003G\000\224\000\000\002\229\002\230\001\172\000\000\000\000\002\157\000\000\000\000\000\000\000\000\004\166\003c\000\000\000\227\000\000\003H\000\000\003E\003\137\000\000\002|\000\000\003u\003N\000\000\000\000\003\135\000\000\001\200\003G\000\228\000\000\003s\000\000\000\000\000\000\000\213\000\231\000\000\000\000\000\000\002\229\002\230\001\172\002\233\000\000\003D\001w\000\000\000\000\003\137\004\176\003c\000\000\000\000\000\000\003H\000\000\003E\003s\000\000\000\000\000\000\000\000\003N\000\000\000\000\003\135\000\000\001\200\003G\002\233\000\000\003D\001w\000\000\002~\003u\000\000\007\202\000\000\000\000\002\229\002\230\001\172\000\000\002\150\000\232\000\000\000\000\002\154\003\137\000\213\003c\000\000\000\233\000\000\003H\000\234\000\000\003s\000\235\000\236\bR\003u\003N\004\183\000\221\000\000\000\000\000\222\000\000\002\233\003E\003D\001w\000\000\000\000\000\000\000\000\000\000\000\000\003\135\000\000\001\200\003G\000\000\000\240\000\000\000\000\000\255\000\000\000\000\004\244\003c\000\000\002\155\000\000\000\000\000\000\003E\003s\002\156\005x\000\000\003u\003\137\000\000\000\000\003\135\000\000\001\200\003G\002\233\002\157\003D\001w\000\000\000\000\000\000\000\000\000\000\005{\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\137\004\243\000\000\000\000\000\000\000\000\000\000\000\224\003E\003s\000\000\000\000\000\000\003u\000\000\000\221\000\000\003\135\000\222\001\200\003G\002\233\000\227\003D\001w\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\228\000\000\003\137\004\250\000\000\000\000\000\213\000\231\000\000\000\000\003E\000\000\005x\000\000\000\000\003u\000\000\000\000\000\000\003\135\000\221\001\200\003G\000\222\000\000\000\000\000\000\000\000\000\000\000\000\000\221\006\029\000\000\000\222\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\137\005\016\000\000\000\000\000\000\000\000\000\224\000\000\003E\000\000\000\000\000\000\000\000\005x\000\232\000\000\000\000\003\135\000\000\001\200\003G\000\227\000\233\005x\002|\000\234\000\000\000\000\000\235\000\236\005\129\000\221\006\238\000\000\000\222\000\000\000\000\000\000\000\228\000\000\000\000\003\137\006\252\000\000\000\213\000\231\000\000\000\000\000\000\000\000\000\224\000\000\000\000\000\000\000\240\000\000\000\000\000\255\000\000\000\000\000\224\002\229\002\230\001\172\000\000\000\227\000\000\005x\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\227\003H\000\000\000\000\000\000\002~\000\000\000\228\007\205\003N\000\000\007\006\000\000\000\213\000\231\002\150\000\000\000\228\000\000\002\154\000\232\000\213\000\000\000\213\000\231\000\000\000\000\000\000\000\233\000\224\000\000\000\234\000\000\000\000\000\235\000\236\005\129\000\221\003c\000\000\000\222\000\000\000\000\000\000\000\227\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\240\000\228\000\000\000\255\000\232\002\155\000\000\000\213\000\231\000\000\000\000\002\156\000\233\004 \000\232\000\234\000\000\000\000\000\235\000\236\005\129\000\221\000\233\002\157\000\222\000\234\003s\000\000\000\235\000\236\005\129\000\000\000\000\000\221\000\000\000\000\000\222\000\000\002\233\000\000\003D\001w\000\000\000\000\000\240\000\000\000\000\000\255\000\000\000\000\000\224\000\000\006(\000\000\000\240\000\000\000\000\000\255\000\232\000\000\000\000\000\000\000\000\000\000\000\000\000\227\000\233\000\000\000\000\000\234\000\000\003u\000\235\000\236\005\129\000\221\000\000\000\000\000\222\000\000\000\000\000\000\000\228\000\000\000\000\000\000\000\000\000\000\000\213\000\231\000\000\000\000\000\000\000\000\000\224\000\000\000\221\000\000\000\240\000\222\b\015\000\255\000\000\000\000\000\000\000\000\000\224\003E\000\000\000\227\000\000\000\000\000\000\000\000\000\000\000\000\003\135\000\000\001\200\003G\000\000\000\227\000\000\000\000\000\000\000\000\000\228\007\031\000\000\000\000\000\000\000\000\000\213\000\231\000\000\000\000\000\000\000\000\000\228\000\232\003\137\000\000\000\000\000\000\000\213\000\231\000\000\000\233\000\224\000\000\000\234\000\000\000\000\000\235\000\236\001+\000\221\000\000\000\000\000\222\000\000\000\000\000\000\000\227\000\000\000\000\000\000\000\000\000\000\000\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\240\000\228\000\000\000\255\000\232\000\227\000\000\000\213\000\231\006v\000\000\000\000\000\233\000\000\000\000\000\234\000\232\000\000\000\235\000\236\006-\000\000\000\228\000\000\000\233\000\000\000\000\000\234\000\213\000\231\000\235\000\236\006:\000\000\006v\006=\000\000\006w\b\134\006x\000\000\000\000\000\000\000\000\000\240\000\000\b\160\000\255\000\000\000\000\000\224\000\000\000\000\000\000\000\000\000\000\000\240\000\000\000\232\000\255\000\000\000\000\006w\bs\006x\000\227\000\233\000\000\000\000\000\234\000\000\006y\000\235\000\236\006:\000\221\000\000\007M\000\222\000\232\000\000\000\000\000\228\000\000\000\000\000\000\000\000\000\233\000\213\000\231\000\234\000\000\000\000\000\235\000\236\006-\006y\000\000\000\240\000\000\000\000\000\255\000\000\000\000\000\000\006z\000\000\000\000\000\000\000\000\000\000\000\221\000\000\000\000\000\222\006{\006|\000\000\006}\000\240\000\000\000\000\000\255\000\221\000\000\000\000\000\222\000\000\000\000\000\000\006z\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\232\006{\006|\006\185\006}\000\000\000\000\000\000\000\233\000\224\000\000\000\234\000\000\000\000\000\235\000\236\b\161\000\221\001\016\000\000\000\222\000\000\000\000\000\000\000\227\000\000\000\000\000\000\006\185\000\000\000\000\006\127\b\136\000\000\000\000\000\000\006\129\006\139\000\000\000\000\000\240\000\228\000\000\000\255\000\000\000\224\000\000\000\213\000\231\006\181\000\000\000\221\000\000\000\000\000\222\000\000\006\127\000\224\000\000\000\000\000\227\006\129\006\139\000\000\000\000\000\000\000\000\006\182\000\000\000\000\000\221\000\000\000\227\000\222\006\181\000\000\000\000\000\228\000\000\000\000\000\000\000\000\000\000\000\213\000\231\000\000\000\000\000\000\000\000\000\228\000\224\000\000\006\182\000\000\000\000\000\213\000\231\000\000\000\232\000\000\000\221\000\000\000\000\000\222\000\000\000\227\000\233\000\000\000\000\000\234\000\000\000\000\000\235\000\236\001(\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\228\000\000\000\224\000\000\000\000\000\000\000\213\000\231\000\221\000\000\000\000\000\222\000\232\000\000\000\000\000\000\000\240\000\227\000\000\000\255\000\233\000\224\000\000\000\234\000\232\000\000\000\235\000\236\000\237\000\000\000\000\000\000\000\233\000\000\000\228\000\234\000\227\000\000\000\235\000\236\000\213\000\231\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\224\000\240\000\228\000\000\000\255\000\000\000\232\000\000\000\213\000\231\000\000\000\000\000\000\000\240\000\233\000\227\001\022\000\234\000\000\000\000\000\235\000\236\001-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\224\000\000\000\228\000\221\000\000\000\000\000\222\000\000\000\213\000\231\000\232\000\000\000\000\000\000\000\000\000\227\000\240\000\000\000\233\000\255\000\000\000\234\000\000\000\000\000\235\000\236\001B\000\000\000\000\000\232\000\000\000\000\000\228\000\221\000\000\000\000\000\222\000\233\000\213\000\231\000\234\000\000\000\000\000\235\000\236\001I\000\000\000\000\000\000\000\000\000\240\000\221\000\000\000\255\000\222\000\000\000\000\000\000\000\000\000\232\000\000\000\000\000\000\000\221\000\000\000\000\000\222\000\233\000\000\000\240\000\234\000\000\000\255\000\235\000\236\001\139\000\224\000\000\000\000\000\000\000\000\000\221\000\000\000\000\000\222\000\000\000\000\000\000\000\000\000\232\000\000\000\227\000\000\000\000\000\000\000\000\000\000\000\233\000\000\000\240\000\234\000\000\000\255\000\235\000\236\001\146\000\224\000\000\000\228\000\000\000\000\000\000\000\000\000\000\000\213\000\231\000\000\000\000\000\000\000\000\000\000\000\227\000\000\000\000\000\224\000\000\000\000\000\000\000\000\000\240\000\000\000\000\000\255\000\000\000\000\000\000\000\224\000\000\000\228\000\227\000\000\000\000\000\000\000\000\000\213\000\231\000\000\000\000\000\000\000\000\000\000\000\227\000\000\000\000\000\224\000\000\000\228\000\000\000\221\000\000\000\000\000\222\000\213\000\231\000\000\000\232\000\000\000\000\000\228\000\227\000\000\000\000\000\000\000\233\000\213\000\231\000\234\000\000\000\000\000\235\000\236\001\159\000\000\000\000\000\000\000\000\000\228\000\000\000\221\000\000\000\000\000\222\000\213\000\231\000\000\000\232\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\233\000\000\000\240\000\234\000\000\000\255\000\235\000\236\001\193\000\000\000\232\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\233\000\000\000\000\000\234\000\232\000\000\000\235\000\236\001\221\000\000\000\224\000\000\000\233\000\221\000\240\000\234\000\222\000\255\000\235\000\236\001\251\000\000\000\232\000\221\000\000\000\227\000\222\000\000\000\000\000\000\000\233\000\000\000\240\000\234\000\000\000\255\000\235\000\236\002\004\000\000\000\224\000\000\000\228\000\221\000\240\000\000\000\222\000\255\000\213\000\231\000\000\000\000\000\000\000\000\000\000\000\227\000\000\000\000\000\000\000\000\000\000\000\000\000\240\000\000\000\000\000\255\000\000\000\000\000\000\000\000\000\000\000\000\000\228\000\000\000\000\000\000\000\000\000\000\000\213\000\231\000\000\000\000\000\000\000\000\000\000\000\000\000\224\000\000\000\000\000\000\000\000\000\000\000\221\000\000\000\000\000\222\000\224\000\000\000\000\000\232\000\000\000\227\000\000\000\000\000\000\000\000\000\000\000\233\000\000\000\000\000\234\000\227\000\000\000\235\000\236\002;\000\224\000\000\000\228\000\000\000\000\000\000\000\000\000\000\000\213\000\231\000\000\000\000\000\228\000\232\000\000\000\227\000\000\000\000\000\213\000\231\000\000\000\233\000\221\000\240\000\234\000\222\000\255\000\235\000\236\002H\000\000\000\000\000\228\000\000\000\000\000\000\000\000\000\000\000\213\000\231\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\224\000\000\000\000\000\221\000\240\000\000\000\222\000\255\000\000\000\000\000\232\000\000\000\000\000\000\000\000\000\227\000\000\000\000\000\233\000\000\000\232\000\234\000\000\000\000\000\235\000\236\002V\000\000\000\233\000\000\000\000\000\234\000\228\000\000\000\235\000\236\002b\000\000\000\213\000\231\000\232\000\000\000\000\000\000\000\000\000\000\000\224\000\000\000\233\000\221\000\240\000\234\000\222\000\255\000\235\000\236\002\140\000\000\000\000\000\000\000\240\000\227\000\000\000\255\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\224\000\000\000\228\000\221\000\240\000\000\000\222\000\255\000\213\000\231\000\000\000\000\000\000\000\232\000\000\000\227\000\000\000\000\000\000\000\000\000\000\000\233\000\221\000\000\000\234\000\222\000\000\000\235\000\236\002\142\000\000\000\000\000\228\000\000\000\000\000\000\000\000\000\000\000\213\000\231\000\000\000\000\000\000\000\000\000\000\000\000\000\224\000\000\000\000\000\000\000\000\000\000\000\221\000\240\000\000\000\222\000\255\000\000\000\000\000\232\000\000\000\227\000\000\000\000\000\000\000\000\000\000\000\233\000\000\000\000\000\234\000\000\000\000\000\235\000\236\002\252\000\224\000\000\000\228\000\000\000\000\000\000\000\000\000\000\000\213\000\231\000\000\000\000\000\000\000\232\000\000\000\227\000\000\000\000\000\000\000\224\000\000\000\233\000\221\000\240\000\234\000\222\000\255\000\235\000\236\003\021\000\000\000\000\000\228\000\000\000\227\000\000\000\000\000\000\000\213\000\231\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\224\000\000\000\228\000\221\000\240\000\000\000\222\000\255\000\213\000\231\000\232\000\000\000\000\000\000\000\000\000\227\000\000\000\000\000\233\000\000\000\000\000\234\000\000\000\000\000\235\000\236\004\029\000\000\000\000\000\000\000\000\000\000\000\228\000\221\000\000\000\000\000\222\000\000\000\213\000\231\000\232\000\000\000\000\000\000\000\000\000\000\000\224\000\000\000\233\000\000\000\240\000\234\000\000\000\255\000\235\000\236\004$\000\000\000\000\000\232\000\000\000\227\000\000\000\000\000\000\000\000\000\000\000\233\000\000\000\000\000\234\000\000\000\000\000\235\000\236\0044\000\224\000\000\000\228\000\221\000\240\000\000\000\222\000\255\000\213\000\231\000\000\000\000\000\000\000\232\000\000\000\227\000\000\000\000\000\000\000\000\000\000\000\233\000\000\000\240\000\234\000\000\000\255\000\235\000\236\004@\000\224\000\000\000\228\000\221\000\000\000\000\000\222\000\000\000\213\000\231\000\000\000\000\000\000\000\221\000\000\000\227\006_\000\000\000\000\000\000\000\000\000\000\000\000\000\240\000\000\000\000\000\255\000\000\000\000\000\232\000\000\000\000\000\228\000\000\000\000\000\000\000\000\000\233\000\213\000\231\000\234\000\000\000\000\000\235\000\236\005z\000\224\000\000\000\221\000\000\000\000\000\222\000\000\000\000\000\000\000\000\000\000\000\221\000\000\000\232\000\222\000\227\000\000\000\000\000\000\000\000\000\000\000\233\000\000\000\240\000\234\000\000\000\255\000\235\000\236\006\006\000\224\000\000\000\228\000\000\000\000\000\000\000\000\000\000\000\213\000\231\006a\000\000\000\000\000\232\000\000\000\227\000\000\000\000\000\000\000\000\000\000\000\233\000\000\000\240\000\234\000\227\000\255\000\235\000\236\006\018\000\000\000\000\000\228\000\000\000\000\000\000\000\000\000\000\000\213\000\231\000\000\000\000\000\228\000\000\000\000\000\224\000\000\000\000\000\213\006d\000\000\000\000\000\000\000\240\000\224\000\000\000\255\000\000\000\221\000\232\000\227\000\222\000\000\000\000\000\000\000\000\000\000\000\233\000\221\000\227\000\234\006_\000\000\000\235\000\236\006,\000\000\000\228\000\000\000\000\000\000\000\000\000\000\000\213\000\231\000\000\000\228\000\000\000\000\000\232\000\000\000\000\000\213\000\231\000\000\000\000\000\000\000\233\000\000\000\240\000\234\000\000\000\255\000\235\000\236\006<\000\000\000\233\000\000\000\000\006e\000\000\000\221\000\235\000\236\006_\000\000\000\000\000\000\000\000\000\000\000\000\000\000\006/\000\000\006r\000\000\006g\000\000\000\240\000\000\000\224\000\255\000\000\000\232\000\000\000\000\000\000\000\000\000\240\000\000\006a\000\233\000\232\000\000\000\234\000\227\000\000\000\235\000\236\006\217\000\233\000\000\000\000\000\234\000\000\000\227\000\235\000\236\006\235\000\000\000\000\000\000\000\228\000\000\000\000\000\000\001\171\001\172\000\213\000\231\000\000\000\000\000\228\000\240\000\000\000\000\000\255\000\000\000\213\006d\000\000\000\000\000\240\000\000\006a\000\255\001\173\003!\000\000\001\175\001\176\000\000\000\000\000\000\000\000\000\000\000\000\000\221\000\000\000\227\000\222\000\000\000\000\000\000\000\000\001\171\001\172\000\000\000\000\000\000\000\221\000\000\000\000\000\222\000\000\000\000\000\228\000\000\000\000\000\232\000\000\000\000\000\213\006d\000\000\001\173\001\205\000\233\001\175\001\176\000\234\000\000\000\000\000\235\000\236\007\003\000\000\000\233\000\000\000\000\006e\000\000\000\000\000\235\000\236\000\000\000\000\000\000\000\000\000\000\000\000\000\221\000\000\006/\000\222\007?\000\000\006g\000\000\000\240\000\000\000\000\000\255\000\000\000\000\001\180\000\000\000\000\000\000\000\240\000\224\001\206\000\000\000\000\000\000\000\000\000\000\001\181\000\000\000\000\001w\000\233\000\000\000\224\006e\000\227\000\000\000\235\000\236\000\000\000\000\000\000\000\000\000\221\000\000\000\000\000\222\006/\000\227\007Y\000\000\006g\000\228\000\000\001\209\000\000\000\000\000\000\000\213\000\231\000\000\000\000\000\000\000\240\000\000\000\228\001\181\007\\\000\000\001w\000\221\000\213\000\231\000\222\000\224\000\000\000\000\000\000\000\000\000\000\000\221\000\000\000\000\000\222\000\000\000\000\000\000\000\000\000\000\000\227\000\000\000\000\000\000\000\000\000\000\000\000\001\198\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\199\000\228\001\200\001\179\000\232\000\000\000\000\000\213\000\231\000\000\000\000\000\224\000\233\000\000\007e\000\234\000\000\000\232\000\235\000\236\007\234\000\221\000\000\000\000\000\222\000\233\000\227\000\000\000\234\000\000\001\198\000\235\000\236\007\244\000\000\000\000\000\000\000\000\000\224\001\231\000\000\001\200\001\179\000\228\000\240\000\000\000\000\000\255\000\224\000\213\000\231\006v\000\000\000\227\000\000\000\000\000\000\000\240\000\232\000\000\000\255\000\000\000\000\000\227\000\000\000\000\000\233\006v\000\000\000\234\000\228\000\000\000\235\000\236\bQ\000\000\000\213\000\231\000\000\006w\000\228\006x\001\171\001\172\000\000\000\000\000\213\000\231\000\000\000\000\000\000\000\000\000\000\000\000\000\224\006w\000\000\006x\000\240\000\000\000\232\000\255\001\173\001\174\000\000\001\175\001\176\000\000\000\233\000\227\000\000\000\234\000\000\006y\000\235\000\236\bT\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\228\000\232\000\000\006y\000\000\000\000\000\213\000\231\000\000\000\233\000\000\000\232\000\234\000\000\000\240\000\235\000\236\000\255\000\000\000\233\000\000\006z\000\234\000\000\000\000\000\235\000\236\000\000\000\000\000\000\000\000\006{\006|\000\000\006}\000\000\000\000\006z\000\000\000\000\000\000\000\240\000\000\007i\002\135\000\000\000\000\006{\006|\000\000\006}\000\240\000\000\000\000\002\137\001\180\000\000\000\232\006\183\007i\000\000\007j\000\000\000\000\007q\000\233\000\000\001\181\000\234\000\000\001w\000\235\000\236\007r\006~\001\171\001\172\007j\000\000\000\000\007q\000\000\000\000\000\000\000\000\000\000\006\127\000\000\000\000\007r\000\000\006\129\006\139\000\000\000\000\001\173\001\187\000\240\001\175\001\176\005\147\000\000\006\127\000\000\006\181\007s\000\000\006\129\006\139\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\006\181\007s\006\182\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\171\001\172\000\000\000\000\000\000\001\198\000\000\006\182\000\000\007t\000\000\000\000\000\000\000\000\001\199\000\000\001\200\001\179\000\000\007u\001\173\001\197\000\000\001\175\001\176\007t\000\000\001\171\001\172\000\000\000\000\000\000\000\000\000\000\000\000\007u\000\000\000\000\007v\000\000\000\000\001\171\001\172\001\180\007\130\000\000\000\000\001\173\001\208\000\000\001\175\001\176\000\000\000\000\007v\001\181\000\000\000\000\001w\007x\007\215\001\173\001\225\000\000\001\175\001\176\000\000\000\000\000\000\000\000\000\000\000\000\000\000\007y\000\000\007x\000\000\000\000\007{\000\000\000\000\000\000\001\171\001\172\000\000\000\000\000\000\000\000\000\000\007y\000\000\007}\000\000\000\000\007{\001\171\001\172\000\000\000\000\001\180\000\000\000\000\001\173\001\238\000\000\001\175\001\176\007}\000\000\007~\000\000\001\181\000\000\000\000\001w\001\173\001\255\000\000\001\175\001\176\000\000\000\000\000\000\000\000\001\198\007~\001\180\001\171\001\172\000\000\000\000\000\000\000\000\001\199\000\000\001\200\001\179\000\000\001\181\000\000\001\180\001w\000\000\001\171\001\172\000\000\000\000\001\173\002+\000\000\001\175\001\176\001\181\001\171\001\172\001w\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\173\002?\000\000\001\175\001\176\000\000\000\000\000\000\000\000\000\000\001\173\002L\000\000\001\175\001\176\001\171\001\172\001\198\001\180\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\199\000\000\001\200\001\179\001\181\001\180\000\000\001w\000\000\001\173\002P\000\000\001\175\001\176\000\000\000\000\000\000\001\181\001\198\000\000\001w\000\000\000\000\000\000\000\000\000\000\000\000\001\199\000\000\001\200\001\179\000\000\001\198\000\000\000\000\000\000\000\000\001\180\001\171\001\172\000\000\001\199\000\000\001\200\001\179\000\000\000\000\000\000\000\000\001\181\000\000\000\000\001w\001\180\000\000\000\000\000\000\000\000\001\173\002Z\000\000\001\175\001\176\001\180\000\000\001\181\000\000\000\000\001w\000\000\000\000\000\000\000\000\001\198\000\000\001\181\000\000\000\000\001w\000\000\000\000\000\000\001\199\000\000\001\200\001\179\001\198\000\000\001\180\001\171\001\172\000\000\000\000\000\000\000\000\001\199\000\000\001\200\001\179\000\000\001\181\000\000\000\000\001w\000\000\000\000\000\000\000\000\000\000\001\173\003 \000\000\001\175\001\176\000\000\000\000\000\000\000\000\001\198\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\199\000\000\001\200\001\179\000\000\000\000\000\221\001\198\000\000\000\222\001\180\001\171\001\172\000\000\000\000\000\000\001\199\001\198\001\200\001\179\000\000\000\000\001\181\000\000\000\000\001w\001\199\000\000\001\200\001\179\000\000\001\173\004D\000\000\001\175\001\176\001\171\001\172\000\000\000\000\000\000\000\000\001\198\000\000\001\171\001\172\000\000\000\000\000\000\000\000\000\000\001\199\000\000\001\200\001\179\000\000\001\173\007\225\000\000\001\175\001\176\001\180\000\000\000\000\001\173\007\238\000\000\001\175\001\176\000\000\000\000\000\000\000\000\001\181\000\000\000\221\001w\000\000\000\222\000\224\000\000\002\229\002\230\001\172\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\198\000\000\000\000\000\227\000\000\000\000\002\229\002\230\001\172\001\199\000\000\001\200\001\179\005>\002\229\002\230\001\172\000\000\000\000\001\180\000\228\000\000\000\000\000\000\000\000\000\000\000\213\000\231\000\000\002\231\000\000\001\181\000\000\000\000\001w\000\000\000\000\002\255\002\229\002\230\001\172\000\000\000\000\000\000\001\180\000\000\000\000\000\000\000\000\000\000\000\000\001\198\001\180\000\000\000\000\000\000\001\181\000\224\000\000\001w\001\199\003\001\001\200\001\179\001\181\000\000\000\000\001w\000\000\000\000\000\000\000\000\000\227\000\000\000\000\000\000\000\000\bE\002\229\002\230\001\172\000\000\000\000\000\000\000\000\000\233\000\000\000\000\000\234\000\228\002\232\000\235\000\236\000\000\000\000\000\213\000\231\000\000\000\000\000\000\001\198\0036\002\233\000\000\003D\001w\002\232\000\000\000\000\001\199\000\000\001\200\001\179\000\000\002\232\000\000\000\000\000\240\002\233\000\000\003D\001w\000\000\000\000\000\000\001\198\002\233\000\000\003D\001w\000\000\000\000\000\000\001\198\001\199\000\000\001\200\001\179\002\232\002\229\002\230\001\172\001\199\000\000\001\200\001\179\bJ\000\000\000\000\000\000\002\233\000\000\003D\001w\000\233\000\000\000\000\000\234\000\000\000\000\000\235\000\236\003C\000\000\000\000\002\229\002\230\001\172\000\000\000\000\000\000\003E\000\000\000\000\000\000\000\000\000\000\000\000\002\232\000\000\003F\000\000\001\200\003G\000\000\000\000\000\240\003E\003X\000\000\002\233\000\000\003D\001w\000\000\003E\003F\000\000\001\200\003G\002\229\002\230\001\172\000\000\003F\000\000\001\200\003G\000\000\000\000\002\229\002\230\001\172\000\000\000\000\000\000\000\000\000\000\000\000\003E\000\000\000\000\000\000\003Z\000\000\000\000\000\000\000\000\003F\000\000\001\200\003G\000\000\003l\000\000\002\229\002\230\001\172\000\000\002\232\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\233\000\000\003D\001w\000\000\000\000\000\000\003t\003E\002\229\002\230\001\172\000\000\000\000\002\232\000\000\000\000\003F\000\000\001\200\003G\000\000\002\229\002\230\001\172\000\000\002\233\000\000\003D\001w\000\000\000\000\003\136\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\b\000\000\000\000\000\000\002\232\000\000\000\000\000\000\000\000\002\229\002\230\001\172\000\000\000\000\002\232\000\000\002\233\000\000\003D\001w\000\000\000\000\000\000\000\000\003E\000\000\002\233\000\000\003D\001w\000\000\000\000\005\011\003F\000\000\001\200\003G\000\000\000\000\002\232\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\229\002\230\001\172\003E\002\233\000\000\003D\001w\000\000\000\000\000\000\000\000\003F\000\000\001\200\003G\000\000\002\232\002\229\002\230\001\172\000\000\000\000\007\251\000\000\000\000\000\000\000\000\000\000\002\233\002\232\003D\001w\000\000\000\000\000\000\000\000\000\000\003E\000\000\000\000\b\n\002\233\000\000\003D\001w\000\000\003F\003E\001\200\003G\000\000\000\000\000\000\000\000\000\000\000\000\003F\000\000\001\200\003G\000\000\002\232\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003E\002\233\000\000\003D\001w\000\000\000\000\000\000\000\000\003F\000\000\001\200\003G\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003E\000\000\002\232\000\000\000\000\000\000\000\000\000\000\000\000\003F\000\000\001\200\003G\003E\002\233\000\000\003D\001w\000\000\000\000\002\232\000\000\003F\000\000\001\200\003G\000\000\000\000\000\000\000\000\000\000\000\000\002\233\000\000\003D\001w\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003E\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003F\000\000\001\200\003G\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003E\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003F\000\000\001\200\003G\000\000\000\000\000\000\000\000\000\000\003E\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003F\000\000\001\200\003G")) and semantic_action = [| (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4221 "parsing/parser.mly" ( "+" ) # 1514 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4222 "parsing/parser.mly" ( "+." ) # 1539 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.core_type) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = # 3664 "parsing/parser.mly" ( _1 ) # 1564 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = ty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ty_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _2_inlined1 : (Asttypes.label) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let ty : (Parsetree.core_type) = Obj.magic ty in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_ty_ in let _endpos = _endpos__2_inlined1_ in let _v = let _1 = let _1 = let tyvar = let (_endpos__2_, _2) = (_endpos__2_inlined1_, _2_inlined1) in let _endpos = _endpos__2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3612 "parsing/parser.mly" ( mkrhs _2 _sloc ) # 1618 "parsing/parser.ml" in # 3667 "parsing/parser.mly" ( Ptyp_alias(ty, tyvar) ) # 1624 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__2_inlined1_, _startpos_ty_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1043 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 1634 "parsing/parser.ml" in ( # 3669 "parsing/parser.mly" ( _1 ) # 1640 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = body; CamlinternalMenhirLib.EngineTypes.startp = _startpos_body_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_body_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let body : (Parsetree.pattern * Parsetree.expression * Parsetree.value_constraint option * bool) = Obj.magic body in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in let _v = let attrs2 = let _1 = _1_inlined2 in # 4308 "parsing/parser.mly" ( _1 ) # 1691 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 1700 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2765 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in mklb ~loc:_sloc false body attrs ) # 1712 "parsing/parser.ml" : (let_binding)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = # 4105 "parsing/parser.mly" ( _1 ) # 1738 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Asttypes.label) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = # 4106 "parsing/parser.mly" ( Lident _1 ) # 1763 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = type_; CamlinternalMenhirLib.EngineTypes.startp = _startpos_type__; CamlinternalMenhirLib.EngineTypes.endp = _endpos_type__; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let type_ : (Parsetree.core_type) = Obj.magic type_ in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_type__ in let _endpos = _endpos_type__ in let _v : (Parsetree.core_type) = # 3845 "parsing/parser.mly" ( type_ ) # 1788 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = let tid = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 1820 "parsing/parser.ml" in let tys = # 3878 "parsing/parser.mly" ( [] ) # 1826 "parsing/parser.ml" in # 3849 "parsing/parser.mly" ( Ptyp_constr (tid, tys) ) # 1831 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1043 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 1840 "parsing/parser.ml" in ( # 3863 "parsing/parser.mly" ( _1 ) # 1846 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = ty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ty_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _1 : (Longident.t) = Obj.magic _1 in let ty : (Parsetree.core_type) = Obj.magic ty in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_ty_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = let tid = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 1886 "parsing/parser.ml" in let tys = # 3880 "parsing/parser.mly" ( [ ty ] ) # 1892 "parsing/parser.ml" in # 3849 "parsing/parser.mly" ( Ptyp_constr (tid, tys) ) # 1897 "parsing/parser.ml" in let _startpos__1_ = _startpos_ty_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1043 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 1907 "parsing/parser.ml" in ( # 3863 "parsing/parser.mly" ( _1 ) # 1913 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _1_inlined1 : (Longident.t) = Obj.magic _1_inlined1 in let _3 : unit = Obj.magic _3 in let xs : (Parsetree.core_type list) = Obj.magic xs in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let _1 = let tid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 1968 "parsing/parser.ml" in let tys = let tys = let xs = # 264 "" ( List.rev xs ) # 1976 "parsing/parser.ml" in # 1185 "parsing/parser.mly" ( xs ) # 1981 "parsing/parser.ml" in # 3882 "parsing/parser.mly" ( tys ) # 1987 "parsing/parser.ml" in # 3849 "parsing/parser.mly" ( Ptyp_constr (tid, tys) ) # 1993 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1043 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 2003 "parsing/parser.ml" in ( # 3863 "parsing/parser.mly" ( _1 ) # 2009 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _1 : (Longident.t) = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__2_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = let cid = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 2049 "parsing/parser.ml" in let tys = # 3878 "parsing/parser.mly" ( [] ) # 2055 "parsing/parser.ml" in # 3853 "parsing/parser.mly" ( Ptyp_class (cid, tys) ) # 2060 "parsing/parser.ml" in let _startpos__1_ = _startpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1043 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 2070 "parsing/parser.ml" in ( # 3863 "parsing/parser.mly" ( _1 ) # 2076 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = ty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ty_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1 : (Longident.t) = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let ty : (Parsetree.core_type) = Obj.magic ty in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_ty_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = let cid = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 2123 "parsing/parser.ml" in let tys = # 3880 "parsing/parser.mly" ( [ ty ] ) # 2129 "parsing/parser.ml" in # 3853 "parsing/parser.mly" ( Ptyp_class (cid, tys) ) # 2134 "parsing/parser.ml" in let _startpos__1_ = _startpos_ty_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1043 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 2144 "parsing/parser.ml" in ( # 3863 "parsing/parser.mly" ( _1 ) # 2150 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _1_inlined1 : (Longident.t) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _3 : unit = Obj.magic _3 in let xs : (Parsetree.core_type list) = Obj.magic xs in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let _1 = let cid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 2212 "parsing/parser.ml" in let tys = let tys = let xs = # 264 "" ( List.rev xs ) # 2220 "parsing/parser.ml" in # 1185 "parsing/parser.mly" ( xs ) # 2225 "parsing/parser.ml" in # 3882 "parsing/parser.mly" ( tys ) # 2231 "parsing/parser.ml" in # 3853 "parsing/parser.mly" ( Ptyp_class (cid, tys) ) # 2237 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1043 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 2247 "parsing/parser.ml" in ( # 3863 "parsing/parser.mly" ( _1 ) # 2253 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = type_; CamlinternalMenhirLib.EngineTypes.startp = _startpos_type__; CamlinternalMenhirLib.EngineTypes.endp = _endpos_type__; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let type_ : (Parsetree.core_type) = Obj.magic type_ in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_type__ in let _v = let _1 = let _1 = let mod_ident = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 2300 "parsing/parser.ml" in # 3857 "parsing/parser.mly" ( Ptyp_open (mod_ident, type_) ) # 2306 "parsing/parser.ml" in let _endpos__1_ = _endpos_type__ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1043 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 2316 "parsing/parser.ml" in ( # 3863 "parsing/parser.mly" ( _1 ) # 2322 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ident; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ident_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ident_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let ident : (Asttypes.label) = Obj.magic ident in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_ident_ in let _v = let _1 = let _1 = # 3859 "parsing/parser.mly" ( Ptyp_var ident ) # 2357 "parsing/parser.ml" in let _endpos__1_ = _endpos_ident_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1043 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 2366 "parsing/parser.ml" in ( # 3863 "parsing/parser.mly" ( _1 ) # 2372 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 3861 "parsing/parser.mly" ( Ptyp_any ) # 2400 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1043 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 2408 "parsing/parser.ml" in ( # 3863 "parsing/parser.mly" ( _1 ) # 2414 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (string) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 4289 "parsing/parser.mly" ( _1 ) # 2442 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1036 "parsing/parser.mly" ( mkloc _1 (make_loc _sloc) ) # 2450 "parsing/parser.ml" in ( # 4291 "parsing/parser.mly" ( _1 ) # 2456 "parsing/parser.ml" : (Ast_helper.str)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : (Ast_helper.str) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (string) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = # 4290 "parsing/parser.mly" ( _1 ^ "." ^ _3.txt ) # 2498 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1036 "parsing/parser.mly" ( mkloc _1 (make_loc _sloc) ) # 2507 "parsing/parser.ml" in ( # 4291 "parsing/parser.mly" ( _1 ) # 2513 "parsing/parser.ml" : (Ast_helper.str)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.payload) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.payload) = # 4346 "parsing/parser.mly" ( Builtin_attributes.mark_payload_attrs_used _1; _1 ) # 2541 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in let _3 : (Parsetree.payload) = Obj.magic _3 in let _2 : (Ast_helper.str) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v = let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 4295 "parsing/parser.mly" ( mk_attr ~loc:(make_loc _sloc) _2 _3 ) # 2591 "parsing/parser.ml" : (Parsetree.attribute)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.class_expr) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.class_expr) = # 2019 "parsing/parser.mly" ( _1 ) # 2617 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : (Parsetree.class_expr) = Obj.magic _3 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 2659 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2021 "parsing/parser.mly" ( wrap_class_attrs ~loc:_sloc _3 _2 ) # 2668 "parsing/parser.ml" : (Parsetree.class_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : (Parsetree.class_expr) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (let_bindings) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2023 "parsing/parser.mly" ( class_of_let_bindings ~loc:_sloc _1 _3 ) # 2712 "parsing/parser.ml" : (Parsetree.class_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _7; CamlinternalMenhirLib.EngineTypes.startp = _startpos__7_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__7_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let _7 : (Parsetree.class_expr) = Obj.magic _7 in let _6 : unit = Obj.magic _6 in let _1_inlined2 : (Longident.t) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in let _v = let _5 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 2779 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined2_ in let _4 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 2788 "parsing/parser.ml" in let _3 = # 4213 "parsing/parser.mly" ( Fresh ) # 2794 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2025 "parsing/parser.mly" ( let loc = (_startpos__2_, _endpos__5_) in let od = Opn.mk ~override:_3 ~loc:(make_loc loc) _5 in mkclass ~loc:_sloc ~attrs:_4 (Pcl_open(od, _7)) ) # 2804 "parsing/parser.ml" : (Parsetree.class_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _7; CamlinternalMenhirLib.EngineTypes.startp = _startpos__7_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__7_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _7 : (Parsetree.class_expr) = Obj.magic _7 in let _6 : unit = Obj.magic _6 in let _1_inlined3 : (Longident.t) = Obj.magic _1_inlined3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in let _v = let _5 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 2878 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in # 4312 "parsing/parser.mly" ( _1 ) # 2887 "parsing/parser.ml" in let _3 = # 4214 "parsing/parser.mly" ( Override ) # 2893 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2025 "parsing/parser.mly" ( let loc = (_startpos__2_, _endpos__5_) in let od = Opn.mk ~override:_3 ~loc:(make_loc loc) _5 in mkclass ~loc:_sloc ~attrs:_4 (Pcl_open(od, _7)) ) # 2903 "parsing/parser.ml" : (Parsetree.class_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.attribute) = Obj.magic _2 in let _1 : (Parsetree.class_expr) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.class_expr) = # 2029 "parsing/parser.mly" ( Cl.attr _1 _2 ) # 2936 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let xs : ((Asttypes.arg_label * Parsetree.expression) list) = Obj.magic xs in let _1 : (Parsetree.class_expr) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _1 = let _2 = let xs = # 264 "" ( List.rev xs ) # 2972 "parsing/parser.ml" in # 1104 "parsing/parser.mly" ( xs ) # 2977 "parsing/parser.ml" in # 2032 "parsing/parser.mly" ( Pcl_apply(_1, _2) ) # 2983 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1055 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) # 2993 "parsing/parser.ml" in ( # 2035 "parsing/parser.mly" ( _1 ) # 2999 "parsing/parser.ml" : (Parsetree.class_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.extension) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 2034 "parsing/parser.mly" ( Pcl_extension _1 ) # 3027 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1055 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) # 3035 "parsing/parser.ml" in ( # 2035 "parsing/parser.mly" ( _1 ) # 3041 "parsing/parser.ml" : (Parsetree.class_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = self; CamlinternalMenhirLib.EngineTypes.startp = _startpos_self_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_self_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let self : (string Asttypes.loc option) = Obj.magic self in let _4 : (Parsetree.class_expr) = Obj.magic _4 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in let _v = let _6 = let _1 = _1_inlined2 in # 4308 "parsing/parser.mly" ( _1 ) # 3098 "parsing/parser.ml" in let _endpos__6_ = _endpos__1_inlined2_ in let _3 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 3107 "parsing/parser.ml" in let _2 = # 4213 "parsing/parser.mly" ( Fresh ) # 3113 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2084 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_inherit (_2, _4, self)) ~attrs:(_3@_6) ~docs ) # 3122 "parsing/parser.ml" : (Parsetree.class_field)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = self; CamlinternalMenhirLib.EngineTypes.startp = _startpos_self_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_self_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let self : (string Asttypes.loc option) = Obj.magic self in let _4 : (Parsetree.class_expr) = Obj.magic _4 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in let _v = let _6 = let _1 = _1_inlined3 in # 4308 "parsing/parser.mly" ( _1 ) # 3186 "parsing/parser.ml" in let _endpos__6_ = _endpos__1_inlined3_ in let _3 = let _1 = _1_inlined2 in # 4312 "parsing/parser.mly" ( _1 ) # 3195 "parsing/parser.ml" in let _2 = # 4214 "parsing/parser.mly" ( Override ) # 3201 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2084 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_inherit (_2, _4, self)) ~attrs:(_3@_6) ~docs ) # 3210 "parsing/parser.ml" : (Parsetree.class_field)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _2 : ((Asttypes.label Asttypes.loc * Asttypes.mutable_flag * Parsetree.class_field_kind) * Parsetree.attributes) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _3 = let _1 = _1_inlined1 in # 4308 "parsing/parser.mly" ( _1 ) # 3255 "parsing/parser.ml" in let _endpos__3_ = _endpos__1_inlined1_ in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2087 "parsing/parser.mly" ( let v, attrs = _2 in let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_val v) ~attrs:(attrs@_3) ~docs ) # 3267 "parsing/parser.ml" : (Parsetree.class_field)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _2 : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * Parsetree.class_field_kind) * Parsetree.attributes) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _3 = let _1 = _1_inlined1 in # 4308 "parsing/parser.mly" ( _1 ) # 3312 "parsing/parser.ml" in let _endpos__3_ = _endpos__1_inlined1_ in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2091 "parsing/parser.mly" ( let meth, attrs = _2 in let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_method meth) ~attrs:(attrs@_3) ~docs ) # 3324 "parsing/parser.ml" : (Parsetree.class_field)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _3 : (Parsetree.core_type * Parsetree.core_type) = Obj.magic _3 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in let _v = let _4 = let _1 = _1_inlined2 in # 4308 "parsing/parser.mly" ( _1 ) # 3374 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 3383 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2095 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_constraint _3) ~attrs:(_2@_4) ~docs ) # 3393 "parsing/parser.ml" : (Parsetree.class_field)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _3 : (Parsetree.expression) = Obj.magic _3 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in let _v = let _4 = let _1 = _1_inlined2 in # 4308 "parsing/parser.mly" ( _1 ) # 3443 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 3452 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2098 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_initializer _3) ~attrs:(_2@_4) ~docs ) # 3462 "parsing/parser.ml" : (Parsetree.class_field)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : (Parsetree.extension) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _2 = let _1 = _1_inlined1 in # 4308 "parsing/parser.mly" ( _1 ) # 3498 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in let _endpos = _endpos__2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2101 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_extension _1) ~attrs:_2 ~docs ) # 3509 "parsing/parser.ml" : (Parsetree.class_field)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.attribute) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 2104 "parsing/parser.mly" ( Pcf_attribute _1 ) # 3537 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1053 "parsing/parser.mly" ( mkcf ~loc:_sloc _1 ) # 3545 "parsing/parser.ml" in ( # 2105 "parsing/parser.mly" ( _1 ) # 3551 "parsing/parser.ml" : (Parsetree.class_field)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.class_expr) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.class_expr) = # 1999 "parsing/parser.mly" ( _2 ) # 3584 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : (Parsetree.class_expr) = Obj.magic _4 in let _3 : unit = Obj.magic _3 in let _2 : (Parsetree.class_type) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v = let _1 = let _1 = # 2002 "parsing/parser.mly" ( Pcl_constraint(_4, _2) ) # 3632 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1055 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) # 3641 "parsing/parser.ml" in ( # 2005 "parsing/parser.mly" ( _1 ) # 3647 "parsing/parser.ml" : (Parsetree.class_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.class_expr) = Obj.magic _2 in let _1 : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v = let _1 = let _1 = # 2004 "parsing/parser.mly" ( let (l,o,p) = _1 in Pcl_fun(l, o, p, _2) ) # 3682 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1055 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) # 3691 "parsing/parser.ml" in ( # 2005 "parsing/parser.mly" ( _1 ) # 3697 "parsing/parser.ml" : (Parsetree.class_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = e; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let e : (Parsetree.class_expr) = Obj.magic e in let _2 : unit = Obj.magic _2 in let _1 : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_e_ in let _v = let _1 = let _1 = # 2060 "parsing/parser.mly" ( let (l,o,p) = _1 in Pcl_fun(l, o, p, e) ) # 3739 "parsing/parser.ml" in let _endpos__1_ = _endpos_e_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1055 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) # 3748 "parsing/parser.ml" in ( # 2061 "parsing/parser.mly" ( _1 ) # 3754 "parsing/parser.ml" : (Parsetree.class_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = e; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let e : (Parsetree.class_expr) = Obj.magic e in let _1 : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_e_ in let _v = let _1 = let _1 = # 2060 "parsing/parser.mly" ( let (l,o,p) = _1 in Pcl_fun(l, o, p, e) ) # 3789 "parsing/parser.ml" in let _endpos__1_ = _endpos_e_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1055 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) # 3798 "parsing/parser.ml" in ( # 2061 "parsing/parser.mly" ( _1 ) # 3804 "parsing/parser.ml" : (Parsetree.class_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = # 4095 "parsing/parser.mly" ( _1 ) # 3830 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : (Parsetree.pattern) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2069 "parsing/parser.mly" ( reloc_pat ~loc:_sloc _2 ) # 3873 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let _4 : (Parsetree.core_type) = Obj.magic _4 in let _3 : unit = Obj.magic _3 in let _2 : (Parsetree.pattern) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _1 = let _1 = # 2071 "parsing/parser.mly" ( Ppat_constraint(_2, _4) ) # 3929 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 3938 "parsing/parser.ml" in ( # 2072 "parsing/parser.mly" ( _1 ) # 3944 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v = let _endpos = _endpos__0_ in let _symbolstartpos = _endpos in let _sloc = (_symbolstartpos, _endpos) in ( # 2074 "parsing/parser.mly" ( ghpat ~loc:_sloc Ppat_any ) # 3967 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : (Parsetree.core_type) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.core_type) = # 2199 "parsing/parser.mly" ( _2 ) # 4007 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v = let _endpos = _endpos__0_ in let _symbolstartpos = _endpos in let _sloc = (_symbolstartpos, _endpos) in ( # 2201 "parsing/parser.mly" ( ghtyp ~loc:_sloc Ptyp_any ) # 4029 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _3 : (Parsetree.class_type) = Obj.magic _3 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in let _v = let _4 = let _1 = _1_inlined2 in # 4308 "parsing/parser.mly" ( _1 ) # 4079 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 4088 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2209 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_inherit _3) ~attrs:(_2@_4) ~docs ) # 4098 "parsing/parser.ml" : (Parsetree.class_type_field)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = flags; CamlinternalMenhirLib.EngineTypes.startp = _startpos_flags_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_flags_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let ty : (Parsetree.core_type) = Obj.magic ty in let _3 : unit = Obj.magic _3 in let _1_inlined2 : ( # 819 "parsing/parser.mly" (string) # 4159 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let flags : (Asttypes.mutable_flag * Asttypes.virtual_flag) = Obj.magic flags in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in let _v = let _4 = let _1 = _1_inlined3 in # 4308 "parsing/parser.mly" ( _1 ) # 4173 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined3_ in let _3 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let label = let _1 = # 3962 "parsing/parser.mly" ( _1 ) # 4183 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 4191 "parsing/parser.ml" in # 2234 "parsing/parser.mly" ( let mut, virt = flags in label, mut, virt, ty ) # 4200 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 4208 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2212 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_val _3) ~attrs:(_2@_4) ~docs ) # 4218 "parsing/parser.ml" : (Parsetree.class_type_field)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined4 : (Parsetree.attributes) = Obj.magic _1_inlined4 in let _1_inlined3 : (Parsetree.core_type) = Obj.magic _1_inlined3 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( # 819 "parsing/parser.mly" (string) # 4279 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let _3 : (Asttypes.private_flag * Asttypes.virtual_flag) = Obj.magic _3 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined4_ in let _v = let _7 = let _1 = _1_inlined4 in # 4308 "parsing/parser.mly" ( _1 ) # 4293 "parsing/parser.ml" in let _endpos__7_ = _endpos__1_inlined4_ in let _6 = let _1 = _1_inlined3 in # 3630 "parsing/parser.mly" ( _1 ) # 4302 "parsing/parser.ml" in let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = # 3962 "parsing/parser.mly" ( _1 ) # 4310 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 4318 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 4326 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2216 "parsing/parser.mly" ( let (p, v) = _3 in let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_method (_4, p, v, _6)) ~attrs:(_2@_7) ~docs ) # 4337 "parsing/parser.ml" : (Parsetree.class_type_field)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _3 : (Parsetree.core_type * Parsetree.core_type) = Obj.magic _3 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in let _v = let _4 = let _1 = _1_inlined2 in # 4308 "parsing/parser.mly" ( _1 ) # 4387 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 4396 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2220 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_constraint _3) ~attrs:(_2@_4) ~docs ) # 4406 "parsing/parser.ml" : (Parsetree.class_type_field)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : (Parsetree.extension) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _2 = let _1 = _1_inlined1 in # 4308 "parsing/parser.mly" ( _1 ) # 4442 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in let _endpos = _endpos__2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2223 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_extension _1) ~attrs:_2 ~docs ) # 4453 "parsing/parser.ml" : (Parsetree.class_type_field)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.attribute) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 2226 "parsing/parser.mly" ( Pctf_attribute _1 ) # 4481 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1051 "parsing/parser.mly" ( mkctf ~loc:_sloc _1 ) # 4489 "parsing/parser.ml" in ( # 2227 "parsing/parser.mly" ( _1 ) # 4495 "parsing/parser.ml" : (Parsetree.class_type_field)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = let cid = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 4528 "parsing/parser.ml" in let tys = let tys = # 2185 "parsing/parser.mly" ( [] ) # 4535 "parsing/parser.ml" in # 2191 "parsing/parser.mly" ( tys ) # 4540 "parsing/parser.ml" in # 2168 "parsing/parser.mly" ( Pcty_constr (cid, tys) ) # 4546 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1049 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) # 4555 "parsing/parser.ml" in ( # 2171 "parsing/parser.mly" ( _1 ) # 4561 "parsing/parser.ml" : (Parsetree.class_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _1_inlined1 : (Longident.t) = Obj.magic _1_inlined1 in let _3 : unit = Obj.magic _3 in let xs : (Parsetree.core_type list) = Obj.magic xs in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let _1 = let cid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 4616 "parsing/parser.ml" in let tys = let tys = let params = let xs = # 264 "" ( List.rev xs ) # 4625 "parsing/parser.ml" in # 1157 "parsing/parser.mly" ( xs ) # 4630 "parsing/parser.ml" in # 2187 "parsing/parser.mly" ( params ) # 4636 "parsing/parser.ml" in # 2191 "parsing/parser.mly" ( tys ) # 4642 "parsing/parser.ml" in # 2168 "parsing/parser.mly" ( Pcty_constr (cid, tys) ) # 4648 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1049 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) # 4658 "parsing/parser.ml" in ( # 2171 "parsing/parser.mly" ( _1 ) # 4664 "parsing/parser.ml" : (Parsetree.class_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.extension) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 2170 "parsing/parser.mly" ( Pcty_extension _1 ) # 4692 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1049 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) # 4700 "parsing/parser.ml" in ( # 2171 "parsing/parser.mly" ( _1 ) # 4706 "parsing/parser.ml" : (Parsetree.class_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xss; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xss_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xss_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in let xss : (Parsetree.class_type_field list list) = Obj.magic xss in let _1_inlined2 : (Parsetree.core_type) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v = let _3 = let _1 = _1_inlined2 in let _2 = let _1 = let _1 = # 271 "" ( List.flatten xss ) # 4765 "parsing/parser.ml" in # 2205 "parsing/parser.mly" ( _1 ) # 4770 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 1001 "parsing/parser.mly" ( extra_csig _startpos _endpos _1 ) # 4779 "parsing/parser.ml" in # 2195 "parsing/parser.mly" ( Csig.mk _1 _2 ) # 4785 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 4793 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2173 "parsing/parser.mly" ( mkcty ~loc:_sloc ~attrs:_2 (Pcty_signature _3) ) # 4802 "parsing/parser.ml" : (Parsetree.class_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xss; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xss_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xss_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in let xss : (Parsetree.class_type_field list list) = Obj.magic xss in let _1_inlined2 : (Parsetree.core_type) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v = let _3 = let _1 = _1_inlined2 in let _2 = let _1 = let _1 = # 271 "" ( List.flatten xss ) # 4861 "parsing/parser.ml" in # 2205 "parsing/parser.mly" ( _1 ) # 4866 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 1001 "parsing/parser.mly" ( extra_csig _startpos _endpos _1 ) # 4875 "parsing/parser.ml" in # 2195 "parsing/parser.mly" ( Csig.mk _1 _2 ) # 4881 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 4889 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 2175 "parsing/parser.mly" ( unclosed "object" _loc__1_ "end" _loc__4_ ) # 4897 "parsing/parser.ml" : (Parsetree.class_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.attribute) = Obj.magic _2 in let _1 : (Parsetree.class_type) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.class_type) = # 2177 "parsing/parser.mly" ( Cty.attr _1 _2 ) # 4930 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _7; CamlinternalMenhirLib.EngineTypes.startp = _startpos__7_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__7_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let _7 : (Parsetree.class_type) = Obj.magic _7 in let _6 : unit = Obj.magic _6 in let _1_inlined2 : (Longident.t) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in let _v = let _5 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 4996 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined2_ in let _4 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 5005 "parsing/parser.ml" in let _3 = # 4213 "parsing/parser.mly" ( Fresh ) # 5011 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2179 "parsing/parser.mly" ( let loc = (_startpos__2_, _endpos__5_) in let od = Opn.mk ~override:_3 ~loc:(make_loc loc) _5 in mkcty ~loc:_sloc ~attrs:_4 (Pcty_open(od, _7)) ) # 5021 "parsing/parser.ml" : (Parsetree.class_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _7; CamlinternalMenhirLib.EngineTypes.startp = _startpos__7_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__7_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _7 : (Parsetree.class_type) = Obj.magic _7 in let _6 : unit = Obj.magic _6 in let _1_inlined3 : (Longident.t) = Obj.magic _1_inlined3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in let _v = let _5 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 5095 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in # 4312 "parsing/parser.mly" ( _1 ) # 5104 "parsing/parser.ml" in let _3 = # 4214 "parsing/parser.mly" ( Override ) # 5110 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2179 "parsing/parser.mly" ( let loc = (_startpos__2_, _endpos__5_) in let od = Opn.mk ~override:_3 ~loc:(make_loc loc) _5 in mkcty ~loc:_sloc ~attrs:_4 (Pcty_open(od, _7)) ) # 5120 "parsing/parser.ml" : (Parsetree.class_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : (Parsetree.class_expr) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.class_expr) = # 2039 "parsing/parser.mly" ( _2 ) # 5160 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : (Parsetree.class_expr) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 2041 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) # 5202 "parsing/parser.ml" : (Parsetree.class_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = let cid = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 5235 "parsing/parser.ml" in let tys = let tys = # 2185 "parsing/parser.mly" ( [] ) # 5242 "parsing/parser.ml" in # 2191 "parsing/parser.mly" ( tys ) # 5247 "parsing/parser.ml" in # 2044 "parsing/parser.mly" ( Pcl_constr(cid, tys) ) # 5253 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1055 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) # 5262 "parsing/parser.ml" in ( # 2051 "parsing/parser.mly" ( _1 ) # 5268 "parsing/parser.ml" : (Parsetree.class_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _1_inlined1 : (Longident.t) = Obj.magic _1_inlined1 in let _3 : unit = Obj.magic _3 in let xs : (Parsetree.core_type list) = Obj.magic xs in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let _1 = let cid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 5323 "parsing/parser.ml" in let tys = let tys = let params = let xs = # 264 "" ( List.rev xs ) # 5332 "parsing/parser.ml" in # 1157 "parsing/parser.mly" ( xs ) # 5337 "parsing/parser.ml" in # 2187 "parsing/parser.mly" ( params ) # 5343 "parsing/parser.ml" in # 2191 "parsing/parser.mly" ( tys ) # 5349 "parsing/parser.ml" in # 2044 "parsing/parser.mly" ( Pcl_constr(cid, tys) ) # 5355 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1055 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) # 5365 "parsing/parser.ml" in ( # 2051 "parsing/parser.mly" ( _1 ) # 5371 "parsing/parser.ml" : (Parsetree.class_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xss; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xss_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xss_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in let xss : (Parsetree.class_field list list) = Obj.magic xss in let _1_inlined2 : (Parsetree.pattern) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v = let _1 = let _1 = let _3 = let _1 = _1_inlined2 in let _2 = let _1 = let _1 = # 271 "" ( List.flatten xss ) # 5432 "parsing/parser.ml" in # 2078 "parsing/parser.mly" ( _1 ) # 5437 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 1000 "parsing/parser.mly" ( extra_cstr _startpos _endpos _1 ) # 5446 "parsing/parser.ml" in # 2065 "parsing/parser.mly" ( Cstr.mk _1 _2 ) # 5452 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 5460 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2046 "parsing/parser.mly" ( unclosed "object" _loc__1_ "end" _loc__4_ ) # 5468 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1055 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) # 5478 "parsing/parser.ml" in ( # 2051 "parsing/parser.mly" ( _1 ) # 5484 "parsing/parser.ml" : (Parsetree.class_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let _4 : (Parsetree.class_type) = Obj.magic _4 in let _3 : unit = Obj.magic _3 in let _2 : (Parsetree.class_expr) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _1 = let _1 = # 2048 "parsing/parser.mly" ( Pcl_constraint(_2, _4) ) # 5540 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1055 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) # 5549 "parsing/parser.ml" in ( # 2051 "parsing/parser.mly" ( _1 ) # 5555 "parsing/parser.ml" : (Parsetree.class_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let _4 : (Parsetree.class_type) = Obj.magic _4 in let _3 : unit = Obj.magic _3 in let _2 : (Parsetree.class_expr) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _1 = let _1 = let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2050 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) # 5614 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1055 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) # 5624 "parsing/parser.ml" in ( # 2051 "parsing/parser.mly" ( _1 ) # 5630 "parsing/parser.ml" : (Parsetree.class_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xss; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xss_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xss_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in let xss : (Parsetree.class_field list list) = Obj.magic xss in let _1_inlined2 : (Parsetree.pattern) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v = let _3 = let _1 = _1_inlined2 in let _2 = let _1 = let _1 = # 271 "" ( List.flatten xss ) # 5689 "parsing/parser.ml" in # 2078 "parsing/parser.mly" ( _1 ) # 5694 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 1000 "parsing/parser.mly" ( extra_cstr _startpos _endpos _1 ) # 5703 "parsing/parser.ml" in # 2065 "parsing/parser.mly" ( Cstr.mk _1 _2 ) # 5709 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 5717 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2053 "parsing/parser.mly" ( mkclass ~loc:_sloc ~attrs:_2 (Pcl_structure _3) ) # 5726 "parsing/parser.ml" : (Parsetree.class_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.class_type) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.class_type) = # 2156 "parsing/parser.mly" ( _1 ) # 5752 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = codomain; CamlinternalMenhirLib.EngineTypes.startp = _startpos_codomain_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_codomain_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = domain; CamlinternalMenhirLib.EngineTypes.startp = _startpos_domain_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_domain_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let codomain : (Parsetree.class_type) = Obj.magic codomain in let _3 : unit = Obj.magic _3 in let domain : (Parsetree.core_type) = Obj.magic domain in let label : (string) = Obj.magic label in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in let _endpos = _endpos_codomain_ in let _v = let _1 = let _1 = let label = # 3721 "parsing/parser.mly" ( Optional label ) # 5801 "parsing/parser.ml" in # 2162 "parsing/parser.mly" ( Pcty_arrow(label, domain, codomain) ) # 5806 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1049 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) # 5816 "parsing/parser.ml" in ( # 2163 "parsing/parser.mly" ( _1 ) # 5822 "parsing/parser.ml" : (Parsetree.class_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = codomain; CamlinternalMenhirLib.EngineTypes.startp = _startpos_codomain_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_codomain_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = domain; CamlinternalMenhirLib.EngineTypes.startp = _startpos_domain_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_domain_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let codomain : (Parsetree.class_type) = Obj.magic codomain in let _3 : unit = Obj.magic _3 in let domain : (Parsetree.core_type) = Obj.magic domain in let _2 : unit = Obj.magic _2 in let label : ( # 819 "parsing/parser.mly" (string) # 5872 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in let _endpos = _endpos_codomain_ in let _v = let _1 = let _1 = let label = # 3723 "parsing/parser.mly" ( Labelled label ) # 5883 "parsing/parser.ml" in # 2162 "parsing/parser.mly" ( Pcty_arrow(label, domain, codomain) ) # 5888 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1049 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) # 5898 "parsing/parser.ml" in ( # 2163 "parsing/parser.mly" ( _1 ) # 5904 "parsing/parser.ml" : (Parsetree.class_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = codomain; CamlinternalMenhirLib.EngineTypes.startp = _startpos_codomain_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_codomain_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = domain; CamlinternalMenhirLib.EngineTypes.startp = _startpos_domain_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_domain_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let codomain : (Parsetree.class_type) = Obj.magic codomain in let _3 : unit = Obj.magic _3 in let domain : (Parsetree.core_type) = Obj.magic domain in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_domain_ in let _endpos = _endpos_codomain_ in let _v = let _1 = let _1 = let label = # 3725 "parsing/parser.mly" ( Nolabel ) # 5947 "parsing/parser.ml" in # 2162 "parsing/parser.mly" ( Pcty_arrow(label, domain, codomain) ) # 5952 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_domain_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1049 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) # 5962 "parsing/parser.ml" in ( # 2163 "parsing/parser.mly" ( _1 ) # 5968 "parsing/parser.ml" : (Parsetree.class_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = bs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_bs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_bs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = csig; CamlinternalMenhirLib.EngineTypes.startp = _startpos_csig_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_csig_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _8; CamlinternalMenhirLib.EngineTypes.startp = _startpos__8_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__8_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = params; CamlinternalMenhirLib.EngineTypes.startp = _startpos_params_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_params_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = virt; CamlinternalMenhirLib.EngineTypes.startp = _startpos_virt_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_virt_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let bs : (Parsetree.class_type_declaration list) = Obj.magic bs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let csig : (Parsetree.class_type) = Obj.magic csig in let _8 : unit = Obj.magic _8 in let _1_inlined2 : ( # 819 "parsing/parser.mly" (string) # 6054 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in let virt : (Asttypes.virtual_flag) = Obj.magic virt in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_bs_ in let _v = let _1 = let a = let attrs2 = let _1 = _1_inlined3 in # 4308 "parsing/parser.mly" ( _1 ) # 6073 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 6085 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 6093 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2301 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in ext, Ci.mk id csig ~virt ~params ~attrs ~loc ~docs ) # 6108 "parsing/parser.ml" in # 1254 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) # 6114 "parsing/parser.ml" in ( # 2289 "parsing/parser.mly" ( _1 ) # 6120 "parsing/parser.ml" : (string Asttypes.loc option * Parsetree.class_type_declaration list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = # 4092 "parsing/parser.mly" ( _1 ) # 6146 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( # 805 "parsing/parser.mly" (string * char option) # 6167 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3968 "parsing/parser.mly" ( let (n, m) = _1 in mkconst ~loc:_sloc (Pconst_integer (n, m)) ) # 6180 "parsing/parser.ml" : (Parsetree.constant)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( # 763 "parsing/parser.mly" (char) # 6202 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3970 "parsing/parser.mly" ( mkconst ~loc:_sloc (Pconst_char _1) ) # 6214 "parsing/parser.ml" : (Parsetree.constant)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( # 857 "parsing/parser.mly" (string * Location.t * string option) # 6236 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3971 "parsing/parser.mly" ( let (s, strloc, d) = _1 in mkconst ~loc:_sloc (Pconst_string (s,strloc,d)) ) # 6249 "parsing/parser.ml" : (Parsetree.constant)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( # 784 "parsing/parser.mly" (string * char option) # 6271 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3973 "parsing/parser.mly" ( let (f, m) = _1 in mkconst ~loc:_sloc (Pconst_float (f, m)) ) # 6284 "parsing/parser.ml" : (Parsetree.constant)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.label) = # 4049 "parsing/parser.mly" ( "[]" ) # 6317 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.label) = # 4050 "parsing/parser.mly" ( "()" ) # 6349 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = # 4051 "parsing/parser.mly" ( "false" ) # 6374 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = # 4052 "parsing/parser.mly" ( "true" ) # 6399 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( # 870 "parsing/parser.mly" (string) # 6420 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = # 4055 "parsing/parser.mly" ( _1 ) # 6428 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = # 4046 "parsing/parser.mly" ( "::" ) # 6468 "parsing/parser.ml" in ( # 4056 "parsing/parser.mly" ( _1 ) # 6473 "parsing/parser.ml" : (Asttypes.label)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Asttypes.label) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = # 4057 "parsing/parser.mly" ( _1 ) # 6499 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = # 4060 "parsing/parser.mly" ( _1 ) # 6524 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _3 = # 4046 "parsing/parser.mly" ( "::" ) # 6578 "parsing/parser.ml" in let _startpos__3_ = _startpos__1_inlined1_ in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 4061 "parsing/parser.mly" ( ldot _1 _loc__1_ _3 _loc__3_ ) # 6586 "parsing/parser.ml" : (Longident.t)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = # 4046 "parsing/parser.mly" ( "::" ) # 6627 "parsing/parser.ml" in ( # 4062 "parsing/parser.mly" ( Lident _1 ) # 6632 "parsing/parser.ml" : (Longident.t)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Asttypes.label) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = # 4063 "parsing/parser.mly" ( Lident _1 ) # 6658 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : (Parsetree.core_type) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.core_type) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.core_type * Parsetree.core_type) = # 2245 "parsing/parser.mly" ( _1, _3 ) # 6697 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let x : (Parsetree.core_type) = Obj.magic x in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v = let tys = let xs = let xs = # 1141 "parsing/parser.mly" ( [ x ] ) # 6725 "parsing/parser.ml" in # 264 "" ( List.rev xs ) # 6730 "parsing/parser.ml" in # 1161 "parsing/parser.mly" ( xs ) # 6736 "parsing/parser.ml" in ( # 3495 "parsing/parser.mly" ( Pcstr_tuple tys ) # 6742 "parsing/parser.ml" : (Parsetree.constructor_arguments)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let x : (Parsetree.core_type) = Obj.magic x in let _2 : unit = Obj.magic _2 in let xs : (Parsetree.core_type list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v = let tys = let xs = let xs = # 1145 "parsing/parser.mly" ( x :: xs ) # 6785 "parsing/parser.ml" in # 264 "" ( List.rev xs ) # 6790 "parsing/parser.ml" in # 1161 "parsing/parser.mly" ( xs ) # 6796 "parsing/parser.ml" in ( # 3495 "parsing/parser.mly" ( Pcstr_tuple tys ) # 6802 "parsing/parser.ml" : (Parsetree.constructor_arguments)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : (Parsetree.label_declaration list) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.constructor_arguments) = # 3497 "parsing/parser.mly" ( Pcstr_record _2 ) # 6842 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.constructor_declaration list) = # 3418 "parsing/parser.mly" ( [] ) # 6867 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let xs : (Parsetree.constructor_declaration list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_xs_ in let _v = let cs = # 1246 "parsing/parser.mly" ( List.rev xs ) # 6893 "parsing/parser.ml" in ( # 3420 "parsing/parser.mly" ( cs ) # 6898 "parsing/parser.ml" : (Parsetree.constructor_declaration list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.core_type) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = # 3655 "parsing/parser.mly" ( _1 ) # 6925 "parsing/parser.ml" in ( # 3645 "parsing/parser.mly" ( _1 ) # 6930 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.attribute) = Obj.magic _2 in let _1 : (Parsetree.core_type) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type) = # 3647 "parsing/parser.mly" ( Typ.attr _1 _2 ) # 6963 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.core_type) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = # 3840 "parsing/parser.mly" ( _1 ) # 6988 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.core_type) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = # 3840 "parsing/parser.mly" ( _1 ) # 7013 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.core_type) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = # 3840 "parsing/parser.mly" ( _1 ) # 7038 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = type_; CamlinternalMenhirLib.EngineTypes.startp = _startpos_type__; CamlinternalMenhirLib.EngineTypes.endp = _endpos_type__; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let type_ : (Parsetree.core_type) = Obj.magic type_ in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.core_type) = # 3793 "parsing/parser.mly" ( type_ ) # 7077 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let _1_inlined3 : (Parsetree.module_type) = Obj.magic _1_inlined3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let package_type = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3886 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in Typ.package_type ~loc:(make_loc _sloc) ~attrs lid cstrs ) # 7144 "parsing/parser.ml" in let ext_attrs = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 7154 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 7160 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3795 "parsing/parser.mly" ( mktyp_attrs ~loc:_sloc (Ptyp_package package_type) ext_attrs ) # 7169 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = field; CamlinternalMenhirLib.EngineTypes.startp = _startpos_field_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_field_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let field : (Parsetree.row_field) = Obj.magic field in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = # 3798 "parsing/parser.mly" ( Ptyp_variant([ field ], Closed, None) ) # 7211 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1043 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 7220 "parsing/parser.ml" in ( # 3815 "parsing/parser.mly" ( _1 ) # 7226 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in let xs : (Parsetree.row_field list) = Obj.magic xs in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v = let _1 = let _1 = let fields = let _1 = let xs = # 264 "" ( List.rev xs ) # 7278 "parsing/parser.ml" in # 1157 "parsing/parser.mly" ( xs ) # 7283 "parsing/parser.ml" in # 3894 "parsing/parser.mly" ( _1 ) # 7289 "parsing/parser.ml" in # 3800 "parsing/parser.mly" ( Ptyp_variant(fields, Closed, None) ) # 7295 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1043 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 7305 "parsing/parser.ml" in ( # 3815 "parsing/parser.mly" ( _1 ) # 7311 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = field; CamlinternalMenhirLib.EngineTypes.startp = _startpos_field_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_field_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let xs : (Parsetree.row_field list) = Obj.magic xs in let _3 : unit = Obj.magic _3 in let field : (Parsetree.row_field) = Obj.magic field in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _1 = let _1 = let fields = let _1 = let xs = # 264 "" ( List.rev xs ) # 7370 "parsing/parser.ml" in # 1157 "parsing/parser.mly" ( xs ) # 7375 "parsing/parser.ml" in # 3894 "parsing/parser.mly" ( _1 ) # 7381 "parsing/parser.ml" in # 3802 "parsing/parser.mly" ( Ptyp_variant(field :: fields, Closed, None) ) # 7387 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1043 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 7397 "parsing/parser.ml" in ( # 3815 "parsing/parser.mly" ( _1 ) # 7403 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in let xs : (Parsetree.row_field list) = Obj.magic xs in let _2 : (unit option) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v = let _1 = let _1 = let fields = let _1 = let xs = # 264 "" ( List.rev xs ) # 7455 "parsing/parser.ml" in # 1157 "parsing/parser.mly" ( xs ) # 7460 "parsing/parser.ml" in # 3894 "parsing/parser.mly" ( _1 ) # 7466 "parsing/parser.ml" in # 3804 "parsing/parser.mly" ( Ptyp_variant(fields, Open, None) ) # 7472 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1043 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 7482 "parsing/parser.ml" in ( # 3815 "parsing/parser.mly" ( _1 ) # 7488 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v = let _1 = let _1 = # 3806 "parsing/parser.mly" ( Ptyp_variant([], Open, None) ) # 7523 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1043 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 7532 "parsing/parser.ml" in ( # 3815 "parsing/parser.mly" ( _1 ) # 7538 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in let xs : (Parsetree.row_field list) = Obj.magic xs in let _2 : (unit option) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v = let _1 = let _1 = let fields = let _1 = let xs = # 264 "" ( List.rev xs ) # 7590 "parsing/parser.ml" in # 1157 "parsing/parser.mly" ( xs ) # 7595 "parsing/parser.ml" in # 3894 "parsing/parser.mly" ( _1 ) # 7601 "parsing/parser.ml" in # 3808 "parsing/parser.mly" ( Ptyp_variant(fields, Closed, Some []) ) # 7607 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1043 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 7617 "parsing/parser.ml" in ( # 3815 "parsing/parser.mly" ( _1 ) # 7623 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let _6 : unit = Obj.magic _6 in let xs_inlined1 : (Asttypes.label list) = Obj.magic xs_inlined1 in let _4 : unit = Obj.magic _4 in let xs : (Parsetree.row_field list) = Obj.magic xs in let _2 : (unit option) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in let _v = let _1 = let _1 = let tags = let xs = xs_inlined1 in let _1 = let xs = # 264 "" ( List.rev xs ) # 7690 "parsing/parser.ml" in # 1104 "parsing/parser.mly" ( xs ) # 7695 "parsing/parser.ml" in # 3922 "parsing/parser.mly" ( _1 ) # 7701 "parsing/parser.ml" in let fields = let _1 = let xs = # 264 "" ( List.rev xs ) # 7709 "parsing/parser.ml" in # 1157 "parsing/parser.mly" ( xs ) # 7714 "parsing/parser.ml" in # 3894 "parsing/parser.mly" ( _1 ) # 7720 "parsing/parser.ml" in # 3813 "parsing/parser.mly" ( Ptyp_variant(fields, Closed, Some tags) ) # 7726 "parsing/parser.ml" in let _endpos__1_ = _endpos__6_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1043 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 7736 "parsing/parser.ml" in ( # 3815 "parsing/parser.mly" ( _1 ) # 7742 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.direction_flag) = # 4158 "parsing/parser.mly" ( Upto ) # 7768 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.direction_flag) = # 4159 "parsing/parser.mly" ( Downto ) # 7793 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (string Asttypes.loc option) = # 4315 "parsing/parser.mly" ( None ) # 7811 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Ast_helper.str) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (string Asttypes.loc option) = # 4316 "parsing/parser.mly" ( Some _2 ) # 7843 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in let _3 : (Parsetree.payload) = Obj.magic _3 in let _2 : (Ast_helper.str) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.extension) = # 4328 "parsing/parser.mly" ( (_2, _3) ) # 7889 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( # 859 "parsing/parser.mly" (string * Location.t * string * Location.t * string option) # 7910 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 4330 "parsing/parser.mly" ( mk_quotedext ~loc:_sloc _1 ) # 7922 "parsing/parser.ml" : (Parsetree.extension)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (Longident.t) = Obj.magic _1_inlined2 in let _3 : unit = Obj.magic _3 in let _1_inlined1 : (Asttypes.label) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in let _v = let attrs = let _1 = _1_inlined3 in # 4312 "parsing/parser.mly" ( _1 ) # 7979 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined3_ in let lid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 7991 "parsing/parser.ml" in let cid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 8002 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3565 "parsing/parser.mly" ( let info = symbol_info _endpos in Te.rebind cid lid ~attrs ~loc:(make_loc _sloc) ~info ) # 8012 "parsing/parser.ml" : (Parsetree.extension_constructor)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (Longident.t) = Obj.magic _1_inlined1 in let _3 : unit = Obj.magic _3 in let _1 : (Asttypes.label) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in let _v = let attrs = let _1 = _1_inlined2 in # 4312 "parsing/parser.mly" ( _1 ) # 8062 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined2_ in let lid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 8074 "parsing/parser.ml" in let cid = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 8084 "parsing/parser.ml" in let _startpos_cid_ = _startpos__1_ in let _1 = # 4132 "parsing/parser.mly" ( () ) # 8091 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos_cid_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3565 "parsing/parser.mly" ( let info = symbol_info _endpos in Te.rebind cid lid ~attrs ~loc:(make_loc _sloc) ~info ) # 8100 "parsing/parser.ml" : (Parsetree.extension_constructor)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let ext : (Parsetree.extension) = Obj.magic ext in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_ext_ in let _endpos = _endpos_ext_ in let _v = let _1 = let _1 = # 3831 "parsing/parser.mly" ( Ptyp_extension ext ) # 8128 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ext_, _startpos_ext_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1043 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 8137 "parsing/parser.ml" in ( # 3833 "parsing/parser.mly" ( _1 ) # 8143 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in let _3 : (Parsetree.payload) = Obj.magic _3 in let _2 : (Ast_helper.str) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v = let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 4303 "parsing/parser.mly" ( mark_symbol_docs _sloc; mk_attr ~loc:(make_loc _sloc) _2 _3 ) # 8195 "parsing/parser.ml" : (Parsetree.attribute)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v = let params = # 2185 "parsing/parser.mly" ( [] ) # 8215 "parsing/parser.ml" in ( # 2010 "parsing/parser.mly" ( params ) # 8220 "parsing/parser.ml" : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let xs : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic xs in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let params = let params = let xs = # 264 "" ( List.rev xs ) # 8263 "parsing/parser.ml" in # 1157 "parsing/parser.mly" ( xs ) # 8268 "parsing/parser.ml" in # 2187 "parsing/parser.mly" ( params ) # 8274 "parsing/parser.ml" in ( # 2010 "parsing/parser.mly" ( params ) # 8280 "parsing/parser.ml" : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 8330 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 8335 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 8341 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 8352 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 8358 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2802 "parsing/parser.mly" ( let ext, attrs = _2 in match ext with | None -> Pfunction_cases (_3, make_loc _sloc, attrs) | Some _ -> (* function%foo extension nodes interrupt the arity *) let cases = Pfunction_cases (_3, make_loc _sloc, []) in Pfunction_body (mkexp_attrs ~loc:_sloc (mkfunction [] None cases) _2) ) # 8375 "parsing/parser.ml" : (Parsetree.function_body)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.function_body) = # 2812 "parsing/parser.mly" ( Pfunction_body _1 ) # 8401 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = # 2441 "parsing/parser.mly" ( _1 ) # 8426 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let _5 : (Parsetree.expression) = Obj.magic _5 in let _4 : unit = Obj.magic _4 in let _3 : (Parsetree.structure_item) = Obj.magic _3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _1 = let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 8492 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 8498 "parsing/parser.ml" in # 2478 "parsing/parser.mly" ( Pexp_struct_item(_3, _5), _2 ) # 8504 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 8515 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _6 : (Parsetree.function_body) = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _4 : (Parsetree.core_type option) = Obj.magic _4 in let _3 : (Parsetree.function_param list) = Obj.magic _3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in let _v = let _1 = let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 8589 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 8595 "parsing/parser.ml" in # 2482 "parsing/parser.mly" ( let body_constraint = Option.map (fun x -> Pconstraint x) _4 in mkfunction _3 body_constraint _6, _2 ) # 8603 "parsing/parser.ml" in let _endpos__1_ = _endpos__6_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 8614 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _4 : unit = Obj.magic _4 in let _3 : (Parsetree.expression) = Obj.magic _3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _5 = let xs = let xs = # 264 "" ( List.rev xs ) # 8679 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 8684 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 8690 "parsing/parser.ml" in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 8700 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 8706 "parsing/parser.ml" in # 2486 "parsing/parser.mly" ( Pexp_match(_3, _5), _2 ) # 8712 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 8723 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _4 : unit = Obj.magic _4 in let _3 : (Parsetree.expression) = Obj.magic _3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _5 = let xs = let xs = # 264 "" ( List.rev xs ) # 8788 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 8793 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 8799 "parsing/parser.ml" in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 8809 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 8815 "parsing/parser.ml" in # 2488 "parsing/parser.mly" ( Pexp_try(_3, _5), _2 ) # 8821 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 8832 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let _4 : unit = Obj.magic _4 in let _3 : (Parsetree.expression) = Obj.magic _3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _1 = let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 8899 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 8905 "parsing/parser.ml" in # 2490 "parsing/parser.mly" ( syntax_error() ) # 8911 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 8922 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined4 : (Parsetree.expression) = Obj.magic _1_inlined4 in let _6 : unit = Obj.magic _6 in let _1_inlined3 : (Parsetree.expression) = Obj.magic _1_inlined3 in let _4 : unit = Obj.magic _4 in let _3 : (Parsetree.expression) = Obj.magic _3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined4_ in let _v = let _1 = let _7 = let _1 = _1_inlined4 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 9001 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 9006 "parsing/parser.ml" in let _5 = let _1 = _1_inlined3 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 9014 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 9019 "parsing/parser.ml" in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 9029 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 9035 "parsing/parser.ml" in # 2492 "parsing/parser.mly" ( Pexp_ifthenelse(_3, _5, Some _7), _2 ) # 9041 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined4_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 9052 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined6 : (Parsetree.attributes) = Obj.magic _1_inlined6 in let _1_inlined5 : (string Asttypes.loc option) = Obj.magic _1_inlined5 in let _1_inlined4 : unit = Obj.magic _1_inlined4 in let _6 : unit = Obj.magic _6 in let _1_inlined3 : (Parsetree.expression) = Obj.magic _1_inlined3 in let _4 : unit = Obj.magic _4 in let _3 : (Parsetree.expression) = Obj.magic _3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _7 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined4_, _1_inlined6, _1_inlined5) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 9155 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 9160 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 9166 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 9177 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 9183 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 9203 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 9209 "parsing/parser.ml" in let _5 = let _1 = _1_inlined3 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 9217 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 9222 "parsing/parser.ml" in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 9232 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 9238 "parsing/parser.ml" in # 2492 "parsing/parser.mly" ( Pexp_ifthenelse(_3, _5, Some _7), _2 ) # 9244 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 9255 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined6 : (Parsetree.expression) = Obj.magic _1_inlined6 in let _6 : unit = Obj.magic _6 in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined5 : (Parsetree.attributes) = Obj.magic _1_inlined5 in let _1_inlined4 : (string Asttypes.loc option) = Obj.magic _1_inlined4 in let _1_inlined3 : unit = Obj.magic _1_inlined3 in let _4 : unit = Obj.magic _4 in let _3 : (Parsetree.expression) = Obj.magic _3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined6_ in let _v = let _1 = let _7 = let _1 = _1_inlined6 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 9355 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 9360 "parsing/parser.ml" in let _5 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined3_, _1_inlined5, _1_inlined4) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 9371 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 9376 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 9382 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 9393 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 9399 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 9419 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 9425 "parsing/parser.ml" in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 9435 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 9441 "parsing/parser.ml" in # 2492 "parsing/parser.mly" ( Pexp_ifthenelse(_3, _5, Some _7), _2 ) # 9447 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined6_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 9458 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined8; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined8_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined8_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined7; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined7_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined7_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let xs_inlined1 : (Parsetree.case list) = Obj.magic xs_inlined1 in let _1_inlined8 : (Parsetree.attributes) = Obj.magic _1_inlined8 in let _1_inlined7 : (string Asttypes.loc option) = Obj.magic _1_inlined7 in let _1_inlined6 : unit = Obj.magic _1_inlined6 in let _6 : unit = Obj.magic _6 in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined5 : (Parsetree.attributes) = Obj.magic _1_inlined5 in let _1_inlined4 : (string Asttypes.loc option) = Obj.magic _1_inlined4 in let _1_inlined3 : unit = Obj.magic _1_inlined3 in let _4 : unit = Obj.magic _4 in let _3 : (Parsetree.expression) = Obj.magic _3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_inlined1_ in let _v = let _1 = let _7 = let (_endpos_xs_, _startpos__1_, xs, _1_inlined2, _1_inlined1) = (_endpos_xs_inlined1_, _startpos__1_inlined6_, xs_inlined1, _1_inlined8, _1_inlined7) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 9582 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 9587 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 9593 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 9604 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 9610 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 9630 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 9636 "parsing/parser.ml" in let _5 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined3_, _1_inlined5, _1_inlined4) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 9647 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 9652 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 9658 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 9669 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 9675 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 9695 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 9701 "parsing/parser.ml" in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 9711 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 9717 "parsing/parser.ml" in # 2492 "parsing/parser.mly" ( Pexp_ifthenelse(_3, _5, Some _7), _2 ) # 9723 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_inlined1_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 9734 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let _1_inlined3 : (Parsetree.expression) = Obj.magic _1_inlined3 in let _4 : unit = Obj.magic _4 in let _3 : (Parsetree.expression) = Obj.magic _3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in let _v = let _1 = let _5 = let _1 = _1_inlined3 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 9799 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 9804 "parsing/parser.ml" in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 9814 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 9820 "parsing/parser.ml" in # 2494 "parsing/parser.mly" ( Pexp_ifthenelse(_3, _5, None), _2 ) # 9826 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 9837 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined5 : (Parsetree.attributes) = Obj.magic _1_inlined5 in let _1_inlined4 : (string Asttypes.loc option) = Obj.magic _1_inlined4 in let _1_inlined3 : unit = Obj.magic _1_inlined3 in let _4 : unit = Obj.magic _4 in let _3 : (Parsetree.expression) = Obj.magic _3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _5 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined3_, _1_inlined5, _1_inlined4) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 9926 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 9931 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 9937 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 9948 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 9954 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 9974 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 9980 "parsing/parser.ml" in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 9990 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 9996 "parsing/parser.ml" in # 2494 "parsing/parser.mly" ( Pexp_ifthenelse(_3, _5, None), _2 ) # 10002 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 10013 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = e; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _3_inlined1 : unit = Obj.magic _3_inlined1 in let e : (Parsetree.expression) = Obj.magic e in let _1_inlined3 : unit = Obj.magic _1_inlined3 in let _3 : (Parsetree.expression) = Obj.magic _3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_inlined1_ in let _v = let _1 = let _4 = # 2507 "parsing/parser.mly" ( e ) # 10083 "parsing/parser.ml" in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 10092 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 10098 "parsing/parser.ml" in # 2496 "parsing/parser.mly" ( Pexp_while(_3, _4), _2 ) # 10104 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_inlined1_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 10115 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _3_inlined1 : unit = Obj.magic _3_inlined1 in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1_inlined3 : unit = Obj.magic _1_inlined3 in let _3 : (Parsetree.expression) = Obj.magic _3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_inlined1_ in let _v = let _1 = let _4 = let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined3_, _startpos__1_inlined3_) in let _loc__2_ = (_startpos__2_, _endpos__2_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2509 "parsing/parser.mly" ( unclosed "do" _loc__1_ "done" _loc__2_ ) # 10189 "parsing/parser.ml" in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 10199 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 10205 "parsing/parser.ml" in # 2496 "parsing/parser.mly" ( Pexp_while(_3, _4), _2 ) # 10211 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_inlined1_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 10222 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = e; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _7; CamlinternalMenhirLib.EngineTypes.startp = _startpos__7_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__7_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let _3_inlined1 : unit = Obj.magic _3_inlined1 in let e : (Parsetree.expression) = Obj.magic e in let _1_inlined3 : unit = Obj.magic _1_inlined3 in let _7 : (Parsetree.expression) = Obj.magic _7 in let _6 : (Asttypes.direction_flag) = Obj.magic _6 in let _5 : (Parsetree.expression) = Obj.magic _5 in let _4 : unit = Obj.magic _4 in let _3 : (Parsetree.pattern) = Obj.magic _3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_inlined1_ in let _v = let _1 = let _8 = # 2507 "parsing/parser.mly" ( e ) # 10320 "parsing/parser.ml" in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 10329 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 10335 "parsing/parser.ml" in # 2499 "parsing/parser.mly" ( Pexp_for(_3, _5, _7, _6, _8), _2 ) # 10341 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_inlined1_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 10352 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _7; CamlinternalMenhirLib.EngineTypes.startp = _startpos__7_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__7_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let _3_inlined1 : unit = Obj.magic _3_inlined1 in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1_inlined3 : unit = Obj.magic _1_inlined3 in let _7 : (Parsetree.expression) = Obj.magic _7 in let _6 : (Asttypes.direction_flag) = Obj.magic _6 in let _5 : (Parsetree.expression) = Obj.magic _5 in let _4 : unit = Obj.magic _4 in let _3 : (Parsetree.pattern) = Obj.magic _3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_inlined1_ in let _v = let _1 = let _8 = let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined3_, _startpos__1_inlined3_) in let _loc__2_ = (_startpos__2_, _endpos__2_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2509 "parsing/parser.mly" ( unclosed "do" _loc__1_ "done" _loc__2_ ) # 10454 "parsing/parser.ml" in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 10464 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 10470 "parsing/parser.ml" in # 2499 "parsing/parser.mly" ( Pexp_for(_3, _5, _7, _6, _8), _2 ) # 10476 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_inlined1_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 10487 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _3 : (Parsetree.expression) = Obj.magic _3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 10540 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 10546 "parsing/parser.ml" in # 2501 "parsing/parser.mly" ( Pexp_assert _3, _2 ) # 10552 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 10563 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _3 : (Parsetree.expression) = Obj.magic _3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 10616 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 10622 "parsing/parser.ml" in # 2503 "parsing/parser.mly" ( Pexp_lazy _3, _2 ) # 10628 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2443 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 10639 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let xs : ((Asttypes.arg_label * Parsetree.expression) list) = Obj.magic xs in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _1 = let _2 = let xs = # 264 "" ( List.rev xs ) # 10676 "parsing/parser.ml" in # 1104 "parsing/parser.mly" ( xs ) # 10681 "parsing/parser.ml" in # 2513 "parsing/parser.mly" ( Pexp_apply(_1, _2) ) # 10687 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 10697 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 10703 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let xs : ((string option * Parsetree.expression) list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _1 = let _1 = let xs = # 264 "" ( List.rev xs ) # 10733 "parsing/parser.ml" in # 2926 "parsing/parser.mly" ( xs ) # 10738 "parsing/parser.ml" in # 2515 "parsing/parser.mly" ( Pexp_tuple(_1) ) # 10744 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_xs_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 10754 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 10760 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v = let _1 = let _1 = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 10800 "parsing/parser.ml" in # 2517 "parsing/parser.mly" ( Pexp_construct(_1, Some _2) ) # 10806 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 10816 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 10822 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1 : (Asttypes.label) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v = let _1 = let _1 = # 2519 "parsing/parser.mly" ( Pexp_variant(_1, Some _2) ) # 10857 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 10866 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 10872 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = op; CamlinternalMenhirLib.EngineTypes.startp = _startpos_op_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_op_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1 : (Parsetree.expression) = Obj.magic _1 in let op : ( # 795 "parsing/parser.mly" (string) # 10907 "parsing/parser.ml" ) = Obj.magic op in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = let e2 = let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 10920 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 10925 "parsing/parser.ml" in let op = let _1 = # 4019 "parsing/parser.mly" ( op ) # 10932 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_op_, _startpos_op_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 10941 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 10947 "parsing/parser.ml" in let _startpos__1_ = _startpos_e1_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 10957 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 10963 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = op; CamlinternalMenhirLib.EngineTypes.startp = _startpos_op_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_op_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let op : ( # 795 "parsing/parser.mly" (string) # 11019 "parsing/parser.ml" ) = Obj.magic op in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _1 = let e2 = let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 11035 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 11040 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 11046 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 11057 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 11063 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 11083 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 11089 "parsing/parser.ml" in let op = let _1 = # 4019 "parsing/parser.mly" ( op ) # 11096 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_op_, _startpos_op_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 11105 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 11111 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 11121 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 11127 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = op; CamlinternalMenhirLib.EngineTypes.startp = _startpos_op_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_op_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1 : (Parsetree.expression) = Obj.magic _1 in let op : ( # 796 "parsing/parser.mly" (string) # 11162 "parsing/parser.ml" ) = Obj.magic op in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = let e2 = let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 11175 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 11180 "parsing/parser.ml" in let op = let _1 = # 4020 "parsing/parser.mly" ( op ) # 11187 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_op_, _startpos_op_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 11196 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 11202 "parsing/parser.ml" in let _startpos__1_ = _startpos_e1_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 11212 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 11218 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = op; CamlinternalMenhirLib.EngineTypes.startp = _startpos_op_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_op_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let op : ( # 796 "parsing/parser.mly" (string) # 11274 "parsing/parser.ml" ) = Obj.magic op in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _1 = let e2 = let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 11290 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 11295 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 11301 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 11312 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 11318 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 11338 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 11344 "parsing/parser.ml" in let op = let _1 = # 4020 "parsing/parser.mly" ( op ) # 11351 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_op_, _startpos_op_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 11360 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 11366 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 11376 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 11382 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = op; CamlinternalMenhirLib.EngineTypes.startp = _startpos_op_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_op_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1 : (Parsetree.expression) = Obj.magic _1 in let op : ( # 797 "parsing/parser.mly" (string) # 11417 "parsing/parser.ml" ) = Obj.magic op in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = let e2 = let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 11430 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 11435 "parsing/parser.ml" in let op = let _1 = # 4021 "parsing/parser.mly" ( op ) # 11442 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_op_, _startpos_op_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 11451 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 11457 "parsing/parser.ml" in let _startpos__1_ = _startpos_e1_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 11467 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 11473 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = op; CamlinternalMenhirLib.EngineTypes.startp = _startpos_op_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_op_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let op : ( # 797 "parsing/parser.mly" (string) # 11529 "parsing/parser.ml" ) = Obj.magic op in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _1 = let e2 = let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 11545 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 11550 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 11556 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 11567 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 11573 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 11593 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 11599 "parsing/parser.ml" in let op = let _1 = # 4021 "parsing/parser.mly" ( op ) # 11606 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_op_, _startpos_op_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 11615 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 11621 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 11631 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 11637 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = op; CamlinternalMenhirLib.EngineTypes.startp = _startpos_op_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_op_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1 : (Parsetree.expression) = Obj.magic _1 in let op : ( # 798 "parsing/parser.mly" (string) # 11672 "parsing/parser.ml" ) = Obj.magic op in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = let e2 = let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 11685 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 11690 "parsing/parser.ml" in let op = let _1 = # 4022 "parsing/parser.mly" ( op ) # 11697 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_op_, _startpos_op_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 11706 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 11712 "parsing/parser.ml" in let _startpos__1_ = _startpos_e1_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 11722 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 11728 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = op; CamlinternalMenhirLib.EngineTypes.startp = _startpos_op_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_op_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let op : ( # 798 "parsing/parser.mly" (string) # 11784 "parsing/parser.ml" ) = Obj.magic op in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _1 = let e2 = let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 11800 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 11805 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 11811 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 11822 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 11828 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 11848 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 11854 "parsing/parser.ml" in let op = let _1 = # 4022 "parsing/parser.mly" ( op ) # 11861 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_op_, _startpos_op_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 11870 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 11876 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 11886 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 11892 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = op; CamlinternalMenhirLib.EngineTypes.startp = _startpos_op_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_op_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1 : (Parsetree.expression) = Obj.magic _1 in let op : ( # 799 "parsing/parser.mly" (string) # 11927 "parsing/parser.ml" ) = Obj.magic op in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = let e2 = let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 11940 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 11945 "parsing/parser.ml" in let op = let _1 = # 4023 "parsing/parser.mly" ( op ) # 11952 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_op_, _startpos_op_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 11961 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 11967 "parsing/parser.ml" in let _startpos__1_ = _startpos_e1_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 11977 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 11983 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = op; CamlinternalMenhirLib.EngineTypes.startp = _startpos_op_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_op_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let op : ( # 799 "parsing/parser.mly" (string) # 12039 "parsing/parser.ml" ) = Obj.magic op in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _1 = let e2 = let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 12055 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 12060 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 12066 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 12077 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 12083 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 12103 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 12109 "parsing/parser.ml" in let op = let _1 = # 4023 "parsing/parser.mly" ( op ) # 12116 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_op_, _startpos_op_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 12125 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 12131 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 12141 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 12147 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let _1 = let e2 = let _1 = _1_inlined1 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 12192 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 12197 "parsing/parser.ml" in let op = let _1 = # 4024 "parsing/parser.mly" ("+") # 12204 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 12212 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 12218 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 12228 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 12234 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (string Asttypes.loc option) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _1 = let e2 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 12303 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 12308 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 12314 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 12325 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 12331 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 12351 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 12357 "parsing/parser.ml" in let op = let _1 = # 4024 "parsing/parser.mly" ("+") # 12364 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 12372 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 12378 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 12388 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 12394 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let _1 = let e2 = let _1 = _1_inlined1 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 12439 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 12444 "parsing/parser.ml" in let op = let _1 = # 4025 "parsing/parser.mly" ("+.") # 12451 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 12459 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 12465 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 12475 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 12481 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (string Asttypes.loc option) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _1 = let e2 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 12550 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 12555 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 12561 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 12572 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 12578 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 12598 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 12604 "parsing/parser.ml" in let op = let _1 = # 4025 "parsing/parser.mly" ("+.") # 12611 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 12619 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 12625 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 12635 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 12641 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let _1 = let e2 = let _1 = _1_inlined1 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 12686 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 12691 "parsing/parser.ml" in let op = let _1 = # 4026 "parsing/parser.mly" ("+=") # 12698 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 12706 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 12712 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 12722 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 12728 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (string Asttypes.loc option) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _1 = let e2 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 12797 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 12802 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 12808 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 12819 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 12825 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 12845 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 12851 "parsing/parser.ml" in let op = let _1 = # 4026 "parsing/parser.mly" ("+=") # 12858 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 12866 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 12872 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 12882 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 12888 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let _1 = let e2 = let _1 = _1_inlined1 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 12933 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 12938 "parsing/parser.ml" in let op = let _1 = # 4027 "parsing/parser.mly" ("-") # 12945 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 12953 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 12959 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 12969 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 12975 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (string Asttypes.loc option) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _1 = let e2 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 13044 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 13049 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 13055 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 13066 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 13072 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 13092 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 13098 "parsing/parser.ml" in let op = let _1 = # 4027 "parsing/parser.mly" ("-") # 13105 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 13113 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 13119 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 13129 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 13135 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let _1 = let e2 = let _1 = _1_inlined1 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 13180 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 13185 "parsing/parser.ml" in let op = let _1 = # 4028 "parsing/parser.mly" ("-.") # 13192 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 13200 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 13206 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 13216 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 13222 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (string Asttypes.loc option) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _1 = let e2 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 13291 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 13296 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 13302 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 13313 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 13319 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 13339 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 13345 "parsing/parser.ml" in let op = let _1 = # 4028 "parsing/parser.mly" ("-.") # 13352 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 13360 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 13366 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 13376 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 13382 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let _1 = let e2 = let _1 = _1_inlined1 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 13427 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 13432 "parsing/parser.ml" in let op = let _1 = # 4029 "parsing/parser.mly" ("*") # 13439 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 13447 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 13453 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 13463 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 13469 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (string Asttypes.loc option) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _1 = let e2 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 13538 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 13543 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 13549 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 13560 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 13566 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 13586 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 13592 "parsing/parser.ml" in let op = let _1 = # 4029 "parsing/parser.mly" ("*") # 13599 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 13607 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 13613 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 13623 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 13629 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let _1 = let e2 = let _1 = _1_inlined1 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 13674 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 13679 "parsing/parser.ml" in let op = let _1 = # 4030 "parsing/parser.mly" ("%") # 13686 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 13694 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 13700 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 13710 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 13716 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (string Asttypes.loc option) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _1 = let e2 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 13785 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 13790 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 13796 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 13807 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 13813 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 13833 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 13839 "parsing/parser.ml" in let op = let _1 = # 4030 "parsing/parser.mly" ("%") # 13846 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 13854 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 13860 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 13870 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 13876 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let _1 = let e2 = let _1 = _1_inlined1 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 13921 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 13926 "parsing/parser.ml" in let op = let _1 = # 4031 "parsing/parser.mly" ("=") # 13933 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 13941 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 13947 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 13957 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 13963 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (string Asttypes.loc option) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _1 = let e2 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 14032 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 14037 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 14043 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 14054 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 14060 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 14080 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 14086 "parsing/parser.ml" in let op = let _1 = # 4031 "parsing/parser.mly" ("=") # 14093 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 14101 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 14107 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 14117 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 14123 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let _1 = let e2 = let _1 = _1_inlined1 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 14168 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 14173 "parsing/parser.ml" in let op = let _1 = # 4032 "parsing/parser.mly" ("<") # 14180 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 14188 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 14194 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 14204 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 14210 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (string Asttypes.loc option) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _1 = let e2 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 14279 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 14284 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 14290 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 14301 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 14307 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 14327 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 14333 "parsing/parser.ml" in let op = let _1 = # 4032 "parsing/parser.mly" ("<") # 14340 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 14348 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 14354 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 14364 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 14370 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let _1 = let e2 = let _1 = _1_inlined1 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 14415 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 14420 "parsing/parser.ml" in let op = let _1 = # 4033 "parsing/parser.mly" (">") # 14427 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 14435 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 14441 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 14451 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 14457 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (string Asttypes.loc option) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _1 = let e2 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 14526 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 14531 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 14537 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 14548 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 14554 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 14574 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 14580 "parsing/parser.ml" in let op = let _1 = # 4033 "parsing/parser.mly" (">") # 14587 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 14595 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 14601 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 14611 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 14617 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let _1 = let e2 = let _1 = _1_inlined1 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 14662 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 14667 "parsing/parser.ml" in let op = let _1 = # 4034 "parsing/parser.mly" ("or") # 14674 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 14682 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 14688 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 14698 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 14704 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (string Asttypes.loc option) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _1 = let e2 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 14773 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 14778 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 14784 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 14795 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 14801 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 14821 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 14827 "parsing/parser.ml" in let op = let _1 = # 4034 "parsing/parser.mly" ("or") # 14834 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 14842 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 14848 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 14858 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 14864 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let _1 = let e2 = let _1 = _1_inlined1 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 14909 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 14914 "parsing/parser.ml" in let op = let _1 = # 4035 "parsing/parser.mly" ("||") # 14921 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 14929 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 14935 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 14945 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 14951 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (string Asttypes.loc option) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _1 = let e2 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 15020 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 15025 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 15031 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 15042 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 15048 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 15068 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 15074 "parsing/parser.ml" in let op = let _1 = # 4035 "parsing/parser.mly" ("||") # 15081 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 15089 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 15095 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 15105 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 15111 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let _1 = let e2 = let _1 = _1_inlined1 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 15156 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 15161 "parsing/parser.ml" in let op = let _1 = # 4036 "parsing/parser.mly" ("&") # 15168 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 15176 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 15182 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 15192 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 15198 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (string Asttypes.loc option) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _1 = let e2 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 15267 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 15272 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 15278 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 15289 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 15295 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 15315 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 15321 "parsing/parser.ml" in let op = let _1 = # 4036 "parsing/parser.mly" ("&") # 15328 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 15336 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 15342 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 15352 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 15358 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let _1 = let e2 = let _1 = _1_inlined1 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 15403 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 15408 "parsing/parser.ml" in let op = let _1 = # 4037 "parsing/parser.mly" ("&&") # 15415 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 15423 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 15429 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 15439 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 15445 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (string Asttypes.loc option) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _1 = let e2 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 15514 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 15519 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 15525 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 15536 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 15542 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 15562 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 15568 "parsing/parser.ml" in let op = let _1 = # 4037 "parsing/parser.mly" ("&&") # 15575 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 15583 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 15589 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 15599 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 15605 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let _1 = let e2 = let _1 = _1_inlined1 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 15650 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 15655 "parsing/parser.ml" in let op = let _1 = # 4038 "parsing/parser.mly" (":=") # 15662 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 15670 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 15676 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 15686 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 15692 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (string Asttypes.loc option) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _1 = let e2 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 15761 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 15766 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 15772 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 15783 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 15789 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 15809 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 15815 "parsing/parser.ml" in let op = let _1 = # 4038 "parsing/parser.mly" (":=") # 15822 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 15830 "parsing/parser.ml" in # 2521 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 15836 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 15846 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 15852 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in let _1 : (string) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let _1 = let _2 = let _1 = _1_inlined1 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 15890 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 15895 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in let _endpos = _endpos__2_ in let _symbolstartpos = _startpos__1_ in let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in # 2523 "parsing/parser.mly" ( mkuminus ~sloc:_sloc ~oploc:_loc__1_ _1 _2 ) # 15906 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 15916 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 15922 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (string Asttypes.loc option) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : (string) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _1 = let _2 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 15984 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 15989 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 15995 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 16006 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 16012 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 16032 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 16038 "parsing/parser.ml" in let _endpos__2_ = _endpos_xs_ in let _endpos = _endpos__2_ in let _symbolstartpos = _startpos__1_ in let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in # 2523 "parsing/parser.mly" ( mkuminus ~sloc:_sloc ~oploc:_loc__1_ _1 _2 ) # 16049 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 16059 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 16065 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in let _1 : (string) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let _1 = let _2 = let _1 = _1_inlined1 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 16103 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 16108 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in let _endpos = _endpos__2_ in let _symbolstartpos = _startpos__1_ in let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in # 2525 "parsing/parser.mly" ( mkuplus ~sloc:_sloc ~oploc:_loc__1_ _1 _2 ) # 16119 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 16129 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 16135 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (string Asttypes.loc option) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : (string) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _1 = let _2 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 16197 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 16202 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 16208 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 16219 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 16225 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 16245 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 16251 "parsing/parser.ml" in let _endpos__2_ = _endpos_xs_ in let _endpos = _endpos__2_ in let _symbolstartpos = _startpos__1_ in let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in # 2525 "parsing/parser.mly" ( mkuplus ~sloc:_sloc ~oploc:_loc__1_ _1 _2 ) # 16262 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 16272 "parsing/parser.ml" in ( # 2446 "parsing/parser.mly" ( _1 ) # 16278 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : (Parsetree.expression) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (let_bindings) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2448 "parsing/parser.mly" ( expr_of_let_bindings ~loc:_sloc _1 _3 ) # 16322 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = body; CamlinternalMenhirLib.EngineTypes.startp = _startpos_body_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_body_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = bindings; CamlinternalMenhirLib.EngineTypes.startp = _startpos_bindings_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_bindings_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let body : (Parsetree.expression) = Obj.magic body in let _3 : unit = Obj.magic _3 in let bindings : (Parsetree.pattern * Parsetree.expression * Parsetree.binding_op list) = Obj.magic bindings in let _1 : ( # 801 "parsing/parser.mly" (string) # 16365 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_body_ in let _v = let pbop_op = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 16378 "parsing/parser.ml" in let _startpos_pbop_op_ = _startpos__1_ in let _endpos = _endpos_body_ in let _symbolstartpos = _startpos_pbop_op_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2450 "parsing/parser.mly" ( let (pbop_pat, pbop_exp, rev_ands) = bindings in let ands = List.rev rev_ands in let pbop_loc = make_loc _sloc in let let_ = {pbop_op; pbop_pat; pbop_exp; pbop_loc} in mkexp ~loc:_sloc (Pexp_letop{ let_; ands; body}) ) # 16392 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _3 = let _1 = _1_inlined1 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 16435 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 16440 "parsing/parser.ml" in let _endpos__3_ = _endpos__1_inlined1_ in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _loc__2_ = (_startpos__2_, _endpos__2_) in let _sloc = (_symbolstartpos, _endpos) in ( # 2456 "parsing/parser.mly" ( mkexp_cons ~loc:_sloc _loc__2_ (ghexp ~loc:_sloc (Pexp_tuple[None,_1;None,_3])) ) # 16452 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (string Asttypes.loc option) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let _3 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 16519 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 16524 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 16530 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 16541 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 16547 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 16567 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 16573 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _loc__2_ = (_startpos__2_, _endpos__2_) in let _sloc = (_symbolstartpos, _endpos) in ( # 2456 "parsing/parser.mly" ( mkexp_cons ~loc:_sloc _loc__2_ (ghexp ~loc:_sloc (Pexp_tuple[None,_1;None,_3])) ) # 16585 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ( # 819 "parsing/parser.mly" (string) # 16621 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _3 = let _1 = _1_inlined1 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 16632 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 16637 "parsing/parser.ml" in let _endpos__3_ = _endpos__1_inlined1_ in let _1 = let _1 = # 3962 "parsing/parser.mly" ( _1 ) # 16645 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 16653 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2459 "parsing/parser.mly" ( mkexp ~loc:_sloc (Pexp_setinstvar(_1, _3)) ) # 16662 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (string Asttypes.loc option) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ( # 819 "parsing/parser.mly" (string) # 16719 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let _3 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 16733 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 16738 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 16744 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 16755 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 16761 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 16781 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 16787 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _1 = let _1 = # 3962 "parsing/parser.mly" ( _1 ) # 16795 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 16803 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2459 "parsing/parser.mly" ( mkexp ~loc:_sloc (Pexp_setinstvar(_1, _3)) ) # 16812 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _1_inlined2 : (Parsetree.expression) = Obj.magic _1_inlined2 in let _4 : unit = Obj.magic _4 in let _1_inlined1 : (Longident.t) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in let _v = let _5 = let _1 = _1_inlined2 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 16869 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 16874 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined2_ in let _3 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 16886 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2461 "parsing/parser.mly" ( mkexp ~loc:_sloc (Pexp_setfield(_1, _3, _5)) ) # 16895 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined4 : (Parsetree.attributes) = Obj.magic _1_inlined4 in let _1_inlined3 : (string Asttypes.loc option) = Obj.magic _1_inlined3 in let _1_inlined2 : unit = Obj.magic _1_inlined2 in let _4 : unit = Obj.magic _4 in let _1_inlined1 : (Longident.t) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let _5 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined2_, _1_inlined4, _1_inlined3) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 16976 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 16981 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 16987 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 16998 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 17004 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 17024 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 17030 "parsing/parser.ml" in let _endpos__5_ = _endpos_xs_ in let _3 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 17042 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2461 "parsing/parser.mly" ( mkexp ~loc:_sloc (Pexp_setfield(_1, _3, _5)) ) # 17051 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = i; CamlinternalMenhirLib.EngineTypes.startp = _startpos_i_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_i_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = d; CamlinternalMenhirLib.EngineTypes.startp = _startpos_d_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_d_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = array; CamlinternalMenhirLib.EngineTypes.startp = _startpos_array_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_array_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _5 : unit = Obj.magic _5 in let i : (Parsetree.expression) = Obj.magic i in let _3 : unit = Obj.magic _3 in let d : unit = Obj.magic d in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let r = let v = let _1 = _1_inlined1 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 17124 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 17129 "parsing/parser.ml" in # 2462 "parsing/parser.mly" (Some v) # 17135 "parsing/parser.ml" in # 2421 "parsing/parser.mly" ( array, d, Paren, i, r ) # 17141 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2463 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) # 17151 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = i; CamlinternalMenhirLib.EngineTypes.startp = _startpos_i_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_i_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = d; CamlinternalMenhirLib.EngineTypes.startp = _startpos_d_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_d_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = array; CamlinternalMenhirLib.EngineTypes.startp = _startpos_array_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_array_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (string Asttypes.loc option) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _5 : unit = Obj.magic _5 in let i : (Parsetree.expression) = Obj.magic i in let _3 : unit = Obj.magic _3 in let d : unit = Obj.magic d in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos_xs_ in let _v = let _1 = let r = let v = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 17248 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 17253 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 17259 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 17270 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 17276 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 17296 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 17302 "parsing/parser.ml" in # 2462 "parsing/parser.mly" (Some v) # 17308 "parsing/parser.ml" in # 2421 "parsing/parser.mly" ( array, d, Paren, i, r ) # 17314 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2463 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) # 17324 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = i; CamlinternalMenhirLib.EngineTypes.startp = _startpos_i_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_i_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = d; CamlinternalMenhirLib.EngineTypes.startp = _startpos_d_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_d_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = array; CamlinternalMenhirLib.EngineTypes.startp = _startpos_array_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_array_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _5 : unit = Obj.magic _5 in let i : (Parsetree.expression) = Obj.magic i in let _3 : unit = Obj.magic _3 in let d : unit = Obj.magic d in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let r = let v = let _1 = _1_inlined1 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 17397 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 17402 "parsing/parser.ml" in # 2462 "parsing/parser.mly" (Some v) # 17408 "parsing/parser.ml" in # 2423 "parsing/parser.mly" ( array, d, Brace, i, r ) # 17414 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2463 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) # 17424 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = i; CamlinternalMenhirLib.EngineTypes.startp = _startpos_i_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_i_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = d; CamlinternalMenhirLib.EngineTypes.startp = _startpos_d_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_d_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = array; CamlinternalMenhirLib.EngineTypes.startp = _startpos_array_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_array_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (string Asttypes.loc option) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _5 : unit = Obj.magic _5 in let i : (Parsetree.expression) = Obj.magic i in let _3 : unit = Obj.magic _3 in let d : unit = Obj.magic d in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos_xs_ in let _v = let _1 = let r = let v = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 17521 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 17526 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 17532 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 17543 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 17549 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 17569 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 17575 "parsing/parser.ml" in # 2462 "parsing/parser.mly" (Some v) # 17581 "parsing/parser.ml" in # 2423 "parsing/parser.mly" ( array, d, Brace, i, r ) # 17587 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2463 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) # 17597 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = i; CamlinternalMenhirLib.EngineTypes.startp = _startpos_i_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_i_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = d; CamlinternalMenhirLib.EngineTypes.startp = _startpos_d_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_d_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = array; CamlinternalMenhirLib.EngineTypes.startp = _startpos_array_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_array_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _5 : unit = Obj.magic _5 in let i : (Parsetree.expression) = Obj.magic i in let _3 : unit = Obj.magic _3 in let d : unit = Obj.magic d in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let r = let v = let _1 = _1_inlined1 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 17670 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 17675 "parsing/parser.ml" in # 2462 "parsing/parser.mly" (Some v) # 17681 "parsing/parser.ml" in # 2425 "parsing/parser.mly" ( array, d, Bracket, i, r ) # 17687 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2463 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) # 17697 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = i; CamlinternalMenhirLib.EngineTypes.startp = _startpos_i_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_i_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = d; CamlinternalMenhirLib.EngineTypes.startp = _startpos_d_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_d_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = array; CamlinternalMenhirLib.EngineTypes.startp = _startpos_array_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_array_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (string Asttypes.loc option) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _5 : unit = Obj.magic _5 in let i : (Parsetree.expression) = Obj.magic i in let _3 : unit = Obj.magic _3 in let d : unit = Obj.magic d in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos_xs_ in let _v = let _1 = let r = let v = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 17794 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 17799 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 17805 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 17816 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 17822 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 17842 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 17848 "parsing/parser.ml" in # 2462 "parsing/parser.mly" (Some v) # 17854 "parsing/parser.ml" in # 2425 "parsing/parser.mly" ( array, d, Bracket, i, r ) # 17860 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2463 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) # 17870 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = array; CamlinternalMenhirLib.EngineTypes.startp = _startpos_array_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_array_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _5 : unit = Obj.magic _5 in let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( # 800 "parsing/parser.mly" (string) # 17933 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let r = let v = let _1 = _1_inlined1 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 17947 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 17952 "parsing/parser.ml" in # 2464 "parsing/parser.mly" (Some v) # 17958 "parsing/parser.ml" in let i = # 2966 "parsing/parser.mly" ( es ) # 17964 "parsing/parser.ml" in let d = let _1 = # 123 "" ( None ) # 17970 "parsing/parser.ml" in # 2437 "parsing/parser.mly" ( _1, _2 ) # 17975 "parsing/parser.ml" in # 2421 "parsing/parser.mly" ( array, d, Paren, i, r ) # 17981 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2465 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 17991 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = array; CamlinternalMenhirLib.EngineTypes.startp = _startpos_array_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_array_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (string Asttypes.loc option) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _5 : unit = Obj.magic _5 in let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( # 800 "parsing/parser.mly" (string) # 18075 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos_xs_ in let _v = let _1 = let r = let v = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 18092 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 18097 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 18103 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 18114 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 18120 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 18140 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 18146 "parsing/parser.ml" in # 2464 "parsing/parser.mly" (Some v) # 18152 "parsing/parser.ml" in let i = # 2966 "parsing/parser.mly" ( es ) # 18158 "parsing/parser.ml" in let d = let _1 = # 123 "" ( None ) # 18164 "parsing/parser.ml" in # 2437 "parsing/parser.mly" ( _1, _2 ) # 18169 "parsing/parser.ml" in # 2421 "parsing/parser.mly" ( array, d, Paren, i, r ) # 18175 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2465 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 18185 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = array; CamlinternalMenhirLib.EngineTypes.startp = _startpos_array_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_array_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined2 : (Parsetree.expression) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _5 : unit = Obj.magic _5 in let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( # 800 "parsing/parser.mly" (string) # 18260 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__1_inlined2_ in let _v = let _1 = let r = let _1_inlined1 = _1_inlined2 in let v = let _1 = _1_inlined1 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 18277 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 18282 "parsing/parser.ml" in # 2464 "parsing/parser.mly" (Some v) # 18288 "parsing/parser.ml" in let i = # 2966 "parsing/parser.mly" ( es ) # 18294 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = # 2437 "parsing/parser.mly" (_2) # 18302 "parsing/parser.ml" in # 126 "" ( Some x ) # 18307 "parsing/parser.ml" in # 2437 "parsing/parser.mly" ( _1, _2 ) # 18313 "parsing/parser.ml" in # 2421 "parsing/parser.mly" ( array, d, Paren, i, r ) # 18319 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2465 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 18329 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = array; CamlinternalMenhirLib.EngineTypes.startp = _startpos_array_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_array_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined4 : (Parsetree.attributes) = Obj.magic _1_inlined4 in let _1_inlined3 : (string Asttypes.loc option) = Obj.magic _1_inlined3 in let _1_inlined2 : unit = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _5 : unit = Obj.magic _5 in let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( # 800 "parsing/parser.mly" (string) # 18425 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos_xs_ in let _v = let _1 = let r = let (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) = (_startpos__1_inlined2_, _1_inlined4, _1_inlined3) in let v = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 18445 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 18450 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 18456 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 18467 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 18473 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 18493 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 18499 "parsing/parser.ml" in # 2464 "parsing/parser.mly" (Some v) # 18505 "parsing/parser.ml" in let i = # 2966 "parsing/parser.mly" ( es ) # 18511 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = # 2437 "parsing/parser.mly" (_2) # 18519 "parsing/parser.ml" in # 126 "" ( Some x ) # 18524 "parsing/parser.ml" in # 2437 "parsing/parser.mly" ( _1, _2 ) # 18530 "parsing/parser.ml" in # 2421 "parsing/parser.mly" ( array, d, Paren, i, r ) # 18536 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2465 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 18546 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = array; CamlinternalMenhirLib.EngineTypes.startp = _startpos_array_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_array_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _5 : unit = Obj.magic _5 in let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( # 800 "parsing/parser.mly" (string) # 18609 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let r = let v = let _1 = _1_inlined1 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 18623 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 18628 "parsing/parser.ml" in # 2464 "parsing/parser.mly" (Some v) # 18634 "parsing/parser.ml" in let i = # 2966 "parsing/parser.mly" ( es ) # 18640 "parsing/parser.ml" in let d = let _1 = # 123 "" ( None ) # 18646 "parsing/parser.ml" in # 2437 "parsing/parser.mly" ( _1, _2 ) # 18651 "parsing/parser.ml" in # 2423 "parsing/parser.mly" ( array, d, Brace, i, r ) # 18657 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2465 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 18667 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = array; CamlinternalMenhirLib.EngineTypes.startp = _startpos_array_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_array_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (string Asttypes.loc option) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _5 : unit = Obj.magic _5 in let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( # 800 "parsing/parser.mly" (string) # 18751 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos_xs_ in let _v = let _1 = let r = let v = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 18768 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 18773 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 18779 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 18790 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 18796 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 18816 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 18822 "parsing/parser.ml" in # 2464 "parsing/parser.mly" (Some v) # 18828 "parsing/parser.ml" in let i = # 2966 "parsing/parser.mly" ( es ) # 18834 "parsing/parser.ml" in let d = let _1 = # 123 "" ( None ) # 18840 "parsing/parser.ml" in # 2437 "parsing/parser.mly" ( _1, _2 ) # 18845 "parsing/parser.ml" in # 2423 "parsing/parser.mly" ( array, d, Brace, i, r ) # 18851 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2465 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 18861 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = array; CamlinternalMenhirLib.EngineTypes.startp = _startpos_array_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_array_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined2 : (Parsetree.expression) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _5 : unit = Obj.magic _5 in let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( # 800 "parsing/parser.mly" (string) # 18936 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__1_inlined2_ in let _v = let _1 = let r = let _1_inlined1 = _1_inlined2 in let v = let _1 = _1_inlined1 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 18953 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 18958 "parsing/parser.ml" in # 2464 "parsing/parser.mly" (Some v) # 18964 "parsing/parser.ml" in let i = # 2966 "parsing/parser.mly" ( es ) # 18970 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = # 2437 "parsing/parser.mly" (_2) # 18978 "parsing/parser.ml" in # 126 "" ( Some x ) # 18983 "parsing/parser.ml" in # 2437 "parsing/parser.mly" ( _1, _2 ) # 18989 "parsing/parser.ml" in # 2423 "parsing/parser.mly" ( array, d, Brace, i, r ) # 18995 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2465 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 19005 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = array; CamlinternalMenhirLib.EngineTypes.startp = _startpos_array_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_array_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined4 : (Parsetree.attributes) = Obj.magic _1_inlined4 in let _1_inlined3 : (string Asttypes.loc option) = Obj.magic _1_inlined3 in let _1_inlined2 : unit = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _5 : unit = Obj.magic _5 in let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( # 800 "parsing/parser.mly" (string) # 19101 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos_xs_ in let _v = let _1 = let r = let (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) = (_startpos__1_inlined2_, _1_inlined4, _1_inlined3) in let v = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 19121 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 19126 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 19132 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 19143 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 19149 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 19169 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 19175 "parsing/parser.ml" in # 2464 "parsing/parser.mly" (Some v) # 19181 "parsing/parser.ml" in let i = # 2966 "parsing/parser.mly" ( es ) # 19187 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = # 2437 "parsing/parser.mly" (_2) # 19195 "parsing/parser.ml" in # 126 "" ( Some x ) # 19200 "parsing/parser.ml" in # 2437 "parsing/parser.mly" ( _1, _2 ) # 19206 "parsing/parser.ml" in # 2423 "parsing/parser.mly" ( array, d, Brace, i, r ) # 19212 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2465 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 19222 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = array; CamlinternalMenhirLib.EngineTypes.startp = _startpos_array_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_array_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _5 : unit = Obj.magic _5 in let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( # 800 "parsing/parser.mly" (string) # 19285 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let r = let v = let _1 = _1_inlined1 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 19299 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 19304 "parsing/parser.ml" in # 2464 "parsing/parser.mly" (Some v) # 19310 "parsing/parser.ml" in let i = # 2966 "parsing/parser.mly" ( es ) # 19316 "parsing/parser.ml" in let d = let _1 = # 123 "" ( None ) # 19322 "parsing/parser.ml" in # 2437 "parsing/parser.mly" ( _1, _2 ) # 19327 "parsing/parser.ml" in # 2425 "parsing/parser.mly" ( array, d, Bracket, i, r ) # 19333 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2465 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 19343 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = array; CamlinternalMenhirLib.EngineTypes.startp = _startpos_array_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_array_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (string Asttypes.loc option) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _5 : unit = Obj.magic _5 in let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( # 800 "parsing/parser.mly" (string) # 19427 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos_xs_ in let _v = let _1 = let r = let v = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 19444 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 19449 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 19455 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 19466 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 19472 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 19492 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 19498 "parsing/parser.ml" in # 2464 "parsing/parser.mly" (Some v) # 19504 "parsing/parser.ml" in let i = # 2966 "parsing/parser.mly" ( es ) # 19510 "parsing/parser.ml" in let d = let _1 = # 123 "" ( None ) # 19516 "parsing/parser.ml" in # 2437 "parsing/parser.mly" ( _1, _2 ) # 19521 "parsing/parser.ml" in # 2425 "parsing/parser.mly" ( array, d, Bracket, i, r ) # 19527 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2465 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 19537 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = array; CamlinternalMenhirLib.EngineTypes.startp = _startpos_array_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_array_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined2 : (Parsetree.expression) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _5 : unit = Obj.magic _5 in let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( # 800 "parsing/parser.mly" (string) # 19612 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__1_inlined2_ in let _v = let _1 = let r = let _1_inlined1 = _1_inlined2 in let v = let _1 = _1_inlined1 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 19629 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 19634 "parsing/parser.ml" in # 2464 "parsing/parser.mly" (Some v) # 19640 "parsing/parser.ml" in let i = # 2966 "parsing/parser.mly" ( es ) # 19646 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = # 2437 "parsing/parser.mly" (_2) # 19654 "parsing/parser.ml" in # 126 "" ( Some x ) # 19659 "parsing/parser.ml" in # 2437 "parsing/parser.mly" ( _1, _2 ) # 19665 "parsing/parser.ml" in # 2425 "parsing/parser.mly" ( array, d, Bracket, i, r ) # 19671 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2465 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 19681 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = array; CamlinternalMenhirLib.EngineTypes.startp = _startpos_array_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_array_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined4 : (Parsetree.attributes) = Obj.magic _1_inlined4 in let _1_inlined3 : (string Asttypes.loc option) = Obj.magic _1_inlined3 in let _1_inlined2 : unit = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _5 : unit = Obj.magic _5 in let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( # 800 "parsing/parser.mly" (string) # 19777 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos_xs_ in let _v = let _1 = let r = let (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) = (_startpos__1_inlined2_, _1_inlined4, _1_inlined3) in let v = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 19797 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 19802 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 19808 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 19819 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 19825 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 19845 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 19851 "parsing/parser.ml" in # 2464 "parsing/parser.mly" (Some v) # 19857 "parsing/parser.ml" in let i = # 2966 "parsing/parser.mly" ( es ) # 19863 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = # 2437 "parsing/parser.mly" (_2) # 19871 "parsing/parser.ml" in # 126 "" ( Some x ) # 19876 "parsing/parser.ml" in # 2437 "parsing/parser.mly" ( _1, _2 ) # 19882 "parsing/parser.ml" in # 2425 "parsing/parser.mly" ( array, d, Bracket, i, r ) # 19888 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2465 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 19898 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.attribute) = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = # 2467 "parsing/parser.mly" ( Exp.attr _1 _2 ) # 19931 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 2470 "parsing/parser.mly" ( not_expecting _loc__1_ "wildcard \"_\"" ) # 19958 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in let xs : (string Asttypes.loc list) = Obj.magic xs in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v = let ty_params = # 2697 "parsing/parser.mly" ( xs ) # 20006 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2828 "parsing/parser.mly" ( (* We desugar (type a b c) to (type a) (type b) (type c). If we do this desugaring, the loc for each parameter is a ghost. *) let loc = match ty_params with | [] -> assert false (* lident_list is non-empty *) | [_] -> make_loc _sloc | _ :: _ :: _ -> ghost_loc _sloc in List.map (fun x -> { pparam_loc = loc; pparam_desc = Pparam_newtype x }) ty_params ) # 20026 "parsing/parser.ml" : (Parsetree.function_param list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2842 "parsing/parser.mly" ( let a, b, c = _1 in [ { pparam_loc = make_loc _sloc; pparam_desc = Pparam_val (a, b, c) } ] ) # 20058 "parsing/parser.ml" : (Parsetree.function_param list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let xs : (Parsetree.function_param list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_xs_ in let _v = let _1 = let xs = # 264 "" ( List.rev xs ) # 20086 "parsing/parser.ml" in # 1125 "parsing/parser.mly" ( xs ) # 20091 "parsing/parser.ml" in ( # 2847 "parsing/parser.mly" ( _1 ) # 20097 "parsing/parser.ml" : (Parsetree.function_param list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = # 2358 "parsing/parser.mly" ( _1 ) # 20123 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = # 2359 "parsing/parser.mly" ( _1 ) # 20155 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : (Parsetree.expression) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = # 2361 "parsing/parser.mly" ( Pexp_sequence(_1, _3) ) # 20196 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 20205 "parsing/parser.ml" in ( # 2362 "parsing/parser.mly" ( _1 ) # 20211 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : (Parsetree.expression) = Obj.magic _5 in let _4 : (Ast_helper.str) = Obj.magic _4 in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2364 "parsing/parser.mly" ( mkexp_attrs ~loc:_sloc (Pexp_sequence (_1, _5)) (Some _4, []) ) # 20269 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = ty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ty_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let ty : (Parsetree.core_type) = Obj.magic ty in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_ty_ in let _endpos = _endpos_ty_ in let _v : (Parsetree.core_type) = # 3681 "parsing/parser.mly" ( ty ) # 20295 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = codomain; CamlinternalMenhirLib.EngineTypes.startp = _startpos_codomain_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_codomain_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let codomain : (Parsetree.core_type) = Obj.magic codomain in let _3 : unit = Obj.magic _3 in let _1 : (Parsetree.core_type) = Obj.magic _1 in let label : (string) = Obj.magic label in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in let _endpos = _endpos_codomain_ in let _v = let _1 = let _1 = let domain = # 1004 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) # 20344 "parsing/parser.ml" in let label = # 3721 "parsing/parser.mly" ( Optional label ) # 20349 "parsing/parser.ml" in # 3687 "parsing/parser.mly" ( Ptyp_arrow(label, domain, codomain) ) # 20354 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1043 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 20364 "parsing/parser.ml" in ( # 3689 "parsing/parser.mly" ( _1 ) # 20370 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = codomain; CamlinternalMenhirLib.EngineTypes.startp = _startpos_codomain_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_codomain_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let codomain : (Parsetree.core_type) = Obj.magic codomain in let _3 : unit = Obj.magic _3 in let _1 : (Parsetree.core_type) = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( # 819 "parsing/parser.mly" (string) # 20420 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in let _endpos = _endpos_codomain_ in let _v = let _1 = let _1 = let domain = # 1004 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) # 20431 "parsing/parser.ml" in let label = # 3723 "parsing/parser.mly" ( Labelled label ) # 20436 "parsing/parser.ml" in # 3687 "parsing/parser.mly" ( Ptyp_arrow(label, domain, codomain) ) # 20441 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1043 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 20451 "parsing/parser.ml" in ( # 3689 "parsing/parser.mly" ( _1 ) # 20457 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = codomain; CamlinternalMenhirLib.EngineTypes.startp = _startpos_codomain_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_codomain_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let codomain : (Parsetree.core_type) = Obj.magic codomain in let _3 : unit = Obj.magic _3 in let _1 : (Parsetree.core_type) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_codomain_ in let _v = let _1 = let _1 = let domain = # 1004 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) # 20500 "parsing/parser.ml" in let label = # 3725 "parsing/parser.mly" ( Nolabel ) # 20505 "parsing/parser.ml" in # 3687 "parsing/parser.mly" ( Ptyp_arrow(label, domain, codomain) ) # 20510 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1043 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 20520 "parsing/parser.ml" in ( # 3689 "parsing/parser.mly" ( _1 ) # 20526 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = codomain; CamlinternalMenhirLib.EngineTypes.startp = _startpos_codomain_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_codomain_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let codomain : (Parsetree.core_type) = Obj.magic codomain in let _4 : unit = Obj.magic _4 in let xs : ((string option * Parsetree.core_type) list) = Obj.magic xs in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let ty : (Parsetree.core_type) = Obj.magic ty in let _2 : unit = Obj.magic _2 in let label : ( # 819 "parsing/parser.mly" (string) # 20590 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in let _endpos = _endpos_codomain_ in let _v = let _1 = let _1 = let tuple = let ltys = let xs = # 264 "" ( List.rev xs ) # 20603 "parsing/parser.ml" in # 1157 "parsing/parser.mly" ( xs ) # 20608 "parsing/parser.ml" in # 3751 "parsing/parser.mly" ( ty, ltys ) # 20614 "parsing/parser.ml" in let (_endpos_tuple_, _startpos_tuple_) = (_endpos_xs_, _startpos_ty_) in let _loc_tuple_ = (_startpos_tuple_, _endpos_tuple_) in # 3705 "parsing/parser.mly" ( let ty, ltys = tuple in let tuple_loc = _loc_tuple_ in let domain = mktyp ~loc:tuple_loc (Ptyp_tuple ((None, ty) :: ltys)) in let domain = extra_rhs_core_type domain ~pos:(snd tuple_loc) in Ptyp_arrow(Labelled label, domain, codomain) ) # 20628 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1043 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 20638 "parsing/parser.ml" in ( # 3713 "parsing/parser.mly" ( _1 ) # 20644 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let xs : ((string option * Parsetree.core_type) list) = Obj.magic xs in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let ty : (Parsetree.core_type) = Obj.magic ty in let _2 : unit = Obj.magic _2 in let label : ( # 819 "parsing/parser.mly" (string) # 20694 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in let _endpos = _endpos_xs_ in let _v = let _3 = let ltys = let xs = # 264 "" ( List.rev xs ) # 20705 "parsing/parser.ml" in # 1157 "parsing/parser.mly" ( xs ) # 20710 "parsing/parser.ml" in # 3751 "parsing/parser.mly" ( ty, ltys ) # 20716 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3715 "parsing/parser.mly" ( let ty, ltys = _3 in mktyp ~loc:_sloc (Ptyp_tuple ((Some label, ty) :: ltys)) ) # 20728 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v = let _startpos = _startpos__1_ in ( # 1411 "parsing/parser.mly" ( _startpos, Unit ) # 20763 "parsing/parser.ml" : (Lexing.position * Parsetree.functor_parameter)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = mty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_mty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_mty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let mty : (Parsetree.module_type) = Obj.magic mty in let _3 : unit = Obj.magic _3 in let _1_inlined1 : (string option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let x = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 20823 "parsing/parser.ml" in let _startpos = _startpos__1_ in ( # 1414 "parsing/parser.mly" ( _startpos, Named (x, mty) ) # 20830 "parsing/parser.ml" : (Lexing.position * Parsetree.functor_parameter)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Ast_helper.str list * Parsetree.constructor_arguments * Parsetree.core_type option) = # 3479 "parsing/parser.mly" ( ([],Pcstr_tuple [],None) ) # 20850 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.constructor_arguments) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Ast_helper.str list * Parsetree.constructor_arguments * Parsetree.core_type option) = # 3480 "parsing/parser.mly" ( ([],_2,None) ) # 20883 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : (Parsetree.core_type) = Obj.magic _4 in let _3 : unit = Obj.magic _3 in let _2 : (Parsetree.constructor_arguments) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Ast_helper.str list * Parsetree.constructor_arguments * Parsetree.core_type option) = # 3482 "parsing/parser.mly" ( ([],_2,Some _4) ) # 20930 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let _6 : (Parsetree.core_type) = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _4 : (Parsetree.constructor_arguments) = Obj.magic _4 in let _3 : unit = Obj.magic _3 in let xs : (Asttypes.label Asttypes.loc list) = Obj.magic xs in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in let _v = let _2 = let _1 = let xs = # 264 "" ( List.rev xs ) # 20993 "parsing/parser.ml" in # 1104 "parsing/parser.mly" ( xs ) # 20998 "parsing/parser.ml" in # 3616 "parsing/parser.mly" ( _1 ) # 21004 "parsing/parser.ml" in ( # 3485 "parsing/parser.mly" ( (_2,_4,Some _6) ) # 21010 "parsing/parser.ml" : (Ast_helper.str list * Parsetree.constructor_arguments * Parsetree.core_type option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.core_type) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Ast_helper.str list * Parsetree.constructor_arguments * Parsetree.core_type option) = # 3487 "parsing/parser.mly" ( ([],Pcstr_tuple [],Some _2) ) # 21045 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : (Parsetree.core_type) = Obj.magic _4 in let _3 : unit = Obj.magic _3 in let xs : (Asttypes.label Asttypes.loc list) = Obj.magic xs in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v = let _2 = let _1 = let xs = # 264 "" ( List.rev xs ) # 21094 "parsing/parser.ml" in # 1104 "parsing/parser.mly" ( xs ) # 21099 "parsing/parser.ml" in # 3616 "parsing/parser.mly" ( _1 ) # 21105 "parsing/parser.ml" in ( # 3489 "parsing/parser.mly" ( (_2,Pcstr_tuple [],Some _4) ) # 21111 "parsing/parser.ml" : (Ast_helper.str list * Parsetree.constructor_arguments * Parsetree.core_type option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = vars_args_res; CamlinternalMenhirLib.EngineTypes.startp = _startpos_vars_args_res_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_vars_args_res_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let vars_args_res : (Ast_helper.str list * Parsetree.constructor_arguments * Parsetree.core_type option) = Obj.magic vars_args_res in let _1_inlined1 : (Asttypes.label) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in let _v = let attrs = let _1 = _1_inlined2 in # 4312 "parsing/parser.mly" ( _1 ) # 21163 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined2_ in let cid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 21175 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3434 "parsing/parser.mly" ( let vars, args, res = vars_args_res in let info = symbol_info _endpos in let loc = make_loc _sloc in cid, vars, args, res, attrs, loc, info ) # 21189 "parsing/parser.ml" : (Ast_helper.str * Ast_helper.str list * Parsetree.constructor_arguments * Parsetree.core_type option * Parsetree.attributes * Location.t * Docstrings.info)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = vars_args_res; CamlinternalMenhirLib.EngineTypes.startp = _startpos_vars_args_res_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_vars_args_res_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let vars_args_res : (Ast_helper.str list * Parsetree.constructor_arguments * Parsetree.core_type option) = Obj.magic vars_args_res in let _1 : (Asttypes.label) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let attrs = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 21235 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined1_ in let cid = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 21246 "parsing/parser.ml" in let _startpos_cid_ = _startpos__1_ in let _1 = # 4132 "parsing/parser.mly" ( () ) # 21253 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos_cid_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3434 "parsing/parser.mly" ( let vars, args, res = vars_args_res in let info = symbol_info _endpos in let loc = make_loc _sloc in cid, vars, args, res, attrs, loc, info ) # 21266 "parsing/parser.ml" : (Ast_helper.str * Ast_helper.str list * Parsetree.constructor_arguments * Parsetree.core_type option * Parsetree.attributes * Location.t * Docstrings.info)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = params; CamlinternalMenhirLib.EngineTypes.startp = _startpos_params_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_params_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined4 : (Parsetree.attributes) = Obj.magic _1_inlined4 in let xs : ((Parsetree.core_type * Parsetree.core_type * Ast_helper.loc) list) = Obj.magic xs in let _2 : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = Obj.magic _2 in let _1_inlined3 : unit = Obj.magic _1_inlined3 in let _1_inlined2 : ( # 819 "parsing/parser.mly" (string) # 21342 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined4_ in let _v = let attrs2 = let _1 = _1_inlined4 in # 4308 "parsing/parser.mly" ( _1 ) # 21357 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in let cstrs = let _1 = let xs = # 264 "" ( List.rev xs ) # 21366 "parsing/parser.ml" in # 1086 "parsing/parser.mly" ( xs ) # 21371 "parsing/parser.ml" in # 3333 "parsing/parser.mly" ( _1 ) # 21377 "parsing/parser.ml" in let kind_priv_manifest = # 3368 "parsing/parser.mly" ( _2 ) # 21383 "parsing/parser.ml" in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 21393 "parsing/parser.ml" in let flag = # 4152 "parsing/parser.mly" ( Recursive ) # 21399 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 21406 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3305 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in (flag, ext), Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ) # 21422 "parsing/parser.ml" : ((Asttypes.rec_flag * string Asttypes.loc option) * Parsetree.type_declaration)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = params; CamlinternalMenhirLib.EngineTypes.startp = _startpos_params_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_params_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined5 : (Parsetree.attributes) = Obj.magic _1_inlined5 in let xs : ((Parsetree.core_type * Parsetree.core_type * Ast_helper.loc) list) = Obj.magic xs in let _2 : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = Obj.magic _2 in let _1_inlined4 : unit = Obj.magic _1_inlined4 in let _1_inlined3 : ( # 819 "parsing/parser.mly" (string) # 21503 "parsing/parser.ml" ) = Obj.magic _1_inlined3 in let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in let _1_inlined2 : unit = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined5_ in let _v = let attrs2 = let _1 = _1_inlined5 in # 4308 "parsing/parser.mly" ( _1 ) # 21519 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined5_ in let cstrs = let _1 = let xs = # 264 "" ( List.rev xs ) # 21528 "parsing/parser.ml" in # 1086 "parsing/parser.mly" ( xs ) # 21533 "parsing/parser.ml" in # 3333 "parsing/parser.mly" ( _1 ) # 21539 "parsing/parser.ml" in let kind_priv_manifest = # 3368 "parsing/parser.mly" ( _2 ) # 21545 "parsing/parser.ml" in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 21555 "parsing/parser.ml" in let flag = let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in # 4154 "parsing/parser.mly" ( not_expecting _loc "nonrec flag" ) # 21566 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 21574 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3305 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in (flag, ext), Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ) # 21590 "parsing/parser.ml" : ((Asttypes.rec_flag * string Asttypes.loc option) * Parsetree.type_declaration)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = kind_priv_manifest; CamlinternalMenhirLib.EngineTypes.startp = _startpos_kind_priv_manifest_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_kind_priv_manifest_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = params; CamlinternalMenhirLib.EngineTypes.startp = _startpos_params_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_params_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let xs : ((Parsetree.core_type * Parsetree.core_type * Ast_helper.loc) list) = Obj.magic xs in let kind_priv_manifest : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = Obj.magic kind_priv_manifest in let _1_inlined2 : ( # 819 "parsing/parser.mly" (string) # 21658 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in let _v = let attrs2 = let _1 = _1_inlined3 in # 4308 "parsing/parser.mly" ( _1 ) # 21673 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let cstrs = let _1 = let xs = # 264 "" ( List.rev xs ) # 21682 "parsing/parser.ml" in # 1086 "parsing/parser.mly" ( xs ) # 21687 "parsing/parser.ml" in # 3333 "parsing/parser.mly" ( _1 ) # 21693 "parsing/parser.ml" in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 21704 "parsing/parser.ml" in let flag = # 4148 "parsing/parser.mly" ( Recursive ) # 21710 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 21717 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3305 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in (flag, ext), Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ) # 21733 "parsing/parser.ml" : ((Asttypes.rec_flag * string Asttypes.loc option) * Parsetree.type_declaration)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = kind_priv_manifest; CamlinternalMenhirLib.EngineTypes.startp = _startpos_kind_priv_manifest_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_kind_priv_manifest_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = params; CamlinternalMenhirLib.EngineTypes.startp = _startpos_params_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_params_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined4 : (Parsetree.attributes) = Obj.magic _1_inlined4 in let xs : ((Parsetree.core_type * Parsetree.core_type * Ast_helper.loc) list) = Obj.magic xs in let kind_priv_manifest : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = Obj.magic kind_priv_manifest in let _1_inlined3 : ( # 819 "parsing/parser.mly" (string) # 21807 "parsing/parser.ml" ) = Obj.magic _1_inlined3 in let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in let _1_inlined2 : unit = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined4_ in let _v = let attrs2 = let _1 = _1_inlined4 in # 4308 "parsing/parser.mly" ( _1 ) # 21823 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in let cstrs = let _1 = let xs = # 264 "" ( List.rev xs ) # 21832 "parsing/parser.ml" in # 1086 "parsing/parser.mly" ( xs ) # 21837 "parsing/parser.ml" in # 3333 "parsing/parser.mly" ( _1 ) # 21843 "parsing/parser.ml" in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 21854 "parsing/parser.ml" in let flag = # 4149 "parsing/parser.mly" ( Nonrecursive ) # 21860 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 21867 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3305 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in (flag, ext), Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ) # 21883 "parsing/parser.ml" : ((Asttypes.rec_flag * string Asttypes.loc option) * Parsetree.type_declaration)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( # 870 "parsing/parser.mly" (string) # 21906 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = # 3991 "parsing/parser.mly" ( _1 ) # 21914 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( # 819 "parsing/parser.mly" (string) # 21935 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = # 3992 "parsing/parser.mly" ( _1 ) # 21943 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.structure) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.structure) = # 1278 "parsing/parser.mly" ( _1 ) # 21975 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (string) = # 4041 "parsing/parser.mly" ( "" ) # 21993 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (string) = # 4042 "parsing/parser.mly" ( ";.." ) # 22025 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.signature) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.signature) = # 1285 "parsing/parser.mly" ( _1 ) # 22057 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in let _3 : (Parsetree.payload) = Obj.magic _3 in let _2 : (Ast_helper.str) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.extension) = # 4333 "parsing/parser.mly" ( (_2, _3) ) # 22103 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( # 861 "parsing/parser.mly" (string * Location.t * string * Location.t * string option) # 22124 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 4335 "parsing/parser.mly" ( mk_quotedext ~loc:_sloc _1 ) # 22136 "parsing/parser.ml" : (Parsetree.extension)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (Parsetree.core_type) = Obj.magic _1_inlined2 in let _3 : unit = Obj.magic _3 in let _1_inlined1 : ( # 819 "parsing/parser.mly" (string) # 22185 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _1 : (Asttypes.mutable_flag) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in let _v = let _5 = let _1 = _1_inlined3 in # 4312 "parsing/parser.mly" ( _1 ) # 22197 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in # 3634 "parsing/parser.mly" ( _1 ) # 22206 "parsing/parser.ml" in let _2 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = # 3962 "parsing/parser.mly" ( _1 ) # 22214 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 22222 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_inlined1_ in let _endpos = _endpos__5_ in let _symbolstartpos = if _startpos__1_ != _endpos__1_ then _startpos__1_ else _startpos__2_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3506 "parsing/parser.mly" ( let info = symbol_info _endpos in Type.field _2 _4 ~mut:_1 ~attrs:_5 ~loc:(make_loc _sloc) ~info ) # 22236 "parsing/parser.ml" : (Parsetree.label_declaration)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined4 : (Parsetree.attributes) = Obj.magic _1_inlined4 in let _6 : unit = Obj.magic _6 in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (Parsetree.core_type) = Obj.magic _1_inlined2 in let _3 : unit = Obj.magic _3 in let _1_inlined1 : ( # 819 "parsing/parser.mly" (string) # 22299 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _1 : (Asttypes.mutable_flag) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined4_ in let _v = let _7 = let _1 = _1_inlined4 in # 4312 "parsing/parser.mly" ( _1 ) # 22311 "parsing/parser.ml" in let _endpos__7_ = _endpos__1_inlined4_ in let _5 = let _1 = _1_inlined3 in # 4312 "parsing/parser.mly" ( _1 ) # 22320 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in # 3634 "parsing/parser.mly" ( _1 ) # 22329 "parsing/parser.ml" in let _2 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = # 3962 "parsing/parser.mly" ( _1 ) # 22337 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 22345 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_inlined1_ in let _endpos = _endpos__7_ in let _symbolstartpos = if _startpos__1_ != _endpos__1_ then _startpos__1_ else _startpos__2_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3511 "parsing/parser.mly" ( let info = match rhs_info _endpos__5_ with | Some _ as info_before_semi -> info_before_semi | None -> symbol_info _endpos in Type.field _2 _4 ~mut:_1 ~attrs:(_5 @ _7) ~loc:(make_loc _sloc) ~info ) # 22363 "parsing/parser.ml" : (Parsetree.label_declaration)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.label_declaration) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.label_declaration list) = # 3500 "parsing/parser.mly" ( [_1] ) # 22389 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.label_declaration) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.label_declaration list) = # 3501 "parsing/parser.mly" ( [_1] ) # 22414 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.label_declaration list) = Obj.magic _2 in let _1 : (Parsetree.label_declaration) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.label_declaration list) = # 3502 "parsing/parser.mly" ( _1 :: _2 ) # 22446 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( # 819 "parsing/parser.mly" (string) # 22467 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let x = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 22481 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2409 "parsing/parser.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) # 22490 "parsing/parser.ml" in ( # 2401 "parsing/parser.mly" ( x ) # 22496 "parsing/parser.ml" : (string * Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = cty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_cty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_cty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let cty : (Parsetree.core_type) = Obj.magic cty in let _2 : unit = Obj.magic _2 in let _1 : ( # 819 "parsing/parser.mly" (string) # 22532 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_cty_ in let _v = let x = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 22546 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2409 "parsing/parser.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) # 22555 "parsing/parser.ml" in let _startpos_x_ = _startpos__1_ in let _endpos = _endpos_cty_ in let _symbolstartpos = _startpos_x_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2403 "parsing/parser.mly" ( let lab, pat = x in lab, mkpat ~loc:_sloc (Ppat_constraint (pat, cty)) ) # 22567 "parsing/parser.ml" : (string * Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = # 4073 "parsing/parser.mly" ( _1 ) # 22593 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.arg_label * Parsetree.expression) = # 2680 "parsing/parser.mly" ( (Nolabel, _1) ) # 22618 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1 : ( # 806 "parsing/parser.mly" (string) # 22646 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.arg_label * Parsetree.expression) = # 2682 "parsing/parser.mly" ( (Labelled _1, _2) ) # 22654 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let label : ( # 819 "parsing/parser.mly" (string) # 22681 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_label_ in let _v = let _loc_label_ = (_startpos_label_, _endpos_label_) in ( # 2684 "parsing/parser.mly" ( let loc = _loc_label_ in (Labelled label, mkexpvar ~loc label) ) # 22693 "parsing/parser.ml" : (Asttypes.arg_label * Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let ty : (Parsetree.type_constraint) = Obj.magic ty in let label : ( # 819 "parsing/parser.mly" (string) # 22741 "parsing/parser.ml" ) = Obj.magic label in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _endpos = _endpos__5_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in ( # 2687 "parsing/parser.mly" ( (Labelled label, mkexp_constraint ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_label_ label) ty) ) # 22755 "parsing/parser.ml" : (Asttypes.arg_label * Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let label : ( # 819 "parsing/parser.mly" (string) # 22783 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_label_ in let _v = let _loc_label_ = (_startpos_label_, _endpos_label_) in ( # 2690 "parsing/parser.mly" ( let loc = _loc_label_ in (Optional label, mkexpvar ~loc label) ) # 22795 "parsing/parser.ml" : (Asttypes.arg_label * Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1 : ( # 836 "parsing/parser.mly" (string) # 22824 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.arg_label * Parsetree.expression) = # 2693 "parsing/parser.mly" ( (Optional _1, _2) ) # 22832 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let _1_inlined1 : (Parsetree.expression option) = Obj.magic _1_inlined1 in let _3 : (string * Parsetree.pattern) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _4 = let _1 = _1_inlined1 in # 2397 "parsing/parser.mly" ( _1 ) # 22888 "parsing/parser.ml" in ( # 2371 "parsing/parser.mly" ( (Optional (fst _3), _4, snd _3) ) # 22894 "parsing/parser.ml" : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _1_inlined1 : ( # 819 "parsing/parser.mly" (string) # 22922 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _2 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 22938 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2409 "parsing/parser.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) # 22947 "parsing/parser.ml" in ( # 2373 "parsing/parser.mly" ( (Optional (fst _2), None, snd _2) ) # 22953 "parsing/parser.ml" : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let _1_inlined1 : (Parsetree.expression option) = Obj.magic _1_inlined1 in let _3 : (Parsetree.pattern) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( # 836 "parsing/parser.mly" (string) # 23003 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _4 = let _1 = _1_inlined1 in # 2397 "parsing/parser.mly" ( _1 ) # 23014 "parsing/parser.ml" in ( # 2375 "parsing/parser.mly" ( (Optional _1, _4, _3) ) # 23020 "parsing/parser.ml" : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.pattern) = Obj.magic _2 in let _1 : ( # 836 "parsing/parser.mly" (string) # 23049 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = # 2377 "parsing/parser.mly" ( (Optional _1, None, _2) ) # 23057 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in let _3 : (string * Parsetree.pattern) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = # 2379 "parsing/parser.mly" ( (Labelled (fst _3), None, snd _3) ) # 23103 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _1_inlined1 : ( # 819 "parsing/parser.mly" (string) # 23130 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _2 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 23146 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2409 "parsing/parser.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) # 23155 "parsing/parser.ml" in ( # 2381 "parsing/parser.mly" ( (Labelled (fst _2), None, snd _2) ) # 23161 "parsing/parser.ml" : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.pattern) = Obj.magic _2 in let _1 : ( # 806 "parsing/parser.mly" (string) # 23190 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = # 2383 "parsing/parser.mly" ( (Labelled _1, None, _2) ) # 23198 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = # 2385 "parsing/parser.mly" ( (Nolabel, None, _1) ) # 23223 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.pattern) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ((string option * Parsetree.pattern) list) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _3 = let _1 = _1_inlined1 in # 3145 "parsing/parser.mly" ( None, _1 ) # 23265 "parsing/parser.ml" in ( # 3173 "parsing/parser.mly" ( _3 :: _1 ) # 23271 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in let _1_inlined1 : ( # 806 "parsing/parser.mly" (string) # 23312 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ((string option * Parsetree.pattern) list) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_inlined1_ in let _v = let _3 = let (_2, _1) = (_2_inlined1, _1_inlined1) in # 3147 "parsing/parser.mly" ( Some _1, _2 ) # 23325 "parsing/parser.ml" in ( # 3173 "parsing/parser.mly" ( _3 :: _1 ) # 23331 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let label : ( # 819 "parsing/parser.mly" (string) # 23371 "parsing/parser.ml" ) = Obj.magic label in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ((string option * Parsetree.pattern) list) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_label_ in let _v = let _3 = let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3149 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) # 23386 "parsing/parser.ml" in ( # 3173 "parsing/parser.mly" ( _3 :: _1 ) # 23392 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = cty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_cty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_cty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; } = _menhir_stack in let _6 : unit = Obj.magic _6 in let cty : (Parsetree.core_type) = Obj.magic cty in let _4 : unit = Obj.magic _4 in let label : ( # 819 "parsing/parser.mly" (string) # 23459 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ((string option * Parsetree.pattern) list) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in let _v = let _3 = let _startpos__2_ = _startpos__2_inlined1_ in let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3152 "parsing/parser.mly" ( let lbl_loc = _loc_label_ in let pat_loc = _startpos__2_, _endpos in let pat = mkpatvar ~loc:lbl_loc label in Some label, mkpat ~loc:pat_loc (Ppat_constraint(pat, cty)) ) # 23479 "parsing/parser.ml" in ( # 3173 "parsing/parser.mly" ( _3 :: _1 ) # 23485 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.pattern) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _3 = let _1 = _1_inlined1 in # 3145 "parsing/parser.mly" ( None, _1 ) # 23528 "parsing/parser.ml" in let _1 = # 3159 "parsing/parser.mly" ( None, _1 ) # 23534 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 23539 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in let _1_inlined1 : ( # 806 "parsing/parser.mly" (string) # 23580 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_inlined1_ in let _v = let _3 = let (_2, _1) = (_2_inlined1, _1_inlined1) in # 3147 "parsing/parser.mly" ( Some _1, _2 ) # 23593 "parsing/parser.ml" in let _1 = # 3159 "parsing/parser.mly" ( None, _1 ) # 23599 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 23604 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let label : ( # 819 "parsing/parser.mly" (string) # 23644 "parsing/parser.ml" ) = Obj.magic label in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_label_ in let _v = let _3 = let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3149 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) # 23659 "parsing/parser.ml" in let _1 = # 3159 "parsing/parser.mly" ( None, _1 ) # 23665 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 23670 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = cty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_cty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_cty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; } = _menhir_stack in let _6 : unit = Obj.magic _6 in let cty : (Parsetree.core_type) = Obj.magic cty in let _4 : unit = Obj.magic _4 in let label : ( # 819 "parsing/parser.mly" (string) # 23737 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in let _v = let _3 = let _startpos__2_ = _startpos__2_inlined1_ in let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3152 "parsing/parser.mly" ( let lbl_loc = _loc_label_ in let pat_loc = _startpos__2_, _endpos in let pat = mkpatvar ~loc:lbl_loc label in Some label, mkpat ~loc:pat_loc (Ppat_constraint(pat, cty)) ) # 23757 "parsing/parser.ml" in let _1 = # 3159 "parsing/parser.mly" ( None, _1 ) # 23763 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 23768 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.pattern) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in let _1 : ( # 806 "parsing/parser.mly" (string) # 23811 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _3 = let _1 = _1_inlined1 in # 3145 "parsing/parser.mly" ( None, _1 ) # 23822 "parsing/parser.ml" in let _1 = let _2 = _2_inlined1 in # 3161 "parsing/parser.mly" ( Some _1, _2 ) # 23830 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 23836 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _2_inlined2 : (Parsetree.pattern) = Obj.magic _2_inlined2 in let _1_inlined1 : ( # 806 "parsing/parser.mly" (string) # 23883 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in let _1 : ( # 806 "parsing/parser.mly" (string) # 23890 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_inlined2_ in let _v = let _3 = let (_2, _1) = (_2_inlined2, _1_inlined1) in # 3147 "parsing/parser.mly" ( Some _1, _2 ) # 23901 "parsing/parser.ml" in let _1 = let _2 = _2_inlined1 in # 3161 "parsing/parser.mly" ( Some _1, _2 ) # 23909 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 23915 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let label : ( # 819 "parsing/parser.mly" (string) # 23961 "parsing/parser.ml" ) = Obj.magic label in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in let _1 : ( # 806 "parsing/parser.mly" (string) # 23969 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_label_ in let _v = let _3 = let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3149 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) # 23981 "parsing/parser.ml" in let _1 = let _2 = _2_inlined1 in # 3161 "parsing/parser.mly" ( Some _1, _2 ) # 23989 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 23995 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = cty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_cty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_cty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; } = _menhir_stack in let _6 : unit = Obj.magic _6 in let cty : (Parsetree.core_type) = Obj.magic cty in let _4 : unit = Obj.magic _4 in let label : ( # 819 "parsing/parser.mly" (string) # 24068 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined2 : unit = Obj.magic _2_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in let _1 : ( # 806 "parsing/parser.mly" (string) # 24077 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in let _v = let _3 = let _startpos__2_ = _startpos__2_inlined2_ in let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3152 "parsing/parser.mly" ( let lbl_loc = _loc_label_ in let pat_loc = _startpos__2_, _endpos in let pat = mkpatvar ~loc:lbl_loc label in Some label, mkpat ~loc:pat_loc (Ppat_constraint(pat, cty)) ) # 24093 "parsing/parser.ml" in let _1 = let _2 = _2_inlined1 in # 3161 "parsing/parser.mly" ( Some _1, _2 ) # 24101 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 24107 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.pattern) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let label : ( # 819 "parsing/parser.mly" (string) # 24149 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _3 = let _1 = _1_inlined1 in # 3145 "parsing/parser.mly" ( None, _1 ) # 24161 "parsing/parser.ml" in let _1 = let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3163 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) # 24170 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 24176 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in let _1_inlined1 : ( # 806 "parsing/parser.mly" (string) # 24223 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let label : ( # 819 "parsing/parser.mly" (string) # 24229 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_inlined1_ in let _v = let _3 = let (_2, _1) = (_2_inlined1, _1_inlined1) in # 3147 "parsing/parser.mly" ( Some _1, _2 ) # 24241 "parsing/parser.ml" in let _1 = let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3163 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) # 24250 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 24256 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let label_inlined1 : ( # 819 "parsing/parser.mly" (string) # 24302 "parsing/parser.ml" ) = Obj.magic label_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let label : ( # 819 "parsing/parser.mly" (string) # 24309 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_label_inlined1_ in let _v = let _3 = let (_endpos_label_, _startpos_label_, label) = (_endpos_label_inlined1_, _startpos_label_inlined1_, label_inlined1) in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3149 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) # 24323 "parsing/parser.ml" in let _1 = let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3163 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) # 24332 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 24338 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = cty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_cty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_cty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; } = _menhir_stack in let _6 : unit = Obj.magic _6 in let cty : (Parsetree.core_type) = Obj.magic cty in let _4 : unit = Obj.magic _4 in let label_inlined1 : ( # 819 "parsing/parser.mly" (string) # 24411 "parsing/parser.ml" ) = Obj.magic label_inlined1 in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let label : ( # 819 "parsing/parser.mly" (string) # 24419 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in let _v = let _3 = let (_endpos_label_, _startpos_label_, _startpos__2_, label) = (_endpos_label_inlined1_, _startpos_label_inlined1_, _startpos__2_inlined1_, label_inlined1) in let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3152 "parsing/parser.mly" ( let lbl_loc = _loc_label_ in let pat_loc = _startpos__2_, _endpos in let pat = mkpatvar ~loc:lbl_loc label in Some label, mkpat ~loc:pat_loc (Ppat_constraint(pat, cty)) ) # 24436 "parsing/parser.ml" in let _1 = let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3163 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) # 24445 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 24451 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = cty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_cty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_cty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.pattern) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _6 : unit = Obj.magic _6 in let cty : (Parsetree.core_type) = Obj.magic cty in let _4 : unit = Obj.magic _4 in let label : ( # 819 "parsing/parser.mly" (string) # 24520 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _3 = let _1 = _1_inlined1 in # 3145 "parsing/parser.mly" ( None, _1 ) # 24533 "parsing/parser.ml" in let _1 = let _startpos__2_ = _startpos__2_inlined1_ in let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3166 "parsing/parser.mly" ( let lbl_loc = _loc_label_ in let pat_loc = _startpos__2_, _endpos in let pat = mkpatvar ~loc:lbl_loc label in Some label, mkpat ~loc:pat_loc (Ppat_constraint(pat, cty)) ) # 24546 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 24552 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = cty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_cty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_cty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; } = _menhir_stack in let _2_inlined2 : (Parsetree.pattern) = Obj.magic _2_inlined2 in let _1_inlined1 : ( # 806 "parsing/parser.mly" (string) # 24623 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _6 : unit = Obj.magic _6 in let cty : (Parsetree.core_type) = Obj.magic cty in let _4 : unit = Obj.magic _4 in let label : ( # 819 "parsing/parser.mly" (string) # 24632 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_inlined2_ in let _v = let _3 = let (_2, _1) = (_2_inlined2, _1_inlined1) in # 3147 "parsing/parser.mly" ( Some _1, _2 ) # 24645 "parsing/parser.ml" in let _1 = let _startpos__2_ = _startpos__2_inlined1_ in let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3166 "parsing/parser.mly" ( let lbl_loc = _loc_label_ in let pat_loc = _startpos__2_, _endpos in let pat = mkpatvar ~loc:lbl_loc label in Some label, mkpat ~loc:pat_loc (Ppat_constraint(pat, cty)) ) # 24658 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 24664 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = cty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_cty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_cty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; } = _menhir_stack in let label_inlined1 : ( # 819 "parsing/parser.mly" (string) # 24734 "parsing/parser.ml" ) = Obj.magic label_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _6 : unit = Obj.magic _6 in let cty : (Parsetree.core_type) = Obj.magic cty in let _4 : unit = Obj.magic _4 in let label : ( # 819 "parsing/parser.mly" (string) # 24744 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_label_inlined1_ in let _v = let _3 = let (_endpos_label_, _startpos_label_, label) = (_endpos_label_inlined1_, _startpos_label_inlined1_, label_inlined1) in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3149 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) # 24759 "parsing/parser.ml" in let _1 = let _startpos__2_ = _startpos__2_inlined1_ in let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3166 "parsing/parser.mly" ( let lbl_loc = _loc_label_ in let pat_loc = _startpos__2_, _endpos in let pat = mkpatvar ~loc:lbl_loc label in Some label, mkpat ~loc:pat_loc (Ppat_constraint(pat, cty)) ) # 24772 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 24778 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = cty_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_cty_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_cty_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = cty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_cty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_cty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let _6_inlined1 : unit = Obj.magic _6_inlined1 in let cty_inlined1 : (Parsetree.core_type) = Obj.magic cty_inlined1 in let _4_inlined1 : unit = Obj.magic _4_inlined1 in let label_inlined1 : ( # 819 "parsing/parser.mly" (string) # 24875 "parsing/parser.ml" ) = Obj.magic label_inlined1 in let _2_inlined2 : unit = Obj.magic _2_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _6 : unit = Obj.magic _6 in let cty : (Parsetree.core_type) = Obj.magic cty in let _4 : unit = Obj.magic _4 in let label : ( # 819 "parsing/parser.mly" (string) # 24886 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_inlined1_ in let _v = let _3 = let (_endpos_label_, _startpos_label_, _endpos__6_, _startpos__2_, cty, label) = (_endpos_label_inlined1_, _startpos_label_inlined1_, _endpos__6_inlined1_, _startpos__2_inlined2_, cty_inlined1, label_inlined1) in let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3152 "parsing/parser.mly" ( let lbl_loc = _loc_label_ in let pat_loc = _startpos__2_, _endpos in let pat = mkpatvar ~loc:lbl_loc label in Some label, mkpat ~loc:pat_loc (Ppat_constraint(pat, cty)) ) # 24904 "parsing/parser.ml" in let _1 = let _startpos__2_ = _startpos__2_inlined1_ in let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3166 "parsing/parser.mly" ( let lbl_loc = _loc_label_ in let pat_loc = _startpos__2_, _endpos in let pat = mkpatvar ~loc:lbl_loc label in Some label, mkpat ~loc:pat_loc (Ppat_constraint(pat, cty)) ) # 24917 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 24923 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _loc__3_ = (_startpos__3_, _endpos__3_) in ( # 3177 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) # 24965 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.pattern) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ((string option * Parsetree.pattern) list) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _3 = let _1 = _1_inlined1 in # 3145 "parsing/parser.mly" ( None, _1 ) # 25008 "parsing/parser.ml" in ( # 3173 "parsing/parser.mly" ( _3 :: _1 ) # 25014 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in let _1_inlined1 : ( # 806 "parsing/parser.mly" (string) # 25055 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ((string option * Parsetree.pattern) list) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_inlined1_ in let _v = let _3 = let (_2, _1) = (_2_inlined1, _1_inlined1) in # 3147 "parsing/parser.mly" ( Some _1, _2 ) # 25068 "parsing/parser.ml" in ( # 3173 "parsing/parser.mly" ( _3 :: _1 ) # 25074 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let label : ( # 819 "parsing/parser.mly" (string) # 25114 "parsing/parser.ml" ) = Obj.magic label in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ((string option * Parsetree.pattern) list) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_label_ in let _v = let _3 = let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3149 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) # 25129 "parsing/parser.ml" in ( # 3173 "parsing/parser.mly" ( _3 :: _1 ) # 25135 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = cty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_cty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_cty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; } = _menhir_stack in let _6 : unit = Obj.magic _6 in let cty : (Parsetree.core_type) = Obj.magic cty in let _4 : unit = Obj.magic _4 in let label : ( # 819 "parsing/parser.mly" (string) # 25202 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ((string option * Parsetree.pattern) list) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in let _v = let _3 = let _startpos__2_ = _startpos__2_inlined1_ in let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3152 "parsing/parser.mly" ( let lbl_loc = _loc_label_ in let pat_loc = _startpos__2_, _endpos in let pat = mkpatvar ~loc:lbl_loc label in Some label, mkpat ~loc:pat_loc (Ppat_constraint(pat, cty)) ) # 25222 "parsing/parser.ml" in ( # 3173 "parsing/parser.mly" ( _3 :: _1 ) # 25228 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.pattern) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _3 = let _1 = _1_inlined1 in # 3145 "parsing/parser.mly" ( None, _1 ) # 25271 "parsing/parser.ml" in let _1 = # 3159 "parsing/parser.mly" ( None, _1 ) # 25277 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 25282 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in let _1_inlined1 : ( # 806 "parsing/parser.mly" (string) # 25323 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_inlined1_ in let _v = let _3 = let (_2, _1) = (_2_inlined1, _1_inlined1) in # 3147 "parsing/parser.mly" ( Some _1, _2 ) # 25336 "parsing/parser.ml" in let _1 = # 3159 "parsing/parser.mly" ( None, _1 ) # 25342 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 25347 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let label : ( # 819 "parsing/parser.mly" (string) # 25387 "parsing/parser.ml" ) = Obj.magic label in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_label_ in let _v = let _3 = let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3149 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) # 25402 "parsing/parser.ml" in let _1 = # 3159 "parsing/parser.mly" ( None, _1 ) # 25408 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 25413 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = cty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_cty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_cty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; } = _menhir_stack in let _6 : unit = Obj.magic _6 in let cty : (Parsetree.core_type) = Obj.magic cty in let _4 : unit = Obj.magic _4 in let label : ( # 819 "parsing/parser.mly" (string) # 25480 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in let _v = let _3 = let _startpos__2_ = _startpos__2_inlined1_ in let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3152 "parsing/parser.mly" ( let lbl_loc = _loc_label_ in let pat_loc = _startpos__2_, _endpos in let pat = mkpatvar ~loc:lbl_loc label in Some label, mkpat ~loc:pat_loc (Ppat_constraint(pat, cty)) ) # 25500 "parsing/parser.ml" in let _1 = # 3159 "parsing/parser.mly" ( None, _1 ) # 25506 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 25511 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.pattern) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in let _1 : ( # 806 "parsing/parser.mly" (string) # 25554 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _3 = let _1 = _1_inlined1 in # 3145 "parsing/parser.mly" ( None, _1 ) # 25565 "parsing/parser.ml" in let _1 = let _2 = _2_inlined1 in # 3161 "parsing/parser.mly" ( Some _1, _2 ) # 25573 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 25579 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _2_inlined2 : (Parsetree.pattern) = Obj.magic _2_inlined2 in let _1_inlined1 : ( # 806 "parsing/parser.mly" (string) # 25626 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in let _1 : ( # 806 "parsing/parser.mly" (string) # 25633 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_inlined2_ in let _v = let _3 = let (_2, _1) = (_2_inlined2, _1_inlined1) in # 3147 "parsing/parser.mly" ( Some _1, _2 ) # 25644 "parsing/parser.ml" in let _1 = let _2 = _2_inlined1 in # 3161 "parsing/parser.mly" ( Some _1, _2 ) # 25652 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 25658 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let label : ( # 819 "parsing/parser.mly" (string) # 25704 "parsing/parser.ml" ) = Obj.magic label in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in let _1 : ( # 806 "parsing/parser.mly" (string) # 25712 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_label_ in let _v = let _3 = let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3149 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) # 25724 "parsing/parser.ml" in let _1 = let _2 = _2_inlined1 in # 3161 "parsing/parser.mly" ( Some _1, _2 ) # 25732 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 25738 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = cty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_cty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_cty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; } = _menhir_stack in let _6 : unit = Obj.magic _6 in let cty : (Parsetree.core_type) = Obj.magic cty in let _4 : unit = Obj.magic _4 in let label : ( # 819 "parsing/parser.mly" (string) # 25811 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined2 : unit = Obj.magic _2_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in let _1 : ( # 806 "parsing/parser.mly" (string) # 25820 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in let _v = let _3 = let _startpos__2_ = _startpos__2_inlined2_ in let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3152 "parsing/parser.mly" ( let lbl_loc = _loc_label_ in let pat_loc = _startpos__2_, _endpos in let pat = mkpatvar ~loc:lbl_loc label in Some label, mkpat ~loc:pat_loc (Ppat_constraint(pat, cty)) ) # 25836 "parsing/parser.ml" in let _1 = let _2 = _2_inlined1 in # 3161 "parsing/parser.mly" ( Some _1, _2 ) # 25844 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 25850 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.pattern) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let label : ( # 819 "parsing/parser.mly" (string) # 25892 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _3 = let _1 = _1_inlined1 in # 3145 "parsing/parser.mly" ( None, _1 ) # 25904 "parsing/parser.ml" in let _1 = let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3163 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) # 25913 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 25919 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in let _1_inlined1 : ( # 806 "parsing/parser.mly" (string) # 25966 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let label : ( # 819 "parsing/parser.mly" (string) # 25972 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_inlined1_ in let _v = let _3 = let (_2, _1) = (_2_inlined1, _1_inlined1) in # 3147 "parsing/parser.mly" ( Some _1, _2 ) # 25984 "parsing/parser.ml" in let _1 = let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3163 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) # 25993 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 25999 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let label_inlined1 : ( # 819 "parsing/parser.mly" (string) # 26045 "parsing/parser.ml" ) = Obj.magic label_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let label : ( # 819 "parsing/parser.mly" (string) # 26052 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_label_inlined1_ in let _v = let _3 = let (_endpos_label_, _startpos_label_, label) = (_endpos_label_inlined1_, _startpos_label_inlined1_, label_inlined1) in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3149 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) # 26066 "parsing/parser.ml" in let _1 = let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3163 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) # 26075 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 26081 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = cty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_cty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_cty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; } = _menhir_stack in let _6 : unit = Obj.magic _6 in let cty : (Parsetree.core_type) = Obj.magic cty in let _4 : unit = Obj.magic _4 in let label_inlined1 : ( # 819 "parsing/parser.mly" (string) # 26154 "parsing/parser.ml" ) = Obj.magic label_inlined1 in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let label : ( # 819 "parsing/parser.mly" (string) # 26162 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in let _v = let _3 = let (_endpos_label_, _startpos_label_, _startpos__2_, label) = (_endpos_label_inlined1_, _startpos_label_inlined1_, _startpos__2_inlined1_, label_inlined1) in let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3152 "parsing/parser.mly" ( let lbl_loc = _loc_label_ in let pat_loc = _startpos__2_, _endpos in let pat = mkpatvar ~loc:lbl_loc label in Some label, mkpat ~loc:pat_loc (Ppat_constraint(pat, cty)) ) # 26179 "parsing/parser.ml" in let _1 = let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3163 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) # 26188 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 26194 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = cty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_cty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_cty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.pattern) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _6 : unit = Obj.magic _6 in let cty : (Parsetree.core_type) = Obj.magic cty in let _4 : unit = Obj.magic _4 in let label : ( # 819 "parsing/parser.mly" (string) # 26263 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _3 = let _1 = _1_inlined1 in # 3145 "parsing/parser.mly" ( None, _1 ) # 26276 "parsing/parser.ml" in let _1 = let _startpos__2_ = _startpos__2_inlined1_ in let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3166 "parsing/parser.mly" ( let lbl_loc = _loc_label_ in let pat_loc = _startpos__2_, _endpos in let pat = mkpatvar ~loc:lbl_loc label in Some label, mkpat ~loc:pat_loc (Ppat_constraint(pat, cty)) ) # 26289 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 26295 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = cty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_cty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_cty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; } = _menhir_stack in let _2_inlined2 : (Parsetree.pattern) = Obj.magic _2_inlined2 in let _1_inlined1 : ( # 806 "parsing/parser.mly" (string) # 26366 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _6 : unit = Obj.magic _6 in let cty : (Parsetree.core_type) = Obj.magic cty in let _4 : unit = Obj.magic _4 in let label : ( # 819 "parsing/parser.mly" (string) # 26375 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_inlined2_ in let _v = let _3 = let (_2, _1) = (_2_inlined2, _1_inlined1) in # 3147 "parsing/parser.mly" ( Some _1, _2 ) # 26388 "parsing/parser.ml" in let _1 = let _startpos__2_ = _startpos__2_inlined1_ in let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3166 "parsing/parser.mly" ( let lbl_loc = _loc_label_ in let pat_loc = _startpos__2_, _endpos in let pat = mkpatvar ~loc:lbl_loc label in Some label, mkpat ~loc:pat_loc (Ppat_constraint(pat, cty)) ) # 26401 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 26407 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = cty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_cty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_cty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; } = _menhir_stack in let label_inlined1 : ( # 819 "parsing/parser.mly" (string) # 26477 "parsing/parser.ml" ) = Obj.magic label_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _6 : unit = Obj.magic _6 in let cty : (Parsetree.core_type) = Obj.magic cty in let _4 : unit = Obj.magic _4 in let label : ( # 819 "parsing/parser.mly" (string) # 26487 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_label_inlined1_ in let _v = let _3 = let (_endpos_label_, _startpos_label_, label) = (_endpos_label_inlined1_, _startpos_label_inlined1_, label_inlined1) in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3149 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) # 26502 "parsing/parser.ml" in let _1 = let _startpos__2_ = _startpos__2_inlined1_ in let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3166 "parsing/parser.mly" ( let lbl_loc = _loc_label_ in let pat_loc = _startpos__2_, _endpos in let pat = mkpatvar ~loc:lbl_loc label in Some label, mkpat ~loc:pat_loc (Ppat_constraint(pat, cty)) ) # 26515 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 26521 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = cty_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_cty_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_cty_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = cty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_cty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_cty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let _6_inlined1 : unit = Obj.magic _6_inlined1 in let cty_inlined1 : (Parsetree.core_type) = Obj.magic cty_inlined1 in let _4_inlined1 : unit = Obj.magic _4_inlined1 in let label_inlined1 : ( # 819 "parsing/parser.mly" (string) # 26618 "parsing/parser.ml" ) = Obj.magic label_inlined1 in let _2_inlined2 : unit = Obj.magic _2_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _6 : unit = Obj.magic _6 in let cty : (Parsetree.core_type) = Obj.magic cty in let _4 : unit = Obj.magic _4 in let label : ( # 819 "parsing/parser.mly" (string) # 26629 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_inlined1_ in let _v = let _3 = let (_endpos_label_, _startpos_label_, _endpos__6_, _startpos__2_, cty, label) = (_endpos_label_inlined1_, _startpos_label_inlined1_, _endpos__6_inlined1_, _startpos__2_inlined2_, cty_inlined1, label_inlined1) in let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3152 "parsing/parser.mly" ( let lbl_loc = _loc_label_ in let pat_loc = _startpos__2_, _endpos in let pat = mkpatvar ~loc:lbl_loc label in Some label, mkpat ~loc:pat_loc (Ppat_constraint(pat, cty)) ) # 26647 "parsing/parser.ml" in let _1 = let _startpos__2_ = _startpos__2_inlined1_ in let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3166 "parsing/parser.mly" ( let lbl_loc = _loc_label_ in let pat_loc = _startpos__2_, _endpos in let pat = mkpatvar ~loc:lbl_loc label in Some label, mkpat ~loc:pat_loc (Ppat_constraint(pat, cty)) ) # 26660 "parsing/parser.ml" in ( # 3175 "parsing/parser.mly" ( [ _3; _1 ] ) # 26666 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _loc__3_ = (_startpos__3_, _endpos__3_) in ( # 3177 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) # 26708 "parsing/parser.ml" : ((string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Asttypes.closed_flag * (string option * Parsetree.pattern) list) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern_desc) = # 3189 "parsing/parser.mly" ( let closed, pat = _1 in Ppat_tuple(List.rev pat, closed) ) # 26735 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Asttypes.closed_flag * (string option * Parsetree.pattern) list) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern_desc) = # 3189 "parsing/parser.mly" ( let closed, pat = _1 in Ppat_tuple(List.rev pat, closed) ) # 26761 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.pattern * Parsetree.expression * Parsetree.value_constraint option) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern * Parsetree.expression * Parsetree.value_constraint option * bool) = # 2732 "parsing/parser.mly" ( let p,e,c = _1 in (p,e,c,false) ) # 26788 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Asttypes.label) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in ( # 2735 "parsing/parser.mly" ( (mkpatvar ~loc:_loc _1, mkexpvar ~loc:_loc _1, None, true) ) # 26817 "parsing/parser.ml" : (Parsetree.pattern * Parsetree.expression * Parsetree.value_constraint option * bool)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1 : (Asttypes.label) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2700 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) # 26856 "parsing/parser.ml" in ( # 2704 "parsing/parser.mly" ( (_1, _2, None) ) # 26862 "parsing/parser.ml" : (Parsetree.pattern * Parsetree.expression * Parsetree.value_constraint option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : (Parsetree.expression) = Obj.magic _4 in let _3 : unit = Obj.magic _3 in let _2 : (Parsetree.type_constraint) = Obj.magic _2 in let _1 : (Asttypes.label) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2700 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) # 26915 "parsing/parser.ml" in ( # 2706 "parsing/parser.mly" ( let v = _1 in (* PR#7344 *) let t = match _2 with Pconstraint t -> Pvc_constraint { locally_abstract_univars = []; typ=t } | Pcoerce (ground, coercion) -> Pvc_coercion { ground; coercion} in (v, _4, Some t) ) # 26929 "parsing/parser.ml" : (Parsetree.pattern * Parsetree.expression * Parsetree.value_constraint option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _5 : (Parsetree.expression) = Obj.magic _5 in let _4 : unit = Obj.magic _4 in let _3 : (Parsetree.core_type) = Obj.magic _3 in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let xs : (Asttypes.label Asttypes.loc list) = Obj.magic xs in let _2 : unit = Obj.magic _2 in let _1 : (Asttypes.label) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _3 = let _1 = let _1 = let xs = # 264 "" ( List.rev xs ) # 27002 "parsing/parser.ml" in # 1104 "parsing/parser.mly" ( xs ) # 27007 "parsing/parser.ml" in # 3616 "parsing/parser.mly" ( _1 ) # 27013 "parsing/parser.ml" in # 3620 "parsing/parser.mly" ( Ptyp_poly(_1, _3) ) # 27019 "parsing/parser.ml" in let _startpos__3_ = _startpos_xs_ in let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2700 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) # 27030 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in ( # 2716 "parsing/parser.mly" ( let t = ghtyp ~loc:(_loc__3_) _3 in (_1, _5, Some (Pvc_constraint { locally_abstract_univars = []; typ=t })) ) # 27040 "parsing/parser.ml" : (Parsetree.pattern * Parsetree.expression * Parsetree.value_constraint option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _8; CamlinternalMenhirLib.EngineTypes.startp = _startpos__8_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__8_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _7; CamlinternalMenhirLib.EngineTypes.startp = _startpos__7_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__7_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; } = _menhir_stack in let _8 : (Parsetree.expression) = Obj.magic _8 in let _7 : unit = Obj.magic _7 in let _6 : (Parsetree.core_type) = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let xs : (string Asttypes.loc list) = Obj.magic xs in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Asttypes.label) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__8_ in let _v = let _4 = # 2697 "parsing/parser.mly" ( xs ) # 27117 "parsing/parser.ml" in let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2700 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) # 27126 "parsing/parser.ml" in ( # 2721 "parsing/parser.mly" ( let constraint' = Pvc_constraint { locally_abstract_univars=_4; typ = _6} in (_1, _8, Some constraint') ) # 27135 "parsing/parser.ml" : (Parsetree.pattern * Parsetree.expression * Parsetree.value_constraint option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : (Parsetree.expression) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.pattern * Parsetree.expression * Parsetree.value_constraint option) = # 2726 "parsing/parser.mly" ( (_1, _3, None) ) # 27177 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : (Parsetree.expression) = Obj.magic _5 in let _4 : unit = Obj.magic _4 in let _3 : (Parsetree.core_type) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.pattern * Parsetree.expression * Parsetree.value_constraint option) = # 2728 "parsing/parser.mly" ( (_1, _5, Some(Pvc_constraint { locally_abstract_univars=[]; typ=_3 })) ) # 27231 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = body; CamlinternalMenhirLib.EngineTypes.startp = _startpos_body_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_body_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = rec_flag; CamlinternalMenhirLib.EngineTypes.startp = _startpos_rec_flag_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_rec_flag_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let body : (Parsetree.pattern * Parsetree.expression * Parsetree.value_constraint option * bool) = Obj.magic body in let rec_flag : (Asttypes.rec_flag) = Obj.magic rec_flag in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in let _v = let _1 = let attrs2 = let _1 = _1_inlined2 in # 4308 "parsing/parser.mly" ( _1 ) # 27296 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 27305 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2755 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in mklbs ext rec_flag (mklb ~loc:_sloc true body attrs) ) # 27317 "parsing/parser.ml" in ( # 2745 "parsing/parser.mly" ( _1 ) # 27323 "parsing/parser.ml" : (let_bindings)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (let_binding) = Obj.magic _2 in let _1 : (let_bindings) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (let_bindings) = # 2746 "parsing/parser.mly" ( addlb _1 _2 ) # 27356 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = body; CamlinternalMenhirLib.EngineTypes.startp = _startpos_body_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_body_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = rec_flag; CamlinternalMenhirLib.EngineTypes.startp = _startpos_rec_flag_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_rec_flag_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let body : (Parsetree.pattern * Parsetree.expression * Parsetree.value_constraint option * bool) = Obj.magic body in let rec_flag : (Asttypes.rec_flag) = Obj.magic rec_flag in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in let _v = let _1 = let attrs2 = let _1 = _1_inlined2 in # 4308 "parsing/parser.mly" ( _1 ) # 27414 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 27423 "parsing/parser.ml" in let ext = # 4319 "parsing/parser.mly" ( None ) # 27429 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2755 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in mklbs ext rec_flag (mklb ~loc:_sloc true body attrs) ) # 27440 "parsing/parser.ml" in ( # 2745 "parsing/parser.mly" ( _1 ) # 27446 "parsing/parser.ml" : (let_bindings)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = body; CamlinternalMenhirLib.EngineTypes.startp = _startpos_body_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_body_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = rec_flag; CamlinternalMenhirLib.EngineTypes.startp = _startpos_rec_flag_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_rec_flag_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let body : (Parsetree.pattern * Parsetree.expression * Parsetree.value_constraint option * bool) = Obj.magic body in let rec_flag : (Asttypes.rec_flag) = Obj.magic rec_flag in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _2 : (Ast_helper.str) = Obj.magic _2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in let _v = let _1 = let attrs2 = let _1 = _1_inlined3 in # 4308 "parsing/parser.mly" ( _1 ) # 27519 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let attrs1 = let _1 = _1_inlined2 in # 4312 "parsing/parser.mly" ( _1 ) # 27528 "parsing/parser.ml" in let ext = let _startpos__1_ = _startpos__1_inlined1_ in let _endpos = _endpos__2_ in let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in # 4321 "parsing/parser.mly" ( not_expecting _loc "extension" ) # 27539 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2755 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in mklbs ext rec_flag (mklb ~loc:_sloc true body attrs) ) # 27551 "parsing/parser.ml" in ( # 2745 "parsing/parser.mly" ( _1 ) # 27557 "parsing/parser.ml" : (let_bindings)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (let_binding) = Obj.magic _2 in let _1 : (let_bindings) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (let_bindings) = # 2746 "parsing/parser.mly" ( addlb _1 _2 ) # 27590 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = # 2413 "parsing/parser.mly" ( _1 ) # 27615 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : (Parsetree.core_type) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = # 2415 "parsing/parser.mly" ( Ppat_constraint(_1, _3) ) # 27656 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 27665 "parsing/parser.ml" in ( # 2416 "parsing/parser.mly" ( _1 ) # 27671 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = exp; CamlinternalMenhirLib.EngineTypes.startp = _startpos_exp_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_exp_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let exp : (Parsetree.expression) = Obj.magic exp in let _1 : (Asttypes.label) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_exp_ in let _v = let pat = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2700 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) # 27709 "parsing/parser.ml" in ( # 2772 "parsing/parser.mly" ( (pat, exp) ) # 27715 "parsing/parser.ml" : (Parsetree.pattern * Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Asttypes.label) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in ( # 2775 "parsing/parser.mly" ( (mkpatvar ~loc:_loc _1, mkexpvar ~loc:_loc _1) ) # 27745 "parsing/parser.ml" : (Parsetree.pattern * Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = exp; CamlinternalMenhirLib.EngineTypes.startp = _startpos_exp_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_exp_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = typ; CamlinternalMenhirLib.EngineTypes.startp = _startpos_typ_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_typ_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = pat; CamlinternalMenhirLib.EngineTypes.startp = _startpos_pat_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_pat_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let exp : (Parsetree.expression) = Obj.magic exp in let _4 : unit = Obj.magic _4 in let typ : (Parsetree.core_type) = Obj.magic typ in let _2 : unit = Obj.magic _2 in let pat : (Parsetree.pattern) = Obj.magic pat in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_pat_ in let _endpos = _endpos_exp_ in let _v : (Parsetree.pattern * Parsetree.expression) = # 2777 "parsing/parser.mly" ( let loc = (_startpos_pat_, _endpos_typ_) in (ghpat ~loc (Ppat_constraint(pat, typ)), exp) ) # 27800 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = exp; CamlinternalMenhirLib.EngineTypes.startp = _startpos_exp_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_exp_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = pat; CamlinternalMenhirLib.EngineTypes.startp = _startpos_pat_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_pat_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let exp : (Parsetree.expression) = Obj.magic exp in let _2 : unit = Obj.magic _2 in let pat : (Parsetree.pattern) = Obj.magic pat in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_pat_ in let _endpos = _endpos_exp_ in let _v : (Parsetree.pattern * Parsetree.expression) = # 2780 "parsing/parser.mly" ( (pat, exp) ) # 27839 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = body; CamlinternalMenhirLib.EngineTypes.startp = _startpos_body_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_body_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let body : (Parsetree.pattern * Parsetree.expression) = Obj.magic body in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_body_ in let _endpos = _endpos_body_ in let _v : (Parsetree.pattern * Parsetree.expression * Parsetree.binding_op list) = # 2784 "parsing/parser.mly" ( let let_pat, let_exp = body in let_pat, let_exp, [] ) # 27865 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = body; CamlinternalMenhirLib.EngineTypes.startp = _startpos_body_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_body_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = bindings; CamlinternalMenhirLib.EngineTypes.startp = _startpos_bindings_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_bindings_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let body : (Parsetree.pattern * Parsetree.expression) = Obj.magic body in let _1 : ( # 802 "parsing/parser.mly" (string) # 27899 "parsing/parser.ml" ) = Obj.magic _1 in let bindings : (Parsetree.pattern * Parsetree.expression * Parsetree.binding_op list) = Obj.magic bindings in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_bindings_ in let _endpos = _endpos_body_ in let _v = let pbop_op = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 27913 "parsing/parser.ml" in let _endpos = _endpos_body_ in let _symbolstartpos = _startpos_bindings_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2787 "parsing/parser.mly" ( let let_pat, let_exp, rev_ands = bindings in let pbop_pat, pbop_exp = body in let pbop_loc = make_loc _sloc in let and_ = {pbop_op; pbop_pat; pbop_exp; pbop_loc} in let_pat, let_exp, and_ :: rev_ands ) # 27926 "parsing/parser.ml" : (Parsetree.pattern * Parsetree.expression * Parsetree.binding_op list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.class_declaration list) = # 216 "" ( [] ) # 27945 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = body; CamlinternalMenhirLib.EngineTypes.startp = _startpos_body_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_body_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = params; CamlinternalMenhirLib.EngineTypes.startp = _startpos_params_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_params_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = virt; CamlinternalMenhirLib.EngineTypes.startp = _startpos_virt_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_virt_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.class_declaration list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let body : (Parsetree.class_expr) = Obj.magic body in let _1_inlined2 : ( # 819 "parsing/parser.mly" (string) # 28011 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in let virt : (Asttypes.virtual_flag) = Obj.magic virt in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let x = let attrs2 = let _1 = _1_inlined3 in # 4308 "parsing/parser.mly" ( _1 ) # 28027 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 28039 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 28047 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1988 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in let text = symbol_text _symbolstartpos in Ci.mk id body ~virt ~params ~attrs ~loc ~text ~docs ) # 28062 "parsing/parser.ml" in ( # 219 "" ( x :: xs ) # 28068 "parsing/parser.ml" : (Parsetree.class_declaration list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.class_description list) = # 216 "" ( [] ) # 28087 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = cty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_cty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_cty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = params; CamlinternalMenhirLib.EngineTypes.startp = _startpos_params_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_params_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = virt; CamlinternalMenhirLib.EngineTypes.startp = _startpos_virt_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_virt_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.class_description list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let cty : (Parsetree.class_type) = Obj.magic cty in let _6 : unit = Obj.magic _6 in let _1_inlined2 : ( # 819 "parsing/parser.mly" (string) # 28160 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in let virt : (Asttypes.virtual_flag) = Obj.magic virt in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let x = let attrs2 = let _1 = _1_inlined3 in # 4308 "parsing/parser.mly" ( _1 ) # 28176 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 28188 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 28196 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2279 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in let text = symbol_text _symbolstartpos in Ci.mk id cty ~virt ~params ~attrs ~loc ~text ~docs ) # 28211 "parsing/parser.ml" in ( # 219 "" ( x :: xs ) # 28217 "parsing/parser.ml" : (Parsetree.class_description list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.class_type_declaration list) = # 216 "" ( [] ) # 28236 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = csig; CamlinternalMenhirLib.EngineTypes.startp = _startpos_csig_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_csig_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = params; CamlinternalMenhirLib.EngineTypes.startp = _startpos_params_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_params_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = virt; CamlinternalMenhirLib.EngineTypes.startp = _startpos_virt_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_virt_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.class_type_declaration list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let csig : (Parsetree.class_type) = Obj.magic csig in let _6 : unit = Obj.magic _6 in let _1_inlined2 : ( # 819 "parsing/parser.mly" (string) # 28309 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in let virt : (Asttypes.virtual_flag) = Obj.magic virt in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let x = let attrs2 = let _1 = _1_inlined3 in # 4308 "parsing/parser.mly" ( _1 ) # 28325 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 28337 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 28345 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2318 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in let text = symbol_text _symbolstartpos in Ci.mk id csig ~virt ~params ~attrs ~loc ~text ~docs ) # 28360 "parsing/parser.ml" in ( # 219 "" ( x :: xs ) # 28366 "parsing/parser.ml" : (Parsetree.class_type_declaration list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.module_binding list) = # 216 "" ( [] ) # 28385 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = body; CamlinternalMenhirLib.EngineTypes.startp = _startpos_body_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_body_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.module_binding list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let body : (Parsetree.module_expr) = Obj.magic body in let _1_inlined2 : (string option) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let x = let attrs2 = let _1 = _1_inlined3 in # 4308 "parsing/parser.mly" ( _1 ) # 28449 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let name = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 28461 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 28469 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1650 "parsing/parser.mly" ( let loc = make_loc _sloc in let attrs = attrs1 @ attrs2 in let docs = symbol_docs _sloc in let text = symbol_text _symbolstartpos in Mb.mk name body ~attrs ~loc ~text ~docs ) # 28484 "parsing/parser.ml" in ( # 219 "" ( x :: xs ) # 28490 "parsing/parser.ml" : (Parsetree.module_binding list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.module_declaration list) = # 216 "" ( [] ) # 28509 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = mty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_mty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_mty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.module_declaration list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let mty : (Parsetree.module_type) = Obj.magic mty in let _4 : unit = Obj.magic _4 in let _1_inlined2 : (string option) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let x = let attrs2 = let _1 = _1_inlined3 in # 4308 "parsing/parser.mly" ( _1 ) # 28580 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let name = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 28592 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 28600 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1929 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let docs = symbol_docs _sloc in let loc = make_loc _sloc in let text = symbol_text _symbolstartpos in Md.mk name mty ~attrs ~loc ~text ~docs ) # 28615 "parsing/parser.ml" in ( # 219 "" ( x :: xs ) # 28621 "parsing/parser.ml" : (Parsetree.module_declaration list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.attributes) = # 216 "" ( [] ) # 28640 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let xs : (Parsetree.attributes) = Obj.magic xs in let x : (Parsetree.attribute) = Obj.magic x in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_xs_ in let _v : (Parsetree.attributes) = # 219 "" ( x :: xs ) # 28672 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.type_declaration list) = # 216 "" ( [] ) # 28690 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = kind_priv_manifest; CamlinternalMenhirLib.EngineTypes.startp = _startpos_kind_priv_manifest_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_kind_priv_manifest_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = params; CamlinternalMenhirLib.EngineTypes.startp = _startpos_params_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_params_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.type_declaration list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let xs_inlined1 : ((Parsetree.core_type * Parsetree.core_type * Ast_helper.loc) list) = Obj.magic xs_inlined1 in let kind_priv_manifest : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = Obj.magic kind_priv_manifest in let _1_inlined2 : ( # 819 "parsing/parser.mly" (string) # 28757 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let x = let xs = xs_inlined1 in let attrs2 = let _1 = _1_inlined3 in # 4308 "parsing/parser.mly" ( _1 ) # 28773 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let cstrs = let _1 = let xs = # 264 "" ( List.rev xs ) # 28782 "parsing/parser.ml" in # 1086 "parsing/parser.mly" ( xs ) # 28787 "parsing/parser.ml" in # 3333 "parsing/parser.mly" ( _1 ) # 28793 "parsing/parser.ml" in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 28804 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 28812 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3322 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let text = symbol_text _symbolstartpos in Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ~text ) # 28828 "parsing/parser.ml" in ( # 219 "" ( x :: xs ) # 28834 "parsing/parser.ml" : (Parsetree.type_declaration list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.type_declaration list) = # 216 "" ( [] ) # 28853 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = params; CamlinternalMenhirLib.EngineTypes.startp = _startpos_params_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_params_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.type_declaration list) = Obj.magic xs in let _1_inlined4 : (Parsetree.attributes) = Obj.magic _1_inlined4 in let xs_inlined1 : ((Parsetree.core_type * Parsetree.core_type * Ast_helper.loc) list) = Obj.magic xs_inlined1 in let _2 : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = Obj.magic _2 in let _1_inlined3 : unit = Obj.magic _1_inlined3 in let _1_inlined2 : ( # 819 "parsing/parser.mly" (string) # 28927 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let x = let xs = xs_inlined1 in let attrs2 = let _1 = _1_inlined4 in # 4308 "parsing/parser.mly" ( _1 ) # 28943 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in let cstrs = let _1 = let xs = # 264 "" ( List.rev xs ) # 28952 "parsing/parser.ml" in # 1086 "parsing/parser.mly" ( xs ) # 28957 "parsing/parser.ml" in # 3333 "parsing/parser.mly" ( _1 ) # 28963 "parsing/parser.ml" in let kind_priv_manifest = # 3368 "parsing/parser.mly" ( _2 ) # 28969 "parsing/parser.ml" in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 28979 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 28987 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3322 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let text = symbol_text _symbolstartpos in Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ~text ) # 29003 "parsing/parser.ml" in ( # 219 "" ( x :: xs ) # 29009 "parsing/parser.ml" : (Parsetree.type_declaration list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.attributes) = # 216 "" ( [] ) # 29028 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let xs : (Parsetree.attributes) = Obj.magic xs in let x : (Parsetree.attribute) = Obj.magic x in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_xs_ in let _v : (Parsetree.attributes) = # 219 "" ( x :: xs ) # 29060 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.signature_item list list) = # 216 "" ( [] ) # 29078 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let xs : (Parsetree.signature_item list list) = Obj.magic xs in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let x = let _1 = let _startpos = _startpos__1_ in # 1016 "parsing/parser.mly" ( text_sig _startpos ) # 29114 "parsing/parser.ml" in # 1790 "parsing/parser.mly" ( _1 ) # 29120 "parsing/parser.ml" in ( # 219 "" ( x :: xs ) # 29126 "parsing/parser.ml" : (Parsetree.signature_item list list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let xs : (Parsetree.signature_item list list) = Obj.magic xs in let _1 : (Parsetree.signature_item) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let x = let _1 = let _startpos = _startpos__1_ in # 1014 "parsing/parser.mly" ( text_sig _startpos @ [_1] ) # 29163 "parsing/parser.ml" in # 1790 "parsing/parser.mly" ( _1 ) # 29169 "parsing/parser.ml" in ( # 219 "" ( x :: xs ) # 29175 "parsing/parser.ml" : (Parsetree.signature_item list list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.structure_item list list) = # 216 "" ( [] ) # 29194 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let xs : (Parsetree.structure_item list list) = Obj.magic xs in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let x = let _1 = let ys = let items = # 1072 "parsing/parser.mly" ( [] ) # 29230 "parsing/parser.ml" in # 1523 "parsing/parser.mly" ( items ) # 29235 "parsing/parser.ml" in let xs = let _startpos = _startpos__1_ in # 1012 "parsing/parser.mly" ( text_str _startpos ) # 29243 "parsing/parser.ml" in # 278 "" ( xs @ ys ) # 29249 "parsing/parser.ml" in # 1539 "parsing/parser.mly" ( _1 ) # 29255 "parsing/parser.ml" in ( # 219 "" ( x :: xs ) # 29261 "parsing/parser.ml" : (Parsetree.structure_item list list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = e; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let xs : (Parsetree.structure_item list list) = Obj.magic xs in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let e : (Parsetree.expression) = Obj.magic e in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let x = let _1 = let ys = let (_endpos__1_, _1) = (_endpos__1_inlined1_, _1_inlined1) in let items = let x = let _1 = let _1 = let attrs = # 4308 "parsing/parser.mly" ( _1 ) # 29317 "parsing/parser.ml" in # 1530 "parsing/parser.mly" ( mkstrexp e attrs ) # 29322 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in # 1010 "parsing/parser.mly" ( text_str _startpos @ [_1] ) # 29330 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 1029 "parsing/parser.mly" ( mark_rhs_docs _startpos _endpos; _1 ) # 29340 "parsing/parser.ml" in # 1074 "parsing/parser.mly" ( x ) # 29346 "parsing/parser.ml" in # 1523 "parsing/parser.mly" ( items ) # 29352 "parsing/parser.ml" in let xs = let _startpos = _startpos__1_ in # 1012 "parsing/parser.mly" ( text_str _startpos ) # 29360 "parsing/parser.ml" in # 278 "" ( xs @ ys ) # 29366 "parsing/parser.ml" in # 1539 "parsing/parser.mly" ( _1 ) # 29372 "parsing/parser.ml" in ( # 219 "" ( x :: xs ) # 29378 "parsing/parser.ml" : (Parsetree.structure_item list list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let xs : (Parsetree.structure_item list list) = Obj.magic xs in let _1 : (Parsetree.structure_item) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let x = let _1 = let _startpos = _startpos__1_ in # 1010 "parsing/parser.mly" ( text_str _startpos @ [_1] ) # 29415 "parsing/parser.ml" in # 1539 "parsing/parser.mly" ( _1 ) # 29421 "parsing/parser.ml" in ( # 219 "" ( x :: xs ) # 29427 "parsing/parser.ml" : (Parsetree.structure_item list list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.class_type_field list list) = # 216 "" ( [] ) # 29446 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let xs : (Parsetree.class_type_field list list) = Obj.magic xs in let _1 : (Parsetree.class_type_field) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let x = let _startpos = _startpos__1_ in # 1024 "parsing/parser.mly" ( text_csig _startpos @ [_1] ) # 29481 "parsing/parser.ml" in ( # 219 "" ( x :: xs ) # 29487 "parsing/parser.ml" : (Parsetree.class_type_field list list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.class_field list list) = # 216 "" ( [] ) # 29506 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let xs : (Parsetree.class_field list list) = Obj.magic xs in let _1 : (Parsetree.class_field) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let x = let _startpos = _startpos__1_ in # 1022 "parsing/parser.mly" ( text_cstr _startpos @ [_1] ) # 29541 "parsing/parser.ml" in ( # 219 "" ( x :: xs ) # 29547 "parsing/parser.ml" : (Parsetree.class_field list list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.structure_item list list) = # 216 "" ( [] ) # 29566 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let xs : (Parsetree.structure_item list list) = Obj.magic xs in let _1 : (Parsetree.structure_item) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let x = let _startpos = _startpos__1_ in # 1010 "parsing/parser.mly" ( text_str _startpos @ [_1] ) # 29601 "parsing/parser.ml" in ( # 219 "" ( x :: xs ) # 29607 "parsing/parser.ml" : (Parsetree.structure_item list list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.toplevel_phrase list list) = # 216 "" ( [] ) # 29626 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let xs : (Parsetree.toplevel_phrase list list) = Obj.magic xs in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let x = let _1 = let x = let _1 = # 1072 "parsing/parser.mly" ( [] ) # 29662 "parsing/parser.ml" in # 1325 "parsing/parser.mly" ( _1 ) # 29667 "parsing/parser.ml" in # 188 "" ( x ) # 29673 "parsing/parser.ml" in # 1337 "parsing/parser.mly" ( _1 ) # 29679 "parsing/parser.ml" in ( # 219 "" ( x :: xs ) # 29685 "parsing/parser.ml" : (Parsetree.toplevel_phrase list list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = e; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let xs : (Parsetree.toplevel_phrase list list) = Obj.magic xs in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let e : (Parsetree.expression) = Obj.magic e in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let x = let _1 = let x = let _1 = _1_inlined1 in let _1 = let x = let _1 = let _1 = let attrs = # 4308 "parsing/parser.mly" ( _1 ) # 29741 "parsing/parser.ml" in # 1530 "parsing/parser.mly" ( mkstrexp e attrs ) # 29746 "parsing/parser.ml" in # 1020 "parsing/parser.mly" ( Ptop_def [_1] ) # 29752 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in # 1018 "parsing/parser.mly" ( text_def _startpos @ [_1] ) # 29760 "parsing/parser.ml" in # 1074 "parsing/parser.mly" ( x ) # 29766 "parsing/parser.ml" in # 1325 "parsing/parser.mly" ( _1 ) # 29772 "parsing/parser.ml" in # 188 "" ( x ) # 29778 "parsing/parser.ml" in # 1337 "parsing/parser.mly" ( _1 ) # 29784 "parsing/parser.ml" in ( # 219 "" ( x :: xs ) # 29790 "parsing/parser.ml" : (Parsetree.toplevel_phrase list list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let xs : (Parsetree.toplevel_phrase list list) = Obj.magic xs in let _1 : (Parsetree.structure_item) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let x = let _1 = let _1 = # 1020 "parsing/parser.mly" ( Ptop_def [_1] ) # 29826 "parsing/parser.ml" in let _startpos = _startpos__1_ in # 1018 "parsing/parser.mly" ( text_def _startpos @ [_1] ) # 29832 "parsing/parser.ml" in # 1337 "parsing/parser.mly" ( _1 ) # 29838 "parsing/parser.ml" in ( # 219 "" ( x :: xs ) # 29844 "parsing/parser.ml" : (Parsetree.toplevel_phrase list list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let xs : (Parsetree.toplevel_phrase list list) = Obj.magic xs in let _1 : (Parsetree.toplevel_phrase) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let x = let _1 = let _1 = let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 1029 "parsing/parser.mly" ( mark_rhs_docs _startpos _endpos; _1 ) # 29884 "parsing/parser.ml" in let _startpos = _startpos__1_ in # 1018 "parsing/parser.mly" ( text_def _startpos @ [_1] ) # 29891 "parsing/parser.ml" in # 1337 "parsing/parser.mly" ( _1 ) # 29897 "parsing/parser.ml" in ( # 219 "" ( x :: xs ) # 29903 "parsing/parser.ml" : (Parsetree.toplevel_phrase list list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = opat; CamlinternalMenhirLib.EngineTypes.startp = _startpos_opat_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_opat_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = octy; CamlinternalMenhirLib.EngineTypes.startp = _startpos_octy_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_octy_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let opat : (Parsetree.pattern option) = Obj.magic opat in let octy : (Parsetree.core_type option) = Obj.magic octy in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_opat_ in let _v = let _2 = # 123 "" ( None ) # 29944 "parsing/parser.ml" in let x = let label = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 29954 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in let _endpos = _endpos_opat_ in let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in # 3208 "parsing/parser.mly" ( let constraint_loc, label, pat = match opat with | None -> (* No pattern; this is a pun. Desugar it. But that the pattern was there and the label reconstructed (which piece of AST is marked as ghost is important for warning emission). *) _sloc, make_ghost label, pat_of_label label | Some pat -> (_startpos_octy_, _endpos), label, pat in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) # 29976 "parsing/parser.ml" in ( # 1262 "parsing/parser.mly" ( [x], None ) # 29982 "parsing/parser.ml" : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = opat; CamlinternalMenhirLib.EngineTypes.startp = _startpos_opat_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_opat_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = octy; CamlinternalMenhirLib.EngineTypes.startp = _startpos_octy_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_octy_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let x : unit = Obj.magic x in let opat : (Parsetree.pattern option) = Obj.magic opat in let octy : (Parsetree.core_type option) = Obj.magic octy in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_x_ in let _v = let _2 = # 126 "" ( Some x ) # 30030 "parsing/parser.ml" in let x = let label = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 30040 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in let _endpos = _endpos_opat_ in let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in # 3208 "parsing/parser.mly" ( let constraint_loc, label, pat = match opat with | None -> (* No pattern; this is a pun. Desugar it. But that the pattern was there and the label reconstructed (which piece of AST is marked as ghost is important for warning emission). *) _sloc, make_ghost label, pat_of_label label | Some pat -> (_startpos_octy_, _endpos), label, pat in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) # 30062 "parsing/parser.ml" in ( # 1262 "parsing/parser.mly" ( [x], None ) # 30068 "parsing/parser.ml" : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = y; CamlinternalMenhirLib.EngineTypes.startp = _startpos_y_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_y_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = opat; CamlinternalMenhirLib.EngineTypes.startp = _startpos_opat_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_opat_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = octy; CamlinternalMenhirLib.EngineTypes.startp = _startpos_octy_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_octy_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let _4 : (unit option) = Obj.magic _4 in let y : unit = Obj.magic y in let _2 : unit = Obj.magic _2 in let opat : (Parsetree.pattern option) = Obj.magic opat in let octy : (Parsetree.core_type option) = Obj.magic octy in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v = let x = let label = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 30135 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in let _endpos = _endpos_opat_ in let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in # 3208 "parsing/parser.mly" ( let constraint_loc, label, pat = match opat with | None -> (* No pattern; this is a pun. Desugar it. But that the pattern was there and the label reconstructed (which piece of AST is marked as ghost is important for warning emission). *) _sloc, make_ghost label, pat_of_label label | Some pat -> (_startpos_octy_, _endpos), label, pat in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) # 30157 "parsing/parser.ml" in ( # 1264 "parsing/parser.mly" ( [x], Some y ) # 30163 "parsing/parser.ml" : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = tail; CamlinternalMenhirLib.EngineTypes.startp = _startpos_tail_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_tail_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = opat; CamlinternalMenhirLib.EngineTypes.startp = _startpos_opat_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_opat_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = octy; CamlinternalMenhirLib.EngineTypes.startp = _startpos_octy_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_octy_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let tail : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option) = Obj.magic tail in let _2 : unit = Obj.magic _2 in let opat : (Parsetree.pattern option) = Obj.magic opat in let octy : (Parsetree.core_type option) = Obj.magic octy in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_tail_ in let _v = let x = let label = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 30223 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in let _endpos = _endpos_opat_ in let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in # 3208 "parsing/parser.mly" ( let constraint_loc, label, pat = match opat with | None -> (* No pattern; this is a pun. Desugar it. But that the pattern was there and the label reconstructed (which piece of AST is marked as ghost is important for warning emission). *) _sloc, make_ghost label, pat_of_label label | Some pat -> (_startpos_octy_, _endpos), label, pat in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) # 30245 "parsing/parser.ml" in ( # 1268 "parsing/parser.mly" ( let xs, y = tail in x :: xs, y ) # 30252 "parsing/parser.ml" : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : (Parsetree.extension) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let _1 = let _2 = let _1 = _1_inlined1 in # 4308 "parsing/parser.mly" ( _1 ) # 30290 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in let _endpos = _endpos__2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1579 "parsing/parser.mly" ( pstr_extension _1 (add_docs_attrs (symbol_docs _sloc) _2) ) # 30300 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1058 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) # 30310 "parsing/parser.ml" in ( # 1587 "parsing/parser.mly" ( _1 ) # 30316 "parsing/parser.ml" : (Parsetree.structure_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.type_exception * string Asttypes.loc option) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 1581 "parsing/parser.mly" ( pstr_exception _1 ) # 30344 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1058 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) # 30352 "parsing/parser.ml" in ( # 1587 "parsing/parser.mly" ( _1 ) # 30358 "parsing/parser.ml" : (Parsetree.structure_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = body; CamlinternalMenhirLib.EngineTypes.startp = _startpos_body_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_body_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let body : (Parsetree.module_expr) = Obj.magic body in let _1_inlined2 : (string option) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in let _v = let _1 = let _1 = let _1 = let attrs2 = let _1 = _1_inlined3 in # 4308 "parsing/parser.mly" ( _1 ) # 30425 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let name = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 30437 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 30445 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1597 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let loc = make_loc _sloc in let attrs = attrs1 @ attrs2 in let body = Mb.mk name body ~attrs ~loc ~docs in body, ext ) # 30458 "parsing/parser.ml" in # 1583 "parsing/parser.mly" ( pstr_module _1 ) # 30464 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1058 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) # 30474 "parsing/parser.ml" in ( # 1587 "parsing/parser.mly" ( _1 ) # 30480 "parsing/parser.ml" : (Parsetree.structure_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.open_declaration * string Asttypes.loc option) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 1585 "parsing/parser.mly" ( pstr_open _1 ) # 30508 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1058 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) # 30516 "parsing/parser.ml" in ( # 1587 "parsing/parser.mly" ( _1 ) # 30522 "parsing/parser.ml" : (Parsetree.structure_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : (Parsetree.expression) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.case) = # 2820 "parsing/parser.mly" ( Exp.case _1 _3 ) # 30562 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : (Parsetree.expression) = Obj.magic _5 in let _4 : unit = Obj.magic _4 in let _3 : (Parsetree.expression) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.case) = # 2822 "parsing/parser.mly" ( Exp.case _1 ~guard:_3 _5 ) # 30615 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _loc__3_ = (_startpos__3_, _endpos__3_) in ( # 2824 "parsing/parser.mly" ( Exp.case _1 (Exp.unreachable ~loc:(make_loc _loc__3_) ()) ) # 30656 "parsing/parser.ml" : (Parsetree.case)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = tail; CamlinternalMenhirLib.EngineTypes.startp = _startpos_tail_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_tail_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let tail : (Parsetree.object_field list * Asttypes.closed_flag) = Obj.magic tail in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.core_type) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ( # 819 "parsing/parser.mly" (string) # 30720 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_tail_ in let _v = let head = let _6 = let _1 = _1_inlined3 in # 4312 "parsing/parser.mly" ( _1 ) # 30732 "parsing/parser.ml" in let _endpos__6_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in # 4312 "parsing/parser.mly" ( _1 ) # 30741 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _3 = let _1 = _1_inlined1 in # 3634 "parsing/parser.mly" ( _1 ) # 30750 "parsing/parser.ml" in let _1 = let _1 = # 3962 "parsing/parser.mly" ( _1 ) # 30757 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 30765 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3947 "parsing/parser.mly" ( let info = match rhs_info _endpos__4_ with | Some _ as info_before_semi -> info_before_semi | None -> symbol_info _endpos in let attrs = add_info_attrs info (_4 @ _6) in Of.tag ~loc:(make_loc _sloc) ~attrs _1 _3 ) # 30780 "parsing/parser.ml" in ( # 3928 "parsing/parser.mly" ( let (f, c) = tail in (head :: f, c) ) # 30786 "parsing/parser.ml" : (Parsetree.object_field list * Asttypes.closed_flag)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = tail; CamlinternalMenhirLib.EngineTypes.startp = _startpos_tail_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_tail_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = ty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ty_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let tail : (Parsetree.object_field list * Asttypes.closed_flag) = Obj.magic tail in let _2 : unit = Obj.magic _2 in let ty : (Parsetree.core_type) = Obj.magic ty in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_ty_ in let _endpos = _endpos_tail_ in let _v = let head = let _endpos = _endpos_ty_ in let _symbolstartpos = _startpos_ty_ in let _sloc = (_symbolstartpos, _endpos) in # 3958 "parsing/parser.mly" ( Of.inherit_ ~loc:(make_loc _sloc) ty ) # 30831 "parsing/parser.ml" in ( # 3928 "parsing/parser.mly" ( let (f, c) = tail in (head :: f, c) ) # 30837 "parsing/parser.ml" : (Parsetree.object_field list * Asttypes.closed_flag)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.core_type) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ( # 819 "parsing/parser.mly" (string) # 30894 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in let _v = let head = let _6 = let _1 = _1_inlined3 in # 4312 "parsing/parser.mly" ( _1 ) # 30906 "parsing/parser.ml" in let _endpos__6_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in # 4312 "parsing/parser.mly" ( _1 ) # 30915 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _3 = let _1 = _1_inlined1 in # 3634 "parsing/parser.mly" ( _1 ) # 30924 "parsing/parser.ml" in let _1 = let _1 = # 3962 "parsing/parser.mly" ( _1 ) # 30931 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 30939 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3947 "parsing/parser.mly" ( let info = match rhs_info _endpos__4_ with | Some _ as info_before_semi -> info_before_semi | None -> symbol_info _endpos in let attrs = add_info_attrs info (_4 @ _6) in Of.tag ~loc:(make_loc _sloc) ~attrs _1 _3 ) # 30954 "parsing/parser.ml" in ( # 3931 "parsing/parser.mly" ( [head], Closed ) # 30960 "parsing/parser.ml" : (Parsetree.object_field list * Asttypes.closed_flag)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = ty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ty_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let ty : (Parsetree.core_type) = Obj.magic ty in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_ty_ in let _endpos = _endpos__2_ in let _v = let head = let _endpos = _endpos_ty_ in let _symbolstartpos = _startpos_ty_ in let _sloc = (_symbolstartpos, _endpos) in # 3958 "parsing/parser.mly" ( Of.inherit_ ~loc:(make_loc _sloc) ty ) # 30998 "parsing/parser.ml" in ( # 3931 "parsing/parser.mly" ( [head], Closed ) # 31004 "parsing/parser.ml" : (Parsetree.object_field list * Asttypes.closed_flag)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.core_type) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ( # 819 "parsing/parser.mly" (string) # 31047 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in let _v = let head = let _4 = let _1 = _1_inlined2 in # 4312 "parsing/parser.mly" ( _1 ) # 31059 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _3 = let _1 = _1_inlined1 in # 3634 "parsing/parser.mly" ( _1 ) # 31068 "parsing/parser.ml" in let _1 = let _1 = # 3962 "parsing/parser.mly" ( _1 ) # 31075 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 31083 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3940 "parsing/parser.mly" ( let info = symbol_info _endpos in let attrs = add_info_attrs info _4 in Of.tag ~loc:(make_loc _sloc) ~attrs _1 _3 ) # 31094 "parsing/parser.ml" in ( # 3934 "parsing/parser.mly" ( [head], Closed ) # 31100 "parsing/parser.ml" : (Parsetree.object_field list * Asttypes.closed_flag)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = ty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ty_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let ty : (Parsetree.core_type) = Obj.magic ty in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_ty_ in let _endpos = _endpos_ty_ in let _v = let head = let _endpos = _endpos_ty_ in let _symbolstartpos = _startpos_ty_ in let _sloc = (_symbolstartpos, _endpos) in # 3958 "parsing/parser.mly" ( Of.inherit_ ~loc:(make_loc _sloc) ty ) # 31131 "parsing/parser.ml" in ( # 3934 "parsing/parser.mly" ( [head], Closed ) # 31137 "parsing/parser.ml" : (Parsetree.object_field list * Asttypes.closed_flag)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.object_field list * Asttypes.closed_flag) = # 3936 "parsing/parser.mly" ( [], Open ) # 31163 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = private_; CamlinternalMenhirLib.EngineTypes.startp = _startpos_private__; CamlinternalMenhirLib.EngineTypes.endp = _endpos_private__; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _1_inlined2 : (Parsetree.core_type) = Obj.magic _1_inlined2 in let _5 : unit = Obj.magic _5 in let _1_inlined1 : ( # 819 "parsing/parser.mly" (string) # 31210 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let private_ : (Asttypes.private_flag) = Obj.magic private_ in let _1 : (Parsetree.attributes) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in let _v = let ty = let _1 = _1_inlined2 in # 3630 "parsing/parser.mly" ( _1 ) # 31223 "parsing/parser.ml" in let label = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = # 3962 "parsing/parser.mly" ( _1 ) # 31231 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 31239 "parsing/parser.ml" in let attrs = # 4312 "parsing/parser.mly" ( _1 ) # 31245 "parsing/parser.ml" in let _1 = # 4210 "parsing/parser.mly" ( Fresh ) # 31250 "parsing/parser.ml" in ( # 2126 "parsing/parser.mly" ( (label, private_, Cfk_virtual ty), attrs ) # 31255 "parsing/parser.ml" : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * Parsetree.class_field_kind) * Parsetree.attributes)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _5 : (Parsetree.expression) = Obj.magic _5 in let _1_inlined1 : ( # 819 "parsing/parser.mly" (string) # 31298 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _3 : (Asttypes.private_flag) = Obj.magic _3 in let _1 : (Parsetree.attributes) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = # 3962 "parsing/parser.mly" ( _1 ) # 31311 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 31319 "parsing/parser.ml" in let _2 = # 4312 "parsing/parser.mly" ( _1 ) # 31325 "parsing/parser.ml" in let _1 = # 4213 "parsing/parser.mly" ( Fresh ) # 31330 "parsing/parser.ml" in ( # 2128 "parsing/parser.mly" ( let e = _5 in let loc = Location.(e.pexp_loc.loc_start, e.pexp_loc.loc_end) in (_4, _3, Cfk_concrete (_1, ghexp ~loc (Pexp_poly (e, None)))), _2 ) # 31338 "parsing/parser.ml" : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * Parsetree.class_field_kind) * Parsetree.attributes)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : (Parsetree.expression) = Obj.magic _5 in let _1_inlined2 : ( # 819 "parsing/parser.mly" (string) # 31387 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let _3 : (Asttypes.private_flag) = Obj.magic _3 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = # 3962 "parsing/parser.mly" ( _1 ) # 31401 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 31409 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 31417 "parsing/parser.ml" in let _1 = # 4214 "parsing/parser.mly" ( Override ) # 31423 "parsing/parser.ml" in ( # 2128 "parsing/parser.mly" ( let e = _5 in let loc = Location.(e.pexp_loc.loc_start, e.pexp_loc.loc_end) in (_4, _3, Cfk_concrete (_1, ghexp ~loc (Pexp_poly (e, None)))), _2 ) # 31431 "parsing/parser.ml" : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * Parsetree.class_field_kind) * Parsetree.attributes)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _8; CamlinternalMenhirLib.EngineTypes.startp = _startpos__8_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__8_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _7; CamlinternalMenhirLib.EngineTypes.startp = _startpos__7_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__7_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _8 : (Parsetree.expression) = Obj.magic _8 in let _7 : unit = Obj.magic _7 in let _1_inlined2 : (Parsetree.core_type) = Obj.magic _1_inlined2 in let _5 : unit = Obj.magic _5 in let _1_inlined1 : ( # 819 "parsing/parser.mly" (string) # 31495 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _3 : (Asttypes.private_flag) = Obj.magic _3 in let _1 : (Parsetree.attributes) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__8_ in let _v = let _6 = let _1 = _1_inlined2 in # 3630 "parsing/parser.mly" ( _1 ) # 31508 "parsing/parser.ml" in let _startpos__6_ = _startpos__1_inlined2_ in let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = # 3962 "parsing/parser.mly" ( _1 ) # 31517 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 31525 "parsing/parser.ml" in let _2 = # 4312 "parsing/parser.mly" ( _1 ) # 31531 "parsing/parser.ml" in let _1 = # 4213 "parsing/parser.mly" ( Fresh ) # 31536 "parsing/parser.ml" in ( # 2134 "parsing/parser.mly" ( let poly_exp = let loc = (_startpos__6_, _endpos__8_) in ghexp ~loc (Pexp_poly(_8, Some _6)) in (_4, _3, Cfk_concrete (_1, poly_exp)), _2 ) # 31544 "parsing/parser.ml" : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * Parsetree.class_field_kind) * Parsetree.attributes)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _8; CamlinternalMenhirLib.EngineTypes.startp = _startpos__8_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__8_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _7; CamlinternalMenhirLib.EngineTypes.startp = _startpos__7_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__7_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; } = _menhir_stack in let _8 : (Parsetree.expression) = Obj.magic _8 in let _7 : unit = Obj.magic _7 in let _1_inlined3 : (Parsetree.core_type) = Obj.magic _1_inlined3 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( # 819 "parsing/parser.mly" (string) # 31614 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let _3 : (Asttypes.private_flag) = Obj.magic _3 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__8_ in let _v = let _6 = let _1 = _1_inlined3 in # 3630 "parsing/parser.mly" ( _1 ) # 31628 "parsing/parser.ml" in let _startpos__6_ = _startpos__1_inlined3_ in let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = # 3962 "parsing/parser.mly" ( _1 ) # 31637 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 31645 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 31653 "parsing/parser.ml" in let _1 = # 4214 "parsing/parser.mly" ( Override ) # 31659 "parsing/parser.ml" in ( # 2134 "parsing/parser.mly" ( let poly_exp = let loc = (_startpos__6_, _endpos__8_) in ghexp ~loc (Pexp_poly(_8, Some _6)) in (_4, _3, Cfk_concrete (_1, poly_exp)), _2 ) # 31667 "parsing/parser.ml" : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * Parsetree.class_field_kind) * Parsetree.attributes)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _11; CamlinternalMenhirLib.EngineTypes.startp = _startpos__11_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__11_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _10; CamlinternalMenhirLib.EngineTypes.startp = _startpos__10_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__10_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _9; CamlinternalMenhirLib.EngineTypes.startp = _startpos__9_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__9_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _8; CamlinternalMenhirLib.EngineTypes.startp = _startpos__8_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__8_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let _11 : (Parsetree.expression) = Obj.magic _11 in let _10 : unit = Obj.magic _10 in let _9 : (Parsetree.core_type) = Obj.magic _9 in let _8 : unit = Obj.magic _8 in let xs : (string Asttypes.loc list) = Obj.magic xs in let _6 : unit = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined1 : ( # 819 "parsing/parser.mly" (string) # 31752 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _3 : (Asttypes.private_flag) = Obj.magic _3 in let _1 : (Parsetree.attributes) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__11_ in let _v = let _7 = # 2697 "parsing/parser.mly" ( xs ) # 31763 "parsing/parser.ml" in let _startpos__7_ = _startpos_xs_ in let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = # 3962 "parsing/parser.mly" ( _1 ) # 31771 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 31779 "parsing/parser.ml" in let _startpos__4_ = _startpos__1_inlined1_ in let _2 = # 4312 "parsing/parser.mly" ( _1 ) # 31786 "parsing/parser.ml" in let (_endpos__2_, _startpos__2_) = (_endpos__1_, _startpos__1_) in let _1 = # 4213 "parsing/parser.mly" ( Fresh ) # 31792 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in let _endpos = _endpos__11_ in let _symbolstartpos = if _startpos__1_ != _endpos__1_ then _startpos__1_ else if _startpos__2_ != _endpos__2_ then _startpos__2_ else if _startpos__3_ != _endpos__3_ then _startpos__3_ else _startpos__4_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2140 "parsing/parser.mly" ( let poly_exp_loc = (_startpos__7_, _endpos__11_) in let poly_exp = let exp, poly = (* it seems odd to use the global ~loc here while poly_exp_loc is tighter, but this is what ocamlyacc does; TODO improve parser.mly *) wrap_type_annotation ~loc:_sloc _7 _9 _11 in ghexp ~loc:poly_exp_loc (Pexp_poly(exp, Some poly)) in (_4, _3, Cfk_concrete (_1, poly_exp)), _2 ) # 31819 "parsing/parser.ml" : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * Parsetree.class_field_kind) * Parsetree.attributes)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _11; CamlinternalMenhirLib.EngineTypes.startp = _startpos__11_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__11_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _10; CamlinternalMenhirLib.EngineTypes.startp = _startpos__10_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__10_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _9; CamlinternalMenhirLib.EngineTypes.startp = _startpos__9_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__9_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _8; CamlinternalMenhirLib.EngineTypes.startp = _startpos__8_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__8_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let _11 : (Parsetree.expression) = Obj.magic _11 in let _10 : unit = Obj.magic _10 in let _9 : (Parsetree.core_type) = Obj.magic _9 in let _8 : unit = Obj.magic _8 in let xs : (string Asttypes.loc list) = Obj.magic xs in let _6 : unit = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( # 819 "parsing/parser.mly" (string) # 31910 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let _3 : (Asttypes.private_flag) = Obj.magic _3 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__11_ in let _v = let _7 = # 2697 "parsing/parser.mly" ( xs ) # 31922 "parsing/parser.ml" in let _startpos__7_ = _startpos_xs_ in let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = # 3962 "parsing/parser.mly" ( _1 ) # 31930 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 31938 "parsing/parser.ml" in let _startpos__4_ = _startpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 31947 "parsing/parser.ml" in let (_endpos__2_, _startpos__2_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let _1 = # 4214 "parsing/parser.mly" ( Override ) # 31954 "parsing/parser.ml" in let _endpos = _endpos__11_ in let _symbolstartpos = if _startpos__1_ != _endpos__1_ then _startpos__1_ else if _startpos__2_ != _endpos__2_ then _startpos__2_ else if _startpos__3_ != _endpos__3_ then _startpos__3_ else _startpos__4_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2140 "parsing/parser.mly" ( let poly_exp_loc = (_startpos__7_, _endpos__11_) in let poly_exp = let exp, poly = (* it seems odd to use the global ~loc here while poly_exp_loc is tighter, but this is what ocamlyacc does; TODO improve parser.mly *) wrap_type_annotation ~loc:_sloc _7 _9 _11 in ghexp ~loc:poly_exp_loc (Pexp_poly(exp, Some poly)) in (_4, _3, Cfk_concrete (_1, poly_exp)), _2 ) # 31980 "parsing/parser.ml" : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * Parsetree.class_field_kind) * Parsetree.attributes)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( # 819 "parsing/parser.mly" (string) # 32004 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = # 4066 "parsing/parser.mly" ( Lident _1 ) # 32012 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : ( # 819 "parsing/parser.mly" (string) # 32045 "parsing/parser.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 4067 "parsing/parser.mly" ( ldot _1 _loc__1_ _3 _loc__3_ ) # 32058 "parsing/parser.ml" : (Longident.t)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( # 870 "parsing/parser.mly" (string) # 32080 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = # 4066 "parsing/parser.mly" ( Lident _1 ) # 32088 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : ( # 870 "parsing/parser.mly" (string) # 32121 "parsing/parser.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 4067 "parsing/parser.mly" ( ldot _1 _loc__1_ _3 _loc__3_ ) # 32134 "parsing/parser.ml" : (Longident.t)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Asttypes.label) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = # 4104 "parsing/parser.mly" ( _1 ) # 32161 "parsing/parser.ml" in ( # 4066 "parsing/parser.mly" ( Lident _1 ) # 32166 "parsing/parser.ml" : (Longident.t)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = # 4046 "parsing/parser.mly" ( "::" ) # 32208 "parsing/parser.ml" in # 4104 "parsing/parser.mly" ( _1 ) # 32213 "parsing/parser.ml" in ( # 4066 "parsing/parser.mly" ( Lident _1 ) # 32219 "parsing/parser.ml" : (Longident.t)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Asttypes.label) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = # 4104 "parsing/parser.mly" ( _1 ) # 32246 "parsing/parser.ml" in ( # 4066 "parsing/parser.mly" ( Lident _1 ) # 32251 "parsing/parser.ml" : (Longident.t)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Asttypes.label) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _3 = let _1 = _1_inlined1 in # 4104 "parsing/parser.mly" ( _1 ) # 32294 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 4067 "parsing/parser.mly" ( ldot _1 _loc__1_ _3 _loc__3_ ) # 32303 "parsing/parser.ml" : (Longident.t)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _3 = let _1 = # 4046 "parsing/parser.mly" ( "::" ) # 32359 "parsing/parser.ml" in # 4104 "parsing/parser.mly" ( _1 ) # 32364 "parsing/parser.ml" in let _startpos__3_ = _startpos__1_inlined1_ in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 4067 "parsing/parser.mly" ( ldot _1 _loc__1_ _3 _loc__3_ ) # 32373 "parsing/parser.ml" : (Longident.t)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Asttypes.label) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _3 = let _1 = _1_inlined1 in # 4104 "parsing/parser.mly" ( _1 ) # 32416 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 4067 "parsing/parser.mly" ( ldot _1 _loc__1_ _3 _loc__3_ ) # 32425 "parsing/parser.ml" : (Longident.t)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Asttypes.label) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = # 4066 "parsing/parser.mly" ( Lident _1 ) # 32451 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : (Asttypes.label) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 4067 "parsing/parser.mly" ( ldot _1 _loc__1_ _3 _loc__3_ ) # 32493 "parsing/parser.ml" : (Longident.t)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( # 819 "parsing/parser.mly" (string) # 32515 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = # 4066 "parsing/parser.mly" ( Lident _1 ) # 32523 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : ( # 819 "parsing/parser.mly" (string) # 32556 "parsing/parser.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 4067 "parsing/parser.mly" ( ldot _1 _loc__1_ _3 _loc__3_ ) # 32569 "parsing/parser.ml" : (Longident.t)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( # 870 "parsing/parser.mly" (string) # 32591 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = # 4066 "parsing/parser.mly" ( Lident _1 ) # 32599 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : ( # 870 "parsing/parser.mly" (string) # 32632 "parsing/parser.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 4067 "parsing/parser.mly" ( ldot _1 _loc__1_ _3 _loc__3_ ) # 32645 "parsing/parser.ml" : (Longident.t)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Asttypes.label) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = # 4066 "parsing/parser.mly" ( Lident _1 ) # 32671 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : (Asttypes.label) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 4067 "parsing/parser.mly" ( ldot _1 _loc__1_ _3 _loc__3_ ) # 32713 "parsing/parser.ml" : (Longident.t)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = # 4082 "parsing/parser.mly" ( _1 ) # 32739 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in let _3 : (Longident.t) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v = let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in ( # 4084 "parsing/parser.mly" ( lapply ~loc:_sloc _1 _loc__1_ _3 _loc__3_ ) # 32791 "parsing/parser.ml" : (Longident.t)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _loc__3_ = (_startpos__3_, _endpos__3_) in ( # 4086 "parsing/parser.mly" ( expecting _loc__3_ "module path" ) # 32833 "parsing/parser.ml" : (Longident.t)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = # 4079 "parsing/parser.mly" ( _1 ) # 32859 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = me; CamlinternalMenhirLib.EngineTypes.startp = _startpos_me_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_me_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let me : (Parsetree.module_expr) = Obj.magic me in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_me_ in let _v : (Parsetree.module_expr) = # 1607 "parsing/parser.mly" ( me ) # 32891 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v = let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 1609 "parsing/parser.mly" ( expecting _loc__1_ "=" ) # 32925 "parsing/parser.ml" : (Parsetree.module_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = me; CamlinternalMenhirLib.EngineTypes.startp = _startpos_me_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_me_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = mty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_mty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_mty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let me : (Parsetree.module_expr) = Obj.magic me in let _3 : unit = Obj.magic _3 in let mty : (Parsetree.module_type) = Obj.magic mty in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_me_ in let _v = let _1 = let _1 = # 1612 "parsing/parser.mly" ( Pmod_constraint(me, mty) ) # 32974 "parsing/parser.ml" in let _endpos__1_ = _endpos_me_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1045 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) # 32983 "parsing/parser.ml" in ( # 1616 "parsing/parser.mly" ( _1 ) # 32989 "parsing/parser.ml" : (Parsetree.module_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = body; CamlinternalMenhirLib.EngineTypes.startp = _startpos_body_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_body_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = arg_and_pos; CamlinternalMenhirLib.EngineTypes.startp = _startpos_arg_and_pos_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_arg_and_pos_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let body : (Parsetree.module_expr) = Obj.magic body in let arg_and_pos : (Lexing.position * Parsetree.functor_parameter) = Obj.magic arg_and_pos in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_arg_and_pos_ in let _endpos = _endpos_body_ in let _v = let _1 = let _1 = # 1614 "parsing/parser.mly" ( let (_, arg) = arg_and_pos in Pmod_functor(arg, body) ) # 33025 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_body_, _startpos_arg_and_pos_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1045 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) # 33034 "parsing/parser.ml" in ( # 1616 "parsing/parser.mly" ( _1 ) # 33040 "parsing/parser.ml" : (Parsetree.module_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = mty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_mty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_mty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let mty : (Parsetree.module_type) = Obj.magic mty in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_mty_ in let _v : (Parsetree.module_type) = # 1853 "parsing/parser.mly" ( mty ) # 33073 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v = let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 1855 "parsing/parser.mly" ( expecting _loc__1_ ":" ) # 33107 "parsing/parser.ml" : (Parsetree.module_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = body; CamlinternalMenhirLib.EngineTypes.startp = _startpos_body_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_body_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = arg_and_pos; CamlinternalMenhirLib.EngineTypes.startp = _startpos_arg_and_pos_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_arg_and_pos_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let body : (Parsetree.module_type) = Obj.magic body in let arg_and_pos : (Lexing.position * Parsetree.functor_parameter) = Obj.magic arg_and_pos in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_arg_and_pos_ in let _endpos = _endpos_body_ in let _v = let _1 = let _1 = # 1858 "parsing/parser.mly" ( let (_, arg) = arg_and_pos in Pmty_functor(arg, body) ) # 33143 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_body_, _startpos_arg_and_pos_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1047 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) # 33152 "parsing/parser.ml" in ( # 1861 "parsing/parser.mly" ( _1 ) # 33158 "parsing/parser.ml" : (Parsetree.module_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = s; CamlinternalMenhirLib.EngineTypes.startp = _startpos_s_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_s_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in let s : (Parsetree.structure) = Obj.magic s in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v = let attrs = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 33208 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 1437 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_structure s) ) # 33217 "parsing/parser.ml" : (Parsetree.module_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in let _3 : (Parsetree.structure) = Obj.magic _3 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v = let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 33267 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 1439 "parsing/parser.mly" ( unclosed "struct" _loc__1_ "end" _loc__4_ ) # 33275 "parsing/parser.ml" : (Parsetree.module_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v = let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 1441 "parsing/parser.mly" ( expecting _loc__1_ "struct" ) # 33310 "parsing/parser.ml" : (Parsetree.module_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = me; CamlinternalMenhirLib.EngineTypes.startp = _startpos_me_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_me_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let me : (Parsetree.module_expr) = Obj.magic me in let _4 : unit = Obj.magic _4 in let _1_inlined2 : ((Lexing.position * Parsetree.functor_parameter) list) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_me_ in let _v = let args = let _1 = _1_inlined2 in # 1403 "parsing/parser.mly" ( _1 ) # 33367 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 33375 "parsing/parser.ml" in let _endpos = _endpos_me_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 1443 "parsing/parser.mly" ( wrap_mod_attrs ~loc:_sloc attrs ( List.fold_left (fun acc (startpos, arg) -> mkmod ~loc:(startpos, _endpos) (Pmod_functor (arg, acc)) ) me args ) ) # 33388 "parsing/parser.ml" : (Parsetree.module_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = me; CamlinternalMenhirLib.EngineTypes.startp = _startpos_me_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_me_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let me : (Parsetree.module_expr) = Obj.magic me in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_me_ in let _endpos = _endpos_me_ in let _v : (Parsetree.module_expr) = # 1449 "parsing/parser.mly" ( me ) # 33414 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = attr; CamlinternalMenhirLib.EngineTypes.startp = _startpos_attr_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_attr_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = me; CamlinternalMenhirLib.EngineTypes.startp = _startpos_me_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_me_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let attr : (Parsetree.attribute) = Obj.magic attr in let me : (Parsetree.module_expr) = Obj.magic me in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_me_ in let _endpos = _endpos_attr_ in let _v : (Parsetree.module_expr) = # 1451 "parsing/parser.mly" ( Mod.attr me attr ) # 33446 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = let x = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 33478 "parsing/parser.ml" in # 1455 "parsing/parser.mly" ( Pmod_ident x ) # 33484 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1045 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) # 33493 "parsing/parser.ml" in ( # 1466 "parsing/parser.mly" ( _1 ) # 33499 "parsing/parser.ml" : (Parsetree.module_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = me2; CamlinternalMenhirLib.EngineTypes.startp = _startpos_me2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_me2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = me1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_me1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_me1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let me2 : (Parsetree.module_expr) = Obj.magic me2 in let me1 : (Parsetree.module_expr) = Obj.magic me1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_me1_ in let _endpos = _endpos_me2_ in let _v = let _1 = let _1 = # 1458 "parsing/parser.mly" ( Pmod_apply(me1, me2) ) # 33534 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_me2_, _startpos_me1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1045 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) # 33543 "parsing/parser.ml" in ( # 1466 "parsing/parser.mly" ( _1 ) # 33549 "parsing/parser.ml" : (Parsetree.module_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = me; CamlinternalMenhirLib.EngineTypes.startp = _startpos_me_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_me_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let me : (Parsetree.module_expr) = Obj.magic me in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_me_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = # 1461 "parsing/parser.mly" ( Pmod_apply_unit me ) # 33591 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__3_, _startpos_me_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1045 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) # 33600 "parsing/parser.ml" in ( # 1466 "parsing/parser.mly" ( _1 ) # 33606 "parsing/parser.ml" : (Parsetree.module_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = ex; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ex_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ex_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let ex : (Parsetree.extension) = Obj.magic ex in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_ex_ in let _endpos = _endpos_ex_ in let _v = let _1 = let _1 = # 1464 "parsing/parser.mly" ( Pmod_extension ex ) # 33634 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ex_, _startpos_ex_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1045 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) # 33643 "parsing/parser.ml" in ( # 1466 "parsing/parser.mly" ( _1 ) # 33649 "parsing/parser.ml" : (Parsetree.module_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let x : ( # 870 "parsing/parser.mly" (string) # 33671 "parsing/parser.ml" ) = Obj.magic x in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (string option) = # 1420 "parsing/parser.mly" ( Some x ) # 33679 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string option) = # 1423 "parsing/parser.mly" ( None ) # 33704 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined4 : (Parsetree.attributes) = Obj.magic _1_inlined4 in let _1_inlined3 : (Longident.t) = Obj.magic _1_inlined3 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( # 870 "parsing/parser.mly" (string) # 33764 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined4_ in let _v = let attrs2 = let _1 = _1_inlined4 in # 4308 "parsing/parser.mly" ( _1 ) # 33778 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in let body = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 33790 "parsing/parser.ml" in let uid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 33801 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 33809 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 1891 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Ms.mk uid body ~attrs ~loc ~docs, ext ) # 33823 "parsing/parser.ml" : (Parsetree.module_substitution * string Asttypes.loc option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let _6 : unit = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( # 870 "parsing/parser.mly" (string) # 33877 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _2 : (string Asttypes.loc option) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in let _v = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 33894 "parsing/parser.ml" in let _3 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 33902 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in ( # 1898 "parsing/parser.mly" ( expecting _loc__6_ "module path" ) # 33909 "parsing/parser.ml" : (Parsetree.module_substitution * string Asttypes.loc option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = s; CamlinternalMenhirLib.EngineTypes.startp = _startpos_s_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_s_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in let s : (Parsetree.signature) = Obj.magic s in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v = let attrs = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 33959 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 1741 "parsing/parser.mly" ( mkmty ~loc:_sloc ~attrs (Pmty_signature s) ) # 33968 "parsing/parser.ml" : (Parsetree.module_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in let _3 : (Parsetree.signature) = Obj.magic _3 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v = let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 34018 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 1743 "parsing/parser.mly" ( unclosed "sig" _loc__1_ "end" _loc__4_ ) # 34026 "parsing/parser.ml" : (Parsetree.module_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v = let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 1745 "parsing/parser.mly" ( expecting _loc__1_ "sig" ) # 34061 "parsing/parser.ml" : (Parsetree.module_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = mty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_mty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_mty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let mty : (Parsetree.module_type) = Obj.magic mty in let _4 : unit = Obj.magic _4 in let _1_inlined2 : ((Lexing.position * Parsetree.functor_parameter) list) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_mty_ in let _v = let args = let _1 = _1_inlined2 in # 1403 "parsing/parser.mly" ( _1 ) # 34118 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 34126 "parsing/parser.ml" in let _endpos = _endpos_mty_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 1749 "parsing/parser.mly" ( wrap_mty_attrs ~loc:_sloc attrs (mk_functor_typ args mty) ) # 34135 "parsing/parser.ml" : (Parsetree.module_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = mty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_mty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_mty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let mty : (Parsetree.module_type) = Obj.magic mty in let _2 : unit = Obj.magic _2 in let _1 : ((Lexing.position * Parsetree.functor_parameter) list) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_mty_ in let _v = let args = # 1403 "parsing/parser.mly" ( _1 ) # 34176 "parsing/parser.ml" in ( # 1753 "parsing/parser.mly" ( mk_functor_typ args mty ) # 34181 "parsing/parser.ml" : (Parsetree.module_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : (Parsetree.module_expr) = Obj.magic _5 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _4 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 34238 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 1755 "parsing/parser.mly" ( mkmty ~loc:_sloc ~attrs:_4 (Pmty_typeof _5) ) # 34247 "parsing/parser.ml" : (Parsetree.module_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : (Parsetree.module_type) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.module_type) = # 1757 "parsing/parser.mly" ( _2 ) # 34287 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : (Parsetree.module_type) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 1759 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) # 34329 "parsing/parser.ml" : (Parsetree.module_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.attribute) = Obj.magic _2 in let _1 : (Parsetree.module_type) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.module_type) = # 1761 "parsing/parser.mly" ( Mty.attr _1 _2 ) # 34362 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 34394 "parsing/parser.ml" in # 1764 "parsing/parser.mly" ( Pmty_ident _1 ) # 34400 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1047 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) # 34409 "parsing/parser.ml" in ( # 1775 "parsing/parser.mly" ( _1 ) # 34415 "parsing/parser.ml" : (Parsetree.module_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : (Parsetree.module_type) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.module_type) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = # 1767 "parsing/parser.mly" ( Pmty_functor(Named (mknoloc None, _1), _3) ) # 34457 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1047 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) # 34466 "parsing/parser.ml" in ( # 1775 "parsing/parser.mly" ( _1 ) # 34472 "parsing/parser.ml" : (Parsetree.module_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let xs : (Parsetree.with_constraint list) = Obj.magic xs in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.module_type) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _1 = let _3 = let xs = # 264 "" ( List.rev xs ) # 34516 "parsing/parser.ml" in # 1157 "parsing/parser.mly" ( xs ) # 34521 "parsing/parser.ml" in # 1769 "parsing/parser.mly" ( Pmty_with(_1, _3) ) # 34527 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1047 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) # 34537 "parsing/parser.ml" in ( # 1775 "parsing/parser.mly" ( _1 ) # 34543 "parsing/parser.ml" : (Parsetree.module_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.extension) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 1773 "parsing/parser.mly" ( Pmty_extension _1 ) # 34571 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1047 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) # 34579 "parsing/parser.ml" in ( # 1775 "parsing/parser.mly" ( _1 ) # 34585 "parsing/parser.ml" : (Parsetree.module_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = typ; CamlinternalMenhirLib.EngineTypes.startp = _startpos_typ_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_typ_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let typ : (Parsetree.module_type option) = Obj.magic typ in let _1_inlined2 : (Asttypes.label) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in let _v = let attrs2 = let _1 = _1_inlined3 in # 4308 "parsing/parser.mly" ( _1 ) # 34656 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 34668 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 34676 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 1687 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Mtd.mk id ?typ ~attrs ~loc ~docs, ext ) # 34690 "parsing/parser.ml" : (Parsetree.module_type_declaration * string Asttypes.loc option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = typ; CamlinternalMenhirLib.EngineTypes.startp = _startpos_typ_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_typ_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let typ : (Parsetree.module_type) = Obj.magic typ in let _6 : unit = Obj.magic _6 in let _1_inlined2 : (Asttypes.label) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in let _v = let attrs2 = let _1 = _1_inlined3 in # 4308 "parsing/parser.mly" ( _1 ) # 34768 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 34780 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 34788 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 1947 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Mtd.mk id ~typ ~attrs ~loc ~docs, ext ) # 34802 "parsing/parser.ml" : (Parsetree.module_type_declaration * string Asttypes.loc option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = # 4089 "parsing/parser.mly" ( _1 ) # 34828 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.mutable_flag) = # 4170 "parsing/parser.mly" ( Immutable ) # 34846 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag) = # 4171 "parsing/parser.mly" ( Mutable ) # 34871 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = # 4179 "parsing/parser.mly" ( Immutable, Concrete ) # 34889 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = # 4181 "parsing/parser.mly" ( Mutable, Concrete ) # 34914 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = # 4183 "parsing/parser.mly" ( Immutable, Virtual ) # 34939 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = # 4186 "parsing/parser.mly" ( Mutable, Virtual ) # 34971 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = # 4186 "parsing/parser.mly" ( Mutable, Virtual ) # 35003 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Asttypes.label) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.label) = # 4141 "parsing/parser.mly" ( _2 ) # 35035 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( # 819 "parsing/parser.mly" (string) # 35056 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let x = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 35069 "parsing/parser.ml" in ( # 228 "" ( [ x ] ) # 35075 "parsing/parser.ml" : (string Asttypes.loc list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let xs : (string Asttypes.loc list) = Obj.magic xs in let _1 : ( # 819 "parsing/parser.mly" (string) # 35104 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let x = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 35117 "parsing/parser.ml" in ( # 231 "" ( x :: xs ) # 35123 "parsing/parser.ml" : (string Asttypes.loc list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = s; CamlinternalMenhirLib.EngineTypes.startp = _startpos_s_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_s_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let s : ( # 857 "parsing/parser.mly" (string * Location.t * string option) # 35145 "parsing/parser.ml" ) = Obj.magic s in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_s_ in let _endpos = _endpos_s_ in let _v = let x = # 4137 "parsing/parser.mly" ( let body, _, _ = s in body ) # 35154 "parsing/parser.ml" in ( # 228 "" ( [ x ] ) # 35159 "parsing/parser.ml" : (string list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = s; CamlinternalMenhirLib.EngineTypes.startp = _startpos_s_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_s_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let xs : (string list) = Obj.magic xs in let s : ( # 857 "parsing/parser.mly" (string * Location.t * string option) # 35188 "parsing/parser.ml" ) = Obj.magic s in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_s_ in let _endpos = _endpos_xs_ in let _v = let x = # 4137 "parsing/parser.mly" ( let body, _, _ = s in body ) # 35197 "parsing/parser.ml" in ( # 231 "" ( x :: xs ) # 35202 "parsing/parser.ml" : (string list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = ty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ty_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let ty : (Parsetree.core_type) = Obj.magic ty in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_ty_ in let _endpos = _endpos_ty_ in let _v = let priv = # 4166 "parsing/parser.mly" ( Public ) # 35229 "parsing/parser.ml" in ( # 3342 "parsing/parser.mly" ( (Ptype_abstract, priv, Some ty) ) # 35234 "parsing/parser.ml" : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let ty : (Parsetree.core_type) = Obj.magic ty in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_ty_ in let _v = let priv = # 4167 "parsing/parser.mly" ( Private ) # 35268 "parsing/parser.ml" in ( # 3342 "parsing/parser.mly" ( (Ptype_abstract, priv, Some ty) ) # 35273 "parsing/parser.ml" : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = cs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_cs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_cs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let cs : (Parsetree.constructor_declaration list) = Obj.magic cs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_cs_ in let _endpos = _endpos_cs_ in let _v = let priv = # 4166 "parsing/parser.mly" ( Public ) # 35300 "parsing/parser.ml" in let oty = let _1 = # 123 "" ( None ) # 35306 "parsing/parser.ml" in # 3358 "parsing/parser.mly" ( _1 ) # 35311 "parsing/parser.ml" in ( # 3346 "parsing/parser.mly" ( (Ptype_variant cs, priv, oty) ) # 35317 "parsing/parser.ml" : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = cs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_cs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_cs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let cs : (Parsetree.constructor_declaration list) = Obj.magic cs in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_cs_ in let _v = let priv = # 4167 "parsing/parser.mly" ( Private ) # 35351 "parsing/parser.ml" in let oty = let _1 = # 123 "" ( None ) # 35357 "parsing/parser.ml" in # 3358 "parsing/parser.mly" ( _1 ) # 35362 "parsing/parser.ml" in ( # 3346 "parsing/parser.mly" ( (Ptype_variant cs, priv, oty) ) # 35368 "parsing/parser.ml" : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = cs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_cs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_cs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let cs : (Parsetree.constructor_declaration list) = Obj.magic cs in let _2 : unit = Obj.magic _2 in let x : (Parsetree.core_type) = Obj.magic x in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_cs_ in let _v = let priv = # 4166 "parsing/parser.mly" ( Public ) # 35409 "parsing/parser.ml" in let oty = let _1 = let x = # 196 "" ( x ) # 35416 "parsing/parser.ml" in # 126 "" ( Some x ) # 35421 "parsing/parser.ml" in # 3358 "parsing/parser.mly" ( _1 ) # 35427 "parsing/parser.ml" in ( # 3346 "parsing/parser.mly" ( (Ptype_variant cs, priv, oty) ) # 35433 "parsing/parser.ml" : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = cs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_cs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_cs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let cs : (Parsetree.constructor_declaration list) = Obj.magic cs in let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let x : (Parsetree.core_type) = Obj.magic x in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_cs_ in let _v = let priv = # 4167 "parsing/parser.mly" ( Private ) # 35481 "parsing/parser.ml" in let oty = let _1 = let x = # 196 "" ( x ) # 35488 "parsing/parser.ml" in # 126 "" ( Some x ) # 35493 "parsing/parser.ml" in # 3358 "parsing/parser.mly" ( _1 ) # 35499 "parsing/parser.ml" in ( # 3346 "parsing/parser.mly" ( (Ptype_variant cs, priv, oty) ) # 35505 "parsing/parser.ml" : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__3_ in let _endpos = _endpos__3_ in let _v = let priv = # 4166 "parsing/parser.mly" ( Public ) # 35532 "parsing/parser.ml" in let oty = let _1 = # 123 "" ( None ) # 35538 "parsing/parser.ml" in # 3358 "parsing/parser.mly" ( _1 ) # 35543 "parsing/parser.ml" in ( # 3350 "parsing/parser.mly" ( (Ptype_open, priv, oty) ) # 35549 "parsing/parser.ml" : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let priv = # 4167 "parsing/parser.mly" ( Private ) # 35583 "parsing/parser.ml" in let oty = let _1 = # 123 "" ( None ) # 35589 "parsing/parser.ml" in # 3358 "parsing/parser.mly" ( _1 ) # 35594 "parsing/parser.ml" in ( # 3350 "parsing/parser.mly" ( (Ptype_open, priv, oty) ) # 35600 "parsing/parser.ml" : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let x : (Parsetree.core_type) = Obj.magic x in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos__3_ in let _v = let priv = # 4166 "parsing/parser.mly" ( Public ) # 35641 "parsing/parser.ml" in let oty = let _1 = let x = # 196 "" ( x ) # 35648 "parsing/parser.ml" in # 126 "" ( Some x ) # 35653 "parsing/parser.ml" in # 3358 "parsing/parser.mly" ( _1 ) # 35659 "parsing/parser.ml" in ( # 3350 "parsing/parser.mly" ( (Ptype_open, priv, oty) ) # 35665 "parsing/parser.ml" : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let x : (Parsetree.core_type) = Obj.magic x in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos__3_ in let _v = let priv = # 4167 "parsing/parser.mly" ( Private ) # 35713 "parsing/parser.ml" in let oty = let _1 = let x = # 196 "" ( x ) # 35720 "parsing/parser.ml" in # 126 "" ( Some x ) # 35725 "parsing/parser.ml" in # 3358 "parsing/parser.mly" ( _1 ) # 35731 "parsing/parser.ml" in ( # 3350 "parsing/parser.mly" ( (Ptype_open, priv, oty) ) # 35737 "parsing/parser.ml" : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ls; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ls_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ls_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let ls : (Parsetree.label_declaration list) = Obj.magic ls in let _3 : unit = Obj.magic _3 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__3_ in let _endpos = _endpos__5_ in let _v = let priv = # 4166 "parsing/parser.mly" ( Public ) # 35778 "parsing/parser.ml" in let oty = let _1 = # 123 "" ( None ) # 35784 "parsing/parser.ml" in # 3358 "parsing/parser.mly" ( _1 ) # 35789 "parsing/parser.ml" in ( # 3354 "parsing/parser.mly" ( (Ptype_record ls, priv, oty) ) # 35795 "parsing/parser.ml" : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ls; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ls_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ls_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let ls : (Parsetree.label_declaration list) = Obj.magic ls in let _3 : unit = Obj.magic _3 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let priv = # 4167 "parsing/parser.mly" ( Private ) # 35843 "parsing/parser.ml" in let oty = let _1 = # 123 "" ( None ) # 35849 "parsing/parser.ml" in # 3358 "parsing/parser.mly" ( _1 ) # 35854 "parsing/parser.ml" in ( # 3354 "parsing/parser.mly" ( (Ptype_record ls, priv, oty) ) # 35860 "parsing/parser.ml" : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ls; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ls_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ls_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let ls : (Parsetree.label_declaration list) = Obj.magic ls in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let x : (Parsetree.core_type) = Obj.magic x in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos__5_ in let _v = let priv = # 4166 "parsing/parser.mly" ( Public ) # 35915 "parsing/parser.ml" in let oty = let _1 = let x = # 196 "" ( x ) # 35922 "parsing/parser.ml" in # 126 "" ( Some x ) # 35927 "parsing/parser.ml" in # 3358 "parsing/parser.mly" ( _1 ) # 35933 "parsing/parser.ml" in ( # 3354 "parsing/parser.mly" ( (Ptype_record ls, priv, oty) ) # 35939 "parsing/parser.ml" : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ls; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ls_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ls_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let ls : (Parsetree.label_declaration list) = Obj.magic ls in let _3 : unit = Obj.magic _3 in let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let x : (Parsetree.core_type) = Obj.magic x in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos__5_ in let _v = let priv = # 4167 "parsing/parser.mly" ( Private ) # 36001 "parsing/parser.ml" in let oty = let _1 = let x = # 196 "" ( x ) # 36008 "parsing/parser.ml" in # 126 "" ( Some x ) # 36013 "parsing/parser.ml" in # 3358 "parsing/parser.mly" ( _1 ) # 36019 "parsing/parser.ml" in ( # 3354 "parsing/parser.mly" ( (Ptype_record ls, priv, oty) ) # 36025 "parsing/parser.ml" : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = meth_list; CamlinternalMenhirLib.EngineTypes.startp = _startpos_meth_list_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_meth_list_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let meth_list : (Parsetree.object_field list * Asttypes.closed_flag) = Obj.magic meth_list in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = # 3821 "parsing/parser.mly" ( let (f, c) = meth_list in Ptyp_object (f, c) ) # 36067 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1043 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 36076 "parsing/parser.ml" in ( # 3825 "parsing/parser.mly" ( _1 ) # 36082 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v = let _1 = let _1 = # 3823 "parsing/parser.mly" ( Ptyp_object ([], Closed) ) # 36117 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1043 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 36126 "parsing/parser.ml" in ( # 3825 "parsing/parser.mly" ( _1 ) # 36132 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = me; CamlinternalMenhirLib.EngineTypes.startp = _startpos_me_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_me_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let me : (Parsetree.module_expr) = Obj.magic me in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in let _v = let attrs2 = let _1 = _1_inlined2 in # 4308 "parsing/parser.mly" ( _1 ) # 36189 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 36198 "parsing/parser.ml" in let override = # 4213 "parsing/parser.mly" ( Fresh ) # 36204 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 1706 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Opn.mk me ~override ~attrs ~loc ~docs, ext ) # 36217 "parsing/parser.ml" : (Parsetree.open_declaration * string Asttypes.loc option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = me; CamlinternalMenhirLib.EngineTypes.startp = _startpos_me_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_me_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let me : (Parsetree.module_expr) = Obj.magic me in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in let _v = let attrs2 = let _1 = _1_inlined3 in # 4308 "parsing/parser.mly" ( _1 ) # 36281 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let attrs1 = let _1 = _1_inlined2 in # 4312 "parsing/parser.mly" ( _1 ) # 36290 "parsing/parser.ml" in let override = # 4214 "parsing/parser.mly" ( Override ) # 36296 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 1706 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Opn.mk me ~override ~attrs ~loc ~docs, ext ) # 36309 "parsing/parser.ml" : (Parsetree.open_declaration * string Asttypes.loc option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (Longident.t) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in let _v = let attrs2 = let _1 = _1_inlined3 in # 4308 "parsing/parser.mly" ( _1 ) # 36366 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 36378 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 36386 "parsing/parser.ml" in let override = # 4213 "parsing/parser.mly" ( Fresh ) # 36392 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 1721 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Opn.mk id ~override ~attrs ~loc ~docs, ext ) # 36405 "parsing/parser.ml" : (Parsetree.open_description * string Asttypes.loc option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let _1_inlined4 : (Parsetree.attributes) = Obj.magic _1_inlined4 in let _1_inlined3 : (Longident.t) = Obj.magic _1_inlined3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined4_ in let _v = let attrs2 = let _1 = _1_inlined4 in # 4308 "parsing/parser.mly" ( _1 ) # 36469 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 36481 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined2 in # 4312 "parsing/parser.mly" ( _1 ) # 36489 "parsing/parser.ml" in let override = # 4214 "parsing/parser.mly" ( Override ) # 36495 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 1721 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Opn.mk id ~override ~attrs ~loc ~docs, ext ) # 36508 "parsing/parser.ml" : (Parsetree.open_description * string Asttypes.loc option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( # 843 "parsing/parser.mly" (string) # 36530 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = # 4005 "parsing/parser.mly" ( _1 ) # 36538 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( # 801 "parsing/parser.mly" (string) # 36559 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = # 4006 "parsing/parser.mly" ( _1 ) # 36567 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( # 802 "parsing/parser.mly" (string) # 36588 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = # 4007 "parsing/parser.mly" ( _1 ) # 36596 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( # 800 "parsing/parser.mly" (string) # 36638 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Asttypes.label) = # 4008 "parsing/parser.mly" ( "."^ _1 ^"(" ^ _3 ^ ")" ) # 36646 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let _4 : unit = Obj.magic _4 in let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( # 800 "parsing/parser.mly" (string) # 36695 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Asttypes.label) = # 4009 "parsing/parser.mly" ( "."^ _1 ^ "(" ^ _3 ^ ")<-" ) # 36703 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( # 800 "parsing/parser.mly" (string) # 36745 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Asttypes.label) = # 4010 "parsing/parser.mly" ( "."^ _1 ^"[" ^ _3 ^ "]" ) # 36753 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let _4 : unit = Obj.magic _4 in let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( # 800 "parsing/parser.mly" (string) # 36802 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Asttypes.label) = # 4011 "parsing/parser.mly" ( "."^ _1 ^ "[" ^ _3 ^ "]<-" ) # 36810 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( # 800 "parsing/parser.mly" (string) # 36852 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Asttypes.label) = # 4012 "parsing/parser.mly" ( "."^ _1 ^"{" ^ _3 ^ "}" ) # 36860 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let _4 : unit = Obj.magic _4 in let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( # 800 "parsing/parser.mly" (string) # 36909 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Asttypes.label) = # 4013 "parsing/parser.mly" ( "."^ _1 ^ "{" ^ _3 ^ "}<-" ) # 36917 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( # 854 "parsing/parser.mly" (string) # 36938 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = # 4014 "parsing/parser.mly" ( _1 ) # 36946 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = # 4015 "parsing/parser.mly" ( "!" ) # 36971 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = op; CamlinternalMenhirLib.EngineTypes.startp = _startpos_op_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_op_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( # 795 "parsing/parser.mly" (string) # 36992 "parsing/parser.ml" ) = Obj.magic op in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_op_ in let _endpos = _endpos_op_ in let _v = let _1 = # 4019 "parsing/parser.mly" ( op ) # 37001 "parsing/parser.ml" in ( # 4016 "parsing/parser.mly" ( _1 ) # 37006 "parsing/parser.ml" : (Asttypes.label)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = op; CamlinternalMenhirLib.EngineTypes.startp = _startpos_op_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_op_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( # 796 "parsing/parser.mly" (string) # 37028 "parsing/parser.ml" ) = Obj.magic op in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_op_ in let _endpos = _endpos_op_ in let _v = let _1 = # 4020 "parsing/parser.mly" ( op ) # 37037 "parsing/parser.ml" in ( # 4016 "parsing/parser.mly" ( _1 ) # 37042 "parsing/parser.ml" : (Asttypes.label)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = op; CamlinternalMenhirLib.EngineTypes.startp = _startpos_op_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_op_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( # 797 "parsing/parser.mly" (string) # 37064 "parsing/parser.ml" ) = Obj.magic op in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_op_ in let _endpos = _endpos_op_ in let _v = let _1 = # 4021 "parsing/parser.mly" ( op ) # 37073 "parsing/parser.ml" in ( # 4016 "parsing/parser.mly" ( _1 ) # 37078 "parsing/parser.ml" : (Asttypes.label)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = op; CamlinternalMenhirLib.EngineTypes.startp = _startpos_op_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_op_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( # 798 "parsing/parser.mly" (string) # 37100 "parsing/parser.ml" ) = Obj.magic op in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_op_ in let _endpos = _endpos_op_ in let _v = let _1 = # 4022 "parsing/parser.mly" ( op ) # 37109 "parsing/parser.ml" in ( # 4016 "parsing/parser.mly" ( _1 ) # 37114 "parsing/parser.ml" : (Asttypes.label)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = op; CamlinternalMenhirLib.EngineTypes.startp = _startpos_op_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_op_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( # 799 "parsing/parser.mly" (string) # 37136 "parsing/parser.ml" ) = Obj.magic op in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_op_ in let _endpos = _endpos_op_ in let _v = let _1 = # 4023 "parsing/parser.mly" ( op ) # 37145 "parsing/parser.ml" in ( # 4016 "parsing/parser.mly" ( _1 ) # 37150 "parsing/parser.ml" : (Asttypes.label)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = # 4024 "parsing/parser.mly" ("+") # 37177 "parsing/parser.ml" in ( # 4016 "parsing/parser.mly" ( _1 ) # 37182 "parsing/parser.ml" : (Asttypes.label)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = # 4025 "parsing/parser.mly" ("+.") # 37209 "parsing/parser.ml" in ( # 4016 "parsing/parser.mly" ( _1 ) # 37214 "parsing/parser.ml" : (Asttypes.label)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = # 4026 "parsing/parser.mly" ("+=") # 37241 "parsing/parser.ml" in ( # 4016 "parsing/parser.mly" ( _1 ) # 37246 "parsing/parser.ml" : (Asttypes.label)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = # 4027 "parsing/parser.mly" ("-") # 37273 "parsing/parser.ml" in ( # 4016 "parsing/parser.mly" ( _1 ) # 37278 "parsing/parser.ml" : (Asttypes.label)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = # 4028 "parsing/parser.mly" ("-.") # 37305 "parsing/parser.ml" in ( # 4016 "parsing/parser.mly" ( _1 ) # 37310 "parsing/parser.ml" : (Asttypes.label)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = # 4029 "parsing/parser.mly" ("*") # 37337 "parsing/parser.ml" in ( # 4016 "parsing/parser.mly" ( _1 ) # 37342 "parsing/parser.ml" : (Asttypes.label)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = # 4030 "parsing/parser.mly" ("%") # 37369 "parsing/parser.ml" in ( # 4016 "parsing/parser.mly" ( _1 ) # 37374 "parsing/parser.ml" : (Asttypes.label)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = # 4031 "parsing/parser.mly" ("=") # 37401 "parsing/parser.ml" in ( # 4016 "parsing/parser.mly" ( _1 ) # 37406 "parsing/parser.ml" : (Asttypes.label)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = # 4032 "parsing/parser.mly" ("<") # 37433 "parsing/parser.ml" in ( # 4016 "parsing/parser.mly" ( _1 ) # 37438 "parsing/parser.ml" : (Asttypes.label)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = # 4033 "parsing/parser.mly" (">") # 37465 "parsing/parser.ml" in ( # 4016 "parsing/parser.mly" ( _1 ) # 37470 "parsing/parser.ml" : (Asttypes.label)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = # 4034 "parsing/parser.mly" ("or") # 37497 "parsing/parser.ml" in ( # 4016 "parsing/parser.mly" ( _1 ) # 37502 "parsing/parser.ml" : (Asttypes.label)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = # 4035 "parsing/parser.mly" ("||") # 37529 "parsing/parser.ml" in ( # 4016 "parsing/parser.mly" ( _1 ) # 37534 "parsing/parser.ml" : (Asttypes.label)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = # 4036 "parsing/parser.mly" ("&") # 37561 "parsing/parser.ml" in ( # 4016 "parsing/parser.mly" ( _1 ) # 37566 "parsing/parser.ml" : (Asttypes.label)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = # 4037 "parsing/parser.mly" ("&&") # 37593 "parsing/parser.ml" in ( # 4016 "parsing/parser.mly" ( _1 ) # 37598 "parsing/parser.ml" : (Asttypes.label)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = # 4038 "parsing/parser.mly" (":=") # 37625 "parsing/parser.ml" in ( # 4016 "parsing/parser.mly" ( _1 ) # 37630 "parsing/parser.ml" : (Asttypes.label)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (bool) = # 3913 "parsing/parser.mly" ( true ) # 37656 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (bool) = # 3914 "parsing/parser.mly" ( false ) # 37674 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (unit option) = # 111 "" ( None ) # 37692 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let x : unit = Obj.magic x in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (unit option) = # 114 "" ( Some x ) # 37717 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (unit option) = # 111 "" ( None ) # 37735 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let x : unit = Obj.magic x in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (unit option) = # 114 "" ( Some x ) # 37760 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (string Asttypes.loc option) = # 111 "" ( None ) # 37778 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _1_inlined1 : ( # 819 "parsing/parser.mly" (string) # 37805 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let x = let x = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 37821 "parsing/parser.ml" in # 188 "" ( x ) # 37827 "parsing/parser.ml" in ( # 114 "" ( Some x ) # 37833 "parsing/parser.ml" : (string Asttypes.loc option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.core_type option) = # 111 "" ( None ) # 37852 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let x : (Parsetree.core_type) = Obj.magic x in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_x_ in let _v = let x = # 188 "" ( x ) # 37885 "parsing/parser.ml" in ( # 114 "" ( Some x ) # 37890 "parsing/parser.ml" : (Parsetree.core_type option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.core_type option) = # 111 "" ( None ) # 37909 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let x : (Parsetree.core_type) = Obj.magic x in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_x_ in let _v = let x = # 188 "" ( x ) # 37942 "parsing/parser.ml" in ( # 114 "" ( Some x ) # 37947 "parsing/parser.ml" : (Parsetree.core_type option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.expression option) = # 111 "" ( None ) # 37966 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let x = let x = let _1 = _1_inlined1 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 38002 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 38007 "parsing/parser.ml" in # 188 "" ( x ) # 38013 "parsing/parser.ml" in ( # 114 "" ( Some x ) # 38019 "parsing/parser.ml" : (Parsetree.expression option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (string Asttypes.loc option) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let x = let x = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 38080 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 38085 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 38091 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 38102 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 38108 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 38128 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 38134 "parsing/parser.ml" in # 188 "" ( x ) # 38140 "parsing/parser.ml" in ( # 114 "" ( Some x ) # 38146 "parsing/parser.ml" : (Parsetree.expression option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.module_type option) = # 111 "" ( None ) # 38165 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let x : (Parsetree.module_type) = Obj.magic x in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_x_ in let _v = let x = # 188 "" ( x ) # 38198 "parsing/parser.ml" in ( # 114 "" ( Some x ) # 38203 "parsing/parser.ml" : (Parsetree.module_type option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.pattern option) = # 111 "" ( None ) # 38222 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let x : (Parsetree.pattern) = Obj.magic x in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_x_ in let _v = let x = # 188 "" ( x ) # 38255 "parsing/parser.ml" in ( # 114 "" ( Some x ) # 38260 "parsing/parser.ml" : (Parsetree.pattern option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.expression option) = # 111 "" ( None ) # 38279 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let x : (Parsetree.expression) = Obj.magic x in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_x_ in let _v = let x = # 188 "" ( x ) # 38312 "parsing/parser.ml" in ( # 114 "" ( Some x ) # 38317 "parsing/parser.ml" : (Parsetree.expression option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.type_constraint option) = # 111 "" ( None ) # 38336 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let x : (Parsetree.type_constraint) = Obj.magic x in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (Parsetree.type_constraint option) = # 114 "" ( Some x ) # 38361 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( # 836 "parsing/parser.mly" (string) # 38382 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4225 "parsing/parser.mly" ( _1 ) # 38390 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : ( # 819 "parsing/parser.mly" (string) # 38424 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (string) = # 4226 "parsing/parser.mly" ( _2 ) # 38433 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = mty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_mty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_mty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = me; CamlinternalMenhirLib.EngineTypes.startp = _startpos_me_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_me_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let mty : (Parsetree.module_type) = Obj.magic mty in let _3 : unit = Obj.magic _3 in let me : (Parsetree.module_expr) = Obj.magic me in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 1475 "parsing/parser.mly" ( mkmod ~loc:_sloc (Pmod_constraint(me, mty)) ) # 38490 "parsing/parser.ml" : (Parsetree.module_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let _4 : (Parsetree.module_type) = Obj.magic _4 in let _3 : unit = Obj.magic _3 in let _2 : (Parsetree.module_expr) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 1477 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) # 38547 "parsing/parser.ml" : (Parsetree.module_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = me; CamlinternalMenhirLib.EngineTypes.startp = _startpos_me_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_me_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let me : (Parsetree.module_expr) = Obj.magic me in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.module_expr) = # 1480 "parsing/parser.mly" ( me (* TODO consider reloc *) ) # 38587 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : (Parsetree.module_expr) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 1482 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) # 38629 "parsing/parser.ml" : (Parsetree.module_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let _1_inlined2 : (Parsetree.expression) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let e = let _1 = _1_inlined2 in let e = let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 38687 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 38692 "parsing/parser.ml" in # 1499 "parsing/parser.mly" ( e ) # 38698 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 38706 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 1486 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) # 38715 "parsing/parser.ml" : (Parsetree.module_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined4 : (Parsetree.attributes) = Obj.magic _1_inlined4 in let _1_inlined3 : (string Asttypes.loc option) = Obj.magic _1_inlined3 in let _1_inlined2 : unit = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let e = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined2_, _1_inlined4, _1_inlined3) in let e = let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 38797 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 38802 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 38808 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 38819 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 38825 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 38845 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 38851 "parsing/parser.ml" in # 1499 "parsing/parser.mly" ( e ) # 38857 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 38865 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 1486 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) # 38874 "parsing/parser.ml" : (Parsetree.module_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let _1_inlined3 : (Parsetree.module_type) = Obj.magic _1_inlined3 in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1_inlined2 : (Parsetree.expression) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let e = let (_endpos__1_inlined1_, _startpos__1_inlined1_, _startpos__1_, _1_inlined1, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _startpos__1_inlined2_, _1_inlined3, _1_inlined2) in let ty = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3886 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in Typ.package_type ~loc:(make_loc _sloc) ~attrs lid cstrs ) # 38952 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3890 "parsing/parser.mly" ( mktyp ~loc:_sloc (Ptyp_package _1) ) # 38961 "parsing/parser.ml" in let _endpos_ty_ = _endpos__1_inlined1_ in let e = let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 38969 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 38974 "parsing/parser.ml" in let _startpos_e_ = _startpos__1_ in let _endpos = _endpos_ty_ in let _startpos = _startpos_e_ in let _loc = (_startpos, _endpos) in # 1501 "parsing/parser.mly" ( ghexp ~loc:_loc (Pexp_constraint (e, ty)) ) # 38984 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 38992 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 1486 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) # 39001 "parsing/parser.ml" : (Parsetree.module_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let _1_inlined5 : (Parsetree.module_type) = Obj.magic _1_inlined5 in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined4 : (Parsetree.attributes) = Obj.magic _1_inlined4 in let _1_inlined3 : (string Asttypes.loc option) = Obj.magic _1_inlined3 in let _1_inlined2 : unit = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let e = let (_endpos__1_inlined3_, _startpos__1_inlined3_, _startpos__1_, _1_inlined3, _1_inlined2, _1_inlined1) = (_endpos__1_inlined5_, _startpos__1_inlined5_, _startpos__1_inlined2_, _1_inlined5, _1_inlined4, _1_inlined3) in let ty = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3886 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in Typ.package_type ~loc:(make_loc _sloc) ~attrs lid cstrs ) # 39100 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3890 "parsing/parser.mly" ( mktyp ~loc:_sloc (Ptyp_package _1) ) # 39109 "parsing/parser.ml" in let _endpos_ty_ = _endpos__1_inlined3_ in let e = let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 39120 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 39125 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 39131 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 39142 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 39148 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 39168 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 39174 "parsing/parser.ml" in let _startpos_e_ = _startpos__1_ in let _endpos = _endpos_ty_ in let _startpos = _startpos_e_ in let _loc = (_startpos, _endpos) in # 1501 "parsing/parser.mly" ( ghexp ~loc:_loc (Pexp_constraint (e, ty)) ) # 39184 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 39192 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 1486 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) # 39201 "parsing/parser.ml" : (Parsetree.module_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let _1_inlined4 : (Parsetree.module_type) = Obj.magic _1_inlined4 in let _4 : unit = Obj.magic _4 in let _1_inlined3 : (Parsetree.module_type) = Obj.magic _1_inlined3 in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1_inlined2 : (Parsetree.expression) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let e = let (_endpos__1_inlined2_, _startpos__1_inlined2_, _endpos__1_inlined1_, _startpos__1_inlined1_, _startpos__1_, _1_inlined2, _1_inlined1, _1) = (_endpos__1_inlined4_, _startpos__1_inlined4_, _endpos__1_inlined3_, _startpos__1_inlined3_, _startpos__1_inlined2_, _1_inlined4, _1_inlined3, _1_inlined2) in let ty2 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3886 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in Typ.package_type ~loc:(make_loc _sloc) ~attrs lid cstrs ) # 39293 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3890 "parsing/parser.mly" ( mktyp ~loc:_sloc (Ptyp_package _1) ) # 39302 "parsing/parser.ml" in let _endpos_ty2_ = _endpos__1_inlined2_ in let ty1 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3886 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in Typ.package_type ~loc:(make_loc _sloc) ~attrs lid cstrs ) # 39316 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3890 "parsing/parser.mly" ( mktyp ~loc:_sloc (Ptyp_package _1) ) # 39325 "parsing/parser.ml" in let e = let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 39332 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 39337 "parsing/parser.ml" in let _startpos_e_ = _startpos__1_ in let _endpos = _endpos_ty2_ in let _startpos = _startpos_e_ in let _loc = (_startpos, _endpos) in # 1503 "parsing/parser.mly" ( ghexp ~loc:_loc (Pexp_coerce (e, Some ty1, ty2)) ) # 39347 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 39355 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 1486 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) # 39364 "parsing/parser.ml" : (Parsetree.module_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let _1_inlined6 : (Parsetree.module_type) = Obj.magic _1_inlined6 in let _4 : unit = Obj.magic _4 in let _1_inlined5 : (Parsetree.module_type) = Obj.magic _1_inlined5 in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined4 : (Parsetree.attributes) = Obj.magic _1_inlined4 in let _1_inlined3 : (string Asttypes.loc option) = Obj.magic _1_inlined3 in let _1_inlined2 : unit = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let e = let (_endpos__1_inlined4_, _startpos__1_inlined4_, _endpos__1_inlined3_, _startpos__1_inlined3_, _startpos__1_, _1_inlined4, _1_inlined3, _1_inlined2, _1_inlined1) = (_endpos__1_inlined6_, _startpos__1_inlined6_, _endpos__1_inlined5_, _startpos__1_inlined5_, _startpos__1_inlined2_, _1_inlined6, _1_inlined5, _1_inlined4, _1_inlined3) in let ty2 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined4_, _startpos__1_inlined4_, _1_inlined4) in let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3886 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in Typ.package_type ~loc:(make_loc _sloc) ~attrs lid cstrs ) # 39477 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3890 "parsing/parser.mly" ( mktyp ~loc:_sloc (Ptyp_package _1) ) # 39486 "parsing/parser.ml" in let _endpos_ty2_ = _endpos__1_inlined4_ in let ty1 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3886 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in Typ.package_type ~loc:(make_loc _sloc) ~attrs lid cstrs ) # 39500 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3890 "parsing/parser.mly" ( mktyp ~loc:_sloc (Ptyp_package _1) ) # 39509 "parsing/parser.ml" in let e = let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 39519 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 39524 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 39530 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 39541 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 39547 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 39567 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 39573 "parsing/parser.ml" in let _startpos_e_ = _startpos__1_ in let _endpos = _endpos_ty2_ in let _startpos = _startpos_e_ in let _loc = (_startpos, _endpos) in # 1503 "parsing/parser.mly" ( ghexp ~loc:_loc (Pexp_coerce (e, Some ty1, ty2)) ) # 39583 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 39591 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 1486 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) # 39600 "parsing/parser.ml" : (Parsetree.module_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let _1_inlined3 : (Parsetree.module_type) = Obj.magic _1_inlined3 in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1_inlined2 : (Parsetree.expression) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let e = let (_endpos__1_inlined1_, _startpos__1_inlined1_, _startpos__1_, _1_inlined1, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _startpos__1_inlined2_, _1_inlined3, _1_inlined2) in let ty2 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3886 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in Typ.package_type ~loc:(make_loc _sloc) ~attrs lid cstrs ) # 39678 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3890 "parsing/parser.mly" ( mktyp ~loc:_sloc (Ptyp_package _1) ) # 39687 "parsing/parser.ml" in let _endpos_ty2_ = _endpos__1_inlined1_ in let e = let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 39695 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 39700 "parsing/parser.ml" in let _startpos_e_ = _startpos__1_ in let _endpos = _endpos_ty2_ in let _startpos = _startpos_e_ in let _loc = (_startpos, _endpos) in # 1505 "parsing/parser.mly" ( ghexp ~loc:_loc (Pexp_coerce (e, None, ty2)) ) # 39710 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 39718 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 1486 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) # 39727 "parsing/parser.ml" : (Parsetree.module_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let _1_inlined5 : (Parsetree.module_type) = Obj.magic _1_inlined5 in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined4 : (Parsetree.attributes) = Obj.magic _1_inlined4 in let _1_inlined3 : (string Asttypes.loc option) = Obj.magic _1_inlined3 in let _1_inlined2 : unit = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let e = let (_endpos__1_inlined3_, _startpos__1_inlined3_, _startpos__1_, _1_inlined3, _1_inlined2, _1_inlined1) = (_endpos__1_inlined5_, _startpos__1_inlined5_, _startpos__1_inlined2_, _1_inlined5, _1_inlined4, _1_inlined3) in let ty2 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3886 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in Typ.package_type ~loc:(make_loc _sloc) ~attrs lid cstrs ) # 39826 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3890 "parsing/parser.mly" ( mktyp ~loc:_sloc (Ptyp_package _1) ) # 39835 "parsing/parser.ml" in let _endpos_ty2_ = _endpos__1_inlined3_ in let e = let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 39846 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 39851 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 39857 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 39868 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 39874 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 39894 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 39900 "parsing/parser.ml" in let _startpos_e_ = _startpos__1_ in let _endpos = _endpos_ty2_ in let _startpos = _startpos_e_ in let _loc = (_startpos, _endpos) in # 1505 "parsing/parser.mly" ( ghexp ~loc:_loc (Pexp_coerce (e, None, ty2)) ) # 39910 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 39918 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 1486 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) # 39927 "parsing/parser.ml" : (Parsetree.module_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let _6 : unit = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : (Parsetree.expression) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in let _v = let _4 = let _1 = _1_inlined2 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 39991 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 39996 "parsing/parser.ml" in let _3 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 40004 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 1488 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__6_ ) # 40012 "parsing/parser.ml" : (Parsetree.module_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; } = _menhir_stack in let _6 : unit = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined4 : (Parsetree.attributes) = Obj.magic _1_inlined4 in let _1_inlined3 : (string Asttypes.loc option) = Obj.magic _1_inlined3 in let _1_inlined2 : unit = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in let _v = let _4 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined2_, _1_inlined4, _1_inlined3) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 40100 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 40105 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 40111 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 40122 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 40128 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 40148 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 40154 "parsing/parser.ml" in let _3 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 40162 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 1488 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__6_ ) # 40170 "parsing/parser.ml" : (Parsetree.module_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let _6 : unit = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : (Parsetree.expression) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in let _v = let _4 = let _1 = _1_inlined2 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 40234 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 40239 "parsing/parser.ml" in let _3 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 40247 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 1490 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__6_ ) # 40255 "parsing/parser.ml" : (Parsetree.module_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; } = _menhir_stack in let _6 : unit = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined4 : (Parsetree.attributes) = Obj.magic _1_inlined4 in let _1_inlined3 : (string Asttypes.loc option) = Obj.magic _1_inlined3 in let _1_inlined2 : unit = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in let _v = let _4 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined2_, _1_inlined4, _1_inlined3) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 40343 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 40348 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 40354 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 40365 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 40371 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 40391 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 40397 "parsing/parser.ml" in let _3 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 40405 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 1490 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__6_ ) # 40413 "parsing/parser.ml" : (Parsetree.module_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let _1_inlined2 : (Parsetree.expression) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _4 = let _1 = _1_inlined2 in let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 40470 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 40475 "parsing/parser.ml" in let _3 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 40483 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 1492 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) # 40491 "parsing/parser.ml" : (Parsetree.module_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined4 : (Parsetree.attributes) = Obj.magic _1_inlined4 in let _1_inlined3 : (string Asttypes.loc option) = Obj.magic _1_inlined3 in let _1_inlined2 : unit = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _4 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined2_, _1_inlined4, _1_inlined3) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 40572 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 40577 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 40583 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 40594 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 40600 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 40620 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 40626 "parsing/parser.ml" in let _3 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 40634 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 1492 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) # 40642 "parsing/parser.ml" : (Parsetree.module_expr)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = # 1393 "parsing/parser.mly" ( _1 ) # 40675 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = # 1378 "parsing/parser.mly" ( _1 ) # 40707 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.core_type) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type) = # 1353 "parsing/parser.mly" ( _1 ) # 40739 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = # 1358 "parsing/parser.mly" ( _1 ) # 40771 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = # 1383 "parsing/parser.mly" ( _1 ) # 40803 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = # 1388 "parsing/parser.mly" ( _1 ) # 40835 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.module_expr) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.module_expr) = # 1348 "parsing/parser.mly" ( _1 ) # 40867 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.module_type) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.module_type) = # 1343 "parsing/parser.mly" ( _1 ) # 40899 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = # 1368 "parsing/parser.mly" ( _1 ) # 40931 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.pattern) = # 1363 "parsing/parser.mly" ( _1 ) # 40963 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = # 1373 "parsing/parser.mly" ( _1 ) # 40995 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : (Parsetree.pattern) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _loc__2_ = (_startpos__2_, _endpos__2_) in let _sloc = (_symbolstartpos, _endpos) in # 3013 "parsing/parser.mly" ( mkpat_cons ~loc:_sloc _loc__2_ (ghpat ~loc:_sloc (Ppat_tuple ([None, _1; None, _3], Closed))) ) # 41041 "parsing/parser.ml" in ( # 2999 "parsing/parser.mly" ( _1 ) # 41047 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.attribute) = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v = let _1 = # 3016 "parsing/parser.mly" ( Pat.attr _1 _2 ) # 41081 "parsing/parser.ml" in ( # 2999 "parsing/parser.mly" ( _1 ) # 41086 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = # 3018 "parsing/parser.mly" ( _1 ) # 41113 "parsing/parser.ml" in ( # 2999 "parsing/parser.mly" ( _1 ) # 41118 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Asttypes.label) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let _1 = let _1 = let _3 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 41167 "parsing/parser.ml" in # 3021 "parsing/parser.mly" ( Ppat_alias(_1, _3) ) # 41173 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 41183 "parsing/parser.ml" in # 3032 "parsing/parser.mly" ( _1 ) # 41189 "parsing/parser.ml" in ( # 2999 "parsing/parser.mly" ( _1 ) # 41195 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in # 3023 "parsing/parser.mly" ( expecting _loc__3_ "identifier" ) # 41240 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 41250 "parsing/parser.ml" in # 3032 "parsing/parser.mly" ( _1 ) # 41256 "parsing/parser.ml" in ( # 2999 "parsing/parser.mly" ( _1 ) # 41262 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.pattern_desc) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = let _1 = # 3025 "parsing/parser.mly" ( _1 ) # 41291 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 41299 "parsing/parser.ml" in # 3032 "parsing/parser.mly" ( _1 ) # 41305 "parsing/parser.ml" in ( # 2999 "parsing/parser.mly" ( _1 ) # 41311 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in # 3027 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) # 41356 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 41366 "parsing/parser.ml" in # 3032 "parsing/parser.mly" ( _1 ) # 41372 "parsing/parser.ml" in ( # 2999 "parsing/parser.mly" ( _1 ) # 41378 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : (Parsetree.pattern) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = let _1 = # 3029 "parsing/parser.mly" ( Ppat_or(_1, _3) ) # 41421 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 41430 "parsing/parser.ml" in # 3032 "parsing/parser.mly" ( _1 ) # 41436 "parsing/parser.ml" in ( # 2999 "parsing/parser.mly" ( _1 ) # 41442 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in # 3031 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) # 41487 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 41497 "parsing/parser.ml" in # 3032 "parsing/parser.mly" ( _1 ) # 41503 "parsing/parser.ml" in ( # 2999 "parsing/parser.mly" ( _1 ) # 41509 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _3 : (Parsetree.pattern) = Obj.magic _3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 41561 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 41567 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3001 "parsing/parser.mly" ( mkpat_attrs ~loc:_sloc (Ppat_exception _3) _2) # 41576 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : (Parsetree.pattern) = Obj.magic _4 in let _3 : unit = Obj.magic _3 in let _2 : (Parsetree.pattern) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v = let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3003 "parsing/parser.mly" ( mkpat ~loc:_sloc (Ppat_effect(_2,_4)) ) # 41627 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = # 3037 "parsing/parser.mly" ( _1 ) # 41653 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.pattern) = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v = let _1 = let _1 = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 41692 "parsing/parser.ml" in # 3040 "parsing/parser.mly" ( Ppat_construct(_1, Some ([], _2)) ) # 41698 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 41708 "parsing/parser.ml" in ( # 3046 "parsing/parser.mly" ( _1 ) # 41714 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = pat; CamlinternalMenhirLib.EngineTypes.startp = _startpos_pat_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_pat_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let pat : (Parsetree.pattern) = Obj.magic pat in let _5 : unit = Obj.magic _5 in let xs : (string Asttypes.loc list) = Obj.magic xs in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_pat_ in let _v = let _1 = let _1 = let newtypes = # 2697 "parsing/parser.mly" ( xs ) # 41778 "parsing/parser.ml" in let constr = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 41787 "parsing/parser.ml" in # 3043 "parsing/parser.mly" ( Ppat_construct(constr, Some (newtypes, pat)) ) # 41793 "parsing/parser.ml" in let _endpos__1_ = _endpos_pat_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 41803 "parsing/parser.ml" in ( # 3046 "parsing/parser.mly" ( _1 ) # 41809 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.pattern) = Obj.magic _2 in let _1 : (Asttypes.label) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v = let _1 = let _1 = # 3045 "parsing/parser.mly" ( Ppat_variant(_1, Some _2) ) # 41844 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 41853 "parsing/parser.ml" in ( # 3046 "parsing/parser.mly" ( _1 ) # 41859 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _3 : (Parsetree.pattern) = Obj.magic _3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 41911 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 41917 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3048 "parsing/parser.mly" ( mkpat_attrs ~loc:_sloc (Ppat_lazy _3) _2) # 41926 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : (Parsetree.pattern) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _loc__2_ = (_startpos__2_, _endpos__2_) in let _sloc = (_symbolstartpos, _endpos) in # 3013 "parsing/parser.mly" ( mkpat_cons ~loc:_sloc _loc__2_ (ghpat ~loc:_sloc (Ppat_tuple ([None, _1; None, _3], Closed))) ) # 41973 "parsing/parser.ml" in ( # 3008 "parsing/parser.mly" ( _1 ) # 41979 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.attribute) = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v = let _1 = # 3016 "parsing/parser.mly" ( Pat.attr _1 _2 ) # 42013 "parsing/parser.ml" in ( # 3008 "parsing/parser.mly" ( _1 ) # 42018 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = # 3018 "parsing/parser.mly" ( _1 ) # 42045 "parsing/parser.ml" in ( # 3008 "parsing/parser.mly" ( _1 ) # 42050 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Asttypes.label) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let _1 = let _1 = let _3 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 42099 "parsing/parser.ml" in # 3021 "parsing/parser.mly" ( Ppat_alias(_1, _3) ) # 42105 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 42115 "parsing/parser.ml" in # 3032 "parsing/parser.mly" ( _1 ) # 42121 "parsing/parser.ml" in ( # 3008 "parsing/parser.mly" ( _1 ) # 42127 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in # 3023 "parsing/parser.mly" ( expecting _loc__3_ "identifier" ) # 42172 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 42182 "parsing/parser.ml" in # 3032 "parsing/parser.mly" ( _1 ) # 42188 "parsing/parser.ml" in ( # 3008 "parsing/parser.mly" ( _1 ) # 42194 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.pattern_desc) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = let _1 = # 3025 "parsing/parser.mly" ( _1 ) # 42223 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 42231 "parsing/parser.ml" in # 3032 "parsing/parser.mly" ( _1 ) # 42237 "parsing/parser.ml" in ( # 3008 "parsing/parser.mly" ( _1 ) # 42243 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in # 3027 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) # 42288 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 42298 "parsing/parser.ml" in # 3032 "parsing/parser.mly" ( _1 ) # 42304 "parsing/parser.ml" in ( # 3008 "parsing/parser.mly" ( _1 ) # 42310 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : (Parsetree.pattern) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = let _1 = # 3029 "parsing/parser.mly" ( Ppat_or(_1, _3) ) # 42353 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 42362 "parsing/parser.ml" in # 3032 "parsing/parser.mly" ( _1 ) # 42368 "parsing/parser.ml" in ( # 3008 "parsing/parser.mly" ( _1 ) # 42374 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in # 3031 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) # 42419 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 42429 "parsing/parser.ml" in # 3032 "parsing/parser.mly" ( _1 ) # 42435 "parsing/parser.ml" in ( # 3008 "parsing/parser.mly" ( _1 ) # 42441 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( # 819 "parsing/parser.mly" (string) # 42463 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 42478 "parsing/parser.ml" in # 2390 "parsing/parser.mly" ( Ppat_var _1 ) # 42484 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 42493 "parsing/parser.ml" in ( # 2392 "parsing/parser.mly" ( _1 ) # 42499 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 2391 "parsing/parser.mly" ( Ppat_any ) # 42527 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 42535 "parsing/parser.ml" in ( # 2392 "parsing/parser.mly" ( _1 ) # 42541 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.structure) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.payload) = # 4338 "parsing/parser.mly" ( PStr _1 ) # 42567 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.signature) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.payload) = # 4339 "parsing/parser.mly" ( PSig _2 ) # 42599 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.core_type) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.payload) = # 4340 "parsing/parser.mly" ( PTyp _2 ) # 42631 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.pattern) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.payload) = # 4341 "parsing/parser.mly" ( PPat (_2, None) ) # 42663 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : (Parsetree.expression) = Obj.magic _4 in let _3 : unit = Obj.magic _3 in let _2 : (Parsetree.pattern) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.payload) = # 4342 "parsing/parser.mly" ( PPat (_2, Some _4) ) # 42709 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.core_type) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = # 3624 "parsing/parser.mly" ( _1 ) # 42734 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : (Parsetree.core_type) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let xs : (Asttypes.label Asttypes.loc list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = let _1 = let _1 = let xs = # 264 "" ( List.rev xs ) # 42778 "parsing/parser.ml" in # 1104 "parsing/parser.mly" ( xs ) # 42783 "parsing/parser.ml" in # 3616 "parsing/parser.mly" ( _1 ) # 42789 "parsing/parser.ml" in # 3620 "parsing/parser.mly" ( Ptyp_poly(_1, _3) ) # 42795 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__3_, _startpos_xs_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1043 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 42805 "parsing/parser.ml" in ( # 3626 "parsing/parser.mly" ( _1 ) # 42811 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.core_type) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = # 3655 "parsing/parser.mly" ( _1 ) # 42838 "parsing/parser.ml" in ( # 3624 "parsing/parser.mly" ( _1 ) # 42843 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1 : (Parsetree.core_type) = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let xs : (Asttypes.label Asttypes.loc list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = let _3 = # 3655 "parsing/parser.mly" ( _1 ) # 42886 "parsing/parser.ml" in let _1 = let _1 = let xs = # 264 "" ( List.rev xs ) # 42893 "parsing/parser.ml" in # 1104 "parsing/parser.mly" ( xs ) # 42898 "parsing/parser.ml" in # 3616 "parsing/parser.mly" ( _1 ) # 42904 "parsing/parser.ml" in # 3620 "parsing/parser.mly" ( Ptyp_poly(_1, _3) ) # 42910 "parsing/parser.ml" in let _startpos__1_ = _startpos_xs_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1043 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 42920 "parsing/parser.ml" in ( # 3626 "parsing/parser.mly" ( _1 ) # 42926 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in let _3 : (Parsetree.payload) = Obj.magic _3 in let _2 : (Ast_helper.str) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v = let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 4299 "parsing/parser.mly" ( mk_attr ~loc:(make_loc _sloc) _2 _3 ) # 42977 "parsing/parser.ml" : (Parsetree.attribute)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = prim; CamlinternalMenhirLib.EngineTypes.startp = _startpos_prim_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_prim_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _7; CamlinternalMenhirLib.EngineTypes.startp = _startpos__7_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__7_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let prim : (string list) = Obj.magic prim in let _7 : unit = Obj.magic _7 in let ty : (Parsetree.core_type) = Obj.magic ty in let _5 : unit = Obj.magic _5 in let _1_inlined2 : (Asttypes.label) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in let _v = let attrs2 = let _1 = _1_inlined3 in # 4308 "parsing/parser.mly" ( _1 ) # 43062 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 43074 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 43082 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3252 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Val.mk id ty ~prim ~attrs ~loc ~docs, ext ) # 43095 "parsing/parser.ml" : (Parsetree.value_description * string Asttypes.loc option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v = let _1 = # 4166 "parsing/parser.mly" ( Public ) # 43115 "parsing/parser.ml" in ( # 4163 "parsing/parser.mly" ( _1 ) # 43120 "parsing/parser.ml" : (Asttypes.private_flag)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = # 4167 "parsing/parser.mly" ( Private ) # 43147 "parsing/parser.ml" in ( # 4163 "parsing/parser.mly" ( _1 ) # 43152 "parsing/parser.ml" : (Asttypes.private_flag)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = # 4189 "parsing/parser.mly" ( Public, Concrete ) # 43171 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = # 4190 "parsing/parser.mly" ( Private, Concrete ) # 43196 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = # 4191 "parsing/parser.mly" ( Public, Virtual ) # 43221 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = # 4192 "parsing/parser.mly" ( Private, Virtual ) # 43253 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = # 4193 "parsing/parser.mly" ( Private, Virtual ) # 43285 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.rec_flag) = # 4144 "parsing/parser.mly" ( Nonrecursive ) # 43303 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.rec_flag) = # 4145 "parsing/parser.mly" ( Recursive ) # 43328 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = fields; CamlinternalMenhirLib.EngineTypes.startp = _startpos_fields_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_fields_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let fields : ((Longident.t Asttypes.loc * Parsetree.expression) list) = Obj.magic fields in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_fields_ in let _endpos = _endpos_fields_ in let _v = let eo = # 123 "" ( None ) # 43354 "parsing/parser.ml" in ( # 2931 "parsing/parser.mly" ( eo, fields ) # 43359 "parsing/parser.ml" : (Parsetree.expression option * (Longident.t Asttypes.loc * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = fields; CamlinternalMenhirLib.EngineTypes.startp = _startpos_fields_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_fields_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let fields : ((Longident.t Asttypes.loc * Parsetree.expression) list) = Obj.magic fields in let _2 : unit = Obj.magic _2 in let x : (Parsetree.expression) = Obj.magic x in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_fields_ in let _v = let eo = let x = # 196 "" ( x ) # 43402 "parsing/parser.ml" in # 126 "" ( Some x ) # 43407 "parsing/parser.ml" in ( # 2931 "parsing/parser.mly" ( eo, fields ) # 43413 "parsing/parser.ml" : (Parsetree.expression option * (Longident.t Asttypes.loc * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = d; CamlinternalMenhirLib.EngineTypes.startp = _startpos_d_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_d_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let d : (Ast_helper.str * Ast_helper.str list * Parsetree.constructor_arguments * Parsetree.core_type option * Parsetree.attributes * Location.t * Docstrings.info) = Obj.magic d in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in let _v = let x = # 3443 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Type.constructor cid ~vars ~args ?res ~attrs ~loc ~info ) # 43446 "parsing/parser.ml" in ( # 1235 "parsing/parser.mly" ( [x] ) # 43451 "parsing/parser.ml" : (Parsetree.constructor_declaration list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = d; CamlinternalMenhirLib.EngineTypes.startp = _startpos_d_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_d_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let d : (Ast_helper.str * Ast_helper.str list * Parsetree.constructor_arguments * Parsetree.core_type option * Parsetree.attributes * Location.t * Docstrings.info) = Obj.magic d in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in let _v = let x = # 3443 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Type.constructor cid ~vars ~args ?res ~attrs ~loc ~info ) # 43483 "parsing/parser.ml" in ( # 1238 "parsing/parser.mly" ( [x] ) # 43488 "parsing/parser.ml" : (Parsetree.constructor_declaration list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = d; CamlinternalMenhirLib.EngineTypes.startp = _startpos_d_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_d_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let d : (Ast_helper.str * Ast_helper.str list * Parsetree.constructor_arguments * Parsetree.core_type option * Parsetree.attributes * Location.t * Docstrings.info) = Obj.magic d in let xs : (Parsetree.constructor_declaration list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_d_ in let _v = let x = # 3443 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Type.constructor cid ~vars ~args ?res ~attrs ~loc ~info ) # 43527 "parsing/parser.ml" in ( # 1242 "parsing/parser.mly" ( x :: xs ) # 43532 "parsing/parser.ml" : (Parsetree.constructor_declaration list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = d; CamlinternalMenhirLib.EngineTypes.startp = _startpos_d_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_d_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let d : (Ast_helper.str * Ast_helper.str list * Parsetree.constructor_arguments * Parsetree.core_type option * Parsetree.attributes * Location.t * Docstrings.info) = Obj.magic d in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in let _v = let x = let _1 = # 3554 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) # 43565 "parsing/parser.ml" in # 3548 "parsing/parser.mly" ( _1 ) # 43570 "parsing/parser.ml" in ( # 1235 "parsing/parser.mly" ( [x] ) # 43576 "parsing/parser.ml" : (Parsetree.extension_constructor list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.extension_constructor) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let x = # 3550 "parsing/parser.mly" ( _1 ) # 43603 "parsing/parser.ml" in ( # 1235 "parsing/parser.mly" ( [x] ) # 43608 "parsing/parser.ml" : (Parsetree.extension_constructor list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = d; CamlinternalMenhirLib.EngineTypes.startp = _startpos_d_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_d_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let d : (Ast_helper.str * Ast_helper.str list * Parsetree.constructor_arguments * Parsetree.core_type option * Parsetree.attributes * Location.t * Docstrings.info) = Obj.magic d in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in let _v = let x = let _1 = # 3554 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) # 43641 "parsing/parser.ml" in # 3548 "parsing/parser.mly" ( _1 ) # 43646 "parsing/parser.ml" in ( # 1238 "parsing/parser.mly" ( [x] ) # 43652 "parsing/parser.ml" : (Parsetree.extension_constructor list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.extension_constructor) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let x = # 3550 "parsing/parser.mly" ( _1 ) # 43679 "parsing/parser.ml" in ( # 1238 "parsing/parser.mly" ( [x] ) # 43684 "parsing/parser.ml" : (Parsetree.extension_constructor list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = d; CamlinternalMenhirLib.EngineTypes.startp = _startpos_d_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_d_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let d : (Ast_helper.str * Ast_helper.str list * Parsetree.constructor_arguments * Parsetree.core_type option * Parsetree.attributes * Location.t * Docstrings.info) = Obj.magic d in let xs : (Parsetree.extension_constructor list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_d_ in let _v = let x = let _1 = # 3554 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) # 43724 "parsing/parser.ml" in # 3548 "parsing/parser.mly" ( _1 ) # 43729 "parsing/parser.ml" in ( # 1242 "parsing/parser.mly" ( x :: xs ) # 43735 "parsing/parser.ml" : (Parsetree.extension_constructor list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _1 : (Parsetree.extension_constructor) = Obj.magic _1 in let xs : (Parsetree.extension_constructor list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos__1_ in let _v = let x = # 3550 "parsing/parser.mly" ( _1 ) # 43769 "parsing/parser.ml" in ( # 1242 "parsing/parser.mly" ( x :: xs ) # 43774 "parsing/parser.ml" : (Parsetree.extension_constructor list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = d; CamlinternalMenhirLib.EngineTypes.startp = _startpos_d_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_d_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let d : (Ast_helper.str * Ast_helper.str list * Parsetree.constructor_arguments * Parsetree.core_type option * Parsetree.attributes * Location.t * Docstrings.info) = Obj.magic d in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in let _v = let x = # 3554 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) # 43806 "parsing/parser.ml" in ( # 1235 "parsing/parser.mly" ( [x] ) # 43811 "parsing/parser.ml" : (Parsetree.extension_constructor list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = d; CamlinternalMenhirLib.EngineTypes.startp = _startpos_d_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_d_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let d : (Ast_helper.str * Ast_helper.str list * Parsetree.constructor_arguments * Parsetree.core_type option * Parsetree.attributes * Location.t * Docstrings.info) = Obj.magic d in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in let _v = let x = # 3554 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) # 43843 "parsing/parser.ml" in ( # 1238 "parsing/parser.mly" ( [x] ) # 43848 "parsing/parser.ml" : (Parsetree.extension_constructor list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = d; CamlinternalMenhirLib.EngineTypes.startp = _startpos_d_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_d_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let d : (Ast_helper.str * Ast_helper.str list * Parsetree.constructor_arguments * Parsetree.core_type option * Parsetree.attributes * Location.t * Docstrings.info) = Obj.magic d in let xs : (Parsetree.extension_constructor list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_d_ in let _v = let x = # 3554 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) # 43887 "parsing/parser.ml" in ( # 1242 "parsing/parser.mly" ( x :: xs ) # 43892 "parsing/parser.ml" : (Parsetree.extension_constructor list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1 : (Parsetree.expression) = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let xs : ((string option * Parsetree.expression) list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos__1_ in let _v = let x = let _1 = let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 43935 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 43940 "parsing/parser.ml" in # 2884 "parsing/parser.mly" ( None, _1 ) # 43946 "parsing/parser.ml" in ( # 2900 "parsing/parser.mly" ( x :: xs ) # 43952 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let xs_inlined1 : (Parsetree.case list) = Obj.magic xs_inlined1 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let xs : ((string option * Parsetree.expression) list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_xs_inlined1_ in let _v = let x = let (_endpos_xs_, xs) = (_endpos_xs_inlined1_, xs_inlined1) in let _1 = let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 44020 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 44025 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 44031 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 44042 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 44048 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 44068 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 44074 "parsing/parser.ml" in # 2884 "parsing/parser.mly" ( None, _1 ) # 44080 "parsing/parser.ml" in ( # 2900 "parsing/parser.mly" ( x :: xs ) # 44086 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _2_inlined1 : (Parsetree.expression) = Obj.magic _2_inlined1 in let _1 : ( # 806 "parsing/parser.mly" (string) # 44127 "parsing/parser.ml" ) = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let xs : ((string option * Parsetree.expression) list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos__2_inlined1_ in let _v = let x = let _2 = _2_inlined1 in # 2886 "parsing/parser.mly" ( Some _1, _2 ) # 44140 "parsing/parser.ml" in ( # 2900 "parsing/parser.mly" ( x :: xs ) # 44146 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let label : ( # 819 "parsing/parser.mly" (string) # 44186 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let xs : ((string option * Parsetree.expression) list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_label_ in let _v = let x = let _loc_label_ = (_startpos_label_, _endpos_label_) in # 2888 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkexpvar ~loc label ) # 44201 "parsing/parser.ml" in ( # 2900 "parsing/parser.mly" ( x :: xs ) # 44207 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = c; CamlinternalMenhirLib.EngineTypes.startp = _startpos_c_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_c_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let c : (Parsetree.type_constraint) = Obj.magic c in let label : ( # 819 "parsing/parser.mly" (string) # 44267 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let xs : ((string option * Parsetree.expression) list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos__5_ in let _v = let x = let _startpos__2_ = _startpos__2_inlined1_ in let _endpos = _endpos__5_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 2891 "parsing/parser.mly" ( Some label, mkexp_constraint ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_label_ label) c ) # 44286 "parsing/parser.ml" in ( # 2900 "parsing/parser.mly" ( x :: xs ) # 44292 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let x2 = let _1 = _1_inlined1 in let _1 = let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 44336 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 44341 "parsing/parser.ml" in # 2884 "parsing/parser.mly" ( None, _1 ) # 44347 "parsing/parser.ml" in let x1 = let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 44354 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 44359 "parsing/parser.ml" in ( # 2905 "parsing/parser.mly" ( [ x2; None, x1 ] ) # 44365 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (string Asttypes.loc option) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let x2 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 44433 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 44438 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 44444 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 44455 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 44461 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 44481 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 44487 "parsing/parser.ml" in # 2884 "parsing/parser.mly" ( None, _1 ) # 44493 "parsing/parser.ml" in let x1 = let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 44500 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 44505 "parsing/parser.ml" in ( # 2905 "parsing/parser.mly" ( [ x2; None, x1 ] ) # 44511 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _2_inlined1 : (Parsetree.expression) = Obj.magic _2_inlined1 in let _1_inlined1 : ( # 806 "parsing/parser.mly" (string) # 44552 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_inlined1_ in let _v = let x2 = let (_2, _1) = (_2_inlined1, _1_inlined1) in # 2886 "parsing/parser.mly" ( Some _1, _2 ) # 44565 "parsing/parser.ml" in let x1 = let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 44572 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 44577 "parsing/parser.ml" in ( # 2905 "parsing/parser.mly" ( [ x2; None, x1 ] ) # 44583 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let label : ( # 819 "parsing/parser.mly" (string) # 44623 "parsing/parser.ml" ) = Obj.magic label in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_label_ in let _v = let x2 = let _loc_label_ = (_startpos_label_, _endpos_label_) in # 2888 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkexpvar ~loc label ) # 44638 "parsing/parser.ml" in let x1 = let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 44645 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 44650 "parsing/parser.ml" in ( # 2905 "parsing/parser.mly" ( [ x2; None, x1 ] ) # 44656 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = c; CamlinternalMenhirLib.EngineTypes.startp = _startpos_c_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_c_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let c : (Parsetree.type_constraint) = Obj.magic c in let label : ( # 819 "parsing/parser.mly" (string) # 44716 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let x2 = let _startpos__2_ = _startpos__2_inlined1_ in let _endpos = _endpos__5_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 2891 "parsing/parser.mly" ( Some label, mkexp_constraint ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_label_ label) c ) # 44735 "parsing/parser.ml" in let x1 = let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 44742 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 44747 "parsing/parser.ml" in ( # 2905 "parsing/parser.mly" ( [ x2; None, x1 ] ) # 44753 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let _1_inlined3 : (Parsetree.expression) = Obj.magic _1_inlined3 in let _2 : unit = Obj.magic _2 in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in let _v = let x2 = let _1 = _1_inlined3 in let _1 = let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 44818 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 44823 "parsing/parser.ml" in # 2884 "parsing/parser.mly" ( None, _1 ) # 44829 "parsing/parser.ml" in let x1 = let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 44839 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 44844 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 44850 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 44861 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 44867 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 44887 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 44893 "parsing/parser.ml" in ( # 2905 "parsing/parser.mly" ( [ x2; None, x1 ] ) # 44899 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; } = _menhir_stack in let xs_inlined1 : (Parsetree.case list) = Obj.magic xs_inlined1 in let _1_inlined5 : (Parsetree.attributes) = Obj.magic _1_inlined5 in let _1_inlined4 : (string Asttypes.loc option) = Obj.magic _1_inlined4 in let _1_inlined3 : unit = Obj.magic _1_inlined3 in let _2 : unit = Obj.magic _2 in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_inlined1_ in let _v = let x2 = let (_endpos_xs_, _startpos__1_, xs, _1_inlined2, _1_inlined1) = (_endpos_xs_inlined1_, _startpos__1_inlined3_, xs_inlined1, _1_inlined5, _1_inlined4) in let _1 = let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 44988 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 44993 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 44999 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 45010 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 45016 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 45036 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 45042 "parsing/parser.ml" in # 2884 "parsing/parser.mly" ( None, _1 ) # 45048 "parsing/parser.ml" in let x1 = let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 45058 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 45063 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 45069 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 45080 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 45086 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 45106 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 45112 "parsing/parser.ml" in ( # 2905 "parsing/parser.mly" ( [ x2; None, x1 ] ) # 45118 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _2_inlined1 : (Parsetree.expression) = Obj.magic _2_inlined1 in let _1_inlined3 : ( # 806 "parsing/parser.mly" (string) # 45177 "parsing/parser.ml" ) = Obj.magic _1_inlined3 in let _2 : unit = Obj.magic _2 in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_inlined1_ in let _v = let x2 = let (_2, _1) = (_2_inlined1, _1_inlined3) in # 2886 "parsing/parser.mly" ( Some _1, _2 ) # 45193 "parsing/parser.ml" in let x1 = let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 45203 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 45208 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 45214 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 45225 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 45231 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 45251 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 45257 "parsing/parser.ml" in ( # 2905 "parsing/parser.mly" ( [ x2; None, x1 ] ) # 45263 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let label : ( # 819 "parsing/parser.mly" (string) # 45321 "parsing/parser.ml" ) = Obj.magic label in let _1_inlined3 : unit = Obj.magic _1_inlined3 in let _2 : unit = Obj.magic _2 in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_label_ in let _v = let x2 = let _loc_label_ = (_startpos_label_, _endpos_label_) in # 2888 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkexpvar ~loc label ) # 45339 "parsing/parser.ml" in let x1 = let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 45349 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 45354 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 45360 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 45371 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 45377 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 45397 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 45403 "parsing/parser.ml" in ( # 2905 "parsing/parser.mly" ( [ x2; None, x1 ] ) # 45409 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = c; CamlinternalMenhirLib.EngineTypes.startp = _startpos_c_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_c_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let c : (Parsetree.type_constraint) = Obj.magic c in let label : ( # 819 "parsing/parser.mly" (string) # 45487 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1_inlined3 : unit = Obj.magic _1_inlined3 in let _2 : unit = Obj.magic _2 in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let x2 = let _startpos__2_ = _startpos__2_inlined1_ in let _endpos = _endpos__5_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 2891 "parsing/parser.mly" ( Some label, mkexp_constraint ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_label_ label) c ) # 45509 "parsing/parser.ml" in let x1 = let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 45519 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 45524 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 45530 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 45541 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 45547 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 45567 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 45573 "parsing/parser.ml" in ( # 2905 "parsing/parser.mly" ( [ x2; None, x1 ] ) # 45579 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = l1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_l1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_l1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _1 : (Parsetree.expression) = Obj.magic _1 in let _3 : unit = Obj.magic _3 in let x1 : (Parsetree.expression) = Obj.magic x1 in let l1 : ( # 806 "parsing/parser.mly" (string) # 45622 "parsing/parser.ml" ) = Obj.magic l1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_l1_ in let _endpos = _endpos__1_ in let _v = let x2 = let _1 = let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 45633 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 45638 "parsing/parser.ml" in # 2884 "parsing/parser.mly" ( None, _1 ) # 45644 "parsing/parser.ml" in ( # 2909 "parsing/parser.mly" ( [ x2; Some l1, x1 ] ) # 45650 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = l1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_l1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_l1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _3 : unit = Obj.magic _3 in let x1 : (Parsetree.expression) = Obj.magic x1 in let l1 : ( # 806 "parsing/parser.mly" (string) # 45714 "parsing/parser.ml" ) = Obj.magic l1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_l1_ in let _endpos = _endpos_xs_ in let _v = let x2 = let _1 = let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 45728 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 45733 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 45739 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 45750 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 45756 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 45776 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 45782 "parsing/parser.ml" in # 2884 "parsing/parser.mly" ( None, _1 ) # 45788 "parsing/parser.ml" in ( # 2909 "parsing/parser.mly" ( [ x2; Some l1, x1 ] ) # 45794 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = l1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_l1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_l1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1 : ( # 806 "parsing/parser.mly" (string) # 45841 "parsing/parser.ml" ) = Obj.magic _1 in let _3 : unit = Obj.magic _3 in let x1 : (Parsetree.expression) = Obj.magic x1 in let l1 : ( # 806 "parsing/parser.mly" (string) # 45848 "parsing/parser.ml" ) = Obj.magic l1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_l1_ in let _endpos = _endpos__2_ in let _v = let x2 = # 2886 "parsing/parser.mly" ( Some _1, _2 ) # 45857 "parsing/parser.ml" in ( # 2909 "parsing/parser.mly" ( [ x2; Some l1, x1 ] ) # 45862 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = l1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_l1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_l1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let label : ( # 819 "parsing/parser.mly" (string) # 45908 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _3 : unit = Obj.magic _3 in let x1 : (Parsetree.expression) = Obj.magic x1 in let l1 : ( # 806 "parsing/parser.mly" (string) # 45916 "parsing/parser.ml" ) = Obj.magic l1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_l1_ in let _endpos = _endpos_label_ in let _v = let x2 = let _loc_label_ = (_startpos_label_, _endpos_label_) in # 2888 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkexpvar ~loc label ) # 45928 "parsing/parser.ml" in ( # 2909 "parsing/parser.mly" ( [ x2; Some l1, x1 ] ) # 45934 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = c; CamlinternalMenhirLib.EngineTypes.startp = _startpos_c_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_c_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = l1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_l1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_l1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let c : (Parsetree.type_constraint) = Obj.magic c in let label : ( # 819 "parsing/parser.mly" (string) # 46000 "parsing/parser.ml" ) = Obj.magic label in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _3 : unit = Obj.magic _3 in let x1 : (Parsetree.expression) = Obj.magic x1 in let l1 : ( # 806 "parsing/parser.mly" (string) # 46009 "parsing/parser.ml" ) = Obj.magic l1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_l1_ in let _endpos = _endpos__5_ in let _v = let x2 = let _endpos = _endpos__5_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 2891 "parsing/parser.mly" ( Some label, mkexp_constraint ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_label_ label) c ) # 46023 "parsing/parser.ml" in ( # 2909 "parsing/parser.mly" ( [ x2; Some l1, x1 ] ) # 46029 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = l1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_l1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_l1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in let _3 : unit = Obj.magic _3 in let l1 : ( # 819 "parsing/parser.mly" (string) # 46071 "parsing/parser.ml" ) = Obj.magic l1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let x2 = let _1 = _1_inlined1 in let _1 = let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 46084 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 46089 "parsing/parser.ml" in # 2884 "parsing/parser.mly" ( None, _1 ) # 46095 "parsing/parser.ml" in let _loc_l1_ = (_startpos_l1_, _endpos_l1_) in ( # 2913 "parsing/parser.mly" ( let loc = _loc_l1_ in [ x2; Some l1, mkexpvar ~loc l1] ) # 46103 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = l1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_l1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_l1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (string Asttypes.loc option) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _3 : unit = Obj.magic _3 in let l1 : ( # 819 "parsing/parser.mly" (string) # 46166 "parsing/parser.ml" ) = Obj.magic l1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let x2 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 46182 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 46187 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 46193 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 46204 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 46210 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 46230 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 46236 "parsing/parser.ml" in # 2884 "parsing/parser.mly" ( None, _1 ) # 46242 "parsing/parser.ml" in let _loc_l1_ = (_startpos_l1_, _endpos_l1_) in ( # 2913 "parsing/parser.mly" ( let loc = _loc_l1_ in [ x2; Some l1, mkexpvar ~loc l1] ) # 46250 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = l1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_l1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_l1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1_inlined1 : ( # 806 "parsing/parser.mly" (string) # 46297 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _3 : unit = Obj.magic _3 in let l1 : ( # 819 "parsing/parser.mly" (string) # 46303 "parsing/parser.ml" ) = Obj.magic l1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v = let x2 = let _1 = _1_inlined1 in # 2886 "parsing/parser.mly" ( Some _1, _2 ) # 46315 "parsing/parser.ml" in let _loc_l1_ = (_startpos_l1_, _endpos_l1_) in ( # 2913 "parsing/parser.mly" ( let loc = _loc_l1_ in [ x2; Some l1, mkexpvar ~loc l1] ) # 46323 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = l1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_l1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_l1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let label : ( # 819 "parsing/parser.mly" (string) # 46369 "parsing/parser.ml" ) = Obj.magic label in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _3 : unit = Obj.magic _3 in let l1 : ( # 819 "parsing/parser.mly" (string) # 46376 "parsing/parser.ml" ) = Obj.magic l1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_label_ in let _v = let x2 = let _loc_label_ = (_startpos_label_, _endpos_label_) in # 2888 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkexpvar ~loc label ) # 46389 "parsing/parser.ml" in let _loc_l1_ = (_startpos_l1_, _endpos_l1_) in ( # 2913 "parsing/parser.mly" ( let loc = _loc_l1_ in [ x2; Some l1, mkexpvar ~loc l1] ) # 46397 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = c; CamlinternalMenhirLib.EngineTypes.startp = _startpos_c_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_c_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = l1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_l1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_l1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let c : (Parsetree.type_constraint) = Obj.magic c in let label : ( # 819 "parsing/parser.mly" (string) # 46463 "parsing/parser.ml" ) = Obj.magic label in let _2 : unit = Obj.magic _2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _3 : unit = Obj.magic _3 in let l1 : ( # 819 "parsing/parser.mly" (string) # 46471 "parsing/parser.ml" ) = Obj.magic l1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let x2 = let _endpos = _endpos__5_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 2891 "parsing/parser.mly" ( Some label, mkexp_constraint ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_label_ label) c ) # 46486 "parsing/parser.ml" in let _loc_l1_ = (_startpos_l1_, _endpos_l1_) in ( # 2913 "parsing/parser.mly" ( let loc = _loc_l1_ in [ x2; Some l1, mkexpvar ~loc l1] ) # 46494 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = c; CamlinternalMenhirLib.EngineTypes.startp = _startpos_c_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_c_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = l1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_l1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_l1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in let _6 : unit = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let c : (Parsetree.type_constraint) = Obj.magic c in let l1 : ( # 819 "parsing/parser.mly" (string) # 46556 "parsing/parser.ml" ) = Obj.magic l1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let x2 = let _1 = _1_inlined1 in let _1 = let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 46570 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 46575 "parsing/parser.ml" in # 2884 "parsing/parser.mly" ( None, _1 ) # 46581 "parsing/parser.ml" in let _endpos_x2_ = _endpos__1_inlined1_ in let _endpos = _endpos_x2_ in let _loc_l1_ = (_startpos_l1_, _endpos_l1_) in ( # 2918 "parsing/parser.mly" ( let x1 = mkexp_constraint ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_l1_ l1) c in [ x2; Some l1, x1] ) # 46594 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = c; CamlinternalMenhirLib.EngineTypes.startp = _startpos_c_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_c_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = l1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_l1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_l1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let _1_inlined2 : (string Asttypes.loc option) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _6 : unit = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let c : (Parsetree.type_constraint) = Obj.magic c in let l1 : ( # 819 "parsing/parser.mly" (string) # 46677 "parsing/parser.ml" ) = Obj.magic l1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let x2 = let (_startpos__1_, _1_inlined2, _1_inlined1) = (_startpos__1_inlined1_, _1_inlined3, _1_inlined2) in let _1 = let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 46694 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 46699 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 46705 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 46716 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 46722 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 46742 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 46748 "parsing/parser.ml" in # 2884 "parsing/parser.mly" ( None, _1 ) # 46754 "parsing/parser.ml" in let _endpos_x2_ = _endpos_xs_ in let _endpos = _endpos_x2_ in let _loc_l1_ = (_startpos_l1_, _endpos_l1_) in ( # 2918 "parsing/parser.mly" ( let x1 = mkexp_constraint ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_l1_ l1) c in [ x2; Some l1, x1] ) # 46767 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = c; CamlinternalMenhirLib.EngineTypes.startp = _startpos_c_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_c_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = l1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_l1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_l1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; } = _menhir_stack in let _2_inlined1 : (Parsetree.expression) = Obj.magic _2_inlined1 in let _1_inlined1 : ( # 806 "parsing/parser.mly" (string) # 46832 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _6 : unit = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let c : (Parsetree.type_constraint) = Obj.magic c in let l1 : ( # 819 "parsing/parser.mly" (string) # 46840 "parsing/parser.ml" ) = Obj.magic l1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_inlined1_ in let _v = let x2 = let (_2, _1) = (_2_inlined1, _1_inlined1) in # 2886 "parsing/parser.mly" ( Some _1, _2 ) # 46853 "parsing/parser.ml" in let _endpos_x2_ = _endpos__2_inlined1_ in let _endpos = _endpos_x2_ in let _loc_l1_ = (_startpos_l1_, _endpos_l1_) in ( # 2918 "parsing/parser.mly" ( let x1 = mkexp_constraint ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_l1_ l1) c in [ x2; Some l1, x1] ) # 46866 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = c; CamlinternalMenhirLib.EngineTypes.startp = _startpos_c_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_c_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = l1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_l1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_l1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; } = _menhir_stack in let label : ( # 819 "parsing/parser.mly" (string) # 46930 "parsing/parser.ml" ) = Obj.magic label in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _6 : unit = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let c : (Parsetree.type_constraint) = Obj.magic c in let l1 : ( # 819 "parsing/parser.mly" (string) # 46939 "parsing/parser.ml" ) = Obj.magic l1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_label_ in let _v = let x2 = let _loc_label_ = (_startpos_label_, _endpos_label_) in # 2888 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkexpvar ~loc label ) # 46953 "parsing/parser.ml" in let _endpos_x2_ = _endpos_label_ in let _endpos = _endpos_x2_ in let _loc_l1_ = (_startpos_l1_, _endpos_l1_) in ( # 2918 "parsing/parser.mly" ( let x1 = mkexp_constraint ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_l1_ l1) c in [ x2; Some l1, x1] ) # 46966 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = c_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_c_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_c_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = c; CamlinternalMenhirLib.EngineTypes.startp = _startpos_c_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_c_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = l1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_l1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_l1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let _5_inlined1 : unit = Obj.magic _5_inlined1 in let c_inlined1 : (Parsetree.type_constraint) = Obj.magic c_inlined1 in let label : ( # 819 "parsing/parser.mly" (string) # 47050 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _6 : unit = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let c : (Parsetree.type_constraint) = Obj.magic c in let l1 : ( # 819 "parsing/parser.mly" (string) # 47060 "parsing/parser.ml" ) = Obj.magic l1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_inlined1_ in let _v = let x2 = let (_endpos__5_, _startpos__2_, c) = (_endpos__5_inlined1_, _startpos__2_inlined1_, c_inlined1) in let _endpos = _endpos__5_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 2891 "parsing/parser.mly" ( Some label, mkexp_constraint ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_label_ label) c ) # 47077 "parsing/parser.ml" in let _endpos_x2_ = _endpos__5_inlined1_ in let _endpos = _endpos_x2_ in let _loc_l1_ = (_startpos_l1_, _endpos_l1_) in ( # 2918 "parsing/parser.mly" ( let x1 = mkexp_constraint ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_l1_ l1) c in [ x2; Some l1, x1] ) # 47090 "parsing/parser.ml" : ((string option * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ((string option * Parsetree.pattern) list) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.closed_flag * (string option * Parsetree.pattern) list) = # 3181 "parsing/parser.mly" ( Closed, _1 ) # 47116 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ((string option * Parsetree.pattern) list) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Asttypes.closed_flag * (string option * Parsetree.pattern) list) = # 3183 "parsing/parser.mly" ( Open, _1 ) # 47155 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = # 3159 "parsing/parser.mly" ( None, _1 ) # 47195 "parsing/parser.ml" in ( # 3185 "parsing/parser.mly" ( Open, [ _1 ] ) # 47200 "parsing/parser.ml" : (Asttypes.closed_flag * (string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in let _1 : ( # 806 "parsing/parser.mly" (string) # 47243 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _2 = _2_inlined1 in # 3161 "parsing/parser.mly" ( Some _1, _2 ) # 47254 "parsing/parser.ml" in ( # 3185 "parsing/parser.mly" ( Open, [ _1 ] ) # 47260 "parsing/parser.ml" : (Asttypes.closed_flag * (string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let label : ( # 819 "parsing/parser.mly" (string) # 47302 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3163 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) # 47315 "parsing/parser.ml" in ( # 3185 "parsing/parser.mly" ( Open, [ _1 ] ) # 47321 "parsing/parser.ml" : (Asttypes.closed_flag * (string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = cty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_cty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_cty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _6 : unit = Obj.magic _6 in let cty : (Parsetree.core_type) = Obj.magic cty in let _4 : unit = Obj.magic _4 in let label : ( # 819 "parsing/parser.mly" (string) # 47390 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _startpos__2_ = _startpos__2_inlined1_ in let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3166 "parsing/parser.mly" ( let lbl_loc = _loc_label_ in let pat_loc = _startpos__2_, _endpos in let pat = mkpatvar ~loc:lbl_loc label in Some label, mkpat ~loc:pat_loc (Ppat_constraint(pat, cty)) ) # 47408 "parsing/parser.ml" in ( # 3185 "parsing/parser.mly" ( Open, [ _1 ] ) # 47414 "parsing/parser.ml" : (Asttypes.closed_flag * (string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ((string option * Parsetree.pattern) list) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.closed_flag * (string option * Parsetree.pattern) list) = # 3181 "parsing/parser.mly" ( Closed, _1 ) # 47440 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ((string option * Parsetree.pattern) list) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Asttypes.closed_flag * (string option * Parsetree.pattern) list) = # 3183 "parsing/parser.mly" ( Open, _1 ) # 47479 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = # 3159 "parsing/parser.mly" ( None, _1 ) # 47519 "parsing/parser.ml" in ( # 3185 "parsing/parser.mly" ( Open, [ _1 ] ) # 47524 "parsing/parser.ml" : (Asttypes.closed_flag * (string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in let _1 : ( # 806 "parsing/parser.mly" (string) # 47567 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _2 = _2_inlined1 in # 3161 "parsing/parser.mly" ( Some _1, _2 ) # 47578 "parsing/parser.ml" in ( # 3185 "parsing/parser.mly" ( Open, [ _1 ] ) # 47584 "parsing/parser.ml" : (Asttypes.closed_flag * (string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let label : ( # 819 "parsing/parser.mly" (string) # 47626 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3163 "parsing/parser.mly" ( let loc = _loc_label_ in Some label, mkpatvar ~loc label ) # 47639 "parsing/parser.ml" in ( # 3185 "parsing/parser.mly" ( Open, [ _1 ] ) # 47645 "parsing/parser.ml" : (Asttypes.closed_flag * (string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = cty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_cty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_cty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _6 : unit = Obj.magic _6 in let cty : (Parsetree.core_type) = Obj.magic cty in let _4 : unit = Obj.magic _4 in let label : ( # 819 "parsing/parser.mly" (string) # 47714 "parsing/parser.ml" ) = Obj.magic label in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _startpos__2_ = _startpos__2_inlined1_ in let _endpos = _endpos__6_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in # 3166 "parsing/parser.mly" ( let lbl_loc = _loc_label_ in let pat_loc = _startpos__2_, _endpos in let pat = mkpatvar ~loc:lbl_loc label in Some label, mkpat ~loc:pat_loc (Ppat_constraint(pat, cty)) ) # 47732 "parsing/parser.ml" in ( # 3185 "parsing/parser.mly" ( Open, [ _1 ] ) # 47738 "parsing/parser.ml" : (Asttypes.closed_flag * (string option * Parsetree.pattern) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : ((Parsetree.core_type * Parsetree.core_type * Ast_helper.loc) list) = # 1080 "parsing/parser.mly" ( [] ) # 47757 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _3 : (Parsetree.core_type) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1_inlined1 : (Parsetree.core_type) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let xs : ((Parsetree.core_type * Parsetree.core_type * Ast_helper.loc) list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos__3_ in let _v = let x = let x = let (_startpos__1_, _1) = (_startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2241 "parsing/parser.mly" ( _1, _3, make_loc _sloc ) # 47817 "parsing/parser.ml" in # 188 "" ( x ) # 47823 "parsing/parser.ml" in ( # 1082 "parsing/parser.mly" ( x :: xs ) # 47829 "parsing/parser.ml" : ((Parsetree.core_type * Parsetree.core_type * Ast_helper.loc) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let x : (Parsetree.function_param list) = Obj.magic x in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (Parsetree.function_param list) = # 1113 "parsing/parser.mly" ( List.rev x ) # 47855 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let x : (Parsetree.function_param list) = Obj.magic x in let xs : (Parsetree.function_param list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.function_param list) = # 1115 "parsing/parser.mly" ( List.rev_append x xs ) # 47887 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let x : (Lexing.position * Parsetree.functor_parameter) = Obj.magic x in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : ((Lexing.position * Parsetree.functor_parameter) list) = # 1094 "parsing/parser.mly" ( [ x ] ) # 47912 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let x : (Lexing.position * Parsetree.functor_parameter) = Obj.magic x in let xs : ((Lexing.position * Parsetree.functor_parameter) list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : ((Lexing.position * Parsetree.functor_parameter) list) = # 1096 "parsing/parser.mly" ( x :: xs ) # 47944 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let x : (Asttypes.arg_label * Parsetree.expression) = Obj.magic x in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : ((Asttypes.arg_label * Parsetree.expression) list) = # 1094 "parsing/parser.mly" ( [ x ] ) # 47969 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let x : (Asttypes.arg_label * Parsetree.expression) = Obj.magic x in let xs : ((Asttypes.arg_label * Parsetree.expression) list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : ((Asttypes.arg_label * Parsetree.expression) list) = # 1096 "parsing/parser.mly" ( x :: xs ) # 48001 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let x : (Asttypes.label) = Obj.magic x in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (Asttypes.label list) = # 1094 "parsing/parser.mly" ( [ x ] ) # 48026 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let x : (Asttypes.label) = Obj.magic x in let xs : (Asttypes.label list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Asttypes.label list) = # 1096 "parsing/parser.mly" ( x :: xs ) # 48058 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Asttypes.label) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v = let x = let _endpos = _endpos__2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3612 "parsing/parser.mly" ( mkrhs _2 _sloc ) # 48095 "parsing/parser.ml" in ( # 1094 "parsing/parser.mly" ( [ x ] ) # 48101 "parsing/parser.ml" : (Asttypes.label Asttypes.loc list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _2 : (Asttypes.label) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let xs : (Asttypes.label Asttypes.loc list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos__2_ in let _v = let x = let _endpos = _endpos__2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3612 "parsing/parser.mly" ( mkrhs _2 _sloc ) # 48146 "parsing/parser.ml" in ( # 1096 "parsing/parser.mly" ( x :: xs ) # 48152 "parsing/parser.ml" : (Asttypes.label Asttypes.loc list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let x : (Parsetree.case) = Obj.magic x in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v = let _1 = # 123 "" ( None ) # 48179 "parsing/parser.ml" in ( # 1206 "parsing/parser.mly" ( [x] ) # 48184 "parsing/parser.ml" : (Parsetree.case list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = x_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_inlined1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let x : (Parsetree.case) = Obj.magic x in let x_inlined1 : unit = Obj.magic x_inlined1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_x_inlined1_ in let _endpos = _endpos_x_ in let _v = let _1 = let x = x_inlined1 in # 126 "" ( Some x ) # 48220 "parsing/parser.ml" in ( # 1206 "parsing/parser.mly" ( [x] ) # 48226 "parsing/parser.ml" : (Parsetree.case list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let x : (Parsetree.case) = Obj.magic x in let _2 : unit = Obj.magic _2 in let xs : (Parsetree.case list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.case list) = # 1210 "parsing/parser.mly" ( x :: xs ) # 48266 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.core_type) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let xs = let x = # 3655 "parsing/parser.mly" ( _1 ) # 48293 "parsing/parser.ml" in # 1141 "parsing/parser.mly" ( [ x ] ) # 48298 "parsing/parser.ml" in ( # 1149 "parsing/parser.mly" ( xs ) # 48304 "parsing/parser.ml" : (Parsetree.core_type list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1 : (Parsetree.core_type) = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let xs : (Parsetree.core_type list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos__1_ in let _v = let xs = let x = # 3655 "parsing/parser.mly" ( _1 ) # 48346 "parsing/parser.ml" in # 1145 "parsing/parser.mly" ( x :: xs ) # 48351 "parsing/parser.ml" in ( # 1149 "parsing/parser.mly" ( xs ) # 48357 "parsing/parser.ml" : (Parsetree.core_type list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let x : (Parsetree.with_constraint) = Obj.magic x in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v = let xs = # 1141 "parsing/parser.mly" ( [ x ] ) # 48384 "parsing/parser.ml" in ( # 1149 "parsing/parser.mly" ( xs ) # 48389 "parsing/parser.ml" : (Parsetree.with_constraint list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let x : (Parsetree.with_constraint) = Obj.magic x in let _2 : unit = Obj.magic _2 in let xs : (Parsetree.with_constraint list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v = let xs = # 1145 "parsing/parser.mly" ( x :: xs ) # 48430 "parsing/parser.ml" in ( # 1149 "parsing/parser.mly" ( xs ) # 48435 "parsing/parser.ml" : (Parsetree.with_constraint list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let x : (Parsetree.row_field) = Obj.magic x in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v = let xs = # 1141 "parsing/parser.mly" ( [ x ] ) # 48462 "parsing/parser.ml" in ( # 1149 "parsing/parser.mly" ( xs ) # 48467 "parsing/parser.ml" : (Parsetree.row_field list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let x : (Parsetree.row_field) = Obj.magic x in let _2 : unit = Obj.magic _2 in let xs : (Parsetree.row_field list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v = let xs = # 1145 "parsing/parser.mly" ( x :: xs ) # 48508 "parsing/parser.ml" in ( # 1149 "parsing/parser.mly" ( xs ) # 48513 "parsing/parser.ml" : (Parsetree.row_field list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let x : (Parsetree.core_type) = Obj.magic x in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v = let xs = # 1141 "parsing/parser.mly" ( [ x ] ) # 48540 "parsing/parser.ml" in ( # 1149 "parsing/parser.mly" ( xs ) # 48545 "parsing/parser.ml" : (Parsetree.core_type list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let x : (Parsetree.core_type) = Obj.magic x in let _2 : unit = Obj.magic _2 in let xs : (Parsetree.core_type list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v = let xs = # 1145 "parsing/parser.mly" ( x :: xs ) # 48586 "parsing/parser.ml" in ( # 1149 "parsing/parser.mly" ( xs ) # 48591 "parsing/parser.ml" : (Parsetree.core_type list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let x : (Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) = Obj.magic x in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v = let xs = # 1141 "parsing/parser.mly" ( [ x ] ) # 48618 "parsing/parser.ml" in ( # 1149 "parsing/parser.mly" ( xs ) # 48623 "parsing/parser.ml" : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let x : (Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) = Obj.magic x in let _2 : unit = Obj.magic _2 in let xs : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v = let xs = # 1145 "parsing/parser.mly" ( x :: xs ) # 48664 "parsing/parser.ml" in ( # 1149 "parsing/parser.mly" ( xs ) # 48669 "parsing/parser.ml" : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let x : (Parsetree.core_type) = Obj.magic x in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v = let xs = # 1141 "parsing/parser.mly" ( [ x ] ) # 48696 "parsing/parser.ml" in ( # 1149 "parsing/parser.mly" ( xs ) # 48701 "parsing/parser.ml" : (Parsetree.core_type list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let x : (Parsetree.core_type) = Obj.magic x in let _2 : unit = Obj.magic _2 in let xs : (Parsetree.core_type list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v = let xs = # 1145 "parsing/parser.mly" ( x :: xs ) # 48742 "parsing/parser.ml" in ( # 1149 "parsing/parser.mly" ( xs ) # 48747 "parsing/parser.ml" : (Parsetree.core_type list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.core_type) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let xs = let x = # 3755 "parsing/parser.mly" ( None, _1 ) # 48775 "parsing/parser.ml" in # 1141 "parsing/parser.mly" ( [ x ] ) # 48780 "parsing/parser.ml" in ( # 1149 "parsing/parser.mly" ( xs ) # 48786 "parsing/parser.ml" : ((string option * Parsetree.core_type) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let ty : (Parsetree.core_type) = Obj.magic ty in let _2 : unit = Obj.magic _2 in let label : ( # 819 "parsing/parser.mly" (string) # 48822 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in let _endpos = _endpos_ty_ in let _v = let xs = let x = # 3757 "parsing/parser.mly" ( Some label, ty ) # 48832 "parsing/parser.ml" in # 1141 "parsing/parser.mly" ( [ x ] ) # 48837 "parsing/parser.ml" in ( # 1149 "parsing/parser.mly" ( xs ) # 48843 "parsing/parser.ml" : ((string option * Parsetree.core_type) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1 : (Parsetree.core_type) = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let xs : ((string option * Parsetree.core_type) list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos__1_ in let _v = let xs = let x = # 3755 "parsing/parser.mly" ( None, _1 ) # 48885 "parsing/parser.ml" in # 1145 "parsing/parser.mly" ( x :: xs ) # 48890 "parsing/parser.ml" in ( # 1149 "parsing/parser.mly" ( xs ) # 48896 "parsing/parser.ml" : ((string option * Parsetree.core_type) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = label; CamlinternalMenhirLib.EngineTypes.startp = _startpos_label_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_label_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let ty : (Parsetree.core_type) = Obj.magic ty in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let label : ( # 819 "parsing/parser.mly" (string) # 48944 "parsing/parser.ml" ) = Obj.magic label in let _2 : unit = Obj.magic _2 in let xs : ((string option * Parsetree.core_type) list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_ty_ in let _v = let xs = let x = # 3757 "parsing/parser.mly" ( Some label, ty ) # 48956 "parsing/parser.ml" in # 1145 "parsing/parser.mly" ( x :: xs ) # 48961 "parsing/parser.ml" in ( # 1149 "parsing/parser.mly" ( xs ) # 48967 "parsing/parser.ml" : ((string option * Parsetree.core_type) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let x : (Parsetree.core_type) = Obj.magic x in let _2 : unit = Obj.magic _2 in let xs : (Parsetree.core_type list) = Obj.magic xs in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.core_type list) = # 1172 "parsing/parser.mly" ( x :: xs ) # 49007 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x2; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = x1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let x2 : (Parsetree.core_type) = Obj.magic x2 in let _2 : unit = Obj.magic _2 in let x1 : (Parsetree.core_type) = Obj.magic x1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_x1_ in let _endpos = _endpos_x2_ in let _v : (Parsetree.core_type list) = # 1176 "parsing/parser.mly" ( [ x2; x1 ] ) # 49046 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.row_field) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.row_field) = # 3898 "parsing/parser.mly" ( _1 ) # 49071 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.core_type) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3900 "parsing/parser.mly" ( Rf.inherit_ ~loc:(make_loc _sloc) _1 ) # 49100 "parsing/parser.ml" : (Parsetree.row_field)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _2 = # 123 "" ( None ) # 49127 "parsing/parser.ml" in let x = let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 49133 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 49138 "parsing/parser.ml" in ( # 1193 "parsing/parser.mly" ( [x] ) # 49144 "parsing/parser.ml" : (Parsetree.expression list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let x : unit = Obj.magic x in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_x_ in let _v = let _2 = # 126 "" ( Some x ) # 49178 "parsing/parser.ml" in let x = let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 49184 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 49189 "parsing/parser.ml" in ( # 1193 "parsing/parser.mly" ( [x] ) # 49195 "parsing/parser.ml" : (Parsetree.expression list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let _2 = # 123 "" ( None ) # 49243 "parsing/parser.ml" in let x = let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 49252 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 49257 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 49263 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 49274 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 49280 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 49300 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 49306 "parsing/parser.ml" in ( # 1193 "parsing/parser.mly" ( [x] ) # 49312 "parsing/parser.ml" : (Parsetree.expression list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let x : unit = Obj.magic x in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_x_ in let _v = let _2 = # 126 "" ( Some x ) # 49367 "parsing/parser.ml" in let x = let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 49376 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 49381 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 49387 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 49398 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 49404 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 49424 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 49430 "parsing/parser.ml" in ( # 1193 "parsing/parser.mly" ( [x] ) # 49436 "parsing/parser.ml" : (Parsetree.expression list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let xs : (Parsetree.expression list) = Obj.magic xs in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let x = let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 49478 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 49483 "parsing/parser.ml" in ( # 1197 "parsing/parser.mly" ( x :: xs ) # 49489 "parsing/parser.ml" : (Parsetree.expression list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let xs : (Parsetree.expression list) = Obj.magic xs in let _2 : unit = Obj.magic _2 in let xs_inlined1 : (Parsetree.case list) = Obj.magic xs_inlined1 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let x = let (_endpos_xs_, xs) = (_endpos_xs_inlined1_, xs_inlined1) in let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 49556 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 49561 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 49567 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 49578 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 49584 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 49604 "parsing/parser.ml" in # 2474 "parsing/parser.mly" ( _1 ) # 49610 "parsing/parser.ml" in ( # 1197 "parsing/parser.mly" ( x :: xs ) # 49616 "parsing/parser.ml" : (Parsetree.expression list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = oe; CamlinternalMenhirLib.EngineTypes.startp = _startpos_oe_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_oe_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let oe : (Parsetree.expression option) = Obj.magic oe in let _1 : ( # 819 "parsing/parser.mly" (string) # 49645 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_oe_ in let _v = let _2 = # 123 "" ( None ) # 49654 "parsing/parser.ml" in let x = let label = let _1 = # 3962 "parsing/parser.mly" ( _1 ) # 49661 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 49669 "parsing/parser.ml" in # 2954 "parsing/parser.mly" ( let label, e = match oe with | None -> (* No expression; this is a pun. Desugar it. *) make_ghost label, exp_of_label label | Some e -> label, e in label, e ) # 49683 "parsing/parser.ml" in ( # 1193 "parsing/parser.mly" ( [x] ) # 49689 "parsing/parser.ml" : ((Asttypes.label Asttypes.loc * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = oe; CamlinternalMenhirLib.EngineTypes.startp = _startpos_oe_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_oe_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let x : unit = Obj.magic x in let oe : (Parsetree.expression option) = Obj.magic oe in let _1 : ( # 819 "parsing/parser.mly" (string) # 49725 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_x_ in let _v = let _2 = # 126 "" ( Some x ) # 49734 "parsing/parser.ml" in let x = let label = let _1 = # 3962 "parsing/parser.mly" ( _1 ) # 49741 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 49749 "parsing/parser.ml" in # 2954 "parsing/parser.mly" ( let label, e = match oe with | None -> (* No expression; this is a pun. Desugar it. *) make_ghost label, exp_of_label label | Some e -> label, e in label, e ) # 49763 "parsing/parser.ml" in ( # 1193 "parsing/parser.mly" ( [x] ) # 49769 "parsing/parser.ml" : ((Asttypes.label Asttypes.loc * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = oe; CamlinternalMenhirLib.EngineTypes.startp = _startpos_oe_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_oe_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let xs : ((Asttypes.label Asttypes.loc * Parsetree.expression) list) = Obj.magic xs in let _2 : unit = Obj.magic _2 in let oe : (Parsetree.expression option) = Obj.magic oe in let _1 : ( # 819 "parsing/parser.mly" (string) # 49812 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let x = let label = let _1 = # 3962 "parsing/parser.mly" ( _1 ) # 49823 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 49831 "parsing/parser.ml" in # 2954 "parsing/parser.mly" ( let label, e = match oe with | None -> (* No expression; this is a pun. Desugar it. *) make_ghost label, exp_of_label label | Some e -> label, e in label, e ) # 49845 "parsing/parser.ml" in ( # 1197 "parsing/parser.mly" ( x :: xs ) # 49851 "parsing/parser.ml" : ((Asttypes.label Asttypes.loc * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let x : (Parsetree.pattern) = Obj.magic x in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v = let _2 = # 123 "" ( None ) # 49878 "parsing/parser.ml" in ( # 1193 "parsing/parser.mly" ( [x] ) # 49883 "parsing/parser.ml" : (Parsetree.pattern list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let x_inlined1 : unit = Obj.magic x_inlined1 in let x : (Parsetree.pattern) = Obj.magic x in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_x_inlined1_ in let _v = let _2 = let x = x_inlined1 in # 126 "" ( Some x ) # 49919 "parsing/parser.ml" in ( # 1193 "parsing/parser.mly" ( [x] ) # 49925 "parsing/parser.ml" : (Parsetree.pattern list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let xs : (Parsetree.pattern list) = Obj.magic xs in let _2 : unit = Obj.magic _2 in let x : (Parsetree.pattern) = Obj.magic x in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_x_ in let _endpos = _endpos_xs_ in let _v : (Parsetree.pattern list) = # 1197 "parsing/parser.mly" ( x :: xs ) # 49965 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = eo; CamlinternalMenhirLib.EngineTypes.startp = _startpos_eo_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_eo_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = c; CamlinternalMenhirLib.EngineTypes.startp = _startpos_c_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_c_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let eo : (Parsetree.expression option) = Obj.magic eo in let c : (Parsetree.type_constraint option) = Obj.magic c in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_eo_ in let _v = let _2 = # 123 "" ( None ) # 50005 "parsing/parser.ml" in let x = let label = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 50015 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in let _endpos = _endpos_eo_ in let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in # 2937 "parsing/parser.mly" ( let constraint_loc, label, e = match eo with | None -> (* No pattern; this is a pun. Desugar it. *) _sloc, make_ghost label, exp_of_longident label | Some e -> (_startpos_c_, _endpos), label, e in label, mkexp_opt_constraint ~loc:constraint_loc e c ) # 50033 "parsing/parser.ml" in ( # 1193 "parsing/parser.mly" ( [x] ) # 50039 "parsing/parser.ml" : ((Longident.t Asttypes.loc * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = x; CamlinternalMenhirLib.EngineTypes.startp = _startpos_x_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_x_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = eo; CamlinternalMenhirLib.EngineTypes.startp = _startpos_eo_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_eo_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = c; CamlinternalMenhirLib.EngineTypes.startp = _startpos_c_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_c_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let x : unit = Obj.magic x in let eo : (Parsetree.expression option) = Obj.magic eo in let c : (Parsetree.type_constraint option) = Obj.magic c in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_x_ in let _v = let _2 = # 126 "" ( Some x ) # 50087 "parsing/parser.ml" in let x = let label = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 50097 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in let _endpos = _endpos_eo_ in let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in # 2937 "parsing/parser.mly" ( let constraint_loc, label, e = match eo with | None -> (* No pattern; this is a pun. Desugar it. *) _sloc, make_ghost label, exp_of_longident label | Some e -> (_startpos_c_, _endpos), label, e in label, mkexp_opt_constraint ~loc:constraint_loc e c ) # 50115 "parsing/parser.ml" in ( # 1193 "parsing/parser.mly" ( [x] ) # 50121 "parsing/parser.ml" : ((Longident.t Asttypes.loc * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = eo; CamlinternalMenhirLib.EngineTypes.startp = _startpos_eo_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_eo_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = c; CamlinternalMenhirLib.EngineTypes.startp = _startpos_c_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_c_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let xs : ((Longident.t Asttypes.loc * Parsetree.expression) list) = Obj.magic xs in let _2 : unit = Obj.magic _2 in let eo : (Parsetree.expression option) = Obj.magic eo in let c : (Parsetree.type_constraint option) = Obj.magic c in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let x = let label = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 50181 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in let _endpos = _endpos_eo_ in let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in # 2937 "parsing/parser.mly" ( let constraint_loc, label, e = match eo with | None -> (* No pattern; this is a pun. Desugar it. *) _sloc, make_ghost label, exp_of_longident label | Some e -> (_startpos_c_, _endpos), label, e in label, mkexp_opt_constraint ~loc:constraint_loc e c ) # 50199 "parsing/parser.ml" in ( # 1197 "parsing/parser.mly" ( x :: xs ) # 50205 "parsing/parser.ml" : ((Longident.t Asttypes.loc * Parsetree.expression) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = # 2331 "parsing/parser.mly" ( _1 ) # 50232 "parsing/parser.ml" in ( # 2367 "parsing/parser.mly" ( _1 ) # 50237 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let xs : (Parsetree.case list) = Obj.magic xs in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let _1 = let _3 = let xs = let xs = # 264 "" ( List.rev xs ) # 50288 "parsing/parser.ml" in # 1218 "parsing/parser.mly" ( xs ) # 50293 "parsing/parser.ml" in # 2816 "parsing/parser.mly" ( xs ) # 50299 "parsing/parser.ml" in let _endpos__3_ = _endpos_xs_ in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 50310 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 50316 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2333 "parsing/parser.mly" ( let loc = make_loc _sloc in let cases = _3 in (* There are two choices of where to put attributes: on the Pexp_function node; on the Pfunction_cases body. We put them on the Pexp_function node here because the compiler only uses Pfunction_cases attributes for enabling/disabling warnings in typechecking. For standalone function cases, we want the compiler to respect, e.g., [@inline] attributes. *) let desc = mkfunction [] None (Pfunction_cases (cases, loc, [])) in mkexp_attrs ~loc:_sloc desc _2 ) # 50336 "parsing/parser.ml" in ( # 2367 "parsing/parser.mly" ( _1 ) # 50342 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = vars_args_res; CamlinternalMenhirLib.EngineTypes.startp = _startpos_vars_args_res_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_vars_args_res_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined4 : (Parsetree.attributes) = Obj.magic _1_inlined4 in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let vars_args_res : (Ast_helper.str list * Parsetree.constructor_arguments * Parsetree.core_type option) = Obj.magic vars_args_res in let _1_inlined2 : (Asttypes.label) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined4_ in let _v = let attrs = let _1 = _1_inlined4 in # 4308 "parsing/parser.mly" ( _1 ) # 50414 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined4_ in let attrs2 = let _1 = _1_inlined3 in # 4312 "parsing/parser.mly" ( _1 ) # 50423 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 50435 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 50443 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _startpos = _startpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3471 "parsing/parser.mly" ( let vars, args, res = vars_args_res in let loc = make_loc (_startpos, _endpos_attrs2_) in let docs = symbol_docs _sloc in Te.mk_exception ~attrs ~loc (Te.decl id ~vars ~args ?res ~attrs:(attrs1 @ attrs2) ~loc ~docs) , ext ) # 50458 "parsing/parser.ml" : (Parsetree.type_exception * string Asttypes.loc option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xss; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xss_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xss_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let xss : (Parsetree.signature_item list list) = Obj.magic xss in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xss_ in let _endpos = _endpos_xss_ in let _v = let _1 = let _1 = # 271 "" ( List.flatten xss ) # 50486 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 999 "parsing/parser.mly" ( extra_sig _startpos _endpos _1 ) # 50494 "parsing/parser.ml" in ( # 1781 "parsing/parser.mly" ( _1 ) # 50500 "parsing/parser.ml" : (Parsetree.signature)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : (Parsetree.extension) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let _1 = let _2 = let _1 = _1_inlined1 in # 4308 "parsing/parser.mly" ( _1 ) # 50538 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in let _endpos = _endpos__2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1797 "parsing/parser.mly" ( psig_extension _1 (add_docs_attrs (symbol_docs _sloc) _2) ) # 50548 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1060 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 50558 "parsing/parser.ml" in ( # 1833 "parsing/parser.mly" ( _1 ) # 50564 "parsing/parser.ml" : (Parsetree.signature_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.attribute) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 1799 "parsing/parser.mly" ( psig_attribute _1 ) # 50592 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1060 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 50600 "parsing/parser.ml" in ( # 1833 "parsing/parser.mly" ( _1 ) # 50606 "parsing/parser.ml" : (Parsetree.signature_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.value_description * string Asttypes.loc option) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 1801 "parsing/parser.mly" ( psig_value _1 ) # 50634 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1060 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 50642 "parsing/parser.ml" in ( # 1833 "parsing/parser.mly" ( _1 ) # 50648 "parsing/parser.ml" : (Parsetree.signature_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.value_description * string Asttypes.loc option) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 1803 "parsing/parser.mly" ( psig_value _1 ) # 50676 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1060 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 50684 "parsing/parser.ml" in ( # 1833 "parsing/parser.mly" ( _1 ) # 50690 "parsing/parser.ml" : (Parsetree.signature_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = bs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_bs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_bs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = a; CamlinternalMenhirLib.EngineTypes.startp = _startpos_a_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_a_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let bs : (Parsetree.type_declaration list) = Obj.magic bs in let a : ((Asttypes.rec_flag * string Asttypes.loc option) * Parsetree.type_declaration) = Obj.magic a in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_a_ in let _endpos = _endpos_bs_ in let _v = let _1 = let _1 = let _1 = let _1 = let _1 = # 1254 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) # 50729 "parsing/parser.ml" in # 3288 "parsing/parser.mly" ( _1 ) # 50734 "parsing/parser.ml" in # 3271 "parsing/parser.mly" ( _1 ) # 50740 "parsing/parser.ml" in # 1805 "parsing/parser.mly" ( psig_type _1 ) # 50746 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_bs_, _startpos_a_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1060 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 50756 "parsing/parser.ml" in ( # 1833 "parsing/parser.mly" ( _1 ) # 50762 "parsing/parser.ml" : (Parsetree.signature_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = bs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_bs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_bs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = a; CamlinternalMenhirLib.EngineTypes.startp = _startpos_a_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_a_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let bs : (Parsetree.type_declaration list) = Obj.magic bs in let a : ((Asttypes.rec_flag * string Asttypes.loc option) * Parsetree.type_declaration) = Obj.magic a in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_a_ in let _endpos = _endpos_bs_ in let _v = let _1 = let _1 = let _1 = let _1 = let _1 = # 1254 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) # 50801 "parsing/parser.ml" in # 3288 "parsing/parser.mly" ( _1 ) # 50806 "parsing/parser.ml" in # 3276 "parsing/parser.mly" ( _1 ) # 50812 "parsing/parser.ml" in # 1807 "parsing/parser.mly" ( psig_typesubst _1 ) # 50818 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_bs_, _startpos_a_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1060 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 50828 "parsing/parser.ml" in ( # 1833 "parsing/parser.mly" ( _1 ) # 50834 "parsing/parser.ml" : (Parsetree.signature_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = priv; CamlinternalMenhirLib.EngineTypes.startp = _startpos_priv_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_priv_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _7; CamlinternalMenhirLib.EngineTypes.startp = _startpos__7_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__7_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = params; CamlinternalMenhirLib.EngineTypes.startp = _startpos_params_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_params_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let xs : (Parsetree.extension_constructor list) = Obj.magic xs in let priv : (Asttypes.private_flag) = Obj.magic priv in let _7 : unit = Obj.magic _7 in let _1_inlined2 : (Longident.t) = Obj.magic _1_inlined2 in let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in let _v = let _1 = let _1 = let _1 = let _1 = let attrs2 = let _1 = _1_inlined3 in # 4308 "parsing/parser.mly" ( _1 ) # 50923 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let cs = # 1246 "parsing/parser.mly" ( List.rev xs ) # 50930 "parsing/parser.ml" in let tid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 50940 "parsing/parser.ml" in let _4 = # 4152 "parsing/parser.mly" ( Recursive ) # 50946 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 50953 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3540 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in Te.mk tid cs ~params ~priv ~attrs ~docs ~loc, ext ) # 50966 "parsing/parser.ml" in # 3527 "parsing/parser.mly" ( _1 ) # 50972 "parsing/parser.ml" in # 1809 "parsing/parser.mly" ( psig_typext _1 ) # 50978 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1060 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 50988 "parsing/parser.ml" in ( # 1833 "parsing/parser.mly" ( _1 ) # 50994 "parsing/parser.ml" : (Parsetree.signature_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = priv; CamlinternalMenhirLib.EngineTypes.startp = _startpos_priv_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_priv_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _7; CamlinternalMenhirLib.EngineTypes.startp = _startpos__7_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__7_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = params; CamlinternalMenhirLib.EngineTypes.startp = _startpos_params_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_params_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined4 : (Parsetree.attributes) = Obj.magic _1_inlined4 in let xs : (Parsetree.extension_constructor list) = Obj.magic xs in let priv : (Asttypes.private_flag) = Obj.magic priv in let _7 : unit = Obj.magic _7 in let _1_inlined3 : (Longident.t) = Obj.magic _1_inlined3 in let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in let _1_inlined2 : unit = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined4_ in let _v = let _1 = let _1 = let _1 = let _1 = let attrs2 = let _1 = _1_inlined4 in # 4308 "parsing/parser.mly" ( _1 ) # 51090 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in let cs = # 1246 "parsing/parser.mly" ( List.rev xs ) # 51097 "parsing/parser.ml" in let tid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 51107 "parsing/parser.ml" in let _4 = let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in # 4154 "parsing/parser.mly" ( not_expecting _loc "nonrec flag" ) # 51118 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 51126 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3540 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in Te.mk tid cs ~params ~priv ~attrs ~docs ~loc, ext ) # 51139 "parsing/parser.ml" in # 3527 "parsing/parser.mly" ( _1 ) # 51145 "parsing/parser.ml" in # 1809 "parsing/parser.mly" ( psig_typext _1 ) # 51151 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined4_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1060 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 51161 "parsing/parser.ml" in ( # 1833 "parsing/parser.mly" ( _1 ) # 51167 "parsing/parser.ml" : (Parsetree.signature_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.type_exception * string Asttypes.loc option) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 1811 "parsing/parser.mly" ( psig_exception _1 ) # 51195 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1060 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 51203 "parsing/parser.ml" in ( # 1833 "parsing/parser.mly" ( _1 ) # 51209 "parsing/parser.ml" : (Parsetree.signature_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = body; CamlinternalMenhirLib.EngineTypes.startp = _startpos_body_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_body_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let body : (Parsetree.module_type) = Obj.magic body in let _1_inlined2 : (string option) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in let _v = let _1 = let _1 = let _1 = let attrs2 = let _1 = _1_inlined3 in # 4308 "parsing/parser.mly" ( _1 ) # 51276 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let name = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 51288 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 51296 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1842 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Md.mk name body ~attrs ~loc ~docs, ext ) # 51310 "parsing/parser.ml" in # 1813 "parsing/parser.mly" ( psig_module _1 ) # 51316 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1060 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 51326 "parsing/parser.ml" in ( # 1833 "parsing/parser.mly" ( _1 ) # 51332 "parsing/parser.ml" : (Parsetree.signature_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined4 : (Parsetree.attributes) = Obj.magic _1_inlined4 in let _1_inlined3 : (Longident.t) = Obj.magic _1_inlined3 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : (string option) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined4_ in let _v = let _1 = let _1 = let _1 = let attrs2 = let _1 = _1_inlined4 in # 4308 "parsing/parser.mly" ( _1 ) # 51406 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in let body = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in let id = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 51419 "parsing/parser.ml" in let (_endpos_id_, _startpos_id_) = (_endpos__1_, _startpos__1_) in let _endpos = _endpos_id_ in let _symbolstartpos = _startpos_id_ in let _sloc = (_symbolstartpos, _endpos) in # 1881 "parsing/parser.mly" ( Mty.alias ~loc:(make_loc _sloc) id ) # 51429 "parsing/parser.ml" in let name = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 51440 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 51448 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1872 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Md.mk name body ~attrs ~loc ~docs, ext ) # 51462 "parsing/parser.ml" in # 1815 "parsing/parser.mly" ( psig_module _1 ) # 51468 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined4_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1060 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 51478 "parsing/parser.ml" in ( # 1833 "parsing/parser.mly" ( _1 ) # 51484 "parsing/parser.ml" : (Parsetree.signature_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.module_substitution * string Asttypes.loc option) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 1817 "parsing/parser.mly" ( psig_modsubst _1 ) # 51512 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1060 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 51520 "parsing/parser.ml" in ( # 1833 "parsing/parser.mly" ( _1 ) # 51526 "parsing/parser.ml" : (Parsetree.signature_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = bs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_bs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_bs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = mty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_mty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_mty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; } = _menhir_stack in let bs : (Parsetree.module_declaration list) = Obj.magic bs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let mty : (Parsetree.module_type) = Obj.magic mty in let _6 : unit = Obj.magic _6 in let _1_inlined2 : (string option) = Obj.magic _1_inlined2 in let _4 : unit = Obj.magic _4 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_bs_ in let _v = let _1 = let _1 = let _1 = let _1 = let a = let attrs2 = let _1 = _1_inlined3 in # 4308 "parsing/parser.mly" ( _1 ) # 51616 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let name = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 51628 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 51636 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1915 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in ext, Md.mk name mty ~attrs ~loc ~docs ) # 51650 "parsing/parser.ml" in # 1254 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) # 51656 "parsing/parser.ml" in # 1904 "parsing/parser.mly" ( _1 ) # 51662 "parsing/parser.ml" in # 1819 "parsing/parser.mly" ( psig_recmodule _1 ) # 51668 "parsing/parser.ml" in let _endpos__1_ = _endpos_bs_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1060 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 51678 "parsing/parser.ml" in ( # 1833 "parsing/parser.mly" ( _1 ) # 51684 "parsing/parser.ml" : (Parsetree.signature_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.module_type_declaration * string Asttypes.loc option) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 1821 "parsing/parser.mly" ( psig_modtype _1 ) # 51712 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1060 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 51720 "parsing/parser.ml" in ( # 1833 "parsing/parser.mly" ( _1 ) # 51726 "parsing/parser.ml" : (Parsetree.signature_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.module_type_declaration * string Asttypes.loc option) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 1823 "parsing/parser.mly" ( psig_modtypesubst _1 ) # 51754 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1060 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 51762 "parsing/parser.ml" in ( # 1833 "parsing/parser.mly" ( _1 ) # 51768 "parsing/parser.ml" : (Parsetree.signature_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.open_description * string Asttypes.loc option) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 1825 "parsing/parser.mly" ( psig_open _1 ) # 51796 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1060 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 51804 "parsing/parser.ml" in ( # 1833 "parsing/parser.mly" ( _1 ) # 51810 "parsing/parser.ml" : (Parsetree.signature_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = thing; CamlinternalMenhirLib.EngineTypes.startp = _startpos_thing_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_thing_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let thing : (Parsetree.module_type) = Obj.magic thing in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in let _v = let _1 = let _1 = let _1 = let attrs2 = let _1 = _1_inlined2 in # 4308 "parsing/parser.mly" ( _1 ) # 51870 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 51879 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1671 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Incl.mk thing ~attrs ~loc ~docs, ext ) # 51893 "parsing/parser.ml" in # 1827 "parsing/parser.mly" ( psig_include _1 ) # 51899 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1060 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 51909 "parsing/parser.ml" in ( # 1833 "parsing/parser.mly" ( _1 ) # 51915 "parsing/parser.ml" : (Parsetree.signature_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = bs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_bs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_bs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = cty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_cty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_cty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _7; CamlinternalMenhirLib.EngineTypes.startp = _startpos__7_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__7_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = params; CamlinternalMenhirLib.EngineTypes.startp = _startpos_params_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_params_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = virt; CamlinternalMenhirLib.EngineTypes.startp = _startpos_virt_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_virt_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let bs : (Parsetree.class_description list) = Obj.magic bs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let cty : (Parsetree.class_type) = Obj.magic cty in let _7 : unit = Obj.magic _7 in let _1_inlined2 : ( # 819 "parsing/parser.mly" (string) # 51995 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in let virt : (Asttypes.virtual_flag) = Obj.magic virt in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_bs_ in let _v = let _1 = let _1 = let _1 = let _1 = let a = let attrs2 = let _1 = _1_inlined3 in # 4308 "parsing/parser.mly" ( _1 ) # 52016 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 52028 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 52036 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2262 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in ext, Ci.mk id cty ~virt ~params ~attrs ~loc ~docs ) # 52051 "parsing/parser.ml" in # 1254 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) # 52057 "parsing/parser.ml" in # 2250 "parsing/parser.mly" ( _1 ) # 52063 "parsing/parser.ml" in # 1829 "parsing/parser.mly" ( psig_class _1 ) # 52069 "parsing/parser.ml" in let _endpos__1_ = _endpos_bs_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1060 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 52079 "parsing/parser.ml" in ( # 1833 "parsing/parser.mly" ( _1 ) # 52085 "parsing/parser.ml" : (Parsetree.signature_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (string Asttypes.loc option * Parsetree.class_type_declaration list) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 1831 "parsing/parser.mly" ( psig_class_type _1 ) # 52113 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1060 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 52121 "parsing/parser.ml" in ( # 1833 "parsing/parser.mly" ( _1 ) # 52127 "parsing/parser.ml" : (Parsetree.signature_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.constant) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.constant) = # 3977 "parsing/parser.mly" ( _1 ) # 52153 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : ( # 805 "parsing/parser.mly" (string * char option) # 52180 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v = let _endpos = _endpos__2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3978 "parsing/parser.mly" ( let (n, m) = _2 in mkconst ~loc:_sloc (Pconst_integer("-" ^ n, m)) ) # 52194 "parsing/parser.ml" : (Parsetree.constant)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : ( # 784 "parsing/parser.mly" (string * char option) # 52222 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v = let _endpos = _endpos__2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3980 "parsing/parser.mly" ( let (f, m) = _2 in mkconst ~loc:_sloc (Pconst_float("-" ^ f, m)) ) # 52236 "parsing/parser.ml" : (Parsetree.constant)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : ( # 805 "parsing/parser.mly" (string * char option) # 52264 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v = let _endpos = _endpos__2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3982 "parsing/parser.mly" ( let (n, m) = _2 in mkconst ~loc:_sloc (Pconst_integer (n, m)) ) # 52278 "parsing/parser.ml" : (Parsetree.constant)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : ( # 784 "parsing/parser.mly" (string * char option) # 52306 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v = let _endpos = _endpos__2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3984 "parsing/parser.mly" ( let (f, m) = _2 in mkconst ~loc:_sloc (Pconst_float(f, m)) ) # 52320 "parsing/parser.ml" : (Parsetree.constant)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _1_inlined1 : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = let _2 = let _1 = _1_inlined1 in # 3200 "parsing/parser.mly" ( let fields, closed = _1 in let closed = match closed with Some () -> Open | None -> Closed in fields, closed ) # 52367 "parsing/parser.ml" in # 3115 "parsing/parser.mly" ( let (fields, closed) = _2 in Ppat_record(fields, closed) ) # 52374 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 52384 "parsing/parser.ml" in ( # 3129 "parsing/parser.mly" ( _1 ) # 52390 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _1_inlined1 : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = let _2 = let _1 = _1_inlined1 in # 3200 "parsing/parser.mly" ( let fields, closed = _1 in let closed = match closed with Some () -> Open | None -> Closed in fields, closed ) # 52437 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 3118 "parsing/parser.mly" ( unclosed "{" _loc__1_ "}" _loc__3_ ) # 52445 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 52455 "parsing/parser.ml" in ( # 3129 "parsing/parser.mly" ( _1 ) # 52461 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ps; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ps_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ps_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let ps : (Parsetree.pattern list) = Obj.magic ps in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = let _2 = # 3194 "parsing/parser.mly" ( ps ) # 52504 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in # 3120 "parsing/parser.mly" ( fst (mktailpat _loc__3_ _2) ) # 52510 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 52520 "parsing/parser.ml" in ( # 3129 "parsing/parser.mly" ( _1 ) # 52526 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ps; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ps_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ps_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let ps : (Parsetree.pattern list) = Obj.magic ps in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = let _2 = # 3194 "parsing/parser.mly" ( ps ) # 52569 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 3122 "parsing/parser.mly" ( unclosed "[" _loc__1_ "]" _loc__3_ ) # 52576 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 52586 "parsing/parser.ml" in ( # 3129 "parsing/parser.mly" ( _1 ) # 52592 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ps; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ps_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ps_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let ps : (Parsetree.pattern list) = Obj.magic ps in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = let _2 = # 3194 "parsing/parser.mly" ( ps ) # 52635 "parsing/parser.ml" in # 3124 "parsing/parser.mly" ( Ppat_array _2 ) # 52640 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 52650 "parsing/parser.ml" in ( # 3129 "parsing/parser.mly" ( _1 ) # 52656 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v = let _1 = let _1 = # 3126 "parsing/parser.mly" ( Ppat_array [] ) # 52691 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 52700 "parsing/parser.ml" in ( # 3129 "parsing/parser.mly" ( _1 ) # 52706 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ps; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ps_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ps_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let ps : (Parsetree.pattern list) = Obj.magic ps in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = let _2 = # 3194 "parsing/parser.mly" ( ps ) # 52749 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 3128 "parsing/parser.mly" ( unclosed "[|" _loc__1_ "|]" _loc__3_ ) # 52756 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 52766 "parsing/parser.ml" in ( # 3129 "parsing/parser.mly" ( _1 ) # 52772 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2530 "parsing/parser.mly" ( reloc_exp ~loc:_sloc _2 ) # 52816 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 2532 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) # 52859 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in let _3 : (Parsetree.type_constraint) = Obj.magic _3 in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v = let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2534 "parsing/parser.mly" ( mkexp_constraint ~loc:_sloc _2 _3 ) # 52910 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = i; CamlinternalMenhirLib.EngineTypes.startp = _startpos_i_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_i_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = d; CamlinternalMenhirLib.EngineTypes.startp = _startpos_d_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_d_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = array; CamlinternalMenhirLib.EngineTypes.startp = _startpos_array_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_array_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let i : (Parsetree.expression) = Obj.magic i in let _3 : unit = Obj.magic _3 in let d : unit = Obj.magic d in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__5_ in let _v = let _1 = let r = # 2535 "parsing/parser.mly" ( None ) # 52966 "parsing/parser.ml" in # 2421 "parsing/parser.mly" ( array, d, Paren, i, r ) # 52971 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2536 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) # 52981 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = i; CamlinternalMenhirLib.EngineTypes.startp = _startpos_i_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_i_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = d; CamlinternalMenhirLib.EngineTypes.startp = _startpos_d_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_d_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = array; CamlinternalMenhirLib.EngineTypes.startp = _startpos_array_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_array_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let i : (Parsetree.expression) = Obj.magic i in let _3 : unit = Obj.magic _3 in let d : unit = Obj.magic d in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__5_ in let _v = let _1 = let r = # 2535 "parsing/parser.mly" ( None ) # 53037 "parsing/parser.ml" in # 2423 "parsing/parser.mly" ( array, d, Brace, i, r ) # 53042 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2536 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) # 53052 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = i; CamlinternalMenhirLib.EngineTypes.startp = _startpos_i_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_i_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = d; CamlinternalMenhirLib.EngineTypes.startp = _startpos_d_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_d_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = array; CamlinternalMenhirLib.EngineTypes.startp = _startpos_array_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_array_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let i : (Parsetree.expression) = Obj.magic i in let _3 : unit = Obj.magic _3 in let d : unit = Obj.magic d in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__5_ in let _v = let _1 = let r = # 2535 "parsing/parser.mly" ( None ) # 53108 "parsing/parser.ml" in # 2425 "parsing/parser.mly" ( array, d, Bracket, i, r ) # 53113 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2536 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) # 53123 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = array; CamlinternalMenhirLib.EngineTypes.startp = _startpos_array_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_array_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( # 800 "parsing/parser.mly" (string) # 53172 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__5_ in let _v = let _1 = let r = # 2537 "parsing/parser.mly" ( None ) # 53183 "parsing/parser.ml" in let i = # 2966 "parsing/parser.mly" ( es ) # 53188 "parsing/parser.ml" in let d = let _1 = # 123 "" ( None ) # 53194 "parsing/parser.ml" in # 2437 "parsing/parser.mly" ( _1, _2 ) # 53199 "parsing/parser.ml" in # 2421 "parsing/parser.mly" ( array, d, Paren, i, r ) # 53205 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2538 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 53215 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = array; CamlinternalMenhirLib.EngineTypes.startp = _startpos_array_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_array_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( # 800 "parsing/parser.mly" (string) # 53276 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__5_ in let _v = let _1 = let r = # 2537 "parsing/parser.mly" ( None ) # 53289 "parsing/parser.ml" in let i = # 2966 "parsing/parser.mly" ( es ) # 53294 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = # 2437 "parsing/parser.mly" (_2) # 53302 "parsing/parser.ml" in # 126 "" ( Some x ) # 53307 "parsing/parser.ml" in # 2437 "parsing/parser.mly" ( _1, _2 ) # 53313 "parsing/parser.ml" in # 2421 "parsing/parser.mly" ( array, d, Paren, i, r ) # 53319 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2538 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 53329 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = array; CamlinternalMenhirLib.EngineTypes.startp = _startpos_array_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_array_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( # 800 "parsing/parser.mly" (string) # 53378 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__5_ in let _v = let _1 = let r = # 2537 "parsing/parser.mly" ( None ) # 53389 "parsing/parser.ml" in let i = # 2966 "parsing/parser.mly" ( es ) # 53394 "parsing/parser.ml" in let d = let _1 = # 123 "" ( None ) # 53400 "parsing/parser.ml" in # 2437 "parsing/parser.mly" ( _1, _2 ) # 53405 "parsing/parser.ml" in # 2423 "parsing/parser.mly" ( array, d, Brace, i, r ) # 53411 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2538 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 53421 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = array; CamlinternalMenhirLib.EngineTypes.startp = _startpos_array_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_array_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( # 800 "parsing/parser.mly" (string) # 53482 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__5_ in let _v = let _1 = let r = # 2537 "parsing/parser.mly" ( None ) # 53495 "parsing/parser.ml" in let i = # 2966 "parsing/parser.mly" ( es ) # 53500 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = # 2437 "parsing/parser.mly" (_2) # 53508 "parsing/parser.ml" in # 126 "" ( Some x ) # 53513 "parsing/parser.ml" in # 2437 "parsing/parser.mly" ( _1, _2 ) # 53519 "parsing/parser.ml" in # 2423 "parsing/parser.mly" ( array, d, Brace, i, r ) # 53525 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2538 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 53535 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = array; CamlinternalMenhirLib.EngineTypes.startp = _startpos_array_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_array_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( # 800 "parsing/parser.mly" (string) # 53584 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__5_ in let _v = let _1 = let r = # 2537 "parsing/parser.mly" ( None ) # 53595 "parsing/parser.ml" in let i = # 2966 "parsing/parser.mly" ( es ) # 53600 "parsing/parser.ml" in let d = let _1 = # 123 "" ( None ) # 53606 "parsing/parser.ml" in # 2437 "parsing/parser.mly" ( _1, _2 ) # 53611 "parsing/parser.ml" in # 2425 "parsing/parser.mly" ( array, d, Bracket, i, r ) # 53617 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2538 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 53627 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = array; CamlinternalMenhirLib.EngineTypes.startp = _startpos_array_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_array_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( # 800 "parsing/parser.mly" (string) # 53688 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_array_ in let _endpos = _endpos__5_ in let _v = let _1 = let r = # 2537 "parsing/parser.mly" ( None ) # 53701 "parsing/parser.ml" in let i = # 2966 "parsing/parser.mly" ( es ) # 53706 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = # 2437 "parsing/parser.mly" (_2) # 53714 "parsing/parser.ml" in # 126 "" ( Some x ) # 53719 "parsing/parser.ml" in # 2437 "parsing/parser.mly" ( _1, _2 ) # 53725 "parsing/parser.ml" in # 2425 "parsing/parser.mly" ( array, d, Bracket, i, r ) # 53731 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2538 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 53741 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _e; CamlinternalMenhirLib.EngineTypes.startp = _startpos__e_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__e_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _p; CamlinternalMenhirLib.EngineTypes.startp = _startpos__p_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__p_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _e : unit = Obj.magic _e in let _4 : (Parsetree.expression) = Obj.magic _4 in let _p : unit = Obj.magic _p in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__e_ in let _v = let _1 = let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in # 2430 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Paren _loc__e_ ) # 53799 "parsing/parser.ml" in ( # 2539 "parsing/parser.mly" ( _1 ) # 53805 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _e; CamlinternalMenhirLib.EngineTypes.startp = _startpos__e_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__e_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _p; CamlinternalMenhirLib.EngineTypes.startp = _startpos__p_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__p_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _e : unit = Obj.magic _e in let _4 : (Parsetree.expression) = Obj.magic _4 in let _p : unit = Obj.magic _p in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__e_ in let _v = let _1 = let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in # 2432 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Brace _loc__e_ ) # 53863 "parsing/parser.ml" in ( # 2539 "parsing/parser.mly" ( _1 ) # 53869 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _e; CamlinternalMenhirLib.EngineTypes.startp = _startpos__e_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__e_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _p; CamlinternalMenhirLib.EngineTypes.startp = _startpos__p_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__p_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _e : unit = Obj.magic _e in let _4 : (Parsetree.expression) = Obj.magic _4 in let _p : unit = Obj.magic _p in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__e_ in let _v = let _1 = let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in # 2434 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Bracket _loc__e_ ) # 53927 "parsing/parser.ml" in ( # 2539 "parsing/parser.mly" ( _1 ) # 53933 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _e; CamlinternalMenhirLib.EngineTypes.startp = _startpos__e_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__e_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _p; CamlinternalMenhirLib.EngineTypes.startp = _startpos__p_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__p_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _e : unit = Obj.magic _e in let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( # 800 "parsing/parser.mly" (string) # 53982 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__e_ in let _v = let _1 = let _4 = # 2966 "parsing/parser.mly" ( es ) # 53993 "parsing/parser.ml" in let _2 = let _1 = # 123 "" ( None ) # 53999 "parsing/parser.ml" in # 2437 "parsing/parser.mly" ( _1, _2 ) # 54004 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in # 2430 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Paren _loc__e_ ) # 54012 "parsing/parser.ml" in ( # 2540 "parsing/parser.mly" ( _1 ) # 54018 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _e; CamlinternalMenhirLib.EngineTypes.startp = _startpos__e_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__e_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _p; CamlinternalMenhirLib.EngineTypes.startp = _startpos__p_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__p_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _e : unit = Obj.magic _e in let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( # 800 "parsing/parser.mly" (string) # 54079 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__e_ in let _v = let _1 = let _4 = # 2966 "parsing/parser.mly" ( es ) # 54092 "parsing/parser.ml" in let _2 = let _1 = let _2 = _2_inlined1 in let x = # 2437 "parsing/parser.mly" (_2) # 54100 "parsing/parser.ml" in # 126 "" ( Some x ) # 54105 "parsing/parser.ml" in # 2437 "parsing/parser.mly" ( _1, _2 ) # 54111 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in # 2430 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Paren _loc__e_ ) # 54119 "parsing/parser.ml" in ( # 2540 "parsing/parser.mly" ( _1 ) # 54125 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _e; CamlinternalMenhirLib.EngineTypes.startp = _startpos__e_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__e_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _p; CamlinternalMenhirLib.EngineTypes.startp = _startpos__p_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__p_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _e : unit = Obj.magic _e in let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( # 800 "parsing/parser.mly" (string) # 54174 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__e_ in let _v = let _1 = let _4 = # 2966 "parsing/parser.mly" ( es ) # 54185 "parsing/parser.ml" in let _2 = let _1 = # 123 "" ( None ) # 54191 "parsing/parser.ml" in # 2437 "parsing/parser.mly" ( _1, _2 ) # 54196 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in # 2432 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Brace _loc__e_ ) # 54204 "parsing/parser.ml" in ( # 2540 "parsing/parser.mly" ( _1 ) # 54210 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _e; CamlinternalMenhirLib.EngineTypes.startp = _startpos__e_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__e_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _p; CamlinternalMenhirLib.EngineTypes.startp = _startpos__p_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__p_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _e : unit = Obj.magic _e in let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( # 800 "parsing/parser.mly" (string) # 54271 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__e_ in let _v = let _1 = let _4 = # 2966 "parsing/parser.mly" ( es ) # 54284 "parsing/parser.ml" in let _2 = let _1 = let _2 = _2_inlined1 in let x = # 2437 "parsing/parser.mly" (_2) # 54292 "parsing/parser.ml" in # 126 "" ( Some x ) # 54297 "parsing/parser.ml" in # 2437 "parsing/parser.mly" ( _1, _2 ) # 54303 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in # 2432 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Brace _loc__e_ ) # 54311 "parsing/parser.ml" in ( # 2540 "parsing/parser.mly" ( _1 ) # 54317 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _e; CamlinternalMenhirLib.EngineTypes.startp = _startpos__e_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__e_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _p; CamlinternalMenhirLib.EngineTypes.startp = _startpos__p_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__p_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _e : unit = Obj.magic _e in let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( # 800 "parsing/parser.mly" (string) # 54366 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__e_ in let _v = let _1 = let _4 = # 2966 "parsing/parser.mly" ( es ) # 54377 "parsing/parser.ml" in let _2 = let _1 = # 123 "" ( None ) # 54383 "parsing/parser.ml" in # 2437 "parsing/parser.mly" ( _1, _2 ) # 54388 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in # 2434 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Bracket _loc__e_ ) # 54396 "parsing/parser.ml" in ( # 2540 "parsing/parser.mly" ( _1 ) # 54402 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _e; CamlinternalMenhirLib.EngineTypes.startp = _startpos__e_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__e_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _p; CamlinternalMenhirLib.EngineTypes.startp = _startpos__p_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__p_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _e : unit = Obj.magic _e in let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( # 800 "parsing/parser.mly" (string) # 54463 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__e_ in let _v = let _1 = let _4 = # 2966 "parsing/parser.mly" ( es ) # 54476 "parsing/parser.ml" in let _2 = let _1 = let _2 = _2_inlined1 in let x = # 2437 "parsing/parser.mly" (_2) # 54484 "parsing/parser.ml" in # 126 "" ( Some x ) # 54489 "parsing/parser.ml" in # 2437 "parsing/parser.mly" ( _1, _2 ) # 54495 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in # 2434 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Bracket _loc__e_ ) # 54503 "parsing/parser.ml" in ( # 2540 "parsing/parser.mly" ( _1 ) # 54509 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = e; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let e : (Parsetree.expression) = Obj.magic e in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_e_ in let _v = let _1 = let _endpos = _endpos_e_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2580 "parsing/parser.mly" ( mkexp ~loc:_sloc (pexp_extension ~id:(mknoloc "metaocaml.escape") e) ) # 54547 "parsing/parser.ml" in ( # 2541 "parsing/parser.mly" ( _1 ) # 54553 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = e; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let e : (Parsetree.expression) = Obj.magic e in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2582 "parsing/parser.mly" ( mkexp ~loc:_sloc (pexp_extension ~id:(mknoloc "metaocaml.bracket") e) ) # 54598 "parsing/parser.ml" in ( # 2541 "parsing/parser.mly" ( _1 ) # 54604 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = e; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let e : (Parsetree.expression) = Obj.magic e in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _1 = let attrs = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 54662 "parsing/parser.ml" in # 2550 "parsing/parser.mly" ( e.pexp_desc, (ext, attrs @ e.pexp_attributes) ) # 54668 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2543 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 54679 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 54732 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 54738 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2552 "parsing/parser.mly" ( Pexp_construct (mkloc (Lident "()") (make_loc _sloc), None), _2 ) # 54747 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2543 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 54758 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in let _3 : (Parsetree.expression) = Obj.magic _3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v = let _1 = let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 54818 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 54824 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2554 "parsing/parser.mly" ( unclosed "begin" _loc__1_ "end" _loc__4_ ) # 54832 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2543 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 54843 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _1_inlined3 : (Longident.t) = Obj.magic _1_inlined3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in let _v = let _1 = let _3 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 54897 "parsing/parser.ml" in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 54907 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 54913 "parsing/parser.ml" in # 2556 "parsing/parser.mly" ( Pexp_new(_3), _2 ) # 54919 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2543 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 54930 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let _4 : (Parsetree.module_expr) = Obj.magic _4 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _1 = let _3 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 54997 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 55003 "parsing/parser.ml" in # 2558 "parsing/parser.mly" ( Pexp_pack (_4, None), _3 ) # 55009 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2543 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 55020 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _7; CamlinternalMenhirLib.EngineTypes.startp = _startpos__7_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__7_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; } = _menhir_stack in let _7 : unit = Obj.magic _7 in let _1_inlined3 : (Parsetree.module_type) = Obj.magic _1_inlined3 in let _5 : unit = Obj.magic _5 in let _4 : (Parsetree.module_expr) = Obj.magic _4 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in let _v = let _1 = let _6 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3886 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in Typ.package_type ~loc:(make_loc _sloc) ~attrs lid cstrs ) # 55103 "parsing/parser.ml" in let _3 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 55113 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 55119 "parsing/parser.ml" in # 2560 "parsing/parser.mly" ( Pexp_pack (_4, Some _6), _3 ) # 55125 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2543 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 55136 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _6 : unit = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _4 : (Parsetree.module_expr) = Obj.magic _4 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in let _v = let _1 = let _3 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 55210 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 55216 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2562 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__6_ ) # 55224 "parsing/parser.ml" in let _endpos__1_ = _endpos__6_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2543 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 55235 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xss; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xss_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xss_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in let xss : (Parsetree.class_field list list) = Obj.magic xss in let _1_inlined3 : (Parsetree.pattern) = Obj.magic _1_inlined3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v = let _1 = let _3 = let _1 = _1_inlined3 in let _2 = let _1 = let _1 = # 271 "" ( List.flatten xss ) # 55302 "parsing/parser.ml" in # 2078 "parsing/parser.mly" ( _1 ) # 55307 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 1000 "parsing/parser.mly" ( extra_cstr _startpos _endpos _1 ) # 55316 "parsing/parser.ml" in # 2065 "parsing/parser.mly" ( Cstr.mk _1 _2 ) # 55322 "parsing/parser.ml" in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 55332 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 55338 "parsing/parser.ml" in # 2564 "parsing/parser.mly" ( Pexp_object _3, _2 ) # 55344 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2543 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 55355 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xss; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xss_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xss_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in let xss : (Parsetree.class_field list list) = Obj.magic xss in let _1_inlined3 : (Parsetree.pattern) = Obj.magic _1_inlined3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v = let _1 = let _3 = let _1 = _1_inlined3 in let _2 = let _1 = let _1 = # 271 "" ( List.flatten xss ) # 55422 "parsing/parser.ml" in # 2078 "parsing/parser.mly" ( _1 ) # 55427 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 1000 "parsing/parser.mly" ( extra_cstr _startpos _endpos _1 ) # 55436 "parsing/parser.ml" in # 2065 "parsing/parser.mly" ( Cstr.mk _1 _2 ) # 55442 "parsing/parser.ml" in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 55452 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 55458 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2566 "parsing/parser.mly" ( unclosed "object" _loc__1_ "end" _loc__4_ ) # 55466 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2543 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 55477 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 55510 "parsing/parser.ml" in # 2587 "parsing/parser.mly" ( Pexp_ident (_1) ) # 55516 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 55525 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 55531 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.constant) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 2589 "parsing/parser.mly" ( Pexp_constant _1 ) # 55559 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 55567 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 55573 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 55606 "parsing/parser.ml" in # 2591 "parsing/parser.mly" ( Pexp_construct(_1, None) ) # 55612 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 55621 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 55627 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Asttypes.label) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 2593 "parsing/parser.mly" ( Pexp_variant(_1, None) ) # 55655 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 55663 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 55669 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1 : ( # 843 "parsing/parser.mly" (string) # 55698 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v = let _1 = let _1 = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 55713 "parsing/parser.ml" in # 2595 "parsing/parser.mly" ( Pexp_apply(_1, [Nolabel,_2]) ) # 55719 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 55729 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 55735 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v = let _1 = let _1 = let _1 = let _1 = # 2596 "parsing/parser.mly" ("!") # 55772 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 55780 "parsing/parser.ml" in # 2597 "parsing/parser.mly" ( Pexp_apply(_1, [Nolabel,_2]) ) # 55786 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 55796 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 55802 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let xs : ((Asttypes.label Asttypes.loc * Parsetree.expression) list) = Obj.magic xs in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = let _2 = # 2949 "parsing/parser.mly" ( xs ) # 55845 "parsing/parser.ml" in # 2599 "parsing/parser.mly" ( Pexp_override _2 ) # 55850 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 55860 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 55866 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let xs : ((Asttypes.label Asttypes.loc * Parsetree.expression) list) = Obj.magic xs in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = let _2 = # 2949 "parsing/parser.mly" ( xs ) # 55909 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2601 "parsing/parser.mly" ( unclosed "{<" _loc__1_ ">}" _loc__3_ ) # 55916 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 55926 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 55932 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v = let _1 = let _1 = # 2603 "parsing/parser.mly" ( Pexp_override [] ) # 55967 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 55976 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 55982 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : (Longident.t) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let _1 = let _3 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 56030 "parsing/parser.ml" in # 2605 "parsing/parser.mly" ( Pexp_field(_1, _3) ) # 56036 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 56046 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 56052 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let _4 : (Parsetree.expression) = Obj.magic _4 in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _1 = let _1 = let od = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 56114 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 1730 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) # 56123 "parsing/parser.ml" in # 2607 "parsing/parser.mly" ( Pexp_struct_item(Str.open_ od, _4) ) # 56129 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 56139 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 56145 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let xs : ((Asttypes.label Asttypes.loc * Parsetree.expression) list) = Obj.magic xs in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _1 = let _1 = let _4 = # 2949 "parsing/parser.mly" ( xs ) # 56202 "parsing/parser.ml" in let od = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 56212 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 1730 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) # 56221 "parsing/parser.ml" in let _startpos_od_ = _startpos__1_ in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos_od_ in let _sloc = (_symbolstartpos, _endpos) in # 2609 "parsing/parser.mly" ( (* TODO: review the location of Pexp_override *) Pexp_struct_item(Str.open_ od, mkexp ~loc:_sloc (Pexp_override _4)) ) # 56232 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 56242 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 56248 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let xs : ((Asttypes.label Asttypes.loc * Parsetree.expression) list) = Obj.magic xs in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _1 = let _1 = let _4 = # 2949 "parsing/parser.mly" ( xs ) # 56305 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2612 "parsing/parser.mly" ( unclosed "{<" _loc__3_ ">}" _loc__5_ ) # 56312 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 56322 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 56328 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined1 : ( # 819 "parsing/parser.mly" (string) # 56362 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let _1 = let _3 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = # 3962 "parsing/parser.mly" ( _1 ) # 56377 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 56385 "parsing/parser.ml" in # 2614 "parsing/parser.mly" ( Pexp_send(_1, _3) ) # 56391 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 56401 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 56407 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : (Parsetree.expression) = Obj.magic _3 in let _1_inlined1 : ( # 854 "parsing/parser.mly" (string) # 56442 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = let _2 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1033 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 56459 "parsing/parser.ml" in # 2616 "parsing/parser.mly" ( mkinfix _1 _2 _3 ) # 56465 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 56475 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 56481 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.extension) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 2618 "parsing/parser.mly" ( Pexp_extension _1 ) # 56509 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 56517 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 56523 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_inlined1_ in let _v = let _1 = let _1 = let _3 = let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in let _1 = # 2619 "parsing/parser.mly" (Lident "()") # 56575 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 56584 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in let od = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 56596 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 1730 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) # 56605 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2620 "parsing/parser.mly" ( Pexp_struct_item(Str.open_ od, mkexp ~loc:(_loc__3_) (Pexp_construct(_3, None))) ) # 56613 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_inlined1_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 56623 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 56629 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let _4 : (Parsetree.expression) = Obj.magic _4 in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _1 = let _1 = let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2623 "parsing/parser.mly" ( unclosed "(" _loc__3_ ")" _loc__5_ ) # 56688 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 56698 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 56704 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : (Parsetree.expression option * (Longident.t Asttypes.loc * Parsetree.expression) list) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = # 2625 "parsing/parser.mly" ( let (exten, fields) = _2 in Pexp_record(fields, exten) ) # 56748 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 56757 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 56763 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : (Parsetree.expression option * (Longident.t Asttypes.loc * Parsetree.expression) list) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2628 "parsing/parser.mly" ( unclosed "{" _loc__1_ "}" _loc__3_ ) # 56809 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 56819 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 56825 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let _4 : (Parsetree.expression option * (Longident.t Asttypes.loc * Parsetree.expression) list) = Obj.magic _4 in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _1 = let _1 = let od = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 56888 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 1730 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) # 56897 "parsing/parser.ml" in let _endpos = _endpos__5_ in # 2630 "parsing/parser.mly" ( let (exten, fields) = _4 in Pexp_struct_item(Str.open_ od, mkexp ~loc:(_startpos__3_, _endpos) (Pexp_record(fields, exten))) ) # 56907 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 56917 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 56923 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let _4 : (Parsetree.expression option * (Longident.t Asttypes.loc * Parsetree.expression) list) = Obj.magic _4 in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _1 = let _1 = let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2635 "parsing/parser.mly" ( unclosed "{" _loc__3_ "}" _loc__5_ ) # 56983 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 56993 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 56999 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let es : (Parsetree.expression list) = Obj.magic es in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = let _2 = # 2966 "parsing/parser.mly" ( es ) # 57042 "parsing/parser.ml" in # 2637 "parsing/parser.mly" ( Pexp_array(_2) ) # 57047 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 57057 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 57063 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let es : (Parsetree.expression list) = Obj.magic es in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = let _2 = # 2966 "parsing/parser.mly" ( es ) # 57106 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2639 "parsing/parser.mly" ( unclosed "[|" _loc__1_ "|]" _loc__3_ ) # 57113 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 57123 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 57129 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v = let _1 = let _1 = # 2641 "parsing/parser.mly" ( Pexp_array [] ) # 57164 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 57173 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 57179 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _1 = let _1 = let _4 = # 2966 "parsing/parser.mly" ( es ) # 57236 "parsing/parser.ml" in let od = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 57246 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 1730 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) # 57255 "parsing/parser.ml" in let _endpos = _endpos__5_ in # 2643 "parsing/parser.mly" ( Pexp_struct_item(Str.open_ od, mkexp ~loc:(_startpos__3_, _endpos) (Pexp_array(_4))) ) # 57263 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 57273 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 57279 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v = let _1 = let _1 = let od = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 57334 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 1730 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) # 57343 "parsing/parser.ml" in let _endpos = _endpos__4_ in # 2646 "parsing/parser.mly" ( (* TODO: review the location of Pexp_array *) Pexp_struct_item(Str.open_ od, mkexp ~loc:(_startpos__3_, _endpos) (Pexp_array [])) ) # 57352 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 57362 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 57368 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _1 = let _1 = let _4 = # 2966 "parsing/parser.mly" ( es ) # 57425 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2651 "parsing/parser.mly" ( unclosed "[|" _loc__3_ "|]" _loc__5_ ) # 57432 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 57442 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 57448 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let es : (Parsetree.expression list) = Obj.magic es in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = let _2 = # 2966 "parsing/parser.mly" ( es ) # 57491 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2653 "parsing/parser.mly" ( fst (mktailexp _loc__3_ _2) ) # 57497 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 57507 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 57513 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let es : (Parsetree.expression list) = Obj.magic es in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = let _2 = # 2966 "parsing/parser.mly" ( es ) # 57556 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2655 "parsing/parser.mly" ( unclosed "[" _loc__1_ "]" _loc__3_ ) # 57563 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 57573 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 57579 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _1 = let _1 = let _4 = # 2966 "parsing/parser.mly" ( es ) # 57636 "parsing/parser.ml" in let od = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 57646 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 1730 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) # 57655 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _loc__5_ = (_startpos__5_, _endpos__5_) in # 2657 "parsing/parser.mly" ( let list_exp = (* TODO: review the location of list_exp *) let tail_exp, _tail_loc = mktailexp _loc__5_ _4 in mkexp ~loc:(_startpos__3_, _endpos) tail_exp in Pexp_struct_item(Str.open_ od, list_exp) ) # 57667 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 57677 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 57683 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_inlined1_ in let _v = let _1 = let _1 = let _3 = let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in let _1 = # 2662 "parsing/parser.mly" (Lident "[]") # 57735 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 57744 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in let od = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 57756 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 1730 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) # 57765 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2663 "parsing/parser.mly" ( Pexp_struct_item(Str.open_ od, mkexp ~loc:_loc__3_ (Pexp_construct(_3, None))) ) # 57773 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_inlined1_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 57783 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 57789 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = es; CamlinternalMenhirLib.EngineTypes.startp = _startpos_es_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_es_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _1 = let _1 = let _4 = # 2966 "parsing/parser.mly" ( es ) # 57846 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2667 "parsing/parser.mly" ( unclosed "[" _loc__3_ "]" _loc__5_ ) # 57853 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 57863 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 57869 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _9; CamlinternalMenhirLib.EngineTypes.startp = _startpos__9_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__9_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _7; CamlinternalMenhirLib.EngineTypes.startp = _startpos__7_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__7_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let _9 : unit = Obj.magic _9 in let _1_inlined3 : (Parsetree.module_type) = Obj.magic _1_inlined3 in let _7 : unit = Obj.magic _7 in let _6 : (Parsetree.module_expr) = Obj.magic _6 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _4 : unit = Obj.magic _4 in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__9_ in let _v = let _1 = let _1 = let ptyp = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3886 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in Typ.package_type ~loc:(make_loc _sloc) ~attrs lid cstrs ) # 57967 "parsing/parser.ml" in let _5 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 57977 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 57983 "parsing/parser.ml" in let od = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 57994 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 1730 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) # 58003 "parsing/parser.ml" in let _endpos = _endpos__9_ in # 2670 "parsing/parser.mly" ( let modexp = mkexp_attrs ~loc:(_startpos__3_, _endpos) (Pexp_pack (_6, Some ptyp)) _5 in Pexp_struct_item(Str.open_ od, modexp) ) # 58013 "parsing/parser.ml" in let _endpos__1_ = _endpos__9_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 58023 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 58029 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _8; CamlinternalMenhirLib.EngineTypes.startp = _startpos__8_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__8_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _7; CamlinternalMenhirLib.EngineTypes.startp = _startpos__7_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__7_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; } = _menhir_stack in let _8 : unit = Obj.magic _8 in let _7 : unit = Obj.magic _7 in let _6 : (Parsetree.module_expr) = Obj.magic _6 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _4 : unit = Obj.magic _4 in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__8_ in let _v = let _1 = let _1 = let _5 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 58118 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 58124 "parsing/parser.ml" in let _loc__8_ = (_startpos__8_, _endpos__8_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2676 "parsing/parser.mly" ( unclosed "(" _loc__3_ ")" _loc__8_ ) # 58132 "parsing/parser.ml" in let _endpos__1_ = _endpos__8_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1039 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 58142 "parsing/parser.ml" in ( # 2546 "parsing/parser.mly" ( _1 ) # 58148 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Asttypes.label) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 58181 "parsing/parser.ml" in # 3053 "parsing/parser.mly" ( Ppat_var (_1) ) # 58187 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 58196 "parsing/parser.ml" in ( # 3054 "parsing/parser.mly" ( _1 ) # 58202 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = # 3055 "parsing/parser.mly" ( _1 ) # 58228 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : (Parsetree.pattern) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3060 "parsing/parser.mly" ( reloc_pat ~loc:_sloc _2 ) # 58271 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.pattern) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = # 3062 "parsing/parser.mly" ( _1 ) # 58297 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let _1_inlined3 : (string option) = Obj.magic _1_inlined3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 58363 "parsing/parser.ml" in let _3 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 58373 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 58379 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3064 "parsing/parser.mly" ( mkpat_attrs ~loc:_sloc (Ppat_unpack _4) _3 ) # 58388 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _7; CamlinternalMenhirLib.EngineTypes.startp = _startpos__7_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__7_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; } = _menhir_stack in let _7 : unit = Obj.magic _7 in let _1_inlined4 : (Parsetree.module_type) = Obj.magic _1_inlined4 in let _5 : unit = Obj.magic _5 in let _1_inlined3 : (string option) = Obj.magic _1_inlined3 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in let _v = let _6 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined4_, _startpos__1_inlined4_, _1_inlined4) in let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3886 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in Typ.package_type ~loc:(make_loc _sloc) ~attrs lid cstrs ) # 58471 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3890 "parsing/parser.mly" ( mktyp ~loc:_sloc (Ptyp_package _1) ) # 58480 "parsing/parser.ml" in let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 58491 "parsing/parser.ml" in let (_endpos__4_, _startpos__4_) = (_endpos__1_inlined3_, _startpos__1_inlined3_) in let _3 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 58502 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 58508 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _sloc = (_symbolstartpos, _endpos) in ( # 3066 "parsing/parser.mly" ( mkpat_attrs ~loc:_sloc (Ppat_constraint(mkpat ~loc:_loc__4_ (Ppat_unpack _4), _6)) _3 ) # 58520 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 3074 "parsing/parser.mly" ( Ppat_any ) # 58548 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 58556 "parsing/parser.ml" in ( # 3070 "parsing/parser.mly" ( _1 ) # 58562 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.constant) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 3076 "parsing/parser.mly" ( Ppat_constant _1 ) # 58590 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 58598 "parsing/parser.ml" in ( # 3070 "parsing/parser.mly" ( _1 ) # 58604 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : (Parsetree.constant) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.constant) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = # 3078 "parsing/parser.mly" ( Ppat_interval (_1, _3) ) # 58646 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 58655 "parsing/parser.ml" in ( # 3070 "parsing/parser.mly" ( _1 ) # 58661 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 58694 "parsing/parser.ml" in # 3080 "parsing/parser.mly" ( Ppat_construct(_1, None) ) # 58700 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 58709 "parsing/parser.ml" in ( # 3070 "parsing/parser.mly" ( _1 ) # 58715 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Asttypes.label) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 3082 "parsing/parser.mly" ( Ppat_variant(_1, None) ) # 58743 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 58751 "parsing/parser.ml" in ( # 3070 "parsing/parser.mly" ( _1 ) # 58757 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _1_inlined1 : (Longident.t) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _1 = let _1 = let _2 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 58798 "parsing/parser.ml" in # 3084 "parsing/parser.mly" ( Ppat_type (_2) ) # 58804 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 58814 "parsing/parser.ml" in ( # 3070 "parsing/parser.mly" ( _1 ) # 58820 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : (Parsetree.pattern) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 58867 "parsing/parser.ml" in # 3086 "parsing/parser.mly" ( Ppat_open(_1, _3) ) # 58873 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 58883 "parsing/parser.ml" in ( # 3070 "parsing/parser.mly" ( _1 ) # 58889 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_inlined1_ in let _v = let _1 = let _1 = let _3 = let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in let _1 = # 3087 "parsing/parser.mly" (Lident "[]") # 58941 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 58950 "parsing/parser.ml" in let _endpos__3_ = _endpos__2_inlined1_ in let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 58961 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3088 "parsing/parser.mly" ( Ppat_open(_1, mkpat ~loc:_sloc (Ppat_construct(_3, None))) ) # 58970 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_inlined1_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 58980 "parsing/parser.ml" in ( # 3070 "parsing/parser.mly" ( _1 ) # 58986 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_inlined1_ in let _v = let _1 = let _1 = let _3 = let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in let _1 = # 3089 "parsing/parser.mly" (Lident "()") # 59038 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 59047 "parsing/parser.ml" in let _endpos__3_ = _endpos__2_inlined1_ in let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 59058 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3090 "parsing/parser.mly" ( Ppat_open(_1, mkpat ~loc:_sloc (Ppat_construct(_3, None))) ) # 59067 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_inlined1_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 59077 "parsing/parser.ml" in ( # 3070 "parsing/parser.mly" ( _1 ) # 59083 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let _4 : (Parsetree.pattern) = Obj.magic _4 in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _1 = let _1 = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 59144 "parsing/parser.ml" in # 3092 "parsing/parser.mly" ( Ppat_open (_1, _4) ) # 59150 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 59160 "parsing/parser.ml" in ( # 3070 "parsing/parser.mly" ( _1 ) # 59166 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let _4 : (Parsetree.pattern) = Obj.magic _4 in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _1 = let _1 = let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in # 3094 "parsing/parser.mly" ( unclosed "(" _loc__3_ ")" _loc__5_ ) # 59225 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 59235 "parsing/parser.ml" in ( # 3070 "parsing/parser.mly" ( _1 ) # 59241 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v = let _1 = let _1 = let _loc__4_ = (_startpos__4_, _endpos__4_) in # 3096 "parsing/parser.mly" ( expecting _loc__4_ "pattern" ) # 59292 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 59302 "parsing/parser.ml" in ( # 3070 "parsing/parser.mly" ( _1 ) # 59308 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : (Parsetree.pattern) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _1 = let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 3098 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) # 59353 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 59363 "parsing/parser.ml" in ( # 3070 "parsing/parser.mly" ( _1 ) # 59369 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let _4 : (Parsetree.core_type) = Obj.magic _4 in let _3 : unit = Obj.magic _3 in let _2 : (Parsetree.pattern) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _1 = let _1 = # 3100 "parsing/parser.mly" ( Ppat_constraint(_2, _4) ) # 59425 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 59434 "parsing/parser.ml" in ( # 3070 "parsing/parser.mly" ( _1 ) # 59440 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _5 : unit = Obj.magic _5 in let _4 : (Parsetree.core_type) = Obj.magic _4 in let _3 : unit = Obj.magic _3 in let _2 : (Parsetree.pattern) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v = let _1 = let _1 = let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 3102 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) # 59499 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 59509 "parsing/parser.ml" in ( # 3070 "parsing/parser.mly" ( _1 ) # 59515 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : unit = Obj.magic _4 in let _3 : unit = Obj.magic _3 in let _2 : (Parsetree.pattern) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v = let _1 = let _1 = let _loc__4_ = (_startpos__4_, _endpos__4_) in # 3104 "parsing/parser.mly" ( expecting _loc__4_ "type" ) # 59566 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 59576 "parsing/parser.ml" in ( # 3070 "parsing/parser.mly" ( _1 ) # 59582 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _7; CamlinternalMenhirLib.EngineTypes.startp = _startpos__7_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__7_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; } = _menhir_stack in let _7 : unit = Obj.magic _7 in let _1_inlined3 : (Parsetree.module_type) = Obj.magic _1_inlined3 in let _5 : unit = Obj.magic _5 in let _4 : (string option) = Obj.magic _4 in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in let _v = let _1 = let _1 = let _6 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3886 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in Typ.package_type ~loc:(make_loc _sloc) ~attrs lid cstrs ) # 59667 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3890 "parsing/parser.mly" ( mktyp ~loc:_sloc (Ptyp_package _1) ) # 59676 "parsing/parser.ml" in let _3 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 59686 "parsing/parser.ml" in # 4325 "parsing/parser.mly" ( _1, _2 ) # 59692 "parsing/parser.ml" in let _loc__7_ = (_startpos__7_, _endpos__7_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 3107 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__7_ ) # 59700 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 59710 "parsing/parser.ml" in ( # 3070 "parsing/parser.mly" ( _1 ) # 59716 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.extension) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 3109 "parsing/parser.mly" ( Ppat_extension _1 ) # 59744 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1041 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 59752 "parsing/parser.ml" in ( # 3070 "parsing/parser.mly" ( _1 ) # 59758 "parsing/parser.ml" : (Parsetree.pattern)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( # 819 "parsing/parser.mly" (string) # 59780 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4232 "parsing/parser.mly" ( _1 ) # 59788 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( # 870 "parsing/parser.mly" (string) # 59809 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4233 "parsing/parser.mly" ( _1 ) # 59817 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4234 "parsing/parser.mly" ( "and" ) # 59842 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4235 "parsing/parser.mly" ( "as" ) # 59867 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4236 "parsing/parser.mly" ( "assert" ) # 59892 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4237 "parsing/parser.mly" ( "begin" ) # 59917 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4238 "parsing/parser.mly" ( "class" ) # 59942 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4239 "parsing/parser.mly" ( "constraint" ) # 59967 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4240 "parsing/parser.mly" ( "do" ) # 59992 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4241 "parsing/parser.mly" ( "done" ) # 60017 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4242 "parsing/parser.mly" ( "downto" ) # 60042 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4243 "parsing/parser.mly" ( "effect" ) # 60067 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4244 "parsing/parser.mly" ( "else" ) # 60092 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4245 "parsing/parser.mly" ( "end" ) # 60117 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4246 "parsing/parser.mly" ( "exception" ) # 60142 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4247 "parsing/parser.mly" ( "external" ) # 60167 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4248 "parsing/parser.mly" ( "false" ) # 60192 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4249 "parsing/parser.mly" ( "for" ) # 60217 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4250 "parsing/parser.mly" ( "fun" ) # 60242 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4251 "parsing/parser.mly" ( "function" ) # 60267 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4252 "parsing/parser.mly" ( "functor" ) # 60292 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4253 "parsing/parser.mly" ( "if" ) # 60317 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4254 "parsing/parser.mly" ( "in" ) # 60342 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4255 "parsing/parser.mly" ( "include" ) # 60367 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4256 "parsing/parser.mly" ( "inherit" ) # 60392 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4257 "parsing/parser.mly" ( "initializer" ) # 60417 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4258 "parsing/parser.mly" ( "lazy" ) # 60442 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4259 "parsing/parser.mly" ( "let" ) # 60467 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4260 "parsing/parser.mly" ( "match" ) # 60492 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4261 "parsing/parser.mly" ( "method" ) # 60517 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4262 "parsing/parser.mly" ( "module" ) # 60542 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4263 "parsing/parser.mly" ( "mutable" ) # 60567 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4264 "parsing/parser.mly" ( "new" ) # 60592 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4265 "parsing/parser.mly" ( "nonrec" ) # 60617 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4266 "parsing/parser.mly" ( "object" ) # 60642 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4267 "parsing/parser.mly" ( "of" ) # 60667 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4268 "parsing/parser.mly" ( "open" ) # 60692 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4269 "parsing/parser.mly" ( "or" ) # 60717 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4270 "parsing/parser.mly" ( "private" ) # 60742 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4271 "parsing/parser.mly" ( "rec" ) # 60767 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4272 "parsing/parser.mly" ( "sig" ) # 60792 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4273 "parsing/parser.mly" ( "struct" ) # 60817 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4274 "parsing/parser.mly" ( "then" ) # 60842 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4275 "parsing/parser.mly" ( "to" ) # 60867 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4276 "parsing/parser.mly" ( "true" ) # 60892 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4277 "parsing/parser.mly" ( "try" ) # 60917 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4278 "parsing/parser.mly" ( "type" ) # 60942 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4279 "parsing/parser.mly" ( "val" ) # 60967 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4280 "parsing/parser.mly" ( "virtual" ) # 60992 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4281 "parsing/parser.mly" ( "when" ) # 61017 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4282 "parsing/parser.mly" ( "while" ) # 61042 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4283 "parsing/parser.mly" ( "with" ) # 61067 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined5 : (Parsetree.attributes) = Obj.magic _1_inlined5 in let _1_inlined4 : (Parsetree.attributes) = Obj.magic _1_inlined4 in let _1_inlined3 : (Longident.t) = Obj.magic _1_inlined3 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : (Asttypes.label) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined5_ in let _v = let attrs = let _1 = _1_inlined5 in # 4308 "parsing/parser.mly" ( _1 ) # 61144 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined5_ in let attrs2 = let _1 = _1_inlined4 in # 4312 "parsing/parser.mly" ( _1 ) # 61153 "parsing/parser.ml" in let lid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 61164 "parsing/parser.ml" in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 61175 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 61183 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3457 "parsing/parser.mly" ( let loc = make_loc _sloc in let docs = symbol_docs _sloc in Te.mk_exception ~attrs ~loc (Te.rebind id lid ~attrs:(attrs1 @ attrs2) ~loc ~docs) , ext ) # 61196 "parsing/parser.ml" : (Parsetree.type_exception * string Asttypes.loc option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = # 2795 "parsing/parser.mly" ( _2 ) # 61229 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : (Parsetree.function_body) = Obj.magic _4 in let _3 : unit = Obj.magic _3 in let _2 : (Parsetree.type_constraint option) = Obj.magic _2 in let _1 : (Parsetree.function_param list) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v = let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2797 "parsing/parser.mly" ( ghexp ~loc:_sloc (mkfunction _1 _2 _4) ) # 61280 "parsing/parser.ml" : (Parsetree.expression)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xss; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xss_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xss_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let xss : (Parsetree.structure_item list list) = Obj.magic xss in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xss_ in let _endpos = _endpos_xss_ in let _v = let _1 = let _1 = let ys = # 271 "" ( List.flatten xss ) # 61309 "parsing/parser.ml" in let xs = let items = # 1072 "parsing/parser.mly" ( [] ) # 61315 "parsing/parser.ml" in # 1523 "parsing/parser.mly" ( items ) # 61320 "parsing/parser.ml" in # 278 "" ( xs @ ys ) # 61326 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 998 "parsing/parser.mly" ( extra_str _startpos _endpos _1 ) # 61335 "parsing/parser.ml" in ( # 1516 "parsing/parser.mly" ( _1 ) # 61341 "parsing/parser.ml" : (Parsetree.structure)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xss; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xss_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xss_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let xss : (Parsetree.structure_item list list) = Obj.magic xss in let _1 : (Parsetree.attributes) = Obj.magic _1 in let e : (Parsetree.expression) = Obj.magic e in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e_ in let _endpos = _endpos_xss_ in let _v = let _1 = let _1 = let ys = # 271 "" ( List.flatten xss ) # 61384 "parsing/parser.ml" in let xs = let items = let x = let _1 = let _1 = let attrs = # 4308 "parsing/parser.mly" ( _1 ) # 61394 "parsing/parser.ml" in # 1530 "parsing/parser.mly" ( mkstrexp e attrs ) # 61399 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in # 1010 "parsing/parser.mly" ( text_str _startpos @ [_1] ) # 61407 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 1029 "parsing/parser.mly" ( mark_rhs_docs _startpos _endpos; _1 ) # 61417 "parsing/parser.ml" in # 1074 "parsing/parser.mly" ( x ) # 61423 "parsing/parser.ml" in # 1523 "parsing/parser.mly" ( items ) # 61429 "parsing/parser.ml" in # 278 "" ( xs @ ys ) # 61435 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_e_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 998 "parsing/parser.mly" ( extra_str _startpos _endpos _1 ) # 61444 "parsing/parser.ml" in ( # 1516 "parsing/parser.mly" ( _1 ) # 61450 "parsing/parser.ml" : (Parsetree.structure)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (let_bindings) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 1545 "parsing/parser.mly" ( val_of_let_bindings ~loc:_sloc _1 ) # 61480 "parsing/parser.ml" : (Parsetree.structure_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.attribute) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 1548 "parsing/parser.mly" ( pstr_attribute _1 ) # 61508 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1058 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) # 61516 "parsing/parser.ml" in ( # 1570 "parsing/parser.mly" ( _1 ) # 61522 "parsing/parser.ml" : (Parsetree.structure_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.value_description * string Asttypes.loc option) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 1550 "parsing/parser.mly" ( pstr_primitive _1 ) # 61550 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1058 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) # 61558 "parsing/parser.ml" in ( # 1570 "parsing/parser.mly" ( _1 ) # 61564 "parsing/parser.ml" : (Parsetree.structure_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.value_description * string Asttypes.loc option) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 1552 "parsing/parser.mly" ( pstr_primitive _1 ) # 61592 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1058 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) # 61600 "parsing/parser.ml" in ( # 1570 "parsing/parser.mly" ( _1 ) # 61606 "parsing/parser.ml" : (Parsetree.structure_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = bs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_bs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_bs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = a; CamlinternalMenhirLib.EngineTypes.startp = _startpos_a_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_a_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let bs : (Parsetree.type_declaration list) = Obj.magic bs in let a : ((Asttypes.rec_flag * string Asttypes.loc option) * Parsetree.type_declaration) = Obj.magic a in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_a_ in let _endpos = _endpos_bs_ in let _v = let _1 = let _1 = let _1 = let _1 = let _1 = # 1254 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) # 61645 "parsing/parser.ml" in # 3288 "parsing/parser.mly" ( _1 ) # 61650 "parsing/parser.ml" in # 3271 "parsing/parser.mly" ( _1 ) # 61656 "parsing/parser.ml" in # 1554 "parsing/parser.mly" ( pstr_type _1 ) # 61662 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_bs_, _startpos_a_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1058 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) # 61672 "parsing/parser.ml" in ( # 1570 "parsing/parser.mly" ( _1 ) # 61678 "parsing/parser.ml" : (Parsetree.structure_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = priv; CamlinternalMenhirLib.EngineTypes.startp = _startpos_priv_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_priv_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _7; CamlinternalMenhirLib.EngineTypes.startp = _startpos__7_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__7_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = params; CamlinternalMenhirLib.EngineTypes.startp = _startpos_params_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_params_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let xs : (Parsetree.extension_constructor list) = Obj.magic xs in let priv : (Asttypes.private_flag) = Obj.magic priv in let _7 : unit = Obj.magic _7 in let _1_inlined2 : (Longident.t) = Obj.magic _1_inlined2 in let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in let _v = let _1 = let _1 = let _1 = let _1 = let attrs2 = let _1 = _1_inlined3 in # 4308 "parsing/parser.mly" ( _1 ) # 61767 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let cs = # 1246 "parsing/parser.mly" ( List.rev xs ) # 61774 "parsing/parser.ml" in let tid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 61784 "parsing/parser.ml" in let _4 = # 4152 "parsing/parser.mly" ( Recursive ) # 61790 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 61797 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3540 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in Te.mk tid cs ~params ~priv ~attrs ~docs ~loc, ext ) # 61810 "parsing/parser.ml" in # 3523 "parsing/parser.mly" ( _1 ) # 61816 "parsing/parser.ml" in # 1556 "parsing/parser.mly" ( pstr_typext _1 ) # 61822 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1058 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) # 61832 "parsing/parser.ml" in ( # 1570 "parsing/parser.mly" ( _1 ) # 61838 "parsing/parser.ml" : (Parsetree.structure_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = priv; CamlinternalMenhirLib.EngineTypes.startp = _startpos_priv_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_priv_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _7; CamlinternalMenhirLib.EngineTypes.startp = _startpos__7_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__7_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = params; CamlinternalMenhirLib.EngineTypes.startp = _startpos_params_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_params_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined4 : (Parsetree.attributes) = Obj.magic _1_inlined4 in let xs : (Parsetree.extension_constructor list) = Obj.magic xs in let priv : (Asttypes.private_flag) = Obj.magic priv in let _7 : unit = Obj.magic _7 in let _1_inlined3 : (Longident.t) = Obj.magic _1_inlined3 in let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in let _1_inlined2 : unit = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined4_ in let _v = let _1 = let _1 = let _1 = let _1 = let attrs2 = let _1 = _1_inlined4 in # 4308 "parsing/parser.mly" ( _1 ) # 61934 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in let cs = # 1246 "parsing/parser.mly" ( List.rev xs ) # 61941 "parsing/parser.ml" in let tid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 61951 "parsing/parser.ml" in let _4 = let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in # 4154 "parsing/parser.mly" ( not_expecting _loc "nonrec flag" ) # 61962 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 61970 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3540 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in Te.mk tid cs ~params ~priv ~attrs ~docs ~loc, ext ) # 61983 "parsing/parser.ml" in # 3523 "parsing/parser.mly" ( _1 ) # 61989 "parsing/parser.ml" in # 1556 "parsing/parser.mly" ( pstr_typext _1 ) # 61995 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined4_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1058 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) # 62005 "parsing/parser.ml" in ( # 1570 "parsing/parser.mly" ( _1 ) # 62011 "parsing/parser.ml" : (Parsetree.structure_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.type_exception * string Asttypes.loc option) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 1558 "parsing/parser.mly" ( pstr_exception _1 ) # 62039 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1058 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) # 62047 "parsing/parser.ml" in ( # 1570 "parsing/parser.mly" ( _1 ) # 62053 "parsing/parser.ml" : (Parsetree.structure_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = bs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_bs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_bs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = body; CamlinternalMenhirLib.EngineTypes.startp = _startpos_body_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_body_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; } = _menhir_stack in let bs : (Parsetree.module_binding list) = Obj.magic bs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let body : (Parsetree.module_expr) = Obj.magic body in let _1_inlined2 : (string option) = Obj.magic _1_inlined2 in let _4 : unit = Obj.magic _4 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_bs_ in let _v = let _1 = let _1 = let _1 = let _1 = let a = let attrs2 = let _1 = _1_inlined3 in # 4308 "parsing/parser.mly" ( _1 ) # 62136 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let name = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 62148 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 62156 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1634 "parsing/parser.mly" ( let loc = make_loc _sloc in let attrs = attrs1 @ attrs2 in let docs = symbol_docs _sloc in ext, Mb.mk name body ~attrs ~loc ~docs ) # 62171 "parsing/parser.ml" in # 1254 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) # 62177 "parsing/parser.ml" in # 1622 "parsing/parser.mly" ( _1 ) # 62183 "parsing/parser.ml" in # 1560 "parsing/parser.mly" ( pstr_recmodule _1 ) # 62189 "parsing/parser.ml" in let _endpos__1_ = _endpos_bs_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1058 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) # 62199 "parsing/parser.ml" in ( # 1570 "parsing/parser.mly" ( _1 ) # 62205 "parsing/parser.ml" : (Parsetree.structure_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.module_type_declaration * string Asttypes.loc option) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 1562 "parsing/parser.mly" ( pstr_modtype _1 ) # 62233 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1058 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) # 62241 "parsing/parser.ml" in ( # 1570 "parsing/parser.mly" ( _1 ) # 62247 "parsing/parser.ml" : (Parsetree.structure_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = bs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_bs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_bs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = body; CamlinternalMenhirLib.EngineTypes.startp = _startpos_body_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_body_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = params; CamlinternalMenhirLib.EngineTypes.startp = _startpos_params_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_params_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = virt; CamlinternalMenhirLib.EngineTypes.startp = _startpos_virt_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_virt_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; }; }; } = _menhir_stack in let bs : (Parsetree.class_declaration list) = Obj.magic bs in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let body : (Parsetree.class_expr) = Obj.magic body in let _1_inlined2 : ( # 819 "parsing/parser.mly" (string) # 62320 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in let virt : (Asttypes.virtual_flag) = Obj.magic virt in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_bs_ in let _v = let _1 = let _1 = let _1 = let _1 = let a = let attrs2 = let _1 = _1_inlined3 in # 4308 "parsing/parser.mly" ( _1 ) # 62341 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 62353 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 62361 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1972 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in ext, Ci.mk id body ~virt ~params ~attrs ~loc ~docs ) # 62376 "parsing/parser.ml" in # 1254 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) # 62382 "parsing/parser.ml" in # 1961 "parsing/parser.mly" ( _1 ) # 62388 "parsing/parser.ml" in # 1564 "parsing/parser.mly" ( pstr_class _1 ) # 62394 "parsing/parser.ml" in let _endpos__1_ = _endpos_bs_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1058 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) # 62404 "parsing/parser.ml" in ( # 1570 "parsing/parser.mly" ( _1 ) # 62410 "parsing/parser.ml" : (Parsetree.structure_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (string Asttypes.loc option * Parsetree.class_type_declaration list) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 1566 "parsing/parser.mly" ( pstr_class_type _1 ) # 62438 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1058 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) # 62446 "parsing/parser.ml" in ( # 1570 "parsing/parser.mly" ( _1 ) # 62452 "parsing/parser.ml" : (Parsetree.structure_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = thing; CamlinternalMenhirLib.EngineTypes.startp = _startpos_thing_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_thing_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in let thing : (Parsetree.module_expr) = Obj.magic thing in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in let _v = let _1 = let _1 = let _1 = let attrs2 = let _1 = _1_inlined2 in # 4308 "parsing/parser.mly" ( _1 ) # 62512 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 62521 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1671 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Incl.mk thing ~attrs ~loc ~docs, ext ) # 62535 "parsing/parser.ml" in # 1568 "parsing/parser.mly" ( pstr_include _1 ) # 62541 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined2_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1058 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) # 62551 "parsing/parser.ml" in ( # 1570 "parsing/parser.mly" ( _1 ) # 62557 "parsing/parser.ml" : (Parsetree.structure_item)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Parsetree.structure_item) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.structure_item) = # 1572 "parsing/parser.mly" ( _1 ) # 62583 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4217 "parsing/parser.mly" ( "-" ) # 62608 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = # 4218 "parsing/parser.mly" ( "-." ) # 62633 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let xs : (Parsetree.core_type list) = Obj.magic xs in let _3 : (bool) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Asttypes.label) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _5 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 62689 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined1_ in let _4 = let _1 = let xs = # 264 "" ( List.rev xs ) # 62698 "parsing/parser.ml" in # 1157 "parsing/parser.mly" ( xs ) # 62703 "parsing/parser.ml" in # 3918 "parsing/parser.mly" ( _1 ) # 62709 "parsing/parser.ml" in let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 62719 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3904 "parsing/parser.mly" ( let info = symbol_info _endpos in let attrs = add_info_attrs info _5 in Rf.tag ~loc:(make_loc _sloc) ~attrs _1 _3 _4 ) # 62730 "parsing/parser.ml" : (Parsetree.row_field)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : (Asttypes.label) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 62766 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 62777 "parsing/parser.ml" in let _endpos = _endpos__2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3908 "parsing/parser.mly" ( let info = symbol_info _endpos in let attrs = add_info_attrs info _2 in Rf.tag ~loc:(make_loc _sloc) ~attrs _1 true [] ) # 62788 "parsing/parser.ml" : (Parsetree.row_field)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _1_inlined1 : (Asttypes.label) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined1_ in let _v = let arg = # 123 "" ( None ) # 62822 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined1_ in let dir = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 62833 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 4115 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) # 62842 "parsing/parser.ml" : (Parsetree.toplevel_phrase)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined2 : ( # 857 "parsing/parser.mly" (string * Location.t * string option) # 62876 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let _1_inlined1 : (Asttypes.label) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in let _v = let arg = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = # 4119 "parsing/parser.mly" ( let (s, _, _) = _1 in Pdir_string s ) # 62890 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1063 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) # 62898 "parsing/parser.ml" in # 126 "" ( Some x ) # 62904 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in let dir = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 62916 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 4115 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) # 62925 "parsing/parser.ml" : (Parsetree.toplevel_phrase)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined2 : ( # 805 "parsing/parser.mly" (string * char option) # 62959 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let _1_inlined1 : (Asttypes.label) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in let _v = let arg = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = # 4120 "parsing/parser.mly" ( let (n, m) = _1 in Pdir_int (n ,m) ) # 62973 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1063 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) # 62981 "parsing/parser.ml" in # 126 "" ( Some x ) # 62987 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in let dir = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 62999 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 4115 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) # 63008 "parsing/parser.ml" : (Parsetree.toplevel_phrase)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined2 : (Longident.t) = Obj.magic _1_inlined2 in let _1_inlined1 : (Asttypes.label) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in let _v = let arg = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = # 4121 "parsing/parser.mly" ( Pdir_ident _1 ) # 63052 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1063 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) # 63060 "parsing/parser.ml" in # 126 "" ( Some x ) # 63066 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in let dir = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 63078 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 4115 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) # 63087 "parsing/parser.ml" : (Parsetree.toplevel_phrase)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined2 : (Longident.t) = Obj.magic _1_inlined2 in let _1_inlined1 : (Asttypes.label) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in let _v = let arg = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = # 4122 "parsing/parser.mly" ( Pdir_ident _1 ) # 63131 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1063 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) # 63139 "parsing/parser.ml" in # 126 "" ( Some x ) # 63145 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in let dir = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 63157 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 4115 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) # 63166 "parsing/parser.ml" : (Parsetree.toplevel_phrase)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined2 : unit = Obj.magic _1_inlined2 in let _1_inlined1 : (Asttypes.label) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in let _v = let arg = let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let x = let _1 = # 4123 "parsing/parser.mly" ( Pdir_bool false ) # 63210 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1063 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) # 63218 "parsing/parser.ml" in # 126 "" ( Some x ) # 63224 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in let dir = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 63236 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 4115 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) # 63245 "parsing/parser.ml" : (Parsetree.toplevel_phrase)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _1_inlined2 : unit = Obj.magic _1_inlined2 in let _1_inlined1 : (Asttypes.label) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in let _v = let arg = let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let x = let _1 = # 4124 "parsing/parser.mly" ( Pdir_bool true ) # 63289 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1063 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) # 63297 "parsing/parser.ml" in # 126 "" ( Some x ) # 63303 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in let dir = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 63315 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 4115 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) # 63324 "parsing/parser.ml" : (Parsetree.toplevel_phrase)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.attributes) = Obj.magic _1 in let e : (Parsetree.expression) = Obj.magic e in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e_ in let _endpos = _endpos__2_ in let _v = let _1 = let _1 = let _1 = let attrs = # 4308 "parsing/parser.mly" ( _1 ) # 63368 "parsing/parser.ml" in # 1530 "parsing/parser.mly" ( mkstrexp e attrs ) # 63373 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in # 1010 "parsing/parser.mly" ( text_str _startpos @ [_1] ) # 63381 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 998 "parsing/parser.mly" ( extra_str _startpos _endpos _1 ) # 63390 "parsing/parser.ml" in ( # 1294 "parsing/parser.mly" ( Ptop_def _1 ) # 63396 "parsing/parser.ml" : (Parsetree.toplevel_phrase)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xss; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xss_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xss_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let xss : (Parsetree.structure_item list list) = Obj.magic xss in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xss_ in let _endpos = _endpos__2_ in let _v = let _1 = let _1 = # 271 "" ( List.flatten xss ) # 63431 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 998 "parsing/parser.mly" ( extra_str _startpos _endpos _1 ) # 63439 "parsing/parser.ml" in ( # 1298 "parsing/parser.mly" ( Ptop_def _1 ) # 63445 "parsing/parser.ml" : (Parsetree.toplevel_phrase)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : (Parsetree.toplevel_phrase) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.toplevel_phrase) = # 1302 "parsing/parser.mly" ( _1 ) # 63478 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.toplevel_phrase) = # 1305 "parsing/parser.mly" ( raise End_of_file ) # 63503 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = ty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ty_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let ty : (Parsetree.core_type) = Obj.magic ty in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_ty_ in let _endpos = _endpos_ty_ in let _v : (Parsetree.core_type) = # 3742 "parsing/parser.mly" ( ty ) # 63528 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = ty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ty_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let xs : ((string option * Parsetree.core_type) list) = Obj.magic xs in let _2 : unit = Obj.magic _2 in let ty : (Parsetree.core_type) = Obj.magic ty in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_ty_ in let _endpos = _endpos_xs_ in let _v = let _1 = let ltys = let xs = # 264 "" ( List.rev xs ) # 63570 "parsing/parser.ml" in # 1157 "parsing/parser.mly" ( xs ) # 63575 "parsing/parser.ml" in # 3751 "parsing/parser.mly" ( ty, ltys ) # 63581 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_ty_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3744 "parsing/parser.mly" ( let ty, ltys = _1 in mktyp ~loc:_sloc (Ptyp_tuple ((None, ty) :: ltys)) ) # 63592 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.core_type) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.type_constraint) = # 2969 "parsing/parser.mly" ( Pconstraint _2 ) # 63625 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _4 : (Parsetree.core_type) = Obj.magic _4 in let _3 : unit = Obj.magic _3 in let _2 : (Parsetree.core_type) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.type_constraint) = # 2970 "parsing/parser.mly" ( Pcoerce (Some _2, _4) ) # 63671 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.core_type) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.type_constraint) = # 2971 "parsing/parser.mly" ( Pcoerce (None, _2) ) # 63703 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.type_constraint) = # 2972 "parsing/parser.mly" ( syntax_error() ) # 63735 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.type_constraint) = # 2973 "parsing/parser.mly" ( syntax_error() ) # 63767 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = # 3362 "parsing/parser.mly" ( (Ptype_abstract, Public, None) ) # 63785 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = # 3364 "parsing/parser.mly" ( _2 ) # 63817 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = # 4076 "parsing/parser.mly" ( _1 ) # 63842 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : (Parsetree.core_type) = Obj.magic _2 in let _1 : (Asttypes.variance * Asttypes.injectivity) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) = # 3379 "parsing/parser.mly" ( _2, _1 ) # 63874 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = # 3372 "parsing/parser.mly" ( [] ) # 63892 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = p; CamlinternalMenhirLib.EngineTypes.startp = _startpos_p_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_p_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let p : (Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) = Obj.magic p in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_p_ in let _endpos = _endpos_p_ in let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = # 3374 "parsing/parser.mly" ( [p] ) # 63917 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let xs : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic xs in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let ps = let xs = # 264 "" ( List.rev xs ) # 63958 "parsing/parser.ml" in # 1157 "parsing/parser.mly" ( xs ) # 63963 "parsing/parser.ml" in ( # 3376 "parsing/parser.mly" ( ps ) # 63969 "parsing/parser.ml" : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = tyvar; CamlinternalMenhirLib.EngineTypes.startp = _startpos_tyvar_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_tyvar_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let tyvar : (Asttypes.label) = Obj.magic tyvar in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_tyvar_ in let _v = let _1 = let _1 = # 3384 "parsing/parser.mly" ( Ptyp_var tyvar ) # 64004 "parsing/parser.ml" in let _endpos__1_ = _endpos_tyvar_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1043 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 64013 "parsing/parser.ml" in ( # 3387 "parsing/parser.mly" ( _1 ) # 64019 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _1 = let _1 = # 3386 "parsing/parser.mly" ( Ptyp_any ) # 64047 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1043 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 64055 "parsing/parser.ml" in ( # 3387 "parsing/parser.mly" ( _1 ) # 64061 "parsing/parser.ml" : (Parsetree.core_type)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.variance * Asttypes.injectivity) = # 3391 "parsing/parser.mly" ( NoVariance, NoInjectivity ) # 64080 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.variance * Asttypes.injectivity) = # 3392 "parsing/parser.mly" ( Covariant, NoInjectivity ) # 64105 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.variance * Asttypes.injectivity) = # 3393 "parsing/parser.mly" ( Contravariant, NoInjectivity ) # 64130 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.variance * Asttypes.injectivity) = # 3394 "parsing/parser.mly" ( NoVariance, Injective ) # 64155 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.variance * Asttypes.injectivity) = # 3395 "parsing/parser.mly" ( Covariant, Injective ) # 64187 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.variance * Asttypes.injectivity) = # 3395 "parsing/parser.mly" ( Covariant, Injective ) # 64219 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.variance * Asttypes.injectivity) = # 3396 "parsing/parser.mly" ( Contravariant, Injective ) # 64251 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.variance * Asttypes.injectivity) = # 3396 "parsing/parser.mly" ( Contravariant, Injective ) # 64283 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( # 797 "parsing/parser.mly" (string) # 64304 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 3398 "parsing/parser.mly" ( if _1 = "+!" then Covariant, Injective else if _1 = "-!" then Contravariant, Injective else if _1 = "+-" then Bivariant, NoInjectivity else if _1 = "-+" then Bivariant, NoInjectivity else if _1 = "+-!" then Bivariant, Injective else if _1 = "-+!" then Bivariant, Injective else expecting _loc__1_ "type_variance" ) # 64320 "parsing/parser.ml" : (Asttypes.variance * Asttypes.injectivity)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( # 843 "parsing/parser.mly" (string) # 64342 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v = let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 3406 "parsing/parser.mly" ( if _1 = "!+" then Covariant, Injective else if _1 = "!-" then Contravariant, Injective else if _1 = "!+-" then Bivariant, Injective else if _1 = "!-+" then Bivariant, Injective else expecting _loc__1_ "type_variance" ) # 64356 "parsing/parser.ml" : (Asttypes.variance * Asttypes.injectivity)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = xss; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xss_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xss_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let xss : (Parsetree.toplevel_phrase list list) = Obj.magic xss in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_xss_ in let _endpos = _endpos__2_ in let _v = let _1 = let _1 = let ys = # 271 "" ( List.flatten xss ) # 64392 "parsing/parser.ml" in let xs = let _1 = # 1072 "parsing/parser.mly" ( [] ) # 64398 "parsing/parser.ml" in # 1325 "parsing/parser.mly" ( _1 ) # 64403 "parsing/parser.ml" in # 278 "" ( xs @ ys ) # 64409 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 1002 "parsing/parser.mly" ( extra_def _startpos _endpos _1 ) # 64418 "parsing/parser.ml" in ( # 1318 "parsing/parser.mly" ( _1 ) # 64424 "parsing/parser.ml" : (Parsetree.toplevel_phrase list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xss; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xss_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xss_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = e; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let xss : (Parsetree.toplevel_phrase list list) = Obj.magic xss in let _1 : (Parsetree.attributes) = Obj.magic _1 in let e : (Parsetree.expression) = Obj.magic e in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos_e_ in let _endpos = _endpos__2_ in let _v = let _1 = let _1 = let ys = # 271 "" ( List.flatten xss ) # 64474 "parsing/parser.ml" in let xs = let _1 = let x = let _1 = let _1 = let attrs = # 4308 "parsing/parser.mly" ( _1 ) # 64484 "parsing/parser.ml" in # 1530 "parsing/parser.mly" ( mkstrexp e attrs ) # 64489 "parsing/parser.ml" in # 1020 "parsing/parser.mly" ( Ptop_def [_1] ) # 64495 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in # 1018 "parsing/parser.mly" ( text_def _startpos @ [_1] ) # 64503 "parsing/parser.ml" in # 1074 "parsing/parser.mly" ( x ) # 64509 "parsing/parser.ml" in # 1325 "parsing/parser.mly" ( _1 ) # 64515 "parsing/parser.ml" in # 278 "" ( xs @ ys ) # 64521 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_e_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 1002 "parsing/parser.mly" ( extra_def _startpos _endpos _1 ) # 64530 "parsing/parser.ml" in ( # 1318 "parsing/parser.mly" ( _1 ) # 64536 "parsing/parser.ml" : (Parsetree.toplevel_phrase list)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : (Asttypes.label) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Asttypes.label) = # 3995 "parsing/parser.mly" ( _2 ) # 64576 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : (Asttypes.label) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in ( # 3996 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) # 64618 "parsing/parser.ml" : (Asttypes.label)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v = let _loc__2_ = (_startpos__2_, _endpos__2_) in ( # 3997 "parsing/parser.mly" ( expecting _loc__2_ "operator" ) # 64653 "parsing/parser.ml" : (Asttypes.label)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v = let _loc__3_ = (_startpos__3_, _endpos__3_) in ( # 3998 "parsing/parser.mly" ( expecting _loc__3_ "module-expr" ) # 64695 "parsing/parser.ml" : (Asttypes.label)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( # 819 "parsing/parser.mly" (string) # 64717 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = # 4001 "parsing/parser.mly" ( _1 ) # 64725 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Asttypes.label) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = # 4002 "parsing/parser.mly" ( _1 ) # 64750 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : (Longident.t) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = # 4070 "parsing/parser.mly" ( _1 ) # 64775 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = mutable_; CamlinternalMenhirLib.EngineTypes.startp = _startpos_mutable__; CamlinternalMenhirLib.EngineTypes.endp = _endpos_mutable__; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let ty : (Parsetree.core_type) = Obj.magic ty in let _5 : unit = Obj.magic _5 in let _1_inlined1 : ( # 819 "parsing/parser.mly" (string) # 64822 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let mutable_ : (Asttypes.mutable_flag) = Obj.magic mutable_ in let _1 : (Parsetree.attributes) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_ty_ in let _v = let label = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = # 3962 "parsing/parser.mly" ( _1 ) # 64835 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 64843 "parsing/parser.ml" in let attrs = # 4312 "parsing/parser.mly" ( _1 ) # 64849 "parsing/parser.ml" in let _1 = # 4210 "parsing/parser.mly" ( Fresh ) # 64854 "parsing/parser.ml" in ( # 2112 "parsing/parser.mly" ( (label, mutable_, Cfk_virtual ty), attrs ) # 64859 "parsing/parser.ml" : ((Asttypes.label Asttypes.loc * Asttypes.mutable_flag * Parsetree.class_field_kind) * Parsetree.attributes)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _6 : (Parsetree.expression) = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined1 : ( # 819 "parsing/parser.mly" (string) # 64909 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _3 : (Asttypes.mutable_flag) = Obj.magic _3 in let _1 : (Parsetree.attributes) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in let _v = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = # 3962 "parsing/parser.mly" ( _1 ) # 64922 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 64930 "parsing/parser.ml" in let _2 = # 4312 "parsing/parser.mly" ( _1 ) # 64936 "parsing/parser.ml" in let _1 = # 4213 "parsing/parser.mly" ( Fresh ) # 64941 "parsing/parser.ml" in ( # 2114 "parsing/parser.mly" ( (_4, _3, Cfk_concrete (_1, _6)), _2 ) # 64946 "parsing/parser.ml" : ((Asttypes.label Asttypes.loc * Asttypes.mutable_flag * Parsetree.class_field_kind) * Parsetree.attributes)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let _6 : (Parsetree.expression) = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( # 819 "parsing/parser.mly" (string) # 65002 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let _3 : (Asttypes.mutable_flag) = Obj.magic _3 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__6_ in let _v = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = # 3962 "parsing/parser.mly" ( _1 ) # 65016 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 65024 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 65032 "parsing/parser.ml" in let _1 = # 4214 "parsing/parser.mly" ( Override ) # 65038 "parsing/parser.ml" in ( # 2114 "parsing/parser.mly" ( (_4, _3, Cfk_concrete (_1, _6)), _2 ) # 65043 "parsing/parser.ml" : ((Asttypes.label Asttypes.loc * Asttypes.mutable_flag * Parsetree.class_field_kind) * Parsetree.attributes)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _7; CamlinternalMenhirLib.EngineTypes.startp = _startpos__7_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__7_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let _7 : (Parsetree.expression) = Obj.magic _7 in let _6 : unit = Obj.magic _6 in let _5 : (Parsetree.type_constraint) = Obj.magic _5 in let _1_inlined1 : ( # 819 "parsing/parser.mly" (string) # 65100 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _3 : (Asttypes.mutable_flag) = Obj.magic _3 in let _1 : (Parsetree.attributes) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in let _v = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = # 3962 "parsing/parser.mly" ( _1 ) # 65113 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 65121 "parsing/parser.ml" in let _startpos__4_ = _startpos__1_inlined1_ in let _2 = # 4312 "parsing/parser.mly" ( _1 ) # 65128 "parsing/parser.ml" in let (_endpos__2_, _startpos__2_) = (_endpos__1_, _startpos__1_) in let _1 = # 4213 "parsing/parser.mly" ( Fresh ) # 65134 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in let _endpos = _endpos__7_ in let _symbolstartpos = if _startpos__1_ != _endpos__1_ then _startpos__1_ else if _startpos__2_ != _endpos__2_ then _startpos__2_ else if _startpos__3_ != _endpos__3_ then _startpos__3_ else _startpos__4_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2117 "parsing/parser.mly" ( let e = mkexp_constraint ~loc:_sloc _7 _5 in (_4, _3, Cfk_concrete (_1, e)), _2 ) # 65154 "parsing/parser.ml" : ((Asttypes.label Asttypes.loc * Asttypes.mutable_flag * Parsetree.class_field_kind) * Parsetree.attributes)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _7; CamlinternalMenhirLib.EngineTypes.startp = _startpos__7_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__7_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _6; CamlinternalMenhirLib.EngineTypes.startp = _startpos__6_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__6_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _7 : (Parsetree.expression) = Obj.magic _7 in let _6 : unit = Obj.magic _6 in let _5 : (Parsetree.type_constraint) = Obj.magic _5 in let _1_inlined2 : ( # 819 "parsing/parser.mly" (string) # 65217 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let _3 : (Asttypes.mutable_flag) = Obj.magic _3 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__7_ in let _v = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = # 3962 "parsing/parser.mly" ( _1 ) # 65231 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 65239 "parsing/parser.ml" in let _startpos__4_ = _startpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 65248 "parsing/parser.ml" in let (_endpos__2_, _startpos__2_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let _1 = # 4214 "parsing/parser.mly" ( Override ) # 65255 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = if _startpos__1_ != _endpos__1_ then _startpos__1_ else if _startpos__2_ != _endpos__2_ then _startpos__2_ else if _startpos__3_ != _endpos__3_ then _startpos__3_ else _startpos__4_ in let _sloc = (_symbolstartpos, _endpos) in ( # 2117 "parsing/parser.mly" ( let e = mkexp_constraint ~loc:_sloc _7 _5 in (_4, _3, Cfk_concrete (_1, e)), _2 ) # 65274 "parsing/parser.ml" : ((Asttypes.label Asttypes.loc * Asttypes.mutable_flag * Parsetree.class_field_kind) * Parsetree.attributes)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ty_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _5; CamlinternalMenhirLib.EngineTypes.startp = _startpos__5_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__5_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = ext; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ext_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ext_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; }; } = _menhir_stack in let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let ty : (Parsetree.core_type) = Obj.magic ty in let _5 : unit = Obj.magic _5 in let _1_inlined2 : (Asttypes.label) = Obj.magic _1_inlined2 in let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in let ext : (string Asttypes.loc option) = Obj.magic ext in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined3_ in let _v = let attrs2 = let _1 = _1_inlined3 in # 4308 "parsing/parser.mly" ( _1 ) # 65347 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 65359 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 4312 "parsing/parser.mly" ( _1 ) # 65367 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3233 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in Val.mk id ty ~attrs ~loc ~docs, ext ) # 65380 "parsing/parser.ml" : (Parsetree.value_description * string Asttypes.loc option)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let _menhir_s = _menhir_env.CamlinternalMenhirLib.EngineTypes.current in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.virtual_flag) = # 4174 "parsing/parser.mly" ( Concrete ) # 65399 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.virtual_flag) = # 4175 "parsing/parser.mly" ( Virtual ) # 65424 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag) = # 4198 "parsing/parser.mly" ( Immutable ) # 65449 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.mutable_flag) = # 4199 "parsing/parser.mly" ( Mutable ) # 65481 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.mutable_flag) = # 4200 "parsing/parser.mly" ( Mutable ) # 65513 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag) = # 4205 "parsing/parser.mly" ( Public ) # 65538 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag) = # 4206 "parsing/parser.mly" ( Private ) # 65570 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag) = # 4207 "parsing/parser.mly" ( Private ) # 65602 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; }; } = _menhir_stack in let xs : ((Parsetree.core_type * Parsetree.core_type * Ast_helper.loc) list) = Obj.magic xs in let _1_inlined2 : (Parsetree.core_type) = Obj.magic _1_inlined2 in let _4 : (Asttypes.private_flag) = Obj.magic _4 in let _1_inlined1 : (Longident.t) = Obj.magic _1_inlined1 in let _2 : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_xs_ in let _v = let _6 = let _1 = let xs = # 264 "" ( List.rev xs ) # 65665 "parsing/parser.ml" in # 1086 "parsing/parser.mly" ( xs ) # 65670 "parsing/parser.ml" in # 3333 "parsing/parser.mly" ( _1 ) # 65676 "parsing/parser.ml" in let _endpos__6_ = _endpos_xs_ in let _5 = let _1 = _1_inlined2 in # 3655 "parsing/parser.mly" ( _1 ) # 65685 "parsing/parser.ml" in let _3 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 65696 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3574 "parsing/parser.mly" ( let lident = loc_last _3 in Pwith_type (_3, (Type.mk lident ~params:_2 ~cstrs:_6 ~manifest:_5 ~priv:_4 ~loc:(make_loc _sloc))) ) # 65713 "parsing/parser.ml" : (Parsetree.with_constraint)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let _1_inlined2 : (Parsetree.core_type) = Obj.magic _1_inlined2 in let _4 : unit = Obj.magic _4 in let _1_inlined1 : (Longident.t) = Obj.magic _1_inlined1 in let _2 : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in let _v = let _5 = let _1 = _1_inlined2 in # 3655 "parsing/parser.mly" ( _1 ) # 65770 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined2_ in let _3 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 65782 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in ( # 3587 "parsing/parser.mly" ( let lident = loc_last _3 in Pwith_typesubst (_3, (Type.mk lident ~params:_2 ~manifest:_5 ~loc:(make_loc _sloc))) ) # 65797 "parsing/parser.ml" : (Parsetree.with_constraint)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _1_inlined2 : (Longident.t) = Obj.magic _1_inlined2 in let _3 : unit = Obj.magic _3 in let _1_inlined1 : (Longident.t) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in let _v = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 65850 "parsing/parser.ml" in let _2 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 65861 "parsing/parser.ml" in ( # 3595 "parsing/parser.mly" ( Pwith_module (_2, _4) ) # 65867 "parsing/parser.ml" : (Parsetree.with_constraint)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _3; CamlinternalMenhirLib.EngineTypes.startp = _startpos__3_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__3_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let _1_inlined2 : (Longident.t) = Obj.magic _1_inlined2 in let _3 : unit = Obj.magic _3 in let _1_inlined1 : (Longident.t) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_inlined2_ in let _v = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 65920 "parsing/parser.ml" in let _2 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 65931 "parsing/parser.ml" in ( # 3597 "parsing/parser.mly" ( Pwith_modsubst (_2, _4) ) # 65937 "parsing/parser.ml" : (Parsetree.with_constraint)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = rhs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_rhs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_rhs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let rhs : (Parsetree.module_type) = Obj.magic rhs in let _4 : unit = Obj.magic _4 in let _1_inlined1 : (Longident.t) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_rhs_ in let _v = let l = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 65997 "parsing/parser.ml" in ( # 3599 "parsing/parser.mly" ( Pwith_modtype (l, rhs) ) # 66003 "parsing/parser.ml" : (Parsetree.with_constraint)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = rhs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_rhs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_rhs_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__4_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _1_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined1_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; }; } = _menhir_stack in let rhs : (Parsetree.module_type) = Obj.magic rhs in let _4 : unit = Obj.magic _4 in let _1_inlined1 : (Longident.t) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos_rhs_ in let _v = let l = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1006 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 66063 "parsing/parser.ml" in ( # 3601 "parsing/parser.mly" ( Pwith_modtypesubst (l, rhs) ) # 66069 "parsing/parser.ml" : (Parsetree.with_constraint)) in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag) = # 3604 "parsing/parser.mly" ( Public ) # 66095 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = _1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; } = _menhir_stack in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.CamlinternalMenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag) = # 3605 "parsing/parser.mly" ( Private ) # 66127 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); |] and trace = None end module MenhirInterpreter = struct module ET = CamlinternalMenhirLib.TableInterpreter.MakeEngineTable (Tables) module TI = CamlinternalMenhirLib.Engine.Make (ET) include TI end let use_file = fun lexer lexbuf : (Parsetree.toplevel_phrase list) -> Obj.magic (MenhirInterpreter.entry `Simplified 2264 lexer lexbuf) and toplevel_phrase = fun lexer lexbuf : (Parsetree.toplevel_phrase) -> Obj.magic (MenhirInterpreter.entry `Simplified 2244 lexer lexbuf) and parse_val_longident = fun lexer lexbuf : (Longident.t) -> Obj.magic (MenhirInterpreter.entry `Simplified 2238 lexer lexbuf) and parse_pattern = fun lexer lexbuf : (Parsetree.pattern) -> Obj.magic (MenhirInterpreter.entry `Simplified 2234 lexer lexbuf) and parse_mty_longident = fun lexer lexbuf : (Longident.t) -> Obj.magic (MenhirInterpreter.entry `Simplified 2230 lexer lexbuf) and parse_module_type = fun lexer lexbuf : (Parsetree.module_type) -> Obj.magic (MenhirInterpreter.entry `Simplified 2226 lexer lexbuf) and parse_module_expr = fun lexer lexbuf : (Parsetree.module_expr) -> Obj.magic (MenhirInterpreter.entry `Simplified 2222 lexer lexbuf) and parse_mod_longident = fun lexer lexbuf : (Longident.t) -> Obj.magic (MenhirInterpreter.entry `Simplified 2218 lexer lexbuf) and parse_mod_ext_longident = fun lexer lexbuf : (Longident.t) -> Obj.magic (MenhirInterpreter.entry `Simplified 2214 lexer lexbuf) and parse_expression = fun lexer lexbuf : (Parsetree.expression) -> Obj.magic (MenhirInterpreter.entry `Simplified 2210 lexer lexbuf) and parse_core_type = fun lexer lexbuf : (Parsetree.core_type) -> Obj.magic (MenhirInterpreter.entry `Simplified 2206 lexer lexbuf) and parse_constr_longident = fun lexer lexbuf : (Longident.t) -> Obj.magic (MenhirInterpreter.entry `Simplified 2202 lexer lexbuf) and parse_any_longident = fun lexer lexbuf : (Longident.t) -> Obj.magic (MenhirInterpreter.entry `Simplified 2184 lexer lexbuf) and interface = fun lexer lexbuf : (Parsetree.signature) -> Obj.magic (MenhirInterpreter.entry `Simplified 2180 lexer lexbuf) and implementation = fun lexer lexbuf : (Parsetree.structure) -> Obj.magic (MenhirInterpreter.entry `Simplified 0 lexer lexbuf) module Incremental = struct let use_file = fun initial_position : (Parsetree.toplevel_phrase list) MenhirInterpreter.checkpoint -> Obj.magic (MenhirInterpreter.start 2264 initial_position) and toplevel_phrase = fun initial_position : (Parsetree.toplevel_phrase) MenhirInterpreter.checkpoint -> Obj.magic (MenhirInterpreter.start 2244 initial_position) and parse_val_longident = fun initial_position : (Longident.t) MenhirInterpreter.checkpoint -> Obj.magic (MenhirInterpreter.start 2238 initial_position) and parse_pattern = fun initial_position : (Parsetree.pattern) MenhirInterpreter.checkpoint -> Obj.magic (MenhirInterpreter.start 2234 initial_position) and parse_mty_longident = fun initial_position : (Longident.t) MenhirInterpreter.checkpoint -> Obj.magic (MenhirInterpreter.start 2230 initial_position) and parse_module_type = fun initial_position : (Parsetree.module_type) MenhirInterpreter.checkpoint -> Obj.magic (MenhirInterpreter.start 2226 initial_position) and parse_module_expr = fun initial_position : (Parsetree.module_expr) MenhirInterpreter.checkpoint -> Obj.magic (MenhirInterpreter.start 2222 initial_position) and parse_mod_longident = fun initial_position : (Longident.t) MenhirInterpreter.checkpoint -> Obj.magic (MenhirInterpreter.start 2218 initial_position) and parse_mod_ext_longident = fun initial_position : (Longident.t) MenhirInterpreter.checkpoint -> Obj.magic (MenhirInterpreter.start 2214 initial_position) and parse_expression = fun initial_position : (Parsetree.expression) MenhirInterpreter.checkpoint -> Obj.magic (MenhirInterpreter.start 2210 initial_position) and parse_core_type = fun initial_position : (Parsetree.core_type) MenhirInterpreter.checkpoint -> Obj.magic (MenhirInterpreter.start 2206 initial_position) and parse_constr_longident = fun initial_position : (Longident.t) MenhirInterpreter.checkpoint -> Obj.magic (MenhirInterpreter.start 2202 initial_position) and parse_any_longident = fun initial_position : (Longident.t) MenhirInterpreter.checkpoint -> Obj.magic (MenhirInterpreter.start 2184 initial_position) and interface = fun initial_position : (Parsetree.signature) MenhirInterpreter.checkpoint -> Obj.magic (MenhirInterpreter.start 2180 initial_position) and implementation = fun initial_position : (Parsetree.structure) MenhirInterpreter.checkpoint -> Obj.magic (MenhirInterpreter.start 0 initial_position) end # 4350 "parsing/parser.mly" # 66280 "parsing/parser.ml"