(* This generated code requires the following version of CamlinternalMenhirLib: *) let () = CamlinternalMenhirLib.StaticVersion.require_20201216 module MenhirBasics = struct exception Error = Parsing.Parse_error type token = | WITH | WHILE | WHEN | VIRTUAL | VAL | UNDERSCORE | UIDENT of ( # 758 "parsing/parser.mly" (string) # 22 "parsing/parser.ml" ) | TYPE | TRY | TRUE | TO | TILDE | THEN | STRUCT | STRING of ( # 745 "parsing/parser.mly" (string * Location.t * string option) # 34 "parsing/parser.ml" ) | STAR | SIG | SEMISEMI | SEMI | RPAREN | REC | RBRACKET | RBRACE | QUOTED_STRING_ITEM of ( # 749 "parsing/parser.mly" (string * Location.t * string * Location.t * string option) # 47 "parsing/parser.ml" ) | QUOTED_STRING_EXPR of ( # 747 "parsing/parser.mly" (string * Location.t * string * Location.t * string option) # 52 "parsing/parser.ml" ) | QUOTE | QUESTION | PRIVATE | PREFIXOP of ( # 731 "parsing/parser.mly" (string) # 60 "parsing/parser.ml" ) | PLUSEQ | PLUSDOT | PLUS | PERCENT | OR | OPTLABEL of ( # 724 "parsing/parser.mly" (string) # 70 "parsing/parser.ml" ) | OPEN | OF | OBJECT | NONREC | NEW | MUTABLE | MODULE | MINUSGREATER | MINUSDOT | MINUS | METHOD | MATCH | LPAREN | LIDENT of ( # 707 "parsing/parser.mly" (string) # 88 "parsing/parser.ml" ) | LETOP of ( # 689 "parsing/parser.mly" (string) # 93 "parsing/parser.ml" ) | LET | LESSMINUS | LESS | LBRACKETPERCENTPERCENT | LBRACKETPERCENT | LBRACKETLESS | LBRACKETGREATER | LBRACKETBAR | LBRACKETATATAT | LBRACKETATAT | LBRACKETAT | LBRACKET | LBRACELESS | LBRACE | LAZY | LABEL of ( # 694 "parsing/parser.mly" (string) # 113 "parsing/parser.ml" ) | INT of ( # 693 "parsing/parser.mly" (string * char option) # 118 "parsing/parser.ml" ) | INITIALIZER | INHERIT | INFIXOP4 of ( # 687 "parsing/parser.mly" (string) # 125 "parsing/parser.ml" ) | INFIXOP3 of ( # 686 "parsing/parser.mly" (string) # 130 "parsing/parser.ml" ) | INFIXOP2 of ( # 685 "parsing/parser.mly" (string) # 135 "parsing/parser.ml" ) | INFIXOP1 of ( # 684 "parsing/parser.mly" (string) # 140 "parsing/parser.ml" ) | INFIXOP0 of ( # 683 "parsing/parser.mly" (string) # 145 "parsing/parser.ml" ) | INCLUDE | IN | IF | HASHOP of ( # 742 "parsing/parser.mly" (string) # 153 "parsing/parser.ml" ) | HASH | GREATERRBRACKET | GREATERRBRACE | GREATER | FUNCTOR | FUNCTION | FUN | FOR | FLOAT of ( # 672 "parsing/parser.mly" (string * char option) # 166 "parsing/parser.ml" ) | FALSE | EXTERNAL | EXCEPTION | EQUAL | EOL | EOF | END | ELSE | DOWNTO | DOTOP of ( # 688 "parsing/parser.mly" (string) # 180 "parsing/parser.ml" ) | DOTDOT | DOT | DONE | DOCSTRING of ( # 766 "parsing/parser.mly" (Docstrings.docstring) # 188 "parsing/parser.ml" ) | DO | CONSTRAINT | COMMENT of ( # 765 "parsing/parser.mly" (string * Location.t) # 195 "parsing/parser.ml" ) | COMMA | COLONGREATER | COLONEQUAL | COLONCOLON | COLON | CLASS | CHAR of ( # 652 "parsing/parser.mly" (char) # 206 "parsing/parser.ml" ) | BEGIN | BARRBRACKET | BARBAR | BAR | BANG | BACKQUOTE | ASSERT | AS | ANDOP of ( # 690 "parsing/parser.mly" (string) # 219 "parsing/parser.ml" ) | AND | AMPERSAND | AMPERAMPER end include MenhirBasics let _eRR = MenhirBasics.Error # 25 "parsing/parser.mly" 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 d = Pat.mk ~loc:(make_loc loc) d let mkexp ~loc d = Exp.mk ~loc:(make_loc loc) 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 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_recmodule (ext, bindings) = (Pstr_recmodule bindings, ext) 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 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 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)) (* Ghost expressions and patterns: expressions and patterns that do not appear explicitly in the source file they have the loc_ghost flag set to true. Then the profiler will not try to instrument them and the -annot option will not try to display their type. Every grammar rule that generates an element with a location must make at most one non-ghost element, the topmost one. How to tell whether your location must be ghost: A location corresponds to a range of characters in the source file. If the location contains a piece of code that is syntactically valid (according to the documentation), and corresponds to the AST node, then the location must be real; in all other cases, it must be ghost. *) let ghexp ~loc d = Exp.mk ~loc:(ghost_loc loc) d let ghpat ~loc d = Pat.mk ~loc:(ghost_loc loc) d let ghtyp ~loc d = Typ.mk ~loc:(ghost_loc loc) 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 let mkuminus ~oploc name arg = match name, arg.pexp_desc with | "-", Pexp_constant(Pconst_integer (n,m)) -> Pexp_constant(Pconst_integer(neg_string n,m)) | ("-" | "-."), Pexp_constant(Pconst_float (f, m)) -> Pexp_constant(Pconst_float(neg_string f, m)) | _ -> Pexp_apply(mkoperator ~loc:oploc ("~" ^ name), [Nolabel, arg]) let mkuplus ~oploc name arg = let desc = arg.pexp_desc in match name, desc with | "+", Pexp_constant(Pconst_integer _) | ("+" | "+."), Pexp_constant(Pconst_float _) -> desc | _ -> Pexp_apply(mkoperator ~loc:oploc ("~" ^ name), [Nolabel, arg]) (* 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 [e1; 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 [p1; ghpat ~loc:el_loc pat_pl]) in ghpat_cons_desc loc arg, loc let mkstrexp e attrs = { pstr_desc = Pstr_eval (e, attrs); pstr_loc = e.pexp_loc } let mkexp_constraint ~loc e (t1, t2) = match t1, t2 with | Some t, None -> ghexp ~loc (Pexp_constraint(e, t)) | _, Some t -> ghexp ~loc (Pexp_coerce(e, t1, t)) | None, None -> assert false 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 -> ghpat ~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))) (* 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 = function { pexp_desc = Pexp_tuple explist; pexp_loc = _ } -> explist | exp -> [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 -> Lident "String" | Brace -> let submodule_name = match n with | One -> "Array1" | Two -> "Array2" | Three -> "Array3" | Many -> "Genarray" in Ldot(Lident "Bigarray", submodule_name) in ghloc ~loc (Ldot(prefix,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(p,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 p2 = if !Clflags.applicative_functors then Lapply(p1, 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 ~loc lid = let lid = make_ghost (loc_map (fun id -> Lident (Longident.last id)) lid) in ghexp ~loc (Pexp_ident lid) let exp_of_label ~loc lbl = mkexp ~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 wrap_exp_attrs ~loc body (ext, attrs) = let ghexp = ghexp ~loc in (* todo: keep exact location for the entire attribute *) let body = {body with pexp_attributes = attrs @ body.pexp_attributes} in match ext with | None -> body | Some id -> ghexp(Pexp_extension (id, PStr [mkstrexp body []])) let mkexp_attrs ~loc d attrs = wrap_exp_attrs ~loc (mkexp ~loc d) attrs let wrap_typ_attrs ~loc typ (ext, attrs) = (* todo: keep exact location for the entire attribute *) let typ = {typ with ptyp_attributes = attrs @ typ.ptyp_attributes} in match ext with | None -> typ | Some id -> ghtyp ~loc (Ptyp_extension (id, PTyp typ)) let wrap_pat_attrs ~loc pat (ext, attrs) = (* todo: keep exact location for the entire attribute *) let pat = {pat with ppat_attributes = attrs @ pat.ppat_attributes} in match ext with | None -> pat | Some id -> ghpat ~loc (Ppat_extension (id, PPat (pat, None))) let mkpat_attrs ~loc d attrs = wrap_pat_attrs ~loc (mkpat ~loc d) attrs 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_str_ext ~loc body ext = match ext with | None -> body | Some id -> ghstr ~loc (Pstr_extension ((id, PStr [body]), [])) let wrap_mkstr_ext ~loc (item, ext) = wrap_str_ext ~loc (mkstr ~loc item) ext let wrap_sig_ext ~loc body ext = match ext with | None -> body | Some id -> ghsig ~loc (Psig_extension ((id, PSig [body]), [])) let wrap_mksig_ext ~loc (item, ext) = wrap_sig_ext ~loc (mksig ~loc item) ext let mk_quotedext ~loc (id, idloc, str, strloc, delim) = let exp_id = mkloc id idloc in let e = ghexp ~loc (Pexp_constant (Pconst_string (str, strloc, delim))) 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_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; lbs_loc: Location.t } let mklb first ~loc (p, e, is_pun) attrs = { lb_pattern = p; lb_expression = e; 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 ~loc ext rf lb = let lbs = { lbs_bindings = []; lbs_rec = rf; lbs_extension = ext ; lbs_loc = make_loc loc; } 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) 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 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 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)) (* 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 "parametrized types are not supported"; if ptyp.ptype_cstrs <> [] then err loc "constrained types are not supported"; if ptyp.ptype_private <> Public then err loc "private types are not supported"; (* 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 "only 'with type t =' constraints are supported" 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 "only module type identifier and 'with type' constraints are supported" 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; } # 837 "parsing/parser.ml" module Tables = struct include MenhirBasics let token2terminal : token -> int = fun _tok -> match _tok with | AMPERAMPER -> 123 | AMPERSAND -> 122 | AND -> 121 | ANDOP _ -> 120 | AS -> 119 | ASSERT -> 118 | BACKQUOTE -> 117 | BANG -> 116 | BAR -> 115 | BARBAR -> 114 | BARRBRACKET -> 113 | BEGIN -> 112 | CHAR _ -> 111 | CLASS -> 110 | COLON -> 109 | COLONCOLON -> 108 | COLONEQUAL -> 107 | COLONGREATER -> 106 | COMMA -> 105 | COMMENT _ -> 104 | CONSTRAINT -> 103 | DO -> 102 | DOCSTRING _ -> 101 | DONE -> 100 | DOT -> 99 | DOTDOT -> 98 | DOTOP _ -> 97 | DOWNTO -> 96 | ELSE -> 95 | END -> 94 | EOF -> 93 | EOL -> 92 | EQUAL -> 91 | EXCEPTION -> 90 | EXTERNAL -> 89 | FALSE -> 88 | FLOAT _ -> 87 | FOR -> 86 | FUN -> 85 | FUNCTION -> 84 | FUNCTOR -> 83 | GREATER -> 82 | GREATERRBRACE -> 81 | GREATERRBRACKET -> 80 | HASH -> 79 | HASHOP _ -> 78 | IF -> 77 | IN -> 76 | INCLUDE -> 75 | INFIXOP0 _ -> 74 | INFIXOP1 _ -> 73 | INFIXOP2 _ -> 72 | INFIXOP3 _ -> 71 | INFIXOP4 _ -> 70 | INHERIT -> 69 | INITIALIZER -> 68 | INT _ -> 67 | LABEL _ -> 66 | LAZY -> 65 | LBRACE -> 64 | LBRACELESS -> 63 | LBRACKET -> 62 | LBRACKETAT -> 61 | LBRACKETATAT -> 60 | LBRACKETATATAT -> 59 | LBRACKETBAR -> 58 | LBRACKETGREATER -> 57 | LBRACKETLESS -> 56 | LBRACKETPERCENT -> 55 | LBRACKETPERCENTPERCENT -> 54 | LESS -> 53 | LESSMINUS -> 52 | LET -> 51 | LETOP _ -> 50 | LIDENT _ -> 49 | LPAREN -> 48 | MATCH -> 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 () | 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 () | 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\002\253\002\252\002\251\002\250\002\249\002\204\002\248\002\247\002\246\002\245\002\244\002\243\002\242\002\241\002\240\002\239\002\238\002\237\002\236\002\235\002\234\002\233\002\232\002\231\002\230\002\203\002\229\002\228\002\227\002\226\002\225\002\224\002\223\002\222\002\221\002\220\002\219\002\218\002\217\002\216\002\215\002\214\002\213\002\212\002\211\002\210\002\209\002\208\002\207\002\206\002\205\000\000\000\000\000*\000\186\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003B\001\172\001\151\001\169\001\168\001\167\001\173\001\177\000\000\003C\001\171\001\170\001\152\001\175\001\166\001\165\001\164\001\163\001\162\001\160\001\176\001\174\000\000\000\000\000\000\000\220\000\000\000\000\001\155\000\000\000\000\000\000\001\157\000\000\000\000\000\000\001\159\001\181\001\178\001\161\001\153\001\179\001\180\000\000\003A\003@\003D\000\000\000\000\000\024\001E\000\188\000\000\000\216\000\217\000\023\000\000\000\000\001\203\001\202\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003=\000\000\0038\000\000\000\000\003:\000\000\003<\000\000\0039\003;\000\000\0033\000\000\0032\003.\0027\000\000\0031\000\000\0028\000\000\000\000\000\000\000\000\000j\000\000\000\000\000h\000\000\000\000\001C\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\184\001Q\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\000e\000\000\000\000\000\000\000\000\001O\000\000\000\000\001R\001P\001X\000A\002\140\000\000\001\021\000\000\000\000\000\000\000\015\000\014\000\000\000\000\000\000\000\000\002\185\000\000\002k\002l\000\000\002i\002j\000\000\000\000\000\000\000\000\000\000\001h\001g\000\000\002\183\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\223\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\022\003\021\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000g\000\000\000\231\000\000\002n\002m\000\000\000\000\000\000\001\185\000\000\000\000\000%\000\000\000\000\000\000\000\000\000\000\001W\000\000\001V\000\000\001F\001U\000\000\001D\000b\000\030\000\000\000\000\001\128\000\025\000\000\000\000\000\000\000\000\003-\000(\000\000\000\000\000\031\000\026\000\000\000\000\000\000\000\201\000\000\000\000\000\000\000\203\002A\0023\000\000\000\"\000\000\0024\000\000\000\000\001\182\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\017\003\023\000\000\003\024\000\000\000y\000\000\000\000\000!\000\000\000\000\000\000\000#\000\000\000$\000\000\000&\000\000\000\000\000'\002)\002(\000\000\000\000\000\000\000\000\000\000\000\000\000c\000\000\002\190\000f\000i\000d\002\179\003E\002\180\001\244\002\182\000\000\000\000\002\187\002h\002\189\000\000\000\000\000\000\002\196\002\193\000\000\000\000\000\000\001\240\001\226\000\000\000\000\000\000\000\000\001\230\000\000\001\225\000\000\001\243\002\202\000\000\000\000\000\000\000\000\001\130\000\000\000\000\001\242\002\188\000q\000\000\000\000\000p\000\000\002\197\002\181\000\000\001\236\000\000\000\000\002\200\000\000\002\199\002\198\000\000\001\232\000\000\000\000\001\228\001\227\001\241\001\233\000\000\000o\000\000\002\195\002\194\000\000\002\192\000\000\002p\002o\000\000\000\000\002K\002\191\000\000\000\000\000\000\000\000\001\187\0010\0011\002r\000\000\002s\002q\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\241\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\204\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001r\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\0030\000\000\000\000\000\000\000\000\000\000\001q\000\000\000\000\000\000\001N\001x\001M\001u\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0021\000\000\000\000\0022\002%\002$\000\000\001p\001o\000\000\000\205\000\000\000\000\001a\000\000\000\000\001e\000\000\001\207\001\206\000\000\000\000\001\205\001\204\001d\001b\000\000\001f\000\000\000\000\000\000\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\144\001S\002\149\002\147\000\000\000\000\000\000\002\160\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\178\000\000\002\177\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\255\000\000\000\000\000\000\000\000\000\000\000\000\000\239\001\254\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\234\000\000\000\235\000\000\000\000\000\000\002\157\000\000\000\000\000\000\002\128\002w\000\000\000\000\000\000\000\000\003F\002\159\002\146\002\145\000\000\000\000\000\169\000\000\000\000\000\000\000\000\000\000\000\183\000\000\000\000\000\000\000\168\000\000\000\000\000\000\002R\002Q\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\243\000\000\003\000\000\000\003*\000\000\000\000\003)\000\000\000\000\000\000\000\000\000\000\000\195\000\194\000\244\000\000\003\001\003\002\000\000\000\000\000\000\000\000\000\000\000\000\000\250\000\000\000\000\002+\000\000\000\000\000\000\000\249\000\000\000\000\000\248\000\247\000\000\000\000\000\000\000\000\000\252\000\000\000\000\000\251\000\000\001\239\000\000\000\000\001\251\000\000\000\000\001\253\000\000\000\000\001\249\001\248\001\246\001\247\000\000\000\000\000\000\000\245\000\000\000\000\001\027\000\018\000\254\000\000\000\000\000\000\002\130\002y\000\000\000\000\002\129\002x\000\000\000\000\000\000\000\000\002\132\002{\000\000\000\000\002E\000\000\000\000\002\136\002\127\000\000\000\000\002\134\002}\002\153\000\000\000\000\000\000\000\000\000\000\002\131\000\000\000\000\000\000\000\000\000\000\002\135\000\000\000\000\000\000\000\000\000\000\002\133\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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'\002&\000\167\000\000\002z\000\000\000\000\002~\000\000\000\000\002|\000\000\000z\000{\000\000\000\000\000\000\000\000\000\138\000\196\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\197\000\000\000\198\000\199\000\131\000\000\000\130\000\000\000\000\0013\000\000\0014\0012\002-\000\000\000\000\002.\002,\000\000\000\000\000\000\000\000\000\000\001\006\000\000\000\000\001\007\000\000\000\000\000\170\000\000\001\t\001\b\000\000\000\000\002\161\002\154\000\000\002\170\000\000\002\171\002\169\000\000\002\175\000\000\002\176\002\174\000\000\000\000\002\156\002\155\000\000\000\000\000\000\002\021\000\000\001\201\000\000\000\000\000\000\002N\002\020\000\000\002\165\002\164\000\000\000\000\000\000\001T\000\000\002\138\000\000\002\139\002\137\000\000\002\163\002\162\000\000\000\000\000\000\002H\002\152\000\000\002\151\002\150\000\000\002\173\002\172\000\128\000\000\000\000\000\000\000\000\000\127\000\000\000\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\000k\000\000\000\000\000l\000\000\000\000\000\000\000\000\001z\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\225\000\000\000\000\000u\000\000\000\228\000\226\000\000\000\000\000\000\000\207\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000~\000m\000\000\000\000\002\019\000\000\000\000\000\253\001\199\000\000\000\237\000\238\001\004\000\000\000\000\000\000\000\000\000\000\001\214\001\208\000\000\001\213\000\000\001\211\000\000\001\212\000\000\001\209\000\000\000\000\001\210\000\000\001\148\000\000\000\000\000\000\001\147\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001v\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\017\003\015\000\000\000\000\003\014\000\000\000\000\000\000\000\000\000\000\002\004\000\000\000\000\000\000\000\000\000\000\000\000\003\020\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\132\000\000\002\n\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\255\000\000\000\000\002S\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\150\000\000\000\000\000\000\001\149\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001w\000\000\000\000\000\000\000\000\001j\000\000\001i\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\019\002a\000\000\000\000\000\000\002_\000\000\000\000\000\000\002^\000\000\001]\000\000\000\000\000\000\000\000\002e\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003N\000\000\000\000\000\000\000\193\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000E\000\000\000\000\000\000\000\000\001\127\000\000\001~\000\000\000\000\000\000\000\000\000H\000\000\000\000\000\000\002\017\000\000\002\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000I\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000N\000\000\000\000\000\000\000O\000M\000\000\000R\000\000\000\000\000\000\000\000\000\000\000G\000\000\000\000\000\000\000\000\000\000\000\000\000J\000\000\000Q\000P\000\000\000K\000L\000\000\001$\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\015\000a\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000^\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\r\002f\002W\000\000\002]\002X\002d\002c\002b\002`\001\030\000\000\002U\000\000\000\000\000\000\000\000\000\000\002\"\000\000\000\000\001\023\002Y\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\143\001\139\000\000\000\000\000\000\000\210\000\000\000\000\002\024\002\"\000\000\000\000\001\025\002\022\002\023\000\000\000\000\000\000\000\000\000\000\001\146\001\142\001\138\000\000\000\000\000\211\000\000\000\000\001\145\001\141\001\137\001\135\002Z\002V\002g\001\029\002\001\002T\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003I\000\000\000\000\003K\000\000\0006\000\000\000\000\003Q\000\000\003P\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003H\000\000\000\000\003J\000\000\000\000\000\000\002\012\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001B\000\000\000\000\001@\001>\000\000\0007\000\000\000\000\003T\000\000\003S\000\000\000\000\000\000\001<\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001A\000\000\000\000\001?\001=\000\000\000\000\000\000\0009\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\000X\000\000\000\000\000\000\000\000\000\000\000\000\0003\000\000\000\000\000W\000\000\0001\001\001\000\000\000@\000-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\255\000\000\000V\000U\000\000\000\000\000[\000Z\000\000\000\000\001\189\000\000\0005\000\000\000\000\000\000\0004\000\000\000\000\000\000\0008\000\000\000Y\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\011\003\018\003\t\000\000\000\000\003\r\002\254\003\b\003\017\003\016\001\"\000\000\000\000\003\006\000\000\003\n\003\007\003\019\002\000\000\000\000\000\003\004\000\000\000\191\003\003\000\000\000\000\000\222\000\000\000\000\001!\001 \000\000\001_\001^\000\000\000\000\002\201\002\184\000\000\000B\000\000\000\000\000C\000\000\000\000\000\142\000\141\002\168\000\000\002\167\002\166\002\148\000\000\000\000\000\000\000\000\002\141\000\000\002\143\000\000\002\142\000\000\002u\002t\000\000\002v\000\000\000\000\000\134\000\000\000\000\002\t\000\215\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\189\000\000\003\012\002\029\002\030\002\025\002\027\002\026\002\028\000\000\000\000\000\000\000\190\000\000\000\000\002\"\000\000\000\214\000\000\000\000\000\000\000\000\003\011\000\000\000\187\000\000\000\000\000\000\000\000\001;\0015\000\000\000\000\0016\000\029\000\000\000\028\000\000\000\000\000\202\000\000\000\000\000\000\000 \000\027\000\000\000\000\000\000\000\021\000\000\000\000\000\000\000\000\001\144\001\140\000\000\001\136\003,\000\000\002\"\000\000\000\213\000\000\000\000\000\000\000\000\002\\\002!\002\031\002 \000\000\000\000\000\000\002\"\000\000\000\212\000\000\000\000\000\000\000\000\002[\000\000\001l\001k\000\000\000\022\000\000\003L\000\000\000+\000\000\000\000\000\000\000\000\000\137\000\000\000\218\000\001\000\000\000\000\000\221\000\002\000\000\000\000\000\000\001H\001I\000\003\000\000\000\000\000\000\000\000\001K\001L\001J\000\019\001G\000\020\000\000\001\215\000\000\000\004\000\000\001\216\000\000\000\005\000\000\001\217\000\000\000\000\001\218\000\006\000\000\000\007\000\000\001\219\000\000\000\b\000\000\001\220\000\000\000\t\000\000\001\221\000\000\000\000\001\222\000\n\000\000\000\000\001\223\000\011\000\000\000\000\000\000\000\000\000\000\003\031\003\026\003\027\003\030\003\028\000\000\003#\000\012\000\000\003\"\000\000\001(\000\000\000\000\003 \000\000\003!\000\000\000\000\000\000\000\000\001,\001-\000\000\000\000\001+\001*\000\r\000\000\000\000\000\000\003?\000\000\003>") and error = (124, "'\225 \197\138\173\2433\208\020\015\228\000\003\142\0026\016\004\\(\223\018}\000@\248\000\000\024\224}\246D\b/\227P\000L\028\030\227\139\002\131@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\2437\252\149\031\226\017\007\158\007\223d@\130\2545\000\004\193\193\2388\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#a\000E\130\141\241'\208\004\015\128\000\001\142\007\223d@\130\2545\000\004\193\193\2388\176(4'\225\"\213\138\173\2433\208\020\015\224\000\007\142\000\000\000\000\004\000\012\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\192\004\000\000\000\000\000\000\000\000\000\000\000\000\000\012\000\000\000\000\000\000\000\000\000\128\000\128\007\224,$\000\003\226 \016@\016(\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\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\002\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\128\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\018\000\000\000\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\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\017\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\000\000\128\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\004\000\0000\000\007\001\000\012\\ \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\016\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\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\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\0000\000\007\001\002\012\\ \000\016\000\000\000\000\000\001\000@@@ \193\004\000\000\016\000\000\000\000\000\016\004\004\000\002\012\016@\000\001\000\000\000\000\000\001\000@@\000 \193\000\000\000\016\000\000\000\000\012H\002\168\000\131\t!\192\001\016\007a\003 \004\132\128 \128\b \002\020\000\016\000b\000\002\000\bH\002\b\000\130\000!\000\001\000\006 \000 \000\003\000\000$\193\004\192\004\000\128\000\000\000\000\b\0000\000\002H\016L\000@\b\000\000\000\000\000\128\003\000\000$\129\004\192\000\000\128\000\000\000\000\b\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\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000$\128\004\192\000\000\128\000\000\000\000\b\000 \000\002\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\002H\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\002\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\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\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\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\002\000\000$\128\004\000\000\000\128\000\000\000\000\b\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\bH\002( \130\000!\128\001\000\007`\017 \004\003 \000x\016\000\197\194\128\001\000\128 \000\016\bH\002(\000\194\t!\192\001\016\006a\016a\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0002\000\007\001\000\012\\(\000\016\b\002\000\001\000\003\000\bp\016 \197\194\000\001\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\197\128\187\128\b2R\028\012\017 v\001f\017`0\000\006\000\000\012\\ \000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0000\000\006\000\000\012\\ \000\018\000\002\000\000\000\001\000\016\000\000\000@\000\000\001 \000\000\004\000\0000\000\007\001\000\012\\ \000\016\000\000\000\000\000\001\000\000\000\000\000@\000\000\000\000\000\000\000\000\bP\t\026\000\001$!\192\192\018\001!\018\000\016}\246D\b/\227P\000L\028\030\227\139\002\131B~\018-X\170\2233=\001@\254\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\003\000\000$\193\004\192\004\000\128\000\000\000\000\b\0000\000\002H\016L\000@\b\000\000\000\000\000\128\003\000\000$\129\004\192\000\000\128\000\000\000\000\b\0000\000\002H\000L\000\000\b\000\000\000\000\000\128\001\000\000\000\000\000@\000\000\000\000\000\000\000\000\bH\002( \130\001!\128\001\016\007`\016 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bH\002(\000\130\001!\128\001\016\006`\016 \004}\246D\b/\227P\000L\028\030\227\139\002\131B~\018-X\170\2233=\001@\254\000\000x\224#a\000E\194\141\241'\208\004\015\128\000\001\142\0026\016\004X(\223\018}\000@\248\000\000\024\224#a\000E\130\141\241#\208\004\015\128\000\001\142\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001!\000D\000\128\193#\144\000\001\128\000\001\140\000\016\000\000\004\000\004\000@\000\000\000\000\000\000\000\001\000\000\000\000\000@\004\000\000\000\000\000\000\000\000\016\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\001\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\175\235w\253\155\239\247\255\252\157?\230!\003\158@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\163a\136G\226\173\245#\211\230/\144@\025\174\184\018\016\132@\b\012\0189\000\000\024\000\000\024\192#a\000E\130\141\241#\208\004\015\128\000\001\206\000\000\000\000\000\000\000\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\b\004\000(!@\192\000\000 \016\000\000\132\000\000\128\000\002\130\020\012\000\000\002\001\000\000\b@\000\b\000\000(!\000\192\000\000 \016\000\000\003!\000@\128\004\193\"\208\001\001\160\000\001\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\016\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\001\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\131!\136G\224,\229\"\211\227!\176@\025,\184\000\000\128\000\000\000\000\001\000\000\016\000\000\000\000\131\000\000\000@\000\000\004\000\000\000\000\000\000\000\0000\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\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\016\004\004\000\002\012\016\000\000\001\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\001\002\000@\000\000\129\004\000\000\016\000\000\000\000\000\016 \004\000\000\b\016\000\000\001\000\000\000\000\000\167\225 \197\138\173\2437\208\020\015\226\000\003\142\n~\018\012X\170\2233=\001@\254 \0008\224\167\225\"\197\138\173\2433\208\020\015\230\000\003\142\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\002\000@@\000\129\004\000\000\016\000\000\000\b\000\016 \004\004\000\b\016@\000\001\000\000\000\000\000\001\002\000@\000\000\129\004\000\000\016\000\000\000\000\000\016 \004\000\000\b\016\000\000\001\000\000\000\000\000\005\002\000@\000\000\129\000\000\000\016\000\000\000\000\0026\016\004X(\223\018}\000@\248\000\000\024\224#a\000E\130\141\241#\208\004\015\128\000\001\142\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0026\016\004\\(\223\018}\000@\248\000\000\024\224#a\000E\130\141\241'\208\004\015\128\000\001\142\0026\016\004X(\223\018=\000@\248\000\000\024\224\197\189\187\215\248\190\223?\191\251a\247\219\127\252\2426\016\004X(\223\018=\000@\248\000\000\024\224\003!\000@\128\004\193\"\208\001\001\128\000\001\004\0002\016\004\b\000L\018-\000\016\026\000\000\020@\003!\002@\128\004\193\"\208\001\001\160\000\001\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\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\b\000\001\016\000\000\000\000\000\000\000\001\000\000@\000\003\000\000p\016\000\197\194\000\001\000\000\000\000\000\0000\000\007\001\000\012\\ \000\016\000\000\000\001@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0000\000\007\001\000\012\\ \000\016\000\000\000\000@\003\000\002p\016\000\197\194\000\001\000\000\000\000\020\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000\197\194\000\001\000\000\000\000\004\0000\000\007\001\000\012\\ \000\016\000\000\000\001@\001\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\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\b\000\000\000\128\000\000\000\000\000\016\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\016\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\000\000\000\000\000\000\0000\000\007\001\000\012\\ \000\016\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\012H\003\184\000\131!!\192\193\018\007`\022!\022\003\000\000p\016\000\197\194\000\001\000\000\000\000\000\012H\011\184\000\131!!\192\193\018\007`\022!\022\003\000\000`\000\000\197\194\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\012X\011\184\000\131%!\192\193\018\007`\022!\022\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\0000\000\006\000\000\012\\ \000\016\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\0000\000\007\001\000\012\\ \000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012X\011\184\000\131%!\192\193\018\007`\022!\022\003\000\000`\000\000\197\194\000\001\000\000\000\000\000\012X\011\184\000\131%!\192\193\018\007`\022!\022\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\0000\000\007\001\000\012\\ \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\002\000\000\000\001\000\003\000\000p\016\000\197\194\000\001\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\197\194\000\001\000\000\000\000\000\000\000\000 \000\000\000\000@\000\002\000\000\000\001\002\003\000\000p\016\000\197\194\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\002\000\000\000\000\004\000\000 \000\000\000\017 \000\000\002\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\002\000\000\000\001\018\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\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012H\003\184\000\131!!\192\193\018\007`\022!\020\000\000\002\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\0000\000\007\001\000\012\\ \000\016\000\000\000\000@\000\000\002\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\000\000\000\000\002\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\000\000\000\000\002\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\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\000\000\000\000\000\000\000\000\000\000\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\001\016\000\000\000\000@\000\000\001\000\000\000\000\128\000\017\000\000\000\000\000\000\000\000\016\000\000\000\0002\016\004\b\000L\018-\000\016\026\000\000\016@\003!\000@\192\004\193&\144\001\001\128\000\001\004\0002\016\004\b\000L\018i\000\016\024\000\000\016@\003!\000@\128\004\193\"\144\001\001\128\000\001\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\193&\176\001\001\148 mU\000\000\016\000\b\000@\000\001\000\000\016\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\t2\145\181\t\001L\018o\000\016\027A\006\213P\001\000\000\000\000\000\128\"\128\000\000\000\000\000\000\b2\016\132\b\000L\018-\000\016\026\000\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\003!\000@\192\004\193&\208\001\001\160\000\001\004\0002\016\004\b\000L\018m\000\016\026\000\000\016@\003!\000@\128\004\193\"\208\001\001\160\000\001\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\t\000\001\176\000\001\000\000@\000\000\001@\004\197\016\003!\000@\128\004\193\"\208\001\001\160\000\001\004\t\000\001\176\000\001\000\000@\000\000\001@\004\197\016\131!\000@\128\004\193\"\208\001\001\160\000\001\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\144\000\027\000\000\016\000\004\000\000\000\020\000LQ\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\147!\027@\128\020\193&\208\001\001\180\000MU\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\t2\017\180\b\001L\018m\000\016\027@\004\213P\131\161\136G\224,\229\"\211\227!\176@\025,\176\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000@\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\b\000\000\000\000\000\000\000\000\000\000\000\000\0002\016\004\b\000L\018)\000\016\024\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\b\000\000\128\000\000\000\000\001\000\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\000\000\000\128\000\b\000\000\000\000\004\000\000\000\000\000L\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\b2\016\004\b\000L\018-\000\016\026\000\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\t\000\001\176\000\001\000\000@\000\000\001@\004\197\016\131\000\000p\016\000\197\194\000\001\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\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\b2\016\004\b\000L\018-\000\016\026\000\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\t\000\001\176\000\001\000\000@\000\000\001@\004\197\016\128\000\000\000\000\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\000\000\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\b\000\000\128\000\000\000\000@\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\003!\002@\128\004\193\"\208\001\001\160\000\001\004\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\b\000\001 \000\000\000\000@\000\000\000\000\004\133\016\131!\002@\128\004\193\"\208\001\001\160\000\001D\000\000\000\000\000\000\000\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\001\016\000\000\000\000@\000\000\000\000\004\129\016\128\000\017\000\000\000\000\000\000\000\000\000\000\000\000\b0\000\016\000\000\004\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\b\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\003)\000P\144\004\193&\176\t\001\144\000M\021\128\000\000\000\000\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\000\128\000\000\000\000\000\000\000\001\000\000@\000\003\000\000p\016\000\197\194\000\001\000\000\000\000\000\000\000\000\128\000\000\000\000@\000\000\001\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\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\000\128\000\000\000\000\000\000\000\001\000\000\000\000#a\000E\130\141\241#\208\004\015\128\000\001\142\0002\016D\012\130L\018m\000\016\026\000\000\016@\001\002\000@@\000\129\004\000\000\016\000\000\000\b\000\016 \004\004\000\b\016@\000\001\000\000\000\000\000\001\002\000@\000\000\129\004\000\000\016\000\000\000\000\000\016 \004\000\000\b\016\000\000\001\000\000\000\000\000\000\000\000\000\000\000\128\004\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\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\004\000\000\016\004\004\000\002\012\016\000\000\001\000\000\000\000\000\001\000@@\000 \193\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\128\000\000\000\000\000\000\000\000\000\000\000\000\000\001\b\000\000\000\000\000\000\000\000\000\001\000@@\000 \193\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\196\128*\128\b0\018\028\000\017\000v\000\"\000@\b\000\000\000\002\000\000\000\000\000\000\000\000\000\000\003\000\000$\128\004\192\000\000\128\000\000\000\000\b\000\016\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\016\000\016\000\0000\000\007\129\000\012\\ \000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0000\000\007\001\000\012\\ \000\016\000\000\000\000\000\196\128*\128\b0\018\028\000\017\000v\000\"\001@0\000\007\001\000\012\\ \000\016\000\000\000\000\000\196\128*\128\b0\018\028\000\017\000v\001\"\001LH\002\168\000\131\001!\192\001\016\007`\018 \004\003\000\000p\016\000\197\194\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\001\000\000\000\000\003\000\000p\016\000\197\194\000\001\000\000\000\000\000\012H\002\168\000\131\001!\192\001\016\007`\018 \004\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\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\001\000\000\001\000@@\000 \193\000\000\000\016\000\000\000\000\012H\002\168\000\131\001!\192\001\016\007`\002 \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\001\000\000\000\001\000\000\000\000\000@\000\000\000\000\000\000\000\000\012H\002\168\000\131\t!\192\001\016\007a\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\001\000@@\000 \193\000\000\000\016\000\000\000\000\012H\002\168\000\131\001!\192\001\016\007`\002 \004\001\000@@\000 \193\000\000\000\016\000\000\000\000\012H\002\168\000\131\001!\192\001\016\007`\002 \004\000\000\000\000\000\000\000\000\000\000\000\016\016\016\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\196\128*\128\b0\146\028\000\017\000v\016\"\000@\016\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\012H\002\168\000\131\t!\192\001\016\007a\002 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012H\002\168\000\131\001!\192\001\016\007`\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\192\000\b\000\000\016\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\004\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\001\b\000\000\000\000\000\000\000\000\000\001\002\000@\000\000\129\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\196\128*\128\b0\146\028\000\025\000v\000&\000@P \132\000\000\b\016\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\128\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\001\000@@\000 \193\000\000\000\016\000\000\000\000\012\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\196\128*\128\b0\146\028\000\025\000v\016&\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\004\000\b\000\000\000\000\000\0026\016\004X(\223\018=\000@\248\000\000\024\224#a\002E\130\141\241#\208\004\015\128\000\001\142\000\000\000\000\000\000\004\000\000\000\004\000\000\000\000\000\128\000\016\000\000\000\000\000\000\000@\016\000\000\000\0026\016\004X(\223\018=\000@\248\000\000\024\224\001!\000D\000\128\193#\144\000\001\128\000\001\140\012\000\001\016\000\000\000\000\000\0000\001\005\002@\000#a\000E\194\141\241'\208\004\015\130\000\001\142\0026\016\004X(\223\018}\000@\248 \000\024\224#a\000E\130\141\241#\208\004\015\130\000\001\142\000\018\016\004D\b\012\018y\000\000\024\000\000\024\192\001!\000D\000\128\193'\144\000\001\128\000\001\140\000\018\016\004@\b\012\0189\000\000\024\000\000\024\192\001!\000D\000\128\193#\144\000\001\128\000\001\140\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012[\219\189\127\139\237s\251\255\182\031}\183\255\223\001\000\000\000\000\000\192#\128\000\000\000\000\000\000\n6\024\132~*\223R=>b\249\004\001\154\235\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\n6\016\132X(\223\018=\000@\248\000\000\024\224\163a\bE\130\141\241#\208\004\015\128\000\001\142\b\016 \004\004\000\b\016@\000\001\000\000\000\000\000\001\002\000@\000\000\129\004\000\000\016\000\000\000\000\000\016 \004\000\000\b\016\000\000\001\000\000\000\000\000\000\000\000\000\000\000\128\004\000\000\000\000\000\004\000\b\016\004\004\000\002\012\016\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\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\n6\016\132X(\223\018=\000@\248\000\000\024\224\163a\bE\130\141\241#\208\004\015\128\000\001\142\b2\016\132\b\000L\018-\000\016\024\000\000\016@\000\000\000\000\000\000\000\004\000\000\000\016\000L\017\0000\000\007\001\000\012\\ \000\016\000\000\000\000\000\000\000\000\000\000\000\000\004\000\000\000\016\000\000\000\0026\016\004X(\223\018=\000@\248\000\000\024\224#a\000E\194\141\241'\208\004\015\128\000\001\142\0026\016\004X(\223\018}\000@\248\000\000\024\224#a\000E\130\141\241#\208\004\015\128\000\001\142\0002\016\004\012\000L\018m\000\016\026\000\000\017@\003!\000@\128\004\193&\208\001\001\160\000\001\020\0002\016\004\b\000L\018-\000\016\026\000\000\017@\003!\000@\128\004\193\"\208\001\001\160\000\001\004\001\000\000\000\000\001\000\000@\000\000\000\000\004\129\016#a\000E\130\141\241#\208\004\015\128\000\001\142\0002\144\005\r\000L\018k\000\016\024\000\000\016@\003)\000P\144\004\193&\176\001\001\128\000\001\004\0002\144\005\t\000L\018+\000\016\024\000\000\016@\002\000\000\000\000\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\003!\000@\128\004\193\"\208\001\001\160\000\001\004\000\000\000\128\000\000\000\000@\000\000\001\000\004\193\016\003\000\000p\016\000\197\194\000\001\000\000\000\000\000\000\000\000\128\000\000\000\000@\000\000\001\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\016\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\b:\024\132~\002\206R->2\027\004\001\146\203\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\003)\000P\144\020\193\"\176\001\001\128\000\005\004\0026\016\004X(\223\018=\000@\248\000\000\024\224\003!\000@\192\004\193&\208\001\001\160\000\001\004\0002\016\004\b\000L\018m\000\016\026\000\000\016@\003!\000@\128\004\193\"\208\001\001\160\000\001\004\000\000\000\000\000\000\000\000@\000\000\001\000\004\129\016#a\000E\130\141\241#\208\004\015\128\000\001\142\000\018\016\004D\b\012\018y\000\000\024\000\000\024\192\001!\000D\000\128\193'\144\000\001\128\000\001\140\000\018\016\004@\b\012\0189\000\000\024\000\000\024\192\196\148\187\131\232>\022\028\015\251`w\219~p\240\018\016\004@\b\012\0189\000\000\024\000\000\024\192\197\189\187\215\248\190\215?\191\251a\247\219\127\253\240\000\000\000\000\000\b\000(\000\000\000\000\000\000\000#a\000E\130\141\241#\208\004\015\128\000\001\142\0026\016\004X(\223\018=\000@\248\000\000\024\224\197\189\187\215\248\190\215?\191\251a\247\219\127\252\240\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\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\018\016\004@\b\012\0189\000\000\024\000\000\024\192\197\189\187\215\248\190\215?\191\251a\247\219\127\253\240\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\016\000\000\000\000\012\000(\000\000\000\000\000\000\000#a\000E\130\141\241#\208\004\015\128\000\001\142\b\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\196\148\187\131\232>\022\028\015\249`w\139~p\2426\016\004X(\223\018=\000@\248\000\000\024\224\197\189\187\215\248\190\215?\191\251a\247\219\127\252\252IK\184>\131\225a\192\255\182\007}\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\000\000\000\000\000\000\000\b\000\000\000\000\000B6\016\004X(\223\018=\000@\248\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012IK\184>\131\225a\192\255\150\007x\183\231\015#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012[\219\189\127\139\237s\251\255\182\031}\183\255\207\196\148\187\131\232>\022\028\015\251`w\219~p\2426\016\004X(\223\018=\000@\248\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\014\127[\188~\171\255s\253\255\214\255x\183\255\239}\246D\b/\227P\000L\028\030\227\139\002\131B6\016\004X(\223\018=\000@\248\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#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015\003!\000@\128\004\193&\208\001\001\128\000\001\004\0002\016\004\b\000L\018-\000\016\024\000\000\016@\135\169\"\208\152$\211>\176\025\001\246\000o\021H:\024\132~\002\206R->2\027\004\001\146\203\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\003)\000P\144\004\193\"\176\001\001\144\000%\004\0002\016\004\b\000L\018)\000\016\024\000\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0026\016\004X(\223\018=\000@\248\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b0\000\007\001\000\012\\ \000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\001\144\000\000\000\000@\000\000\001\000\000\000\000\131\000\000p\016\000\197\194\000\001\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\004\000\000\000\016\000 \000\0000\000\007\001\000\012\\ \000\016\000\000\000\000\000\128\000\025\000\000\000\000\004\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000#a\000E\130\141\241#\208\004\015\128\000\001\142\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\193\"\176\001\001\144\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\b8\000\007\001\000\012\\ \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\001\000\000\000\003\000\000p\016\000\197\194\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\001\000\000\000\000#a\000E\130\141\241#\208\004\015\128\000\001\142\000\000\000\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\016\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\0000\000\007\001\000\012\\ \000\016\000\000\000\000\000\000\000\000\000\000\000\000\004\000\000\000\016\000\000\000\0026\016\004X(\223\018=\000@\248\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\001\000\000\000\000#a\000E\130\141\241#\208\004\015\128\000\001\142\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\004\193\016\003\000\000p\016\000\197\194\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\001\000\000\000\000#a\000E\130\141\241#\208\004\015\128\000\001\142\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\016\000H\017\0026\016\004X(\223\018=\000@\248\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b2\016\004\b\000L\018-\000\016\026\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\001\000\004\129\016\131!\000@\128\004\193\"\208\001\001\160\000\001\004\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\016\000H\017\b2\016\004\b\000L\018-\000\016\026\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\001\000\004\129\016\128\000\000\000\000\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\000\000\000\000\000\000\000\000\000\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\004\129\016\003!\000@\128\004\193\"\208\001\001\160\000\001\004\000\000\000\000\000\000\000\000@\000\000\001\000\004\129\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bH\002(\000\130\001!\128\001\144\006`\000 \004\132\128\"\128\b\"\018\024\012\025\000f\001\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\196\148\187\131\232>\022\028\015\249`w\139~p\2426\016\004X(\223\018=\000@\248\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0026\016\004X(\223\018=\000@\248\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\000\000\000\000\000\000\000\000\000\000\005\000\000\000\000\000\000\000\000\000\128\002\128\000\000\000\000\000\000\0026\016\004X(\223\018=\000@\248\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\t\176>\000\192@@>\002\001\000\005\134\003\163a\011E\130\141\241#\208\004\015\128\000\001\206\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000#a\000E\130\141\241#\208\004\015\128\000\001\142\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#a\000E\130\141\241#\208\004\015\128\000\001\142\b\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\018\016\004@\b\012\0189\000\000\024\000\000\024\192\197\189\187\215\248\190\215?\191\251a\247\219\127\253\240\000\000\000\000\000\b\000(\000\000\000\000\000\000\000#a\000E\130\141\241#\208\004\015\128\000\001\142\b\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\012[\219\189\127\139\237\243\251\255\182\031}\183\255\207#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015#a\000E\130\141\241#\208\004\015\128\000\001\142\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\012[\219\189\127\139\237\243\251\255\182\031}\183\255\207#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015#a\000E\130\141\241#\208\004\015\128\000\001\142\b\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\012[\219\189\127\139\237\243\251\255\182\031}\183\255\207#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015\001\000\000\000\000\000\192\002\128\000\000\000\000\000\000\0026\016\004X(\223\018=\000@\248\000\000\024\224\128\000\b\000\000\000\000\000\000\000\000\000\000\000\000\012[\219\189\127\139\237\243\251\255\182\031}\183\255\207#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015#a\000E\130\141\241#\208\004\015\128\000\001\142\b\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\197\189\187\215\248\190\223?\191\251a\247\219\127\252\2426\016\004X(\223\018=\000@\248\000\000\024\224\196\148\187\131\232>\022\028\015\249`w\139~p\2426\016\004X(\223\018=\000@\248\000\000\024\224\128\000\001\000\000\000\000\000\000\000\000\000\000\000\000\012[\219\189\127\139\237\243\251\255\182\031}\183\255\207#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015\000\000\000\000\000\000\000\000\000\000\000\000P\000\000\000\000\000\000\000\000\b\000(\000\000\000\000\000\000\000#a\000E\130\141\241#\208\004\015\128\000\001\142\b\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\197\189\187\215\248\190\223?\191\251a\247\219\127\252\2426\016\004X(\223\018=\000@\248\000\000\024\224\196\148\187\131\232>\022\028\015\249`w\139~p\2426\016\004X(\223\018=\000@\248\000\000\024\224\128\000\002\000\000\000\000\000\000\000\000\000\000\000\000\012[\219\189\127\139\237\243\251\255\182\031}\183\255\207#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015#a\000E\130\141\241#\208\004\015\128\000\001\142\b\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\197\189\187\215\248\190\223?\191\251a\247\219\127\252\2426\016\004X(\223\018=\000@\248\000\000\024\224\196\148\187\131\232>\022\028\015\249`w\139~p\252[\219\189\127\139\237\243\251\255\182\031}\183\255\207#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015\197\189\187\215\248\190\215?\191\251a\247\219\127\253\252[\219\189\127\139\237s\251\255\150\031x\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\b\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\0026\016\004X(\223\018=\000@\248\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#a\000E\130\141\241#\208\004\015\128\000\001\142\b\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\001\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#a\000E\130\141\241#\208\004\015\128\000\001\142\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\000#a\000E\130\141\241#\208\004\015\128\000\001\142\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\131\161\136G\224,\229\"\211\227!\176@\025,\176\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\0002\144\005\t\001L\018+\000\016\024\000\000P@\003\000\000`\000\000\197\194\000\001\000\000\000\000\000\000\016\000\000\000\001\004\000\000\000\016\000\000\000\000\000#a\000E\130\141\241#\208\004\015\128\000\001\142\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003)\000P\144\020\193\"\176\001\001\128\000\005\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\003)\000P\144\020\193\"\176\001\001\128\000\005\004\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\0026\016\004X(\223\018=\000@\248\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0026\016\004X(\223\018=\000@\248\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\012IK\184>\131\225a\192\255\150\007x\183\231\015\003!\000@\128\004\193\"\208\001\001\160\000\001\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#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\183\231\015#a\000E\130\141\241#\208\004\015\128\000\001\142\012IK\184>\131\225a\192\255\150\007x\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\001\000\004\129\016#a\000E\130\141\241#\208\004\015\128\000\001\142\000\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\1306\016\004X(\223\018=\000@\248\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0002\016\004\b\000L\018-\000\016\024\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\129!\bD\000\128\193#\144\000\001\128\000\001\140\b\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#a\000E\130\141\241#\208\004\015\128\000\001\206\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\0026\016$X(\223\018=\000@\248\000\000\024\224\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\b\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\001!\000D\000\128\193#\144\000\001\128\000\001\140\004\000\000\000\000\000\000\000\000\0000\000\005\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\128\000\017\000\000\000\000\000\000\000\000\016\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\016\000\000\000\b\000\001\016\000\000\000\000\000\000\000\000\000\000\000\000\129\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\b\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\003\000\000P\000\000\000\016\000\000\000\000\012\0028\000\000\000\000\000\000\000\192\000\017\000\000\000\000\000\000\003\000\016P$\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\196\148\187\131\232>\022\028\015\251`w\219~p\240\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\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\b\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\128\000\145\003\224\012\004\004\003\224`\016\000X 8\000\001\000\000\000\000\000\000\000\004\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\b\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\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\001\002\000@\000\000\129\004\000\000\016\000\000\000\000\000\016 \004\000\000\b\016\000\000\001\000\000\000\000\000\000\000\000\000\000\000\128\004\000\b\000\000\000\000\000\0026\016\004X(\223\018=\000@\248\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0000\000\000\004\000\000\000@\000\000\000\000\000\000\000\003\000\000\000\000\000\000\004\000\000\000\000\000\000\000\0000\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\016\000\004\000\000\016 \004\000\000\b\016\000\000\001\000\000\000\000\000\132\128\"\128\b \146\028\000\025\000f\000\002\000@\016\004\004\000\002\012\016\000\000\001\000\000\000\000\000@\000\000\000\000\016\000\004\000\000\000\016\000\000\000\000\016 \004\000\000\b\016\000\000\001\000\000\000\000\000\132\128\"\128\b \146\028\000\025\000f\000\002\000@\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000#a\000E\130\141\241#\208\004\015\128\000\001\142\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\016\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001 \000\000@\000\128\006\000\000\000\128\000\000\000\000\018\000\000\000\000\b\000`\000\000\b\000\000\000\000\001 \000\000\000\000\128\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\b\000\000\000\000\000\000\000\000\000\000\b\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\004\000\000\004\000\b\000\000\000\004\000\0000\000\006\000\000\012\\(\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\003\000\000p\016\000\197\194\000\001\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\001\000\000\000\003\000\000p\016\000\197\194\000\001\000\000\000\000\000\000\000\001\016\000\000\000\000@\000\002\000\000\000\000\016\000\000\017\000\000\000\000\004\000\000\000\000\000\000\000\000\000\001\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\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\017\000\000\000\000\004\000\000 \000\000\000\001\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\016\000\004\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\128\000\000\000\000\000\000\000\000\000\000\000\000\0000\000\006\000\000\012\\ \000\016\000\000\000\000\000\133\128\162\128\b0R\028\000\025\000f\001\002\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\133\128\162\128\b R\028\000\025\000f\001\002\016@0\000\006\000\000\012\\(\000\016\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\0000\000\006\000\000\012\\ \000\016\000\000\000\000\000\133\128\"\128\b R\028\000\025\000f\001\002\016HX\n(\000\131\005!\192\001\144\006`\016!\004\000\000\000\000\000\000\000\004\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000#a\000E\130\141\241#\208\004\015\128\000\001\142\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0002\016D\b\000L\018m\000\016\024\000\000\016@\003!\004@\128\004\193\"\208\001\001\128\000\001\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003!\000@\128\004\193\"\208\001\001\128\000\001\004\bH\002(\000\130\001!\128\001\144\006`\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\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\196\148\187\131\232>\022\028\015\249`w\139~p\244\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003!\000@\128\004\193\"\208\001\001\160\000\001\020\012IK\184>\131\225a\192\255\150\007x\183\231\015\128\000\136\003\224\012\004\004\003\224 \016\000| 0\000\000\000\000\000\000\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\016\004\004\000\002\012\016\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\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\b\016\004\004\000\002\012\016\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\000\128\000\001\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\016\004\004\000\002\012\016\000\000\001\000\000\000\000\000@\000\b\000\000\016\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\132\128\"\128\b \146\028\000\017\000f\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\002\000@\000\000\129\004\000\000\016\000\000\000\000\000\016 \004\000\000\b\016\000\000\001\000\000\000\000\000\132\128\"\128\b \146\028\000\017\000f\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\128\004\000@\000\000\004\000\000\000\000\000\000\000\000\016\000\000\004\000\004\000@\000\000\000\000\000\000\000\001\000\000\000\000\000@\004\000\000\000\000\000\000\000\000\016\000\000\000\000\004\000\000\000\000\000\000\000\000\000\132\128\"\128\b \018\024\000\017\000v\000\002\000\000\016\004\004\000\002\012\016\000\000\001\000\000\000\000\000\196\128\"\128\b0\018\028\000\017\000f\000\002\000\bH\002(\000\130\001!\128\001\016\006`\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0000\000@\000\000\000\000@\000\000\000\000\000\000\000\003\000\004\000\000\000\000\000\000\000\000\000\000\000\000\0000\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\016\000\004\000\bH\002(\000\130\001!\128\001\016\006`\000 \004\132\128\"\128\b \018\016\000\017\000f\000\002\000@0\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\b\000\000\000\000\001\000\000@\000\132\128\"\128\b \018\024\000\017\000f\000\002\000HH\002(\000\130\001!\000\001\016\006`\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\128\000\000\000\000\016\000\004\000\bH\002(\000\130\001!\128\001\016\006`\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\007\223d@\130\2545\000\004\193\193\2388\176(4'\225\"\213\138\173\2433\208\020\015\224\000\007\142\0002\016\004\b\000L\018-\000\016\026\000\000\016@\016\000\002\000\000\000\000\004\000\000\000\000\000H\017\0026\016\004X(\223\018=\000@\248\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\007\223d@\130\2545\000\004\193\193\2388\176(4'\225\"\213\138\173\2433\208\020\015\224\000\007\142\000\016 \004\004\000\b\016@\000\001\000\000\000\000\000\001\002\000@\000\000\129\004\000\000\016\000\000\000\000\000\016 \004\000\000\b\016\000\000\001\000\000\000\000\000\132\128\"\128\b \146\028\000\017\000f\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\192\004\000\000\000\000\000\000\000\000\000\000\000\000\000\012\000@\000\000\000\000\000\000\000\000\000\000\000\000\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\003\000\000p\016\000\197\194\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\001\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\bH\018(\000\130\001!\128\001\016\006`\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bH\002(\000\130\001!\128\001\016\006`\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\018\000\000\004\000\b\000`\000\000\b\000\000\000\000\001 \000\000\000\000\128\006\000\000\000\128\000\000\000\000\018\000\000\000\000\b\000 \000\000\b\000\000\000\000\132\128\"\128\012 \018\028\000\017\000v\000\006\000\000\018\000\000\000\000\b\000 \000\000\b\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\b\000\bH\002(\000\130\001!\192\001\016\006a\000!\000\001\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\128\000\132\128\"\128\b \018\028\000\017\000f\000\002\000\bH\002(\000\130\001!\128\001\016\006`\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bH\002(\000\130\001!\192\001\016\006`\000 \000\132\128\"\128\b \018\024\000\017\000f\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\007\128\"\240\024 \199\210\000\017\000`\000\002\000\bH\002(\000\130\000!\000\001\000\006`\000 \000\001\000\000\000@\000\000\004\000\000\000\000\000\000\b\000\016\000\000\004\000\000\000@\000\000\000\000\000\000\000\001\000\000\000\000\000\000\004\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \130\024\000\016\000f\016\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\004\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \130\024\000\016\000f\016\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\128\004\000@\000\000\004\000\000\000\000\000\000\000\000\016\000\000\004\000\004\000@\000\000\000\000\000\000\000\001\000\000\000\000\000@\004\000\000\000\000\000\000\000\000\016\000\000\000\000\004\000\000\000\000\000\000\000\000\000\132\128\"\128\b \002\024\000\016\000v\000\018\000\000\016\004\004\000\002\012\016\000\000\001\000\000\000\000\000\196\128\"\128\b0\002\028\000\016\000f\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\004\000\000\000\000\004\000\000\000\000\000\000\000\0000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\016\000\020\000\b\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\bH\002(\000\130\b!\128\001\000\006a\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0000\000\000\000\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\016\004\004\000\002\012\016\000\000\001\000\000\000\000\000\196\128\"\128\b0\002\028\000\016\000f\000\002\000HH\002(\000\130\000!\000\001\000\006`\000 \004\003\000\000\000\000\000\000\004\000\000\000\000\000\000\000\0000\000\000\000\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\016\004\004\000\002\012\016\000\000\001\000\000\000\000\000\196\128\"\128\b0\002\028\000\016\000f\000\002\000HH\002(\000\130\000!\000\001\000\006`\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\128\000\000\000\000\016\000\004\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \002\024\000\016\000f\016\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000@@\000 \193\000\000\000\016\000\000\000\000\012H\002(\000\131\000!\192\001\000\006`\000 \000\132\128\"\128\b \002\024\000\016\000f\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\128\000\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000@@@ \193\004\000\000\016\000\000\000\000\000\016\004\004\000\002\012\016@\000\001\000\000\000\000\000\001\000@@\000 \193\000\000\000\016\000\000\000\000\012H\002(\000\131\000!\192\001\000\006`\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\018\000\000\004\000\b\000`\000\000\b\000\000\000\000\001 \000\000\000\000\128\006\000\000\000\128\000\000\000\000\018\000\000\000\000\b\000 \000\000\b\000\000\000\000\132\128\"\128\012 \002\028\000\016\000f\000\006\000\000\136\000\000\004\000\004\000`\000\000\000\000\000\000\000\b\000\000\000@\000@\006\000\000\000\000\000\000\000\000\128\000\000\000\000\004\000`\000\000\000\000\000\000\000\b\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@\002\000\000\000\000\000\000\000\000 \000\002H\000@\000\000\b\000\000\000\000\000\128\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\001\000\000\000\000\001\000\000@\002\000Q\002\000\000\000\000\000\000\000\b@\000\b\000\000(!@@\000\000 \016\000\000\132\000\000\128\000\002\130\016\004\000\000\002\001\000\000\0000\000\007\001\000\012\\ \000\016\000\000\000\000\000\000\000\b\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\132\000\000\128\000\002\002\016\004\000\000\002\001\000\000\000\128\000\000\000\004\004\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\004\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\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\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\0000\000\007\001\000\012\\ \000\016\000\000\000\000\000\132\000\000\128\000\002\002\028\004\000\000\002\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\b\000\000@\004\000\000\000\000\000\000\000\000\128\000\000\128\000\004\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\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\003\000\000p\016\000\197\194\000\001\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\001\000\000\000\003\000\000p\016\000\197\194\000\001\000\000\000\000\000\b@\000\b\000\000 !\192\192\000\001 \016\000\000\132\000\000\128\000\002\002\024\004\000\000\002\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\000\000\128\000\002\002\028\012\000\000\018\001\000\000\000\016\000\004\000 \005\016`\000\000\000\000\000\000\000\001\000\000@\002\000Q\002\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\004\000\000\000\000\000\000\b\000\016\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\128\000\001\000\000\000\001\000\000@\002\000Q\002\000\000\000\000\000\000\000\0000\000\007\001\000\012\\ \000\016\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000@\000\000\016\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\0000\000\007\001\000\012\\ \000\016\000\000\000\000\000\000\000\002\000\000\000\000\004\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\000\000\000\000\000\000\000\132\128*\128\b\"\018\028\004\017\000v\001\002\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\128\000\001\000\000\000\001\000\000@\002\000Q\002\000\000\000\000\000\000\000\bH\002\168\000\130!!\192A\016\007`\016 \004\132\000\000\128\000\002\002\028\004\000\000\002\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000\197\198\000\001\000\000\000\000\000\0000\000\007\001\000\012\\ \000\016\000\000\000\000\000\000\000\000\000\000\000\000\004\000\000\000\016\000\000\000\0000\000\007\001\000\012\\ \000\016\000\000\000\000\000\132\000\000\128\000\002\002\028\012\000\000\002\001\000\000\b@\000\b\000\000 !\128@\000\000 \016\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\132\000\000\128\000\002\002\024\004\000\000\002\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\b@\000\b\000\000 !\000@\000\000 \016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bH\002(\000\130\001!\192\001\016\006`\000 \004\132\128\"\128\b \018\016\000\017\000f\000\002\000@\128\000\000\000\000\004\000`\000\000\000\000\000\000\000\b\000\000\000\000\000@\002\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\001\000\000\000\000\001\000\000@\002\000Q\002\000\000\000\000\000\000\000\bH\002(\000\130\001!\192\001\016\006`\000 \004\132\128\"\128\b \018\016\000\017\000f\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\128\000\000\000\000\004\000`\000\000\000\000\000\000\000\b\000\000\000\000\000@\002\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\003\000\000p\018\000\213\194\000\001\000\000\000\000\000\bX\n\168\000\131\004!\192\001\016\007`\000`\004\003\000\000`\000\000\197\194\000\001\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\003\000\000p\018\000\213\194\000\001\000\000\000\000\000\0000\000\007\001\000\012\\ \000\016\000\000\000\001@\000\000\002\000\000\000\000\004\000\000\000\000\000@\016\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\003\000\000p\018\000\213\194\000\001\000\000\000\000\000\0000\000\006\000\000\012\\ \000\016\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\0000\000\007\001 \r\\ \000\016\000\000\000\000\000\133\128\170\128\b0B\028\000\017\000v\000\002\000HX\n\168\000\131\004!\192\001\016\007`\000 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bH\002\168\000\130\000!\192\001\000\007`\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\132\128\"\128\b \002\024\000\016\000f\000\002\000HH\002(\000\130\000!\000\001\000\006`\000 \004\b\000\000\000\000\000@\006\000\000\000\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@\002\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\004\000\0000\000\007\001 \r\\ \000\016\000\000\000\000\000\132\128\"\128\b \002\024\000\016\000f\000\002\000HH\002(\000\130\000!\000\001\000\006`\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\bH\002(\000\130\000!\000\001\000\006`\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bH\002(\000\130\000!\128\001\000\006`\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bH\002(\000\130\000!\000\001\000\006`\000 \004\002\000\000$\128\004\192\004\000\128\000\000\000\000\b\000 \000\002H\000L\000\000\b\000\000\000\000\000\128\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\bH\002(\000\130\001!\128\001\016\007`\016 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bH\002(\000\130\001!\128\001\016\006`\016 \004\132\128\"\128\b \018\016\000\017\000f\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\bH\002(\000\130\000!\000\001\000\006`\000 \004\002\000\000$\128\004\192\004\000\128\000\000\000\000\b\000 \000\002H\000L\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\001\000\000\003 \000x\016\000\197\194\128\001\000\128 \000\016\0000\000'\001\000\012\\ \000\016\000\000\000\001@\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\000\000\000\000\000\000\000\000\000\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 \146\026\000\017\000\230\001\002\000HH\002(\000\194\001!\192\001\016\006`\016a\004\132\128\"\128\b \018\028\000\017\000f\001\002\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \018\024\000\017\000f\001\002\016@\018\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\132\128\"\128\b \002\024\000\016\000f\001\002\000HH\002(\000\130\000!\000\001\000\006`\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\bH\002(\000\130\001!\192\001\016\007`\016 \004\001 \000\b\000\000\128\002\128\000\000\128 \000\016\000\018\000\000\000\000\b\000(\000\000\b\002\000\001\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bH\002(\000\194\001!\192\001\016\006`\016a\004\132\128\"\128\b \018\028\000\017\000f\001\002\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\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\004\000\000\000\000\000\000\000\000\136\000\000\004\000\004\000`\000\000\000\000\000\000\000\b\000\000\000\000\000@\006\000\000\000\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@\002\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000\003)\000P\144\004\193\"\176\001\001\144\000\005\004\000\016\000\004\000 \r\016 \000\000@\000\000\000\000\132\000\000\128\000\002\130\020\012\000\000\002\001\000\000\b@\000\b\000\000(!\000\192\000\000 \016\000\000\132\000\000\128\000\002\002\016\012\000\000\002\001\000\000\000\128\000\000\000\004\004\000@\000\000\000\000\000\000\128\000\000\000\000\000@@\004\000\000\000\000\000\000\000\000\000\000\000\000\004\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\001\000\002@\000#a\000E\130\141\241#\208\004\015\128\000\001\142\000\000\000\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\0026\016\004X(\223\018=\000@\248\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b@\000\b\000\000 !\128\192\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\004\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\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\003\000\000p\016\000\197\194\000\001\000\000\000\000\000\b@\000\b\000\000 !\192\192\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\001\000\002@\000#a\000E\130\141\241#\208\004\015\128\000\001\142\000\000\000\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\0026\016\004X(\223\018=\000@\248\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\128\000\004\000@\000\000\000\000\000\000\128\000\000\000\b\000\000@\004\000\000\000\000\000\000\000\000\000\000\000\128\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\004\000\000\000\000\000\000\000\000\000\003)\000P\144\004\193\"\176\001\001\144\000\005\004\0008\000\007\001\000\012\\ \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\001\000\000\000\003\000\000p\016\000\197\194\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\001\000\000\000\000#a\000E\130\141\241#\208\004\015\128\000\001\142\000\000\000\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\0026\016\004X(\223\018=\000@\248\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\132\000\000\128\000\002\002\024\012\000\000\002\001\000\000\000\000\000\000\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\128\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\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\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\0000\000\007\001\000\012\\ \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\004\000\000\000\000\000\000\000\000\000\003)\000P\144\004\193\"\176\001\001\144\000\005\004\0008\000\007\001\000\012\\ \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\001\000\000\000\003\000\000p\016\000\197\194\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\001\000\000\000\000#a\000E\130\141\241#\208\004\015\128\000\001\142\000\000\000\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\0026\016\004X(\223\018=\000@\248\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#a\000E\130\141\241'\208\004\015\128\000\001\142\0026\016\004X(\223\018=\000@\248\000\000\024\224\132\000\000\128\000\002\002\024\012\000\000\002\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000@\002\000\209\006\000\000\004\000\000\000\b\000\016\000\004\000 \r\016`\000\000@\000\000\000\000\001\000\000@\002\000\209\002\000\000\004\000\000\000\000\000\016\000\004\000 \r\016 \000\000@\000\000\000\000\003!\004@\200\004\193&\208\001\001\128\000\001\004\007\223d@\130\2545\000\004\193\193\2388\176(4\003!\004@\128\004\193&\208\001\001\128\000\001\004\0002\016D\b\000L\018-\000\016\024\000\000\016@\003!\000@\128\004\193\"\208\001\001\128\000\001\004\000\000\000\000\000\000\000\000\128\000\128\000\000\000\000\004\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\000\000\128\001\000\000\000\000\000\000\004\000\000\000\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\b\000\000\016\000\000\000\016\000\004\000 \r\016 \000\000@\000\000\000\000\003\000\000p\016\000\197\194\000\001\000\000\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\004\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\003)\000P\144\004\193&\176\001\001\128\000\001\004\0002\144\005\t\000L\018+\000\016\024\000\000\016@\003)\000P\144\020\193\"\176\001\001\128\000\001\004\000\016\000\004\000 \r\016 \000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000@\016\000\004\000 \r\016 \000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bZ\146\173A\138-3\251\193\016\030`\016x\212\133\169*\212\024\162\211?\188\017\001\230\001\007\141@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128*\128\b\"\018\028\012\017\000f\001\006\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\bH\002\168\000\130!!\192\193\016\006`\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\132\128*\128\b\"\018\028\012\017\000f\001\006\001@\016\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\000\016\000\004\000 \r\016 \000\000@\000\000\000\000\132\128*\128\b\"\018\028\012\017\000f\001\006\001@2\016D\b\000L\018-\000\016\024\000\000\016@\003!\000@\128\004\193\"\208\001\001\128\000\001\004\000\000\000\000\000\000\000\000\128\000\128\000\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\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\003\000\000p\018\000\213\194\000\001\000\000\000\000\000\b\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\132\000\000\128\000\002\002\028\012\000\000\002\001\000\001\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\b\000\000 !\128\192\000\000 \016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\004\000 \r\016 \000\000@\000\000\000\000\132\000\000\128\000\002\002\028\012\000\000\002\001\000\001\b@\000\b\000\000 !\128\192\000\000 \016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0000\000\007\001\000\012\\`\000\016\000\000\000\000\000\003\000\000p\016\000\197\194\000\001\000\000\000\000\000\b@\000\b\000\000 !\128\192\000\000 \016\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\132\000\000\128\000\002\002\024\012\000\000\002\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\b@\000\b\000\000 !\000\192\000\000 \016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bH\002(\000\130\001!\192\001\016\006`\000 \004\003\000\000p\018\000\213\194\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\001\000\000@\002\000\209\002\000\000\004\000\000\000\000\bH\002(\000\130\001!\192\001\016\006`\000 \004\003)\000P\144\004\193\"\176\001\001\144\000\005\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \018\024\000\017\000f\000\002\000HH\002(\000\130\001!\000\001\016\006`\000 \004\b\000\000\000\000\000@\006\000\000\000\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@\002\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000\003)\000P\144\004\193\"\176\001\001\144\000\005\004\bH\002(\000\130\001!\128\001\016\006`\000 \004\132\128\"\128\b \018\016\000\017\000f\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\132\128\"\128\b \018\016\000\016\000f\000\002\000\0002\016D\012\000L\018m\000\016\024\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\000\000\000\000\000\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 \018\016\000\017\000f\000\002\000HH\002(\000\130\001!\128\001\016\006`\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bH\002(\000\130\001!\000\001\016\006`\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\132\128\"\128\b \018\024\000\016\000f\000\002\000\bH\002(\000\130\001!\000\001\000\006`\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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 \018\016\000\025\000f\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\bH\002(\000\130\001!\128\001\000\006`\000 \000\132\128\"\128\b \018\016\000\016\000f\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\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\196\128*\128\b0\146\028\000\017\000v\000\"\000L\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\b\000\000\000\000\004\000\000\000\000\000L\017\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000\197\194\000\001\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\b@\000\b\000\000 !\000\192\000\000 \016\000\000\128\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\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\129\002\000@@\000\129\004\000\000\016\000\000\000\000\000\016 \004\000\000\b\016@\000\001\000\000\000\000\000\001\002\000@\000\000\129\000\000\000\016\000\000\000\000\000\000\000\128\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\b\016\004\004\000\002\012\016\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\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\b\000\000\128\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\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\b2\016\004\b\000L\018-\000\016\026\000\000\017@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012IK\184>\131\225a\192\255\150\007x\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\000\000\000\000\000\000\000\000\000\000\001 \000\b\000\000\128\002\000\000\000\128\000\000\016\000\018\000\000\000\000\b\000 \000\000\b\000\000\001\000\001 \000\000\000\000\128\002\000\000\000\128\000\000\000\bH\002(\000\194\001!\192\001\016\007`\000a\000\001 \000\000\000\000\128\002\000\000\000\128\000\000\000\bH\002(\000\130\001!\192\001\016\006`\000!\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bH\002(\000\130\001!\128\001\016\006`\000!\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bH\002(\000\194\001!\192\001\016\007`\000a\000\001 \000\000\000\000\128\002\000\000\000\128\000\000\000\bH\002(\000\130\001!\192\001\016\006`\000!\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\004\000\000\000\000\000\000\000\000\000\132\128\"\130\b \018\024\000\017\000v\001\002\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \018\024\000\017\000f\001\002\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\018\000\000\128\000\b\000 \000\000\b\000\000\001\000\001 \000\000\000\000\128\002\000\000\000\128\000\000\016\bH\002(\000\130\001!\128\001\016\006`\000!\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\000\000\000\000\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\002\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000 \000\000\000\000\0000\000\006\000\000\012\\`\000\018\000\002\000\000\000\003\000\000`\000\000\197\194\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\016\001\000\000\000\004\000\000\000\018\000\000\000\000\000\003\000\000`\000\000\197\194\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\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\001\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000\197\194\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\b\000\000\000\000\000\000\000\000\000\000@\000\000\016\000\000\000\000\004\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0000\000\007\001\000\012\\ \000\016\000\000\000\000\000\000\000\b\000\000\000\000\004\000\000\000\000\000@\000\000\000\000\128\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\0000\000\007\001\000\012\\ \000\016\000\000\000\000\000\000\000\b\000\000\000\000\004\000\000\000\000\000@\000\000\000\000\000\000\004\004\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\bH\002(\000\130\001!\192\001\016\006`\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\003 \000x\016\000\197\194\128\001\000\128 \000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \002\024\000\016\000f\001\002\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\018\000\000\128\000\b\000 \000\000\b\000\000\001\000\001 \000\000\000\000\128\002\000\000\000\128\000\000\016\bH\002(\000\130\000!\128\001\000\006`\000!\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\bH\002( \130\000!\128\001\000\007`\017 \004\003 \000x\016\000\197\194\128\001\000\128 \000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \002\024\000\016\000f\001\002\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\018\000\000\128\000\b\000 \000\000\b\000\000\001\000\001 \000\000\000\000\128\002\000\000\000\128\000\000\016\bH\002(\000\130\000!\128\001\000\006`\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\b\000\000\016\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\132\128\"\128\b \018\028\000\017\000f\000\002\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#a\000E\130\141\241#\208\004\015\128\000\001\142\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\000#a\000E\130\141\241#\208\004\015\128\000\001\142\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\004\128 \128\b \002\016\000\016\000d\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\001 \000\000\000\000\192\002\000\000\000\128\000\000\000\b\000\b\128~\002\194@\000>\"\001\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\128\000\000\000\000\000\016\000\000\000\016\000\000\000\000\012\000\000\000\000\000\000\000\000\000\128\000\128\007\224,$\000\003\226 \016@\024(\176\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\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001 \000\000\000\000\128\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\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000\197\194\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\004\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000#a\000E\130\141\241#\208\004\015\128\000\001\142\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\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\128\000\000\000\000\004\016\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\004\016\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\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003!\000@\128\004\193\"\208\001\001\160\000\001\004\000\000\000\000\000\000\000\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\001\000\000\000\000\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\016\000\000\000\000\012\000\000\000\000\000\000\000\000\000'\225 \197\138\173\2433\208\021\015\228\000\003\142\000\016\000\000\000\000\004\000\000\000\000\000\000\000\000\000\005\161 \128\b \210\016\016\017\000\228\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\128 \128\b \018\016\000\017\000d\016\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\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\000H\002\b\000\130\001!\000\001\000\006\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\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000'\225 \197\138\173\2433\208\021\015\228\000\003\142\002~\018\012X\170\2233=\001P\254@\0008\224\004\128 \128\b \018\016\000\017\000d\000\002\000\000H\002\b\000\130\001!\000\001\016\006@\000 \000\000\000\000\000\000\000\000\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 \018\024\000\017\000d\000\002\000\000H\002\b\000\130\001!\000\001\016\006@\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000H\002\b\000\130\001!\128\001\016\006@\000 \000\004\128 \128\b \018\016\000\017\000d\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\000") and start = 13 and action = ((16, "C\170R\004Ff\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\021HFf\000\000\000\000\020XFfC\170\020\182\000-\000[\\\200\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\000\000\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\238\004\184\000F\000\000\001v\t|\000\000\005R\002d\nt\000\000\000\244\002\204\011l\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\220\000\000\000\000\000\000\002BU2\000\000\000\000\000\000\001\148\000\000\000\000\000\000\002\238\004\026\000\000\000\000U2J\014\020X\021\178]`\020Xf\166R\004\020XN`\000\000\005\144\000\000Dp\b\160\000\000C\146\000\000\027\158\000\000\000\000\003\224\000\000\001\148\000\000\000\000\000\000\006B\000\000C\146\000\000\0046w@_ e\002\000\000\132\182\134f\000\000Mr`\202\000\000Y~\026\206p\158\001\148q&FfC\170\000\000\000\000R\004\020XSNDp\005.w@\000\000\128\252FfC\170R\004\020X\000\000\000\000\016x\023\022\001N\006&\000\000\005&\007\030\000\000\000\000\000\000\000\000\000\000\020X\000\000A\206i\228C\170\000\000\000\000Q\240\020XG\030X\234\000\000\004\002\000\000\000\000\004\250\000\000\000\000I\182\004\002\024\138\003\130\0020\000\000\000\000\003\014\000\000\021\178\006\030\006P\020X\028\254\020XC\170C\170\000\000R\012Q\182\020X\028\254A\248\020X\000\000\000\000\000\000R\004\020X\000\000\000\248\000\000X\234z\006z\148\000\000\006&\000\000\006\228\000\000\000\000C,U2\134\178\000\000h\206\134\178\000\000h\206h\206\000b\002\236\0008\000\000\020\190\000\000\b\004\000\000\000\000\bZ\000\000\000\000\000\000h\206\001\148\000\000\000\000X\000U2U\166`\202\000\000\000\000OL\000b\000\000\000\000`\202\b\004U2\000\000PB`\202Q8\000\000\000\000\000\000\004Z\000\000h\206\000\000\001\000\137J\000\000U2\005\216U2\000\000\022\\\t$\001\148\000\000\000\000\023\224\000\000\006\208\000\000Z\162\b\006\000\000\b\244h\206\n\198\000\000\011\190\000\000\007\200\000\000\000\000\007\160\000\000\000\000\000\000\021 4X\234Q\240\020XX\234\000\000\000b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000N\\\027v\000\000\000\000\000\000\001\244&\174t\134\000\000\000\000Q\240\020XX\234\000\000\000\000rvX\234{\178z\148\000\000\136x\000\000X\234\000\000\000\000Y\214I\182\001\154\001\154\000\000\n\156X\234\000\000\000\000\000\000\004\250\011*\000\000A\012\000\000\000\000{ \000\000\136\192h\206\000\000\004b\000\000\000\000{h\000\000\137\026\t\002\000\000\000\000\000\000\000\000\011\128\000\000\022\168\000\000\000\000{ \000\000\005\242\000\000\000\000DHu\018\000\000\000\000Bn\023|\019\252\023\174\000\000\000\000\000\000\000\000\001F\000\000\000\000[l\b\164\011h\000\017U2\002\204\011\196\000\000\000\000\b\200\011h\b\156\000\000i\250R,Q\182\020X\028\254\000-\000\018\0020\000\000\012.\021\178\021\178\000-\000\018\000\018\021\178\000\000j\140\t\012Dp\006&\006d\137\164\000\000U2e\162U2`\000fBU2\006`U2f\220\000\000\t\238\b\252\tL\021\178k&\000\000\005B\t\190]\130\000\000\000\000\000\000\000\000\021\178k\192\021\178lZ\020d\0008`\160\007\030\0008`\248\000\000l\244\t\012\000\000\000\000\000\000\001B\000\000\000\000\003\144\000\000\004\172\028\254\000\000^@A\248\000\000\031\138\000\000\000\000\021\178\002\152\000\000\000\000\000\000\000\000\\$\000\000\003\184\000\000Vr\001\130\006\026\000\000\0226W\204R\004\020XH(\158\000\000\012H\b\184\000\00056\000\000\012\160\t\176\000\0006.\000\000\r\172\n\168\000\0007&\012$\025\016\000\000\r@\011\160\000\0008\030\000\000\r\152\012\152\000\0009\022\000\000\014\002\r\144\000\000:\014\014\136\000\000;\006\015\128\019`\000\000\000\000\000\000\r\186\000\000\000\000\r\156\000\000\000\000\014`\000\000\b\026\000\000\000\000\000\000\015^\000\000\015\130\000\000\000\000Lz\001\154\016Dq\168`\202\000b\000\000\000\000q\168\000\000\000\000\000\000q\168\000\000\016&\000\000\000\000\000\000\000\000\000\000\000\000;\254X\234\000\000\000\000\016j\000\000<\246\000\000=\238\000\000#\250\000\000\000\000\011\210\000\000\000\000X\234\000\000\000\000}\180\014\018\000\000\000\000H\240\000\000\b\240\000\000\000\000W6\000\000\r\178\000\000\000\000\001\130\n\244\000\000\000\000\0226\022\028\006&\000\000A\214\000\000!,\023\176\021\220\000\000\000\000\014|\000\000\000\000\001\238\025\030W\214\000\000\025\030\000\000\rD\000\000\000\000\014\164\000\000\000\000g~\005\212\004H\000\000\000\000\012\186\000\000\000\000\014\144\000\000\000\000\000\000\020X\028\254\004\176\000\000\000\000\023&\003\130\0020\b`\028\254x.\021\178\001B\028\254x\172\015\242\000\000\000\000\b`\000\000I\248\019\248\021\204\000\000\n@\016l\000\000\016v\000V`\202\003\130\000\000\016J\015\214p\158\012\156U2\030\128\020F\t\142\004\248\000\000\031x\016\148\000\000\tT\000\000\000\000\016\170`\202a\152\000\000g\208`\202\016\138`\202n\024b8\001N\016R\000\000\000\000\000\000\020X\129F\000\000X\234q\246\000\000\000\000\016\210\000\000\000\000\000\000>\230\017\030z\006?\222h|\000\000\000\000F\138\000\000\006\026\000\000IZ\000\000\020X\000\000\021\178\006x\000\000\128\252\000\000\020X\028\254\128\252\000\000\025D\023\022\001N\001\148\130\218\021\178~Bq\246\000\000\007b\n\160\0020\b`q\246\133*\003\130\0020\b`q\246\133*\000\000\000\000\b`q\246\000\000FfC\170X\234\027B\000\000\000\000FfC\170Q\182\020X\028\254\128\252\000\000\020\182\000-\000[\016HU2\rt\017\006\131\154\000\000q\246\000\000I\248\019\248\021\204y\004\023\228\012\030~v\bj\016d\020Xq\246\000\000\020Xq\246\000\000h\206f\166\019\134\002\222\001N\0008P\012\000\000\001N\0008P\012\000\000\0274\023\022\001N\001\148Q\002\021\178q\246\000\000\007b\011\152\0212\014~\000\000P\012\000\000\0020\016h\021\178q\246\135(\003\130\0020\016n\021\178q\246\135(\000\000\000\000\tX\000\000\128\208\000\000\021\178\131\206P\012\000\000\tX\000\000J\014\020X\021\178q\246\000\000I\248\019\248\021\204r\144B\138\026\222\019\170\002\142\000\000\014^C\146\000\017\000\000\017\002\016\176\024\196\020XU\218U2\tH\000\000X\184\001N\007\188\r\230\000\000\r\212\000\000\017\018\016\156U2PJ\000\000\0032\002:\014\192\000\000\014\204\000\000\017\022\016\162p\158\014 U2MzPJ\000\000Vr\020X\024\196\017D\007~\001N\000\000\014b\024\196U2\n\224\000b\000\000U2\004\018\005\n\000\000\000\000nr\000\000\000\000\014\192\024\196n\240PJ\000\000\020XU2\014 U2W~PJ\000\000\0154\000\000\000\000PJ\000\000\000\000X\184\000\000q\246\1338\019\170\002\142\014^\0178\016\238\024\196q\246\1338\000\000\000\000\019\170\002\142\014^\017F\016\224O\030Mh`\202\017fO\030h\206\020\184\017hO\030`\202\017lO\030o\144p\016\000\000\129\214\000\000\000\000q\246\1356\019\170\002\142\014^\017l\016\250O\030q\246\1356\000\000\000\000\000\000f\166\000\000\000\000\000\000\000\000\000\000\000\000\000\000P\012\000\000\133\202\020XDp\017vw@\000\000\128\252\133\202\000\000\000\000\135\130\020XDp\017~\017\012_ \135\250\003\130\017\196\000\000\000\000p\142r\144\020X\000\000\127\018\021\204\000\000\000\000\128\252\135\130\000\000\000\000\000\000y\128D\228F\134\003\130\017\220\000\000\000\000\000\000r\144\020X\000\000\003\130\017\226\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\015XB\138\019\170\002\142\014^\017\180s\000\023\204\020XG\030[:\020(\001N\003\130\017\182\nt\000\000\000\000\017d\000\000\000\000e0\000\000\n\254\014\222\000\000\015*\000\000\017\186\017NU2dn\017\210\n\158\000\000\000\000\017\132\000\000\000\000\020F\0032\015\020\000\000\017\222s\130\138\022\001\154\017\150U2\015\024\000\000\000\000\017\168\000\000\000\000\000\000e0\000\000\0070\015j\000\000\015\214\000\000\018\n\017\148p\158\000\000\018\014t\004\138,\001\154\017\174U2\015j\000\000\000\000\017\196\000\000\000\000\000\000\020X\000\000e0\000\000\020z\020X\023\204\023\204u\242Ff\020X\129FX\234\021\162\000\000\012\020\001N\000\000\015\004\023\204U2\012~\006&\000\000\020XX\234s\000\023\204\015\142\023\204\000\000D\142Et\000\000b\146\000\000\000\000c.\000\000\000\000c\202\000\000\015\184\023\204df\129FX\234\021\162\000\000\000\"\000\000\000\000O\030\015\242\000\000\000\000a\198\018\"\000\000e0\000\000\023\204a\198e0\000\000\020XU2e0\000\000\015\136\000\000\000\000e0\000\000\000\000[:\000\000\130\nO\030\017\212\023\204\130\166s\000\000\000q\246\133\216\019\170\002\142\014^\0180s\000q\246\133\216\000\000\000\000\000\000\136BQ\240\000\000\000\000\000\000\000\000\000\000\000\000\132`q\246\000\000\133\202\000\000\000\000\000\000\000\000q\246\136B\000\000\018p\000\000\000\000\132`\018t\000\000q\246\136B\000\000\000\000\016,\000\000\000\000it\0032\000\000\000\000B\158\000\000U2\rz\000\000[:\016\198\000\000\000\000\000\000\015\184\000\000\000\000\000\000RZ\020X\028\254\007\170\000\000N\150\000\000\007p\000\000\000*\000\000\000\000\018\138\000\000\018\178z\006\000\000@\214\018\138\000\000\000\000\018~\026R\028B\021\204vz\023\228\020X\000\000q\246\000\000\000\000\000\000\000\000\000\000\000\000\000\000v\130\023\228\020X\000\000\n\003B\nJ\t=\001\206\t=\023\238\003F\000\238\002\254\025\150\t=\t=\003\214\003\218\t=\003\222\0032\003\234\003\242\007\030\007Z\t=\t=\002\178\001\206\007:\003:\t=\t=\t=\bz\b~\b\138\b\158\001*\005v\t=\t=\t=\t=\t=\t=\t=\t=\t=\t\018\000\238\t=\015\198\t=\t=\003\145\t\030\t6\t\130\005\130\005\134\t=\t=\t=\r\234\t=\t=\t=\t=\002j\002\154\014\026\t=\006\250\t=\t=\0035\t=\t=\t=\t=\t=\t=\005\138\b\146\t=\t=\t=\b\170\004r\t\150\0035\t=\t=\t=\t=\r\r\r\r\023\242\011&\004\154\r\r\0112\r\r\r\r\001j\r\r\r\r\r\r\r\r\004M\r\r\r\r\001f\r\r\r\r\r\r\003i\r\r\r\r\r\r\r\r\004M\r\r\016&\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r\b\030\007f\006\226\r\r\004\226\r\r\r\r\r\r\r\r\r\r\004M\r\r\r\r\004M\r\r\003\238\r\r\r\r\r\r\000\238\b\"\r\r\r\r\r\r\r\r\r\r\r\r\r\r\000\238\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r\004M\r\r\r\r\007\226\r\r\r\r\001r\004M\001\218\004M\r\r\r\r\r\r\r\r\r\r\004M\r\r\r\r\r\r\r\r\r\r\000\238\r\r\r\r\006\001\r\r\r\r\000\238\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r\b\130\004M\r\r\r\r\r\r\r\r\001\181\001\181\001\181\001\222\015\134\001\181\006\018\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\0152\001\181\006\230\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\003\134\003\138\001\181\019B\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\007>\001\181\001\181\001\181\006\001\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\019J\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\130\001\181\001\181\018\214\bZ\007f\b1\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\014\246\b\194\001\181\005\186\001\181\001\181\b^\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\182\001\181\001\181\001\181\001\181\001\181\nu\nu\002\225\007\226\r1\nu\003\149\nu\nu\001\146\nu\nu\nu\nu\001\186\nu\nu\r1\nu\nu\nu\000\238\nu\nu\nu\nu\001\198\nu\000\n\nu\nu\nu\nu\nu\nu\nu\nu\025*\007f\003\146\nu\004M\nu\nu\nu\nu\nu\000\238\nu\nu\004B\nu\001\234\nu\nu\nu\002\225\025.\nu\nu\nu\nu\nu\nu\nu\004M\nu\nu\nu\nu\nu\nu\nu\nu\nu\nu\nu\003\149\nu\nu\007\226\nu\nu\004M\004M\007f\004M\nu\nu\nu\nu\nu\004\t\nu\nu\nu\nu\t\174\000\238\t\222\nu\004^\nu\nu\b*\nu\nu\nu\nu\nu\nu\nu\nu\nu\nu\nu\nu\nu\015\206\nu\nu\nu\nu\nu\003\173\003\173\005\225\007\226\003\150\003\173\002N\003\173\003\173\000\238\003\173\003\173\003\173\003\173\000\238\003\173\003\173\006\153\003\173\003\173\003\173\000\238\003\173\003\173\003\173\003\173\002R\003\173\b>\003\173\003\173\003\173\003\173\003\173\003\173\003\173\003\173\006\153\007f\004\t\003\173\000\238\003\173\003\173\003\173\003\173\003\173\b\213\003\173\003\173\001\206\003\173\t\025\003\173\003\173\003\173\bv\b\242\003\173\003\173\003\173\003\173\003\173\003\173\003\173\006^\003\173\003\173\003\173\003\173\003\173\003\173\003\173\003\173\003\173\003\173\003\173\b\233\t\166\t\214\007\226\003\173\003\173\004\210\003^\006b\000\238\003\173\003\173\003\173\003\173\003\173\002v\003\173\003\173\003\173\003\173\t\174\000\238\t\222\003\173\b\130\003\173\003\173\003b\003\173\003\173\003\173\003\173\003\173\003\173\003\173\003\173\003\173\003\173\003\173\003\173\003\173\000\238\003\173\003\173\003\173\003\173\003\173\003\161\003\161\000\238\001f\003i\003\161\b\213\003\161\003\161\t\025\003\161\003\161\003\161\003\161\001\238\003\161\003\161\006\165\003\161\003\161\003\161\b2\003\161\003\161\003\161\003\161\007:\003\161\b>\003\161\003\161\003\161\003\161\003\161\003\161\003\161\003\161\006\165\b\233\004M\003\161\000\238\003\161\003\161\003\161\003\161\003\161\b\209\003\161\003\161\001\206\003\161\004\214\003\161\003\161\003\161\015^\004M\003\161\003\161\003\161\003\161\003\161\003\161\003\161\004M\003\161\003\161\003\161\003\161\003\161\003\161\003\161\003\161\003\161\003\161\003\161\000\238\t\166\t\214\001f\003\161\003\161\003i\003j\tF\000\238\003\161\003\161\003\161\003\161\003\161\002\214\003\161\003\161\003\161\003\161\t\174\012\209\t\222\003\161\004B\003\161\003\161\003n\003\161\003\161\003\161\003\161\003\161\003\161\003\161\003\161\003\161\003\161\003\161\003\161\003\161\012\209\003\161\003\161\003\161\003\161\003\161\t\229\t\229\t\021\tJ\tf\t\229\b\209\t\229\t\229\000\238\t\229\t\229\t\229\t\229\003\018\t\229\t\229\006\166\t\229\t\229\t\229\015*\t\229\t\229\t\229\t\229\004M\t\229\007\194\t\229\t\229\t\229\t\229\t\229\t\229\t\229\t\229\006\253\007f\006\170\t\229\027\215\t\229\t\229\t\229\t\229\t\229\003\158\t\229\t\229\002\190\t\229\012\178\t\229\t\229\t\229\006\253\016\162\t\229\t\229\t\229\t\229\t\229\t\229\t\229\000\238\t\229\t\229\t\229\t\229\t\229\t\229\t\229\t\229\t\229\t\229\t\229\002f\t\229\t\229\007\226\t\229\t\229\t\021\002&\007f\004M\t\229\t\229\t\229\t\229\t\229\003\n\t\229\t\229\t\229\t\229\t\229\000\238\t\229\t\229\003\162\t\229\t\229\016\190\t\229\t\229\t\229\t\229\t\229\t\229\t\229\t\229\t\229\t\229\t\229\t\229\t\229\006\253\004M\t\229\t\229\t\229\t\229\t\245\t\245\004\242\007\226\b\134\t\245\0126\t\245\t\245\000\238\t\245\t\245\t\245\t\245\004\014\t\245\t\245\000\238\t\245\t\245\t\245\000\238\t\245\t\245\t\245\t\245\t\005\t\245\012:\t\245\t\245\t\245\t\245\t\245\t\245\t\245\t\245\004\018\002j\007\154\t\245\007v\t\245\t\245\t\245\t\245\t\245\t\014\t\245\t\245\003\022\t\245\012\202\t\245\t\245\t\245\022\206\007~\t\245\t\245\t\245\t\245\t\245\t\245\t\245\000\238\t\245\t\245\t\245\t\245\t\245\t\245\t\245\t\245\t\245\t\245\t\245\026\154\t\245\t\245\022\214\t\245\t\245\004M\004M\007f\t\005\t\245\t\245\t\245\t\245\t\245\003\026\t\245\t\245\t\245\t\245\t\245\004M\t\245\t\245\b)\t\245\t\245\025\138\t\245\t\245\t\245\t\245\t\245\t\245\t\245\t\245\t\245\t\245\t\245\t\245\t\245\000\238\t\005\t\245\t\245\t\245\t\245\t\237\t\237\019\022\007\226\b>\t\237\005R\t\237\t\237\025z\t\237\t\237\t\237\t\237\000\238\t\237\t\237\000\238\t\237\t\237\t\237\000\238\t\237\t\237\t\237\t\237\005F\t\237\000\238\t\237\t\237\t\237\t\237\t\237\t\237\t\237\t\237\b>\026\158\019\030\t\237\004V\t\237\t\237\t\237\t\237\t\237\005\233\t\237\t\237\000\238\t\237\012\226\t\237\t\237\t\237\r\178\005&\t\237\t\237\t\237\t\237\t\237\t\237\t\237\b\230\t\237\t\237\t\237\t\237\t\237\t\237\t\237\t\237\t\237\t\237\t\237\004\174\t\237\t\237\011z\t\237\t\237\019\134\004V\007f\005J\t\237\t\237\t\237\t\237\t\237\003\022\t\237\t\237\t\237\t\237\t\237\025~\t\237\t\237\004r\t\237\t\237\027.\t\237\t\237\t\237\t\237\t\237\t\237\t\237\t\237\t\237\t\237\t\237\t\237\t\237\012\213\004\214\t\237\t\237\t\237\t\237\t\217\t\217\004b\007\226\007:\t\217\007\021\t\217\t\217\017\190\t\217\t\217\t\217\t\217\012\213\t\217\t\217\r\182\t\217\t\217\t\217\000\238\t\217\t\217\t\217\t\217\t\001\t\217\014\142\t\217\t\217\t\217\t\217\t\217\t\217\t\217\t\217\006v\006\242\007\n\t\217\002\006\t\217\t\217\t\217\t\217\t\217\015v\t\217\t\217\007j\t\217\012\250\t\217\t\217\t\217\007\018\016r\t\217\t\217\t\217\t\217\t\217\t\217\t\217\015~\t\217\t\217\t\217\t\217\t\217\t\217\t\217\t\217\t\217\t\217\t\217\007\026\t\217\t\217\005\002\t\217\t\217\001\222\007\166\001\002\001\190\t\217\t\217\t\217\t\217\t\217\019\006\t\217\t\217\t\217\t\217\t\217\006e\t\217\t\217\003\137\t\217\t\217\0022\t\217\t\217\t\217\t\217\t\217\t\217\t\217\t\217\t\217\t\217\t\217\t\217\t\217\006e\015\206\t\217\t\217\t\217\t\217\t\225\t\225\015\242\005\225\007:\t\225\003}\t\225\t\225\000\238\t\225\t\225\t\225\t\225\007\198\t\225\t\225\014\146\t\225\t\225\t\225\005.\t\225\t\225\t\225\t\225\001v\t\225\011\134\t\225\t\225\t\225\t\225\t\225\t\225\t\225\t\225\011\246\002\190\007\170\t\225\007\178\t\225\t\225\t\225\t\225\t\225\018~\t\225\t\225\000\238\t\225\r\014\t\225\t\225\t\225\001\222\007\218\t\225\t\225\t\225\t\225\t\225\t\225\t\225\018\138\t\225\t\225\t\225\t\225\t\225\t\225\t\225\t\225\t\225\t\225\t\225\001\206\t\225\t\225\011\150\t\225\t\225\n\022\t\234\001\002\001\190\t\225\t\225\t\225\t\225\t\225\002\142\t\225\t\225\t\225\t\225\t\225\006m\t\225\t\225\011\142\t\225\t\225\t\238\t\225\t\225\t\225\t\225\t\225\t\225\t\225\t\225\t\225\t\225\t\225\t\225\t\225\006m\026\018\t\225\t\225\t\225\t\225\t\221\t\221\003\134\003\138\n\250\t\221\012z\t\221\t\221\000\238\t\221\t\221\t\221\t\221\006\030\t\221\t\221\017\006\t\221\t\221\t\221\012^\t\221\t\221\t\221\t\221\001\134\t\221\012~\t\221\t\221\t\221\t\221\t\221\t\221\t\221\t\221\0056\014\178\011\186\t\221\012b\t\221\t\221\t\221\t\221\t\221\022B\t\221\t\221\019\158\t\221\r\"\t\221\t\221\t\221\015\182\012\170\t\221\t\221\t\221\t\221\t\221\t\221\t\221\022\"\t\221\t\221\t\221\t\221\t\221\t\221\t\221\t\221\t\221\t\221\t\221\012\174\t\221\t\221\011&\t\221\t\221\0112\022J\0066\022j\t\221\t\221\t\221\t\221\t\221\005\225\t\221\t\221\t\221\t\221\t\221\006u\t\221\t\221\011&\t\221\t\221\0112\t\221\t\221\t\221\t\221\t\221\t\221\t\221\t\221\t\221\t\221\t\221\t\221\t\221\006u\014\182\t\221\t\221\t\221\t\221\t\233\t\233\003\134\0182\006\138\t\233\004\214\t\233\t\233\019\166\t\233\t\233\t\233\t\233\001\206\t\233\t\233\018F\t\233\t\233\t\233\006\246\t\233\t\233\t\233\t\233\001\150\t\233\012\194\t\233\t\233\t\233\t\233\t\233\t\233\t\233\t\233\005>\007\006\012R\t\233\003\018\t\233\t\233\t\233\t\233\t\233\004B\t\233\t\233\012\198\t\233\r>\t\233\t\233\t\233\002\154\012F\t\233\t\233\t\233\t\233\t\233\t\233\t\233\004M\t\233\t\233\t\233\t\233\t\233\t\233\t\233\t\233\t\233\t\233\t\233\b\237\t\233\t\233\012J\t\233\t\233\002\142\t\234\007\198\026\130\t\233\t\233\t\233\t\233\t\233\027\247\t\233\t\233\t\233\t\233\t\233\004R\t\233\t\233\014^\t\233\t\233\012\246\t\233\t\233\t\233\t\233\t\233\t\233\t\233\t\233\t\233\t\233\t\233\t\233\t\233\000\238\000\238\t\233\t\233\t\233\t\233\t\249\t\249\027\146\001\222\0126\t\249\004\214\t\249\t\249\023z\t\249\t\249\t\249\t\249\012\138\t\249\t\249\015:\t\249\t\249\t\249\014f\t\249\t\249\t\249\t\249\r\n\t\249\011\134\t\249\t\249\t\249\t\249\t\249\t\249\t\249\t\249\012\142\b\237\r.\t\249\003\018\t\249\t\249\t\249\t\249\t\249\0062\t\249\t\249\023b\t\249\rR\t\249\t\249\t\249\007F\012\218\t\249\t\249\t\249\t\249\t\249\t\249\t\249\tb\t\249\t\249\t\249\t\249\t\249\t\249\t\249\t\249\t\249\t\249\t\249\002\190\t\249\t\249\012\222\t\249\t\249\tz\012^\003\022\015\014\t\249\t\249\t\249\t\249\t\249\019\166\t\249\t\249\t\249\t\249\t\249\015>\t\249\t\249\015\226\t\249\t\249\r:\t\249\t\249\t\249\t\249\t\249\t\249\t\249\t\249\t\249\t\249\t\249\t\249\t\249\001\002\001\190\t\249\t\249\t\249\t\249\t\241\t\241\001\002\001\190\012z\t\241\012\194\t\241\t\241\025B\t\241\t\241\t\241\t\241\012F\t\241\t\241\014\162\t\241\t\241\t\241\012\170\t\241\t\241\t\241\t\241\rN\t\241\r\158\t\241\t\241\t\241\t\241\t\241\t\241\t\241\t\241\r\030\019\"\014\166\t\241\r\146\t\241\t\241\t\241\t\241\t\241\000\238\t\241\t\241\000\238\t\241\rf\t\241\t\241\t\241\015\018\012\138\t\241\t\241\t\241\t\241\t\241\t\241\t\241\014z\t\241\t\241\t\241\t\241\t\241\t\241\t\241\t\241\t\241\t\241\t\241\017\138\t\241\t\241\rb\t\241\t\241\005\237\019\026\014~\t\194\t\241\t\241\t\241\t\241\t\241\005\241\t\241\t\241\t\241\t\241\t\241\011\134\t\241\t\241\t\202\t\241\t\241\012\218\t\241\t\241\t\241\t\241\t\241\t\241\t\241\t\241\t\241\t\241\t\241\t\241\t\241\014\234\018:\t\241\t\241\t\241\t\241\na\na\001\206\r\170\015F\na\t\218\na\na\000\238\na\na\na\na\015\026\na\na\014\238\na\na\na\011\018\na\na\na\na\015J\na\002\253\na\na\na\na\na\na\na\na\015\030\019N\019\230\na\018\222\na\na\na\na\na\019b\na\na\004B\na\rr\na\na\na\019F\019\146\na\na\na\na\na\na\na\026~\na\na\na\na\na\na\na\na\na\na\na\b9\na\na\007\246\na\na\b5\022F\022N\019\250\na\na\na\na\na\r9\na\na\na\na\na\022\138\na\na\027\142\na\na\019\202\na\na\na\na\na\na\na\na\na\na\na\na\na\011J\b)\na\na\na\na\003\157\003\157\b\005\007\246\024:\003\157\005\229\003\157\003\157\000\238\003\157\003\157\003\157\003\157\023n\003\157\003\157\022\210\003\157\003\157\003\157\026F\003\157\003\157\003\157\003\157\026\142\003\157\025^\003\157\003\157\003\157\003\157\003\157\003\157\003\157\003\157\007\246\rE\022\170\003\157\000\238\003\157\003\157\003\157\003\157\003\157\022\218\003\157\003\157\000\238\003\157\011r\003\157\003\157\003\157\019\254\023\250\003\157\003\157\003\157\003\157\003\157\003\157\003\157\011\162\003\157\003\157\003\157\003\157\003\157\003\157\003\157\003\157\003\157\003\157\003\157\023\254\t\166\t\214\023\n\003\157\003\157\023\150\004\225\r\194\025\026\003\157\003\157\003\157\003\157\003\157\b-\003\157\003\157\003\157\003\157\t\174\024>\t\222\003\157\r\202\003\157\003\157\023\206\003\157\003\157\003\157\003\157\003\157\003\157\003\157\003\157\003\157\003\157\003\157\003\157\003\157\r\222\003\157\003\157\003\157\003\157\003\157\001\237\001\237\014\014\007\246\n\250\001\237\014:\002\190\001\237\015\146\002\130\001\237\t\190\001\237\015\186\002\246\001\237\025b\001\237\001\237\001\237\003\254\001\237\001\237\001\237\001\210\015\214\t\198\015\218\002\250\001\237\001\237\001\237\001\237\001\237\t\206\001\237\016\002\001\206\025N\002\254\016\022\001\237\001\237\001\237\001\237\001\237\027\"\0032\001\190\004e\001\237\016.\001\237\001\237\002\178\025\030\016B\003:\001\237\001\237\001\237\bz\b~\b\138\016n\012\150\005v\001\237\001\237\001\237\001\237\001\237\001\237\001\237\001\237\001\237\028\007\t\166\t\214\026\246\001\237\001\237\007\246\016\130\017\130\017\142\005\130\005\134\001\237\001\237\001\237\002\226\001\237\001\237\001\237\001\237\012\158\006\134\012\234\001\237\018N\001\237\001\237\018f\001\237\001\237\001\237\001\237\001\237\001\237\005\138\b\146\001\237\001\237\001\237\b\170\004r\018\238\018\242\001\237\001\237\001\237\001\237\nI\nI\019*\019.\019V\nI\019Z\002\190\nI\025R\002\130\nI\nI\nI\019\130\002\246\nI\027&\nI\nI\nI\020.\nI\nI\nI\001\210\0202\nI\020V\002\250\nI\nI\nI\nI\nI\nI\nI\020Z\020j\020z\002\254\020\134\nI\nI\nI\nI\nI\020\186\0032\001\190\020\190\nI\021\014\nI\nI\002\178\0216\021:\003:\nI\nI\nI\bz\b~\b\138\021J\nI\005v\nI\nI\nI\nI\nI\nI\nI\nI\nI\021\154\nI\nI\021\186\nI\nI\021\250\022\030\022.\022V\005\130\005\134\nI\nI\nI\022Z\nI\nI\nI\nI\nI\022f\nI\nI\022v\nI\nI\022\146\nI\nI\nI\nI\nI\nI\005\138\b\146\nI\nI\nI\b\170\004r\022\162\022\182\nI\nI\nI\nI\nE\nE\022\226\022\230\022\242\nE\023\002\002\190\nE\023\022\002\130\nE\nE\nE\024\n\002\246\nE\024b\nE\nE\nE\024\138\nE\nE\nE\001\210\024\242\nE\025\002\002\250\nE\nE\nE\nE\nE\nE\nE\025\158\025\166\025\182\002\254\025\194\nE\nE\nE\nE\nE\026&\0032\001\190\026:\nE\026j\nE\nE\002\178\026r\026\174\003:\nE\nE\nE\bz\b~\b\138\026\214\nE\005v\nE\nE\nE\nE\nE\nE\nE\nE\nE\027\014\nE\nE\027>\nE\nE\027J\027R\027[\027k\005\130\005\134\nE\nE\nE\027~\nE\nE\nE\nE\nE\027\154\nE\nE\027\183\nE\nE\027\199\nE\nE\nE\nE\nE\nE\005\138\b\146\nE\nE\nE\b\170\004r\027\227\028\023\nE\nE\nE\nE\0029\0029\0283\028>\028s\0029\028\135\002\190\0029\028\143\002\130\0029\t\190\0029\028\203\002\246\0029\028\211\0029\0029\0029\000\000\0029\0029\0029\001\210\002\225\t\198\000\000\002\250\0029\0029\0029\0029\0029\t\206\0029\000\000\000\000\000\000\002\254\004M\0029\0029\0029\0029\0029\000\000\0032\001\190\000\000\0029\000\n\0029\0029\002\178\000\000\000\000\003:\0029\0029\0029\bz\b~\b\138\000\000\012\150\005v\0029\0029\0029\0029\0029\0029\0029\0029\0029\000\000\004\185\0029\002\225\0029\0029\004M\006\202\002\190\004M\005\130\005\134\0029\0029\0029\000\000\0029\0029\0029\0029\000\000\000\238\004M\0029\004\185\0029\0029\004M\0029\0029\0029\0029\0029\0029\005\138\b\146\0029\0029\0029\b\170\004r\000\000\004M\0029\0029\0029\0029\004M\007f\004M\003\n\004M\004M\004M\004M\004M\004M\004M\017\230\004M\000\238\004M\004M\000\000\004M\004M\004M\016\178\004M\004M\004M\004M\004M\004M\004M\004M\004M\000\000\004M\004M\000\000\000\000\004M\004M\000\238\004M\004M\004M\004M\004M\007\226\004M\004M\004M\004M\004M\004M\004M\004M\000\238\004M\004M\004M\004M\004M\004M\004M\004M\000\238\004M\004M\004M\004M\004M\004M\004M\004M\b\209\004N\004M\000\000\000\000\004M\004M\004M\000\238\004M\000\n\000\000\004M\004M\004M\004M\004M\004M\004M\004M\004M\000\000\022\018\004M\004M\002\225\002\225\007\238\004M\004B\006\249\000\000\004M\004M\000\000\007\246\016\182\022\130\002\225\000\238\004M\004M\004M\007\250\000\000\004M\004M\004M\004M\006\249\000\161\004M\000\161\006\249\000\161\000\161\000\161\000\161\000\161\000\161\000\161\000\000\000\161\0236\000\161\000\161\000\000\000\161\000\161\000\000\000\000\000\161\000\161\000\000\000\161\000\161\000\161\000\161\000\000\000\161\004R\000\161\000\161\b\209\000\000\000\161\000\161\005\153\000\161\000\161\000\161\000\238\000\161\t\005\000\161\000\161\000\161\000\161\000\161\000\161\000\161\000\161\000\000\b\234\000\161\000\161\000\000\000\000\000\161\000\161\002\006\000\161\000\161\000\161\000\161\000\161\000\161\000\161\000\161\000\161\002\n\006\249\000\161\015\174\t1\000\161\002\130\000\161\001\210\000\161\005\153\002\190\000\000\000\161\000\161\000\161\000\161\000\161\000\161\000\161\000\161\000\000\000\000\000\000\000\161\003\154\0186\t1\005\153\000\222\000\000\007J\001\222\000\161\000\000\002\226\000\000\014\194\002\178\000\161\000\161\000\161\000\161\000\000\015\178\000\161\000\161\000\161\000\161\002)\002)\004e\000\000\003\n\002)\000\000\002\190\002)\015\190\002\130\002)\001b\002)\000\000\002\246\002)\007N\002)\002)\002)\000\000\002)\002)\002)\001\210\001z\000\000\001\138\002\250\002)\002)\002)\002)\002)\005\134\002)\000\000\000\000\000\000\002\254\b\189\002)\002)\002)\002)\002)\004e\0032\b\142\000\000\002)\000\000\002)\002)\002\178\000\000\006\146\003:\002)\002)\002)\bz\b~\b\138\t\166\t\214\005v\002)\002)\002)\002)\002)\002)\002)\002)\002)\006\150\t\166\t\214\b\189\002)\002)\000\000\t\174\000\000\t\222\005\130\005\134\002)\002)\002)\000\000\002)\002)\002)\002)\t\174\000\000\t\222\002)\b\189\002)\002)\000\000\002)\002)\002)\002)\002)\002)\005\138\b\146\002)\002)\002)\b\170\004r\000\238\002\225\002)\002)\002)\002)\002E\002E\002\225\002\225\000\000\002E\000\000\000\000\002E\000\000\b\189\002E\000\000\002E\004\254\000\000\002E\b\189\002E\002E\002E\000\n\002E\002E\002E\000\000\028#\000\000\000\000\000\n\002E\002E\002E\002E\002E\000\000\002E\002\225\006F\004\181\000\000\005\234\002E\002E\002E\002E\002E\000\000\006f\002\225\000\000\002E\006r\002E\002E\000\000\000\000\002\225\006\198\002E\002E\002E\004\181\000\000\006\229\t-\000\000\000\000\002E\002E\002E\002E\002E\002E\002E\002E\002E\000\000\t\166\t\214\000\000\002E\002E\006\206\014\218\000\000\002\190\006\229\t-\002E\002E\002E\000\000\002E\002E\002E\002E\t\174\002\190\t\222\002E\002\130\002E\002E\001\210\002E\002E\002E\002E\002E\002E\b\185\000\000\002E\002E\002E\000\000\022\002\000\000\000\000\002E\002E\002E\002E\002A\002A\000\000\023>\003\n\002A\023B\003\022\002A\000\000\002\178\002A\000\000\002A\000\000\017\178\002A\023r\002A\002A\002A\t\178\002A\002A\002A\012V\b\185\000\000\000\000\015\190\002A\002A\002A\002A\002A\r\150\002A\r\162\000\000\012r\023\130\012\130\002A\002A\002A\002A\002A\b\185\b\198\001\190\001*\002A\000\000\002A\002A\005\134\002\225\002\225\014\130\002A\002A\002A\014\150\014\170\014\186\000\000\000\000\000\000\002A\002A\002A\002A\002A\002A\002A\002A\002A\000\000\t\166\t\214\b\185\002A\002A\000\n\004\254\000\000\001\206\b\185\000\000\002A\002A\002A\000\000\002A\002A\002A\002A\t\174\000\000\t\222\002A\000\000\002A\002A\001\210\002A\002A\002A\002A\002A\002A\002\225\000\000\002A\002A\002A\000\000\018\246\000\000\000\000\002A\002A\002A\002A\002-\002-\000\000\000\000\002\154\002-\019~\003\022\002-\000\000\002\178\002-\000\000\002-\000\000\000\000\002-\019\150\002-\002-\002-\012\162\002-\002-\002-\002\225\002\225\016\222\000\000\000\000\002-\002-\002-\002-\002-\012\186\002-\012\210\000\000\000\000\002\225\r2\002-\002-\002-\002-\002-\000\000\b\198\014\250\000\000\002-\000\n\002-\002-\rF\000\000\rZ\014\130\002-\002-\002-\014\150\014\170\014\186\000\000\000\000\000\000\002-\002-\002-\002-\002-\002-\002-\002-\002-\000\000\t\166\t\214\002\225\002-\002-\000\000\000\000\000\000\000\000\000\238\000\000\002-\002-\002-\000\000\002-\002-\002-\002-\t\174\000\000\t\222\002-\000\000\002-\002-\000\000\002-\002-\002-\002-\002-\002-\000\000\000\000\002-\002-\002-\000\000\t\146\000\000\000\000\002-\002-\002-\002-\002=\002=\000\000\000\000\000\000\002=\012\149\006F\002=\000\000\005\234\002=\000\000\002=\000\000\000\000\002=\006f\002=\002=\002=\006r\002=\002=\002=\012\149\012\149\000\000\000\000\012\149\002=\002=\002=\002=\002=\000\000\002=\b)\000\000\000\000\b)\000\000\002=\002=\002=\002=\002=\000\000\000\000\000\000\000\000\002=\000\000\002=\002=\000\000\000\000\000\000\022\138\002=\002=\002=\000\000\000\000\000\000\000\000\000\000\000\238\002=\002=\002=\002=\002=\002=\002=\002=\002=\000\000\b)\002=\000\000\002=\002=\000\000\000\000\000\000\000\000\000\000\000\000\002=\002=\002=\b)\002=\002=\002=\002=\012\149\000\000\005\t\002=\000\000\002=\002=\002\225\t\246\002=\002=\002=\002=\002=\005\t\011>\002=\002=\002=\000\000\000\000\b)\000\000\002=\002=\002=\002=\t9\t9\000\000\000\000\000\000\t9\000\000\000\000\t9\000\n\000\000\t9\000\000\t9\000\000\000\000\n\"\005\t\t9\nF\t9\b)\t9\t9\t9\002\225\002\225\018\014\000\000\017N\nZ\nr\nz\nb\n\130\000\000\t9\002\225\002\225\000\000\002\225\000\000\t9\t9\n\138\n\146\t9\005\t\b\t\000\000\005\t\t9\000\n\n\154\t9\000\000\000\000\000\000\000\000\t9\t9\000\238\000\000\000\000\000\000\000\000\000\000\002\246\t9\t9\n*\nj\n\162\n\170\n\186\t9\t9\002\166\012\217\t9\002\225\t9\n\194\000\000\003Z\000\000\000\000\000\238\000\000\t9\t9\n\202\000\000\t9\t9\t9\t9\003f\012\217\000\000\t9\000\000\t9\t9\002B\n\234\t9\n\242\n\178\t9\t9\000\000\000\000\t9\n\210\t9\000\000\002F\000\000\005v\t9\t9\n\218\n\226\002q\002q\000\000\000\000\000\000\002q\012\157\006F\002q\000\000\005\234\002q\000\000\002q\000\000\005\130\002q\006f\002q\002q\002q\006r\002q\002q\002q\012\157\012\157\000\000\000\000\012\157\002q\002q\002q\002q\002q\000\000\002q\015\174\000\000\005\138\002\130\000\000\002q\002q\002q\002q\002q\000\000\000\000\000\000\000\000\002q\000\000\002q\002q\000\000\000\000\000\000\000\000\002q\002q\002q\000\000\000\000\000\000\000\000\000\000\000\238\002q\002q\n*\002q\002q\002q\002q\002q\002q\000\000\015\178\002q\000\000\002q\002q\000\000\000\000\000\000\000\000\000\000\000\000\002q\002q\002q\015\190\002q\002q\002q\002q\012\157\000\000\001\206\002q\000\000\002q\002q\000\000\002q\002q\002q\002q\002q\002q\026Z\000\000\002q\002q\002q\000\000\000\000\005\134\000\000\002q\002q\002q\002q\002Y\002Y\000\000\000\000\000\000\002Y\000\000\002\190\002Y\000\000\000\000\002Y\000\000\002Y\003\170\000\000\002Y\002\154\002Y\002Y\002Y\025\202\002Y\002Y\002Y\001\210\000\000\000\000\000\000\000\000\002Y\002Y\002Y\002Y\002Y\000\000\002Y\015\174\000\000\000\000\002\130\000\000\002Y\002Y\002Y\002Y\002Y\004\154\003\202\000\000\004\229\002Y\000\000\002Y\002Y\002\178\000\000\000\000\000\000\002Y\002Y\002Y\000\000\000\000\000\000\000\000\000\000\000\000\002Y\002Y\n*\002Y\002Y\002Y\002Y\002Y\002Y\000\000\015\178\002Y\000\000\002Y\002Y\0072\000\000\000\000\000\000\000\000\000\000\002Y\002Y\002Y\015\190\002Y\002Y\002Y\002Y\000\000\000\000\000\000\002Y\000\000\002Y\002Y\000\000\002Y\002Y\002Y\002Y\002Y\002Y\012\153\000\000\002Y\002Y\002Y\000\000\000\000\005\134\000\000\002Y\002Y\002Y\002Y\002e\002e\000\000\000\000\000\000\002e\012\153\012\153\002e\000\000\012\153\002e\000\000\002e\000\000\000\000\n\"\000\000\002e\002e\002e\021f\002e\002e\002e\000\000\000\000\000\000\000\000\000\000\002e\002e\002e\nb\002e\000\000\002e\000\000\000\000\000\000\000\000\000\000\002e\002e\002e\002e\002e\000\000\000\238\000\000\000\000\002e\000\000\002e\002e\000\000\000\000\000\000\000\000\002e\002e\002e\000\000\000\000\000\000\000\000\000\000\000\000\002e\002e\n*\nj\002e\002e\002e\002e\002e\000\000\012\153\002e\000\000\002e\002e\000\000\000\000\000\000\000\000\000\238\b\029\002e\002e\002e\b\029\002e\002e\002e\002e\000\000\000\000\000\000\002e\000\000\002e\002e\000\000\002e\002e\002e\002e\002e\002e\000\000\000\000\002e\002e\002e\000\000\011\198\000\000\000\000\002e\002e\002e\002e\002u\002u\000\000\000\000\000\000\002u\b\029\011\206\002u\000\000\011\218\002u\000\000\002u\000\000\000\000\002u\011\230\002u\002u\002u\011\242\002u\002u\002u\000\000\000\000\b\029\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\000\000\000\000\002u\000\000\002u\002u\000\000\000\000\000\000\000\000\002u\002u\002u\000\000\000\000\004\254\000\000\000\000\000\000\002u\002u\n*\002u\002u\002u\002u\002u\002u\000\000\bJ\002u\000\000\002u\002u\000\000\000\000\000\000\000\000\000\238\b\025\002u\002u\002u\b\025\002u\002u\002u\002u\000\000\bN\000\000\002u\000\000\002u\002u\000\000\002u\002u\002u\002u\002u\002u\000\000\000\000\002u\002u\002u\000\000\007\181\000\000\000\000\002u\002u\002u\002u\002U\002U\b>\000\000\000\000\002U\b\025\007\181\002U\000\000\005\234\002U\000\000\002U\000\000\000\238\002U\007\181\002U\002U\002U\007\181\002U\002U\002U\000\000\000\000\b\025\000\000\000\000\002U\002U\002U\002U\002U\000\000\002U\000\000\000\000\007\r\000\000\000\000\002U\002U\002U\002U\002U\000\000\000\000\000\000\000\000\002U\000\000\002U\002U\000\000\000\000\000\000\007\r\002U\002U\002U\007\r\bR\004\254\000\000\000\000\000\000\002U\002U\n*\002U\002U\002U\002U\002U\002U\000\000\000\000\002U\000\000\002U\002U\000\000\000\000\000\000\000\000\007\209\000\000\002U\002U\002U\000\000\002U\002U\002U\002U\000\000\000\000\000\000\002U\000\000\002U\002U\000\000\002U\002U\002U\002U\002U\002U\000\000\000\000\002U\002U\002U\000\000\007\209\000\000\000\000\002U\002U\002U\002U\002a\002a\000\000\000\000\000\000\002a\005f\007\209\002a\000\000\005\234\002a\000\000\002a\000\000\000\000\n\"\007\209\002a\002a\002a\007\209\002a\002a\002a\000\000\000\000\000\000\000\000\000\000\002a\002a\002a\nb\002a\000\000\002a\000\000\000\000\006\253\000\000\000\000\002a\002a\002a\002a\002a\000\000\000\000\000\000\000\000\002a\000\000\002a\002a\000\000\000\000\000\000\006\253\002a\002a\002a\006\253\000\000\000\000\000\000\000\000\000\000\002a\002a\n*\nj\002a\002a\002a\002a\002a\000\000\000\000\002a\000\000\002a\002a\000\000\000\000\000\000\000\000\000\238\000\000\002a\002a\002a\000\000\002a\002a\002a\002a\000\000\000\000\000\000\002a\000\000\002a\002a\000\000\002a\002a\002a\002a\002a\002a\000\000\000\000\002a\002a\002a\000\000\007\237\000\000\000\000\002a\002a\002a\002a\002]\002]\000\000\000\000\000\000\002]\b\134\006F\002]\000\000\005\234\002]\000\000\002]\000\000\000\000\n\"\007\237\002]\002]\002]\007\237\002]\002]\002]\000\000\000\000\000\000\000\000\000\000\002]\002]\002]\nb\002]\000\000\002]\000\000\000\000\000\000\000\000\000\000\002]\002]\002]\002]\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]\n*\nj\002]\002]\002]\002]\002]\000\000\000\000\002]\000\000\002]\002]\000\000\000\000\000\000\000\000\007\229\000\000\002]\002]\002]\000\000\002]\002]\002]\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]\002]\000\000\007\229\000\000\000\000\002]\002]\002]\002]\002\133\002\133\000\000\000\000\000\000\002\133\000\000\012\n\002\133\000\000\007\229\002\133\000\000\002\133\000\000\000\000\n\"\007\229\002\133\002\133\002\133\007\229\002\133\002\133\002\133\000\000\000\000\000\000\000\000\000\000\nZ\nr\nz\nb\n\130\000\000\002\133\000\000\000\000\000\000\000\000\000\000\002\133\002\133\n\138\n\146\002\133\000\000\000\000\000\000\000\000\002\133\000\000\n\154\002\133\000\000\000\000\000\000\000\000\002\133\002\133\000\238\000\000\000\000\000\000\000\000\000\000\000\000\002\133\002\133\n*\nj\n\162\n\170\n\186\002\133\002\133\000\000\000\000\002\133\000\000\002\133\n\194\000\000\000\000\000\000\000\000\000\238\000\000\002\133\002\133\n\202\000\000\002\133\002\133\002\133\002\133\000\000\000\000\000\000\002\133\000\000\002\133\002\133\000\000\002\133\002\133\002\133\n\178\002\133\002\133\000\000\000\000\002\133\n\210\002\133\000\000\007\177\000\000\000\000\002\133\002\133\n\218\n\226\002m\002m\000\000\000\000\000\000\002m\000\000\007\177\002m\000\000\005\234\002m\000\000\002m\000\000\000\000\n\"\007\177\002m\002m\002m\007\177\002m\002m\002m\000\000\000\000\000\000\000\000\000\000\002m\002m\002m\nb\002m\000\000\002m\000\000\000\000\000\000\000\000\000\000\002m\002m\002m\002m\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\n*\nj\002m\002m\002m\002m\002m\000\000\000\000\002m\000\000\002m\002m\000\000\000\000\000\000\000\000\000\238\000\000\002m\002m\002m\000\000\002m\002m\002m\002m\000\000\000\000\000\000\002m\000\000\002m\002m\000\000\002m\002m\002m\002m\002m\002m\000\000\000\000\002m\002m\002m\000\000\014R\000\000\000\000\002m\002m\002m\002m\002i\002i\000\000\000\000\000\000\002i\000\000\011\206\002i\000\000\011\218\002i\000\000\002i\000\000\000\000\n\"\011\230\002i\002i\002i\011\242\002i\002i\002i\000\000\000\000\000\000\000\000\000\000\002i\002i\002i\nb\002i\000\000\002i\000\000\000\000\000\000\000\000\000\000\002i\002i\002i\002i\002i\000\000\000\000\000\000\000\000\002i\000\000\002i\002i\000\000\000\000\000\000\000\000\002i\002i\002i\000\000\000\000\000\000\000\000\000\000\000\000\002i\002i\n*\nj\002i\002i\002i\002i\002i\000\000\000\000\002i\000\000\002i\002i\000\000\000\000\000\000\000\000\000\000\000\000\002i\002i\002i\000\000\002i\002i\002i\002i\000\000\000\000\000\000\002i\000\000\002i\002i\000\000\002i\002i\002i\002i\002i\002i\000\000\000\000\002i\002i\002i\000\000\000\000\000\000\000\000\002i\002i\002i\002i\002}\002}\000\000\000\000\000\000\002}\000\000\002\006\002}\000\000\002\130\002}\000\000\002}\000\000\000\000\n\"\000\000\002}\002}\002}\000\000\002}\002}\002}\000\000\000\000\000\000\000\000\000\000\nZ\nr\nz\nb\002}\000\000\002}\000\000\000\000\000\000\000\000\000\000\002}\002}\n\138\n\146\002}\000\000\027v\001\222\000\000\002}\000\000\002}\002}\000\000\000\000\000\000\000\000\002}\002}\000\238\015\190\000\000\000\000\000\000\000\000\000\000\002}\002}\n*\nj\n\162\n\170\002}\002}\002}\000\000\000\000\002}\000\000\002}\002}\000\000\000\000\000\000\000\000\000\000\005\134\002}\002}\002}\000\000\002}\002}\002}\002}\000\000\000\000\000\000\002}\000\000\002}\002}\000\000\002}\002}\002}\n\178\002}\002}\000\000\000\000\002}\002}\002}\000\000\000\000\000\000\000\000\002}\002}\002}\002}\002Q\002Q\000\000\000\000\000\000\002Q\000\000\003\022\002Q\000\000\000\000\002Q\000\000\002Q\000\000\000\000\n\"\000\000\002Q\002Q\002Q\000\000\002Q\002Q\002Q\000\000\000\000\000\000\000\000\000\000\002Q\002Q\002Q\nb\002Q\000\000\002Q\000\000\000\000\000\000\000\000\000\000\002Q\002Q\002Q\002Q\002Q\000\000\005\190\000\000\000\000\002Q\000\000\002Q\002Q\000\000\000\000\000\000\003\246\002Q\002Q\002Q\006\154\000\000\004\002\000\000\000\000\000\000\002Q\002Q\n*\nj\002Q\002Q\002Q\002Q\002Q\000\000\000\000\002Q\000\000\002Q\002Q\000\000\000\000\000\000\000\000\000\000\000\000\002Q\002Q\002Q\000\000\002Q\002Q\002Q\002Q\000\000\000\000\000\000\002Q\000\000\002Q\002Q\000\000\002Q\002Q\002Q\002Q\002Q\002Q\000\000\000\000\002Q\002Q\002Q\000\000\000\000\000\000\000\000\002Q\002Q\002Q\002Q\002M\002M\000\000\000\000\000\000\002M\000\000\002\190\002M\000\000\000\000\002M\000\000\002M\000\000\000\000\n\"\000\000\002M\002M\002M\000\000\002M\002M\002M\000\000\000\000\000\000\000\000\000\000\nZ\nr\nz\nb\002M\000\000\002M\000\000\000\000\000\000\000\000\000\000\002M\002M\n\138\n\146\002M\000\000\t\226\003\n\000\000\002M\000\000\002M\002M\000\000\000\000\000\000\000\000\002M\002M\000\238\012.\000\000\012>\000\000\000\000\000\000\002M\002M\n*\nj\n\162\n\170\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\002M\000\000\000\000\000\000\002M\000\000\002M\002M\000\000\002M\002M\002M\n\178\002M\002M\000\000\000\000\002M\002M\002M\000\000\000\000\000\000\000\000\002M\002M\002M\002M\002\169\002\169\000\000\000\000\000\000\002\169\000\000\002\190\002\169\000\000\000\000\002\169\000\000\002\169\000\000\000\000\n\"\000\000\002\169\002\169\002\169\000\000\002\169\002\169\002\169\000\000\000\000\000\000\000\000\000\000\nZ\nr\nz\nb\002\169\000\000\002\169\000\000\000\000\000\000\000\000\000\000\002\169\002\169\n\138\n\146\002\169\000\000\012\238\003\n\000\000\002\169\000\000\002\169\002\169\000\000\000\000\000\000\000\000\002\169\002\169\002\169\r\002\000\000\r\022\000\000\000\000\000\000\002\169\002\169\n*\nj\n\162\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\002\169\000\000\000\000\000\000\002\169\000\000\002\169\002\169\000\000\002\169\002\169\002\169\n\178\002\169\002\169\000\000\000\000\002\169\002\169\002\169\000\000\000\000\000\000\000\000\002\169\002\169\002\169\002\169\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\n\"\000\000\002I\002I\002I\000\000\002I\002I\002I\000\000\000\000\000\000\000\000\000\000\nZ\nr\nz\nb\002I\000\000\002I\000\000\000\000\000\000\000\000\000\000\002I\002I\n\138\n\146\002I\000\000\000\000\000\000\000\000\002I\000\000\002I\002I\000\000\000\000\000\000\000\000\002I\002I\000\238\000\000\000\000\000\000\000\000\000\000\000\000\002I\002I\n*\nj\n\162\n\170\002I\002I\002I\000\000\000\000\002I\000\000\002I\002I\000\000\000\000\000\000\000\000\000\000\000\000\002I\002I\002I\000\000\002I\002I\002I\002I\000\000\000\000\000\000\002I\000\000\002I\002I\000\000\002I\002I\002I\n\178\002I\002I\000\000\000\000\002I\002I\002I\000\000\000\000\000\000\000\000\002I\002I\002I\002I\002\129\002\129\000\000\000\000\000\000\002\129\000\000\000\000\002\129\000\000\000\000\002\129\000\000\002\129\000\000\000\000\n\"\000\000\002\129\002\129\002\129\000\000\002\129\002\129\002\129\000\000\000\000\000\000\000\000\000\000\nZ\nr\nz\nb\002\129\000\000\002\129\000\000\000\000\000\000\000\000\000\000\002\129\002\129\n\138\n\146\002\129\000\000\000\000\000\000\000\000\002\129\000\000\002\129\002\129\000\000\000\000\000\000\000\000\002\129\002\129\000\238\000\000\000\000\000\000\000\000\000\000\000\000\002\129\002\129\n*\nj\n\162\n\170\002\129\002\129\002\129\000\000\000\000\002\129\000\000\002\129\002\129\000\000\000\000\000\000\000\000\000\000\000\000\002\129\002\129\002\129\000\000\002\129\002\129\002\129\002\129\000\000\000\000\000\000\002\129\000\000\002\129\002\129\000\000\002\129\002\129\002\129\n\178\002\129\002\129\000\000\000\000\002\129\002\129\002\129\000\000\000\000\000\000\000\000\002\129\002\129\002\129\002\129\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\n\"\000\000\002y\002y\002y\000\000\002y\002y\002y\000\000\000\000\000\000\000\000\000\000\nZ\nr\nz\nb\002y\000\000\002y\000\000\000\000\000\000\000\000\000\000\002y\002y\n\138\n\146\002y\000\000\000\000\000\000\000\000\002y\000\000\002y\002y\000\000\000\000\000\000\000\000\002y\002y\000\238\000\000\000\000\000\000\000\000\000\000\000\000\002y\002y\n*\nj\n\162\n\170\002y\002y\002y\000\000\000\000\002y\000\000\002y\002y\000\000\000\000\000\000\000\000\000\000\000\000\002y\002y\002y\000\000\002y\002y\002y\002y\000\000\000\000\000\000\002y\000\000\002y\002y\000\000\002y\002y\002y\n\178\002y\002y\000\000\000\000\002y\002y\002y\000\000\000\000\000\000\000\000\002y\002y\002y\002y\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\n\"\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\nZ\nr\nz\nb\n\130\000\000\002\137\000\000\000\000\000\000\000\000\000\000\002\137\002\137\n\138\n\146\002\137\000\000\000\000\000\000\000\000\002\137\000\000\n\154\002\137\000\000\000\000\000\000\000\000\002\137\002\137\000\238\000\000\000\000\000\000\000\000\000\000\000\000\002\137\002\137\n*\nj\n\162\n\170\n\186\002\137\002\137\000\000\000\000\002\137\000\000\002\137\n\194\000\000\000\000\000\000\000\000\000\000\000\000\002\137\002\137\n\202\000\000\002\137\002\137\002\137\002\137\000\000\000\000\000\000\002\137\000\000\002\137\002\137\000\000\002\137\002\137\002\137\n\178\002\137\002\137\000\000\000\000\002\137\n\210\002\137\000\000\000\000\000\000\000\000\002\137\002\137\n\218\n\226\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\n\"\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\nZ\nr\nz\nb\002\141\000\000\002\141\000\000\000\000\000\000\000\000\000\000\002\141\002\141\n\138\n\146\002\141\000\000\000\000\000\000\000\000\002\141\000\000\n\154\002\141\000\000\000\000\000\000\000\000\002\141\002\141\000\238\000\000\000\000\000\000\000\000\000\000\000\000\002\141\002\141\n*\nj\n\162\n\170\n\186\002\141\002\141\000\000\000\000\002\141\000\000\002\141\n\194\000\000\000\000\000\000\000\000\000\000\000\000\002\141\002\141\n\202\000\000\002\141\002\141\002\141\002\141\000\000\000\000\000\000\002\141\000\000\002\141\002\141\000\000\002\141\002\141\002\141\n\178\002\141\002\141\000\000\000\000\002\141\002\141\002\141\000\000\000\000\000\000\000\000\002\141\002\141\n\218\n\226\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\n\"\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\nZ\nr\nz\nb\002\145\000\000\002\145\000\000\000\000\000\000\000\000\000\000\002\145\002\145\n\138\n\146\002\145\000\000\000\000\000\000\000\000\002\145\000\000\n\154\002\145\000\000\000\000\000\000\000\000\002\145\002\145\000\238\000\000\000\000\000\000\000\000\000\000\000\000\002\145\002\145\n*\nj\n\162\n\170\n\186\002\145\002\145\000\000\000\000\002\145\000\000\002\145\n\194\000\000\000\000\000\000\000\000\000\000\000\000\002\145\002\145\n\202\000\000\002\145\002\145\002\145\002\145\000\000\000\000\000\000\002\145\000\000\002\145\002\145\000\000\002\145\002\145\002\145\n\178\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\n\218\n\226\b\245\b\245\000\000\000\000\000\000\b\245\000\000\000\000\b\245\000\000\000\000\b\245\000\000\b\245\000\000\000\000\n\"\000\000\b\245\b\245\b\245\000\000\b\245\b\245\b\245\000\000\000\000\000\000\000\000\000\000\nZ\nr\nz\nb\n\130\000\000\b\245\000\000\000\000\000\000\000\000\000\000\b\245\b\245\n\138\n\146\b\245\000\000\000\000\000\000\000\000\b\245\000\000\n\154\b\245\000\000\000\000\000\000\000\000\b\245\b\245\000\238\000\000\000\000\000\000\000\000\000\000\000\000\b\245\b\245\n*\nj\n\162\n\170\n\186\b\245\b\245\000\000\000\000\b\245\000\000\b\245\n\194\000\000\000\000\000\000\000\000\000\000\000\000\b\245\b\245\n\202\000\000\b\245\b\245\b\245\b\245\000\000\000\000\000\000\b\245\000\000\b\245\b\245\000\000\b\245\b\245\b\245\n\178\b\245\b\245\000\000\000\000\b\245\n\210\b\245\000\000\000\000\000\000\000\000\b\245\b\245\n\218\n\226\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\n\"\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\nZ\nr\nz\nb\n\130\000\000\002\149\000\000\000\000\000\000\000\000\000\000\002\149\002\149\n\138\n\146\002\149\000\000\000\000\000\000\000\000\002\149\000\000\n\154\002\149\000\000\000\000\000\000\000\000\002\149\002\149\000\238\000\000\000\000\000\000\000\000\000\000\000\000\002\149\002\149\n*\nj\n\162\n\170\n\186\002\149\002\149\000\000\000\000\002\149\000\000\002\149\n\194\000\000\000\000\000\000\000\000\000\000\000\000\002\149\002\149\n\202\000\000\002\149\002\149\002\149\002\149\000\000\000\000\000\000\002\149\000\000\002\149\002\149\000\000\n\234\002\149\n\242\n\178\002\149\002\149\000\000\000\000\002\149\n\210\002\149\000\000\000\000\000\000\000\000\002\149\002\149\n\218\n\226\b\241\b\241\000\000\000\000\000\000\b\241\000\000\000\000\b\241\000\000\000\000\b\241\000\000\b\241\000\000\000\000\n\"\000\000\b\241\b\241\b\241\000\000\b\241\b\241\b\241\000\000\000\000\000\000\000\000\000\000\nZ\nr\nz\nb\n\130\000\000\b\241\000\000\000\000\000\000\000\000\000\000\b\241\b\241\n\138\n\146\b\241\000\000\000\000\000\000\000\000\b\241\000\000\n\154\b\241\000\000\000\000\000\000\000\000\b\241\b\241\000\238\000\000\000\000\000\000\000\000\000\000\000\000\b\241\b\241\n*\nj\n\162\n\170\n\186\b\241\b\241\000\000\000\000\b\241\000\000\b\241\n\194\000\000\000\000\000\000\000\000\000\000\000\000\b\241\b\241\n\202\000\000\b\241\b\241\b\241\b\241\000\000\000\000\000\000\b\241\000\000\b\241\b\241\000\000\b\241\b\241\b\241\n\178\b\241\b\241\000\000\000\000\b\241\n\210\b\241\000\000\000\000\000\000\000\000\b\241\b\241\n\218\n\226\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\n\"\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\nZ\nr\nz\nb\n\130\000\000\002\193\000\000\000\000\000\000\000\000\000\000\002\193\002\193\n\138\n\146\002\193\000\000\000\000\000\000\000\000\002\193\000\000\n\154\002\193\000\000\000\000\000\000\000\000\002\193\002\193\000\238\000\000\000\000\000\000\000\000\000\000\000\000\002\193\002\193\n*\nj\n\162\n\170\n\186\002\193\002\193\000\000\000\000\002\193\000\000\002\193\n\194\000\000\000\000\000\000\000\000\000\000\000\000\002\193\002\193\n\202\000\000\002\193\002\193\002\193\002\193\000\000\000\000\000\000\002\193\000\000\002\193\002\193\000\000\n\234\002\193\n\242\n\178\002\193\002\193\000\000\000\000\002\193\n\210\002\193\000\000\000\000\000\000\000\000\002\193\002\193\n\218\n\226\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\n\"\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\nZ\nr\nz\nb\n\130\000\000\002\209\000\000\000\000\000\000\000\000\000\000\002\209\002\209\n\138\n\146\002\209\000\000\000\000\000\000\000\000\002\209\000\000\n\154\002\209\000\000\000\000\000\000\000\000\002\209\002\209\000\238\000\000\000\000\000\000\000\000\000\000\000\000\002\209\002\209\n*\nj\n\162\n\170\n\186\002\209\002\209\000\000\000\000\002\209\000\000\002\209\n\194\000\000\000\000\000\000\000\000\000\000\000\000\002\209\002\209\n\202\000\000\002\209\002\209\002\209\002\209\000\000\000\000\000\000\002\209\000\000\002\209\002\209\000\000\n\234\002\209\n\242\n\178\002\209\002\209\000\000\000\000\002\209\n\210\002\209\000\000\000\000\000\000\000\000\002\209\002\209\n\218\n\226\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\n\"\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\nZ\nr\nz\nb\n\130\000\000\002\201\000\000\000\000\000\000\000\000\000\000\002\201\002\201\n\138\n\146\002\201\000\000\000\000\000\000\000\000\002\201\000\000\n\154\002\201\000\000\000\000\000\000\000\000\002\201\002\201\000\238\000\000\000\000\000\000\000\000\000\000\000\000\002\201\002\201\n*\nj\n\162\n\170\n\186\002\201\002\201\000\000\000\000\002\201\000\000\002\201\n\194\000\000\000\000\000\000\000\000\000\000\000\000\002\201\002\201\n\202\000\000\002\201\002\201\002\201\002\201\000\000\000\000\000\000\002\201\000\000\002\201\002\201\000\000\n\234\002\201\n\242\n\178\002\201\002\201\000\000\000\000\002\201\n\210\002\201\000\000\000\000\000\000\000\000\002\201\002\201\n\218\n\226\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\n\"\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\nZ\nr\nz\nb\n\130\000\000\002\181\000\000\000\000\000\000\000\000\000\000\002\181\002\181\n\138\n\146\002\181\000\000\000\000\000\000\000\000\002\181\000\000\n\154\002\181\000\000\000\000\000\000\000\000\002\181\002\181\000\238\000\000\000\000\000\000\000\000\000\000\000\000\002\181\002\181\n*\nj\n\162\n\170\n\186\002\181\002\181\000\000\000\000\002\181\000\000\002\181\n\194\000\000\000\000\000\000\000\000\000\000\000\000\002\181\002\181\n\202\000\000\002\181\002\181\002\181\002\181\000\000\000\000\000\000\002\181\000\000\002\181\002\181\000\000\n\234\002\181\n\242\n\178\002\181\002\181\000\000\000\000\002\181\n\210\002\181\000\000\000\000\000\000\000\000\002\181\002\181\n\218\n\226\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\n\"\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\nZ\nr\nz\nb\n\130\000\000\002\189\000\000\000\000\000\000\000\000\000\000\002\189\002\189\n\138\n\146\002\189\000\000\000\000\000\000\000\000\002\189\000\000\n\154\002\189\000\000\000\000\000\000\000\000\002\189\002\189\000\238\000\000\000\000\000\000\000\000\000\000\000\000\002\189\002\189\n*\nj\n\162\n\170\n\186\002\189\002\189\000\000\000\000\002\189\000\000\002\189\n\194\000\000\000\000\000\000\000\000\000\000\000\000\002\189\002\189\n\202\000\000\002\189\002\189\002\189\002\189\000\000\000\000\000\000\002\189\000\000\002\189\002\189\000\000\n\234\002\189\n\242\n\178\002\189\002\189\000\000\000\000\002\189\n\210\002\189\000\000\000\000\000\000\000\000\002\189\002\189\n\218\n\226\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\n\"\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\nZ\nr\nz\nb\n\130\000\000\002\185\000\000\000\000\000\000\000\000\000\000\002\185\002\185\n\138\n\146\002\185\000\000\000\000\000\000\000\000\002\185\000\000\n\154\002\185\000\000\000\000\000\000\000\000\002\185\002\185\000\238\000\000\000\000\000\000\000\000\000\000\000\000\002\185\002\185\n*\nj\n\162\n\170\n\186\002\185\002\185\000\000\000\000\002\185\000\000\002\185\n\194\000\000\000\000\000\000\000\000\000\000\000\000\002\185\002\185\n\202\000\000\002\185\002\185\002\185\002\185\000\000\000\000\000\000\002\185\000\000\002\185\002\185\000\000\n\234\002\185\n\242\n\178\002\185\002\185\000\000\000\000\002\185\n\210\002\185\000\000\000\000\000\000\000\000\002\185\002\185\n\218\n\226\002\197\002\197\000\000\000\000\000\000\002\197\000\000\000\000\002\197\000\000\000\000\002\197\000\000\002\197\000\000\000\000\n\"\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\nZ\nr\nz\nb\n\130\000\000\002\197\000\000\000\000\000\000\000\000\000\000\002\197\002\197\n\138\n\146\002\197\000\000\000\000\000\000\000\000\002\197\000\000\n\154\002\197\000\000\000\000\000\000\000\000\002\197\002\197\000\238\000\000\000\000\000\000\000\000\000\000\000\000\002\197\002\197\n*\nj\n\162\n\170\n\186\002\197\002\197\000\000\000\000\002\197\000\000\002\197\n\194\000\000\000\000\000\000\000\000\000\000\000\000\002\197\002\197\n\202\000\000\002\197\002\197\002\197\002\197\000\000\000\000\000\000\002\197\000\000\002\197\002\197\000\000\n\234\002\197\n\242\n\178\002\197\002\197\000\000\000\000\002\197\n\210\002\197\000\000\000\000\000\000\000\000\002\197\002\197\n\218\n\226\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\n\"\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\nZ\nr\nz\nb\n\130\000\000\002\213\000\000\000\000\000\000\000\000\000\000\002\213\002\213\n\138\n\146\002\213\000\000\000\000\000\000\000\000\002\213\000\000\n\154\002\213\000\000\000\000\000\000\000\000\002\213\002\213\000\238\000\000\000\000\000\000\000\000\000\000\000\000\002\213\002\213\n*\nj\n\162\n\170\n\186\002\213\002\213\000\000\000\000\002\213\000\000\002\213\n\194\000\000\000\000\000\000\000\000\000\000\000\000\002\213\002\213\n\202\000\000\002\213\002\213\002\213\002\213\000\000\000\000\000\000\002\213\000\000\002\213\002\213\000\000\n\234\002\213\n\242\n\178\002\213\002\213\000\000\000\000\002\213\n\210\002\213\000\000\000\000\000\000\000\000\002\213\002\213\n\218\n\226\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\n\"\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\nZ\nr\nz\nb\n\130\000\000\002\205\000\000\000\000\000\000\000\000\000\000\002\205\002\205\n\138\n\146\002\205\000\000\000\000\000\000\000\000\002\205\000\000\n\154\002\205\000\000\000\000\000\000\000\000\002\205\002\205\000\238\000\000\000\000\000\000\000\000\000\000\000\000\002\205\002\205\n*\nj\n\162\n\170\n\186\002\205\002\205\000\000\000\000\002\205\000\000\002\205\n\194\000\000\000\000\000\000\000\000\000\000\000\000\002\205\002\205\n\202\000\000\002\205\002\205\002\205\002\205\000\000\000\000\000\000\002\205\000\000\002\205\002\205\000\000\n\234\002\205\n\242\n\178\002\205\002\205\000\000\000\000\002\205\n\210\002\205\000\000\000\000\000\000\000\000\002\205\002\205\n\218\n\226\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\n\"\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\nZ\nr\nz\nb\n\130\000\000\002\177\000\000\000\000\000\000\000\000\000\000\002\177\002\177\n\138\n\146\002\177\000\000\000\000\000\000\000\000\002\177\000\000\n\154\002\177\000\000\000\000\000\000\000\000\002\177\002\177\000\238\000\000\000\000\000\000\000\000\000\000\000\000\002\177\002\177\n*\nj\n\162\n\170\n\186\002\177\002\177\000\000\000\000\002\177\000\000\002\177\n\194\000\000\000\000\000\000\000\000\000\000\000\000\002\177\002\177\n\202\000\000\002\177\002\177\002\177\002\177\000\000\000\000\000\000\002\177\000\000\002\177\002\177\000\000\n\234\002\177\n\242\n\178\002\177\002\177\000\000\000\000\002\177\n\210\002\177\000\000\000\000\000\000\000\000\002\177\002\177\n\218\n\226\002\001\002\001\000\000\000\000\000\000\002\001\000\000\000\000\002\001\000\000\000\000\002\001\000\000\002\001\000\000\000\000\002\001\000\000\002\001\002\001\002\001\000\000\002\001\002\001\002\001\000\000\000\000\000\000\000\000\000\000\002\001\002\001\002\001\002\001\002\001\000\000\002\001\000\000\000\000\000\000\000\000\000\000\002\001\002\001\002\001\002\001\002\001\000\000\000\000\000\000\000\000\002\001\000\000\002\001\002\001\000\000\000\000\000\000\000\000\002\001\002\001\002\001\000\000\000\000\000\000\000\000\000\000\000\000\002\001\002\001\002\001\002\001\002\001\002\001\002\001\002\001\002\001\000\000\000\000\002\001\000\000\002\001\002\001\000\000\000\000\000\000\000\000\000\000\000\000\002\001\002\001\002\001\000\000\002\001\002\001\002\001\002\001\000\000\000\000\000\000\002\001\000\000\002\001\002\001\000\000\002\001\002\001\002\001\002\001\002\001\002\001\000\000\000\000\002\001\002\001\014*\000\000\000\000\000\000\000\000\002\001\002\001\002\001\002\001\002\029\002\029\000\000\000\000\000\000\002\029\000\000\000\000\002\029\000\000\000\000\002\029\000\000\002\029\000\000\000\000\n\"\000\000\002\029\002\029\002\029\000\000\002\029\002\029\002\029\000\000\000\000\000\000\000\000\000\000\nZ\nr\nz\nb\n\130\000\000\002\029\000\000\000\000\000\000\000\000\000\000\002\029\002\029\n\138\n\146\002\029\000\000\000\000\000\000\000\000\002\029\000\000\n\154\002\029\000\000\000\000\000\000\000\000\002\029\002\029\000\238\000\000\000\000\000\000\000\000\000\000\000\000\002\029\002\029\n*\nj\n\162\n\170\n\186\002\029\002\029\000\000\000\000\002\029\000\000\002\029\n\194\000\000\000\000\000\000\000\000\000\000\000\000\002\029\002\029\n\202\000\000\002\029\002\029\014B\002\029\000\000\000\000\000\000\002\029\000\000\002\029\002\029\000\000\n\234\002\029\n\242\n\178\002\029\002\029\000\000\000\000\002\029\n\210\002\029\000\000\000\000\000\000\000\000\002\029\002\029\n\218\n\226\002\025\002\025\000\000\000\000\000\000\002\025\000\000\000\000\002\025\000\000\000\000\002\025\000\000\002\025\000\000\000\000\n\"\000\000\002\025\002\025\002\025\000\000\002\025\002\025\002\025\000\000\000\000\000\000\000\000\000\000\nZ\nr\nz\nb\n\130\000\000\002\025\000\000\000\000\000\000\000\000\000\000\002\025\002\025\n\138\n\146\002\025\000\000\000\000\000\000\000\000\002\025\000\000\n\154\002\025\000\000\000\000\000\000\000\000\002\025\002\025\000\238\000\000\000\000\000\000\000\000\000\000\000\000\002\025\002\025\n*\nj\n\162\n\170\n\186\002\025\002\025\000\000\000\000\002\025\000\000\002\025\n\194\000\000\000\000\000\000\000\000\000\000\000\000\002\025\002\025\n\202\000\000\002\025\002\025\002\025\002\025\000\000\000\000\000\000\002\025\000\000\002\025\002\025\000\000\n\234\002\025\n\242\n\178\002\025\002\025\000\000\000\000\002\025\n\210\002\025\000\000\000\000\000\000\000\000\002\025\002\025\n\218\n\226\002\173\002\173\000\000\000\000\000\000\002\173\000\000\000\000\002\173\000\000\000\000\002\173\000\000\002\173\000\000\000\000\n\"\000\000\002\173\002\173\002\173\000\000\002\173\002\173\002\173\000\000\000\000\000\000\000\000\000\000\nZ\nr\nz\nb\n\130\000\000\002\173\000\000\000\000\000\000\000\000\000\000\002\173\002\173\n\138\n\146\002\173\000\000\000\000\000\000\000\000\002\173\000\000\n\154\002\173\000\000\000\000\000\000\000\000\002\173\002\173\000\238\000\000\000\000\000\000\000\000\000\000\000\000\002\173\002\173\n*\nj\n\162\n\170\n\186\002\173\002\173\000\000\000\000\002\173\000\000\002\173\n\194\000\000\000\000\000\000\000\000\000\000\000\000\002\173\002\173\n\202\000\000\002\173\002\173\002\173\002\173\000\000\000\000\000\000\002\173\000\000\002\173\002\173\000\000\n\234\002\173\n\242\n\178\002\173\002\173\000\000\000\000\002\173\n\210\002\173\000\000\000\000\000\000\000\000\002\173\002\173\n\218\n\226\002\r\002\r\000\000\000\000\000\000\002\r\000\000\000\000\002\r\000\000\000\000\002\r\000\000\002\r\000\000\000\000\002\r\000\000\002\r\002\r\002\r\000\000\002\r\002\r\002\r\000\000\000\000\000\000\000\000\000\000\002\r\002\r\002\r\002\r\002\r\000\000\002\r\000\000\000\000\000\000\000\000\000\000\002\r\002\r\002\r\002\r\002\r\000\000\000\000\000\000\000\000\002\r\000\000\002\r\002\r\000\000\000\000\000\000\000\000\002\r\002\r\002\r\000\000\000\000\000\000\000\000\000\000\000\000\002\r\002\r\002\r\002\r\002\r\002\r\002\r\002\r\002\r\000\000\000\000\002\r\000\000\002\r\002\r\000\000\000\000\000\000\000\000\000\000\000\000\002\r\002\r\002\r\000\000\002\r\002\r\002\r\002\r\000\000\000\000\000\000\002\r\000\000\002\r\002\r\000\000\002\r\002\r\002\r\002\r\002\r\002\r\000\000\000\000\002\r\002\r\014*\000\000\000\000\000\000\000\000\002\r\002\r\002\r\002\r\002\017\002\017\000\000\000\000\000\000\002\017\000\000\000\000\002\017\000\000\000\000\002\017\000\000\002\017\000\000\000\000\002\017\000\000\002\017\002\017\002\017\000\000\002\017\002\017\002\017\000\000\000\000\006>\000\000\000\000\002\017\002\017\002\017\002\017\002\017\000\000\002\017\000\000\000\000\000\000\000\000\000\000\002\017\002\017\002\017\002\017\002\017\006B\000\000\000\000\000\000\002\017\000\000\002\017\002\017\000\000\000\000\000\000\000\000\002\017\002\017\002\017\000\000\000\000\000\000\000\000\000\000\000\000\002\017\002\017\002\017\002\017\002\017\002\017\002\017\002\017\002\017\000\000\000\000\002\017\000\000\002\017\002\017\000\000\000\000\000\000\000\000\000\000\000\238\002\017\002\017\002\017\000\000\002\017\002\017\002\017\002\017\000\000\000\000\000\000\002\017\000\000\002\017\002\017\000\000\002\017\002\017\002\017\002\017\002\017\002\017\000\000\000\000\002\017\002\017\014*\000\000\000\000\000\000\000\000\002\017\002\017\002\017\002\017\001\006\000\000\000\006\000\000\007\029\000\000\002\186\002\190\006F\002\234\002\130\005\234\006R\000\000\000\000\002\246\001\n\000\000\006f\000\000\002\142\000\000\006r\007\029\000\000\001\210\003\206\007\029\002\190\0036\001\018\b\206\b\210\001\030\001\"\003\170\000\000\000\000\003F\000\000\002\254\bB\025j\000\000\b\246\b\250\001\210\003\222\0032\003\234\b\254\007\030\000\000\001:\000\000\002\178\000\000\000\000\003:\000\000\000\000\000\000\bz\b~\b\138\b\158\000\000\005v\000\000\003\202\001>\001B\001F\001J\001N\000\000\002\178\t\018\001R\000\000\007\017\000\000\001V\000\000\t\030\t6\t\130\005\130\005\134\000\000\000\000\001Z\000\000\000\000\000\000\007\029\000\000\001^\002\225\007\017\000\000\000\000\018\202\007\017\0072\000\000\000\000\001\154\0062\000\000\011&\005\138\b\146\0112\001\158\000\000\014r\004r\t\150\001\006\001\166\000\006\001\170\001\174\0256\002\186\002\190\000\n\002\234\002\130\000\000\000\000\000\000\000\000\002\246\001\n\000\000\000\000\000\000\b\202\000\000\000\238\000\000\002\225\001\210\000\000\000\000\000\000\0036\001\018\b\206\b\210\001\030\001\"\000\000\002\225\002\225\003F\000\000\002\254\000\000\b\214\000\000\b\246\b\250\000\238\003\222\0032\003\234\b\254\007\030\000\000\001:\000\000\002\178\006\245\000\000\003:\000\000\000\000\000\000\bz\b~\b\138\b\158\006F\005v\000\000\005\234\001>\001B\001F\001J\001N\006\245\006f\t\018\001R\006\245\006r\000\000\001V\000\000\t\030\t6\t\130\005\130\005\134\000\000\006F\001Z\000\000\005\234\025:\000\000\000\000\001^\000\000\000\000\006f\000\000\000\000\000\000\006r\000\000\000\000\001\154\006\134\000\000\000\000\005\138\b\146\012\205\001\158\000\000\014r\004r\t\150\004y\001\166\000\006\001\170\001\174\000\246\002\186\002\190\002\194\002\234\002\130\000\000\000\000\000\000\012\205\002\246\000\000\002\030\003\178\000\000\002\"\000\000\004y\000\000\003\182\001\210\000\000\017F\006\245\002\250\000\000\003>\003B\002.\000\000\000\000\003\186\000\000\003F\000\000\002\254\000\000\016\218\000\000\003\214\003\218\004\026\003\222\0032\003\234\003\242\007\030\000\000\000\000\017>\002\178\000\000\000\000\003:\017V\002:\000\000\bz\b~\b\138\b\158\000\000\005v\000\000\000\000\000\000\000\000\000\000\000\000\000\000\017^\000\000\t\018\000\000\t!\000\000\000\000\000\000\000\000\t\030\t6\t\130\005\130\005\134\017r\017\158\000\000\000\000\004y\004y\000\000\000\000\000\000\006\178\004\005\000\000\t!\000\000\000\000\002>\012\205\012\185\000\000\000\000\017\218\021\230\005\138\b\146\025V\000\173\000\000\b\170\004r\t\150\000\173\000\000\002\190\000\173\000\000\002\130\012\205\t\190\000\000\002\030\002\246\000\000\002\"\000\173\000\000\000\173\000\000\000\173\000\000\000\173\001\210\000\238\t\198\000\000\002\250\002.\000\000\000\000\0026\012\185\t\206\000\173\000\000\000\000\000\000\002\254\000\000\000\173\000\000\000\000\000\000\000\173\000\000\0032\001\190\015\174\000\173\000\000\002\130\000\173\002\178\004\005\002:\003:\000\173\000\173\000\173\bz\b~\b\138\000\000\012\150\005v\000\173\000\173\006F\021\142\000\000\005\234\tR\000\173\000\000\000\000\t!\000\173\006f\000\000\000\000\000\000\006r\000\000\000\000\005\130\005\134\000\173\000\173\015\178\000\000\000\173\000\173\000\000\000\000\000\000\000\000\000\000\000\000\002>\000\000\000\173\000\000\015\190\000\000\021\178\000\000\000\173\000\173\005\138\b\146\000\000\000\000\000\197\b\170\004r\000\000\000\173\000\197\000\173\002\190\000\197\000\000\002\130\000\000\t\190\000\000\000\000\002\246\005\134\000\000\000\197\000\000\000\197\000\000\000\197\000\000\000\197\001\210\021\190\t\198\000\000\002\250\000\000\000\000\000\000\000\000\000\000\t\206\000\197\000\000\t2\000\000\002\254\000\000\000\197\021R\000\000\000\000\000\197\000\000\0032\001\190\000\000\000\197\000\000\000\000\000\197\002\178\000\000\000\000\003:\000\197\000\197\000\197\bz\b~\b\138\000\000\012\150\005v\000\197\000\197\000\000\000\000\000\000\000\000\000\000\000\197\000\000\000\000\014\022\000\197\000\000\000\000\000\000\000\000\000\000\000\000\000\000\005\130\005\134\000\197\000\197\000\000\000\000\000\197\000\197\000\000\000\238\000\000\000\000\000\000\000\000\000\000\000\000\000\197\000\000\000\000\000\000\000\000\000\000\000\197\000\197\005\138\b\146\000\000\000\000\000\000\b\170\004r\000\000\000\197\000\000\000\197\000\014\000\018\000\022\000\026\000\030\000\000\000\"\000&\000*\000.\0002\000\000\0006\000:\000\000\000\000\000>\016\154\006F\000\000\000B\005\234\015\174\000\000\002\006\002\130\000\000\000F\006f\000\000\000\000\000\000\006r\000J\002\n\000N\000R\000V\000Z\000^\000b\000f\001\210\000\000\000\000\000j\000n\000\000\000r\000\000\000v\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\154\000\000\000\000\000\000\015\178\000z\007J\001\222\000~\000\130\000\000\000\000\000\000\002\178\000\000\000\134\000\138\000\142\015\190\000\000\021\146\000\000\000\000\000\146\000\150\000\154\000\158\000\000\000\162\000\166\000\170\000\000\001\r\000\000\000\174\000\178\000\182\001\r\000\000\000\000\000\186\007N\000\190\000\194\005\134\000\000\000\000\000\000\000\000\000\000\000\198\000\000\000\202\000\000\021\158\000\000\001\r\003\213\000\206\000\210\000\000\000\214\003\213\003V\002\190\003\213\000\000\002\130\000\000\006\238\000\000\021R\002\246\000\000\000\000\003\213\000\000\000\000\001\r\003\213\003R\003\213\001\210\007\189\007\014\000\000\001\r\000\000\000\000\003Z\000\000\001\r\tB\003\213\000\000\n\205\000\000\000\000\000\000\003\213\001\r\001\r\003f\000\000\000\000\011\006\001\190\000\000\003\213\000\000\000\000\003\213\002\178\007\189\000\000\003\246\003\213\003\213\n\201\003\250\000\000\004\002\000\000\011\022\005v\n\205\001\r\007\189\000\000\000\000\007\189\t\006\003\213\003\213\000\000\001\r\005z\007\189\000\000\n\205\000\000\007\189\n\205\011\178\005\130\005\134\003\213\003\213\011\030\n\205\003\213\003\213\000\000\n\205\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\n\201\011&\000\000\n\201\011f\003\213\005\138\000\000\000\000\000\000\n\201\000\000\004r\t\r\n\201\000\006\003\213\000\000\000\246\002\186\002\190\002\194\002\234\002\130\000\000\000\000\000\000\000\000\002\246\000\000\000\000\004\153\000\000\t\r\000\000\t\r\t\r\003\182\001\210\000\000\000\000\000\000\002\250\000\000\003>\003B\000\000\000\000\000\000\003\186\000\000\003F\000\000\002\254\000\000\016\218\000\000\003\214\003\218\000\000\003\222\0032\003\234\003\242\007\030\000\000\000\000\017>\002\178\000\000\000\000\003:\017V\000\000\000\000\bz\b~\b\138\b\158\000\000\005v\000\000\000\000\000\000\000\000\000\000\000\000\000\000\017^\000\000\t\018\000\000\028F\000\000\000\000\000\000\000\000\t\030\t6\t\130\005\130\005\134\017r\017\158\000\000\000\006\028g\015\006\000\246\002\186\002\190\002\194\002\234\002\130\000\000\000\000\000\000\000\000\002\246\000\000\000\000\028\150\000\000\021\230\005\138\b\146\t\r\003\182\001\210\b\170\004r\t\150\002\250\000\000\003>\003B\000\000\000\000\000\000\003\186\000\000\003F\000\000\002\254\000\000\016\218\000\000\003\214\003\218\000\000\003\222\0032\003\234\003\242\007\030\000\000\016\170\017>\002\178\000\000\000\000\003:\017V\002\006\000\000\bz\b~\b\138\b\158\000\000\005v\000\000\000\000\002\n\000\000\000\000\000\000\000\000\017^\000\000\t\018\001\210\028F\000\000\000\000\000\000\000\000\t\030\t6\t\130\005\130\005\134\017r\017\158\000\000\000\000\004\161\000\000\003\154\000\000\000\000\000\000\001\006\000\000\007J\001\222\000\000\000\000\003V\002\190\006\014\002\178\002\130\021\230\005\138\b\146\014\134\002\246\001\n\b\170\004r\t\150\002\142\000\000\000\000\000\000\000\000\001\210\000\000\000\000\000\000\001\014\001\018\001\022\003v\001\030\001\"\000\000\000\000\007N\000\000\000\000\002\225\000\000\003z\002\225\001.\006.\000\000\000\000\003r\001\190\0016\002\225\000\000\001:\000\000\002\178\000\000\000\000\003\246\000\000\000\000\002\225\003\250\000\000\004\002\005j\000\n\005v\000\000\002\225\001>\001B\001F\001J\001N\000\000\000\000\000\n\001R\005z\000\000\002\225\001V\000\000\000\000\000\000\002\225\005\130\005\134\000\000\005\202\001Z\002\225\002\225\002\225\002\225\000\000\001^\000\000\002\225\000\000\000\000\000\000\000\000\000\000\002\225\000\000\001\154\0062\000\000\000\000\005\138\000\000\000\000\001\158\000\000\001\162\004r\001\006\000\000\001\166\002\225\001\170\001\174\003V\002\190\tr\002\225\002\130\000\000\000\000\000\000\000\000\002\246\001\n\000\000\000\000\000\000\002\142\000\000\000\000\000\000\000\000\001\210\000\000\000\000\000\000\001\014\001\018\001\022\003v\001\030\001\"\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003z\000\000\001.\006.\000\000\000\000\003r\001\190\0016\000\000\000\000\001:\000\000\002\178\000\000\000\000\003\246\000\000\000\000\000\000\003\250\000\000\004\002\005j\000\000\005v\000\000\000\000\001>\001B\001F\001J\001N\000\000\000\000\000\000\001R\005z\000\000\000\000\001V\000\000\000\000\000\000\000\000\005\130\005\134\000\000\005\202\001Z\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\001\154\0062\000\000\000\000\005\138\000\000\000\000\001\158\000\000\001\162\004r\001\006\000\000\001\166\000\000\001\170\001\174\003V\002\190\011\n\000\000\002\130\000\000\000\000\000\000\000\000\002\246\001\n\000\000\000\000\000\000\002\142\000\000\000\000\000\000\000\000\001\210\000\000\000\000\000\000\001\014\001\018\001\022\003v\001\030\001\"\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003z\000\000\001.\006.\000\000\000\000\003r\001\190\0016\000\000\000\000\001:\000\000\002\178\000\000\000\000\003\246\000\000\000\000\000\000\003\250\000\000\004\002\005j\000\000\005v\000\000\000\000\001>\001B\001F\001J\001N\000\000\000\000\000\000\001R\005z\000\000\000\000\001V\000\000\000\000\000\000\000\000\005\130\005\134\000\000\005\202\001Z\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\001\154\0062\000\000\000\000\005\138\000\000\000\000\001\158\000\000\001\162\004r\001\006\000\000\001\166\000\000\001\170\001\174\003V\002\190\r\214\000\000\002\130\000\000\000\000\000\000\000\000\002\246\001\n\000\000\000\000\000\000\002\142\000\000\000\000\000\000\000\000\001\210\000\000\000\000\000\000\001\014\001\018\001\022\003v\001\030\001\"\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003z\000\000\001.\006.\000\000\000\000\003r\001\190\0016\000\000\000\000\001:\000\000\002\178\000\000\000\000\003\246\000\000\000\000\000\000\003\250\000\000\004\002\005j\000\000\005v\000\000\000\000\001>\001B\001F\001J\001N\000\000\000\000\000\000\001R\005z\000\000\000\000\001V\000\000\000\000\000\000\000\000\005\130\005\134\000\000\005\202\001Z\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\001\154\0062\000\000\000\000\005\138\000\000\000\000\001\158\000\000\001\162\004r\000\000\005\t\001\166\000\000\001\170\001\174\005\t\005\t\005\t\005\t\b\021\005\t\000\000\005\t\005\t\b\021\000\000\005\t\000\000\005\t\000\000\005\t\005\t\005\t\005\t\005\t\005\t\000\000\005\t\005\t\005\t\000\000\000\000\000\000\b\021\000\000\000\000\005\t\000\000\000\000\000\000\000\000\005\t\005\t\005\t\000\000\000\000\000\000\005\t\005\t\005\t\000\000\005\t\000\000\000\000\005\t\b\021\005\t\000\000\000\000\005\t\005\t\005\t\000\000\b\021\005\t\005\t\005\t\000\000\b\021\b\021\000\238\000\000\000\000\005\t\005\t\005\t\000\000\b\021\b\021\005\t\005\t\000\000\000\000\000\000\005\t\000\000\000\000\005\t\000\000\005\t\005\t\005\t\000\000\005\t\005\t\005\t\005\t\000\000\005\t\005\t\b\021\000\000\000\000\b\021\000\000\000\000\000\000\000\000\005\t\020b\005\t\005\t\b\021\000\000\002\150\005\t\000\000\000\000\000\000\000\000\005\t\005\t\n\229\000\000\005\t\n\229\005\t\005\t\n\229\n\229\012\205\012\185\n\229\000\000\n\229\000\000\000\000\n\229\000\000\000\000\000\000\n\229\n\229\000\000\n\229\n\229\000\000\n\229\000\000\n\229\012\205\025\130\000\000\002\030\n\229\000\000\002\"\n\229\002\006\000\000\000\000\000\000\000\000\002*\000\000\n\229\000\000\n\229\002\n\002.\n\229\n\229\0026\012\185\000\000\000\000\001\210\n\229\000\000\000\000\n\229\000\000\000\000\n\229\n\229\000\000\n\229\000\000\n\229\n\229\000\000\000\000\000\000\003\154\000\000\000\000\002:\000\000\000\000\007J\001\222\n\229\000\000\000\000\000\000\000\000\002\178\000\000\000\000\n\229\n\229\000\000\000\000\n\229\000\000\n\229\000\000\000\000\000\000\000\000\005\166\000\000\000\000\000\000\000\000\001\202\001\206\n\229\n\229\000\000\n\229\n\229\000\000\n\229\007N\n\229\000\000\n\229\000\000\n\229\002>\n\229\b\249\b\249\001\210\001\214\001\230\b\249\000\000\001\206\b\249\000\000\000\000\000\000\001\242\000\000\000\000\018\246\b\249\000\000\b\249\b\249\b\249\000\000\b\249\b\249\b\249\001\246\020^\000\000\019~\000\000\002\158\000\000\002\178\004\030\004*\000\000\b\249\000\000\000\000\020n\000\000\000\000\b\249\b\249\000\000\000\000\b\249\000\000\000\000\002\154\000\000\b\249\000\000\000\000\b\249\000\000\004:\000\000\000\000\b\249\b\249\b\249\000\000\000\000\000\000\000\000\000\000\000\000\b\249\b\249\000\000\000\000\000\000\000\000\000\000\b\249\000\000\000\000\000\000\004\154\000\000\000\000\b\249\000\000\000\000\000\000\000\000\000\000\000\000\b\249\b\249\b\249\000\000\b\249\b\249\000\000\004e\000\000\000\000\000\000\000\000\004e\000\000\b\249\004e\b\249\b\249\000\000\000\000\000\000\b\249\000\000\000\000\000\000\004e\b\249\000\000\000\000\004e\b\249\004e\b\249\b\249\012\141\012\141\000\000\000\000\004e\012\141\000\000\001\206\012\141\004e\000\000\000\000\000\000\000\000\000\000\004e\004\186\000\000\012\141\012\141\012\141\004B\012\141\012\141\012\141\000\000\000\000\004e\004e\000\000\000\000\000\000\004e\002\226\000\000\000\000\012\141\000\000\000\000\000\000\000\000\000\000\012\141\012\141\000\000\000\000\012\141\000\000\004e\002\154\004e\012\141\000\000\000\000\012\141\000\000\000\000\000\000\004e\012\141\012\141\012\141\004e\004e\002\226\000\238\004e\004e\012\141\012\141\000\000\000\000\004R\004e\000\000\012\141\000\000\000\000\000\000\004\154\000\000\000\000\012\141\004e\000\000\000\000\000\000\000\000\021f\012\141\012\141\012\141\000\000\012\141\012\141\000\000\007\005\000\000\004e\000\000\000\000\007\005\000\000\012\141\007\005\012\141\012\141\004e\000\000\000\000\012\141\000\000\000\000\000\000\007\005\012\141\000\000\000\000\007\005\012\141\007\005\012\141\012\141\b\253\b\253\000\000\000\000\000\000\b\253\000\000\001\206\b\253\007\005\000\000\000\000\000\000\000\000\000\000\007\005\b\253\000\000\b\253\b\253\b\253\000\000\b\253\b\253\b\253\000\000\000\000\007\005\000\000\000\000\000\000\000\000\007\005\007\005\000\000\000\000\b\253\000\000\000\000\000\000\000\000\000\000\b\253\b\253\000\000\000\000\b\253\000\000\007\005\002\154\000\000\b\253\000\000\000\000\b\253\000\000\000\000\000\000\000\000\b\253\b\253\b\253\007\005\007\005\016\238\000\000\007\005\007\005\b\253\b\253\002\225\000\000\000\000\000\000\000\000\b\253\000\000\002\225\000\000\004\154\018\030\000\000\b\253\007\005\000\000\000\000\000\000\000\000\002\225\b\253\b\253\b\253\002\225\b\253\b\253\000\000\000\n\002\225\002\225\002\225\000\000\000\000\002\225\b\253\002\225\b\253\b\253\002\225\002\225\002\225\b\253\002\225\002\225\002\225\002\225\b\253\002\225\002\225\002\225\b\253\002\225\b\253\b\253\000\000\002\225\000\n\000\000\002\225\002\225\002\225\000\000\002\225\000\000\002\225\002\225\000\n\002\225\002\225\002\225\000\n\002\225\002\225\002\225\000\000\000\000\001*\002\225\002\225\000\000\002\225\002\225\002\225\002\225\002\225\002\225\000\n\002\225\002\225\000\000\002\225\002\225\002\225\000\000\002\225\002\225\002\225\002\225\002\225\002\225\002\225\002\225\002\225\000\000\000\000\002\225\000\000\000\000\002\225\000\n\002\225\002\225\002\225\002\225\002\225\000\000\000\000\002\225\002\225\002\225\002\225\002\225\000\000\006\157\002\225\0009\002\225\002\225\000\000\0009\0009\002\225\0009\0009\002\225\000\000\002\225\002\225\0009\000\000\002\225\000\000\000\000\006\157\002\225\002\225\000\000\000\000\0009\002\225\002\225\002\225\0009\003\190\0009\0009\000\000\000\000\000\000\002\225\000\000\0009\000\000\0009\000\000\000\000\000\000\0009\0009\007&\0009\0009\0009\0009\0009\000\000\000\000\000\000\0009\000\000\000\000\0009\000\000\000\000\000\000\0009\0009\0009\0009\000\000\0009\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0009\000\000\000\000\000\000\012\205\012\185\000\000\0009\0009\0009\0009\0009\000\000\006\153\000\000\0005\000\000\000\000\000\000\0005\0005\000\000\0005\0005\012\205\000\000\000\000\002\030\0005\000\000\002\"\000\000\000\000\006\153\0009\0009\000\000\002\206\0005\0009\0009\0009\0005\002.\0005\0005\0026\012\185\000\000\000\000\000\000\0005\000\000\0005\000\000\000\000\000\000\0005\0005\000\000\0005\0005\0005\0005\0005\000\000\000\000\000\000\0005\000\000\002:\0005\000\000\000\000\000\000\0005\0005\0005\0005\000\000\0005\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0005\000\000\000\000\000\000\000\000\000\000\000\000\0005\0005\0005\0005\0005\000\000\006\169\000\000\012U\000\000\000\000\000\000\012U\012U\000\000\012U\012U\002>\000\000\000\000\000\000\012U\000\000\000\000\000\000\000\000\006\169\0005\0005\000\000\000\000\012U\0005\0005\0005\012U\000\000\012U\012U\000\000\000\000\000\000\000\000\000\000\012U\000\000\012U\000\000\000\000\000\000\012U\012U\000\000\012U\012U\012U\012U\012U\000\000\000\000\000\000\012U\000\000\000\000\012U\000\000\000\000\000\000\012U\012U\012U\012U\000\000\012U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012U\000\000\000\000\000\000\000\000\000\000\000\000\012U\012U\012U\012U\012U\000\000\006\165\000\000\012Q\000\000\000\000\000\000\012Q\012Q\000\000\012Q\012Q\000\000\000\000\000\000\000\000\012Q\000\000\000\000\000\000\000\000\006\165\012U\012U\000\000\000\000\012Q\012U\012U\012U\012Q\000\000\012Q\012Q\000\000\000\000\000\000\000\000\000\000\012Q\000\000\012Q\000\000\000\000\000\000\012Q\012Q\000\000\012Q\012Q\012Q\012Q\012Q\000\000\001\202\001\206\012Q\000\000\000\000\012Q\000\000\000\000\000\000\012Q\012Q\012Q\012Q\000\000\012Q\000\000\000\000\000\000\000\000\001\210\001\214\001\230\000\000\000\000\012Q\000\000\000\000\000\000\000\000\001\242\000\000\012Q\012Q\012Q\012Q\012Q\001\250\000\000\000\000\000\000\000\000\000\000\001\246\002\146\000\000\000\000\000\000\002\158\000\000\002\178\004\030\004*\012\145\012\145\000\000\000\000\0046\012\145\012Q\012Q\012\145\000\000\000\000\012Q\012Q\012Q\000\000\000\000\004\138\000\000\012\145\012\145\012\145\004:\012\145\012\145\012\145\000\000\001\021\000\000\000\000\000\000\000\000\001\021\000\000\000\000\000\000\000\000\012\145\000\000\000\000\000\000\000\000\000\000\012\145\012\145\000\000\000\000\012\145\000\000\000\000\000\000\001\021\012\145\000\000\000\000\012\145\000\000\000\000\000\000\000\000\012\145\012\145\012\145\000\000\000\000\000\000\000\000\000\000\000\000\012\145\012\145\000\000\000\000\001\021\000\000\018\254\012\145\000\000\000\000\000\000\012\145\001\021\000\000\012\145\000\000\000\000\001\021\000\000\000\000\000\000\012\145\012\145\012\145\000\000\012\145\012\145\001\021\000\000\000\000\000\000\000\000\000\000\000\000\b\017\012\145\000\006\012\145\012\145\b\017\002\186\002\190\012\145\002\234\002\130\000\000\000\000\012\145\000\000\002\246\000\000\012\145\001\021\012\145\012\145\000\000\003\254\000\000\b\017\001\210\000\000\001\021\000\000\002\250\000\000\003>\003B\000\000\000\000\000\000\000\000\000\000\003F\000\000\002\254\000\000\000\000\000\000\003\214\003\218\b\017\003\222\0032\003\234\003\242\007\030\000\000\000\000\b\017\002\178\000\000\000\000\003:\b\017\b\017\000\238\bz\b~\b\138\b\158\000\000\005v\b\017\b\017\000\000\000\000\000\000\000\000\000\000\000\000\000\000\t\018\000\000\000\000\000\000\000\000\000\000\000\000\t\030\t6\t\130\005\130\005\134\000\000\000\000\b\017\000\000\000\000\b\017\000\000\000\000\000\000\000\000\000\000\000\006\000\000\000\000\b\017\002\186\002\190\000\000\002\234\002\130\000\000\000\000\005\138\b\146\002\246\000\000\000\000\b\170\004r\t\150\000\000\014\154\000\000\000\000\001\210\000\000\000\000\000\000\002\250\000\000\003>\003B\000\000\000\000\000\000\001\197\000\000\003F\000\000\002\254\001\197\000\000\000\000\003\214\003\218\000\000\003\222\0032\003\234\003\242\007\030\000\000\000\000\000\000\002\178\000\000\000\000\003:\000\000\001\197\000\000\bz\b~\b\138\b\158\000\000\005v\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0059\r\r\t\018\000\000\000\000\005=\r\r\001\197\000\000\t\030\t6\t\130\005\130\005\134\000\000\001\197\000\000\000\000\000\000\0059\001\197\001\197\000\238\0059\005=\000\000\003\029\003\029\005=\001\197\001\197\003\029\000\000\000\000\003\029\000\000\005\138\b\146\000\000\000\000\000\000\b\170\004r\t\150\003\029\003\029\003\029\000\000\003\029\003\029\003\029\000\000\000\000\000\000\000\000\001\197\000\000\000\000\000\000\000\000\000\000\000\000\003\029\000\000\001\197\000\000\000\000\000\000\003\029\004\130\000\000\000\000\003\029\000\000\000\000\000\000\000\000\003\029\r\r\r\r\003\029\000\000\000\000\r\r\r\r\003\029\003\029\003\029\000\000\000\000\000\000\0059\000\000\000\000\003\029\003\029\005=\r\r\000\000\r\r\000\000\003\029\r\r\000\000\r\r\003\029\0059\000\000\003\029\0059\000\000\005=\000\000\000\000\005=\003\029\003\029\003\029\004\137\003\029\003\029\000\000\000\000\019\014\000\000\000\000\000\000\000\000\000\000\003\029\000\000\003\029\003\029\000\000\000\000\000\000\003\029\000\000\000\000\000\000\000\000\003\029\003\182\n\241\000\000\003\029\n\241\003\029\003\029\003V\002\190\000\000\000\000\002\130\000\000\006\238\000\000\000\000\002\246\000\000\000\000\000\000\n\241\n\241\019:\n\241\n\241\000\000\001\210\000\000\007\014\000\000\017>\000\000\000\000\003Z\000\000\017V\tB\000\000\000\000\000\000\000\000\000\000\000\000\000\000\n\241\019v\003f\000\000\000\000\003r\001\190\000\000\000\000\000\000\000\000\000\000\002\178\000\000\000\000\003\246\000\000\000\000\n\241\003\250\000\000\004\002\005j\011\022\005v\000\000\004\137\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\019\218\005z\001\202\001\206\000\000\000\000\000\000\000\000\000\000\005\130\005\134\000\000\005\202\n\241\000\000\n\241\000\000\000\000\000\000\000\000\000\000\001\210\001\214\000\000\000\000\000\000\000\000\n\241\000\000\000\000\n\241\n\241\000\000\005\138\000\000\n\241\000\000\n\241\000\000\004r\n\237\n\241\000\000\n\237\001\246\002\162\003V\002\190\000\000\002\158\002\130\002\178\004\030\004*\000\000\002\246\000\000\000\000\0046\n\237\n\237\000\000\n\237\n\237\000\000\001\210\000\000\000\000\000\000\000\000\000\000\000\000\003Z\000\000\000\000\004:\000\000\000\000\026b\000\000\000\000\000\000\000\000\n\237\000\000\003f\000\000\000\000\006\n\001\190\000\000\000\000\000\000\000\000\026N\002\178\000\000\000\000\003\246\000\000\000\000\n\237\003\250\000\000\004\002\005j\000\000\005v\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\005z\000\000\012q\000\000\000\000\012q\000\000\000\000\005\130\005\134\000\000\005\202\n\237\000\000\n\237\012q\000\000\000\000\000\000\000\000\000\000\012q\000\000\001\221\001\221\000\000\n\237\000\000\001\221\n\237\n\237\001\221\005\138\012q\n\237\000\000\n\237\000\000\004r\012q\n\237\001\221\001\221\001\221\000\000\001\221\001\221\001\221\012q\000\000\000\000\012q\000\000\000\000\000\000\000\000\012q\000\000\000\000\001\221\000\000\000\000\000\000\000\000\000\000\001\221\001\221\000\000\000\000\001\221\000\000\000\000\012q\000\000\001\221\000\000\012q\001\221\000\000\000\000\000\000\000\000\001\221\001\221\001\221\000\000\012q\012q\000\000\000\000\012q\001\221\001\221\000\000\000\000\000\000\028>\000\000\001\221\004\145\000\000\000\000\001\221\000\000\022\014\001\221\000\000\012q\000\000\000\000\000\000\000\000\001\221\001\221\001\221\000\000\001\221\001\221\000\000\000\000\000\000\000\000\000\000\003\182\000\000\000\000\001\221\000\000\001\221\001\221\003V\002\190\000\000\001\221\002\130\000\000\006\238\000\000\001\221\002\246\000\000\000\000\004\254\000\000\001\221\022~\000\000\000\000\000\000\001\210\000\000\007\014\000\000\017>\000\000\000\000\003Z\000\000\017V\tB\000\000\000\000\000\000\000\000\000\000\000\000\000\000\023\"\0232\003f\000\000\000\000\011\006\001\190\000\000\000\000\000\000\000\000\000\000\002\178\000\000\000\000\003\246\000\000\000\000\n\201\003\250\000\000\004\002\000\000\011\022\005v\000\000\004\145\000\000\000\000\000\000\000\000\000\000\000\000\004\017\000\000\024&\005z\000\000\000\000\000\000\000\000\000\000\000\000\000\000\005\130\005\134\000\000\000\000\011\030\005\137\005\137\000\000\000\000\000\000\005\137\000\000\000\000\005\137\000\000\000\000\000\000\000\000\n\201\000\000\000\000\n\201\n\201\005\137\005\138\005\137\000\000\005\137\n\201\005\137\004r\000\000\n\201\004\017\000\000\000\000\000\000\000\000\000\000\000\246\000\000\005\137\002\194\000\000\000\000\000\000\000\000\005\137\005\137\000\000\000\000\000\000\028\150\005\137\000\000\000\000\005\137\000\000\003\182\005\137\000\000\000\000\000\000\000\000\005\137\005\137\005\137\000\000\000\000\000\000\003\186\000\000\000\000\000\000\000\000\000\000\016\218\000\000\000\000\000\000\005\137\005\137\000\000\000\000\005\137\024\166\000\000\001\006\017>\000\000\000\000\000\000\000\000\017V\005\137\005\137\005\137\000\000\005\137\005\137\000\000\000\000\000\000\001\n\007\246\000\000\000\000\002\142\000\000\017^\000\000\005\137\000\000\028F\005\137\005\137\001\014\001\018\001\022\001\026\001\030\001\"\000\000\017r\017\158\000\000\005\137\004\161\000\000\001&\000\000\001.\0012\000\000\000\000\000\000\000\000\0016\000\000\000\000\001:\000\000\000\000\000\000\021\230\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>\001B\001F\001J\001N\000\000\003]\003]\001R\000\000\000\000\003]\001V\000\000\003]\000\000\000\000\000\000\000\000\000\000\000\000\001Z\000\000\003]\003]\000\000\003]\001^\003]\000\000\003]\003]\000\000\000\000\000\000\000\000\000\000\001\154\027z\000\000\000\000\003]\003]\003]\001\158\003]\001\162\003]\003]\003]\001\166\000\000\001\170\001\174\005\017\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\005\021\000\000\000\000\003]\000\000\000\000\003]\000\000\000\000\000\000\003]\003]\003]\003]\003]\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003]\003]\003]\003]\003]\003]\000\000\003]\000\000\000\000\005\017\000\000\000\000\000\000\000\000\000\000\000\000\003]\003]\003]\000\000\003]\003]\005}\005}\000\000\000\000\005\021\005}\000\000\000\000\005}\003]\000\000\003]\003]\000\000\000\000\003]\000\000\000\000\005}\000\000\005}\000\000\005}\000\000\005}\000\000\003]\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\000\005}\005}\000\000\000\000\000\000\000\000\b>\000\000\000\000\005}\000\000\000\000\005}\000\000\000\000\000\000\000\000\005}\005}\000\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\005}\005}\000\000\000\000\005}\000\000\t\t\000\000\000\000\000\000\000\000\000\000\000\000\000\000\005}\005}\005}\000\000\005}\005}\000\000\000\000\n\"\000\000\000\000\012j\t\t\000\000\t\t\t\t\000\000\005}\000\000\000\000\005}\005}\nZ\nr\nz\nb\n\130\000\000\000\000\001\202\002~\000\000\005}\002\130\000\000\000\000\n\138\n\146\000\000\000\000\000\000\000\000\000\000\000\000\000\000\n\154\000\000\000\000\001\210\001\214\001\230\002\134\000\000\000\238\000\000\000\000\000\000\000\000\001\242\001\006\000\000\000\000\n*\nj\n\162\n\170\n\186\000\000\000\000\000\000\000\000\002\138\002\146\000\000\n\194\001\n\002\158\000\000\002\178\004\030\004*\000\000\000\000\n\202\000\000\021>\000\000\021B\001\014\001\018\001\022\001\026\001\030\001\"\000\000\000\000\000\000\n\234\000\000\n\242\n\178\001&\004:\001.\0012\t\t\n\210\000\000\000\000\0016\000\000\005\134\001:\000\000\n\218\n\226\000\000\000\000\000\000\000\000\000\000\021N\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001>\001B\001F\001J\001N\000\000\b\133\b\133\001R\021R\000\000\b\133\001V\000\000\b\133\000\000\000\000\000\000\000\000\000\000\000\000\001Z\000\000\000\000\b\133\000\000\b\133\001^\b\133\000\000\b\133\000\000\000\000\000\000\000\000\000\000\000\000\001\154\027\150\000\000\000\000\000\000\b\133\000\000\001\158\000\000\001\162\000\000\b\133\b\133\001\166\000\000\001\170\001\174\000\000\000\000\000\000\b\133\000\000\000\000\b\133\000\000\000\000\000\000\000\000\b\133\b\133\b\133\000\000\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\133\000\000\000\000\000\000\b\133\rY\rY\000\000\000\000\000\000\rY\000\000\000\000\rY\b\133\b\133\b\133\000\000\b\133\b\133\000\000\000\000\000\000\rY\000\000\rY\000\000\rY\b\133\rY\000\000\b\133\001\202\001\206\000\000\b\133\000\000\000\000\000\000\000\000\000\000\rY\000\000\000\000\004\254\000\000\b\133\rY\rY\r]\r]\001\210\001\214\004B\r]\000\000\rY\r]\000\000\rY\000\000\000\000\000\000\000\000\rY\rY\rY\r]\000\000\r]\000\000\r]\000\000\r]\001\246\002\154\000\000\000\000\000\000\002\158\rY\002\178\004\030\004*\rY\r]\000\000\000\000\0046\000\000\015\202\r]\r]\000\000\rY\rY\rY\004B\rY\rY\r]\000\000\000\000\r]\004R\004:\000\000\000\000\r]\r]\r]\rY\000\000\000\000\000\000\rY\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\r]\000\000\rY\000\000\r]\001\205\000\000\000\000\000\000\000\000\001\205\000\000\001\206\001\205\r]\r]\r]\000\000\r]\r]\000\000\b\229\000\000\001\205\004R\000\000\000\000\001\205\006\237\001\205\000\000\r]\000\000\006\237\000\000\r]\000\000\000\000\000\000\000\000\000\000\001\205\000\000\000\000\000\000\000\000\r]\001\205\001\205\000\000\000\000\000\000\006\237\000\000\002\154\000\000\001\205\000\000\000\000\001\205\000\000\000\000\000\000\000\000\001\205\001\205\001\205\000\000\000\000\000\000\000\000\000\000\000\000\000\000\006\237\000\000\000\000\000\000\000\000\000\000\001\205\001\205\006\237\000\000\004\154\003A\000\000\006\237\006\237\000\238\003A\000\000\001\206\003A\001\205\001\205\006\237\006\237\001\205\001\205\000\000\b\225\000\000\003A\000\000\000\000\000\000\003A\001\205\003A\000\000\000\000\000\000\000\000\000\000\001\205\000\000\000\000\000\000\000\000\001\205\003A\006\237\000\000\000\000\000\000\001\205\003A\001\201\000\000\000\181\006\237\000\000\000\000\002\154\000\181\003A\000\000\000\181\003A\000\000\000\000\000\000\000\000\003A\003A\003A\024\006\000\181\000\000\000\181\000\000\000\181\000\000\000\181\000\000\000\000\000\000\000\000\000\000\003A\003A\000\000\000\000\004\154\000\000\000\181\000\000\000\000\000\000\000\000\000\000\000\181\000\000\003A\003A\000\181\000\000\003A\003A\000\000\000\181\000\000\000\000\000\181\000\000\000\000\000\000\003A\000\181\000\181\000\238\000\000\000\000\000\000\003A\000\000\000\000\000\181\000\181\003A\000\000\000\000\000\000\000\000\000\181\003A\000\000\000\249\000\181\000\000\000\000\000\000\000\249\000\000\000\000\000\249\000\000\000\000\000\181\000\181\000\000\000\000\000\181\000\181\000\000\000\249\000\000\000\249\000\000\000\249\000\000\000\249\000\181\000\000\000\000\000\000\000\000\000\000\000\181\000\181\000\000\000\000\000\000\000\249\000\000\000\000\000\000\000\000\000\181\000\249\000\181\000\000\000\000\000\249\000\000\000\000\000\000\000\000\000\249\000\000\000\000\000\249\000\000\000\000\000\000\000\000\000\249\000\249\000\238\000\000\000\000\000\000\000\000\000\000\000\000\000\249\000\249\000\000\000\000\000\000\000\000\000\000\000\249\000\000\000\000\000\189\000\249\000\000\000\000\000\000\000\189\000\000\000\000\000\189\000\000\000\000\000\249\000\249\000\000\000\000\000\249\000\249\000\000\000\189\000\000\000\189\000\000\000\189\000\000\000\189\000\249\000\000\000\000\000\000\000\000\000\000\000\249\000\249\000\000\000\000\000\000\000\189\000\000\000\000\000\000\000\000\000\249\000\189\000\249\000\000\000\000\000\189\000\000\000\000\000\000\000\000\000\189\000\000\000\000\000\189\000\000\000\000\000\000\000\000\000\189\000\189\000\238\000\000\000\000\000\000\000\000\000\000\000\000\000\189\000\189\000\000\000\000\000\000\000\000\000\000\000\189\000\000\000\000\000\185\000\189\000\000\000\000\r\025\000\185\000\000\000\000\000\185\r\025\000\000\000\189\000\189\000\000\000\000\000\189\000\189\000\000\000\185\000\000\000\185\000\000\000\185\000\000\000\185\000\189\000\000\000\000\r\025\000\000\000\000\000\189\000\189\000\000\000\000\000\000\000\185\000\000\000\000\000\000\000\000\000\189\000\185\000\189\000\000\000\000\000\185\000\000\000\000\000\000\r\025\000\185\000\000\000\000\000\185\000\000\000\000\000\000\r\025\000\185\000\185\000\238\000\000\r\025\r\025\000\238\000\000\000\000\000\185\000\185\000\000\000\000\r\025\r\025\000\000\000\185\000\000\000\000\001\169\000\185\000\000\000\000\000\000\001\169\000\000\000\000\001\169\000\000\000\000\000\185\000\185\000\000\000\000\000\185\000\185\000\000\001\169\000\000\r\025\000\000\001\169\004e\001\169\000\185\000\000\000\000\004e\r\025\000\000\000\185\000\185\000\000\000\000\000\000\001\169\001\169\000\000\000\000\000\000\000\185\001\169\000\185\000\000\000\000\000\000\004e\005\017\000\000\000\000\001\169\000\000\000\000\001\169\000\000\000\000\000\000\000\000\001\169\001\169\001\169\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004e\000\000\000\000\000\000\000\000\000\000\001\169\000\000\004e\000\000\001\169\rU\rU\004e\002\226\000\000\rU\000\000\000\000\rU\001\169\001\169\004e\004e\001\169\001\169\000\000\000\000\000\000\rU\005\017\rU\000\000\rU\001\169\rU\000\000\000\000\000\000\000\000\001\169\001\169\000\000\000\000\000\000\000\000\001\169\rU\004e\000\000\000\000\000\000\001\169\rU\rU\000\000\000\000\004e\000\000\000\000\000\000\000\000\rU\000\000\000\000\rU\000\000\000\000\000\000\000\000\rU\rU\rU\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\rU\000\000\000\000\000\000\rU\rQ\rQ\000\000\000\000\000\000\rQ\000\000\000\000\rQ\rU\rU\rU\000\000\rU\rU\000\000\000\000\000\000\rQ\000\000\rQ\000\000\rQ\000\000\rQ\000\000\rU\000\000\000\000\000\000\rU\000\000\000\000\000\000\000\000\000\000\rQ\000\000\000\000\004\254\000\000\rU\rQ\rQ\000\000\000\000\000\000\000\000\000\000\000\000\004m\rQ\000\000\000\000\rQ\000\246\000\000\000\000\002\018\rQ\rQ\rQ\000\000\000\000\000\000\000\000\000\000\000\000\017\222\000\000\000\000\000\000\004m\000\000\003\182\rQ\000\000\b\137\b\137\rQ\000\000\000\000\b\137\000\000\000\000\b\137\017\226\000\000\000\000\rQ\rQ\rQ\018\n\rQ\rQ\b\137\000\000\b\137\000\000\b\137\000\000\b\137\000\000\007\146\017>\000\000\rQ\000\000\000\000\017V\rQ\000\000\000\000\b\137\000\000\000\000\000\000\000\000\000\000\b\137\b\137\rQ\000\000\000\000\000\000\018\162\000\000\000\000\b\137\000\000\000\000\b\137\000\000\000\000\000\000\000\000\b\137\b\137\000\238\017r\018\182\000\000\000\000\004m\004m\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\137\000\000\000\000\000\000\b\137\000\000\007\001\000\000\018\198\000\000\000\000\000\000\000\000\000\000\b\137\b\137\b\137\000\000\b\137\b\137\000\000\000\000\n\"\000\000\000\000\007\001\000\000\000\000\b\137\007\001\000\000\b\137\000\000\000\000\000\000\b\137\nZ\nr\nz\nb\n\130\000\000\000\000\000\000\000\000\000\000\b\137\001\201\000\000\000\000\n\138\n\146\001\201\000\000\001\206\001\201\000\000\000\000\000\000\n\154\000\000\000\000\000\000\b\225\000\000\001\201\000\000\000\238\000\000\001\201\000\000\001\201\000\000\000\000\000\000\000\000\n*\nj\n\162\n\170\n\186\000\000\000\000\001\201\000\000\000\000\000\000\007\001\n\194\001\201\000\000\000\000\000\000\000\000\000\000\000\000\002\154\n\202\001\201\000\000\000\000\001\201\000\000\000\000\000\000\000\000\001\201\001\201\001\201\000\000\000\000\n\234\000\000\n\242\n\178\000\000\000\000\000\000\000\000\000\000\n\210\000\000\001\201\001\201\000\000\000\000\004\154\000\000\n\218\n\226\000\000\000\000\000\000\016\142\000\000\000\000\001\201\001\201\000\000\000\000\001\201\001\201\000\000\000\000\000\000\000\000\000\000\000\000\000\000\n\"\001\201\000\000\000\000\016\146\000\000\000\000\000\000\001\201\000\000\000\000\000\000\000\000\001\201\nZ\nr\nz\nb\n\130\001\201\000\000\000\000\000\000\000\000\000\000\006V\000\000\000\000\n\138\n\146\000\246\001\202\001\206\002\018\000\000\000\000\000\000\n\154\000\000\000\000\000\000\000\000\000\000\017\222\000\000\000\238\000\000\004m\000\000\003\182\001\210\001\214\001\230\000\000\n*\nj\n\162\n\170\n\186\000\000\001\242\017\226\000\000\000\000\000\000\000\000\n\194\018\n\000\000\000\000\000\000\000\000\000\000\001\246\002\146\n\202\000\000\000\000\002\158\017>\002\178\004\030\004*\000\000\017V\000\000\000\000\0046\000\000\n\234\016\150\n\242\n\178\016\166\000\000\000\000\000\000\000\000\n\210\000\000\018\162\000\000\000\000\000\000\004:\000\000\n\218\n\226\005\181\005\181\000\000\000\000\000\000\005\181\017r\018\182\005\181\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\005\181\000\000\005\181\000\000\005\181\000\000\005\181\000\000\000\000\018\198\000\000\000\000\000\000\000\000\004n\000\000\004r\000\000\005\181\000\000\000\000\000\000\000\000\000\000\005\181\005\181\000\000\000\000\000\000\000\000\b>\000\000\000\000\005\181\000\000\000\000\005\181\000\000\006Y\000\000\000\000\005\181\005\181\000\238\000\000\002\190\000\000\000\000\002\130\000\000\000\000\000\000\000\000\002\246\000\000\002\225\002\225\005\181\006Y\002\225\000\000\005\181\000\000\001\210\002\225\000\000\000\000\002\250\000\000\000\000\002\225\005\181\005\181\005\181\002\225\005\181\005\181\000\000\002\254\000\000\000\000\002\225\000\n\000\000\000\000\007\"\0032\001\190\005\181\000\000\000\000\015f\005\181\002\178\002\225\000\000\003:\002\225\002\225\000\000\bz\b~\b\138\005\181\002\225\005v\000\000\002\225\000\000\000\000\002\225\002\225\000\000\002\225\002\225\000\000\002\225\000\000\000\000\000\000\000\000\000\000\005\177\007f\000\000\005\130\005\134\005\177\002\225\000\000\005\177\000\000\000\000\000\000\000\000\000\000\002\225\002\225\000\000\015\162\005\177\000\000\005\177\000\000\005\177\000\000\005\177\000\000\000\000\005\138\b\146\000\000\000\000\000\000\b\170\004r\000\000\000\000\005\177\000\000\002\225\000\000\000\000\000\000\005\177\007\226\002\225\000\000\000\000\000\000\000\000\000\000\000\000\005\177\000\000\000\000\005\177\000\000\000\000\000\000\000\000\005\177\005\177\000\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\005\177\000\000\ra\ra\005\177\000\000\000\000\ra\000\000\000\000\ra\000\000\000\000\000\000\005\177\005\177\005\177\000\000\005\177\005\177\ra\000\000\ra\000\000\ra\000\000\ra\000\000\000\000\000\000\000\000\005\177\000\000\000\000\000\000\005\177\000\000\000\000\ra\000\000\000\000\000\000\000\000\000\000\ra\ra\005\177\000\000\000\000\000\000\000\000\000\000\000\000\ra\000\000\000\000\ra\000\000\000\000\000\000\000\000\ra\ra\000\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\ra\000\000\re\re\ra\000\000\000\000\re\000\000\000\000\re\000\000\000\000\000\000\ra\ra\ra\000\000\ra\ra\re\000\000\re\000\000\re\000\000\re\000\000\000\000\000\000\000\000\ra\000\000\000\000\000\000\ra\000\000\000\000\re\000\000\000\000\000\000\000\000\000\000\re\007\226\ra\000\000\000\000\000\000\000\000\000\000\000\000\re\000\000\000\000\re\000\000\000\000\000\000\000\000\re\re\000\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\re\000\000\005\201\007f\re\000\000\000\000\005\201\000\000\000\000\005\201\000\000\000\000\000\000\re\re\re\000\000\re\re\005\201\000\000\005\201\000\000\005\201\000\000\005\201\000\000\000\000\000\000\000\000\re\000\000\000\000\000\000\re\000\000\000\000\005\201\000\000\000\000\000\000\000\000\000\000\005\201\007\226\re\000\000\000\000\000\000\000\000\000\000\000\000\005\201\000\000\000\000\005\201\000\000\000\000\000\000\000\000\005\201\005\201\000\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\005\201\000\000\005\205\005\205\005\201\000\000\000\000\005\205\000\000\000\000\005\205\000\000\000\000\000\000\005\201\005\201\005\201\000\000\005\201\005\201\005\205\000\000\005\205\000\000\005\205\000\000\005\205\000\000\000\000\000\000\000\000\005\201\000\000\000\000\000\000\005\201\000\000\000\000\005\205\000\000\000\000\000\000\000\000\000\000\005\205\005\205\005\201\000\000\000\000\000\000\000\000\000\000\000\000\005\205\000\000\000\000\005\205\000\000\000\000\000\000\000\000\005\205\005\205\005\205\000\000\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\205\003V\002\190\000\000\005\205\002\130\000\000\006\238\000\000\000\000\002\246\000\000\000\000\000\000\005\205\005\205\005\205\000\000\005\205\005\205\001\210\000\000\007\014\000\000\000\000\000\000\000\000\003Z\000\000\000\000\tB\005\205\000\000\000\000\000\000\005\205\000\000\000\000\000\000\000\000\003f\000\000\000\000\011\006\001\190\000\000\b\n\000\000\000\000\000\000\002\178\000\000\000\000\003\246\000\000\000\000\000\000\003\250\000\000\004\002\000\000\011\022\005v\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003=\000\000\000\000\005z\000\000\003=\000\000\001\206\003=\000\000\000\000\005\130\005\134\000\000\000\000\011\030\000\000\000\000\003=\000\000\000\000\000\000\003=\000\000\003=\000\000\000\000\000\000\000\000\000\000\011&\000\000\000\000\0112\000\000\005\138\003=\000\000\000\000\000\000\000\000\004r\003=\000\000\000\000\001M\000\000\000\000\000\000\002\154\001M\003=\000\000\001M\003=\000\000\000\000\000\000\000\000\003=\003=\003=\000\000\001M\000\000\001M\000\000\001M\000\000\001M\000\000\000\000\000\000\000\000\000\000\003=\003=\000\000\000\000\004\154\000\000\001M\000\000\000\000\000\000\000\000\000\000\001M\000\000\003=\003=\001M\000\000\003=\003=\000\000\001M\000\000\000\000\001M\000\000\000\000\000\000\003=\001M\001M\000\238\000\000\001I\000\000\003=\000\000\000\000\001I\001M\003=\001I\000\000\000\000\000\000\001M\003=\000\000\000\000\001M\000\000\001I\000\000\001I\000\000\001I\000\000\001I\000\000\001M\001M\001M\000\000\001M\001M\000\000\000\000\000\000\000\000\001I\000\000\000\000\000\000\001M\000\000\001I\000\000\000\000\000\000\001I\001M\000\000\000\000\000\000\001I\000\000\000\000\001I\000\000\000\000\000\000\001M\001I\001I\000\238\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001I\000\000\000\000\000\000\000\000\000\000\001I\000\000\000\000\000\000\001I\001\133\000\000\000\000\000\000\000\000\001\133\000\000\012\177\001\133\001I\001I\001I\000\000\001I\001I\000\000\012\177\000\000\001\133\000\000\001\133\000\000\001\133\001I\001\133\000\000\000\000\000\000\000\000\000\000\001I\000\000\000\000\000\000\000\000\000\000\001\133\000\000\000\000\000\000\000\000\001I\001\133\012\177\000\000\000\000\000\000\000\000\000\000\012\177\000\000\000\000\000\000\000\000\001\133\000\000\000\000\000\000\000\000\001\133\001\133\001\133\000\000\000\000\0019\000\000\000\000\000\000\000\000\0019\000\000\000\157\0019\000\000\000\000\001\133\000\000\000\000\000\000\012\177\000\157\000\000\0019\000\000\0019\000\000\0019\000\000\0019\001\133\001\133\001\133\000\000\001\133\001\133\000\000\000\000\000\000\000\000\000\000\0019\000\000\000\000\000\000\000\000\000\000\0019\000\157\000\000\000\000\001\133\000\000\000\000\000\157\000\000\000\000\000\000\000\000\0019\000\000\000\000\001\133\000\000\0019\0019\0019\000\000\001\213\000\000\000\000\000\000\000\000\001\213\000\000\015\174\001\213\000\000\002\130\000\000\0019\000\000\001\202\001\206\000\157\000\000\001\213\000\000\000\000\000\000\001\213\000\000\001\213\000\000\0019\0019\0019\000\000\0019\0019\000\000\001\210\002\170\001\230\001\213\000\000\000\000\000\000\000\000\000\000\001\213\001\242\000\000\000\000\000\000\0019\015\178\000\000\000\000\001\213\000\000\000\000\001\213\000\000\001\246\002\146\0019\001\213\001\213\002\158\015\190\002\178\004\030\004*\000\000\000\000\000\000\000\000\0046\000\000\000\000\000\000\000\000\001\213\000Y\000\000\000\000\001\213\000\000\000Y\000\000\000Y\000\000\000\000\000\000\004:\005\134\001\213\001\213\000\000\000Y\001\213\001\213\000Y\000\000\000\000\000\000\000Y\000Y\000\000\b\165\001\213\000\000\000\000\000\000\000\000\000\000\000\000\001\213\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000Y\000\000\001\213\000Y\000\000\000\000\000Y\000\000\000\000\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\003V\002\190\000\000\000\000\002\130\000\000\006\238\000\000\000Y\002\246\000\000\000Y\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\210\000Y\007\014\000\000\000Y\000\000\000\000\003Z\000\000\b\165\tB\000\000\000\000\000Y\004e\007f\000Y\000\000\t~\004e\003f\000\000\004e\r\210\001\190\000\000\000\000\000\000\000\000\000Y\002\178\000\000\004e\003\246\000\000\000\000\004e\003\250\004e\004\002\000\000\011\022\005v\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004e\000\000\000\000\000\000\005z\000\000\004e\007\226\000\000\000\000\004e\000\000\005\130\005\134\000\000\004e\000\000\000\000\004e\000\000\000\000\000\000\000\000\004e\002\226\000\238\000\000\000\000\007\145\000\000\000\000\007\145\004e\004e\r\226\000\000\005\138\000\000\000\000\004e\004e\0035\004r\004e\000\000\000\000\0035\007\145\007\145\0035\007\145\007\145\000\000\004e\004e\000\000\000\000\004e\004e\0035\000\000\000\000\000\000\0035\000\000\0035\000\000\004e\000\000\000\000\000\000\007\145\000\000\000\000\004e\000\000\000\000\0035\015\198\025\202\000\000\000\000\000\000\0035\000\000\004e\000\000\000\000\000\000\007\145\000\000\000\000\0035\000\000\000\000\0035\000\000\000\000\000\000\000\000\0035\0035\0035\003V\002\190\000\000\000\000\002\130\000\000\006\238\000\000\000\000\002\246\000\000\000\000\000\000\0035\000\000\000\000\007\145\0035\007\145\001\210\000\000\007\014\000\000\000\000\000\000\000\000\003Z\0035\0035\tB\005\226\0035\0035\007\145\007\145\000\000\000\000\023\142\007\145\003f\007\145\0035\003r\001\190\007\145\000\000\000\000\016&\0035\002\178\000\000\000\000\003\246\0035\000\000\000\000\003\250\000\000\004\002\0035\011\022\005v\000\000\000\000\000\000\003V\002\190\000\000\000\000\002\130\000\000\006\238\000\000\005z\002\246\000\000\000\000\000\000\000\000\000\000\000\000\005\130\005\134\000\000\001\210\021\254\007\014\000\000\000\000\000\000\000\000\003Z\000\000\000\000\tB\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\024Z\003f\005\138\000\000\011\006\001\190\000\000\000\000\004r\000\000\000\000\002\178\000\000\000\000\003\246\000\000\000\000\000\000\003\250\000\000\004\002\000\000\011\022\005v\000\000\000\000\000\000\003V\002\190\000\000\000\000\002\130\000\000\006\238\000\000\005z\002\246\000\000\000\000\000\000\000\000\000\000\000\000\005\130\005\134\000\000\001\210\011\030\007\014\000\000\000\000\000\000\000\000\003Z\000\000\000\000\tB\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\022\150\003f\005\138\000\000\011\006\001\190\000\000\000\000\004r\000\000\000\000\002\178\000\000\000\000\003\246\000\000\000\000\000\000\003\250\000\000\004\002\005\194\011\022\005v\000\000\000\000\000\000\003V\002\190\000\000\000\000\002\130\000\000\000\000\000\000\005z\002\246\000\000\000\000\000\000\000\000\005\198\000\000\005\130\005\134\000\000\001\210\011\030\000\000\000\000\000\000\000\000\000\000\003Z\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\022\246\003f\005\138\000\000\003r\001\190\000\000\000\000\004r\000\000\000\000\002\178\000\000\000\000\003\246\000\000\000\000\000\000\003\250\000\000\004\002\005j\000\000\005v\000\000\000\000\t%\000\000\000\000\000\000\000\000\000\000\003V\002\190\000\000\005z\002\130\000\000\000\000\000\000\000\000\002\246\000\000\005\130\005\134\000\000\005\202\000\000\t%\000\000\000\000\001\210\000\000\000\000\000\000\000\000\000\000\000\000\003Z\000\000\000\000\000\000\000\000\000\000\006\134\000\000\000\000\005\138\002\225\002\225\000\000\003f\002\225\004r\003r\001\190\000\000\002\225\000\000\000\000\000\000\002\178\000\000\000\000\003\246\000\000\000\000\002\225\003\250\000\000\004\002\005j\000\000\005v\002\225\000\n\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\005z\000\000\002\225\000\000\000\000\002\225\002\225\000\000\005\130\005\134\000\000\005\202\002\225\000\000\000\000\002\225\000\000\000\000\002\225\002\225\000\000\002\225\002\225\000\000\002\225\000\000\000\000\000\000\000\000\000\000\000\000\000\000\005\138\000\000\t%\000\000\002\225\000\000\004r\004M\004M\000\000\000\000\004M\002\225\002\225\000\000\002\225\004M\000\000\000\000\000\000\000\000\000\000\004M\000\000\000\000\000\000\004M\000\000\000\000\000\000\000\000\000\000\000\000\004M\023F\000\000\002\225\023^\000\000\000\000\002\225\000\000\002\225\000\000\000\000\000\000\004M\000\000\000\000\004M\004M\000\000\000\000\000\000\000\000\000\000\004M\000\000\000\000\004M\000\000\000\000\000\238\004M\000\000\004M\004M\000\000\004M\0035\000\000\000\000\000\000\0035\0035\000\000\000\000\0035\0035\000\000\004M\0035\000\000\000\000\000\000\000\000\000\000\0035\004M\004M\000\000\0035\000\000\0035\000\000\0035\000\000\0035\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0035\015\198\000\000\000\000\0035\015\198\0035\004M\000\000\000\000\0035\000\000\000\000\004M\000\000\0035\000\000\000\000\0035\0035\000\000\000\000\0035\0035\0035\0035\000\000\0035\0035\0035\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0035\000\000\000\000\000\000\0035\000\000\000\000\000\000\0035\000\000\000\000\000\000\000\000\000\000\0035\0035\025\210\000\000\0035\0035\026\002\000\000\0035\0035\012\169\000\000\000\000\000\000\000\000\012\169\000\000\000\000\012\169\000\000\016&\0035\000\000\000\000\016&\0035\0035\000\000\012\169\000\000\0035\000\000\012\169\000\000\012\169\000\000\000\000\000\000\000\000\000\000\005\t\000\000\000\000\000\000\000\000\000\000\012\169\000\000\000\000\000\000\000\000\000\000\012\169\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\169\000\000\000\000\012\169\000\000\000\000\003V\002\190\012\169\012\169\002\130\000\000\006\238\000\000\000\000\002\246\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\169\001\210\000\000\007\014\012\169\000\000\000\000\000\000\003Z\000\000\000\000\tB\000\000\000\000\012\169\012\169\002z\000\000\012\169\012\169\000\000\003f\000\000\000\000\tn\001\190\000\000\000\000\012\169\000\000\000\000\002\178\026\194\000\000\003\246\012\169\000\000\000\000\003\250\000\000\004\002\000\000\011\022\005v\005a\000\000\012\169\000\000\000\000\005a\000\000\000\000\005a\000\000\000\000\005z\000\000\000\000\000\000\000\000\000\000\000\000\005a\005\130\005\134\000\000\005a\000\000\005a\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\005a\000\000\000\000\000\000\000\000\000\000\005a\005\138\000\000\000\000\000\000\000\000\b>\004r\000\000\005a\000\000\000\000\005a\000\000\000\000\000\000\000\000\005a\005a\000\238\000\000\005e\000\000\000\000\000\000\000\000\005e\000\000\000\000\005e\000\000\000\000\000\000\005a\005a\000\000\000\000\005a\000\000\005e\000\000\000\000\000\000\005e\000\000\005e\000\000\005a\005a\000\000\000\000\005a\005a\000\000\000\000\000\000\000\000\005e\000\000\000\000\000\000\000\000\000\000\005e\000\000\0035\000\000\000\000\005a\b>\0035\000\000\005e\0035\000\000\005e\000\000\000\000\000\000\005a\005e\005e\000\238\0035\000\000\000\000\000\000\0035\000\000\0035\000\000\000\000\000\000\000\000\000\000\000\000\005e\005e\000\000\000\000\005e\0035\015\198\000\000\000\000\000\000\000\000\0035\000\000\000\000\005e\005e\000\000\000\000\005e\005e\0035\000\000\000\000\0035\000\000\000\000\000\000\000\000\0035\0035\0035\006\017\000\000\000\000\000\000\005e\006\017\000\000\000\000\006\017\000\000\000\000\000\000\000\000\0035\000\000\005e\000\000\0035\006\017\000\000\000\000\000\000\006\017\000\000\006\017\000\000\000\000\0035\0035\017\174\000\000\0035\0035\000\000\000\000\000\000\006\017\000\000\000\000\000\000\000\000\000\000\006\017\000\000\000\000\000\000\000\000\016&\0035\000\000\000\000\006\017\000\000\000\000\006\017\000\000\000\000\000\000\000\000\006\017\006\017\000\238\000\000\000\000\000\000\000\000\000\000\025\170\000\000\000\000\000\000\000\000\000\000\003V\002\190\006\017\000\000\002\130\000\000\006\017\000\000\000\000\002\246\000\000\000\000\000\000\000\000\000\000\000\000\006\017\006\017\021\138\001\210\006\017\006\017\000\000\000\000\000\000\000\000\003Z\001\202\001\206\000\000\006\017\000\000\000\000\000\000\000\000\000\000\000\000\006\017\000\000\003f\000\000\000\000\003r\001\190\000\000\000\000\001\210\001\214\006\017\002\178\000\000\000\000\003\246\000\000\000\000\000\000\003\250\000\000\004\002\005j\000\000\005v\000\000\000\000\000\000\005\238\000\000\000\000\000\000\001\246\002\162\003V\002\190\005z\002\158\002\130\002\178\004\030\004*\000\000\002\246\005\130\005\134\0046\005\202\000\000\000\000\003\254\000\000\000\000\001\210\000\000\000\000\000\000\000\000\000\000\000\000\003Z\000\000\000\000\004:\000\000\000\000\004\217\000\000\005\138\000\000\006\218\000\000\t*\003f\004r\000\000\003r\001\190\000\000\000\000\000\000\000\000\026N\002\178\000\000\000\000\003\246\000\000\000\000\000\000\003\250\000\000\004\002\005j\000\000\005v\000\000\000\000\006J\000\000\000\000\000\000\000\000\000\000\003V\002\190\000\000\005z\002\130\000\000\000\000\000\000\000\000\002\246\000\000\005\130\005\134\000\000\005\202\000\000\006\158\000\000\000\000\001\210\000\000\000\000\000\000\000\000\000\000\000\000\003Z\000\000\000\000\000\000\006j\000\000\000\000\000\000\000\000\005\138\003V\002\190\000\000\003f\002\130\004r\003r\001\190\000\000\002\246\000\000\000\000\000\000\002\178\000\000\000\000\003\246\000\000\000\000\001\210\003\250\000\000\004\002\005j\000\000\005v\003Z\000\000\000\000\000\000\000\000\007\165\000\000\000\000\007\165\000\000\000\000\005z\000\000\003f\000\000\000\000\003r\001\190\000\000\005\130\005\134\000\000\005\202\002\178\007\165\007\165\003\246\007\165\007\165\000\000\003\250\000\000\004\002\005j\000\000\005v\000\000\000\000\000\000\000\000\000\000\000\000\000\000\005\138\006]\000\000\000\000\005z\007\165\004r\003V\002\190\000\000\000\000\002\130\005\130\005\134\000\000\005\202\002\246\000\000\000\000\000\000\000\000\006]\000\000\000\238\000\000\000\000\001\210\000\000\000\000\000\000\000\000\000\000\000\000\003Z\000\000\000\000\005\138\011\210\000\000\000\000\000\000\000\000\004r\003V\002\190\000\000\003f\002\130\000\000\003r\001\190\000\000\002\246\007\165\000\000\007\165\002\178\000\000\000\000\003\246\000\000\000\000\001\210\003\250\000\000\004\002\005j\007\165\005v\003Z\005\234\007\165\000\000\000\000\000\000\007\165\000\000\007\165\000\000\000\000\005z\007\165\003f\000\000\000\000\003r\001\190\000\000\005\130\005\134\000\000\000\000\002\178\000\000\000\000\003\246\000\000\000\000\000\000\003\250\000\000\004\002\005j\000\000\005v\000\000\000\000\011\222\000\000\000\000\000\000\000\000\005\138\003V\002\190\000\000\005z\002\130\004r\000\000\000\000\000\000\002\246\000\000\005\130\005\134\000\000\005\202\000\000\000\000\000\000\000\000\001\210\000\000\000\000\000\000\000\000\000\000\000\000\003Z\000\000\000\000\000\000\011\234\000\000\000\000\000\000\000\000\005\138\003V\002\190\000\000\003f\002\130\004r\003r\001\190\000\000\002\246\000\000\000\000\000\000\002\178\000\000\000\000\003\246\000\000\000\000\001\210\003\250\000\000\004\002\005j\000\000\005v\003Z\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\005z\000\000\003f\000\000\000\000\003r\001\190\000\000\005\130\005\134\000\000\005\202\002\178\000\000\000\000\003\246\000\000\000\000\000\000\003\250\000\000\004\002\005j\000\000\005v\000\000\000\000\000\000\000\000\000\000\000\000\000\000\005\138\006\129\000\000\000\000\005z\000\000\004r\000\000\002\190\000\000\000\000\002\130\005\130\005\134\000\000\005\202\002\246\000\000\000\000\000\000\000\000\006\129\000\000\000\000\000\000\000\000\001\210\000\000\000\000\000\000\002\250\000\000\000\000\000\000\000\000\000\000\005\138\000\000\000\000\000\000\000\000\002\254\004r\000\000\000\000\000\000\000\000\000\000\000\000\0032\001\190\000\000\000\000\000\000\000\000\000\000\002\178\000\000\000\000\003:\000\000\000\000\000\000\bz\b~\b\138\000\000\000\000\005v\000\000\000\000\000\000\007\t\007f\000\000\000\000\000\000\007\t\000\000\000\000\007\t\000\000\000\000\000\000\000\000\000\000\000\000\000\000\005\130\005\134\007\t\000\000\000\000\000\000\007\t\000\000\007\t\000\000\001\181\000\000\000\000\000\000\000\000\001\181\000\000\000\000\001\181\000\000\007\t\000\000\000\000\000\000\005\138\b\146\007\t\007\226\001\181\b\170\004r\000\000\001\181\000\000\001\181\007\t\000\000\000\000\007\t\000\000\000\000\000\000\000\000\007\t\007\t\000\238\001\181\000\000\000\000\000\000\000\000\000\000\001\181\000\000\000\000\000\000\000\000\000\000\000\000\007\t\000\000\001\181\000\000\007\t\001\181\000\000\000\000\000\000\000\000\001\181\001\181\001\181\000\000\007\t\007\t\000\000\000\000\007\t\007\t\000\000\000\000\000\000\000\000\000\000\000\000\001\181\000\000\000\000\001\217\001\181\000\000\000\000\000\000\001\217\007\t\000\000\001\217\000\000\000\000\001\181\001\181\000\000\000\000\001\181\001\181\000\000\001\217\000\000\000\000\017\186\001\217\000\000\001\217\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\181\000\000\000\000\000\000\001\217\001\181\000\000\000\000\000\000\000\000\001\217\000\000\000\000\006\021\000\000\000\000\000\000\000\000\006\021\001\217\000\000\006\021\001\217\000\000\000\000\000\000\000\000\001\217\001\217\000\000\000\000\006\021\000\000\000\000\000\000\006\021\000\000\006\021\000\000\000\000\000\000\000\000\000\000\001\217\000\000\000\000\000\000\001\217\000\000\006\021\000\000\000\000\000\000\000\000\000\000\006\021\000\000\001\217\001\217\000\000\000\000\001\217\001\217\000\000\006\021\000\000\000\000\006\021\000\000\000\000\000\000\001\217\006\021\006\021\000\238\000\000\000\000\000\000\001\217\000\000\000\000\000\000\000\000\021f\000\000\000\000\000\000\000\000\006\021\001\217\012\169\000\000\006\021\000\000\000\000\012\169\000\000\000\000\012\169\000\000\000\000\000\000\006\021\006\021\000\000\000\000\006\021\006\021\012\169\000\000\000\000\000\000\012\169\000\000\012\169\000\000\006\021\000\000\000\000\000\000\005\t\000\000\000\000\006\021\000\000\000\000\012\169\000\000\000\000\000\000\000\000\000\000\012\169\000\000\006\021\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\169\000\000\000\000\000\000\000\000\012\169\012\169\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012a\000\000\002\190\012a\000\000\028N\000\000\012\169\000\000\000\000\028R\000\000\000\000\012a\000\000\000\000\000\000\000\000\000\000\012a\000\000\012\169\012\169\002z\000\000\012\169\012\169\000\000\000\000\000\000\000\000\012a\000\000\004e\000\000\012\169\000\000\012a\004e\026\250\000\000\004e\012\169\001\002\001\190\000\000\012a\000\000\000\000\012a\000\000\004e\000\000\012\169\012a\004e\000\000\004e\000\000\000\000\004e\000\000\028V\004e\000\000\000\000\000\000\000\000\000\000\004e\012a\000\000\000\000\004e\012a\004e\000\000\004e\000\000\004e\000\000\000\000\000\000\028Z\012a\012a\000\000\004e\012a\000\000\000\000\004e\004e\002\226\000\000\000\000\000\000\004e\bE\bE\000\000\000\000\bE\b>\000\000\012a\004e\bE\004e\004e\000\000\000\000\000\000\016V\004e\002\226\000\238\bE\000\000\000\000\000\000\000\000\004e\004e\bE\000\000\004e\004e\000\000\000\000\004e\000\000\007\246\000\000\004e\000\000\000\000\bE\000\000\000\000\bE\bE\000\000\004e\004e\004e\000\000\bE\004e\004e\bE\000\000\000\000\000\000\bE\000\000\bE\bE\007\146\bE\000\000\000\000\000\000\000\000\001q\004e\000\000\000\000\000\000\001q\000\000\bE\001q\000\000\000\000\000\000\004e\000\000\000\000\bE\bE\000\000\001q\000\000\001q\000\000\001q\000\000\001q\000\000\000\237\000\000\000\000\000\000\000\000\000\237\000\000\000\000\000\237\000\000\001q\000\000\000\000\bE\000\000\000\000\001q\000\000\000\237\bE\000\000\000\000\000\237\000\000\000\237\000\000\000\000\000\000\001q\000\000\000\000\000\000\000\000\001q\001q\000\238\000\237\000\000\000\000\000\000\000\000\000\000\000\237\000\000\000\000\000\000\000\000\000\000\000\000\001q\000\000\000\237\000\000\000\000\000\237\000\000\000\000\000\000\000\000\000\237\000\237\000\238\000\000\001q\001q\001q\000\000\001q\001q\000\000\000\000\000\000\000\000\000\000\000\000\000\237\000\000\000\000\000\241\000\237\000\000\000\000\000\000\000\241\001q\000\000\000\241\000\000\000\000\000\237\000\237\000\000\000\000\000\237\000\237\001q\000\241\000\000\000\000\000\000\000\241\000\000\000\241\000\000\007\005\000\000\000\000\000\000\000\000\007\005\000\237\000\000\007\005\000\000\000\241\000\000\000\000\000\000\000\000\000\000\000\241\000\237\007\005\000\000\000\000\000\000\007\005\000\000\007\005\000\241\000\000\000\000\000\241\000\000\000\000\000\000\000\000\000\241\000\241\000\238\007\005\000\000\000\000\000\000\000\000\000\000\007\005\000\000\000\000\000\000\000\000\000\000\000\000\000\241\000\000\007\005\000\000\000\241\007\005\000\000\000\000\000\000\000\000\007\005\007\005\000\000\000\000\000\241\000\241\000\000\000\000\000\241\000\241\000\000\000\000\000\000\000\000\000\000\000\000\007\005\000\000\000\000\000\000\007\005\0116\000\000\000\000\000\000\000\241\000\000\001\202\001\206\011j\007\005\007\005\016\238\000\000\007\005\007\005\000\241\006\t\000\000\000\000\000\000\000\000\006\t\000\000\000\000\006\t\001\210\002\170\001\230\000\000\000\000\007\005\017\142\000\000\000\000\006\t\001\242\000\000\000\000\006\t\000\000\006\t\000\000\005m\007f\000\000\000\000\000\000\005m\001\246\002\146\005m\000\000\006\t\002\158\000\000\002\178\004\030\004*\006\t\000\000\005m\000\000\0046\000\000\005m\000\000\005m\006\t\000\000\000\000\006\t\000\000\000\000\000\000\000\000\006\t\006\t\000\000\005m\004:\000\000\000\000\000\000\000\000\005m\007\226\000\000\000\000\000\000\000\000\000\000\006\t\000\000\000\000\000\000\006\t\005m\000\000\000\000\000\000\000\000\005m\005m\000\238\000\000\006\t\006\t\000\000\000\000\006\t\006\t\000\000\000\000\000\000\000\000\012\017\000\000\005m\000\000\000\000\012\017\000\000\000\000\012\017\000\000\000\000\006\t\000\000\000\000\000\000\000\000\005m\005m\012\017\000\000\005m\005m\012\017\000\000\012\017\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\017\005m\000\000\000\000\000\000\000\000\012\017\000\000\000\000\000\000\000\000\000\000\000\000\001\202\002~\012\017\000\000\002\130\012\017\000\000\000\000\000\000\000\000\012\017\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\210\001\214\001\230\000\000\000\000\000\000\000\000\012\017\n\022\000\000\001\242\012\017\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\017\012\017\002\138\002\146\012\017\012\017\000\000\002\158\000\000\002\178\004\030\004*\004=\000\000\000\000\000\000\021>\004=\026\166\0045\004=\012\017\000\000\000\000\0045\000\000\000\000\0045\000\000\000\000\004=\000\000\n\250\004:\004=\000\000\004=\0045\000\000\000\000\000\000\0045\005\134\0045\000\000\000\000\000\000\000\000\004=\000\000\000\000\000\000\026\178\000\000\004=\0045\000\000\000\000\000\000\000\000\000\000\0045\000\000\004=\000\000\000\000\004=\000\000\000\000\021R\0045\004=\000\000\0045\000\000\000\000\000\000\000\000\0045\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004=\000\000\000\000\000\000\004=\004U\000\000\0045\000\000\000\000\004U\0045\004%\004U\004=\004=\000\000\004%\004=\004=\004%\0045\0045\004U\000\000\0045\0045\004U\000\000\004U\004%\000\000\000\000\000\000\004%\004=\004%\000\000\000\000\000\000\000\000\004U\0045\000\000\000\000\000\000\017\022\004U\004%\000\000\000\000\000\000\000\000\020\030\004%\000\000\004U\000\000\000\000\004U\000\000\000\000\000\000\004%\004U\000\000\004%\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\004U\000\000\000\000\011*\004U\000\000\000\000\004%\000\000\001\202\001\206\004%\000\000\000\000\004U\004U\000\000\000\000\004U\004U\000\000\004%\004%\002\142\000\000\004%\004%\000\000\001\210\001\214\001\230\000\000\000\000\000\000\000\000\004U\000\000\000\000\001\242\000\000\000\000\000\000\004%\000\000\000\000\001\250\021\002\006\221\006\221\000\000\000\000\001\246\002\146\024z\000\000\000\000\002\158\000\000\002\178\004\030\004*\000\000\000\000\004.\000\000\0046\006\221\006\221\006\221\000\000\000\000\000\000\000\000\000\000\000\000\000\000\006\221\000\000\000\000\000\000\000\000\000\000\004:\000\000\000\000\000\000\000\000\000\000\000\000\006\221\006\221\000\000\000\000\000\000\006\221\000\000\006\221\006\221\006\221\000\000\004E\000\000\000\000\006\221\000\000\004E\000\000\004-\004E\000\000\000\000\015\182\004-\000\000\000\000\004-\000\000\000\000\004E\000\000\006\221\000\000\004E\000\000\004E\004-\000\000\000\000\000\000\004-\000\000\004-\000\000\000\000\000\000\000\000\004E\000\000\000\000\000\000\000\000\000\000\004E\004-\000\000\004]\000\000\000\000\000\000\004-\004]\000\000\000\000\004]\004E\000\000\004\"\000\000\006\221\004E\000\000\004-\000\000\004]\000\000\000\000\004-\004]\000\000\004]\000\000\000\000\000\000\000\000\000\000\004E\000\000\000\000\000\000\000\000\000\000\004]\004-\000\000\000\000\000\000\000\000\004]\000\000\004E\004E\000\000\000\000\004E\004E\000\000\004-\004-\000\000\004]\004-\004-\000\000\000\000\004]\0116\000\000\000\000\000\000\000\000\004E\001\202\001\206\000\000\000\000\000\000\000\000\004-\000\000\000\000\004]\018Z\000\000\000\000\000\000\000\000\000\000\003\254\020\170\000\000\001\210\001\214\001\230\000\000\004]\004]\000\000\000\000\004]\004]\001\242\004y\000\000\000\000\000\000\000\000\000\246\000\000\000\000\002\194\000\000\000\000\000\000\001\246\002\146\004]\000\000\000\000\002\158\003\178\002\178\004\030\004*\004y\000\000\003\182\021*\0046\007}\000\000\000\000\007}\000\000\000\000\000\000\000\000\000\000\003\186\000\000\000\000\000\000\000\000\000\000\016\218\004:\000\000\000\000\007}\007}\000\000\007}\007}\024\166\000\000\000\000\017>\000\000\000\000\000\000\000\000\017V\000\000\000\000\000\000\007\169\000\000\000\000\007\169\000\000\000\000\000\000\007}\000\000\000\000\000\000\000\000\017^\000\000\000\000\000\000\004n\000\000\004r\007\169\007\169\000\000\007\169\007\169\000\000\007}\017r\017\158\000\000\000\000\004y\004y\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\007\169\000\000\007\153\000\000\021\230\007\153\000\000\000\000\000\000\000\000\000\000\000\000\007}\000\000\007}\000\000\000\000\000\000\000\238\000\000\000\000\007\153\007\153\000\000\007\153\007\153\007}\000\000\000\000\005\234\007}\000\000\006\217\006\217\007}\000\000\007}\000\000\000\000\000\000\007}\000\000\000\000\000\000\000\000\007\153\000\000\000\000\007\169\000\000\007\169\006\217\006\217\006\217\000\000\000\000\000\000\000\000\000\000\000\000\000\000\006\217\007\169\000\238\000\000\005\234\007\169\000\000\000\000\000\000\007\169\000\000\007\169\000\000\006\217\006\217\007\169\ri\ri\006\217\000\000\006\217\006\217\006\217\000\000\000\000\000\000\000\000\006\217\000\000\000\000\000\000\000\000\007\153\000\000\007\153\ri\ri\ri\007z\000\000\000\000\000\000\000\000\000\000\006\217\ri\006F\000\000\000\000\005\234\007\153\000\000\000\000\000\000\007\153\000\000\007\153\000\000\ri\ri\007\153\000\000\000\000\ri\000\000\ri\ri\ri\000\000\000\000\000\000\000\000\ri\001\202\001\206\022\154\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\202\001\206\022\250\004\230\000\000\ri\000\000\000\000\001\210\002\170\001\230\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\242\001\210\002\170\001\230\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\242\000\000\001\246\002\146\001\202\001\206\000\000\002\158\000\000\002\178\004\030\004*\000\000\001\246\002\146\000\000\0046\000\000\002\158\000\000\002\178\004\030\004*\001\210\001\214\000\000\000\000\0046\000\000\000\000\000\000\000\000\000\000\004:\000\000\000\000\000\000\000\246\000\000\000\000\002\194\000\000\000\000\000\000\004:\000\000\001\246\002\162\000\000\000\000\004\153\002\158\000\000\002\178\004\030\004*\003\182\000\000\000\000\000\000\0046\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\186\000\000\000\000\000\000\000\000\000\000\016\218\000\000\000\000\004:\000\000\000\000\004\221\000\000\000\000\024\166\000\000\000\000\017>\000\000\000\000\000\000\000\000\017V\000\000\000\000\000\000\000\000\026N\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\000\000\000\000\000\000\000\000\000\000\000\017r\017\158\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\230")) and lhs = (8, "\012\011\n\t\b\007\006\005\004\003\002\001\000\218\218\217\217\216\215\215\214\214\214\214\214\214\214\214\214\214\214\214\214\214\214\214\214\214\214\214\213\213\212\211\211\211\211\211\211\211\211\210\210\210\210\210\210\210\210\209\209\209\208\208\207\206\206\206\205\205\204\204\204\204\204\204\203\203\203\203\203\203\203\203\202\202\202\202\202\202\202\202\201\201\201\201\200\199\198\198\198\198\197\197\197\197\196\196\196\195\195\195\195\194\193\193\193\192\192\191\191\190\190\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\189\188\188\187\187\186\185\184\183\183\182\182\181\181\181\181\180\180\180\180\179\179\178\178\178\178\177\176\175\175\174\174\173\173\172\171\171\170\169\169\168\167\166\166\166\165\165\164\163\163\163\163\163\162\162\162\162\162\162\162\162\161\161\160\160\160\160\160\160\159\159\158\158\158\157\157\156\156\156\156\155\155\154\154\153\153\152\152\151\151\150\150\149\149\148\148\147\147\146\146\145\145\145\144\144\144\144\143\143\142\142\141\141\140\140\140\140\140\139\139\139\139\138\138\138\137\137\137\137\137\137\137\136\136\136\136\136\136\136\135\135\134\134\133\133\133\133\133\133\132\132\131\131\130\130\129\129\128\128\128\127~~~}}|||||||||{{zzyyyyyyyyyyyxwvuutttttsrrqqppppppppppppppoonnmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmllkkjjiihhggffeeddccbbaaaaaaaaaaa`_^]\\[ZYXWWWWWWWWWWVVVUUUTTTTTSSSSSSSSSRRQQQQQPPOONMLLKKKKKJJIIHHHGGGGGGFFFEEDDCCBBAA@@@??>>==<<;;::9988776655544433322211110/...................-----,,,,,,,+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++**))))))))))))))))))))))(((((((((((((((((((((((((((((((((((((((((((((((((((''&&&%%$$$$$$$$$$$$$$$$##\"\"!!!!!!! \031\031\030\030\030\030\030\029\029\028\027\026\026\026\025\025\024\024\024\024\024\024\024\024\024\024\023\023\022\022\022\022\021\021\020\019\019\019\019\019\018\017\017\016\016\016\015\015\015\014\014\014\014\014\014\r\r") and goto = ((16, "\000%\001k\000O\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\245\000\208\000&\001K\000\241\000!\000\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\000\000\000\000\000\000\000\000\000\000\000\000\000\195\000\000\000\000\000\000\000\000\000\000\000\187\000\000\000\000\000\000\000\155\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000=\192\000\000\000\000\000\000\000\139\000\000\000\000\000\000\000\000\000\000\000\000\000\000;(\0001\000&\000\217\000\000\000\234\002\132\000 \000\250\000\025\000\000\000\000\000\000\000|\000\000\000\000\002\132\000\000\000\000\000\000\000\000\001\234\000\000\000\238\000\000\000\000\000\000\000\000\000\000\000H\000\000\002\234\002$\b\"\000\000\000\000\n\226;(\000\000\000\000\000)\000\000\002P\000\000\031V\001\014\000\000\000\250\001~\000\000\000\000\000\254\001B\002\188\003\158\004\200\002$\002\000\000\139\002\188\001\200\001L\002p\011\160\000\000>(\001\222\003\234\000\161\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\132\000\000\t\022>(\011\208\000\000\000\000\002 \004\252\002\0141\"\000\000\000\000\000\000\000\000\000\000\000\000\000\000#h\000\000\002F\005\012\002\210\000\000\000\000\000\000\000\000\0068\000\000\000\000\005\016\000#\005@\006d\b\006\000\000\002\144\003\000\005\146\001\128\002\224\005\226\001H\000\000\000\000\003$\006f\012\006\000\000\002\234\012\144#\242$&\000\000\000u\000\000\000\000\000\000\000\000\003\226>$\004J\000\000\007\020\004f\000\000!>7\016\000\129\000\000\000\213\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001R\004\014\000\000\000\000\000\000\011\028\000\000\000\234\000\000\000\000\004\218\002(\000\000\000\000\007\158\000\000\015\224\000\000\004\218\000\254\004\218\000\000\000\000\000\000\000\000\000\0007$\000\000\006\188\0050\000\000\0216\007.\027V\000\000\000\000\000\000\004\218\000\000\000\000\000\000\000\000\004\158\000\000\000\000\000\000\000\000\000\0001\206\000\000\000\000\000\000\000\000\000\000\000\000\000@\005v\000\000\000\000\000\000\004\158\005\1542*\005\028\0074;\138\000\000\005T\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\000\000\000\000\006\1362<\000\000\000\000\005\142\007\2302J\000\000\000\000\000\0003\000\005~32\000\000\005~\000\0003<\005~\000\0003\162#h\006j\006\178\000\000\000\000;\196\000\000\000\000\000\000\000\000\000\000\000\000\005~\000\000\000\0003\234\000\000\005~>\\\000\000\004\158\000\000\000\0004\160\000\000\005~\000>\000\000\000\000\005~\005~\000\000\000\000\005~\000\000\000\000$&\000\000\000\000\000\000\000\000\005~$\176\000\000\000\000\005~\000\000\001P\006\244\000\000\000\000\000\000\000\000\000\000\000\000\000\0007v\000\000\006\136\000\000>\134\004\158\000\000\000\000\000\000\000\000\006\200\007^\012\132\006\190\006\218\006\222\b\218\004\246\b\230\000\015\007\186\000\000\000\000\t \tl\tZ\000&\007R\n\198\000\000\004\200\004\174\003\254\000\222\b\198\000\000\000\000.\204\000\000DL\b\142\000\000>\192\004\158>\216\004\158\000\000\000\188\003>\000\000\012f\004\200\000\000\000\000\007\198\000\000\000\000\000\000\000\000\000\000\014\246\004\200\016^\004\200\000\000\002\230\000\000\000\000\003\148\000\000\000\000\000\000\t\024\000\000\000\000\000\000\004\200\000\000\000\000\004\200\000\000\007R\0060\000\000\000>\002\224\000\000\000>\000\000\000\000\0174\004\200\000\000\000\000\000\000\000\000\000\000\000\000\000>\012\206\rx\t\022\b\206\004\1404\170\000\000\b>\n\000\r\194\bz\n\002?\024?N\000\000\000\000\000\000\000\000\000\000\004\014\t\192\000\000\000\000\000\000\b\166\nD\006\198\000>\017\198\000\000\004\200\000\000\000\000\000\000\012\144\000\000?\170\004\158\r\204\b\190\np\014\022\b\228\nv\014<$l\005~\0154\t:\n\200:\024\n:\000\000$\144\005~?\180\004\158\n>\000\000\000\000\000\000\000\000#h\n&\000\0007\172\015<\t\186\n\2024\224\005~\015~\t\208\n\212?V\000\000?~\000\000\000\000\015\164\006.\007F\000\000\000\000\000\000\000\000@>\000\000\000\000\000\000\000\252\015\254\000\000\000\000\000\000\000\000%\n@\146\000\000\000\000\000\000\000\000\000\000\t\166\016n\000\000\t\208%`\t\208%\180\t\208\000\000@\208\000\000%\190\t\208\017\012\004T\017h\000\000\000\000&\"\t\208&~\t\208&\162\t\208'D\t\208'd\t\208'\150\t\208(0\t\208(b\t\208(\130\t\208(\252\t\208),\t\208)N\t\208)\248\t\208*\026\t\208*:\t\208*\220\t\208*\228\t\208+&\t\208+\200\t\208+\208\t\208\n\218\017t5j#h\n\176\000\000,\148;\246\000\000\018\006\000\000@\012\000\000\004\158\000\0007\246\002\160\004\218\026^\000\0008\000\000\000\000\000\000\0008D\000\000\000\000\026\244\000\000\027P\000\000\000\000\000\000\000\0000.\000\000\000\000\000\000/\170\t\2080n\t\208\000\000\n\026\027Z\000\000\000\000\027\180\000\0000\158\000\000\000\000?N\000\000\000\000\000\000\028\026\000\000\000\000\000\000\000\000\028J\000\000\000\000\000\000\000\000\011\204\000\000\000\000\000\0006\178\000\000\001\216\000\000\004F\000\000\011\150\000\000\002(\000\000\000\000\000\000\000\000\000\000\000\000\004\014\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\t\208\000\000\012\006\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\n\224\006\250\000>\028\196\000\000\011\024\n\228\011\194\004\180\007\182\000>\017\208\004\200\007\214\000>\000\000\029\026\000\000\006~\000\000\011\142\n\240\006\184\000\000\000\000\000\000\000\000\000\000\011\188\000\025\001\178\000\000\000\000\000\000<\154\000\000D\174\000\000\011$\000\000\011(\000\000\000\000\000\000\000\000\006\014\000\000\000\000\000\000\004\150\004\218\000\000\004\218\000\016\000\000\006j\004\218\004\218\011J\000\000\029\132\000\000\000\000\011T\012\142\000\000\029\180\b,\000\000\000\000\000\000\000\000\000\000\000\000\t\208\000\000\030\028\000\000\t\208\000\000\000\000\018L\000\000\004\200\000\000\018~\000\000\004\200\000\000\019>\004\200\000\000\001\b\000\000\011V\bp\001\244\000\000\011\208\011\216\011p\012\n\012\164\019\214\004\200\b\158\000\000\011\128\012\132\012\148\007\012\b\178\012l\011\152\012\176\007r\b\202\012\128\000\000\000\000\007\146\b\248\000\000\004\252\003 6\224\005~\030\128\000\000\006\000\003j\012:\011\154\t\n\003\184\000\000\012D\011\182\b\152\000\000A\206\004\158\012\244\012\248\000\000\t$\000\000\012h\011\196\bn\012\198\006\248\000\000\000\000\000\000\000\000\011\214\tn\000\000\011\244\t\146\000\000\bH3>\012\206\012\236\012\b\004\248\t\178\000\000\012\"\005\238\t\206\000\000\012\242\r\b\0126\r2\012\164\022\144\004\200\000\000\012>\r\164\000\000\b\006\000\000\nX\000\000\r\186\000\000\022\192\005\026\r\142\012J\r\200\000\000\0248\005Z\r\156\000\000\000\000\004\\\003^\n\138\000\000\024d\004\200\n\156\000\000\005\208\000\000\rZ\012~\024\140\005\168\000\000\r\\\012\142\b\194\012\198\r^\rh\012\170\014\196\000\000\r\160\003N\000\000\000\000\000\000\000\000\007\136\012\174\rxA\226\004\158\000\000\000i\012\186\014<\000\000\000\000\000\000\000\000\000\000\000\000A\242\006\026\000\000\012\198\014\144\000\000\000\000\000\000\000\000\000\000\000\000\022\b\000\000B2\004\158\n\160\000\000\004\158\012\214\b\196\000\000\012\246\012\254\t\248\000\000\n\150\026~\000\000\006\n\000\000B\166\004\158\004\158\000\000\000\000\006@\000\000\n \000\000\n\208\006@\006@\000\000\r$\":\004\158B\204\004\158\011x\000\000\000\000\000\000\000\000\011\154\000\000\000\000\0072\000\000\b\190\014\004\r6\015\028\r\214\000\000\000\000\011\166\t\002\014<\000\000\000\000\rH\015Z\014\024\000\000\000\000\012\158\000\000\b\188\000\000\015\2065|\004\158\000\000*\246\n\000\000\0002\226\000\000\000\000\000\000\006@\000\000\000\000\011\156\014~\r^\015\150\014h\000\000\000\0004l\011\180\014\216\000\000\000\000\000\0009\194\000\000\000\000\000\000\000\000\000\000\000\000\000\000\011\222\000\000\014\244\r`\005\014\000\000\015\230\015\162\011\238\015\012\000\000\000\000\015 \rn\005\236\000\000\000\000\tp7\016\006\182\000\000\000\000\000\000\tb\014\238\rv\000\000\015\004\tb\000\000\015\222\012*\015N\000\000\000\000\000\000\004\158\000O\000\208\t\020\000\000\000\000\000\000\000\000\015\018\rx\000\000\tl\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\158\015\000\r\128\016\\\015\022\000\0008\180\000\165\r\130\014\234\003\214\0000\r\138\015\162\000\000\016R\030\178\000\000\000\000\031\026\000\000\012T\000\000\004\246\000\000\000\000\000\000\000\000\000\000\000\000B\230\004\158\000\000\016X\031J\000\000\000\000\031\178\000\000\000\248\r\194\016\004\000\000\000\0009\002:\234\015\186\000\000B\246\004\158 \026\000\000\000\000 L\000\000\000\000\012t\000\000\002\162\000\000\000\000\000\000\000\000\000\000\000\000:\252\000\000\000\0009j;\006\015\188\000\000C\n\004\158 \176\000\000\000\000 \228\000\000\000\000\r\204!\024\012\146\000\000\r\208\r\230\003\136\003\210\r\242\b\154\014\006\016\024!\218\012\250\000\000\0140\014D\n*\000\000\005*<\196\000\000\007\234\000\000\014T9N9\182\005t\015\000\005\224\000\000;Z<\146\000\000\002\154\000\000\000\000\002\154\000\000\000\000\002\154\nZ\000\000\011\002\002\154\0166\"^\r(\000\000\002\154\000\000\000\000C\030\000\000\000\000\000\000\002\154\000\000\000\000\r\180\000\000\012\254\005\184\r\212\000\000\014j<\192\r\232\000\000\000\000\000\000\000\000\014\018\000\000\000\000\006*\000\000\002\154C\178\000\000\014\184\002\1549\194\000\000\014&\015\152\014n\016\178\015h\000\000:\006\014>\015\164\000\000\000\000\000\000\014\148\006\190\000\000\000\000\000\000\000\000\000\000\000\000\t\166\014\212\000\000\015\190\000\000\000\000\000\000\000\000\014\236=D\000\000\000\000\000\000\000\000\t\166\000\000\000\000\015\030=j\000\000\000\000\000\000\000\000\000\000\000>\004\200\000\000\000\000\005~\000\000C\200\004\158\000\000\007\214\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\015r\014\176\t\220\000>\000\000\024\240\000\000\004\200\000\000\016\186\000\000\000\000\000\000\000\000\000\000\"\130\000\000\000\000\000\000\000\000\000\000\000\000\016b\004\020\n4\014\238\007v\014\178\000\000\003\246\000\000\000\000\000\000\000\000\000\000\000\000\000\000\015\018\t\170\014\180\000\000\b\014\016\196\016|\015$\000\000\000\000\016t\004Z\004\\\000\000\000\000\000\000\014\186\000\000\014\200\002z\000\000\000\000\004\218\003\014\000\000\000\000\000\000\000\000\000\000\019\174\000\000\000\000\bd\bR\000\000\000\000D\000\004\158\004\158\000\000D\024\004\158\t\242\000\000\000\000\000\000\004\158\000\000\000\000\n\004\016\132\015d\000\000\000\000\016x\004\"\000R\000\000\000\000\000\000\000\000\011H\016\196\n\b\016\136\015l\000\000\000\000\016|\bR\003\b\000\000\000\000\000\000\000\000\004\200\000\000\n\178\000\000\000\000\000\000\"\252\000\000#,\000\000\000\000\000\000\000\000\000\000\000\226\000\000\000\000\000\000\007\016\000\151\000\000\000\000\000\000\000\000\000\000\000\020\000\151\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\t&\000\000\000\000\000\000=\164\000\000\004\158\000\000\n^\000\000\000\000\000\000\002\016\000\000\000\000\000\000\003T\000\000\000\000\000\000\000C\000\000\000\000\000\0000\184\005~\000\000\000\000\000|\000\000\000\000\000\000\000\000\004\014\004\194\015\188\004\150\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000'6\000\000\015\148\000\000\000\000\000\000\000\000\005\012\006\174\000\170\002L\000\000\000\000\015\174\003\238\000\000\000\000\000\000\015\206\005\144\000\000\000\000\000\000\000\000"), (16, "\006(\0007\002,\002-\001e\000q\001e\000;\001\031\003\007\001\216\006\156\000\147\006\203\006\189\001\233\001\031\002n\006)\006\214\001\240\006+\001\019\000?\001\244\002o\001\023\006\209\001\023\000@\006,\0069\006\232\005Y\000m\001\"\001\031\006(\002}\002,\002-\001e\0007\005\142\001k\000\196\004\005\000\196\000\200\000\201\000\200\000\201\001\159\001e\002n\006)\0068\007\004\006+\006-\000\147\002\012\002o\000\156\001\016\001\245\004\005\006,\0069\000\196\001\023\001\026\000\200\001\002\000\\\002}\005\229\006o\000`\001\246\002\014\001\003\007\012\002-\001e\007\005\000\147\001\214\000\157\001\233\000\203\004\254\000\203\006.\000d\001\240\006-\002\127\001T\001\244\006\207\001\023\006/\006(\000y\005\231\001\006\006I\001\016\0020\002\027\002\129\000\200\000\200\001\023\001$\001\016\005\001\007'\003\007\005\232\007(\001\023\001$\006+\005\234\006>\000\202\002\025\006\022\006.\0055\005\003\006,\002\127\001\027\001\016\005`\005a\006/\001\245\006?\001\023\001$\0007\001\031\0020\001W\002\129\000\200\007\014\0062\005\004\005q\006\216\001\031\0064\005j\004\019\0056\006\218\0057\006-\006>\000\128\0007\0066\001%\000\129\002\130\002\028\002\136\002\006\005\144\000:\001%\005Y\002\142\006?\001\139\002\132\004\b\0067\006\233\002,\002-\001e\006\185\0062\007\015\0058\002\129\000\200\0064\001.\001%\006.\001l\002\006\002n\002\144\004\011\004\t\0066\000\134\006/\002\130\002o\002\136\006(\003\007\002,\002-\001e\002\142\0009\001\139\002\132\006\186\0067\002}\001\251\004\014\0059\000\200\007*\002n\006)\0068\002\025\006+\000\203\005:\005;\002o\005<\000\203\002\144\000\196\006,\0069\000\200\001\002\002\026\0061\001\016\006(\002}\002,\002-\001e\001\023\001$\003\020\0062\001\016\000\200\001\002\005x\0064\005\177\001\023\001$\002n\006)\0068\000\132\006+\006-\0066\000\151\002o\006\142\005\179\000\135\001\221\006,\0069\0042\002\127\005`\005a\005>\006\220\002}\0067\003\178\005@\005J\002\014\003%\0020\000\150\002\129\000\200\000\196\005i\005t\000\200\001\002\005j\004\019\006.\000\183\001%\006-\002\127\001\182\000\172\006m\000\179\006/\006(\005u\001%\000\178\0041\000=\0020\002\027\002\129\000\200\000\200\002\133\001\031\000\184\003\184\007'\003\007\000\203\007(\001&\001\006\006+\003\245\006>\000\203\000\203\000\174\006.\0055\0010\006,\002\127\002\026\001\031\000\147\002\025\006/\000\152\006?\002\130\005\184\004#\000\188\0020\006\252\002\129\000\200\002\142\0062\001\139\002\132\000\196\001\031\0064\000\200\001\002\0056\006\200\0057\006-\006>\000\203\000\147\0066\006\132\001\233\002\130\002\028\002\136\000\153\002\144\004\000\004\002\004\004\002\142\006?\001\139\002\132\0007\0067\006\253\002,\002-\001e\0046\0062\001\023\0058\003\179\006\181\0064\000\196\001\016\006.\000\200\001\002\002n\002\144\001\023\001\026\0066\005\188\006/\002\130\002o\002\136\006(\001\031\002,\002-\001e\002\142\001\016\001\139\002\132\000\193\0067\002}\001\023\001$\0059\006\154\007)\002n\006)\0068\006\004\006+\003\179\005:\005;\002o\005<\001\016\002\144\000\147\006,\0069\000\152\001\023\001$\0061\006\149\006(\002}\002,\002-\001e\000\211\000\189\002\026\0062\001\016\002\014\003\007\005x\0064\006R\001\023\001$\002n\006)\0068\001(\006+\006-\0066\000\224\002o\006@\004\185\001%\000\228\006,\0069\000\147\002\127\000\181\001\233\005>\002\018\002}\0067\002\027\005@\005J\000\200\001\253\0020\001\016\002\129\000\200\001%\001\023\005t\001\023\001$\003K\006\150\006.\000\200\001\002\006-\002\127\0043\007\000\006<\001\016\006/\006(\005u\001%\000\203\001\023\001$\0020\006\152\002\129\000\200\006\150\002\133\001\236\006\199\000\147\007'\001\220\001\233\007(\003\192\001e\006+\001\240\006>\005\236\003\\\001\244\006.\001\023\003z\006,\002\127\007\001\003\007\002\028\000\200\006/\004\161\006?\002\130\000\200\004\031\000\186\0020\006\186\002\129\000\200\002\142\0062\001\139\002\132\000\241\002\025\0064\002\255\001e\003\180\001%\000\196\006-\006>\000\200\000\201\0066\003\007\002\000\002\130\001\245\002\136\000\249\002\144\001\023\006x\0007\002\142\006?\001\139\002\132\006\184\0067\001Y\002,\002-\001e\006\150\0062\007\024\002-\001e\005\229\0064\003\007\002\001\006.\001\031\000\196\002n\002\144\000\200\000\201\0066\004\\\006/\002\130\002o\002\136\006(\006\140\002,\002-\001e\002\142\006\014\001\139\002\132\003\007\0067\002}\005\231\006p\007\027\007\028\007-\002n\007\030\003\181\005\229\006+\001)\000\194\005\149\002o\006y\005\232\002\144\001\n\006,\007 \005\234\006\017\002\002\0061\006\001\006(\002}\002,\002-\001e\007/\001\r\000\147\0062\005C\001\233\006\019\005\231\0064\0007\007'\003\t\002n\007(\004\165\006z\006+\006-\0066\002\026\002o\003\007\005\232\001\030\006{\006,\0070\005\234\002\127\006|\006}\005\250\006\020\002}\0067\006\141\006\187\006\188\006~\006\127\0020\001`\002\129\000\200\000\203\007\025\001\016\002\129\000\200\006\128\004\019\006.\001\023\001$\006-\002\127\005j\004\019\000\204\003\228\006/\006(\003\007\002\014\006|\006}\006z\0020\004\167\002\129\000\200\001\016\002\133\006~\006\127\006{\007'\001\023\001$\007(\001\016\007#\006+\005\153\006\128\004\019\001\023\001$\006.\004\138\002\029\006,\002\127\002\027\003\007\004}\000\200\006/\002\148\006?\002\130\001\023\003\201\001;\0020\001%\002\129\000\200\002\142\0062\001\139\002\132\003\231\000\147\0064\005M\001\233\0074\000\212\000\196\006-\000\203\000\200\000\201\0066\001B\000\225\002\130\000\234\002\136\004\150\002\144\004\007\003\007\001G\002\142\006?\001\139\002\132\0007\0067\001\016\002,\002-\001e\001V\0062\001\023\001$\001\177\005\229\0064\000\236\002\028\006.\001\239\000\196\002n\002\144\000\200\000\201\0066\004\156\006/\002\130\002o\002\136\006(\006\b\002,\002-\001e\002\142\001\\\001\139\002\132\003\007\0067\002}\005\231\001\031\000\203\004Q\0072\002n\006)\006F\005\229\006+\000\203\003\007\000\203\002o\000\242\005\232\002\144\001\239\006,\0069\005\234\004\168\004\173\0061\005\241\006(\002}\002,\002-\001e\003\007\000\196\001\175\0062\000\200\000\201\000\203\005\231\0064\004\129\007'\002\014\002n\007(\003\245\001\023\006+\006-\0066\001\239\002o\001t\005\232\001\016\000\245\006,\007+\005\234\002\127\001\023\001\026\005\238\005\229\002}\0067\003\b\001\216\001~\002\015\006J\0020\002\027\002\129\000\200\000\200\004\167\001\240\000\203\006\225\004\206\001\244\006.\001\023\006\021\006-\002\127\001\031\001\135\001\239\001 \006/\005\231\0012\004\003\004\002\004\004\005\236\0020\004\246\002\129\000\200\001\016\002\133\002,\002-\001e\005\232\001\023\001$\003\232\006\017\005\234\0013\001\"\006>\005\235\002\014\000\203\006.\001Q\000\250\001\245\002\127\001\134\004\233\006\019\003_\006/\003\245\006?\002\130\002\028\003c\004W\0020\001\246\002\129\000\200\002\142\0062\001\139\002\132\002\014\0029\0064\001G\002\027\007.\001\181\000\200\003`\006\020\006\226\001\193\0066\001\031\001*\002\130\001+\002\136\001%\002\144\003\231\001E\004\240\002\142\006?\001\139\002\132\003\215\0067\004n\002\027\0018\000\200\000\200\0062\005R\004\002\004\004\004D\0064\001\"\000\203\006\227\001\198\001\016\004\r\002\144\006\234\001\023\0066\001\023\001$\002\130\004\027\002\136\006(\002/\002,\002-\001e\002\142\004\020\001\139\002\132\002\028\0067\003\241\004\019\0020\006\137\002\129\000\200\002n\006)\005\005\003\213\006+\001\203\001C\001\031\002o\001]\001 \002\144\000\203\006,\006B\006\235\0055\004I\002\028\003\231\004n\002}\002\014\000\200\001>\004q\001\031\001\139\005\001\001 \001\016\001%\003b\004N\001\"\001F\001\023\001\026\002\014\006\236\006\163\001\016\006-\005\003\0056\005w\0057\001\023\001$\003\223\001\209\005Y\002\027\001\"\002\005\000\200\002\130\006\237\001.\004`\001e\001H\003\007\005\004\002\131\003\227\001\139\002\132\002\027\000\203\003\231\000\200\000\203\006\198\001\226\0058\006.\001*\000\196\0007\002\127\000\200\000\201\006S\001\031\006/\003\231\005\026\006v\004\237\001\139\006\176\0020\004\144\002\129\000\200\001*\001\016\001u\001\023\001%\004\238\001\228\001\023\001$\005\006\001\243\001\016\0059\006E\006\017\001\"\002\028\001\023\001$\002\014\002\004\005:\005;\003\007\005<\002,\002-\001e\006?\006\019\001\016\001.\002\028\003\007\004\025\001\016\001\023\001$\0062\003\007\002n\001\023\001\026\0064\001\016\003\007\0045\005x\002o\002\027\001\023\001$\000\200\0066\006d\006\020\002\130\003\206\002\136\005`\005a\002}\005\224\001>\002\142\000\203\001\139\002\132\003\007\0067\001%\005>\003\202\003\007\005b\005r\005@\005J\001\031\005j\004\019\001 \001>\006\187\006\188\002&\005t\002\144\001\016\001%\003\007\004?\001\016\005y\001\023\001$\002\014\001.\001\023\001\026\001H\004E\005u\005j\004\019\001\"\006\162\005\007\006\240\002\028\002,\002-\001e\004J\000m\002)\001.\004k\004\019\001H\002\127\003\245\005Y\004[\001\204\002n\002\027\003\007\001\216\000\200\001\206\002\n\0020\002o\002\129\000\200\004O\0027\001\240\003\158\004n\005\015\001\244\000\200\001\023\003\007\002}\001%\001*\002F\001\031\004\237\001\031\005!\001\031\001 \005\211\001 \004g\004\177\004\019\003\007\005\\\004\238\002\133\003\245\001\216\004\245\002I\002\007\005f\004\002\004\004\004\240\001.\003\007\001\240\001\"\001\016\001\"\001\244\001\"\001\023\001\245\001\023\001$\002\028\000\203\001\213\002,\002-\001e\002\130\000\203\002\136\004s\005Y\001\246\005Y\000m\002\142\002\014\001\139\002\132\002n\002\127\004n\004\240\006\241\000\200\001\139\002O\002o\004v\005n\004\002\004\004\0020\006\248\002\129\000\200\001\245\001*\002\144\001*\002}\005`\005a\006^\004~\001>\002\027\003\245\002[\000\200\001\246\006\178\001%\006\192\005V\004\019\005b\005r\004\130\003\007\004\228\005j\004\019\000\200\002\133\001\016\000\203\001\016\002X\001\016\002^\001\023\001$\001\023\001$\001\023\001$\006\250\001\031\001.\004\242\001 \001H\000\200\003\007\005\219\002'\002*\000\200\006\130\002b\001\139\002\130\003\007\002\136\003\007\006\171\004\002\004\004\002\127\002\142\002g\001\139\002\132\003\007\001\"\002\028\001\031\003\n\005\243\001 \0020\000\200\002\129\000\200\005`\005a\005`\005a\001>\0028\001>\005Y\002\144\001%\002\141\001%\004\145\001%\006\195\005b\005r\005b\005r\001\"\005j\004\019\005j\004\019\002\196\001\016\002\220\002G\002\133\002\227\002J\001\023\001\026\001*\000\203\000\203\001.\004\162\001.\001\216\001.\001H\001\217\001H\006t\004\019\004\166\003\000\004\220\001\240\002,\002-\001e\001\244\001\016\001\023\002\130\006\206\002\136\003o\001\023\001\026\001*\001\016\002\142\002n\001\139\002\132\000\203\001\023\001$\002P\002c\002o\002,\002-\001e\002h\000\196\006i\002\192\000\200\000\201\003\214\004\237\003\220\002}\002\144\003\007\002n\000\203\003\235\001\016\000\203\001\245\003w\004\238\002o\001\023\001$\004\239\002,\002-\001e\003\172\003\007\003\007\006W\001\246\005\229\002}\005`\005a\004\237\001\016\001>\002n\003\252\003\007\003\254\001\023\001$\001%\001G\002o\004\238\006\174\006\175\003\182\004\244\004 \005j\004\019\003\204\000\203\000\203\004\016\002}\005\231\003\007\000\203\004\021\0044\000\203\0011\002\127\000\203\003\007\000\203\001.\003\219\001%\001H\005\232\000\203\004:\004\253\0020\005\234\002\129\000\200\001\016\005\245\004A\002,\002-\001e\001\023\001\026\002\127\003\221\001\187\001e\005\002\005*\004G\004Z\003\007\001.\002n\000\203\0020\000\203\002\129\000\200\001\031\0052\002o\005\030\002\133\004_\001f\002A\004\026\001h\001i\002\127\004j\003\007\000\203\002}\002,\002-\001e\000\203\000\203\004r\005?\0020\003\234\002\129\000\200\001\"\002\133\003\007\005G\002n\002\130\000\203\002\136\004\237\004u\004\015\004\023\002o\002\142\000\203\001\139\002\132\003\007\003\212\004|\004\238\003\148\003\001\003\002\005\014\002}\000\203\000\203\002\133\002\130\004@\003\026\004\128\005^\0049\001\216\002\144\002\142\001\238\001\139\002\132\000\203\004\134\005 \004;\001\240\004\140\002\127\000\203\001\244\004>\001\023\004\152\001\127\005\143\004M\002\130\000\203\002\136\0020\002\144\002\129\000\200\004C\002\142\001n\001\139\002\132\000\200\003\007\005\178\004L\000\203\001\016\002,\002-\001e\004H\004\171\001\023\005#\004K\000\203\004Y\002\127\005\204\004\176\002\144\004^\002n\001\245\002\133\003\007\003\151\003\156\000\203\0020\002o\002\129\000\200\004\181\004f\004\191\004e\001\246\000\203\004i\003\209\004\197\000\203\002}\002,\002-\001e\004\208\000\203\002,\002-\001e\002\130\000\196\002\136\004\223\000\200\000\201\001\129\002n\002\142\002\133\001\139\002\132\002n\005$\001\130\002o\001\139\001l\005\215\004\241\002o\003\195\000\203\004\227\004t\004\238\003\147\005)\002}\005&\000\203\002\144\005\229\002}\002,\002-\001e\002\130\004\127\002\136\001.\005\249\004\248\003\007\000\203\002\142\000\203\001\139\002\132\002n\002\127\005\t\000\203\004{\001d\001e\004\139\002o\000\203\003\007\005\019\005\231\0020\003\142\002\129\000\200\000\203\004\133\002\144\003\007\002}\005,\005B\004\135\001f\001v\005\232\001h\001i\005L\004\159\005\234\000\203\005X\005l\006\007\000\203\002\127\005|\005\130\003\007\004\147\002\127\005\134\002\133\006(\004\158\003\138\004\153\0020\003\007\002\129\000\200\004\157\0020\000\203\002\129\000\200\004\170\004\175\005\018\006\005\003\007\006)\000\203\004\180\006+\001w\004\183\001x\002L\005\162\002\130\000\203\003\026\006,\005\202\006\t\006\006\002\127\002\142\002\133\001\139\002\132\000\203\000\203\002\133\006\r\004\187\005\207\004\195\0020\000\203\002\129\000\200\005\246\000\203\000\203\001\127\004\202\004\213\000\203\000\203\002\144\006-\005\212\000\203\005\017\006\018\002\130\001n\002\136\005\n\000\200\002\130\005\011\002\136\002\142\006\030\001\139\002\132\003\141\002\142\002\133\001\139\002\132\005\242\002,\002-\001e\006%\002,\002-\001e\000\203\005\016\005\218\003\007\006.\000\203\002\144\000\203\002n\005\020\005\226\002\144\002n\006/\005\021\003\007\002o\002\130\000\203\002\136\002o\006\011\003\131\006 \000\203\002\142\003t\001\139\002\132\002}\002,\002-\001e\002}\000\203\0054\001\129\0060\000\196\005-\003\007\000\200\000\201\003\007\001\130\002n\001\139\001l\002\144\002,\002-\001e\0061\002o\005.\000\203\006]\006w\006\131\003l\001\216\006\145\0062\001\248\002n\000\203\002}\0064\006\147\005\229\001\240\0063\002o\000\203\001\244\003\007\001\023\0066\001\031\003\007\0053\005\030\003d\006:\000\203\002}\000\203\001\031\002\127\005I\001 \005E\002\127\0067\002,\002-\001e\005F\005\231\003\007\0020\005H\002\129\000\200\0020\001\"\002\129\000\200\006C\002n\005s\006\136\003\007\005\232\001\"\001\245\005W\002o\005\234\000\203\000\203\000\203\006\026\002z\000\203\002\127\005[\005]\003\007\001\246\002}\000\203\002\133\005_\005k\005{\002\133\0020\005}\002\129\000\200\005~\005\131\006\180\002\127\005\135\005\139\006\194\005 \005\157\002,\002-\001e\005\164\005\168\005\192\0020\001*\002\129\000\200\002\130\005\213\002\136\005\237\002\130\002n\002\136\007!\002\142\002\133\001\139\002\132\002\142\002o\001\139\002\132\005\247\006'\001\016\002\135\007,\006!\006\"\006&\001\023\005#\002}\001\016\002\133\002\127\0065\002\144\006\\\001\023\001$\002\144\0071\002\130\006g\002\136\006r\0020\006\134\002\129\000\200\002\142\006\135\001\139\002\132\006\139\006\179\006\183\006\193\006\197\007\019\000\000\002\130\000\000\003\026\000\000\000\000\000\000\000\000\000\000\002\142\000\000\001\139\002\132\002\144\002,\002-\001e\000\000\002\133\000\000\000\000\000\000\005$\000\000\001-\001\216\000\000\000\000\001\250\002n\002\127\001%\002\144\000\000\004\238\001\240\005(\002o\005&\001\244\000\000\001\023\0020\002\150\002\129\000\200\002\130\000\000\002\136\001.\002}\000\000\000\000\000\000\002\142\000\000\001\139\002\132\001.\000\000\002,\002-\001e\000\000\000\000\000\000\000\000\002\193\001e\000\000\000\000\000\000\000\000\000\000\002\133\002n\000\000\002\144\000\000\000\000\001\245\000\000\000\000\002o\000\000\000\000\000\000\002\236\001v\002\149\001h\001i\000\000\000\000\001\246\000\000\002}\000\000\000\000\000\000\000\000\000\000\002\130\000\000\002\136\000\000\000\000\000\000\000\000\002\127\002\142\000\000\001\139\002\132\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0020\000\000\002\129\000\200\000\000\000\000\000\000\000\000\002\241\003\001\003\002\001\216\002\144\000\000\002\022\000\000\000\000\000\000\002,\002-\001e\001\240\000\000\000\000\000\000\001\244\000\000\001\023\000\000\000\000\000\000\000\000\002\133\002n\002\127\000\000\002,\002-\001e\000\000\001\127\002o\000\000\000\000\000\000\000\000\0020\002\201\002\129\000\200\000\000\002n\001n\000\000\002}\000\200\000\000\000\000\000\000\002o\002\130\000\000\002\136\000\000\000\000\002\212\001\245\000\000\002\142\000\000\001\139\002\132\002}\002,\002-\001e\000\000\000\000\002\133\000\000\001\246\000\000\000\000\000\000\001\216\003\005\003\006\002<\002n\001\216\000\000\002\144\003\225\000\000\001\240\000\000\002o\000\000\001\244\001\240\001\023\000\000\002\224\001\244\000\000\001\023\002\130\000\000\002\136\002}\000\000\000\000\001\129\002\127\002\142\000\000\001\139\002\132\000\000\000\000\001\130\000\000\001\139\001l\000\000\0020\000\000\002\129\000\200\000\000\000\000\002\127\000\000\000\000\000\000\000\000\000\000\002\144\000\000\001\245\000\000\000\000\000\000\0020\001\245\002\129\000\200\000\000\002,\002-\001e\001\216\000\000\001\246\004(\000\000\000\000\002\133\001\246\000\000\000\000\001\240\000\000\002n\000\000\001\244\000\000\001\023\002\127\000\000\000\000\002o\000\000\000\000\000\000\002\133\001\216\002\231\000\000\004,\0020\000\000\002\129\000\200\002}\002\130\001\240\002\136\000\000\000\000\001\244\000\000\001\023\002\142\000\000\001\139\002\132\000\000\000\000\000\000\002,\002-\001e\002\130\000\000\002\136\001\245\000\000\000\000\000\000\000\000\002\142\002\133\001\139\002\132\002n\002\144\000\000\000\000\000\000\001\246\000\000\000\000\002o\002,\002-\001e\000\000\000\000\002\234\000\000\001\245\000\000\000\000\002\144\000\000\002}\000\000\001\031\002n\002\130\001 \002\136\002\127\000\000\001\246\000\000\002o\002\142\000\000\001\139\002\132\000\000\002\240\000\000\0020\000\000\002\129\000\200\000\000\002}\002,\002-\001e\000\000\001\"\000\000\000\000\000\000\000\000\000\000\002\144\001\216\000\000\000\000\004/\002n\002,\002-\001e\000\000\000\000\001\240\000\000\002o\000\000\001\244\002\133\001\023\000\000\002\243\000\000\002n\000\000\000\000\002\127\000\000\002}\000\000\000\000\002o\002,\002-\001e\000\000\000\000\003\r\0020\001*\002\129\000\200\000\000\000\000\002}\000\000\002\130\002n\002\136\000\000\002\127\000\000\000\000\000\000\002\142\002o\001\139\002\132\001\245\000\000\000\000\003\017\0020\000\000\002\129\000\200\000\000\000\000\002}\001\016\002\133\000\000\001\246\000\000\000\000\001\023\001$\002\144\000\000\001\216\000\000\000\000\004=\000\000\000\000\000\000\000\000\002\127\000\000\001\240\000\000\000\000\000\000\001\244\002\133\001\023\000\000\000\000\002\130\0020\002\136\002\129\000\200\002\127\000\000\000\000\002\142\000\000\001\139\002\132\000\000\000\000\000\000\000\000\000\000\0020\000\000\002\129\000\200\000\000\000\000\006\158\002\130\000\000\002\136\000\000\000\000\002\127\001%\002\144\002\142\002\133\001\139\002\132\001\245\000\000\000\000\000\000\000\000\0020\000\000\002\129\000\200\002,\002-\001e\000\000\002\133\001\246\000\000\000\000\000\000\000\000\002\144\000\000\001.\000\000\000\000\002n\002\130\000\000\002\136\000\000\000\000\000\000\001\031\002o\002\142\001 \001\139\002\132\002\133\000\000\000\000\000\000\002\130\003\023\002\136\000\000\002}\002,\002-\001e\002\142\000\000\001\139\002\132\000\000\000\000\000\000\002\144\000\000\001\"\000\000\000\000\002n\002,\002-\001e\002\130\001<\002\136\000\000\002o\000\000\000\000\002\144\002\142\000\000\001\139\002\132\002n\000\000\003\028\000\000\000\000\002}\000\000\000\000\002o\000\000\002,\002-\001e\000\000\000\000\000\000\000\000\000\000\003\030\002\144\000\000\002}\000\000\000\000\001*\002n\000\000\002\127\000\000\000\000\000\000\000\000\000\000\002o\000\000\000\000\000\000\000\000\000\000\0020\000\000\002\129\000\200\003\"\000\000\000\000\002}\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\016\000\000\000\000\000\000\000\000\001\031\001\023\001$\001 \000\000\002\127\000\000\000\000\000\000\000\000\000\000\000\000\002\133\000\000\000\000\000\000\000\000\0020\000\000\002\129\000\200\002\127\000\000\000\000\000\000\000\000\000\000\001\"\000\000\000\000\002,\002-\001e\0020\000\000\002\129\000\200\004\216\000\000\000\000\002\130\000\000\003\026\000\000\000\000\002n\002\127\001>\002\142\002\133\001\139\002\132\004\219\002o\001%\000\000\000\000\000\000\0020\000\000\002\129\000\200\000\000\003*\000\000\002\133\002}\000\000\000\000\000\000\001*\002\144\000\000\000\000\000\000\000\000\000\000\002\130\000\000\003\026\000\000\001.\000\000\000\000\001D\002\142\000\000\001\139\002\132\000\000\002\133\000\000\000\000\002\130\000\000\003\026\000\000\000\000\000\000\000\000\001\016\002\142\000\000\001\139\002\132\000\000\001\023\001$\002\144\000\000\000\000\000\000\000\000\000\000\000\000\002,\002-\001e\002\130\000\000\003\026\000\000\000\000\000\000\002\144\002\127\002\142\000\000\001\139\002\132\002n\002,\002-\001e\000\000\000\000\000\000\0020\002o\002\129\000\200\000\000\000\000\000\000\000\000\000\000\002n\000\000\0030\002\144\000\000\002}\001>\000\000\002o\002,\002-\001e\001\216\001%\000\000\004\137\000\000\004\221\0036\000\000\000\000\002}\001\240\002\133\002n\000\000\001\244\000\000\001\023\000\000\000\000\000\000\002o\002,\002-\001e\001\216\000\000\003=\004\149\001.\000\000\000\000\001H\000\000\002}\001\240\000\000\002n\000\000\001\244\002\130\001\023\003\026\000\000\000\000\002o\000\000\000\000\002\142\000\000\001\139\002\132\000\000\002\127\000\000\003N\001\245\000\000\002}\002,\002-\001e\000\000\000\000\000\000\0020\000\000\002\129\000\200\002\127\001\246\002\144\000\000\000\000\002n\002,\002-\001e\000\000\000\000\001\245\0020\002o\002\129\000\200\000\000\000\000\000\000\003B\000\000\002n\000\000\000\000\002\127\001\246\002}\000\000\002\133\002o\000\000\000\000\000\000\000\000\000\000\003G\0020\000\000\002\129\000\200\000\000\000\000\002}\000\000\002\133\000\000\000\000\000\000\002\127\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\130\000\000\003\026\000\000\0020\000\000\002\129\000\200\002\142\000\000\001\139\002\132\002\133\000\000\000\000\000\000\002\130\000\000\003\026\000\000\000\000\000\000\000\000\000\000\002\142\000\000\001\139\002\132\000\000\002\127\000\000\002\144\000\000\000\000\000\000\000\000\002\133\000\000\000\000\000\000\002\130\0020\002\136\002\129\000\200\002\127\000\000\002\144\002\142\000\000\001\139\002\132\000\000\000\000\002,\002-\001e\0020\000\000\002\129\000\200\002,\002-\001e\002\130\000\000\003\026\000\000\000\000\002n\000\000\002\144\002\142\002\133\001\139\002\132\002n\002o\000\000\000\000\000\000\000\000\000\000\000\000\002o\000\000\000\000\003S\001\216\002\133\002}\004\155\000\000\000\000\003X\002\144\000\000\002}\001\240\000\000\000\000\002\130\001\244\002\136\001\023\000\000\002,\002-\001e\002\142\001\216\001\139\002\132\004\164\000\000\000\000\000\000\002\130\000\000\002\136\001\240\002n\000\000\000\000\001\244\002\142\001\023\001\139\002\132\002o\001\216\000\000\002\144\004\172\000\000\000\000\000\000\000\000\000\000\003g\001\240\000\000\002}\001\245\001\244\000\000\001\023\000\000\002\144\002\127\000\000\002,\002-\001e\000\000\000\000\002\127\001\246\000\000\000\000\000\000\0020\000\000\002\129\000\200\001\245\002n\000\000\0020\000\000\002\129\000\200\000\000\000\000\002o\000\000\000\000\000\000\000\000\001\246\001\216\000\000\000\000\006b\003j\001\245\000\000\002}\000\000\000\000\001\240\000\000\000\000\002\133\001\244\000\000\001\023\000\000\000\000\001\246\002\133\002\127\000\000\000\000\002,\002-\001e\000\000\000\000\000\000\000\000\000\000\000\000\0020\000\000\002\129\000\200\000\000\000\000\002n\000\000\002\130\000\000\003\026\000\000\000\000\000\000\002o\002\130\002\142\003\026\001\139\002\132\003p\000\000\001\245\002\142\000\000\001\139\002\132\002}\002,\002-\001e\000\000\002\133\002\127\000\000\000\000\001\246\000\000\000\000\002\144\000\000\000\000\000\000\002n\000\000\0020\002\144\002\129\000\200\000\000\000\000\002o\002,\002-\001e\000\000\000\000\003r\000\000\000\000\002\130\000\000\003\026\000\000\002}\000\000\000\000\002n\002\142\000\000\001\139\002\132\000\000\000\000\000\000\002o\001\031\002\133\000\000\001 \000\000\003|\000\000\000\000\000\000\000\000\002\127\000\000\002}\000\000\000\000\002\144\000\000\000\000\000\000\000\000\000\000\000\000\0020\000\000\002\129\000\200\000\000\001\"\000\000\002\130\000\000\003\026\004\231\000\000\000\000\000\000\000\000\002\142\000\000\001\139\002\132\000\000\000\000\000\000\000\000\000\000\000\000\002\127\000\000\000\000\000\000\002,\002-\001e\002\133\000\000\000\000\000\000\000\000\0020\002\144\002\129\000\200\000\000\000\000\000\000\002n\000\000\000\000\000\000\001*\002\127\000\000\000\000\002o\000\000\000\000\000\000\000\000\000\000\003\133\000\000\002\130\0020\002\136\002\129\000\200\002}\000\000\000\000\002\142\002\133\001\139\002\132\000\000\000\000\000\000\002,\002-\001e\001\016\000\000\002,\002-\001e\000\000\001\023\001$\001\031\000\000\000\000\001 \002n\002\144\000\000\002\133\000\000\002n\000\000\002\130\002o\002\136\000\000\000\000\000\000\002o\003\136\002\142\000\000\001\139\002\132\003\150\000\000\002}\000\000\001\"\000\000\000\000\002}\000\000\000\000\000\000\000\000\002\130\000\000\002\136\002\127\002,\002-\001e\002\144\002\142\001>\001\139\002\132\000\000\000\000\000\000\0020\001%\002\129\000\200\002n\004\236\000\000\000\000\000\000\000\000\000\000\000\000\002o\000\000\000\000\000\000\002\144\000\000\003\153\000\000\001*\000\000\000\000\000\000\000\000\002}\000\000\000\000\001.\000\000\000\000\001H\002\133\000\000\002\127\000\000\000\000\000\000\000\000\002\127\002,\002-\001e\000\000\000\000\000\000\0020\000\000\002\129\000\200\001\016\0020\000\000\002\129\000\200\002n\001\023\001$\000\000\000\000\002\130\000\000\002\136\002o\002,\002-\001e\000\000\002\142\000\000\001\139\002\132\000\000\003\163\000\000\000\000\002}\000\000\002\133\002n\000\000\000\000\000\000\002\133\002\127\000\000\000\000\002o\000\000\000\000\000\000\002\144\000\000\000\000\000\000\000\000\0020\003\168\002\129\000\200\002}\000\000\001>\000\000\000\000\000\000\002\130\000\000\002\136\001%\000\000\002\130\000\000\002\136\002\142\000\000\001\139\002\132\000\000\002\142\000\000\001\139\002\132\000\000\000\000\002,\002-\001e\002\133\000\000\000\000\000\000\000\000\000\000\000\000\002\127\001.\002\144\000\000\001?\002n\000\000\002\144\000\000\000\000\000\000\000\000\0020\002o\002\129\000\200\000\000\000\000\000\000\003\217\000\000\002\130\000\000\002\136\002\127\000\000\002}\000\000\000\000\002\142\000\000\001\139\002\132\002,\002-\001e\0020\000\000\002\129\000\200\000\000\000\000\000\000\000\000\002\133\000\000\000\000\000\000\002n\000\000\000\000\000\000\002\144\000\000\000\000\000\000\002o\000\000\000\000\000\000\000\000\000\000\003\230\000\000\000\000\000\000\000\000\000\000\002\133\002}\000\000\000\000\002\130\000\000\003\026\000\000\000\000\000\000\000\000\000\000\002\142\000\000\001\139\002\132\000\000\002\127\002,\002-\001e\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\130\0020\003\026\002\129\000\200\002n\000\000\002\144\002\142\000\000\001\139\002\132\000\000\002o\000\000\002\193\001e\000\000\000\000\004\018\000\000\000\000\000\000\000\000\000\000\000\000\002}\000\000\000\000\000\000\000\000\002\144\002\127\002\133\000\000\002\236\001v\000\000\001h\001i\000\000\000\000\000\000\000\000\0020\000\000\002\129\000\200\000\000\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\130\000\000\002\136\000\000\000\000\000\000\001d\001e\002\142\000\000\001\139\002\132\000\000\000\000\000\000\002\133\002\241\003\001\003\002\000\000\000\000\000\000\000\000\000\000\002\127\000\000\001f\001v\000\000\001h\001i\002\144\000\000\000\000\000\000\000\000\0020\000\000\002\129\000\200\000\000\000\000\000\000\002\130\000\000\002\136\000\000\000\000\001\127\004\"\000\000\002\142\000\000\001\139\002\132\002,\002-\001e\000\000\000\000\001n\000\000\000\000\000\200\000\000\000\000\000\000\000\000\002\133\001w\002n\001x\002L\000\000\002\144\000\000\000\000\000\000\002o\000\000\002,\002-\001e\000\000\004U\000\000\000\000\000\000\000\000\000\000\000\000\002}\000\000\003\005\004\024\002n\002\130\000\000\002\136\000\000\001\127\000\000\000\000\002o\002\142\000\000\001\139\002\132\000\000\005\138\000\000\000\000\001n\000\000\000\000\000\200\002}\000\000\000\000\000\000\001\129\000\000\000\000\003\141\000\000\000\000\000\000\002\144\001\130\000\000\001\139\001l\002,\002-\001e\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\002\127\000\000\000\000\000\000\000\000\002o\002,\002-\001e\000\000\000\000\005\141\0020\000\000\002\129\000\200\000\000\000\000\002}\000\000\001\031\002n\001\129\001 \000\000\002\127\000\000\000\000\000\000\002o\001\130\000\000\001\139\001l\000\000\005\156\000\000\0020\000\000\002\129\000\200\000\000\002}\000\000\002\133\000\000\000\000\001\"\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\248\002,\002-\001e\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\133\000\000\006\144\002\130\002n\002\136\000\000\000\000\002\127\000\000\000\000\002\142\002o\001\139\002\132\000\000\000\000\000\000\005\159\000\000\0020\001*\002\129\000\200\000\000\002}\000\000\000\000\002\130\000\000\002\136\000\000\002\127\000\000\002\144\000\000\002\142\000\000\001\139\002\132\000\000\002,\002-\001e\0020\000\000\002\129\000\200\000\000\000\000\000\000\001\016\002\133\000\000\000\000\000\000\002n\001\023\001$\002\144\000\000\000\000\000\000\000\000\002o\000\000\002,\002-\001e\000\000\005\172\000\000\000\000\000\000\000\000\000\000\002\133\002}\000\000\000\000\002\130\002n\002\136\000\000\002\127\000\000\000\000\000\000\002\142\002o\001\139\002\132\000\000\000\000\000\000\005\175\0020\000\000\002\129\000\200\000\000\000\000\002}\001>\002\130\000\000\002\136\000\000\000\000\000\000\001%\002\144\002\142\000\000\001\139\002\132\002,\002-\001e\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\133\000\000\000\000\002n\000\000\000\000\000\000\002\144\002\127\001.\000\000\002o\003\255\000\000\002,\002-\001e\005\196\000\000\000\000\0020\000\000\002\129\000\200\002}\000\000\000\000\000\000\002\130\002n\002\136\000\000\000\000\002\127\000\000\000\000\002\142\002o\001\139\002\132\002,\002-\001e\005\199\000\000\0020\000\000\002\129\000\200\000\000\002}\000\000\002\133\000\000\000\000\002n\000\000\000\000\000\000\002\144\000\000\000\000\000\000\002o\000\000\000\000\000\000\001\031\000\000\005\203\001 \000\000\000\000\0012\000\000\000\000\002}\002\133\000\000\000\000\002\130\000\000\002\136\002\127\000\000\000\000\000\000\000\000\002\142\000\000\001\139\002\132\000\000\0013\001\"\0020\000\000\002\129\000\200\000\000\001O\000\000\000\000\000\000\000\000\002\130\000\000\002\136\000\000\002\127\000\000\002\144\000\000\002\142\000\000\001\139\002\132\000\000\000\000\000\000\000\000\0020\000\000\002\129\000\200\000\000\000\000\002\133\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\127\002\144\001*\002\193\001e\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0020\000\000\002\129\000\200\000\000\000\000\002\133\0018\002\130\000\000\002\136\002\236\001v\000\000\001h\001i\002\142\000\000\001\139\002\132\001\016\000\000\000\000\000\000\000\000\000\000\001\023\001$\000\000\000\000\000\000\000\000\002\133\000\000\002\130\000\000\002\136\000\000\000\000\002\144\000\000\000\000\002\142\000\000\001\139\002\132\001\031\000\000\000\000\001 \000\000\000\000\000\000\002\241\003\001\003\002\000\000\002\193\001e\000\000\002\130\000\000\002\136\000\000\000\000\002\144\000\000\000\000\002\142\000\000\001\139\002\132\001>\001\"\000\000\001d\001e\002\236\001v\001%\001h\001i\000\000\001F\000\000\001\127\000\000\000\000\000\000\000\000\000\000\002\144\000\000\000\000\000\000\001f\001v\001n\001h\001i\000\200\000\000\000\000\000\000\000\000\000\000\001.\000\000\000\000\001H\000\000\000\000\000\000\000\000\000\000\000\000\001*\000\000\006l\002\241\003\001\003\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\005\005\214\000\000\000\000\000\000\002,\002-\001e\001w\000\000\001x\002L\000\000\000\000\000\000\000\000\001\016\000\000\000\000\000\000\002n\001\127\001\023\001$\000\000\000\000\000\000\001\129\002o\002,\002-\001e\000\000\001n\006\210\001\130\000\200\001\139\001l\001\127\000\000\002}\000\000\000\000\002n\000\000\000\000\000\000\000\000\000\000\000\000\001n\002o\000\000\000\200\000\000\000\000\000\000\006\212\000\000\001d\001e\003\141\000\000\000\000\002}\003\005\005\248\001>\000\000\000\000\000\000\000\000\000\000\000\000\001%\000\000\000\000\000\000\004\249\001f\001v\004\252\001h\001i\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\129\000\000\000\000\000\000\000\000\000\000\000\000\002\127\001\130\001.\001\139\001l\001H\000\000\000\000\000\000\000\000\000\000\001\129\0020\000\000\002\129\000\200\000\000\000\000\000\000\001\130\000\000\001\139\001l\001w\002\127\001x\001\143\000\000\000\000\001d\001e\000\000\000\000\000\000\000\000\000\000\0020\000\000\002\129\000\200\000\000\000\000\000\000\000\000\002\133\000\000\000\000\000\000\000m\001f\001v\000\000\001h\001i\001\127\001d\001e\000\000\000\000\001\184\000\000\000\000\000\000\000\000\000\000\000\000\001n\000\000\002\133\000\200\000\000\000\000\002\130\000\000\002\136\001f\001v\000\000\001h\001i\002\142\000\000\001\139\002\132\000\000\001\169\000\000\000\000\000\000\000\000\001d\001e\001w\000\000\001x\001\172\002\130\000\000\002\136\000\000\000\000\000\000\000\000\002\144\002\142\000\000\001\139\002\132\001d\001e\001f\001v\000\000\001h\001i\000\000\000\000\000\000\001w\000\000\001x\001\172\000\000\001\127\001d\001e\001\129\002\144\001f\001v\000\000\001h\001i\000\000\001\130\001n\001\139\001l\000\200\000\000\000\000\000\000\000\000\000\000\001f\001v\000\000\001h\001i\001\127\000\000\000\000\000\000\001w\001\174\001x\002L\000\000\000\000\000\000\000\000\001n\000\000\000\000\000\200\000\000\000\000\000\000\002,\002-\001e\001w\000\000\001x\002T\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002n\001\127\000\000\000\000\001w\000\000\001x\001\172\002o\000\000\000\000\000\000\001\129\001n\000\000\000\000\000\200\000\000\000\000\001\127\001\130\002}\001\139\001l\003\137\000\000\000\000\000\000\002,\002-\001e\001n\000\000\000\000\000\200\001\127\000\000\000\000\001\129\000\000\000\000\000\000\000\000\002n\000\000\000\000\001\130\001n\001\139\001l\000\200\002o\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002W\000\000\000\000\002}\000\000\000\000\000\000\000\000\000\000\002,\002-\001e\001\129\000\000\002,\002-\001e\000\000\000\000\002\127\001\130\000\000\001\139\001l\002n\000\000\000\000\000\000\000\000\002n\001\129\0020\002o\002\129\000\200\000\000\000\000\002o\001\130\000\000\001\139\001l\000\000\000\000\000\000\002}\001\129\000\000\000\000\000\000\002}\000\000\000\000\000\000\001\130\000\000\001\139\001l\000\000\000\000\000\000\000\000\002\127\002\133\002,\002-\001e\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0020\000\000\002\129\000\200\000\000\002n\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002o\000\000\000\000\000\000\002\130\000\000\003\011\000\000\000\000\000\000\000\000\000\000\002\142\002}\001\139\002\132\000\000\002\127\000\000\002\133\000\000\000\000\002\127\002,\002-\001e\000\000\000\000\000\000\0020\000\000\002\129\000\200\000\000\0020\002\144\002\129\000\200\002n\000\000\000\000\002,\002-\001e\000\000\000\000\002o\002\130\000\000\002\138\000\000\000\000\000\000\000\000\000\000\002\142\002n\001\139\002\132\002}\000\000\002\133\000\000\000\000\002o\000\000\002\133\000\000\000\000\000\000\000\000\000\000\002\127\000\000\000\000\000\000\000\000\002}\002\144\000\000\000\000\000\000\000\000\000\000\0020\000\000\002\129\000\200\000\000\002\130\000\000\002\140\000\000\000\000\002\130\000\000\002\145\002\142\000\000\001\139\002\132\000\000\002\142\000\000\001\139\002\132\000\000\000\000\000\000\000\000\000\000\000\000\000\000\006(\000\000\000\000\002\133\000\000\002\127\000\000\002\144\000\000\002,\002-\001e\002\144\000\000\000\000\000\000\000\000\0020\007\030\002\129\000\200\006+\000\000\002\127\002n\002,\002-\001e\000\000\000\000\006,\002\130\002o\002\152\000\000\0020\000\000\002\129\000\200\002\142\002n\001\139\002\132\000\000\000\000\002}\000\000\000\000\002o\002\133\002,\002-\001e\000\000\000\000\000\000\000\000\000\000\000\000\006-\000\000\002}\002\144\000\000\000\000\002n\000\000\002\133\000\000\000\000\000\000\000\000\000\000\002o\000\000\000\000\000\000\002\130\000\000\002\154\000\000\000\000\000\000\000\000\000\000\002\142\002}\001\139\002\132\000\000\000\000\000\000\000\000\006.\000\000\002\130\000\000\002\156\000\000\000\000\000\000\000\000\006/\002\142\002\127\001\139\002\132\000\000\002\144\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0020\000\000\002\129\000\200\002\127\000\000\000\000\007\031\000\000\000\000\002\144\002,\002-\001e\000\000\000\000\0020\000\000\002\129\000\200\000\000\000\000\000\000\000\000\000\000\0061\002n\000\000\000\000\002\127\000\000\000\000\002\133\000\000\002o\0062\002,\002-\001e\000\000\0064\0020\000\000\002\129\000\200\000\000\000\000\002}\002\133\000\000\0066\002n\002,\002-\001e\000\000\000\000\000\000\000\000\002o\002\130\000\000\002\158\000\000\000\000\000\000\0067\002n\002\142\000\000\001\139\002\132\002}\002\133\000\000\002o\002\130\000\000\002\160\000\000\000\000\000\000\000\000\000\000\002\142\000\000\001\139\002\132\002}\000\000\000\000\002\144\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\130\000\000\002\162\000\000\000\000\002\127\002\144\000\000\002\142\000\000\001\139\002\132\002,\002-\001e\000\000\000\000\0020\000\000\002\129\000\200\000\000\000\000\000\000\000\000\000\000\000\000\002n\000\000\000\000\002\127\002\144\000\000\000\000\000\000\002o\002,\002-\001e\000\000\000\000\000\000\0020\000\000\002\129\000\200\002\127\000\000\002}\002\133\000\000\002n\000\000\002,\002-\001e\000\000\000\000\0020\002o\002\129\000\200\000\000\000\000\000\000\000\000\000\000\000\000\002n\000\000\000\000\000\000\002}\000\000\002\133\000\000\002o\002\130\000\000\002\164\000\000\000\000\000\000\000\000\000\000\002\142\000\000\001\139\002\132\002}\002\133\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\130\000\000\002\166\000\000\000\000\002\127\002\144\000\000\002\142\000\000\001\139\002\132\000\000\000\000\000\000\000\000\002\130\0020\002\168\002\129\000\200\000\000\000\000\000\000\002\142\000\000\001\139\002\132\000\000\002\127\000\000\002\144\000\000\000\000\000\000\000\000\002,\002-\001e\000\000\000\000\0020\000\000\002\129\000\200\000\000\002\127\002\144\000\000\002\133\000\000\002n\000\000\002,\002-\001e\000\000\000\000\0020\002o\002\129\000\200\000\000\000\000\000\000\000\000\000\000\000\000\002n\002,\002-\001e\002}\002\133\000\000\000\000\002o\002\130\000\000\002\170\000\000\000\000\000\000\000\000\002n\002\142\000\000\001\139\002\132\002}\002\133\000\000\002o\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\130\000\000\002\172\000\000\002}\000\000\000\000\002\144\002\142\000\000\001\139\002\132\000\000\000\000\000\000\000\000\000\000\002\130\000\000\002\174\000\000\000\000\000\000\000\000\000\000\002\142\000\000\001\139\002\132\000\000\002\127\002\144\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0020\000\000\002\129\000\200\000\000\002\127\002\144\002,\002-\001e\000\000\002,\002-\001e\000\000\000\000\000\000\0020\000\000\002\129\000\200\002\127\002n\000\000\000\000\000\000\002n\000\000\001\031\000\000\002o\005\030\002\133\0020\002o\002\129\000\200\000\000\000\000\000\000\000\000\000\000\000\000\002}\002,\002-\001e\002}\000\000\002\133\000\000\000\000\000\000\000\000\000\000\001\"\000\000\000\000\000\000\002n\002\130\000\000\002\176\000\000\000\000\002\133\000\000\002o\002\142\000\000\001\139\002\132\000\000\000\000\000\000\000\000\000\000\002\130\000\000\002\178\002}\000\000\000\000\000\000\000\000\002\142\000\000\001\139\002\132\000\000\000\000\002\144\000\000\002\130\000\000\002\180\000\000\000\000\005 \000\000\000\000\002\142\002\127\001\139\002\132\000\000\002\127\000\000\002\144\000\000\000\000\000\000\000\000\000\000\0020\000\000\002\129\000\200\0020\000\000\002\129\000\200\000\000\000\000\002\144\002,\002-\001e\001\016\002,\002-\001e\000\000\000\000\001\023\005#\000\000\000\000\000\000\002\127\002n\000\000\000\000\000\000\002n\000\000\002\133\000\000\002o\000\000\002\133\0020\002o\002\129\000\200\000\000\000\000\000\000\000\000\000\000\000\000\002}\000\000\000\000\000\000\002}\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\130\000\000\002\182\000\000\002\130\000\000\002\184\000\000\002\142\002\133\001\139\002\132\002\142\005$\001\139\002\132\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\238\000\000\005'\000\000\005&\000\000\002\144\000\000\000\000\000\000\002\144\000\000\002\130\000\000\002\186\001.\000\000\000\000\000\000\000\000\002\142\002\127\001\139\002\132\000\000\002\127\000\000\000\000\000\000\001d\001e\000\000\000\000\0020\000\000\002\129\000\200\0020\002\210\002\129\000\200\000\000\000\000\002\144\000\000\000\000\002\213\001d\001e\001f\002\214\000\000\001h\001i\000\000\000\000\002\210\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\213\002\133\000\000\001f\002\214\002\133\001h\001i\000\000\002,\002-\001e\000\000\002,\002-\001e\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002n\000\000\000\000\000\000\002n\002\130\000\000\002\188\002o\002\130\000\000\002\190\002o\002\142\000\000\001\139\002\132\002\142\000\000\001\139\002\132\002}\000\000\000\000\000\000\002}\000\000\000\000\000\000\000\000\000\000\002,\002-\001e\000\000\001m\002\144\000\000\000\000\000\000\002\144\000\000\000\000\000\000\000\000\000\000\002n\001n\000\000\000\000\000\200\000\000\000\000\001m\002o\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001n\000\000\002}\000\200\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\127\000\000\002\215\000\000\002\127\000\000\002,\002-\001e\000\000\000\000\000\000\0020\000\000\002\129\000\200\0020\000\000\002\129\000\200\002\215\002n\002\217\000\000\000\000\000\000\000\000\001\129\000\000\002o\000\000\000\000\000\000\000\000\000\000\001\138\000\000\001\139\001l\000\000\002\216\000\000\002}\000\000\002\133\001\129\002\127\000\000\002\133\000\000\000\000\000\000\000\000\001\138\000\000\001\139\001l\000\000\0020\000\000\002\129\000\200\002,\002-\001e\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\130\000\000\003.\000\000\002\130\002n\0034\000\000\002\142\000\000\001\139\002\132\002\142\002o\001\139\002\132\000\000\000\000\002\133\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002}\000\000\000\000\002\127\000\000\002\144\002,\002-\001e\002\144\002,\002-\001e\000\000\000\000\0020\000\000\002\129\000\200\000\000\002\130\002n\003:\000\000\000\000\002n\000\000\000\000\002\142\002o\001\139\002\132\000\000\002o\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002}\002,\002-\001e\002}\002\133\000\000\000\000\000\000\002\144\000\000\000\000\001\031\000\000\000\000\001 \002n\002\127\000\000\002,\002-\001e\000\000\000\000\002o\000\000\000\000\000\000\000\000\0020\000\000\002\129\000\200\002\130\002n\003@\000\000\002}\000\000\001\"\000\000\002\142\002o\001\139\002\132\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\002\127\000\000\002\133\000\000\002\127\002\144\002,\002-\001e\000\000\000\000\000\000\0020\000\000\002\129\000\200\0020\000\000\002\129\000\200\000\000\002n\000\000\001*\000\000\000\000\000\000\000\000\000\000\002o\002\130\000\000\003E\000\000\000\000\000\000\000\000\002\127\002\142\000\000\001\139\002\132\002}\000\000\002\133\000\000\000\000\000\000\002\133\0020\000\000\002\129\000\200\001\016\000\000\002\127\002,\002-\001e\001\023\001$\002\144\000\000\000\000\000\000\000\000\000\000\0020\000\000\002\129\000\200\002n\002\130\000\000\003J\000\000\002\130\000\000\003Q\002o\002\142\002\133\001\139\002\132\002\142\000\000\001\139\002\132\000\000\000\000\000\000\000\000\002}\000\000\000\000\000\000\000\000\000\000\000\000\002\133\000\000\002\127\000\000\002\144\000\000\001>\000\000\002\144\000\000\002\130\000\000\003V\001%\0020\000\000\002\129\000\200\002\142\000\000\001\139\002\132\000\000\000\000\001d\001e\000\000\000\000\002\130\000\000\003[\000\000\000\000\000\000\000\000\000\000\002\142\000\000\001\139\002\132\001.\002\144\000\000\001\225\001f\001v\002\133\001h\001i\000\000\000\000\000\000\002\127\000\000\000\000\002,\002-\001e\000\000\002\144\000\000\000\000\000\000\000\000\0020\000\000\002\129\000\200\000\000\000\000\002n\000\000\000\000\000\000\002\130\000\000\003^\000\000\002o\000\000\001\187\001e\002\142\000\000\001\139\002\132\000\000\001w\000\000\001x\002L\002}\000\000\001d\001e\000\000\002\133\000\000\000\000\000\000\001f\002A\000\000\001h\001i\002\144\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001f\001v\000\000\001h\001i\001\127\000\000\000\000\000\000\000\000\000\000\002\130\000\000\003\144\000\000\000\000\000\000\001n\000\000\002\142\000\200\001\139\002\132\000\000\000\000\000\000\000\000\000\000\003\140\003\148\003\001\003\002\000\000\001d\001e\000\000\000\000\002\127\000\000\000\000\000\000\000\000\002\144\001w\000\000\001x\007\b\000\000\007\n\0020\000\000\002\129\000\200\001f\001v\000\000\001h\001i\000\000\000\000\000\000\001\127\000\000\000\000\001\031\000\000\000\000\001 \000\000\000\000\0012\000\000\000\000\001n\001\127\000\000\000\200\001\129\000\000\000\000\000\000\002\133\000\000\000\000\000\000\001\130\001n\001\139\001l\000\200\0013\001\"\000\000\000\000\000\000\000\000\001w\0014\001x\006M\000\000\000\000\003\155\000\000\000\000\000\000\000\000\000\000\000\000\002\130\000\000\003\146\000\000\000\000\000\000\000\000\000\000\002\142\000\000\001\139\002\132\000\000\000\000\000\000\000\000\000\000\001\031\001\127\000\000\001 \000\000\000\000\0012\001\129\001*\000\000\000\000\000\000\000\000\001n\002\144\001\130\000\200\001\139\001l\000\000\001\129\000\000\000\000\000\000\000\000\0018\0013\001\"\001\130\000\000\001\139\001l\000\000\001M\000\000\000\000\000\000\000\000\001\016\001d\001e\000\000\000\000\000\000\001\023\001$\000\000\000\000\001d\001e\000\000\000\000\000\000\000\000\000\000\001d\001e\000\000\000\000\001f\001v\000\000\001h\001i\000\000\000\000\000\000\000\000\001f\001v\001*\001h\001i\001\129\000\000\001f\001v\000\000\001h\001i\000\000\001\130\000\000\001\139\001l\000\000\000\000\0018\000\000\000\000\001>\000\000\000\000\000\000\000\000\000\000\000\000\001%\000\000\000\000\001\016\001F\001w\000\000\001x\001\176\001\023\001$\000\000\000\000\000\000\001w\000\000\001x\001\164\000\000\000\000\000\000\001w\000\000\001x\001\161\000\000\000\000\001.\000\000\000\000\001H\000\000\000\000\000\000\000\000\000\000\001\127\000\000\000\000\000\000\000\000\001\031\000\000\000\000\005\030\001\127\000\000\000\000\001n\001d\001e\000\200\001\127\000\000\000\000\001>\000\000\001n\000\000\000\000\000\200\000\000\001%\000\000\001n\000\000\001F\000\200\001\"\001f\001v\000\000\001h\001i\001d\001e\000\000\0055\000\000\001d\001e\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001.\000\000\000\000\001H\000\000\001f\001v\000\000\001h\001i\001f\001v\000\000\001h\001i\000\000\0056\000\000\0057\001\129\000\000\000\000\005 \001w\000\000\001x\001z\001\130\001\129\001\139\001l\000\000\000\000\000\000\000\000\001\129\001\130\000\000\001\139\001l\000\000\001d\001e\001\130\000\000\001\139\001l\0058\001w\000\000\001x\001}\001\016\001w\001\127\001x\001\128\000\000\001\023\005#\000\000\001f\001v\000\000\001h\001i\001n\000\000\000\000\000\200\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001d\001e\001\127\0059\000\000\000\000\000\000\001\127\000\000\000\000\000\000\000\000\005:\005;\001n\005<\000\000\000\200\000\000\001n\001f\001v\000\200\001h\001i\000\000\000\000\001w\000\000\001x\001\160\000\000\000\000\000\000\005$\000\000\000\000\000\000\005v\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\238\000\000\005%\001\129\005&\000\000\000\000\000\000\000\000\000\000\000\000\001\130\001\127\001\139\001l\001.\005>\001w\000\000\001x\001\148\005@\005J\000\000\001n\000\000\001\031\000\200\001\129\005\030\000\000\005t\000\000\001\129\000\000\000\000\001\130\000\000\001\139\001l\000\000\001\130\000\000\001\139\001l\001d\001e\005u\001\127\002,\002-\001e\000\000\001\"\000\000\000\000\000\000\000\000\000\000\000\000\001n\000\000\000\000\000\200\000\000\001f\001v\000\000\001h\001i\000\000\000\000\003\176\000\000\000\000\000\000\000\000\001d\001e\003\185\000\000\000\000\000\000\000\000\001\129\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\130\000\000\001\139\001l\005 \001f\001v\000\000\001h\001i\003\198\000\000\000\000\000\000\000\000\000\000\001w\000\000\001x\001\156\000\000\000\000\001d\001e\000\000\000\000\000\000\000\000\001\129\000\000\000\000\000\000\000\000\000\000\001\016\000\000\001\130\000\000\001\139\001l\001\023\005#\001f\001v\000\000\001h\001i\001\127\001w\000\000\001x\002d\002/\000\000\001d\001e\000\000\000\000\000\000\001n\001d\001e\000\200\002\232\003\189\000\000\002\129\000\200\001\002\000\000\001\031\002\235\000\000\001 \001f\002\214\001I\001h\001i\001\127\001f\001v\000\000\001h\001i\001w\000\000\001x\002\246\000\000\000\000\001n\000\000\005$\000\200\000\000\001K\001\"\000\000\000\000\000\000\003\179\004\231\000\000\000\000\004\238\000\000\0051\000\000\005&\000\000\000\000\000\000\000\000\000\000\000\000\001\127\000\000\000\000\001\129\001.\000\000\000\000\001w\002\130\001x\002\249\001\130\001n\001\139\001l\000\200\002\131\000\000\001\139\002\132\000\000\000\000\000\000\000\000\001*\000\000\000\000\000\000\001d\001e\000\000\000\000\001m\000\000\000\000\001\129\000\000\000\000\001\127\000\000\000\000\0018\000\000\001\130\001n\001\139\001l\000\200\001f\001v\001n\001h\001i\000\200\001\016\000\000\000\000\000\000\000\000\000\000\001\023\001$\000\000\000\000\001d\001e\000\000\000\000\000\000\000\000\000\000\000\000\001\129\000\000\000\000\000\000\000\000\000\000\000\000\002\215\001\130\000\000\001\139\001l\001f\001v\000\000\001h\001i\000\000\000\000\001w\000\000\001x\002\252\000\000\000\000\000\000\000\000\000\000\000\000\002,\002-\001e\001\129\000\000\001>\000\000\000\000\000\000\001\129\000\000\001\138\001%\001\139\001l\000\000\005\029\001\130\000\000\001\139\001l\001\127\000\000\003\176\001d\001e\001w\000\000\001x\003\004\003\185\000\000\000\000\001n\000\000\000\000\000\200\000\000\000\000\001.\000\000\000\000\001H\000\000\001f\001v\000\000\001h\001i\000\000\000\000\000\000\000\000\003\186\000\000\001\031\000\000\001\127\001 \000\000\000\000\001I\000\000\000\000\000\000\001\031\000\000\000\000\001 \001n\000\000\0012\000\200\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001K\001\"\000\000\000\000\000\000\000\000\001w\000\000\001x\004S\0017\001\"\001\129\000\000\002/\000\000\000\000\000\000\001d\001e\001\130\000\000\001\139\001l\000\000\000\000\003\189\000\000\002\129\000\200\001\002\000\000\000\000\000\000\000\000\004\030\000\000\001\127\001f\002\214\000\000\001h\001i\000\000\001*\001d\001e\000\000\001\129\001n\000\000\000\000\000\200\000\000\001*\000\000\001\130\000\000\001\139\001l\000\000\0018\000\000\003\179\000\000\001f\002\214\000\000\001h\001i\000\000\0018\000\000\000\000\001\016\000\000\000\000\000\000\000\000\000\000\001\023\001$\001d\001e\001\016\000\000\002\130\001d\001e\000\000\001\023\001$\000\000\000\000\002\131\000\000\001\139\002\132\000\000\000\000\000\000\000\000\001f\002\214\000\000\001h\001i\001f\002\214\001\129\001h\001i\001m\000\000\000\000\000\000\000\000\001\130\000\000\001\139\001l\001d\001e\000\000\001n\000\000\001>\000\200\000\000\000\000\000\000\000\000\000\000\001%\000\000\000\000\001>\001F\000\000\001m\000\000\001f\002\214\001%\001h\001i\000\000\001F\000\000\000\000\000\000\001n\000\000\000\000\000\200\000\000\000\000\000\000\000\000\002\215\001.\000\000\000\000\001H\000\000\000\000\000\000\000\000\000\000\000\000\001.\000\000\000\000\001H\000\000\000\000\001m\001d\001e\000\000\000\000\001m\000\000\000\000\001\129\000\000\003}\000\000\001n\000\000\000\000\000\200\001\138\001n\001\139\001l\000\200\001f\002\214\000\000\001h\001i\000\000\000\000\000\000\003\128\000\000\000\000\000\000\000\000\000\000\001\129\000\000\000\000\000\000\001m\001d\001e\000\000\001\138\000\000\001\139\001l\003}\000\000\000\000\000\000\001n\003}\000\000\000\200\000\000\000\000\005\176\000\000\000\000\001f\002\214\000\000\001h\001i\000\000\003\127\000\000\000\000\000\000\000\000\003~\001\129\000\000\000\000\000\000\000\000\001\129\001d\001e\001\138\000\000\001\139\001l\000\000\001\138\003}\001\139\001l\000\000\000\000\000\000\001d\001e\000\000\001m\000\000\000\000\001f\002\214\000\000\001h\001i\000\000\000\000\003\130\000\000\001n\000\000\005\200\000\200\001\129\001f\002\214\000\000\001h\001i\000\000\000\000\001\138\000\000\001\139\001l\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001d\001e\000\000\0055\001m\000\000\001d\001e\000\000\000\000\000\000\000\000\006\027\000\000\000\000\000\000\001n\000\000\000\000\000\200\001f\002\214\000\000\001h\001i\000\000\001f\002\214\000\000\001h\001i\0056\000\000\0057\000\000\000\000\000\000\001\129\000\000\000\000\001d\001e\001m\000\000\000\000\001\138\000\000\001\139\001l\001d\001e\002\215\000\000\000\000\001n\000\000\001m\000\200\000\000\006\029\001f\002\214\0058\001h\001i\000\000\000\000\000\000\001n\001f\002\214\000\200\001h\001i\000\000\000\000\001\129\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\138\000\000\001\139\001l\000\000\005\227\000\000\000\000\000\000\000\000\001m\0059\000\000\000\000\000\000\000\000\001m\000\000\000\000\002\215\005:\005;\001n\005<\000\000\000\200\000\000\000\000\001n\000\000\001\129\000\200\000\000\000\000\000\000\000\000\000\000\000\000\001\138\000\000\001\139\001l\000\000\000\000\001\129\000\000\005=\000\000\000\000\000\000\001m\005\240\001\138\000\000\001\139\001l\000\000\005\227\000\000\001m\000\000\000\000\001n\006\027\000\000\000\200\000\000\000\000\000\000\000\000\005>\001n\000\000\000\000\000\200\005@\005J\001\031\000\000\000\000\001 \000\000\001\129\000\000\000\000\005t\001\031\000\000\001\129\001 \001\138\001\031\001\139\001l\001 \000\000\001\138\006\027\001\139\001l\000\000\005u\000\000\005\239\001\"\000\000\003\129\000\000\001\031\000\000\006\028\001 \000\000\001\"\004\216\000\000\000\000\000\000\001\"\000\000\000\000\000\000\001\129\004\216\000\000\002,\002-\001e\004\216\005\173\001\138\001\129\001\139\001l\000\000\001\"\000\000\006\159\005\187\001\138\000\000\001\139\001l\005\197\006$\000\000\000\000\001*\003_\000\000\001d\001e\000\000\000\000\000\000\000\000\001*\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\001f\001g\005\233\001h\001i\000\000\000\000\001\016\001*\001d\001e\000\000\000\000\001\023\001$\000\000\001\016\000\000\000\000\000\000\000\000\001\016\001\023\001$\000\000\000\000\000\000\001\023\001$\001f\001\137\000\000\001h\001i\001d\001e\000\000\000\000\001\016\000\000\000\000\000\000\000\000\000\000\001\023\001$\000\000\000\000\000\000\000\000\002/\000\000\000\000\000\000\001f\002\199\000\000\001h\001i\001>\000\000\000\000\0020\000\000\002\129\000\200\001%\000\000\001>\000\000\004\221\000\000\000\000\001>\001m\001%\000\000\000\000\000\000\004\221\001%\000\000\001\031\000\000\004\221\001 \001n\000\000\000\000\000\200\001>\000\000\000\000\001.\000\000\000\000\001H\001%\003b\000\000\000\000\006\166\001.\001m\000\000\001H\000\000\001.\000\000\001\"\001H\002,\002-\001e\000\000\001n\000\000\000\000\000\200\002\225\000\000\000\000\002\130\001\031\001.\000\000\001 \001H\001m\000\000\002\131\000\000\001\139\002\132\003_\000\000\000\000\000\000\000\000\000\000\001n\000\000\001\031\000\200\001\031\001 \001\129\001 \000\000\000\000\001\"\000\000\001*\000\000\001\138\000\000\001\139\001l\000\000\000\000\003\248\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\"\000\000\001\"\000\000\000\000\003\251\001\129\005\222\000\000\000\000\000\000\000\000\000\000\001\016\001\138\000\000\001\139\001l\000\000\001\023\001$\000\000\000\000\000\000\001*\000\000\000\000\000\000\000\000\006(\000\000\001\129\000\000\000\000\000\000\000\000\000\000\002/\000\000\001\138\000\000\001\139\001l\001*\000\000\001*\000\000\006)\006(\0020\006+\002\129\000\200\000\000\001\016\000\000\000\000\000\000\000\000\006,\001\023\001$\000\000\000\000\000\000\001>\006)\000\000\000\000\006+\000\000\000\000\001%\001\016\000\000\001\016\002\207\000\000\006,\001\023\001$\001\023\001$\000\000\000\000\003a\000\000\001\031\006-\000\000\001 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001.\000\000\001\031\001H\000\000\001 \000\000\001>\006-\000\000\002\130\000\000\000\000\000\000\001%\001\"\000\000\000\000\002\131\000\000\001\139\002\132\000\000\006.\000\000\000\000\001>\000\000\001>\001\"\000\000\000\000\006/\001%\000\000\001%\000\000\004\249\000\000\004\236\006\012\001.\006.\000\000\003\255\000\000\002,\002-\001e\000\000\000\000\006/\001\031\000\000\006\244\001 \006;\000\000\001*\000\000\001.\000\000\001.\001H\000\000\001H\000\000\000\000\000\000\006Z\000\000\0061\001*\000\000\000\000\006D\000\000\000\000\000\000\001\"\001\031\0062\000\000\001 \000\000\000\000\0064\000\000\001\016\000\000\0061\000\000\000\000\000\000\001\023\001$\0066\000\000\000\000\000\000\0062\001\031\001\016\000\000\001 \0064\000\000\001\"\001\023\001$\000\000\000\000\0067\000\000\000\000\0066\000\000\000\000\000\000\000\000\000\000\000\000\001*\000\000\000\000\000\000\000\000\000\000\001\"\000\000\001\031\0067\000\000\001 \000\000\000\000\000\000\000\000\000\000\000\000\001>\002/\001\031\000\000\000\000\001 \000\000\001%\000\000\000\000\001*\006\245\001\016\0020\001>\002\129\000\200\001\"\001\023\001$\000\000\001%\000\000\000\000\000\000\006\205\002,\002-\001e\001\"\000\000\001*\000\000\000\000\001.\000\000\000\000\001H\000\000\000\000\001\016\000\000\000\000\000\000\000\000\000\000\001\023\001$\001.\003\193\000\000\001H\000\000\002,\002-\001e\000\000\002,\002-\001e\001*\001\016\000\000\000\000\001>\000\000\000\000\001\023\001$\000\000\000\000\001%\001*\002\130\000\000\001X\002.\002,\002-\001e\002i\002\131\000\000\001\139\002\132\000\000\000\000\000\000\000\000\000\000\001\016\000\000\001>\000\000\000\000\000\000\001\023\001$\001.\001%\002k\001H\001\016\001\151\000\000\000\000\000\000\001\031\001\023\001$\001 \000\000\001\031\001>\000\000\001 \000\000\000\000\000\000\000\000\001%\002/\000\000\000\000\001\192\000\000\001.\000\000\000\000\001H\000\000\000\000\000\000\0020\001\"\002\129\000\200\000\000\000\000\001\"\000\000\000\000\001>\000\000\000\000\000\000\000\000\001.\002/\001%\001H\000\000\002/\001\230\001>\000\000\001\031\000\000\000\000\001 \0020\001%\002\129\000\200\0020\001\232\002\129\000\200\000\000\000\000\000\000\000\000\002/\002,\002-\001e\001.\001*\000\000\001H\000\000\000\000\001*\001\"\0020\000\000\002\129\000\200\001.\000\000\000\000\001H\000\000\002\130\000\000\000\000\002u\000\000\000\000\000\000\000\000\002\131\000\000\001\139\002\132\000\000\000\000\001\016\000\000\000\000\000\000\000\000\001\016\001\023\001$\002,\002-\001e\001\023\001$\002\130\000\000\000\000\000\000\002\130\000\000\001*\000\000\002\131\000\000\001\139\002\132\002\131\000\000\001\139\002\132\000\000\000\000\002\128\000\000\000\000\000\000\000\000\000\000\002\130\000\000\002,\002-\001e\000\000\000\000\000\000\002\131\000\000\001\139\002\132\001\016\001\031\000\000\001>\001 \000\000\001\023\001$\001>\000\000\001%\000\000\002/\002\143\002C\001%\000\000\001\031\000\000\002V\001 \000\000\000\000\000\000\0020\000\000\002\129\000\200\001\"\000\000\000\000\000\000\000\000\001\031\000\000\000\000\001 \001.\000\000\000\000\001H\000\000\001.\000\000\001\"\001H\000\000\000\000\001\031\000\000\000\000\001 \001>\000\000\002/\000\000\000\000\000\000\000\000\001%\001\"\000\000\000\000\002\204\000\000\000\000\0020\000\000\002\129\000\200\000\000\001*\000\000\000\000\000\000\001\"\000\000\000\000\000\000\002,\002-\001e\000\000\000\000\002\130\002/\001.\001*\000\000\001H\000\000\000\000\002\131\000\000\001\139\002\132\000\000\0020\000\000\002\129\000\200\001\016\003'\001*\000\000\000\000\000\000\001\023\001$\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\016\001*\000\000\000\000\000\000\000\000\001\023\001$\001\031\002\130\000\000\001 \000\000\000\000\000\000\000\000\001\016\002\131\001\031\001\139\002\132\001 \001\023\001$\000\000\000\000\001\031\000\000\000\000\001 \000\000\001\016\000\000\000\000\000\000\001\"\001>\001\023\001$\000\000\002\130\000\000\000\000\001%\000\000\001\"\000\000\002\209\002\131\000\000\001\139\002\132\001>\001\"\000\000\000\000\000\000\002/\001\031\001%\000\000\001 \000\000\002\222\000\000\000\000\000\000\000\000\001>\0020\001.\002\129\000\200\001H\000\000\001%\000\000\000\000\001*\002\229\000\000\000\000\000\000\001>\000\000\001\"\001.\000\000\001*\001H\001%\000\000\000\000\000\000\002\238\000\000\001*\000\000\000\000\000\000\000\000\000\000\001.\000\000\000\000\001H\000\000\000\000\001\016\000\000\000\000\000\000\000\000\000\000\001\023\001$\001\031\001.\001\016\001 \001H\000\000\000\000\000\000\001\023\001$\001\016\000\000\001*\002\130\000\000\000\000\001\023\001$\000\000\001\031\000\000\002\131\001 \001\139\002\132\000\000\000\000\001\"\000\000\000\000\000\000\000\000\001\031\000\000\000\000\001 \000\000\000\000\000\000\000\000\001\031\000\000\001\016\001 \001>\000\000\001\"\000\000\001\023\001$\001\031\001%\000\000\001 \001>\004b\000\000\000\000\000\000\001\"\001\031\001%\001>\005\030\000\000\004\193\000\000\001\"\000\000\001%\001*\000\000\000\000\004\205\000\000\000\000\000\000\001\"\001.\000\000\000\000\001H\000\000\000\000\000\000\000\000\000\000\001\"\001.\001*\000\000\001H\000\000\000\000\001>\000\000\001.\000\000\000\000\001H\001\016\001%\001*\000\000\000\000\004\218\001\023\001$\000\000\000\000\001*\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\016\001*\000\000\000\000\000\000\000\000\001\023\001$\000\000\001.\000\000\005 \001H\001\016\000\000\001\031\000\000\000\000\005\030\001\023\001$\001\016\000\000\000\000\000\000\000\000\001\031\001\023\001$\001 \000\000\001\016\000\000\001>\000\000\000\000\000\000\001\023\001$\000\000\001%\001\016\001\"\000\000\004\235\000\000\000\000\001\023\005#\000\000\000\000\000\000\001>\001\"\001\031\000\000\000\000\001 \000\000\001%\000\000\000\000\000\000\004\251\000\000\001>\001\031\001.\000\000\001 \001H\000\000\001%\001>\000\000\000\000\005\152\000\000\000\000\000\000\001%\001\"\000\000\001>\005\170\005 \001.\000\000\000\000\001H\001%\000\000\001\031\001\"\005\194\001 \001*\000\000\000\000\001.\005$\000\000\001H\000\000\000\000\000\000\000\000\001.\000\000\000\000\001H\000\000\004\238\000\000\005\254\001\016\005&\001.\000\000\001\"\001H\001\023\005#\000\000\001*\000\000\001\016\001.\000\000\000\000\000\000\000\000\001\023\001$\000\000\000\000\001*\000\000\000\000\000\000\000\000\001\031\000\000\000\000\001 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\016\000\000\000\000\000\000\000\000\000\000\001\023\001$\001*\000\000\000\000\000\000\001\016\000\000\001\"\000\000\000\000\000\000\001\023\001$\005$\000\000\000\000\000\000\001>\000\000\000\000\000\000\000\000\000\000\000\000\001%\004\238\000\000\006\024\006P\005&\000\000\001\016\000\000\000\000\000\000\000\000\000\000\001\023\001$\000\000\001.\000\000\000\000\000\000\000\000\001>\000\000\000\000\000\000\000\000\001*\001.\001%\000\000\001H\000\000\006\165\001>\000\000\000\000\000\000\000\000\000\000\000\000\001%\000\000\000\000\000\000\006\169\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001.\001\016\000\000\001H\001>\000\000\000\000\001\023\001$\000\000\000\000\001%\001.\000\000\000\000\001H\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\001\227\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\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\001.\000\000\000\000\003\250")) 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) = # 3747 "parsing/parser.mly" ( "+" ) # 1382 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3748 "parsing/parser.mly" ( "+." ) # 1407 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3300 "parsing/parser.mly" ( _1 ) # 1432 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 = _; 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 = ty; CamlinternalMenhirLib.EngineTypes.startp = _startpos_ty_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_ty_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; }; } = _menhir_stack in let tyvar : (Asttypes.label) = Obj.magic tyvar in let _3 : unit = Obj.magic _3 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_tyvar_ in let _v : (Parsetree.core_type) = let _1 = let _1 = # 3303 "parsing/parser.mly" ( Ptyp_alias(ty, tyvar) ) # 1479 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_tyvar_, _startpos_ty_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 922 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 1488 "parsing/parser.ml" in # 3305 "parsing/parser.mly" ( _1 ) # 1494 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 * 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_binding) = let attrs2 = let _1 = _1_inlined2 in # 3833 "parsing/parser.mly" ( _1 ) # 1542 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 1551 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2556 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in mklb ~loc:_sloc false body attrs ) # 1563 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3631 "parsing/parser.mly" ( _1 ) # 1588 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3632 "parsing/parser.mly" ( Lident _1 ) # 1613 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 3361 "parsing/parser.mly" ( _2 ) # 1652 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.core_type) = 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 # 3421 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) # 1719 "parsing/parser.ml" in let _3 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 1729 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 1735 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3363 "parsing/parser.mly" ( wrap_typ_attrs ~loc:_sloc (reloc_typ ~loc:_sloc _4) _3 ) # 1744 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.core_type) = let _1 = let _1 = # 3366 "parsing/parser.mly" ( Ptyp_var _2 ) # 1777 "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 # 922 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 1786 "parsing/parser.ml" in # 3398 "parsing/parser.mly" ( _1 ) # 1792 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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.core_type) = let _1 = let _1 = # 3368 "parsing/parser.mly" ( Ptyp_any ) # 1818 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 922 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 1826 "parsing/parser.ml" in # 3398 "parsing/parser.mly" ( _1 ) # 1832 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.core_type) = let _1 = let _1 = let tid = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 1863 "parsing/parser.ml" in let tys = # 3413 "parsing/parser.mly" ( [] ) # 1869 "parsing/parser.ml" in # 3371 "parsing/parser.mly" ( Ptyp_constr(tid, tys) ) # 1874 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 922 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 1883 "parsing/parser.ml" in # 3398 "parsing/parser.mly" ( _1 ) # 1889 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.core_type) = let _1 = let _1 = let tid = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 1927 "parsing/parser.ml" in let tys = # 3415 "parsing/parser.mly" ( [ty] ) # 1933 "parsing/parser.ml" in # 3371 "parsing/parser.mly" ( Ptyp_constr(tid, tys) ) # 1938 "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 # 922 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 1948 "parsing/parser.ml" in # 3398 "parsing/parser.mly" ( _1 ) # 1954 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.core_type) = 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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 2007 "parsing/parser.ml" in let tys = let tys = let xs = # 253 "" ( List.rev xs ) # 2015 "parsing/parser.ml" in # 1047 "parsing/parser.mly" ( xs ) # 2020 "parsing/parser.ml" in # 3417 "parsing/parser.mly" ( tys ) # 2026 "parsing/parser.ml" in # 3371 "parsing/parser.mly" ( Ptyp_constr(tid, tys) ) # 2032 "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 # 922 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 2042 "parsing/parser.ml" in # 3398 "parsing/parser.mly" ( _1 ) # 2048 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.object_field list * Asttypes.closed_flag) = 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) = let _1 = let _1 = # 3373 "parsing/parser.mly" ( let (f, c) = _2 in Ptyp_object (f, c) ) # 2088 "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 # 922 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 2097 "parsing/parser.ml" in # 3398 "parsing/parser.mly" ( _1 ) # 2103 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.core_type) = let _1 = let _1 = # 3375 "parsing/parser.mly" ( Ptyp_object ([], Closed) ) # 2136 "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 # 922 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 2145 "parsing/parser.ml" in # 3398 "parsing/parser.mly" ( _1 ) # 2151 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.core_type) = let _1 = let _1 = let cid = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 2189 "parsing/parser.ml" in let tys = # 3413 "parsing/parser.mly" ( [] ) # 2195 "parsing/parser.ml" in # 3379 "parsing/parser.mly" ( Ptyp_class(cid, tys) ) # 2200 "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 # 922 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 2210 "parsing/parser.ml" in # 3398 "parsing/parser.mly" ( _1 ) # 2216 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.core_type) = let _1 = let _1 = let cid = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 2261 "parsing/parser.ml" in let tys = # 3415 "parsing/parser.mly" ( [ty] ) # 2267 "parsing/parser.ml" in # 3379 "parsing/parser.mly" ( Ptyp_class(cid, tys) ) # 2272 "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 # 922 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 2282 "parsing/parser.ml" in # 3398 "parsing/parser.mly" ( _1 ) # 2288 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.core_type) = 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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 2348 "parsing/parser.ml" in let tys = let tys = let xs = # 253 "" ( List.rev xs ) # 2356 "parsing/parser.ml" in # 1047 "parsing/parser.mly" ( xs ) # 2361 "parsing/parser.ml" in # 3417 "parsing/parser.mly" ( tys ) # 2367 "parsing/parser.ml" in # 3379 "parsing/parser.mly" ( Ptyp_class(cid, tys) ) # 2373 "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 # 922 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 2383 "parsing/parser.ml" in # 3398 "parsing/parser.mly" ( _1 ) # 2389 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.row_field) = 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) = let _1 = let _1 = # 3382 "parsing/parser.mly" ( Ptyp_variant([_2], Closed, None) ) # 2429 "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 # 922 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 2438 "parsing/parser.ml" in # 3398 "parsing/parser.mly" ( _1 ) # 2444 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.core_type) = let _1 = let _1 = let _3 = let _1 = let xs = # 253 "" ( List.rev xs ) # 2494 "parsing/parser.ml" in # 1019 "parsing/parser.mly" ( xs ) # 2499 "parsing/parser.ml" in # 3427 "parsing/parser.mly" ( _1 ) # 2505 "parsing/parser.ml" in # 3384 "parsing/parser.mly" ( Ptyp_variant(_3, Closed, None) ) # 2511 "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 # 922 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 2521 "parsing/parser.ml" in # 3398 "parsing/parser.mly" ( _1 ) # 2527 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.row_field list) = Obj.magic xs in let _3 : unit = Obj.magic _3 in let _2 : (Parsetree.row_field) = 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 : (Parsetree.core_type) = let _1 = let _1 = let _4 = let _1 = let xs = # 253 "" ( List.rev xs ) # 2584 "parsing/parser.ml" in # 1019 "parsing/parser.mly" ( xs ) # 2589 "parsing/parser.ml" in # 3427 "parsing/parser.mly" ( _1 ) # 2595 "parsing/parser.ml" in # 3386 "parsing/parser.mly" ( Ptyp_variant(_2 :: _4, Closed, None) ) # 2601 "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 # 922 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 2611 "parsing/parser.ml" in # 3398 "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 = _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 : (Parsetree.core_type) = let _1 = let _1 = let _3 = let _1 = let xs = # 253 "" ( List.rev xs ) # 2667 "parsing/parser.ml" in # 1019 "parsing/parser.mly" ( xs ) # 2672 "parsing/parser.ml" in # 3427 "parsing/parser.mly" ( _1 ) # 2678 "parsing/parser.ml" in # 3388 "parsing/parser.mly" ( Ptyp_variant(_3, Open, None) ) # 2684 "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 # 922 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 2694 "parsing/parser.ml" in # 3398 "parsing/parser.mly" ( _1 ) # 2700 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.core_type) = let _1 = let _1 = # 3390 "parsing/parser.mly" ( Ptyp_variant([], Open, None) ) # 2733 "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 # 922 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 2742 "parsing/parser.ml" in # 3398 "parsing/parser.mly" ( _1 ) # 2748 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.core_type) = let _1 = let _1 = let _3 = let _1 = let xs = # 253 "" ( List.rev xs ) # 2798 "parsing/parser.ml" in # 1019 "parsing/parser.mly" ( xs ) # 2803 "parsing/parser.ml" in # 3427 "parsing/parser.mly" ( _1 ) # 2809 "parsing/parser.ml" in # 3392 "parsing/parser.mly" ( Ptyp_variant(_3, Closed, Some []) ) # 2815 "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 # 922 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 2825 "parsing/parser.ml" in # 3398 "parsing/parser.mly" ( _1 ) # 2831 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.core_type) = let _1 = let _1 = let _5 = let xs = xs_inlined1 in let _1 = let xs = # 253 "" ( List.rev xs ) # 2896 "parsing/parser.ml" in # 987 "parsing/parser.mly" ( xs ) # 2901 "parsing/parser.ml" in # 3455 "parsing/parser.mly" ( _1 ) # 2907 "parsing/parser.ml" in let _3 = let _1 = let xs = # 253 "" ( List.rev xs ) # 2915 "parsing/parser.ml" in # 1019 "parsing/parser.mly" ( xs ) # 2920 "parsing/parser.ml" in # 3427 "parsing/parser.mly" ( _1 ) # 2926 "parsing/parser.ml" in # 3394 "parsing/parser.mly" ( Ptyp_variant(_3, Closed, Some _5) ) # 2932 "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 # 922 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 2942 "parsing/parser.ml" in # 3398 "parsing/parser.mly" ( _1 ) # 2948 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.core_type) = let _1 = let _1 = # 3396 "parsing/parser.mly" ( Ptyp_extension _1 ) # 2974 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 922 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 2982 "parsing/parser.ml" in # 3398 "parsing/parser.mly" ( _1 ) # 2988 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (string Asttypes.loc) = let _1 = let _1 = # 3814 "parsing/parser.mly" ( _1 ) # 3014 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 915 "parsing/parser.mly" ( mkloc _1 (make_loc _sloc) ) # 3022 "parsing/parser.ml" in # 3816 "parsing/parser.mly" ( _1 ) # 3028 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (string Asttypes.loc) = 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 : (string Asttypes.loc) = let _1 = let _1 = # 3815 "parsing/parser.mly" ( _1 ^ "." ^ _3.txt ) # 3068 "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 # 915 "parsing/parser.mly" ( mkloc _1 (make_loc _sloc) ) # 3077 "parsing/parser.ml" in # 3816 "parsing/parser.mly" ( _1 ) # 3083 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (string Asttypes.loc) = 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.attribute) = let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3820 "parsing/parser.mly" ( Attr.mk ~loc:(make_loc _sloc) _2 _3 ) # 3132 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 1860 "parsing/parser.mly" ( _1 ) # 3157 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_expr) = let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 3198 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1862 "parsing/parser.mly" ( wrap_class_attrs ~loc:_sloc _3 _2 ) # 3207 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_expr) = let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1864 "parsing/parser.mly" ( class_of_let_bindings ~loc:_sloc _1 _3 ) # 3249 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_expr) = 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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 3314 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined2_ in let _4 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 3323 "parsing/parser.ml" in let _3 = # 3739 "parsing/parser.mly" ( Fresh ) # 3329 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1866 "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)) ) # 3339 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_expr) = 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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 3411 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in # 3837 "parsing/parser.mly" ( _1 ) # 3420 "parsing/parser.ml" in let _3 = let _1 = _1_inlined1 in # 3740 "parsing/parser.mly" ( Override ) # 3428 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1866 "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)) ) # 3439 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 1870 "parsing/parser.mly" ( Cl.attr _1 _2 ) # 3471 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_expr) = let _1 = let _1 = let _2 = let xs = # 253 "" ( List.rev xs ) # 3506 "parsing/parser.ml" in # 987 "parsing/parser.mly" ( xs ) # 3511 "parsing/parser.ml" in # 1873 "parsing/parser.mly" ( Pcl_apply(_1, _2) ) # 3517 "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 # 938 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) # 3527 "parsing/parser.ml" in # 1876 "parsing/parser.mly" ( _1 ) # 3533 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.class_expr) = let _1 = let _1 = # 1875 "parsing/parser.mly" ( Pcl_extension _1 ) # 3559 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 938 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) # 3567 "parsing/parser.ml" in # 1876 "parsing/parser.mly" ( _1 ) # 3573 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_field) = let _6 = let _1 = _1_inlined2 in # 3833 "parsing/parser.mly" ( _1 ) # 3628 "parsing/parser.ml" in let _endpos__6_ = _endpos__1_inlined2_ in let _3 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 3637 "parsing/parser.ml" in let _2 = # 3739 "parsing/parser.mly" ( Fresh ) # 3643 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1925 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_inherit (_2, _4, self)) ~attrs:(_3@_6) ~docs ) # 3652 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_field) = let _6 = let _1 = _1_inlined3 in # 3833 "parsing/parser.mly" ( _1 ) # 3714 "parsing/parser.ml" in let _endpos__6_ = _endpos__1_inlined3_ in let _3 = let _1 = _1_inlined2 in # 3837 "parsing/parser.mly" ( _1 ) # 3723 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in # 3740 "parsing/parser.mly" ( Override ) # 3731 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1925 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_inherit (_2, _4, self)) ~attrs:(_3@_6) ~docs ) # 3741 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_field) = let _3 = let _1 = _1_inlined1 in # 3833 "parsing/parser.mly" ( _1 ) # 3784 "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 # 1928 "parsing/parser.mly" ( let v, attrs = _2 in let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_val v) ~attrs:(attrs@_3) ~docs ) # 3796 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_field) = let _3 = let _1 = _1_inlined1 in # 3833 "parsing/parser.mly" ( _1 ) # 3839 "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 # 1932 "parsing/parser.mly" ( let meth, attrs = _2 in let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_method meth) ~attrs:(attrs@_3) ~docs ) # 3851 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_field) = let _4 = let _1 = _1_inlined2 in # 3833 "parsing/parser.mly" ( _1 ) # 3899 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 3908 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1936 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_constraint _3) ~attrs:(_2@_4) ~docs ) # 3918 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_field) = let _4 = let _1 = _1_inlined2 in # 3833 "parsing/parser.mly" ( _1 ) # 3966 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 3975 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1939 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_initializer _3) ~attrs:(_2@_4) ~docs ) # 3985 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_field) = let _2 = let _1 = _1_inlined1 in # 3833 "parsing/parser.mly" ( _1 ) # 4019 "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 # 1942 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_extension _1) ~attrs:_2 ~docs ) # 4030 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.class_field) = let _1 = let _1 = # 1945 "parsing/parser.mly" ( Pcf_attribute _1 ) # 4056 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 936 "parsing/parser.mly" ( mkcf ~loc:_sloc _1 ) # 4064 "parsing/parser.ml" in # 1946 "parsing/parser.mly" ( _1 ) # 4070 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 1840 "parsing/parser.mly" ( _2 ) # 4102 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_expr) = let _1 = let _1 = # 1843 "parsing/parser.mly" ( Pcl_constraint(_4, _2) ) # 4149 "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 # 938 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) # 4158 "parsing/parser.ml" in # 1846 "parsing/parser.mly" ( _1 ) # 4164 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_expr) = let _1 = let _1 = # 1845 "parsing/parser.mly" ( let (l,o,p) = _1 in Pcl_fun(l, o, p, _2) ) # 4197 "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 # 938 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) # 4206 "parsing/parser.ml" in # 1846 "parsing/parser.mly" ( _1 ) # 4212 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_expr) = let _1 = let _1 = # 1901 "parsing/parser.mly" ( let (l,o,p) = _1 in Pcl_fun(l, o, p, e) ) # 4252 "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 # 938 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) # 4261 "parsing/parser.ml" in # 1902 "parsing/parser.mly" ( _1 ) # 4267 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_expr) = let _1 = let _1 = # 1901 "parsing/parser.mly" ( let (l,o,p) = _1 in Pcl_fun(l, o, p, e) ) # 4300 "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 # 938 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) # 4309 "parsing/parser.ml" in # 1902 "parsing/parser.mly" ( _1 ) # 4315 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3621 "parsing/parser.mly" ( _1 ) # 4340 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1910 "parsing/parser.mly" ( reloc_pat ~loc:_sloc _2 ) # 4382 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = # 1912 "parsing/parser.mly" ( Ppat_constraint(_2, _4) ) # 4436 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 4445 "parsing/parser.ml" in # 1913 "parsing/parser.mly" ( _1 ) # 4451 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = let _endpos = _endpos__0_ in let _symbolstartpos = _endpos in let _sloc = (_symbolstartpos, _endpos) in # 1915 "parsing/parser.mly" ( ghpat ~loc:_sloc Ppat_any ) # 4472 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 2040 "parsing/parser.mly" ( _2 ) # 4511 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = let _1 = let _1 = # 2041 "parsing/parser.mly" ( Ptyp_any ) # 4530 "parsing/parser.ml" in let _endpos__1_ = _endpos__0_ in let _endpos = _endpos__1_ in let _symbolstartpos = _endpos in let _sloc = (_symbolstartpos, _endpos) in # 922 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 4539 "parsing/parser.ml" in # 2042 "parsing/parser.mly" ( _1 ) # 4545 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_type_field) = let _4 = let _1 = _1_inlined2 in # 3833 "parsing/parser.mly" ( _1 ) # 4593 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 4602 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2050 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_inherit _3) ~attrs:(_2@_4) ~docs ) # 4612 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 4672 "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 : (Parsetree.class_type_field) = let _4 = let _1 = _1_inlined3 in # 3833 "parsing/parser.mly" ( _1 ) # 4685 "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 = # 3495 "parsing/parser.mly" ( _1 ) # 4695 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 4703 "parsing/parser.ml" in # 2075 "parsing/parser.mly" ( let mut, virt = flags in label, mut, virt, ty ) # 4712 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 4720 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2053 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_val _3) ~attrs:(_2@_4) ~docs ) # 4730 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 4790 "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 : (Parsetree.class_type_field) = let _7 = let _1 = _1_inlined4 in # 3833 "parsing/parser.mly" ( _1 ) # 4803 "parsing/parser.ml" in let _endpos__7_ = _endpos__1_inlined4_ in let _6 = let _1 = _1_inlined3 in # 3266 "parsing/parser.mly" ( _1 ) # 4812 "parsing/parser.ml" in let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = # 3495 "parsing/parser.mly" ( _1 ) # 4820 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 4828 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 4836 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2057 "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 ) # 4847 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_type_field) = let _4 = let _1 = _1_inlined2 in # 3833 "parsing/parser.mly" ( _1 ) # 4895 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 4904 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2061 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_constraint _3) ~attrs:(_2@_4) ~docs ) # 4914 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_type_field) = let _2 = let _1 = _1_inlined1 in # 3833 "parsing/parser.mly" ( _1 ) # 4948 "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 # 2064 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_extension _1) ~attrs:_2 ~docs ) # 4959 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.class_type_field) = let _1 = let _1 = # 2067 "parsing/parser.mly" ( Pctf_attribute _1 ) # 4985 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 934 "parsing/parser.mly" ( mkctf ~loc:_sloc _1 ) # 4993 "parsing/parser.ml" in # 2068 "parsing/parser.mly" ( _1 ) # 4999 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.class_type) = let _1 = let _1 = let cid = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 5030 "parsing/parser.ml" in let tys = let tys = # 2026 "parsing/parser.mly" ( [] ) # 5037 "parsing/parser.ml" in # 2032 "parsing/parser.mly" ( tys ) # 5042 "parsing/parser.ml" in # 2009 "parsing/parser.mly" ( Pcty_constr (cid, tys) ) # 5048 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 932 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) # 5057 "parsing/parser.ml" in # 2012 "parsing/parser.mly" ( _1 ) # 5063 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_type) = 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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 5116 "parsing/parser.ml" in let tys = let tys = let params = let xs = # 253 "" ( List.rev xs ) # 5125 "parsing/parser.ml" in # 1019 "parsing/parser.mly" ( xs ) # 5130 "parsing/parser.ml" in # 2028 "parsing/parser.mly" ( params ) # 5136 "parsing/parser.ml" in # 2032 "parsing/parser.mly" ( tys ) # 5142 "parsing/parser.ml" in # 2009 "parsing/parser.mly" ( Pcty_constr (cid, tys) ) # 5148 "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 # 932 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) # 5158 "parsing/parser.ml" in # 2012 "parsing/parser.mly" ( _1 ) # 5164 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.class_type) = let _1 = let _1 = # 2011 "parsing/parser.mly" ( Pcty_extension _1 ) # 5190 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 932 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) # 5198 "parsing/parser.ml" in # 2012 "parsing/parser.mly" ( _1 ) # 5204 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_type) = let _3 = let _1 = _1_inlined2 in let _2 = let _1 = let _1 = # 260 "" ( List.flatten xss ) # 5261 "parsing/parser.ml" in # 2046 "parsing/parser.mly" ( _1 ) # 5266 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 880 "parsing/parser.mly" ( extra_csig _startpos _endpos _1 ) # 5275 "parsing/parser.ml" in # 2036 "parsing/parser.mly" ( Csig.mk _1 _2 ) # 5281 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 5289 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2014 "parsing/parser.mly" ( mkcty ~loc:_sloc ~attrs:_2 (Pcty_signature _3) ) # 5298 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_type) = let _3 = let _1 = _1_inlined2 in let _2 = let _1 = let _1 = # 260 "" ( List.flatten xss ) # 5355 "parsing/parser.ml" in # 2046 "parsing/parser.mly" ( _1 ) # 5360 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 880 "parsing/parser.mly" ( extra_csig _startpos _endpos _1 ) # 5369 "parsing/parser.ml" in # 2036 "parsing/parser.mly" ( Csig.mk _1 _2 ) # 5375 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 5383 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2016 "parsing/parser.mly" ( unclosed "object" _loc__1_ "end" _loc__4_ ) # 5391 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 2018 "parsing/parser.mly" ( Cty.attr _1 _2 ) # 5423 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_type) = 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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 5488 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined2_ in let _4 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 5497 "parsing/parser.ml" in let _3 = # 3739 "parsing/parser.mly" ( Fresh ) # 5503 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2020 "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)) ) # 5513 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_type) = 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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 5585 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in # 3837 "parsing/parser.mly" ( _1 ) # 5594 "parsing/parser.ml" in let _3 = let _1 = _1_inlined1 in # 3740 "parsing/parser.mly" ( Override ) # 5602 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2020 "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)) ) # 5613 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 1880 "parsing/parser.mly" ( _2 ) # 5652 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 1882 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) # 5693 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.class_expr) = let _1 = let _1 = let cid = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 5724 "parsing/parser.ml" in let tys = let tys = # 2026 "parsing/parser.mly" ( [] ) # 5731 "parsing/parser.ml" in # 2032 "parsing/parser.mly" ( tys ) # 5736 "parsing/parser.ml" in # 1885 "parsing/parser.mly" ( Pcl_constr(cid, tys) ) # 5742 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 938 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) # 5751 "parsing/parser.ml" in # 1892 "parsing/parser.mly" ( _1 ) # 5757 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_expr) = 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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 5810 "parsing/parser.ml" in let tys = let tys = let params = let xs = # 253 "" ( List.rev xs ) # 5819 "parsing/parser.ml" in # 1019 "parsing/parser.mly" ( xs ) # 5824 "parsing/parser.ml" in # 2028 "parsing/parser.mly" ( params ) # 5830 "parsing/parser.ml" in # 2032 "parsing/parser.mly" ( tys ) # 5836 "parsing/parser.ml" in # 1885 "parsing/parser.mly" ( Pcl_constr(cid, tys) ) # 5842 "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 # 938 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) # 5852 "parsing/parser.ml" in # 1892 "parsing/parser.mly" ( _1 ) # 5858 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_expr) = let _1 = let _1 = let _3 = let _1 = _1_inlined2 in let _2 = let _1 = let _1 = # 260 "" ( List.flatten xss ) # 5917 "parsing/parser.ml" in # 1919 "parsing/parser.mly" ( _1 ) # 5922 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 879 "parsing/parser.mly" ( extra_cstr _startpos _endpos _1 ) # 5931 "parsing/parser.ml" in # 1906 "parsing/parser.mly" ( Cstr.mk _1 _2 ) # 5937 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 5945 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 1887 "parsing/parser.mly" ( unclosed "object" _loc__1_ "end" _loc__4_ ) # 5953 "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 # 938 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) # 5963 "parsing/parser.ml" in # 1892 "parsing/parser.mly" ( _1 ) # 5969 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_expr) = let _1 = let _1 = # 1889 "parsing/parser.mly" ( Pcl_constraint(_2, _4) ) # 6023 "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 # 938 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) # 6032 "parsing/parser.ml" in # 1892 "parsing/parser.mly" ( _1 ) # 6038 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_expr) = let _1 = let _1 = let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 1891 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) # 6095 "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 # 938 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) # 6105 "parsing/parser.ml" in # 1892 "parsing/parser.mly" ( _1 ) # 6111 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_expr) = let _3 = let _1 = _1_inlined2 in let _2 = let _1 = let _1 = # 260 "" ( List.flatten xss ) # 6168 "parsing/parser.ml" in # 1919 "parsing/parser.mly" ( _1 ) # 6173 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 879 "parsing/parser.mly" ( extra_cstr _startpos _endpos _1 ) # 6182 "parsing/parser.ml" in # 1906 "parsing/parser.mly" ( Cstr.mk _1 _2 ) # 6188 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 6196 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1894 "parsing/parser.mly" ( mkclass ~loc:_sloc ~attrs:_2 (Pcl_structure _3) ) # 6205 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 1997 "parsing/parser.mly" ( _1 ) # 6230 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_type) = let _1 = let _1 = let label = # 3329 "parsing/parser.mly" ( Optional label ) # 6278 "parsing/parser.ml" in # 2003 "parsing/parser.mly" ( Pcty_arrow(label, domain, codomain) ) # 6283 "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 # 932 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) # 6293 "parsing/parser.ml" in # 2004 "parsing/parser.mly" ( _1 ) # 6299 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 6348 "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 : (Parsetree.class_type) = let _1 = let _1 = let label = # 3331 "parsing/parser.mly" ( Labelled label ) # 6358 "parsing/parser.ml" in # 2003 "parsing/parser.mly" ( Pcty_arrow(label, domain, codomain) ) # 6363 "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 # 932 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) # 6373 "parsing/parser.ml" in # 2004 "parsing/parser.mly" ( _1 ) # 6379 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_type) = let _1 = let _1 = let label = # 3333 "parsing/parser.mly" ( Nolabel ) # 6420 "parsing/parser.ml" in # 2003 "parsing/parser.mly" ( Pcty_arrow(label, domain, codomain) ) # 6425 "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 # 932 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) # 6435 "parsing/parser.ml" in # 2004 "parsing/parser.mly" ( _1 ) # 6441 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 6526 "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 : (string Asttypes.loc option * Parsetree.class_type_declaration list) = let _1 = let a = let attrs2 = let _1 = _1_inlined3 in # 3833 "parsing/parser.mly" ( _1 ) # 6544 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 6556 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 6564 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2142 "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 ) # 6579 "parsing/parser.ml" in # 1116 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) # 6585 "parsing/parser.ml" in # 2130 "parsing/parser.mly" ( _1 ) # 6591 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3618 "parsing/parser.mly" ( _1 ) # 6616 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 693 "parsing/parser.mly" (string * char option) # 6637 "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 : (Parsetree.constant) = # 3501 "parsing/parser.mly" ( let (n, m) = _1 in Pconst_integer (n, m) ) # 6645 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 652 "parsing/parser.mly" (char) # 6666 "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 : (Parsetree.constant) = # 3502 "parsing/parser.mly" ( Pconst_char _1 ) # 6674 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 745 "parsing/parser.mly" (string * Location.t * string option) # 6695 "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 : (Parsetree.constant) = # 3503 "parsing/parser.mly" ( let (s, strloc, d) = _1 in Pconst_string (s, strloc, d) ) # 6703 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 672 "parsing/parser.mly" (string * char option) # 6724 "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 : (Parsetree.constant) = # 3504 "parsing/parser.mly" ( let (f, m) = _1 in Pconst_float (f, m) ) # 6732 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 3575 "parsing/parser.mly" ( "[]" ) # 6764 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 3576 "parsing/parser.mly" ( "()" ) # 6796 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3577 "parsing/parser.mly" ( "false" ) # 6821 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3578 "parsing/parser.mly" ( "true" ) # 6846 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 758 "parsing/parser.mly" (string) # 6867 "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) = # 3581 "parsing/parser.mly" ( _1 ) # 6875 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Asttypes.label) = let _1 = # 3572 "parsing/parser.mly" ( "::" ) # 6914 "parsing/parser.ml" in # 3582 "parsing/parser.mly" ( _1 ) # 6919 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3583 "parsing/parser.mly" ( _1 ) # 6944 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3586 "parsing/parser.mly" ( _1 ) # 6969 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Longident.t) = let _3 = let (_2, _1) = (_2_inlined1, _1_inlined1) in # 3572 "parsing/parser.mly" ( "::" ) # 7024 "parsing/parser.ml" in # 3587 "parsing/parser.mly" ( Ldot(_1,_3) ) # 7030 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Longident.t) = let _1 = # 3572 "parsing/parser.mly" ( "::" ) # 7069 "parsing/parser.ml" in # 3588 "parsing/parser.mly" ( Lident _1 ) # 7074 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3589 "parsing/parser.mly" ( Lident _1 ) # 7099 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 2086 "parsing/parser.mly" ( _1, _3 ) # 7138 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.constructor_arguments) = let tys = let xs = let xs = # 1003 "parsing/parser.mly" ( [ x ] ) # 7165 "parsing/parser.ml" in # 253 "" ( List.rev xs ) # 7170 "parsing/parser.ml" in # 1023 "parsing/parser.mly" ( xs ) # 7176 "parsing/parser.ml" in # 3132 "parsing/parser.mly" ( Pcstr_tuple tys ) # 7182 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.constructor_arguments) = let tys = let xs = let xs = # 1007 "parsing/parser.mly" ( x :: xs ) # 7223 "parsing/parser.ml" in # 253 "" ( List.rev xs ) # 7228 "parsing/parser.ml" in # 1023 "parsing/parser.mly" ( xs ) # 7234 "parsing/parser.ml" in # 3132 "parsing/parser.mly" ( Pcstr_tuple tys ) # 7240 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 3134 "parsing/parser.mly" ( Pcstr_record _2 ) # 7279 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3053 "parsing/parser.mly" ( [] ) # 7304 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.constructor_declaration list) = let cs = # 1108 "parsing/parser.mly" ( List.rev xs ) # 7329 "parsing/parser.ml" in # 3055 "parsing/parser.mly" ( cs ) # 7334 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = let _1 = # 3291 "parsing/parser.mly" ( _1 ) # 7359 "parsing/parser.ml" in # 3281 "parsing/parser.mly" ( _1 ) # 7364 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 3283 "parsing/parser.mly" ( Typ.attr _1 _2 ) # 7396 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3684 "parsing/parser.mly" ( Upto ) # 7421 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3685 "parsing/parser.mly" ( Downto ) # 7446 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 2253 "parsing/parser.mly" ( _1 ) # 7471 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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_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.expression) = Obj.magic _7 in let _6 : unit = Obj.magic _6 in let _5 : (Parsetree.module_expr) = 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 : (Parsetree.expression) = let _1 = 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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 7551 "parsing/parser.ml" in let _3 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 7561 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 7567 "parsing/parser.ml" in # 2286 "parsing/parser.mly" ( Pexp_letmodule(_4, _5, _7), _3 ) # 7573 "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 # 2255 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 7584 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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_inlined4; CamlinternalMenhirLib.EngineTypes.startp = _startpos__1_inlined4_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__1_inlined4_; 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 = _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 : (Parsetree.expression) = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined4 : (Parsetree.attributes) = Obj.magic _1_inlined4 in let _2_inlined1 : (Parsetree.constructor_arguments * Parsetree.core_type option) = Obj.magic _2_inlined1 in let _1_inlined3 : (Asttypes.label) = 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__6_ in let _v : (Parsetree.expression) = let _1 = let _4 = let (_endpos__1_inlined1_, _endpos__1_, _startpos__1_, _1_inlined1, _2, _1) = (_endpos__1_inlined4_, _endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined4, _2_inlined1, _1_inlined3) in let _3 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 7670 "parsing/parser.ml" in let _endpos__3_ = _endpos__1_inlined1_ in let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 7681 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3117 "parsing/parser.mly" ( let args, res = _2 in Te.decl _1 ~args ?res ~attrs:_3 ~loc:(make_loc _sloc) ) # 7691 "parsing/parser.ml" in let _3 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 7701 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 7707 "parsing/parser.ml" in # 2288 "parsing/parser.mly" ( Pexp_letexception(_4, _6), _3 ) # 7713 "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 # 2255 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 7724 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 = _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.expression) = Obj.magic _7 in let _6 : unit = Obj.magic _6 in let _5 : (Parsetree.module_expr) = Obj.magic _5 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 : (Parsetree.expression) = let _1 = let _4 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 7796 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 7802 "parsing/parser.ml" in let _3 = # 3739 "parsing/parser.mly" ( Fresh ) # 7808 "parsing/parser.ml" in # 2290 "parsing/parser.mly" ( let open_loc = make_loc (_startpos__2_, _endpos__5_) in let od = Opn.mk _5 ~override:_3 ~loc:open_loc in Pexp_open(od, _7), _4 ) # 7815 "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 # 2255 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 7826 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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_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.expression) = Obj.magic _7 in let _6 : unit = Obj.magic _6 in let _5 : (Parsetree.module_expr) = Obj.magic _5 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 : 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 : (Parsetree.expression) = let _1 = let _4 = let (_1_inlined1, _1) = (_1_inlined3, _1_inlined2) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 7905 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 7911 "parsing/parser.ml" in let _3 = let _1 = _1_inlined1 in # 3740 "parsing/parser.mly" ( Override ) # 7919 "parsing/parser.ml" in # 2290 "parsing/parser.mly" ( let open_loc = make_loc (_startpos__2_, _endpos__5_) in let od = Opn.mk _5 ~override:_3 ~loc:open_loc in Pexp_open(od, _7), _4 ) # 7927 "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 # 2255 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 7938 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _3 = let xs = let xs = # 253 "" ( List.rev xs ) # 7987 "parsing/parser.ml" in # 1080 "parsing/parser.mly" ( xs ) # 7992 "parsing/parser.ml" in # 2600 "parsing/parser.mly" ( xs ) # 7998 "parsing/parser.ml" in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 8008 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 8014 "parsing/parser.ml" in # 2294 "parsing/parser.mly" ( Pexp_function _3, _2 ) # 8020 "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 # 2255 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 8031 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = Obj.magic _4 in let _3 : (Asttypes.arg_label * Parsetree.expression option * 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__4_ in let _v : (Parsetree.expression) = let _1 = let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 8089 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 8095 "parsing/parser.ml" in # 2296 "parsing/parser.mly" ( let (l,o,p) = _3 in Pexp_fun(l, o, p, _4), _2 ) # 8102 "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 # 2255 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 8113 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 = 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 _7 : (Parsetree.expression) = Obj.magic _7 in let _6 : unit = Obj.magic _6 in let xs : (string Asttypes.loc list) = Obj.magic xs in let _4 : unit = Obj.magic _4 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__7_ in let _v : (Parsetree.expression) = let _1 = let _5 = # 2480 "parsing/parser.mly" ( xs ) # 8188 "parsing/parser.ml" in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 8197 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 8203 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2299 "parsing/parser.mly" ( (mk_newtypes ~loc:_sloc _5 _7).pexp_desc, _2 ) # 8212 "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 # 2255 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 8223 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _5 = let xs = let xs = # 253 "" ( List.rev xs ) # 8286 "parsing/parser.ml" in # 1080 "parsing/parser.mly" ( xs ) # 8291 "parsing/parser.ml" in # 2600 "parsing/parser.mly" ( xs ) # 8297 "parsing/parser.ml" in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 8307 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 8313 "parsing/parser.ml" in # 2301 "parsing/parser.mly" ( Pexp_match(_3, _5), _2 ) # 8319 "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 # 2255 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 8330 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _5 = let xs = let xs = # 253 "" ( List.rev xs ) # 8393 "parsing/parser.ml" in # 1080 "parsing/parser.mly" ( xs ) # 8398 "parsing/parser.ml" in # 2600 "parsing/parser.mly" ( xs ) # 8404 "parsing/parser.ml" in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 8414 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 8420 "parsing/parser.ml" in # 2303 "parsing/parser.mly" ( Pexp_try(_3, _5), _2 ) # 8426 "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 # 2255 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 8437 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 8502 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 8508 "parsing/parser.ml" in # 2305 "parsing/parser.mly" ( syntax_error() ) # 8514 "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 # 2255 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 8525 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 = _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 _7 : (Parsetree.expression) = Obj.magic _7 in let _6 : unit = Obj.magic _6 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 _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__7_ in let _v : (Parsetree.expression) = let _1 = let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 8604 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 8610 "parsing/parser.ml" in # 2307 "parsing/parser.mly" ( Pexp_ifthenelse(_3, _5, Some _7), _2 ) # 8616 "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 # 2255 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 8627 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.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 : (Parsetree.expression) = let _1 = let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 8692 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 8698 "parsing/parser.ml" in # 2309 "parsing/parser.mly" ( Pexp_ifthenelse(_3, _5, None), _2 ) # 8704 "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 # 2255 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 8715 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : unit = Obj.magic _6 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 _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 : (Parsetree.expression) = let _1 = let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 8787 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 8793 "parsing/parser.ml" in # 2311 "parsing/parser.mly" ( Pexp_while(_3, _5), _2 ) # 8799 "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 # 2255 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 8810 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { 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 = _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 _10 : unit = Obj.magic _10 in let _9 : (Parsetree.expression) = Obj.magic _9 in let _8 : unit = Obj.magic _8 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__10_ in let _v : (Parsetree.expression) = let _1 = let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 8910 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 8916 "parsing/parser.ml" in # 2314 "parsing/parser.mly" ( Pexp_for(_3, _5, _7, _6, _9), _2 ) # 8922 "parsing/parser.ml" in let _endpos__1_ = _endpos__10_ in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2255 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 8933 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 8984 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 8990 "parsing/parser.ml" in # 2316 "parsing/parser.mly" ( Pexp_assert _3, _2 ) # 8996 "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 # 2255 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 9007 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 9058 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 9064 "parsing/parser.ml" in # 2318 "parsing/parser.mly" ( Pexp_lazy _3, _2 ) # 9070 "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 # 2255 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 9081 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _3 = let _1 = _1_inlined3 in let _2 = let _1 = let _1 = # 260 "" ( List.flatten xss ) # 9146 "parsing/parser.ml" in # 1919 "parsing/parser.mly" ( _1 ) # 9151 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 879 "parsing/parser.mly" ( extra_cstr _startpos _endpos _1 ) # 9160 "parsing/parser.ml" in # 1906 "parsing/parser.mly" ( Cstr.mk _1 _2 ) # 9166 "parsing/parser.ml" in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 9176 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 9182 "parsing/parser.ml" in # 2320 "parsing/parser.mly" ( Pexp_object _3, _2 ) # 9188 "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 # 2255 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 9199 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _3 = let _1 = _1_inlined3 in let _2 = let _1 = let _1 = # 260 "" ( List.flatten xss ) # 9264 "parsing/parser.ml" in # 1919 "parsing/parser.mly" ( _1 ) # 9269 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 879 "parsing/parser.mly" ( extra_cstr _startpos _endpos _1 ) # 9278 "parsing/parser.ml" in # 1906 "parsing/parser.mly" ( Cstr.mk _1 _2 ) # 9284 "parsing/parser.ml" in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 9294 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 9300 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2322 "parsing/parser.mly" ( unclosed "object" _loc__1_ "end" _loc__4_ ) # 9308 "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 # 2255 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 9319 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _1 = let _2 = let xs = # 253 "" ( List.rev xs ) # 9354 "parsing/parser.ml" in # 987 "parsing/parser.mly" ( xs ) # 9359 "parsing/parser.ml" in # 2326 "parsing/parser.mly" ( Pexp_apply(_1, _2) ) # 9365 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 9375 "parsing/parser.ml" in # 2258 "parsing/parser.mly" ( _1 ) # 9381 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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.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 : (Parsetree.expression) = let _1 = let _1 = let _1 = let es = let xs = # 253 "" ( List.rev xs ) # 9410 "parsing/parser.ml" in # 1047 "parsing/parser.mly" ( xs ) # 9415 "parsing/parser.ml" in # 2627 "parsing/parser.mly" ( es ) # 9421 "parsing/parser.ml" in # 2328 "parsing/parser.mly" ( Pexp_tuple(_1) ) # 9427 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 9437 "parsing/parser.ml" in # 2258 "parsing/parser.mly" ( _1 ) # 9443 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _1 = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 9481 "parsing/parser.ml" in # 2330 "parsing/parser.mly" ( Pexp_construct(_1, Some _2) ) # 9487 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 9497 "parsing/parser.ml" in # 2258 "parsing/parser.mly" ( _1 ) # 9503 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _1 = # 2332 "parsing/parser.mly" ( Pexp_variant(_1, Some _2) ) # 9536 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 9545 "parsing/parser.ml" in # 2258 "parsing/parser.mly" ( _1 ) # 9551 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = e2; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e2_; 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 e2 : (Parsetree.expression) = Obj.magic e2 in let op : ( # 683 "parsing/parser.mly" (string) # 9585 "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_e2_ in let _v : (Parsetree.expression) = let _1 = let _1 = let op = let _1 = # 3545 "parsing/parser.mly" ( op ) # 9597 "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 # 912 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 9606 "parsing/parser.ml" in # 2334 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 9612 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 9622 "parsing/parser.ml" in # 2258 "parsing/parser.mly" ( _1 ) # 9628 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = e2; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e2_; 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 e2 : (Parsetree.expression) = Obj.magic e2 in let op : ( # 684 "parsing/parser.mly" (string) # 9662 "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_e2_ in let _v : (Parsetree.expression) = let _1 = let _1 = let op = let _1 = # 3546 "parsing/parser.mly" ( op ) # 9674 "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 # 912 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 9683 "parsing/parser.ml" in # 2334 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 9689 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 9699 "parsing/parser.ml" in # 2258 "parsing/parser.mly" ( _1 ) # 9705 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = e2; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e2_; 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 e2 : (Parsetree.expression) = Obj.magic e2 in let op : ( # 685 "parsing/parser.mly" (string) # 9739 "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_e2_ in let _v : (Parsetree.expression) = let _1 = let _1 = let op = let _1 = # 3547 "parsing/parser.mly" ( op ) # 9751 "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 # 912 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 9760 "parsing/parser.ml" in # 2334 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 9766 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 9776 "parsing/parser.ml" in # 2258 "parsing/parser.mly" ( _1 ) # 9782 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = e2; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e2_; 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 e2 : (Parsetree.expression) = Obj.magic e2 in let op : ( # 686 "parsing/parser.mly" (string) # 9816 "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_e2_ in let _v : (Parsetree.expression) = let _1 = let _1 = let op = let _1 = # 3548 "parsing/parser.mly" ( op ) # 9828 "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 # 912 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 9837 "parsing/parser.ml" in # 2334 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 9843 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 9853 "parsing/parser.ml" in # 2258 "parsing/parser.mly" ( _1 ) # 9859 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = e2; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e2_; 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 e2 : (Parsetree.expression) = Obj.magic e2 in let op : ( # 687 "parsing/parser.mly" (string) # 9893 "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_e2_ in let _v : (Parsetree.expression) = let _1 = let _1 = let op = let _1 = # 3549 "parsing/parser.mly" ( op ) # 9905 "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 # 912 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 9914 "parsing/parser.ml" in # 2334 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 9920 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 9930 "parsing/parser.ml" in # 2258 "parsing/parser.mly" ( _1 ) # 9936 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = e2; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e2_; 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 e2 : (Parsetree.expression) = Obj.magic e2 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_e2_ in let _v : (Parsetree.expression) = let _1 = let _1 = let op = let _1 = # 3550 "parsing/parser.mly" ("+") # 9978 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 912 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 9986 "parsing/parser.ml" in # 2334 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 9992 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 10002 "parsing/parser.ml" in # 2258 "parsing/parser.mly" ( _1 ) # 10008 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = e2; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e2_; 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 e2 : (Parsetree.expression) = Obj.magic e2 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_e2_ in let _v : (Parsetree.expression) = let _1 = let _1 = let op = let _1 = # 3551 "parsing/parser.mly" ("+.") # 10050 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 912 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 10058 "parsing/parser.ml" in # 2334 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 10064 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 10074 "parsing/parser.ml" in # 2258 "parsing/parser.mly" ( _1 ) # 10080 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = e2; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e2_; 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 e2 : (Parsetree.expression) = Obj.magic e2 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_e2_ in let _v : (Parsetree.expression) = let _1 = let _1 = let op = let _1 = # 3552 "parsing/parser.mly" ("+=") # 10122 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 912 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 10130 "parsing/parser.ml" in # 2334 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 10136 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 10146 "parsing/parser.ml" in # 2258 "parsing/parser.mly" ( _1 ) # 10152 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = e2; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e2_; 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 e2 : (Parsetree.expression) = Obj.magic e2 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_e2_ in let _v : (Parsetree.expression) = let _1 = let _1 = let op = let _1 = # 3553 "parsing/parser.mly" ("-") # 10194 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 912 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 10202 "parsing/parser.ml" in # 2334 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 10208 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 10218 "parsing/parser.ml" in # 2258 "parsing/parser.mly" ( _1 ) # 10224 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = e2; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e2_; 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 e2 : (Parsetree.expression) = Obj.magic e2 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_e2_ in let _v : (Parsetree.expression) = let _1 = let _1 = let op = let _1 = # 3554 "parsing/parser.mly" ("-.") # 10266 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 912 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 10274 "parsing/parser.ml" in # 2334 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 10280 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 10290 "parsing/parser.ml" in # 2258 "parsing/parser.mly" ( _1 ) # 10296 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = e2; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e2_; 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 e2 : (Parsetree.expression) = Obj.magic e2 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_e2_ in let _v : (Parsetree.expression) = let _1 = let _1 = let op = let _1 = # 3555 "parsing/parser.mly" ("*") # 10338 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 912 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 10346 "parsing/parser.ml" in # 2334 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 10352 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 10362 "parsing/parser.ml" in # 2258 "parsing/parser.mly" ( _1 ) # 10368 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = e2; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e2_; 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 e2 : (Parsetree.expression) = Obj.magic e2 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_e2_ in let _v : (Parsetree.expression) = let _1 = let _1 = let op = let _1 = # 3556 "parsing/parser.mly" ("%") # 10410 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 912 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 10418 "parsing/parser.ml" in # 2334 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 10424 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 10434 "parsing/parser.ml" in # 2258 "parsing/parser.mly" ( _1 ) # 10440 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = e2; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e2_; 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 e2 : (Parsetree.expression) = Obj.magic e2 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_e2_ in let _v : (Parsetree.expression) = let _1 = let _1 = let op = let _1 = # 3557 "parsing/parser.mly" ("=") # 10482 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 912 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 10490 "parsing/parser.ml" in # 2334 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 10496 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 10506 "parsing/parser.ml" in # 2258 "parsing/parser.mly" ( _1 ) # 10512 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = e2; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e2_; 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 e2 : (Parsetree.expression) = Obj.magic e2 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_e2_ in let _v : (Parsetree.expression) = let _1 = let _1 = let op = let _1 = # 3558 "parsing/parser.mly" ("<") # 10554 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 912 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 10562 "parsing/parser.ml" in # 2334 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 10568 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 10578 "parsing/parser.ml" in # 2258 "parsing/parser.mly" ( _1 ) # 10584 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = e2; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e2_; 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 e2 : (Parsetree.expression) = Obj.magic e2 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_e2_ in let _v : (Parsetree.expression) = let _1 = let _1 = let op = let _1 = # 3559 "parsing/parser.mly" (">") # 10626 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 912 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 10634 "parsing/parser.ml" in # 2334 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 10640 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 10650 "parsing/parser.ml" in # 2258 "parsing/parser.mly" ( _1 ) # 10656 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = e2; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e2_; 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 e2 : (Parsetree.expression) = Obj.magic e2 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_e2_ in let _v : (Parsetree.expression) = let _1 = let _1 = let op = let _1 = # 3560 "parsing/parser.mly" ("or") # 10698 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 912 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 10706 "parsing/parser.ml" in # 2334 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 10712 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 10722 "parsing/parser.ml" in # 2258 "parsing/parser.mly" ( _1 ) # 10728 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = e2; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e2_; 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 e2 : (Parsetree.expression) = Obj.magic e2 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_e2_ in let _v : (Parsetree.expression) = let _1 = let _1 = let op = let _1 = # 3561 "parsing/parser.mly" ("||") # 10770 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 912 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 10778 "parsing/parser.ml" in # 2334 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 10784 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 10794 "parsing/parser.ml" in # 2258 "parsing/parser.mly" ( _1 ) # 10800 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = e2; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e2_; 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 e2 : (Parsetree.expression) = Obj.magic e2 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_e2_ in let _v : (Parsetree.expression) = let _1 = let _1 = let op = let _1 = # 3562 "parsing/parser.mly" ("&") # 10842 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 912 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 10850 "parsing/parser.ml" in # 2334 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 10856 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 10866 "parsing/parser.ml" in # 2258 "parsing/parser.mly" ( _1 ) # 10872 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = e2; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e2_; 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 e2 : (Parsetree.expression) = Obj.magic e2 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_e2_ in let _v : (Parsetree.expression) = let _1 = let _1 = let op = let _1 = # 3563 "parsing/parser.mly" ("&&") # 10914 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 912 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 10922 "parsing/parser.ml" in # 2334 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 10928 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 10938 "parsing/parser.ml" in # 2258 "parsing/parser.mly" ( _1 ) # 10944 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = e2; CamlinternalMenhirLib.EngineTypes.startp = _startpos_e2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_e2_; 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 e2 : (Parsetree.expression) = Obj.magic e2 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_e2_ in let _v : (Parsetree.expression) = let _1 = let _1 = let op = let _1 = # 3564 "parsing/parser.mly" (":=") # 10986 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 912 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 10994 "parsing/parser.ml" in # 2334 "parsing/parser.mly" ( mkinfix e1 op e2 ) # 11000 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 11010 "parsing/parser.ml" in # 2258 "parsing/parser.mly" ( _1 ) # 11016 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (string) = 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) = let _1 = let _1 = let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2336 "parsing/parser.mly" ( mkuminus ~oploc:_loc__1_ _1 _2 ) # 11051 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 11061 "parsing/parser.ml" in # 2258 "parsing/parser.mly" ( _1 ) # 11067 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (string) = 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) = let _1 = let _1 = let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2338 "parsing/parser.mly" ( mkuplus ~oploc:_loc__1_ _1 _2 ) # 11102 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 11112 "parsing/parser.ml" in # 2258 "parsing/parser.mly" ( _1 ) # 11118 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2260 "parsing/parser.mly" ( expr_of_let_bindings ~loc:_sloc _1 _3 ) # 11160 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 689 "parsing/parser.mly" (string) # 11202 "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 : (Parsetree.expression) = let pbop_op = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 11214 "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 # 2262 "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}) ) # 11228 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _loc__2_ = (_startpos__2_, _endpos__2_) in let _sloc = (_symbolstartpos, _endpos) in # 2268 "parsing/parser.mly" ( mkexp_cons ~loc:_sloc _loc__2_ (ghexp ~loc:_sloc (Pexp_tuple[_1;_3])) ) # 11271 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 11306 "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 : (Parsetree.expression) = let _1 = let _1 = # 3495 "parsing/parser.mly" ( _1 ) # 11315 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 11323 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2270 "parsing/parser.mly" ( mkexp ~loc:_sloc (Pexp_setinstvar(_1, _3)) ) # 11332 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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_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 : (Parsetree.expression) = Obj.magic _5 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__5_ in let _v : (Parsetree.expression) = 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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 11390 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2272 "parsing/parser.mly" ( mkexp ~loc:_sloc (Pexp_setfield(_1, _3, _5)) ) # 11399 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = v; CamlinternalMenhirLib.EngineTypes.startp = _startpos_v_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_v_; 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 v : (Parsetree.expression) = Obj.magic v 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_v_ in let _v : (Parsetree.expression) = let _1 = let r = # 2273 "parsing/parser.mly" (Some v) # 11467 "parsing/parser.ml" in # 2233 "parsing/parser.mly" ( array, d, Paren, i, r ) # 11472 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2274 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) # 11482 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = v; CamlinternalMenhirLib.EngineTypes.startp = _startpos_v_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_v_; 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 v : (Parsetree.expression) = Obj.magic v 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_v_ in let _v : (Parsetree.expression) = let _1 = let r = # 2273 "parsing/parser.mly" (Some v) # 11550 "parsing/parser.ml" in # 2235 "parsing/parser.mly" ( array, d, Brace, i, r ) # 11555 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2274 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) # 11565 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = v; CamlinternalMenhirLib.EngineTypes.startp = _startpos_v_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_v_; 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 v : (Parsetree.expression) = Obj.magic v 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_v_ in let _v : (Parsetree.expression) = let _1 = let r = # 2273 "parsing/parser.mly" (Some v) # 11633 "parsing/parser.ml" in # 2237 "parsing/parser.mly" ( array, d, Bracket, i, r ) # 11638 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2274 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) # 11648 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = v; CamlinternalMenhirLib.EngineTypes.startp = _startpos_v_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_v_; 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 v : (Parsetree.expression) = Obj.magic v 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 : ( # 688 "parsing/parser.mly" (string) # 11710 "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_v_ in let _v : (Parsetree.expression) = let _1 = let r = # 2275 "parsing/parser.mly" (Some v) # 11720 "parsing/parser.ml" in let i = # 2667 "parsing/parser.mly" ( es ) # 11725 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) # 11731 "parsing/parser.ml" in # 2249 "parsing/parser.mly" ( _1, _2 ) # 11736 "parsing/parser.ml" in # 2233 "parsing/parser.mly" ( array, d, Paren, i, r ) # 11742 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2276 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 11752 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = v; CamlinternalMenhirLib.EngineTypes.startp = _startpos_v_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_v_; 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 v : (Parsetree.expression) = Obj.magic v 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 : ( # 688 "parsing/parser.mly" (string) # 11826 "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_v_ in let _v : (Parsetree.expression) = let _1 = let r = let _1 = _1_inlined1 in # 2275 "parsing/parser.mly" (Some v) # 11840 "parsing/parser.ml" in let i = # 2667 "parsing/parser.mly" ( es ) # 11846 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = # 2249 "parsing/parser.mly" (_2) # 11854 "parsing/parser.ml" in # 126 "" ( Some x ) # 11859 "parsing/parser.ml" in # 2249 "parsing/parser.mly" ( _1, _2 ) # 11865 "parsing/parser.ml" in # 2233 "parsing/parser.mly" ( array, d, Paren, i, r ) # 11871 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2276 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 11881 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = v; CamlinternalMenhirLib.EngineTypes.startp = _startpos_v_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_v_; 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 v : (Parsetree.expression) = Obj.magic v 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 : ( # 688 "parsing/parser.mly" (string) # 11943 "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_v_ in let _v : (Parsetree.expression) = let _1 = let r = # 2275 "parsing/parser.mly" (Some v) # 11953 "parsing/parser.ml" in let i = # 2667 "parsing/parser.mly" ( es ) # 11958 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) # 11964 "parsing/parser.ml" in # 2249 "parsing/parser.mly" ( _1, _2 ) # 11969 "parsing/parser.ml" in # 2235 "parsing/parser.mly" ( array, d, Brace, i, r ) # 11975 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2276 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 11985 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = v; CamlinternalMenhirLib.EngineTypes.startp = _startpos_v_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_v_; 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 v : (Parsetree.expression) = Obj.magic v 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 : ( # 688 "parsing/parser.mly" (string) # 12059 "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_v_ in let _v : (Parsetree.expression) = let _1 = let r = let _1 = _1_inlined1 in # 2275 "parsing/parser.mly" (Some v) # 12073 "parsing/parser.ml" in let i = # 2667 "parsing/parser.mly" ( es ) # 12079 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = # 2249 "parsing/parser.mly" (_2) # 12087 "parsing/parser.ml" in # 126 "" ( Some x ) # 12092 "parsing/parser.ml" in # 2249 "parsing/parser.mly" ( _1, _2 ) # 12098 "parsing/parser.ml" in # 2235 "parsing/parser.mly" ( array, d, Brace, i, r ) # 12104 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2276 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 12114 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = v; CamlinternalMenhirLib.EngineTypes.startp = _startpos_v_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_v_; 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 v : (Parsetree.expression) = Obj.magic v 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 : ( # 688 "parsing/parser.mly" (string) # 12176 "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_v_ in let _v : (Parsetree.expression) = let _1 = let r = # 2275 "parsing/parser.mly" (Some v) # 12186 "parsing/parser.ml" in let i = # 2667 "parsing/parser.mly" ( es ) # 12191 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) # 12197 "parsing/parser.ml" in # 2249 "parsing/parser.mly" ( _1, _2 ) # 12202 "parsing/parser.ml" in # 2237 "parsing/parser.mly" ( array, d, Bracket, i, r ) # 12208 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2276 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 12218 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }); (fun _menhir_env -> let _menhir_stack = _menhir_env.CamlinternalMenhirLib.EngineTypes.stack in let { CamlinternalMenhirLib.EngineTypes.state = _; CamlinternalMenhirLib.EngineTypes.semv = v; CamlinternalMenhirLib.EngineTypes.startp = _startpos_v_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_v_; 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 v : (Parsetree.expression) = Obj.magic v 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 : ( # 688 "parsing/parser.mly" (string) # 12292 "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_v_ in let _v : (Parsetree.expression) = let _1 = let r = let _1 = _1_inlined1 in # 2275 "parsing/parser.mly" (Some v) # 12306 "parsing/parser.ml" in let i = # 2667 "parsing/parser.mly" ( es ) # 12312 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = # 2249 "parsing/parser.mly" (_2) # 12320 "parsing/parser.ml" in # 126 "" ( Some x ) # 12325 "parsing/parser.ml" in # 2249 "parsing/parser.mly" ( _1, _2 ) # 12331 "parsing/parser.ml" in # 2237 "parsing/parser.mly" ( array, d, Bracket, i, r ) # 12337 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2276 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 12347 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 2278 "parsing/parser.mly" ( Exp.attr _1 _2 ) # 12379 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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.expression) = let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2281 "parsing/parser.mly" ( not_expecting _loc__1_ "wildcard \"_\"" ) # 12405 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 3840 "parsing/parser.mly" ( None ) # 12423 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (string Asttypes.loc) = 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) = # 3841 "parsing/parser.mly" ( Some _2 ) # 12455 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (string Asttypes.loc) = 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) = # 3853 "parsing/parser.mly" ( (_2, _3) ) # 12501 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 747 "parsing/parser.mly" (string * Location.t * string * Location.t * string option) # 12522 "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 : (Parsetree.extension) = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3855 "parsing/parser.mly" ( mk_quotedext ~loc:_sloc _1 ) # 12533 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.extension_constructor) = let attrs = let _1 = _1_inlined3 in # 3837 "parsing/parser.mly" ( _1 ) # 12588 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 12600 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 12611 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3201 "parsing/parser.mly" ( let info = symbol_info _endpos in Te.rebind cid lid ~attrs ~loc:(make_loc _sloc) ~info ) # 12621 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.extension_constructor) = let attrs = let _1 = _1_inlined2 in # 3837 "parsing/parser.mly" ( _1 ) # 12669 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 12681 "parsing/parser.ml" in let cid = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 12691 "parsing/parser.ml" in let _startpos_cid_ = _startpos__1_ in let _1 = # 3658 "parsing/parser.mly" ( () ) # 12698 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos_cid_ in let _sloc = (_symbolstartpos, _endpos) in # 3201 "parsing/parser.mly" ( let info = symbol_info _endpos in Te.rebind cid lid ~attrs ~loc:(make_loc _sloc) ~info ) # 12707 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (string Asttypes.loc) = 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.attribute) = let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3828 "parsing/parser.mly" ( mark_symbol_docs _sloc; Attr.mk ~loc:(make_loc _sloc) _2 _3 ) # 12757 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = let params = # 2026 "parsing/parser.mly" ( [] ) # 12775 "parsing/parser.ml" in # 1851 "parsing/parser.mly" ( params ) # 12780 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let params = let params = let xs = # 253 "" ( List.rev xs ) # 12821 "parsing/parser.ml" in # 1019 "parsing/parser.mly" ( xs ) # 12826 "parsing/parser.ml" in # 2028 "parsing/parser.mly" ( params ) # 12832 "parsing/parser.ml" in # 1851 "parsing/parser.mly" ( params ) # 12838 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 2586 "parsing/parser.mly" ( _1 ) # 12863 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.core_type option * Parsetree.core_type option) = 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.expression) = let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2588 "parsing/parser.mly" ( mkexp_constraint ~loc:_sloc _3 _1 ) # 12905 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 2612 "parsing/parser.mly" ( _2 ) # 12937 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.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.expression) = let _1 = let _1 = # 2614 "parsing/parser.mly" ( Pexp_constraint (_4, _2) ) # 12984 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 12993 "parsing/parser.ml" in # 2615 "parsing/parser.mly" ( _1 ) # 12999 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.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 : (Parsetree.expression) = let _endpos = _endpos__2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2618 "parsing/parser.mly" ( let (l,o,p) = _1 in ghexp ~loc:_sloc (Pexp_fun(l, o, p, _2)) ) # 13037 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 = 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 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__5_ in let _v : (Parsetree.expression) = let _3 = # 2480 "parsing/parser.mly" ( xs ) # 13090 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2623 "parsing/parser.mly" ( mk_newtypes ~loc:_sloc _3 _5 ) # 13098 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3317 "parsing/parser.mly" ( ty ) # 13123 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.core_type) = let _1 = let _1 = let domain = # 883 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) # 13171 "parsing/parser.ml" in let label = # 3329 "parsing/parser.mly" ( Optional label ) # 13176 "parsing/parser.ml" in # 3323 "parsing/parser.mly" ( Ptyp_arrow(label, domain, codomain) ) # 13181 "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 # 922 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 13191 "parsing/parser.ml" in # 3325 "parsing/parser.mly" ( _1 ) # 13197 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 13246 "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 : (Parsetree.core_type) = let _1 = let _1 = let domain = # 883 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) # 13256 "parsing/parser.ml" in let label = # 3331 "parsing/parser.mly" ( Labelled label ) # 13261 "parsing/parser.ml" in # 3323 "parsing/parser.mly" ( Ptyp_arrow(label, domain, codomain) ) # 13266 "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 # 922 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 13276 "parsing/parser.ml" in # 3325 "parsing/parser.mly" ( _1 ) # 13282 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.core_type) = let _1 = let _1 = let domain = # 883 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) # 13323 "parsing/parser.ml" in let label = # 3333 "parsing/parser.mly" ( Nolabel ) # 13328 "parsing/parser.ml" in # 3323 "parsing/parser.mly" ( Ptyp_arrow(label, domain, codomain) ) # 13333 "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 # 922 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 13343 "parsing/parser.ml" in # 3325 "parsing/parser.mly" ( _1 ) # 13349 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Lexing.position * Parsetree.functor_parameter) = let _startpos = _startpos__1_ in # 1263 "parsing/parser.mly" ( _startpos, Unit ) # 13382 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Lexing.position * Parsetree.functor_parameter) = 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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 13440 "parsing/parser.ml" in let _startpos = _startpos__1_ in # 1266 "parsing/parser.mly" ( _startpos, Named (x, mty) ) # 13447 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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.constructor_arguments * Parsetree.core_type option) = # 3121 "parsing/parser.mly" ( (Pcstr_tuple [],None) ) # 13465 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.constructor_arguments * Parsetree.core_type option) = # 3122 "parsing/parser.mly" ( (_2,None) ) # 13497 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.constructor_arguments * Parsetree.core_type option) = # 3124 "parsing/parser.mly" ( (_2,Some _4) ) # 13543 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.constructor_arguments * Parsetree.core_type option) = # 3126 "parsing/parser.mly" ( (Pcstr_tuple [],Some _2) ) # 13575 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 = args_res; CamlinternalMenhirLib.EngineTypes.startp = _startpos_args_res_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_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 args_res : (Parsetree.constructor_arguments * Parsetree.core_type option) = Obj.magic 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 : (Ast_helper.str * Parsetree.constructor_arguments * Parsetree.core_type option * Parsetree.attributes * Location.t * Docstrings.info) = let attrs = let _1 = _1_inlined2 in # 3837 "parsing/parser.mly" ( _1 ) # 13625 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 13637 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3069 "parsing/parser.mly" ( let args, res = args_res in let info = symbol_info _endpos in let loc = make_loc _sloc in cid, args, res, attrs, loc, info ) # 13651 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 = args_res; CamlinternalMenhirLib.EngineTypes.startp = _startpos_args_res_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_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 args_res : (Parsetree.constructor_arguments * Parsetree.core_type option) = Obj.magic 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 : (Ast_helper.str * Parsetree.constructor_arguments * Parsetree.core_type option * Parsetree.attributes * Location.t * Docstrings.info) = let attrs = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 13694 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 13705 "parsing/parser.ml" in let _startpos_cid_ = _startpos__1_ in let _1 = # 3658 "parsing/parser.mly" ( () ) # 13712 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos_cid_ in let _sloc = (_symbolstartpos, _endpos) in # 3069 "parsing/parser.mly" ( let args, res = args_res in let info = symbol_info _endpos in let loc = make_loc _sloc in cid, args, res, attrs, loc, info ) # 13725 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 13798 "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 : ((Asttypes.rec_flag * string Asttypes.loc option) * Parsetree.type_declaration) = let attrs2 = let _1 = _1_inlined4 in # 3833 "parsing/parser.mly" ( _1 ) # 13813 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in let cstrs = let _1 = let xs = # 253 "" ( List.rev xs ) # 13822 "parsing/parser.ml" in # 969 "parsing/parser.mly" ( xs ) # 13827 "parsing/parser.ml" in # 2974 "parsing/parser.mly" ( _1 ) # 13833 "parsing/parser.ml" in let kind_priv_manifest = let _1 = _1_inlined3 in # 3009 "parsing/parser.mly" ( _2 ) # 13841 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 13852 "parsing/parser.ml" in let flag = # 3678 "parsing/parser.mly" ( Recursive ) # 13858 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 13865 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2946 "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 ) # 13881 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 13960 "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 : ((Asttypes.rec_flag * string Asttypes.loc option) * Parsetree.type_declaration) = let attrs2 = let _1 = _1_inlined5 in # 3833 "parsing/parser.mly" ( _1 ) # 13976 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined5_ in let cstrs = let _1 = let xs = # 253 "" ( List.rev xs ) # 13985 "parsing/parser.ml" in # 969 "parsing/parser.mly" ( xs ) # 13990 "parsing/parser.ml" in # 2974 "parsing/parser.mly" ( _1 ) # 13996 "parsing/parser.ml" in let kind_priv_manifest = let _1 = _1_inlined4 in # 3009 "parsing/parser.mly" ( _2 ) # 14004 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 14015 "parsing/parser.ml" in let flag = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in # 3680 "parsing/parser.mly" ( not_expecting _loc "nonrec flag" ) # 14026 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 14034 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2946 "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 ) # 14050 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 14116 "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 : ((Asttypes.rec_flag * string Asttypes.loc option) * Parsetree.type_declaration) = let attrs2 = let _1 = _1_inlined3 in # 3833 "parsing/parser.mly" ( _1 ) # 14131 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let cstrs = let _1 = let xs = # 253 "" ( List.rev xs ) # 14140 "parsing/parser.ml" in # 969 "parsing/parser.mly" ( xs ) # 14145 "parsing/parser.ml" in # 2974 "parsing/parser.mly" ( _1 ) # 14151 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 14162 "parsing/parser.ml" in let flag = # 3674 "parsing/parser.mly" ( Recursive ) # 14168 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 14175 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2946 "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 ) # 14191 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 14263 "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 : ((Asttypes.rec_flag * string Asttypes.loc option) * Parsetree.type_declaration) = let attrs2 = let _1 = _1_inlined4 in # 3833 "parsing/parser.mly" ( _1 ) # 14279 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in let cstrs = let _1 = let xs = # 253 "" ( List.rev xs ) # 14288 "parsing/parser.ml" in # 969 "parsing/parser.mly" ( xs ) # 14293 "parsing/parser.ml" in # 2974 "parsing/parser.mly" ( _1 ) # 14299 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 14310 "parsing/parser.ml" in let flag = let _1 = _1_inlined2 in # 3675 "parsing/parser.mly" ( Nonrecursive ) # 14318 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 14326 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2946 "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 ) # 14342 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 758 "parsing/parser.mly" (string) # 14363 "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) = # 3517 "parsing/parser.mly" ( _1 ) # 14371 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 707 "parsing/parser.mly" (string) # 14392 "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) = # 3518 "parsing/parser.mly" ( _1 ) # 14400 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 1140 "parsing/parser.mly" ( _1 ) # 14432 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 3567 "parsing/parser.mly" ( "" ) # 14450 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 3568 "parsing/parser.mly" ( ";.." ) # 14482 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 1147 "parsing/parser.mly" ( _1 ) # 14514 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (string Asttypes.loc) = 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) = # 3858 "parsing/parser.mly" ( (_2, _3) ) # 14560 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 749 "parsing/parser.mly" (string * Location.t * string * Location.t * string option) # 14581 "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 : (Parsetree.extension) = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3860 "parsing/parser.mly" ( mk_quotedext ~loc:_sloc _1 ) # 14592 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 14640 "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 : (Parsetree.label_declaration) = let _5 = let _1 = _1_inlined3 in # 3837 "parsing/parser.mly" ( _1 ) # 14651 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in # 3270 "parsing/parser.mly" ( _1 ) # 14660 "parsing/parser.ml" in let _2 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = # 3495 "parsing/parser.mly" ( _1 ) # 14668 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 14676 "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 # 3143 "parsing/parser.mly" ( let info = symbol_info _endpos in Type.field _2 _4 ~mut:_1 ~attrs:_5 ~loc:(make_loc _sloc) ~info ) # 14690 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 14752 "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 : (Parsetree.label_declaration) = let _7 = let _1 = _1_inlined4 in # 3837 "parsing/parser.mly" ( _1 ) # 14763 "parsing/parser.ml" in let _endpos__7_ = _endpos__1_inlined4_ in let _5 = let _1 = _1_inlined3 in # 3837 "parsing/parser.mly" ( _1 ) # 14772 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in # 3270 "parsing/parser.mly" ( _1 ) # 14781 "parsing/parser.ml" in let _2 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = # 3495 "parsing/parser.mly" ( _1 ) # 14789 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 14797 "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 # 3148 "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 ) # 14815 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3137 "parsing/parser.mly" ( [_1] ) # 14840 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3138 "parsing/parser.mly" ( [_1] ) # 14865 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 3139 "parsing/parser.mly" ( _1 :: _2 ) # 14897 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 707 "parsing/parser.mly" (string) # 14918 "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 * Parsetree.pattern) = let x = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 14931 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2221 "parsing/parser.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) # 14940 "parsing/parser.ml" in # 2213 "parsing/parser.mly" ( x ) # 14946 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 14981 "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 : (string * Parsetree.pattern) = let x = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 14994 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2221 "parsing/parser.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) # 15003 "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 # 2215 "parsing/parser.mly" ( let lab, pat = x in lab, mkpat ~loc:_sloc (Ppat_constraint (pat, cty)) ) # 15015 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3599 "parsing/parser.mly" ( _1 ) # 15040 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 2466 "parsing/parser.mly" ( (Nolabel, _1) ) # 15065 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 694 "parsing/parser.mly" (string) # 15093 "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) = # 2468 "parsing/parser.mly" ( (Labelled _1, _2) ) # 15101 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 15128 "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 : (Asttypes.arg_label * Parsetree.expression) = let _loc_label_ = (_startpos_label_, _endpos_label_) in # 2470 "parsing/parser.mly" ( let loc = _loc_label_ in (Labelled label, mkexpvar ~loc label) ) # 15139 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 15166 "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 : (Asttypes.arg_label * Parsetree.expression) = let _loc_label_ = (_startpos_label_, _endpos_label_) in # 2473 "parsing/parser.mly" ( let loc = _loc_label_ in (Optional label, mkexpvar ~loc label) ) # 15177 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 724 "parsing/parser.mly" (string) # 15205 "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) = # 2476 "parsing/parser.mly" ( (Optional _1, _2) ) # 15213 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _4 = let _1 = _1_inlined1 in # 2209 "parsing/parser.mly" ( _1 ) # 15268 "parsing/parser.ml" in # 2183 "parsing/parser.mly" ( (Optional (fst _3), _4, snd _3) ) # 15274 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 15301 "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 : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = 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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 15316 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2221 "parsing/parser.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) # 15325 "parsing/parser.ml" in # 2185 "parsing/parser.mly" ( (Optional (fst _2), None, snd _2) ) # 15331 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 724 "parsing/parser.mly" (string) # 15380 "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.arg_label * Parsetree.expression option * Parsetree.pattern) = let _4 = let _1 = _1_inlined1 in # 2209 "parsing/parser.mly" ( _1 ) # 15390 "parsing/parser.ml" in # 2187 "parsing/parser.mly" ( (Optional _1, _4, _3) ) # 15396 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 724 "parsing/parser.mly" (string) # 15424 "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) = # 2189 "parsing/parser.mly" ( (Optional _1, None, _2) ) # 15432 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 2191 "parsing/parser.mly" ( (Labelled (fst _3), None, snd _3) ) # 15478 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 15505 "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 : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = 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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 15520 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2221 "parsing/parser.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) # 15529 "parsing/parser.ml" in # 2193 "parsing/parser.mly" ( (Labelled (fst _2), None, snd _2) ) # 15535 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 694 "parsing/parser.mly" (string) # 15563 "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) = # 2195 "parsing/parser.mly" ( (Labelled _1, None, _2) ) # 15571 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 2197 "parsing/parser.mly" ( (Nolabel, None, _1) ) # 15596 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = 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 * bool) = # 2523 "parsing/parser.mly" ( let p,e = _1 in (p,e,false) ) # 15621 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.pattern * Parsetree.expression * bool) = let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in # 2526 "parsing/parser.mly" ( (mkpatvar ~loc:_loc _1, mkexpvar ~loc:_loc _1, true) ) # 15649 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern * Parsetree.expression) = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2483 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) # 15685 "parsing/parser.ml" in # 2487 "parsing/parser.mly" ( (_1, _2) ) # 15691 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.core_type option * Parsetree.core_type option) = 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 : (Parsetree.pattern * Parsetree.expression) = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2483 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) # 15741 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2489 "parsing/parser.mly" ( let v = _1 in (* PR#7344 *) let t = match _2 with Some t, None -> t | _, Some t -> t | _ -> assert false in let loc = Location.(t.ptyp_loc.loc_start, t.ptyp_loc.loc_end) in let typ = ghtyp ~loc (Ptyp_poly([],t)) in let patloc = (_startpos__1_, _endpos__2_) in (ghpat ~loc:patloc (Ppat_constraint(v, typ)), mkexp_constraint ~loc:_sloc _4 _2) ) # 15761 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 = _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 _7 : (Parsetree.expression) = Obj.magic _7 in let _6 : unit = Obj.magic _6 in let _5 : (Parsetree.core_type) = Obj.magic _5 in let _4 : unit = Obj.magic _4 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__7_ in let _v : (Parsetree.pattern * Parsetree.expression) = let _3 = let _1 = let xs = # 253 "" ( List.rev xs ) # 15830 "parsing/parser.ml" in # 987 "parsing/parser.mly" ( xs ) # 15835 "parsing/parser.ml" in # 3252 "parsing/parser.mly" ( _1 ) # 15841 "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 # 2483 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) # 15852 "parsing/parser.ml" in # 2505 "parsing/parser.mly" ( let typloc = (_startpos__3_, _endpos__5_) in let patloc = (_startpos__1_, _endpos__5_) in (ghpat ~loc:patloc (Ppat_constraint(_1, ghtyp ~loc:typloc (Ptyp_poly(_3,_5)))), _7) ) # 15862 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern * Parsetree.expression) = let _4 = # 2480 "parsing/parser.mly" ( xs ) # 15936 "parsing/parser.ml" in let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2483 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) # 15945 "parsing/parser.ml" in let _endpos = _endpos__8_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2511 "parsing/parser.mly" ( let exp, poly = wrap_type_annotation ~loc:_sloc _4 _6 _8 in let loc = (_startpos__1_, _endpos__6_) in (ghpat ~loc (Ppat_constraint(_1, poly)), exp) ) # 15957 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 2516 "parsing/parser.mly" ( (_1, _3) ) # 15996 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 2518 "parsing/parser.mly" ( let loc = (_startpos__1_, _endpos__3_) in (ghpat ~loc (Ppat_constraint(_1, _3)), _5) ) # 16050 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 * 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_bindings) = let _1 = let attrs2 = let _1 = _1_inlined2 in # 3833 "parsing/parser.mly" ( _1 ) # 16113 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 16122 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2546 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in mklbs ~loc:_sloc ext rec_flag (mklb ~loc:_sloc true body attrs) ) # 16134 "parsing/parser.ml" in # 2536 "parsing/parser.mly" ( _1 ) # 16140 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 2537 "parsing/parser.mly" ( addlb _1 _2 ) # 16172 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 * 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_bindings) = let _1 = let attrs2 = let _1 = _1_inlined2 in # 3833 "parsing/parser.mly" ( _1 ) # 16228 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 16237 "parsing/parser.ml" in let ext = # 3844 "parsing/parser.mly" ( None ) # 16243 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2546 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in mklbs ~loc:_sloc ext rec_flag (mklb ~loc:_sloc true body attrs) ) # 16254 "parsing/parser.ml" in # 2536 "parsing/parser.mly" ( _1 ) # 16260 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 * 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 : (string Asttypes.loc) = 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_bindings) = let _1 = let attrs2 = let _1 = _1_inlined3 in # 3833 "parsing/parser.mly" ( _1 ) # 16330 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let attrs1 = let _1 = _1_inlined2 in # 3837 "parsing/parser.mly" ( _1 ) # 16339 "parsing/parser.ml" in let ext = let (_startpos__1_, _1) = (_startpos__1_inlined1_, _1_inlined1) in let _endpos = _endpos__2_ in let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in # 3846 "parsing/parser.mly" ( not_expecting _loc "extension" ) # 16350 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2546 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in mklbs ~loc:_sloc ext rec_flag (mklb ~loc:_sloc true body attrs) ) # 16362 "parsing/parser.ml" in # 2536 "parsing/parser.mly" ( _1 ) # 16368 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 2537 "parsing/parser.mly" ( addlb _1 _2 ) # 16400 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 2225 "parsing/parser.mly" ( _1 ) # 16425 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = # 2227 "parsing/parser.mly" ( Ppat_constraint(_1, _3) ) # 16465 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 16474 "parsing/parser.ml" in # 2228 "parsing/parser.mly" ( _1 ) # 16480 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern * Parsetree.expression) = let pat = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2483 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) # 16516 "parsing/parser.ml" in # 2563 "parsing/parser.mly" ( (pat, exp) ) # 16522 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.pattern * Parsetree.expression) = let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in # 2566 "parsing/parser.mly" ( (mkpatvar ~loc:_loc _1, mkexpvar ~loc:_loc _1) ) # 16550 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 2568 "parsing/parser.mly" ( let loc = (_startpos_pat_, _endpos_typ_) in (ghpat ~loc (Ppat_constraint(pat, typ)), exp) ) # 16604 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 2571 "parsing/parser.mly" ( (pat, exp) ) # 16643 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 2575 "parsing/parser.mly" ( let let_pat, let_exp = body in let_pat, let_exp, [] ) # 16669 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 690 "parsing/parser.mly" (string) # 16703 "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 : (Parsetree.pattern * Parsetree.expression * Parsetree.binding_op list) = let pbop_op = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 16716 "parsing/parser.ml" in let _endpos = _endpos_body_ in let _symbolstartpos = _startpos_bindings_ in let _sloc = (_symbolstartpos, _endpos) in # 2578 "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 ) # 16729 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 211 "" ( [] ) # 16747 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 16813 "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 : (Parsetree.class_declaration list) = let x = let attrs2 = let _1 = _1_inlined3 in # 3833 "parsing/parser.mly" ( _1 ) # 16828 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 16840 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 16848 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1829 "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 ) # 16863 "parsing/parser.ml" in # 213 "" ( x :: xs ) # 16869 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 211 "" ( [] ) # 16887 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 16960 "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 : (Parsetree.class_description list) = let x = let attrs2 = let _1 = _1_inlined3 in # 3833 "parsing/parser.mly" ( _1 ) # 16975 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 16987 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 16995 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2120 "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 ) # 17010 "parsing/parser.ml" in # 213 "" ( x :: xs ) # 17016 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 211 "" ( [] ) # 17034 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 17107 "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 : (Parsetree.class_type_declaration list) = let x = let attrs2 = let _1 = _1_inlined3 in # 3833 "parsing/parser.mly" ( _1 ) # 17122 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 17134 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 17142 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2159 "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 ) # 17157 "parsing/parser.ml" in # 213 "" ( x :: xs ) # 17163 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 211 "" ( [] ) # 17181 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.module_binding list) = let x = let attrs2 = let _1 = _1_inlined3 in # 3833 "parsing/parser.mly" ( _1 ) # 17244 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 17256 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 17264 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1491 "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 ) # 17279 "parsing/parser.ml" in # 213 "" ( x :: xs ) # 17285 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 211 "" ( [] ) # 17303 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.module_declaration list) = let x = let attrs2 = let _1 = _1_inlined3 in # 3833 "parsing/parser.mly" ( _1 ) # 17373 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 17385 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 17393 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1770 "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 ) # 17408 "parsing/parser.ml" in # 213 "" ( x :: xs ) # 17414 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 211 "" ( [] ) # 17432 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 213 "" ( x :: xs ) # 17464 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 211 "" ( [] ) # 17482 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 17549 "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 : (Parsetree.type_declaration list) = let x = let xs = xs_inlined1 in let attrs2 = let _1 = _1_inlined3 in # 3833 "parsing/parser.mly" ( _1 ) # 17564 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let cstrs = let _1 = let xs = # 253 "" ( List.rev xs ) # 17573 "parsing/parser.ml" in # 969 "parsing/parser.mly" ( xs ) # 17578 "parsing/parser.ml" in # 2974 "parsing/parser.mly" ( _1 ) # 17584 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 17595 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 17603 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2963 "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 ) # 17619 "parsing/parser.ml" in # 213 "" ( x :: xs ) # 17625 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 211 "" ( [] ) # 17643 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 17717 "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 : (Parsetree.type_declaration list) = let x = let xs = xs_inlined1 in let attrs2 = let _1 = _1_inlined4 in # 3833 "parsing/parser.mly" ( _1 ) # 17732 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in let cstrs = let _1 = let xs = # 253 "" ( List.rev xs ) # 17741 "parsing/parser.ml" in # 969 "parsing/parser.mly" ( xs ) # 17746 "parsing/parser.ml" in # 2974 "parsing/parser.mly" ( _1 ) # 17752 "parsing/parser.ml" in let kind_priv_manifest = let _1 = _1_inlined3 in # 3009 "parsing/parser.mly" ( _2 ) # 17760 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 17771 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 17779 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2963 "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 ) # 17795 "parsing/parser.ml" in # 213 "" ( x :: xs ) # 17801 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 211 "" ( [] ) # 17819 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 213 "" ( x :: xs ) # 17851 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 211 "" ( [] ) # 17869 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.signature_item list list) = let x = let _1 = let _startpos = _startpos__1_ in # 895 "parsing/parser.mly" ( text_sig _startpos ) # 17904 "parsing/parser.ml" in # 1629 "parsing/parser.mly" ( _1 ) # 17910 "parsing/parser.ml" in # 213 "" ( x :: xs ) # 17916 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.signature_item list list) = let x = let _1 = let _startpos = _startpos__1_ in # 893 "parsing/parser.mly" ( text_sig _startpos @ [_1] ) # 17951 "parsing/parser.ml" in # 1629 "parsing/parser.mly" ( _1 ) # 17957 "parsing/parser.ml" in # 213 "" ( x :: xs ) # 17963 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 211 "" ( [] ) # 17981 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.structure_item list list) = let x = let _1 = let ys = let items = # 955 "parsing/parser.mly" ( [] ) # 18016 "parsing/parser.ml" in # 1374 "parsing/parser.mly" ( items ) # 18021 "parsing/parser.ml" in let xs = let _startpos = _startpos__1_ in # 891 "parsing/parser.mly" ( text_str _startpos ) # 18029 "parsing/parser.ml" in # 267 "" ( xs @ ys ) # 18035 "parsing/parser.ml" in # 1390 "parsing/parser.mly" ( _1 ) # 18041 "parsing/parser.ml" in # 213 "" ( x :: xs ) # 18047 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.structure_item list list) = 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 = # 3833 "parsing/parser.mly" ( _1 ) # 18101 "parsing/parser.ml" in # 1381 "parsing/parser.mly" ( mkstrexp e attrs ) # 18106 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in # 889 "parsing/parser.mly" ( text_str _startpos @ [_1] ) # 18114 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 908 "parsing/parser.mly" ( mark_rhs_docs _startpos _endpos; _1 ) # 18124 "parsing/parser.ml" in # 957 "parsing/parser.mly" ( x ) # 18130 "parsing/parser.ml" in # 1374 "parsing/parser.mly" ( items ) # 18136 "parsing/parser.ml" in let xs = let _startpos = _startpos__1_ in # 891 "parsing/parser.mly" ( text_str _startpos ) # 18144 "parsing/parser.ml" in # 267 "" ( xs @ ys ) # 18150 "parsing/parser.ml" in # 1390 "parsing/parser.mly" ( _1 ) # 18156 "parsing/parser.ml" in # 213 "" ( x :: xs ) # 18162 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.structure_item list list) = let x = let _1 = let _startpos = _startpos__1_ in # 889 "parsing/parser.mly" ( text_str _startpos @ [_1] ) # 18197 "parsing/parser.ml" in # 1390 "parsing/parser.mly" ( _1 ) # 18203 "parsing/parser.ml" in # 213 "" ( x :: xs ) # 18209 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 211 "" ( [] ) # 18227 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_type_field list list) = let x = let _startpos = _startpos__1_ in # 903 "parsing/parser.mly" ( text_csig _startpos @ [_1] ) # 18261 "parsing/parser.ml" in # 213 "" ( x :: xs ) # 18267 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 211 "" ( [] ) # 18285 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.class_field list list) = let x = let _startpos = _startpos__1_ in # 901 "parsing/parser.mly" ( text_cstr _startpos @ [_1] ) # 18319 "parsing/parser.ml" in # 213 "" ( x :: xs ) # 18325 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 211 "" ( [] ) # 18343 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.structure_item list list) = let x = let _startpos = _startpos__1_ in # 889 "parsing/parser.mly" ( text_str _startpos @ [_1] ) # 18377 "parsing/parser.ml" in # 213 "" ( x :: xs ) # 18383 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 211 "" ( [] ) # 18401 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.toplevel_phrase list list) = let x = let _1 = let x = let _1 = # 955 "parsing/parser.mly" ( [] ) # 18436 "parsing/parser.ml" in # 1187 "parsing/parser.mly" ( _1 ) # 18441 "parsing/parser.ml" in # 183 "" ( x ) # 18447 "parsing/parser.ml" in # 1199 "parsing/parser.mly" ( _1 ) # 18453 "parsing/parser.ml" in # 213 "" ( x :: xs ) # 18459 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.toplevel_phrase list list) = let x = let _1 = let x = let _1 = _1_inlined1 in let _1 = let x = let _1 = let _1 = let attrs = # 3833 "parsing/parser.mly" ( _1 ) # 18513 "parsing/parser.ml" in # 1381 "parsing/parser.mly" ( mkstrexp e attrs ) # 18518 "parsing/parser.ml" in # 899 "parsing/parser.mly" ( Ptop_def [_1] ) # 18524 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in # 897 "parsing/parser.mly" ( text_def _startpos @ [_1] ) # 18532 "parsing/parser.ml" in # 957 "parsing/parser.mly" ( x ) # 18538 "parsing/parser.ml" in # 1187 "parsing/parser.mly" ( _1 ) # 18544 "parsing/parser.ml" in # 183 "" ( x ) # 18550 "parsing/parser.ml" in # 1199 "parsing/parser.mly" ( _1 ) # 18556 "parsing/parser.ml" in # 213 "" ( x :: xs ) # 18562 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.toplevel_phrase list list) = let x = let _1 = let _1 = # 899 "parsing/parser.mly" ( Ptop_def [_1] ) # 18596 "parsing/parser.ml" in let _startpos = _startpos__1_ in # 897 "parsing/parser.mly" ( text_def _startpos @ [_1] ) # 18602 "parsing/parser.ml" in # 1199 "parsing/parser.mly" ( _1 ) # 18608 "parsing/parser.ml" in # 213 "" ( x :: xs ) # 18614 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.toplevel_phrase list list) = let x = let _1 = let _1 = let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 908 "parsing/parser.mly" ( mark_rhs_docs _startpos _endpos; _1 ) # 18652 "parsing/parser.ml" in let _startpos = _startpos__1_ in # 897 "parsing/parser.mly" ( text_def _startpos @ [_1] ) # 18659 "parsing/parser.ml" in # 1199 "parsing/parser.mly" ( _1 ) # 18665 "parsing/parser.ml" in # 213 "" ( x :: xs ) # 18671 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option) = let _2 = # 124 "" ( None ) # 18710 "parsing/parser.ml" in let x = let label = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 18720 "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 # 2849 "parsing/parser.mly" ( let 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). *) make_ghost label, pat_of_label label | Some pat -> label, pat in label, mkpat_opt_constraint ~loc:_sloc pat octy ) # 18742 "parsing/parser.ml" in # 1124 "parsing/parser.mly" ( [x], None ) # 18748 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option) = let _2 = # 126 "" ( Some x ) # 18794 "parsing/parser.ml" in let x = let label = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 18804 "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 # 2849 "parsing/parser.mly" ( let 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). *) make_ghost label, pat_of_label label | Some pat -> label, pat in label, mkpat_opt_constraint ~loc:_sloc pat octy ) # 18826 "parsing/parser.ml" in # 1124 "parsing/parser.mly" ( [x], None ) # 18832 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option) = let x = let label = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 18897 "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 # 2849 "parsing/parser.mly" ( let 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). *) make_ghost label, pat_of_label label | Some pat -> label, pat in label, mkpat_opt_constraint ~loc:_sloc pat octy ) # 18919 "parsing/parser.ml" in # 1126 "parsing/parser.mly" ( [x], Some y ) # 18925 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option) = let x = let label = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 18983 "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 # 2849 "parsing/parser.mly" ( let 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). *) make_ghost label, pat_of_label label | Some pat -> label, pat in label, mkpat_opt_constraint ~loc:_sloc pat octy ) # 19005 "parsing/parser.ml" in # 1130 "parsing/parser.mly" ( let xs, y = tail in x :: xs, y ) # 19012 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 2604 "parsing/parser.mly" ( Exp.case _1 _3 ) # 19051 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 2606 "parsing/parser.mly" ( Exp.case _1 ~guard:_3 _5 ) # 19104 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.case) = let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2608 "parsing/parser.mly" ( Exp.case _1 (Exp.unreachable ~loc:(make_loc _loc__3_) ()) ) # 19144 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 19207 "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 : (Parsetree.object_field list * Asttypes.closed_flag) = let head = let _6 = let _1 = _1_inlined3 in # 3837 "parsing/parser.mly" ( _1 ) # 19218 "parsing/parser.ml" in let _endpos__6_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in # 3837 "parsing/parser.mly" ( _1 ) # 19227 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _3 = let _1 = _1_inlined1 in # 3270 "parsing/parser.mly" ( _1 ) # 19236 "parsing/parser.ml" in let _1 = let _1 = # 3495 "parsing/parser.mly" ( _1 ) # 19243 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 19251 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3480 "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 ) # 19266 "parsing/parser.ml" in # 3461 "parsing/parser.mly" ( let (f, c) = tail in (head :: f, c) ) # 19272 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.object_field list * Asttypes.closed_flag) = let head = let _endpos = _endpos_ty_ in let _symbolstartpos = _startpos_ty_ in let _sloc = (_symbolstartpos, _endpos) in # 3491 "parsing/parser.mly" ( Of.inherit_ ~loc:(make_loc _sloc) ty ) # 19315 "parsing/parser.ml" in # 3461 "parsing/parser.mly" ( let (f, c) = tail in (head :: f, c) ) # 19321 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 19377 "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 : (Parsetree.object_field list * Asttypes.closed_flag) = let head = let _6 = let _1 = _1_inlined3 in # 3837 "parsing/parser.mly" ( _1 ) # 19388 "parsing/parser.ml" in let _endpos__6_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in # 3837 "parsing/parser.mly" ( _1 ) # 19397 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _3 = let _1 = _1_inlined1 in # 3270 "parsing/parser.mly" ( _1 ) # 19406 "parsing/parser.ml" in let _1 = let _1 = # 3495 "parsing/parser.mly" ( _1 ) # 19413 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 19421 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3480 "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 ) # 19436 "parsing/parser.ml" in # 3464 "parsing/parser.mly" ( [head], Closed ) # 19442 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.object_field list * Asttypes.closed_flag) = let head = let _endpos = _endpos_ty_ in let _symbolstartpos = _startpos_ty_ in let _sloc = (_symbolstartpos, _endpos) in # 3491 "parsing/parser.mly" ( Of.inherit_ ~loc:(make_loc _sloc) ty ) # 19478 "parsing/parser.ml" in # 3464 "parsing/parser.mly" ( [head], Closed ) # 19484 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 19526 "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 : (Parsetree.object_field list * Asttypes.closed_flag) = let head = let _4 = let _1 = _1_inlined2 in # 3837 "parsing/parser.mly" ( _1 ) # 19537 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _3 = let _1 = _1_inlined1 in # 3270 "parsing/parser.mly" ( _1 ) # 19546 "parsing/parser.ml" in let _1 = let _1 = # 3495 "parsing/parser.mly" ( _1 ) # 19553 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 19561 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3473 "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 ) # 19572 "parsing/parser.ml" in # 3467 "parsing/parser.mly" ( [head], Closed ) # 19578 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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.object_field list * Asttypes.closed_flag) = let head = let _endpos = _endpos_ty_ in let _symbolstartpos = _startpos_ty_ in let _sloc = (_symbolstartpos, _endpos) in # 3491 "parsing/parser.mly" ( Of.inherit_ ~loc:(make_loc _sloc) ty ) # 19607 "parsing/parser.ml" in # 3467 "parsing/parser.mly" ( [head], Closed ) # 19613 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3469 "parsing/parser.mly" ( [], Open ) # 19638 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 19685 "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 : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * Parsetree.class_field_kind) * Parsetree.attributes) = let ty = let _1 = _1_inlined2 in # 3266 "parsing/parser.mly" ( _1 ) # 19699 "parsing/parser.ml" in let label = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = # 3495 "parsing/parser.mly" ( _1 ) # 19707 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 19715 "parsing/parser.ml" in let attrs = # 3837 "parsing/parser.mly" ( _1 ) # 19721 "parsing/parser.ml" in let _1 = # 3736 "parsing/parser.mly" ( Fresh ) # 19726 "parsing/parser.ml" in # 1967 "parsing/parser.mly" ( (label, private_, Cfk_virtual ty), attrs ) # 19731 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 19771 "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 : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * Parsetree.class_field_kind) * Parsetree.attributes) = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = # 3495 "parsing/parser.mly" ( _1 ) # 19785 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 19793 "parsing/parser.ml" in let _2 = # 3837 "parsing/parser.mly" ( _1 ) # 19799 "parsing/parser.ml" in let _1 = # 3739 "parsing/parser.mly" ( Fresh ) # 19804 "parsing/parser.ml" in # 1969 "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 ) # 19812 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 19858 "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 : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * Parsetree.class_field_kind) * Parsetree.attributes) = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = # 3495 "parsing/parser.mly" ( _1 ) # 19873 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 19881 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 19889 "parsing/parser.ml" in let _1 = # 3740 "parsing/parser.mly" ( Override ) # 19895 "parsing/parser.ml" in # 1969 "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 ) # 19903 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 19964 "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 : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * Parsetree.class_field_kind) * Parsetree.attributes) = let _6 = let _1 = _1_inlined2 in # 3266 "parsing/parser.mly" ( _1 ) # 19978 "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 = # 3495 "parsing/parser.mly" ( _1 ) # 19987 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 19995 "parsing/parser.ml" in let _2 = # 3837 "parsing/parser.mly" ( _1 ) # 20001 "parsing/parser.ml" in let _1 = # 3739 "parsing/parser.mly" ( Fresh ) # 20006 "parsing/parser.ml" in # 1975 "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 ) # 20014 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 20081 "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 : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * Parsetree.class_field_kind) * Parsetree.attributes) = let _6 = let _1 = _1_inlined3 in # 3266 "parsing/parser.mly" ( _1 ) # 20096 "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 = # 3495 "parsing/parser.mly" ( _1 ) # 20105 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 20113 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 20121 "parsing/parser.ml" in let _1 = # 3740 "parsing/parser.mly" ( Override ) # 20127 "parsing/parser.ml" in # 1975 "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 ) # 20135 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 20217 "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 : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * Parsetree.class_field_kind) * Parsetree.attributes) = let _7 = # 2480 "parsing/parser.mly" ( xs ) # 20229 "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 = # 3495 "parsing/parser.mly" ( _1 ) # 20237 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 20245 "parsing/parser.ml" in let _startpos__4_ = _startpos__1_inlined1_ in let _2 = # 3837 "parsing/parser.mly" ( _1 ) # 20252 "parsing/parser.ml" in let (_endpos__2_, _startpos__2_) = (_endpos__1_, _startpos__1_) in let _1 = # 3739 "parsing/parser.mly" ( Fresh ) # 20258 "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 # 1981 "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 ) # 20285 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 20373 "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 : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * Parsetree.class_field_kind) * Parsetree.attributes) = let _7 = # 2480 "parsing/parser.mly" ( xs ) # 20386 "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 = # 3495 "parsing/parser.mly" ( _1 ) # 20394 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 20402 "parsing/parser.ml" in let _startpos__4_ = _startpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 20411 "parsing/parser.ml" in let (_endpos__2_, _startpos__2_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let _1 = # 3740 "parsing/parser.mly" ( Override ) # 20418 "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 # 1981 "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 ) # 20444 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 707 "parsing/parser.mly" (string) # 20465 "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) = # 3592 "parsing/parser.mly" ( Lident _1 ) # 20473 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 20506 "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 : (Longident.t) = # 3593 "parsing/parser.mly" ( Ldot(_1,_3) ) # 20516 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 758 "parsing/parser.mly" (string) # 20537 "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) = # 3592 "parsing/parser.mly" ( Lident _1 ) # 20545 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 758 "parsing/parser.mly" (string) # 20578 "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 : (Longident.t) = # 3593 "parsing/parser.mly" ( Ldot(_1,_3) ) # 20588 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = let _1 = # 3630 "parsing/parser.mly" ( _1 ) # 20613 "parsing/parser.ml" in # 3592 "parsing/parser.mly" ( Lident _1 ) # 20618 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Longident.t) = let _1 = let _1 = # 3572 "parsing/parser.mly" ( "::" ) # 20658 "parsing/parser.ml" in # 3630 "parsing/parser.mly" ( _1 ) # 20663 "parsing/parser.ml" in # 3592 "parsing/parser.mly" ( Lident _1 ) # 20669 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = let _1 = # 3630 "parsing/parser.mly" ( _1 ) # 20694 "parsing/parser.ml" in # 3592 "parsing/parser.mly" ( Lident _1 ) # 20699 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Longident.t) = let _3 = let _1 = _1_inlined1 in # 3630 "parsing/parser.mly" ( _1 ) # 20740 "parsing/parser.ml" in # 3593 "parsing/parser.mly" ( Ldot(_1,_3) ) # 20746 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Longident.t) = let _3 = let (_2, _1) = (_2_inlined1, _1_inlined1) in let _1 = # 3572 "parsing/parser.mly" ( "::" ) # 20801 "parsing/parser.ml" in # 3630 "parsing/parser.mly" ( _1 ) # 20806 "parsing/parser.ml" in # 3593 "parsing/parser.mly" ( Ldot(_1,_3) ) # 20812 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Longident.t) = let _3 = let _1 = _1_inlined1 in # 3630 "parsing/parser.mly" ( _1 ) # 20853 "parsing/parser.ml" in # 3593 "parsing/parser.mly" ( Ldot(_1,_3) ) # 20859 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3592 "parsing/parser.mly" ( Lident _1 ) # 20884 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Longident.t) = # 3593 "parsing/parser.mly" ( Ldot(_1,_3) ) # 20923 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 707 "parsing/parser.mly" (string) # 20944 "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) = # 3592 "parsing/parser.mly" ( Lident _1 ) # 20952 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 20985 "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 : (Longident.t) = # 3593 "parsing/parser.mly" ( Ldot(_1,_3) ) # 20995 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 758 "parsing/parser.mly" (string) # 21016 "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) = # 3592 "parsing/parser.mly" ( Lident _1 ) # 21024 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 758 "parsing/parser.mly" (string) # 21057 "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 : (Longident.t) = # 3593 "parsing/parser.mly" ( Ldot(_1,_3) ) # 21067 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3592 "parsing/parser.mly" ( Lident _1 ) # 21092 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Longident.t) = # 3593 "parsing/parser.mly" ( Ldot(_1,_3) ) # 21131 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3608 "parsing/parser.mly" ( _1 ) # 21156 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Longident.t) = let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3610 "parsing/parser.mly" ( lapply ~loc:_sloc _1 _3 ) # 21205 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Longident.t) = let _loc__3_ = (_startpos__3_, _endpos__3_) in # 3612 "parsing/parser.mly" ( expecting _loc__3_ "module path" ) # 21245 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3605 "parsing/parser.mly" ( _1 ) # 21270 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 1450 "parsing/parser.mly" ( me ) # 21302 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.module_expr) = let _1 = let _1 = # 1453 "parsing/parser.mly" ( Pmod_constraint(me, mty) ) # 21349 "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 # 928 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) # 21358 "parsing/parser.ml" in # 1457 "parsing/parser.mly" ( _1 ) # 21364 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.module_expr) = let _1 = let _1 = # 1455 "parsing/parser.mly" ( let (_, arg) = arg_and_pos in Pmod_functor(arg, body) ) # 21398 "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 # 928 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) # 21407 "parsing/parser.ml" in # 1457 "parsing/parser.mly" ( _1 ) # 21413 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 1696 "parsing/parser.mly" ( mty ) # 21445 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.module_type) = let _1 = let _1 = # 1699 "parsing/parser.mly" ( let (_, arg) = arg_and_pos in Pmty_functor(arg, body) ) # 21479 "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 # 930 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) # 21488 "parsing/parser.ml" in # 1702 "parsing/parser.mly" ( _1 ) # 21494 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.module_expr) = let attrs = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 21542 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1289 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_structure s) ) # 21551 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.module_expr) = let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 21599 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 1291 "parsing/parser.mly" ( unclosed "struct" _loc__1_ "end" _loc__4_ ) # 21607 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.module_expr) = let args = let _1 = _1_inlined2 in # 1255 "parsing/parser.mly" ( _1 ) # 21662 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 21670 "parsing/parser.ml" in let _endpos = _endpos_me_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1293 "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 ) ) # 21683 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 1299 "parsing/parser.mly" ( me ) # 21708 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 1301 "parsing/parser.mly" ( Mod.attr me attr ) # 21740 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.module_expr) = let _1 = let _1 = let x = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 21771 "parsing/parser.ml" in # 1305 "parsing/parser.mly" ( Pmod_ident x ) # 21777 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 928 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) # 21786 "parsing/parser.ml" in # 1317 "parsing/parser.mly" ( _1 ) # 21792 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.module_expr) = let _1 = let _1 = # 1308 "parsing/parser.mly" ( Pmod_apply(me1, me2) ) # 21825 "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 # 928 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) # 21834 "parsing/parser.ml" in # 1317 "parsing/parser.mly" ( _1 ) # 21840 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 = me1; CamlinternalMenhirLib.EngineTypes.startp = _startpos_me1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_me1_; CamlinternalMenhirLib.EngineTypes.next = _menhir_stack; }; }; } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 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__3_ in let _v : (Parsetree.module_expr) = let _1 = let _1 = let _endpos = _endpos__3_ in let _symbolstartpos = _startpos_me1_ in let _sloc = (_symbolstartpos, _endpos) in # 1311 "parsing/parser.mly" ( (* TODO review mkmod location *) Pmod_apply(me1, mkmod ~loc:_sloc (Pmod_structure [])) ) # 21885 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__3_, _startpos_me1_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 928 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) # 21895 "parsing/parser.ml" in # 1317 "parsing/parser.mly" ( _1 ) # 21901 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.module_expr) = let _1 = let _1 = # 1315 "parsing/parser.mly" ( Pmod_extension ex ) # 21927 "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 # 928 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) # 21936 "parsing/parser.ml" in # 1317 "parsing/parser.mly" ( _1 ) # 21942 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 758 "parsing/parser.mly" (string) # 21963 "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) = # 1272 "parsing/parser.mly" ( Some x ) # 21971 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 1275 "parsing/parser.mly" ( None ) # 21996 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 758 "parsing/parser.mly" (string) # 22056 "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 : (Parsetree.module_substitution * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined4 in # 3833 "parsing/parser.mly" ( _1 ) # 22069 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 22081 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 22092 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 22100 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1732 "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 ) # 22114 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 758 "parsing/parser.mly" (string) # 22167 "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 : (Parsetree.module_substitution * string Asttypes.loc option) = 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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 22183 "parsing/parser.ml" in let _3 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 22191 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in # 1739 "parsing/parser.mly" ( expecting _loc__6_ "module path" ) # 22198 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.module_type) = let attrs = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 22246 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1582 "parsing/parser.mly" ( mkmty ~loc:_sloc ~attrs (Pmty_signature s) ) # 22255 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.module_type) = let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 22303 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 1584 "parsing/parser.mly" ( unclosed "sig" _loc__1_ "end" _loc__4_ ) # 22311 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.module_type) = let args = let _1 = _1_inlined2 in # 1255 "parsing/parser.mly" ( _1 ) # 22366 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 22374 "parsing/parser.ml" in let _endpos = _endpos_mty_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1588 "parsing/parser.mly" ( wrap_mty_attrs ~loc:_sloc attrs ( List.fold_left (fun acc (startpos, arg) -> mkmty ~loc:(startpos, _endpos) (Pmty_functor (arg, acc)) ) mty args ) ) # 22387 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.module_type) = let _4 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 22442 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1594 "parsing/parser.mly" ( mkmty ~loc:_sloc ~attrs:_4 (Pmty_typeof _5) ) # 22451 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 1596 "parsing/parser.mly" ( _2 ) # 22490 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 1598 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) # 22531 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 1600 "parsing/parser.mly" ( Mty.attr _1 _2 ) # 22563 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.module_type) = let _1 = let _1 = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 22594 "parsing/parser.ml" in # 1603 "parsing/parser.mly" ( Pmty_ident _1 ) # 22600 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 930 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) # 22609 "parsing/parser.ml" in # 1614 "parsing/parser.mly" ( _1 ) # 22615 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.module_type) = let _1 = let _1 = # 1606 "parsing/parser.mly" ( Pmty_functor(Named (mknoloc None, _1), _3) ) # 22655 "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 # 930 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) # 22664 "parsing/parser.ml" in # 1614 "parsing/parser.mly" ( _1 ) # 22670 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.module_type) = let _1 = let _1 = let _3 = let xs = # 253 "" ( List.rev xs ) # 22712 "parsing/parser.ml" in # 1019 "parsing/parser.mly" ( xs ) # 22717 "parsing/parser.ml" in # 1608 "parsing/parser.mly" ( Pmty_with(_1, _3) ) # 22723 "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 # 930 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) # 22733 "parsing/parser.ml" in # 1614 "parsing/parser.mly" ( _1 ) # 22739 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.module_type) = let _1 = let _1 = # 1612 "parsing/parser.mly" ( Pmty_extension _1 ) # 22765 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 930 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) # 22773 "parsing/parser.ml" in # 1614 "parsing/parser.mly" ( _1 ) # 22779 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.module_type_declaration * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in # 3833 "parsing/parser.mly" ( _1 ) # 22848 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 22860 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 22868 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1528 "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 ) # 22882 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.module_type_declaration * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in # 3833 "parsing/parser.mly" ( _1 ) # 22958 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 22970 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 22978 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1788 "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 ) # 22992 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3615 "parsing/parser.mly" ( _1 ) # 23017 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 3696 "parsing/parser.mly" ( Immutable ) # 23035 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3697 "parsing/parser.mly" ( Mutable ) # 23060 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 3705 "parsing/parser.mly" ( Immutable, Concrete ) # 23078 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3707 "parsing/parser.mly" ( Mutable, Concrete ) # 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 = _menhir_s; 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) = # 3709 "parsing/parser.mly" ( Immutable, Virtual ) # 23128 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 3712 "parsing/parser.mly" ( Mutable, Virtual ) # 23160 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 3712 "parsing/parser.mly" ( Mutable, Virtual ) # 23192 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 3667 "parsing/parser.mly" ( _2 ) # 23224 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 707 "parsing/parser.mly" (string) # 23245 "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 Asttypes.loc list) = let x = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 23257 "parsing/parser.ml" in # 221 "" ( [ x ] ) # 23263 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 23291 "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 : (string Asttypes.loc list) = let x = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 23303 "parsing/parser.ml" in # 223 "" ( x :: xs ) # 23309 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 745 "parsing/parser.mly" (string * Location.t * string option) # 23330 "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 : (string list) = let x = # 3663 "parsing/parser.mly" ( let body, _, _ = s in body ) # 23338 "parsing/parser.ml" in # 221 "" ( [ x ] ) # 23343 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 745 "parsing/parser.mly" (string * Location.t * string option) # 23371 "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 : (string list) = let x = # 3663 "parsing/parser.mly" ( let body, _, _ = s in body ) # 23379 "parsing/parser.ml" in # 223 "" ( x :: xs ) # 23384 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = # 3692 "parsing/parser.mly" ( Public ) # 23409 "parsing/parser.ml" in # 2983 "parsing/parser.mly" ( (Ptype_abstract, priv, Some ty) ) # 23414 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = # 3693 "parsing/parser.mly" ( Private ) # 23446 "parsing/parser.ml" in # 2983 "parsing/parser.mly" ( (Ptype_abstract, priv, Some ty) ) # 23451 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = # 3692 "parsing/parser.mly" ( Public ) # 23476 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) # 23482 "parsing/parser.ml" in # 2999 "parsing/parser.mly" ( _1 ) # 23487 "parsing/parser.ml" in # 2987 "parsing/parser.mly" ( (Ptype_variant cs, priv, oty) ) # 23493 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = # 3693 "parsing/parser.mly" ( Private ) # 23525 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) # 23531 "parsing/parser.ml" in # 2999 "parsing/parser.mly" ( _1 ) # 23536 "parsing/parser.ml" in # 2987 "parsing/parser.mly" ( (Ptype_variant cs, priv, oty) ) # 23542 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = # 3692 "parsing/parser.mly" ( Public ) # 23581 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) # 23588 "parsing/parser.ml" in # 126 "" ( Some x ) # 23593 "parsing/parser.ml" in # 2999 "parsing/parser.mly" ( _1 ) # 23599 "parsing/parser.ml" in # 2987 "parsing/parser.mly" ( (Ptype_variant cs, priv, oty) ) # 23605 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = # 3693 "parsing/parser.mly" ( Private ) # 23651 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) # 23658 "parsing/parser.ml" in # 126 "" ( Some x ) # 23663 "parsing/parser.ml" in # 2999 "parsing/parser.mly" ( _1 ) # 23669 "parsing/parser.ml" in # 2987 "parsing/parser.mly" ( (Ptype_variant cs, priv, oty) ) # 23675 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = # 3692 "parsing/parser.mly" ( Public ) # 23700 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) # 23706 "parsing/parser.ml" in # 2999 "parsing/parser.mly" ( _1 ) # 23711 "parsing/parser.ml" in # 2991 "parsing/parser.mly" ( (Ptype_open, priv, oty) ) # 23717 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = # 3693 "parsing/parser.mly" ( Private ) # 23749 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) # 23755 "parsing/parser.ml" in # 2999 "parsing/parser.mly" ( _1 ) # 23760 "parsing/parser.ml" in # 2991 "parsing/parser.mly" ( (Ptype_open, priv, oty) ) # 23766 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = # 3692 "parsing/parser.mly" ( Public ) # 23805 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) # 23812 "parsing/parser.ml" in # 126 "" ( Some x ) # 23817 "parsing/parser.ml" in # 2999 "parsing/parser.mly" ( _1 ) # 23823 "parsing/parser.ml" in # 2991 "parsing/parser.mly" ( (Ptype_open, priv, oty) ) # 23829 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = # 3693 "parsing/parser.mly" ( Private ) # 23875 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) # 23882 "parsing/parser.ml" in # 126 "" ( Some x ) # 23887 "parsing/parser.ml" in # 2999 "parsing/parser.mly" ( _1 ) # 23893 "parsing/parser.ml" in # 2991 "parsing/parser.mly" ( (Ptype_open, priv, oty) ) # 23899 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = # 3692 "parsing/parser.mly" ( Public ) # 23938 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) # 23944 "parsing/parser.ml" in # 2999 "parsing/parser.mly" ( _1 ) # 23949 "parsing/parser.ml" in # 2995 "parsing/parser.mly" ( (Ptype_record ls, priv, oty) ) # 23955 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = # 3693 "parsing/parser.mly" ( Private ) # 24001 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) # 24007 "parsing/parser.ml" in # 2999 "parsing/parser.mly" ( _1 ) # 24012 "parsing/parser.ml" in # 2995 "parsing/parser.mly" ( (Ptype_record ls, priv, oty) ) # 24018 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = # 3692 "parsing/parser.mly" ( Public ) # 24071 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) # 24078 "parsing/parser.ml" in # 126 "" ( Some x ) # 24083 "parsing/parser.ml" in # 2999 "parsing/parser.mly" ( _1 ) # 24089 "parsing/parser.ml" in # 2995 "parsing/parser.mly" ( (Ptype_record ls, priv, oty) ) # 24095 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = # 3693 "parsing/parser.mly" ( Private ) # 24155 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) # 24162 "parsing/parser.ml" in # 126 "" ( Some x ) # 24167 "parsing/parser.ml" in # 2999 "parsing/parser.mly" ( _1 ) # 24173 "parsing/parser.ml" in # 2995 "parsing/parser.mly" ( (Ptype_record ls, priv, oty) ) # 24179 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.open_declaration * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined2 in # 3833 "parsing/parser.mly" ( _1 ) # 24234 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 24243 "parsing/parser.ml" in let override = # 3739 "parsing/parser.mly" ( Fresh ) # 24249 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1547 "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 ) # 24262 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.open_declaration * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in # 3833 "parsing/parser.mly" ( _1 ) # 24324 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let attrs1 = let _1 = _1_inlined2 in # 3837 "parsing/parser.mly" ( _1 ) # 24333 "parsing/parser.ml" in let override = let _1 = _1_inlined1 in # 3740 "parsing/parser.mly" ( Override ) # 24341 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1547 "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 ) # 24355 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.open_description * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in # 3833 "parsing/parser.mly" ( _1 ) # 24410 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 24422 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 24430 "parsing/parser.ml" in let override = # 3739 "parsing/parser.mly" ( Fresh ) # 24436 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1562 "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 ) # 24449 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.open_description * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined4 in # 3833 "parsing/parser.mly" ( _1 ) # 24511 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 24523 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined2 in # 3837 "parsing/parser.mly" ( _1 ) # 24531 "parsing/parser.ml" in let override = let _1 = _1_inlined1 in # 3740 "parsing/parser.mly" ( Override ) # 24539 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1562 "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 ) # 24553 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 731 "parsing/parser.mly" (string) # 24574 "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) = # 3531 "parsing/parser.mly" ( _1 ) # 24582 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 689 "parsing/parser.mly" (string) # 24603 "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) = # 3532 "parsing/parser.mly" ( _1 ) # 24611 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 690 "parsing/parser.mly" (string) # 24632 "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) = # 3533 "parsing/parser.mly" ( _1 ) # 24640 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 688 "parsing/parser.mly" (string) # 24682 "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) = # 3534 "parsing/parser.mly" ( "."^ _1 ^"(" ^ _3 ^ ")" ) # 24690 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 688 "parsing/parser.mly" (string) # 24739 "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) = # 3535 "parsing/parser.mly" ( "."^ _1 ^ "(" ^ _3 ^ ")<-" ) # 24747 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 688 "parsing/parser.mly" (string) # 24789 "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) = # 3536 "parsing/parser.mly" ( "."^ _1 ^"[" ^ _3 ^ "]" ) # 24797 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 688 "parsing/parser.mly" (string) # 24846 "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) = # 3537 "parsing/parser.mly" ( "."^ _1 ^ "[" ^ _3 ^ "]<-" ) # 24854 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 688 "parsing/parser.mly" (string) # 24896 "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) = # 3538 "parsing/parser.mly" ( "."^ _1 ^"{" ^ _3 ^ "}" ) # 24904 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 688 "parsing/parser.mly" (string) # 24953 "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) = # 3539 "parsing/parser.mly" ( "."^ _1 ^ "{" ^ _3 ^ "}<-" ) # 24961 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 742 "parsing/parser.mly" (string) # 24982 "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) = # 3540 "parsing/parser.mly" ( _1 ) # 24990 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3541 "parsing/parser.mly" ( "!" ) # 25015 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 683 "parsing/parser.mly" (string) # 25036 "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 : (Asttypes.label) = let _1 = # 3545 "parsing/parser.mly" ( op ) # 25044 "parsing/parser.ml" in # 3542 "parsing/parser.mly" ( _1 ) # 25049 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 684 "parsing/parser.mly" (string) # 25070 "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 : (Asttypes.label) = let _1 = # 3546 "parsing/parser.mly" ( op ) # 25078 "parsing/parser.ml" in # 3542 "parsing/parser.mly" ( _1 ) # 25083 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 685 "parsing/parser.mly" (string) # 25104 "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 : (Asttypes.label) = let _1 = # 3547 "parsing/parser.mly" ( op ) # 25112 "parsing/parser.ml" in # 3542 "parsing/parser.mly" ( _1 ) # 25117 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 686 "parsing/parser.mly" (string) # 25138 "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 : (Asttypes.label) = let _1 = # 3548 "parsing/parser.mly" ( op ) # 25146 "parsing/parser.ml" in # 3542 "parsing/parser.mly" ( _1 ) # 25151 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 687 "parsing/parser.mly" (string) # 25172 "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 : (Asttypes.label) = let _1 = # 3549 "parsing/parser.mly" ( op ) # 25180 "parsing/parser.ml" in # 3542 "parsing/parser.mly" ( _1 ) # 25185 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = let _1 = # 3550 "parsing/parser.mly" ("+") # 25210 "parsing/parser.ml" in # 3542 "parsing/parser.mly" ( _1 ) # 25215 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = let _1 = # 3551 "parsing/parser.mly" ("+.") # 25240 "parsing/parser.ml" in # 3542 "parsing/parser.mly" ( _1 ) # 25245 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = let _1 = # 3552 "parsing/parser.mly" ("+=") # 25270 "parsing/parser.ml" in # 3542 "parsing/parser.mly" ( _1 ) # 25275 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = let _1 = # 3553 "parsing/parser.mly" ("-") # 25300 "parsing/parser.ml" in # 3542 "parsing/parser.mly" ( _1 ) # 25305 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = let _1 = # 3554 "parsing/parser.mly" ("-.") # 25330 "parsing/parser.ml" in # 3542 "parsing/parser.mly" ( _1 ) # 25335 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = let _1 = # 3555 "parsing/parser.mly" ("*") # 25360 "parsing/parser.ml" in # 3542 "parsing/parser.mly" ( _1 ) # 25365 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = let _1 = # 3556 "parsing/parser.mly" ("%") # 25390 "parsing/parser.ml" in # 3542 "parsing/parser.mly" ( _1 ) # 25395 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = let _1 = # 3557 "parsing/parser.mly" ("=") # 25420 "parsing/parser.ml" in # 3542 "parsing/parser.mly" ( _1 ) # 25425 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = let _1 = # 3558 "parsing/parser.mly" ("<") # 25450 "parsing/parser.ml" in # 3542 "parsing/parser.mly" ( _1 ) # 25455 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = let _1 = # 3559 "parsing/parser.mly" (">") # 25480 "parsing/parser.ml" in # 3542 "parsing/parser.mly" ( _1 ) # 25485 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = let _1 = # 3560 "parsing/parser.mly" ("or") # 25510 "parsing/parser.ml" in # 3542 "parsing/parser.mly" ( _1 ) # 25515 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = let _1 = # 3561 "parsing/parser.mly" ("||") # 25540 "parsing/parser.ml" in # 3542 "parsing/parser.mly" ( _1 ) # 25545 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = let _1 = # 3562 "parsing/parser.mly" ("&") # 25570 "parsing/parser.ml" in # 3542 "parsing/parser.mly" ( _1 ) # 25575 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = let _1 = # 3563 "parsing/parser.mly" ("&&") # 25600 "parsing/parser.ml" in # 3542 "parsing/parser.mly" ( _1 ) # 25605 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = let _1 = # 3564 "parsing/parser.mly" (":=") # 25630 "parsing/parser.ml" in # 3542 "parsing/parser.mly" ( _1 ) # 25635 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3446 "parsing/parser.mly" ( true ) # 25660 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 3447 "parsing/parser.mly" ( false ) # 25678 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 114 "" ( None ) # 25696 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 116 "" ( Some x ) # 25721 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 114 "" ( None ) # 25739 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 116 "" ( Some x ) # 25764 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 114 "" ( None ) # 25782 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 25809 "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 : (string Asttypes.loc option) = 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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 25824 "parsing/parser.ml" in # 183 "" ( x ) # 25830 "parsing/parser.ml" in # 116 "" ( Some x ) # 25836 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 114 "" ( None ) # 25854 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.core_type option) = let x = # 183 "" ( x ) # 25886 "parsing/parser.ml" in # 116 "" ( Some x ) # 25891 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 114 "" ( None ) # 25909 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression option) = let x = # 183 "" ( x ) # 25941 "parsing/parser.ml" in # 116 "" ( Some x ) # 25946 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 114 "" ( None ) # 25964 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.module_type option) = let x = # 183 "" ( x ) # 25996 "parsing/parser.ml" in # 116 "" ( Some x ) # 26001 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 114 "" ( None ) # 26019 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern option) = let x = # 183 "" ( x ) # 26051 "parsing/parser.ml" in # 116 "" ( Some x ) # 26056 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 114 "" ( None ) # 26074 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression option) = let x = # 183 "" ( x ) # 26106 "parsing/parser.ml" in # 116 "" ( Some x ) # 26111 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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 * Parsetree.core_type option) option) = # 114 "" ( None ) # 26129 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 option * Parsetree.core_type option) = 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.core_type option * Parsetree.core_type option) option) = # 116 "" ( Some x ) # 26154 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 724 "parsing/parser.mly" (string) # 26175 "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) = # 3751 "parsing/parser.mly" ( _1 ) # 26183 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 26217 "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) = # 3752 "parsing/parser.mly" ( _2 ) # 26226 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.module_expr) = let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1326 "parsing/parser.mly" ( mkmod ~loc:_sloc (Pmod_constraint(me, mty)) ) # 26282 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.module_expr) = let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 1328 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) # 26337 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 1331 "parsing/parser.mly" ( me (* TODO consider reloc *) ) # 26376 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.module_expr) = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 1333 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) # 26417 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 = _2; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_; CamlinternalMenhirLib.EngineTypes.next = { CamlinternalMenhirLib.EngineTypes.state = _menhir_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 _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 : (Parsetree.module_expr) = let e = # 1350 "parsing/parser.mly" ( e ) # 26470 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 26477 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1337 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) # 26486 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_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_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.module_type) = Obj.magic _1_inlined2 in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let e : (Parsetree.expression) = Obj.magic e 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 : (Parsetree.module_expr) = let e = let (_endpos__1_, _startpos__1_, _1, _2) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2, _2_inlined1) in let ty = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3421 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) # 26561 "parsing/parser.ml" in let _endpos_ty_ = _endpos__1_ in let _endpos = _endpos_ty_ in let _startpos = _startpos_e_ in let _loc = (_startpos, _endpos) in # 1352 "parsing/parser.mly" ( ghexp ~loc:_loc (Pexp_constraint (e, ty)) ) # 26571 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 26579 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1337 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) # 26588 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 = _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 = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_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_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 _4 : unit = Obj.magic _4 in let _1_inlined2 : (Parsetree.module_type) = Obj.magic _1_inlined2 in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let e : (Parsetree.expression) = Obj.magic e 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 : (Parsetree.module_expr) = let e = let (_endpos__1_inlined1_, _startpos__1_inlined1_, _endpos__1_, _startpos__1_, _1_inlined1, _1, _2) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined3, _1_inlined2, _2_inlined1) in let ty2 = 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 # 3421 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) # 26678 "parsing/parser.ml" in let _endpos_ty2_ = _endpos__1_inlined1_ in let ty1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3421 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) # 26691 "parsing/parser.ml" in let _endpos = _endpos_ty2_ in let _startpos = _startpos_e_ in let _loc = (_startpos, _endpos) in # 1354 "parsing/parser.mly" ( ghexp ~loc:_loc (Pexp_coerce (e, Some ty1, ty2)) ) # 26700 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 26708 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1337 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) # 26717 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 = _2_inlined1; CamlinternalMenhirLib.EngineTypes.startp = _startpos__2_inlined1_; CamlinternalMenhirLib.EngineTypes.endp = _endpos__2_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_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.module_type) = Obj.magic _1_inlined2 in let _2_inlined1 : unit = Obj.magic _2_inlined1 in let e : (Parsetree.expression) = Obj.magic e 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 : (Parsetree.module_expr) = let e = let (_endpos__1_, _startpos__1_, _1, _2) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2, _2_inlined1) in let ty2 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3421 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) # 26792 "parsing/parser.ml" in let _endpos_ty2_ = _endpos__1_ in let _endpos = _endpos_ty2_ in let _startpos = _startpos_e_ in let _loc = (_startpos, _endpos) in # 1356 "parsing/parser.mly" ( ghexp ~loc:_loc (Pexp_coerce (e, None, ty2)) ) # 26802 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 26810 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1337 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) # 26819 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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_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.expression) = Obj.magic _4 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 : (Parsetree.module_expr) = let _3 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 26881 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 1339 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__6_ ) # 26889 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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_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.expression) = Obj.magic _4 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 : (Parsetree.module_expr) = let _3 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 26951 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 1341 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__6_ ) # 26959 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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_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.expression) = Obj.magic _4 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 : (Parsetree.module_expr) = let _3 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 27014 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 1343 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) # 27022 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 1245 "parsing/parser.mly" ( _1 ) # 27054 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 1230 "parsing/parser.mly" ( _1 ) # 27086 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 1205 "parsing/parser.mly" ( _1 ) # 27118 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 1210 "parsing/parser.mly" ( _1 ) # 27150 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 1235 "parsing/parser.mly" ( _1 ) # 27182 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 1240 "parsing/parser.mly" ( _1 ) # 27214 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 1220 "parsing/parser.mly" ( _1 ) # 27246 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 1215 "parsing/parser.mly" ( _1 ) # 27278 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 1225 "parsing/parser.mly" ( _1 ) # 27310 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = 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 # 2712 "parsing/parser.mly" ( mkpat_cons ~loc:_sloc _loc__2_ (ghpat ~loc:_sloc (Ppat_tuple[_1;_3])) ) # 27354 "parsing/parser.ml" in # 2700 "parsing/parser.mly" ( _1 ) # 27360 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = # 2714 "parsing/parser.mly" ( Pat.attr _1 _2 ) # 27392 "parsing/parser.ml" in # 2700 "parsing/parser.mly" ( _1 ) # 27397 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = let _1 = # 2716 "parsing/parser.mly" ( _1 ) # 27422 "parsing/parser.ml" in # 2700 "parsing/parser.mly" ( _1 ) # 27427 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = 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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 27474 "parsing/parser.ml" in # 2719 "parsing/parser.mly" ( Ppat_alias(_1, _3) ) # 27480 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 27490 "parsing/parser.ml" in # 2730 "parsing/parser.mly" ( _1 ) # 27496 "parsing/parser.ml" in # 2700 "parsing/parser.mly" ( _1 ) # 27502 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2721 "parsing/parser.mly" ( expecting _loc__3_ "identifier" ) # 27545 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 27555 "parsing/parser.ml" in # 2730 "parsing/parser.mly" ( _1 ) # 27561 "parsing/parser.ml" in # 2700 "parsing/parser.mly" ( _1 ) # 27567 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 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) = let _1 = let _1 = let _1 = # 2723 "parsing/parser.mly" ( Ppat_tuple(List.rev _1) ) # 27594 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 27602 "parsing/parser.ml" in # 2730 "parsing/parser.mly" ( _1 ) # 27608 "parsing/parser.ml" in # 2700 "parsing/parser.mly" ( _1 ) # 27614 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2725 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) # 27657 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 27667 "parsing/parser.ml" in # 2730 "parsing/parser.mly" ( _1 ) # 27673 "parsing/parser.ml" in # 2700 "parsing/parser.mly" ( _1 ) # 27679 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = let _1 = # 2727 "parsing/parser.mly" ( Ppat_or(_1, _3) ) # 27720 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 27729 "parsing/parser.ml" in # 2730 "parsing/parser.mly" ( _1 ) # 27735 "parsing/parser.ml" in # 2700 "parsing/parser.mly" ( _1 ) # 27741 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2729 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) # 27784 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 27794 "parsing/parser.ml" in # 2730 "parsing/parser.mly" ( _1 ) # 27800 "parsing/parser.ml" in # 2700 "parsing/parser.mly" ( _1 ) # 27806 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 27856 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 27862 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2702 "parsing/parser.mly" ( mkpat_attrs ~loc:_sloc (Ppat_exception _3) _2) # 27871 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 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 : (Parsetree.pattern list) = # 2829 "parsing/parser.mly" ( _3 :: _1 ) # 27910 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern list) = # 2830 "parsing/parser.mly" ( [_3; _1] ) # 27949 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern list) = let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2831 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) # 27989 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 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 : (Parsetree.pattern list) = # 2829 "parsing/parser.mly" ( _3 :: _1 ) # 28028 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern list) = # 2830 "parsing/parser.mly" ( [_3; _1] ) # 28067 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern list) = let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2831 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) # 28107 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 2735 "parsing/parser.mly" ( _1 ) # 28132 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 28170 "parsing/parser.ml" in # 2738 "parsing/parser.mly" ( Ppat_construct(_1, Some ([], _2)) ) # 28176 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 28186 "parsing/parser.ml" in # 2744 "parsing/parser.mly" ( _1 ) # 28192 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = let newtypes = # 2480 "parsing/parser.mly" ( xs ) # 28254 "parsing/parser.ml" in let constr = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 28263 "parsing/parser.ml" in # 2741 "parsing/parser.mly" ( Ppat_construct(constr, Some (newtypes, pat)) ) # 28269 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 28279 "parsing/parser.ml" in # 2744 "parsing/parser.mly" ( _1 ) # 28285 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = # 2743 "parsing/parser.mly" ( Ppat_variant(_1, Some _2) ) # 28318 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 28327 "parsing/parser.ml" in # 2744 "parsing/parser.mly" ( _1 ) # 28333 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 28383 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 28389 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2746 "parsing/parser.mly" ( mkpat_attrs ~loc:_sloc (Ppat_lazy _3) _2) # 28398 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = 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 # 2712 "parsing/parser.mly" ( mkpat_cons ~loc:_sloc _loc__2_ (ghpat ~loc:_sloc (Ppat_tuple[_1;_3])) ) # 28442 "parsing/parser.ml" in # 2707 "parsing/parser.mly" ( _1 ) # 28448 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = # 2714 "parsing/parser.mly" ( Pat.attr _1 _2 ) # 28480 "parsing/parser.ml" in # 2707 "parsing/parser.mly" ( _1 ) # 28485 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = let _1 = # 2716 "parsing/parser.mly" ( _1 ) # 28510 "parsing/parser.ml" in # 2707 "parsing/parser.mly" ( _1 ) # 28515 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = 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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 28562 "parsing/parser.ml" in # 2719 "parsing/parser.mly" ( Ppat_alias(_1, _3) ) # 28568 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 28578 "parsing/parser.ml" in # 2730 "parsing/parser.mly" ( _1 ) # 28584 "parsing/parser.ml" in # 2707 "parsing/parser.mly" ( _1 ) # 28590 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2721 "parsing/parser.mly" ( expecting _loc__3_ "identifier" ) # 28633 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 28643 "parsing/parser.ml" in # 2730 "parsing/parser.mly" ( _1 ) # 28649 "parsing/parser.ml" in # 2707 "parsing/parser.mly" ( _1 ) # 28655 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 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) = let _1 = let _1 = let _1 = # 2723 "parsing/parser.mly" ( Ppat_tuple(List.rev _1) ) # 28682 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 28690 "parsing/parser.ml" in # 2730 "parsing/parser.mly" ( _1 ) # 28696 "parsing/parser.ml" in # 2707 "parsing/parser.mly" ( _1 ) # 28702 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2725 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) # 28745 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 28755 "parsing/parser.ml" in # 2730 "parsing/parser.mly" ( _1 ) # 28761 "parsing/parser.ml" in # 2707 "parsing/parser.mly" ( _1 ) # 28767 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = let _1 = # 2727 "parsing/parser.mly" ( Ppat_or(_1, _3) ) # 28808 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 28817 "parsing/parser.ml" in # 2730 "parsing/parser.mly" ( _1 ) # 28823 "parsing/parser.ml" in # 2707 "parsing/parser.mly" ( _1 ) # 28829 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2729 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) # 28872 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 28882 "parsing/parser.ml" in # 2730 "parsing/parser.mly" ( _1 ) # 28888 "parsing/parser.ml" in # 2707 "parsing/parser.mly" ( _1 ) # 28894 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 707 "parsing/parser.mly" (string) # 28915 "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 : (Parsetree.pattern) = let _1 = let _1 = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 28929 "parsing/parser.ml" in # 2202 "parsing/parser.mly" ( Ppat_var _1 ) # 28935 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 28944 "parsing/parser.ml" in # 2204 "parsing/parser.mly" ( _1 ) # 28950 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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.pattern) = let _1 = let _1 = # 2203 "parsing/parser.mly" ( Ppat_any ) # 28976 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 28984 "parsing/parser.ml" in # 2204 "parsing/parser.mly" ( _1 ) # 28990 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3863 "parsing/parser.mly" ( PStr _1 ) # 29015 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 3864 "parsing/parser.mly" ( PSig _2 ) # 29047 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 3865 "parsing/parser.mly" ( PTyp _2 ) # 29079 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 3866 "parsing/parser.mly" ( PPat (_2, None) ) # 29111 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 3867 "parsing/parser.mly" ( PPat (_2, Some _4) ) # 29157 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3260 "parsing/parser.mly" ( _1 ) # 29182 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.core_type) = let _1 = let _1 = let _1 = let _1 = let xs = # 253 "" ( List.rev xs ) # 29225 "parsing/parser.ml" in # 987 "parsing/parser.mly" ( xs ) # 29230 "parsing/parser.ml" in # 3252 "parsing/parser.mly" ( _1 ) # 29236 "parsing/parser.ml" in # 3256 "parsing/parser.mly" ( Ptyp_poly(_1, _3) ) # 29242 "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 # 922 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 29252 "parsing/parser.ml" in # 3262 "parsing/parser.mly" ( _1 ) # 29258 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = let _1 = # 3291 "parsing/parser.mly" ( _1 ) # 29283 "parsing/parser.ml" in # 3260 "parsing/parser.mly" ( _1 ) # 29288 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.core_type) = let _1 = let _1 = let _3 = # 3291 "parsing/parser.mly" ( _1 ) # 29329 "parsing/parser.ml" in let _1 = let _1 = let xs = # 253 "" ( List.rev xs ) # 29336 "parsing/parser.ml" in # 987 "parsing/parser.mly" ( xs ) # 29341 "parsing/parser.ml" in # 3252 "parsing/parser.mly" ( _1 ) # 29347 "parsing/parser.ml" in # 3256 "parsing/parser.mly" ( Ptyp_poly(_1, _3) ) # 29353 "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 # 922 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 29363 "parsing/parser.ml" in # 3262 "parsing/parser.mly" ( _1 ) # 29369 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (string Asttypes.loc) = 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.attribute) = let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3824 "parsing/parser.mly" ( Attr.mk ~loc:(make_loc _sloc) _2 _3 ) # 29418 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.value_description * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in # 3833 "parsing/parser.mly" ( _1 ) # 29501 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 29513 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 29521 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2893 "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 ) # 29534 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = let _1 = # 3692 "parsing/parser.mly" ( Public ) # 29552 "parsing/parser.ml" in # 3689 "parsing/parser.mly" ( _1 ) # 29557 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = let _1 = # 3693 "parsing/parser.mly" ( Private ) # 29582 "parsing/parser.ml" in # 3689 "parsing/parser.mly" ( _1 ) # 29587 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 3715 "parsing/parser.mly" ( Public, Concrete ) # 29605 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3716 "parsing/parser.mly" ( Private, Concrete ) # 29630 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3717 "parsing/parser.mly" ( Public, Virtual ) # 29655 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 3718 "parsing/parser.mly" ( Private, Virtual ) # 29687 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 3719 "parsing/parser.mly" ( Private, Virtual ) # 29719 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 3670 "parsing/parser.mly" ( Nonrecursive ) # 29737 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3671 "parsing/parser.mly" ( Recursive ) # 29762 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.expression option * (Longident.t Asttypes.loc * Parsetree.expression) list) = let eo = # 124 "" ( None ) # 29788 "parsing/parser.ml" in # 2632 "parsing/parser.mly" ( eo, fields ) # 29793 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression option * (Longident.t Asttypes.loc * Parsetree.expression) list) = let eo = let x = # 191 "" ( x ) # 29834 "parsing/parser.ml" in # 126 "" ( Some x ) # 29839 "parsing/parser.ml" in # 2632 "parsing/parser.mly" ( eo, fields ) # 29845 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 * 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 : (Parsetree.constructor_declaration list) = let x = # 3078 "parsing/parser.mly" ( let cid, args, res, attrs, loc, info = d in Type.constructor cid ~args ?res ~attrs ~loc ~info ) # 29875 "parsing/parser.ml" in # 1097 "parsing/parser.mly" ( [x] ) # 29880 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 * 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 : (Parsetree.constructor_declaration list) = let x = # 3078 "parsing/parser.mly" ( let cid, args, res, attrs, loc, info = d in Type.constructor cid ~args ?res ~attrs ~loc ~info ) # 29910 "parsing/parser.ml" in # 1100 "parsing/parser.mly" ( [x] ) # 29915 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 * 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 : (Parsetree.constructor_declaration list) = let x = # 3078 "parsing/parser.mly" ( let cid, args, res, attrs, loc, info = d in Type.constructor cid ~args ?res ~attrs ~loc ~info ) # 29952 "parsing/parser.ml" in # 1104 "parsing/parser.mly" ( x :: xs ) # 29957 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 * 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 : (Parsetree.extension_constructor list) = let x = let _1 = # 3190 "parsing/parser.mly" ( let cid, args, res, attrs, loc, info = d in Te.decl cid ~args ?res ~attrs ~loc ~info ) # 29988 "parsing/parser.ml" in # 3184 "parsing/parser.mly" ( _1 ) # 29993 "parsing/parser.ml" in # 1097 "parsing/parser.mly" ( [x] ) # 29999 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.extension_constructor list) = let x = # 3186 "parsing/parser.mly" ( _1 ) # 30024 "parsing/parser.ml" in # 1097 "parsing/parser.mly" ( [x] ) # 30029 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 * 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 : (Parsetree.extension_constructor list) = let x = let _1 = # 3190 "parsing/parser.mly" ( let cid, args, res, attrs, loc, info = d in Te.decl cid ~args ?res ~attrs ~loc ~info ) # 30060 "parsing/parser.ml" in # 3184 "parsing/parser.mly" ( _1 ) # 30065 "parsing/parser.ml" in # 1100 "parsing/parser.mly" ( [x] ) # 30071 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.extension_constructor list) = let x = # 3186 "parsing/parser.mly" ( _1 ) # 30096 "parsing/parser.ml" in # 1100 "parsing/parser.mly" ( [x] ) # 30101 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 * 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 : (Parsetree.extension_constructor list) = let x = let _1 = # 3190 "parsing/parser.mly" ( let cid, args, res, attrs, loc, info = d in Te.decl cid ~args ?res ~attrs ~loc ~info ) # 30139 "parsing/parser.ml" in # 3184 "parsing/parser.mly" ( _1 ) # 30144 "parsing/parser.ml" in # 1104 "parsing/parser.mly" ( x :: xs ) # 30150 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.extension_constructor list) = let x = # 3186 "parsing/parser.mly" ( _1 ) # 30182 "parsing/parser.ml" in # 1104 "parsing/parser.mly" ( x :: xs ) # 30187 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 * 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 : (Parsetree.extension_constructor list) = let x = # 3190 "parsing/parser.mly" ( let cid, args, res, attrs, loc, info = d in Te.decl cid ~args ?res ~attrs ~loc ~info ) # 30217 "parsing/parser.ml" in # 1097 "parsing/parser.mly" ( [x] ) # 30222 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 * 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 : (Parsetree.extension_constructor list) = let x = # 3190 "parsing/parser.mly" ( let cid, args, res, attrs, loc, info = d in Te.decl cid ~args ?res ~attrs ~loc ~info ) # 30252 "parsing/parser.ml" in # 1100 "parsing/parser.mly" ( [x] ) # 30257 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 * 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 : (Parsetree.extension_constructor list) = let x = # 3190 "parsing/parser.mly" ( let cid, args, res, attrs, loc, info = d in Te.decl cid ~args ?res ~attrs ~loc ~info ) # 30294 "parsing/parser.ml" in # 1104 "parsing/parser.mly" ( x :: xs ) # 30299 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 963 "parsing/parser.mly" ( [] ) # 30317 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ((Parsetree.core_type * Parsetree.core_type * Ast_helper.loc) list) = 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 # 2082 "parsing/parser.mly" ( _1, _3, make_loc _sloc ) # 30376 "parsing/parser.ml" in # 183 "" ( x ) # 30382 "parsing/parser.ml" in # 965 "parsing/parser.mly" ( x :: xs ) # 30388 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 977 "parsing/parser.mly" ( [ x ] ) # 30413 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 979 "parsing/parser.mly" ( x :: xs ) # 30445 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 977 "parsing/parser.mly" ( [ x ] ) # 30470 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 979 "parsing/parser.mly" ( x :: xs ) # 30502 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 977 "parsing/parser.mly" ( [ x ] ) # 30527 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 979 "parsing/parser.mly" ( x :: xs ) # 30559 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Asttypes.label Asttypes.loc list) = let x = 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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 30597 "parsing/parser.ml" in # 3248 "parsing/parser.mly" ( _2 ) # 30603 "parsing/parser.ml" in # 977 "parsing/parser.mly" ( [ x ] ) # 30609 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 = xs; CamlinternalMenhirLib.EngineTypes.startp = _startpos_xs_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_xs_; 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 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_inlined1_ in let _v : (Asttypes.label Asttypes.loc list) = let x = 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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 30654 "parsing/parser.ml" in # 3248 "parsing/parser.mly" ( _2 ) # 30660 "parsing/parser.ml" in # 979 "parsing/parser.mly" ( x :: xs ) # 30666 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.case list) = let _1 = # 124 "" ( None ) # 30691 "parsing/parser.ml" in # 1068 "parsing/parser.mly" ( [x] ) # 30696 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.case list) = let _1 = let x = x_inlined1 in # 126 "" ( Some x ) # 30730 "parsing/parser.ml" in # 1068 "parsing/parser.mly" ( [x] ) # 30736 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 1072 "parsing/parser.mly" ( x :: xs ) # 30775 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 list) = let xs = let x = # 3291 "parsing/parser.mly" ( _1 ) # 30801 "parsing/parser.ml" in # 1003 "parsing/parser.mly" ( [ x ] ) # 30806 "parsing/parser.ml" in # 1011 "parsing/parser.mly" ( xs ) # 30812 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.core_type list) = let xs = let x = # 3291 "parsing/parser.mly" ( _1 ) # 30852 "parsing/parser.ml" in # 1007 "parsing/parser.mly" ( x :: xs ) # 30857 "parsing/parser.ml" in # 1011 "parsing/parser.mly" ( xs ) # 30863 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.with_constraint list) = let xs = # 1003 "parsing/parser.mly" ( [ x ] ) # 30888 "parsing/parser.ml" in # 1011 "parsing/parser.mly" ( xs ) # 30893 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.with_constraint list) = let xs = # 1007 "parsing/parser.mly" ( x :: xs ) # 30932 "parsing/parser.ml" in # 1011 "parsing/parser.mly" ( xs ) # 30937 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.row_field list) = let xs = # 1003 "parsing/parser.mly" ( [ x ] ) # 30962 "parsing/parser.ml" in # 1011 "parsing/parser.mly" ( xs ) # 30967 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.row_field list) = let xs = # 1007 "parsing/parser.mly" ( x :: xs ) # 31006 "parsing/parser.ml" in # 1011 "parsing/parser.mly" ( xs ) # 31011 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.core_type list) = let xs = # 1003 "parsing/parser.mly" ( [ x ] ) # 31036 "parsing/parser.ml" in # 1011 "parsing/parser.mly" ( xs ) # 31041 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = let xs = # 1007 "parsing/parser.mly" ( x :: xs ) # 31080 "parsing/parser.ml" in # 1011 "parsing/parser.mly" ( xs ) # 31085 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let xs = # 1003 "parsing/parser.mly" ( [ x ] ) # 31110 "parsing/parser.ml" in # 1011 "parsing/parser.mly" ( xs ) # 31115 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let xs = # 1007 "parsing/parser.mly" ( x :: xs ) # 31154 "parsing/parser.ml" in # 1011 "parsing/parser.mly" ( xs ) # 31159 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.core_type list) = let xs = # 1003 "parsing/parser.mly" ( [ x ] ) # 31184 "parsing/parser.ml" in # 1011 "parsing/parser.mly" ( xs ) # 31189 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = let xs = # 1007 "parsing/parser.mly" ( x :: xs ) # 31228 "parsing/parser.ml" in # 1011 "parsing/parser.mly" ( xs ) # 31233 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 1034 "parsing/parser.mly" ( x :: xs ) # 31272 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 1038 "parsing/parser.mly" ( [ x2; x1 ] ) # 31311 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.expression) = Obj.magic x in let _2 : unit = Obj.magic _2 in let xs : (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 : (Parsetree.expression list) = # 1034 "parsing/parser.mly" ( x :: xs ) # 31350 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.expression) = Obj.magic x2 in let _2 : unit = Obj.magic _2 in let x1 : (Parsetree.expression) = 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.expression list) = # 1038 "parsing/parser.mly" ( [ x2; x1 ] ) # 31389 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 1034 "parsing/parser.mly" ( x :: xs ) # 31428 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 1038 "parsing/parser.mly" ( [ x2; x1 ] ) # 31467 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3431 "parsing/parser.mly" ( _1 ) # 31492 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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.row_field) = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3433 "parsing/parser.mly" ( Rf.inherit_ ~loc:(make_loc _sloc) _1 ) # 31520 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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.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 : (Parsetree.expression list) = let _2 = # 124 "" ( None ) # 31545 "parsing/parser.ml" in # 1055 "parsing/parser.mly" ( [x] ) # 31550 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.expression) = 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 : (Parsetree.expression list) = let _2 = let x = x_inlined1 in # 126 "" ( Some x ) # 31584 "parsing/parser.ml" in # 1055 "parsing/parser.mly" ( [x] ) # 31590 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.expression list) = Obj.magic xs 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_xs_ in let _v : (Parsetree.expression list) = # 1059 "parsing/parser.mly" ( x :: xs ) # 31629 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 31657 "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 : ((Asttypes.label Asttypes.loc * Parsetree.expression) list) = let _2 = # 124 "" ( None ) # 31665 "parsing/parser.ml" in let x = let label = let _1 = # 3495 "parsing/parser.mly" ( _1 ) # 31672 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 31680 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in let _endpos = _endpos_oe_ in let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in # 2655 "parsing/parser.mly" ( let e = match oe with | None -> (* No expression; this is a pun. Desugar it. *) exp_of_label ~loc:_sloc label | Some e -> e in label, e ) # 31698 "parsing/parser.ml" in # 1055 "parsing/parser.mly" ( [x] ) # 31704 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 31739 "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 : ((Asttypes.label Asttypes.loc * Parsetree.expression) list) = let _2 = # 126 "" ( Some x ) # 31747 "parsing/parser.ml" in let x = let label = let _1 = # 3495 "parsing/parser.mly" ( _1 ) # 31754 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 31762 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in let _endpos = _endpos_oe_ in let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in # 2655 "parsing/parser.mly" ( let e = match oe with | None -> (* No expression; this is a pun. Desugar it. *) exp_of_label ~loc:_sloc label | Some e -> e in label, e ) # 31780 "parsing/parser.ml" in # 1055 "parsing/parser.mly" ( [x] ) # 31786 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 31828 "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 : ((Asttypes.label Asttypes.loc * Parsetree.expression) list) = let x = let label = let _1 = # 3495 "parsing/parser.mly" ( _1 ) # 31838 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 31846 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in let _endpos = _endpos_oe_ in let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in # 2655 "parsing/parser.mly" ( let e = match oe with | None -> (* No expression; this is a pun. Desugar it. *) exp_of_label ~loc:_sloc label | Some e -> e in label, e ) # 31864 "parsing/parser.ml" in # 1059 "parsing/parser.mly" ( x :: xs ) # 31870 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.pattern list) = let _2 = # 124 "" ( None ) # 31895 "parsing/parser.ml" in # 1055 "parsing/parser.mly" ( [x] ) # 31900 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern list) = let _2 = let x = x_inlined1 in # 126 "" ( Some x ) # 31934 "parsing/parser.ml" in # 1055 "parsing/parser.mly" ( [x] ) # 31940 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 1059 "parsing/parser.mly" ( x :: xs ) # 31979 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.core_type option * Parsetree.core_type option) 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 : ((Longident.t Asttypes.loc * Parsetree.expression) list) = let _2 = # 124 "" ( None ) # 32018 "parsing/parser.ml" in let x = let label = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 32028 "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 # 2638 "parsing/parser.mly" ( let e = match eo with | None -> (* No pattern; this is a pun. Desugar it. *) exp_of_longident ~loc:_sloc label | Some e -> e in label, mkexp_opt_constraint ~loc:_sloc e c ) # 32046 "parsing/parser.ml" in # 1055 "parsing/parser.mly" ( [x] ) # 32052 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.core_type option * Parsetree.core_type option) 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 : ((Longident.t Asttypes.loc * Parsetree.expression) list) = let _2 = # 126 "" ( Some x ) # 32098 "parsing/parser.ml" in let x = let label = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 32108 "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 # 2638 "parsing/parser.mly" ( let e = match eo with | None -> (* No pattern; this is a pun. Desugar it. *) exp_of_longident ~loc:_sloc label | Some e -> e in label, mkexp_opt_constraint ~loc:_sloc e c ) # 32126 "parsing/parser.ml" in # 1055 "parsing/parser.mly" ( [x] ) # 32132 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.core_type option * Parsetree.core_type option) 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 : ((Longident.t Asttypes.loc * Parsetree.expression) list) = let x = let label = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 32190 "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 # 2638 "parsing/parser.mly" ( let e = match eo with | None -> (* No pattern; this is a pun. Desugar it. *) exp_of_longident ~loc:_sloc label | Some e -> e in label, mkexp_opt_constraint ~loc:_sloc e c ) # 32208 "parsing/parser.ml" in # 1059 "parsing/parser.mly" ( x :: xs ) # 32214 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 2171 "parsing/parser.mly" ( _1 ) # 32239 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 2172 "parsing/parser.mly" ( _1 ) # 32271 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _1 = # 2174 "parsing/parser.mly" ( Pexp_sequence(_1, _3) ) # 32311 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 32320 "parsing/parser.ml" in # 2175 "parsing/parser.mly" ( _1 ) # 32326 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (string Asttypes.loc) = 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 : (Parsetree.expression) = let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2177 "parsing/parser.mly" ( let seq = mkexp ~loc:_sloc (Pexp_sequence (_1, _5)) in let payload = PStr [mkstrexp seq []] in mkexp ~loc:_sloc (Pexp_extension (_4, payload)) ) # 32384 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 = args_res; CamlinternalMenhirLib.EngineTypes.startp = _startpos_args_res_; CamlinternalMenhirLib.EngineTypes.endp = _endpos_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 args_res : (Parsetree.constructor_arguments * Parsetree.core_type option) = Obj.magic 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 : (Parsetree.type_exception * string Asttypes.loc option) = let attrs = let _1 = _1_inlined4 in # 3833 "parsing/parser.mly" ( _1 ) # 32453 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined4_ in let attrs2 = let _1 = _1_inlined3 in # 3837 "parsing/parser.mly" ( _1 ) # 32462 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 32474 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 32482 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _startpos = _startpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3108 "parsing/parser.mly" ( let args, res = args_res in let loc = make_loc (_startpos, _endpos_attrs2_) in let docs = symbol_docs _sloc in Te.mk_exception ~attrs (Te.decl id ~args ?res ~attrs:(attrs1 @ attrs2) ~loc ~docs) , ext ) # 32497 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.signature) = let _1 = let _1 = # 260 "" ( List.flatten xss ) # 32523 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 878 "parsing/parser.mly" ( extra_sig _startpos _endpos _1 ) # 32531 "parsing/parser.ml" in # 1620 "parsing/parser.mly" ( _1 ) # 32537 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.signature_item) = let _2 = let _1 = _1_inlined1 in # 3833 "parsing/parser.mly" ( _1 ) # 32571 "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 # 1635 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mksig ~loc:_sloc (Psig_extension (_1, (add_docs_attrs docs _2))) ) # 32582 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.signature_item) = let _1 = let _1 = # 1639 "parsing/parser.mly" ( Psig_attribute _1 ) # 32608 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 926 "parsing/parser.mly" ( mksig ~loc:_sloc _1 ) # 32616 "parsing/parser.ml" in # 1641 "parsing/parser.mly" ( _1 ) # 32622 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.signature_item) = let _1 = let _1 = # 1644 "parsing/parser.mly" ( psig_value _1 ) # 32648 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 943 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 32656 "parsing/parser.ml" in # 1676 "parsing/parser.mly" ( _1 ) # 32662 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.signature_item) = let _1 = let _1 = # 1646 "parsing/parser.mly" ( psig_value _1 ) # 32688 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 943 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 32696 "parsing/parser.ml" in # 1676 "parsing/parser.mly" ( _1 ) # 32702 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.signature_item) = let _1 = let _1 = let _1 = let _1 = let _1 = # 1116 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) # 32739 "parsing/parser.ml" in # 2929 "parsing/parser.mly" ( _1 ) # 32744 "parsing/parser.ml" in # 2912 "parsing/parser.mly" ( _1 ) # 32750 "parsing/parser.ml" in # 1648 "parsing/parser.mly" ( psig_type _1 ) # 32756 "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 # 943 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 32766 "parsing/parser.ml" in # 1676 "parsing/parser.mly" ( _1 ) # 32772 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.signature_item) = let _1 = let _1 = let _1 = let _1 = let _1 = # 1116 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) # 32809 "parsing/parser.ml" in # 2929 "parsing/parser.mly" ( _1 ) # 32814 "parsing/parser.ml" in # 2917 "parsing/parser.mly" ( _1 ) # 32820 "parsing/parser.ml" in # 1650 "parsing/parser.mly" ( psig_typesubst _1 ) # 32826 "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 # 943 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 32836 "parsing/parser.ml" in # 1676 "parsing/parser.mly" ( _1 ) # 32842 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.signature_item) = let _1 = let _1 = let _1 = let _1 = let attrs2 = let _1 = _1_inlined3 in # 3833 "parsing/parser.mly" ( _1 ) # 32929 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let cs = # 1108 "parsing/parser.mly" ( List.rev xs ) # 32936 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 32946 "parsing/parser.ml" in let _4 = # 3678 "parsing/parser.mly" ( Recursive ) # 32952 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 32959 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3177 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) # 32971 "parsing/parser.ml" in # 3164 "parsing/parser.mly" ( _1 ) # 32977 "parsing/parser.ml" in # 1652 "parsing/parser.mly" ( psig_typext _1 ) # 32983 "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 # 943 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 32993 "parsing/parser.ml" in # 1676 "parsing/parser.mly" ( _1 ) # 32999 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.signature_item) = let _1 = let _1 = let _1 = let _1 = let attrs2 = let _1 = _1_inlined4 in # 3833 "parsing/parser.mly" ( _1 ) # 33093 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in let cs = # 1108 "parsing/parser.mly" ( List.rev xs ) # 33100 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 33110 "parsing/parser.ml" in let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in # 3680 "parsing/parser.mly" ( not_expecting _loc "nonrec flag" ) # 33121 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 33129 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3177 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) # 33141 "parsing/parser.ml" in # 3164 "parsing/parser.mly" ( _1 ) # 33147 "parsing/parser.ml" in # 1652 "parsing/parser.mly" ( psig_typext _1 ) # 33153 "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 # 943 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 33163 "parsing/parser.ml" in # 1676 "parsing/parser.mly" ( _1 ) # 33169 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.signature_item) = let _1 = let _1 = # 1654 "parsing/parser.mly" ( psig_exception _1 ) # 33195 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 943 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 33203 "parsing/parser.ml" in # 1676 "parsing/parser.mly" ( _1 ) # 33209 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.signature_item) = let _1 = let _1 = let _1 = let attrs2 = let _1 = _1_inlined3 in # 3833 "parsing/parser.mly" ( _1 ) # 33274 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 33286 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 33294 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1685 "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 ) # 33308 "parsing/parser.ml" in # 1656 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_module body, ext) ) # 33314 "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 # 943 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 33324 "parsing/parser.ml" in # 1676 "parsing/parser.mly" ( _1 ) # 33330 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.signature_item) = let _1 = let _1 = let _1 = let attrs2 = let _1 = _1_inlined4 in # 3833 "parsing/parser.mly" ( _1 ) # 33402 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 33415 "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 # 1722 "parsing/parser.mly" ( Mty.alias ~loc:(make_loc _sloc) id ) # 33425 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 33436 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 33444 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1713 "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 ) # 33458 "parsing/parser.ml" in # 1658 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_module body, ext) ) # 33464 "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 # 943 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 33474 "parsing/parser.ml" in # 1676 "parsing/parser.mly" ( _1 ) # 33480 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.signature_item) = let _1 = let _1 = # 1660 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_modsubst body, ext) ) # 33506 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 943 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 33514 "parsing/parser.ml" in # 1676 "parsing/parser.mly" ( _1 ) # 33520 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.signature_item) = let _1 = let _1 = let _1 = let _1 = let a = let attrs2 = let _1 = _1_inlined3 in # 3833 "parsing/parser.mly" ( _1 ) # 33608 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 33620 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 33628 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1756 "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 ) # 33642 "parsing/parser.ml" in # 1116 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) # 33648 "parsing/parser.ml" in # 1745 "parsing/parser.mly" ( _1 ) # 33654 "parsing/parser.ml" in # 1662 "parsing/parser.mly" ( let (ext, l) = _1 in (Psig_recmodule l, ext) ) # 33660 "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 # 943 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 33670 "parsing/parser.ml" in # 1676 "parsing/parser.mly" ( _1 ) # 33676 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.signature_item) = let _1 = let _1 = # 1664 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_modtype body, ext) ) # 33702 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 943 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 33710 "parsing/parser.ml" in # 1676 "parsing/parser.mly" ( _1 ) # 33716 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.signature_item) = let _1 = let _1 = # 1666 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_modtypesubst body, ext) ) # 33742 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 943 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 33750 "parsing/parser.ml" in # 1676 "parsing/parser.mly" ( _1 ) # 33756 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.signature_item) = let _1 = let _1 = # 1668 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_open body, ext) ) # 33782 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 943 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 33790 "parsing/parser.ml" in # 1676 "parsing/parser.mly" ( _1 ) # 33796 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.signature_item) = let _1 = let _1 = let _1 = let attrs2 = let _1 = _1_inlined2 in # 3833 "parsing/parser.mly" ( _1 ) # 33854 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 33863 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1512 "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 ) # 33877 "parsing/parser.ml" in # 1670 "parsing/parser.mly" ( psig_include _1 ) # 33883 "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 # 943 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 33893 "parsing/parser.ml" in # 1676 "parsing/parser.mly" ( _1 ) # 33899 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 33978 "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 : (Parsetree.signature_item) = let _1 = let _1 = let _1 = let _1 = let a = let attrs2 = let _1 = _1_inlined3 in # 3833 "parsing/parser.mly" ( _1 ) # 33998 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 34010 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 34018 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2103 "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 ) # 34033 "parsing/parser.ml" in # 1116 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) # 34039 "parsing/parser.ml" in # 2091 "parsing/parser.mly" ( _1 ) # 34045 "parsing/parser.ml" in # 1672 "parsing/parser.mly" ( let (ext, l) = _1 in (Psig_class l, ext) ) # 34051 "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 # 943 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 34061 "parsing/parser.ml" in # 1676 "parsing/parser.mly" ( _1 ) # 34067 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.signature_item) = let _1 = let _1 = # 1674 "parsing/parser.mly" ( let (ext, l) = _1 in (Psig_class_type l, ext) ) # 34093 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 943 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) # 34101 "parsing/parser.ml" in # 1676 "parsing/parser.mly" ( _1 ) # 34107 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3507 "parsing/parser.mly" ( _1 ) # 34132 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 693 "parsing/parser.mly" (string * char option) # 34159 "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 : (Parsetree.constant) = # 3508 "parsing/parser.mly" ( let (n, m) = _2 in Pconst_integer("-" ^ n, m) ) # 34168 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 672 "parsing/parser.mly" (string * char option) # 34195 "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 : (Parsetree.constant) = # 3509 "parsing/parser.mly" ( let (f, m) = _2 in Pconst_float("-" ^ f, m) ) # 34204 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 693 "parsing/parser.mly" (string * char option) # 34231 "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 : (Parsetree.constant) = # 3510 "parsing/parser.mly" ( let (n, m) = _2 in Pconst_integer (n, m) ) # 34240 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 672 "parsing/parser.mly" (string * char option) # 34267 "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 : (Parsetree.constant) = # 3511 "parsing/parser.mly" ( let (f, m) = _2 in Pconst_float(f, m) ) # 34276 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = let _2 = let _1 = _1_inlined1 in # 2841 "parsing/parser.mly" ( let fields, closed = _1 in let closed = match closed with Some () -> Open | None -> Closed in fields, closed ) # 34321 "parsing/parser.ml" in # 2812 "parsing/parser.mly" ( let (fields, closed) = _2 in Ppat_record(fields, closed) ) # 34328 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 34338 "parsing/parser.ml" in # 2826 "parsing/parser.mly" ( _1 ) # 34344 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = let _2 = let _1 = _1_inlined1 in # 2841 "parsing/parser.mly" ( let fields, closed = _1 in let closed = match closed with Some () -> Open | None -> Closed in fields, closed ) # 34389 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2815 "parsing/parser.mly" ( unclosed "{" _loc__1_ "}" _loc__3_ ) # 34397 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 34407 "parsing/parser.ml" in # 2826 "parsing/parser.mly" ( _1 ) # 34413 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = let _2 = # 2835 "parsing/parser.mly" ( ps ) # 34454 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2817 "parsing/parser.mly" ( fst (mktailpat _loc__3_ _2) ) # 34460 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 34470 "parsing/parser.ml" in # 2826 "parsing/parser.mly" ( _1 ) # 34476 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = let _2 = # 2835 "parsing/parser.mly" ( ps ) # 34517 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2819 "parsing/parser.mly" ( unclosed "[" _loc__1_ "]" _loc__3_ ) # 34524 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 34534 "parsing/parser.ml" in # 2826 "parsing/parser.mly" ( _1 ) # 34540 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = let _2 = # 2835 "parsing/parser.mly" ( ps ) # 34581 "parsing/parser.ml" in # 2821 "parsing/parser.mly" ( Ppat_array _2 ) # 34586 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 34596 "parsing/parser.ml" in # 2826 "parsing/parser.mly" ( _1 ) # 34602 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.pattern) = let _1 = let _1 = # 2823 "parsing/parser.mly" ( Ppat_array [] ) # 34635 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 34644 "parsing/parser.ml" in # 2826 "parsing/parser.mly" ( _1 ) # 34650 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = let _2 = # 2835 "parsing/parser.mly" ( ps ) # 34691 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2825 "parsing/parser.mly" ( unclosed "[|" _loc__1_ "|]" _loc__3_ ) # 34698 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 34708 "parsing/parser.ml" in # 2826 "parsing/parser.mly" ( _1 ) # 34714 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2343 "parsing/parser.mly" ( reloc_exp ~loc:_sloc _2 ) # 34756 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2345 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) # 34797 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.core_type option * Parsetree.core_type option) = 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 : (Parsetree.expression) = let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2347 "parsing/parser.mly" ( mkexp_constraint ~loc:_sloc _2 _3 ) # 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 = _; 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 : (Parsetree.expression) = let _1 = let r = # 2348 "parsing/parser.mly" ( None ) # 34900 "parsing/parser.ml" in # 2233 "parsing/parser.mly" ( array, d, Paren, i, r ) # 34905 "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 # 2349 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) # 34915 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let r = # 2348 "parsing/parser.mly" ( None ) # 34969 "parsing/parser.ml" in # 2235 "parsing/parser.mly" ( array, d, Brace, i, r ) # 34974 "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 # 2349 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) # 34984 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let r = # 2348 "parsing/parser.mly" ( None ) # 35038 "parsing/parser.ml" in # 2237 "parsing/parser.mly" ( array, d, Bracket, i, r ) # 35043 "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 # 2349 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) # 35053 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 688 "parsing/parser.mly" (string) # 35101 "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 : (Parsetree.expression) = let _1 = let r = # 2350 "parsing/parser.mly" ( None ) # 35111 "parsing/parser.ml" in let i = # 2667 "parsing/parser.mly" ( es ) # 35116 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) # 35122 "parsing/parser.ml" in # 2249 "parsing/parser.mly" ( _1, _2 ) # 35127 "parsing/parser.ml" in # 2233 "parsing/parser.mly" ( array, d, Paren, i, r ) # 35133 "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 # 2351 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 35143 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 688 "parsing/parser.mly" (string) # 35203 "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 : (Parsetree.expression) = let _1 = let r = # 2350 "parsing/parser.mly" ( None ) # 35215 "parsing/parser.ml" in let i = # 2667 "parsing/parser.mly" ( es ) # 35220 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = # 2249 "parsing/parser.mly" (_2) # 35228 "parsing/parser.ml" in # 126 "" ( Some x ) # 35233 "parsing/parser.ml" in # 2249 "parsing/parser.mly" ( _1, _2 ) # 35239 "parsing/parser.ml" in # 2233 "parsing/parser.mly" ( array, d, Paren, i, r ) # 35245 "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 # 2351 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 35255 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 688 "parsing/parser.mly" (string) # 35303 "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 : (Parsetree.expression) = let _1 = let r = # 2350 "parsing/parser.mly" ( None ) # 35313 "parsing/parser.ml" in let i = # 2667 "parsing/parser.mly" ( es ) # 35318 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) # 35324 "parsing/parser.ml" in # 2249 "parsing/parser.mly" ( _1, _2 ) # 35329 "parsing/parser.ml" in # 2235 "parsing/parser.mly" ( array, d, Brace, i, r ) # 35335 "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 # 2351 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 35345 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 688 "parsing/parser.mly" (string) # 35405 "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 : (Parsetree.expression) = let _1 = let r = # 2350 "parsing/parser.mly" ( None ) # 35417 "parsing/parser.ml" in let i = # 2667 "parsing/parser.mly" ( es ) # 35422 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = # 2249 "parsing/parser.mly" (_2) # 35430 "parsing/parser.ml" in # 126 "" ( Some x ) # 35435 "parsing/parser.ml" in # 2249 "parsing/parser.mly" ( _1, _2 ) # 35441 "parsing/parser.ml" in # 2235 "parsing/parser.mly" ( array, d, Brace, i, r ) # 35447 "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 # 2351 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 35457 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 688 "parsing/parser.mly" (string) # 35505 "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 : (Parsetree.expression) = let _1 = let r = # 2350 "parsing/parser.mly" ( None ) # 35515 "parsing/parser.ml" in let i = # 2667 "parsing/parser.mly" ( es ) # 35520 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) # 35526 "parsing/parser.ml" in # 2249 "parsing/parser.mly" ( _1, _2 ) # 35531 "parsing/parser.ml" in # 2237 "parsing/parser.mly" ( array, d, Bracket, i, r ) # 35537 "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 # 2351 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 35547 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 688 "parsing/parser.mly" (string) # 35607 "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 : (Parsetree.expression) = let _1 = let r = # 2350 "parsing/parser.mly" ( None ) # 35619 "parsing/parser.ml" in let i = # 2667 "parsing/parser.mly" ( es ) # 35624 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = # 2249 "parsing/parser.mly" (_2) # 35632 "parsing/parser.ml" in # 126 "" ( Some x ) # 35637 "parsing/parser.ml" in # 2249 "parsing/parser.mly" ( _1, _2 ) # 35643 "parsing/parser.ml" in # 2237 "parsing/parser.mly" ( array, d, Bracket, i, r ) # 35649 "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 # 2351 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) # 35659 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in # 2242 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Paren _loc__e_ ) # 35715 "parsing/parser.ml" in # 2352 "parsing/parser.mly" ( _1 ) # 35721 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in # 2244 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Brace _loc__e_ ) # 35777 "parsing/parser.ml" in # 2352 "parsing/parser.mly" ( _1 ) # 35783 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in # 2246 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Bracket _loc__e_ ) # 35839 "parsing/parser.ml" in # 2352 "parsing/parser.mly" ( _1 ) # 35845 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 688 "parsing/parser.mly" (string) # 35893 "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 : (Parsetree.expression) = let _1 = let _4 = # 2667 "parsing/parser.mly" ( es ) # 35903 "parsing/parser.ml" in let _2 = let _1 = # 124 "" ( None ) # 35909 "parsing/parser.ml" in # 2249 "parsing/parser.mly" ( _1, _2 ) # 35914 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in # 2242 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Paren _loc__e_ ) # 35922 "parsing/parser.ml" in # 2353 "parsing/parser.mly" ( _1 ) # 35928 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 688 "parsing/parser.mly" (string) # 35988 "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 : (Parsetree.expression) = let _1 = let _4 = # 2667 "parsing/parser.mly" ( es ) # 36000 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in let _1 = let _2 = _2_inlined1 in let x = # 2249 "parsing/parser.mly" (_2) # 36009 "parsing/parser.ml" in # 126 "" ( Some x ) # 36014 "parsing/parser.ml" in # 2249 "parsing/parser.mly" ( _1, _2 ) # 36020 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in # 2242 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Paren _loc__e_ ) # 36028 "parsing/parser.ml" in # 2353 "parsing/parser.mly" ( _1 ) # 36034 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 688 "parsing/parser.mly" (string) # 36082 "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 : (Parsetree.expression) = let _1 = let _4 = # 2667 "parsing/parser.mly" ( es ) # 36092 "parsing/parser.ml" in let _2 = let _1 = # 124 "" ( None ) # 36098 "parsing/parser.ml" in # 2249 "parsing/parser.mly" ( _1, _2 ) # 36103 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in # 2244 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Brace _loc__e_ ) # 36111 "parsing/parser.ml" in # 2353 "parsing/parser.mly" ( _1 ) # 36117 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 688 "parsing/parser.mly" (string) # 36177 "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 : (Parsetree.expression) = let _1 = let _4 = # 2667 "parsing/parser.mly" ( es ) # 36189 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in let _1 = let _2 = _2_inlined1 in let x = # 2249 "parsing/parser.mly" (_2) # 36198 "parsing/parser.ml" in # 126 "" ( Some x ) # 36203 "parsing/parser.ml" in # 2249 "parsing/parser.mly" ( _1, _2 ) # 36209 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in # 2244 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Brace _loc__e_ ) # 36217 "parsing/parser.ml" in # 2353 "parsing/parser.mly" ( _1 ) # 36223 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 688 "parsing/parser.mly" (string) # 36271 "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 : (Parsetree.expression) = let _1 = let _4 = # 2667 "parsing/parser.mly" ( es ) # 36281 "parsing/parser.ml" in let _2 = let _1 = # 124 "" ( None ) # 36287 "parsing/parser.ml" in # 2249 "parsing/parser.mly" ( _1, _2 ) # 36292 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in # 2246 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Bracket _loc__e_ ) # 36300 "parsing/parser.ml" in # 2353 "parsing/parser.mly" ( _1 ) # 36306 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 688 "parsing/parser.mly" (string) # 36366 "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 : (Parsetree.expression) = let _1 = let _4 = # 2667 "parsing/parser.mly" ( es ) # 36378 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in let _1 = let _2 = _2_inlined1 in let x = # 2249 "parsing/parser.mly" (_2) # 36387 "parsing/parser.ml" in # 126 "" ( Some x ) # 36392 "parsing/parser.ml" in # 2249 "parsing/parser.mly" ( _1, _2 ) # 36398 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in # 2246 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Bracket _loc__e_ ) # 36406 "parsing/parser.ml" in # 2353 "parsing/parser.mly" ( _1 ) # 36412 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let attrs = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 36468 "parsing/parser.ml" in # 2362 "parsing/parser.mly" ( e.pexp_desc, (ext, attrs @ e.pexp_attributes) ) # 36474 "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 # 2355 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 36485 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 36536 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 36542 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2364 "parsing/parser.mly" ( Pexp_construct (mkloc (Lident "()") (make_loc _sloc), None), _2 ) # 36551 "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 # 2355 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 36562 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 36620 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 36626 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2366 "parsing/parser.mly" ( unclosed "begin" _loc__1_ "end" _loc__4_ ) # 36634 "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 # 2355 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 36645 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = 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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 36697 "parsing/parser.ml" in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 36707 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 36713 "parsing/parser.ml" in # 2368 "parsing/parser.mly" ( Pexp_new(_3), _2 ) # 36719 "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 # 2355 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 36730 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _3 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 36795 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 36801 "parsing/parser.ml" in # 2370 "parsing/parser.mly" ( Pexp_pack _4, _3 ) # 36807 "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 # 2355 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 36818 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = 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 # 3421 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) # 36900 "parsing/parser.ml" in let _3 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 36910 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 36916 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2372 "parsing/parser.mly" ( Pexp_constraint (ghexp ~loc:_sloc (Pexp_pack _4), _6), _3 ) # 36925 "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 # 2355 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 36936 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _3 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 37008 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 37014 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2374 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__6_ ) # 37022 "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 # 2355 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) # 37033 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.expression) = let _1 = let _1 = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 37064 "parsing/parser.ml" in # 2378 "parsing/parser.mly" ( Pexp_ident (_1) ) # 37070 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 37079 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 37085 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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.expression) = let _1 = let _1 = # 2380 "parsing/parser.mly" ( Pexp_constant _1 ) # 37111 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 37119 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 37125 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.expression) = let _1 = let _1 = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 37156 "parsing/parser.ml" in # 2382 "parsing/parser.mly" ( Pexp_construct(_1, None) ) # 37162 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 37171 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 37177 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.expression) = let _1 = let _1 = # 2384 "parsing/parser.mly" ( Pexp_variant(_1, None) ) # 37203 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 37211 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 37217 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 731 "parsing/parser.mly" (string) # 37245 "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 : (Parsetree.expression) = let _1 = let _1 = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 912 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 37259 "parsing/parser.ml" in # 2386 "parsing/parser.mly" ( Pexp_apply(_1, [Nolabel,_2]) ) # 37265 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 37275 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 37281 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = let _1 = let _1 = let _1 = let _1 = # 2387 "parsing/parser.mly" ("!") # 37316 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 912 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 37324 "parsing/parser.ml" in # 2388 "parsing/parser.mly" ( Pexp_apply(_1, [Nolabel,_2]) ) # 37330 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 37340 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 37346 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _1 = let _2 = # 2650 "parsing/parser.mly" ( xs ) # 37387 "parsing/parser.ml" in # 2390 "parsing/parser.mly" ( Pexp_override _2 ) # 37392 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 37402 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 37408 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _1 = let _2 = # 2650 "parsing/parser.mly" ( xs ) # 37449 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2392 "parsing/parser.mly" ( unclosed "{<" _loc__1_ ">}" _loc__3_ ) # 37456 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 37466 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 37472 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.expression) = let _1 = let _1 = # 2394 "parsing/parser.mly" ( Pexp_override [] ) # 37505 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 37514 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 37520 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = 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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 37566 "parsing/parser.ml" in # 2396 "parsing/parser.mly" ( Pexp_field(_1, _3) ) # 37572 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 37582 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 37588 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _1 = let od = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 37648 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 1571 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) # 37657 "parsing/parser.ml" in # 2398 "parsing/parser.mly" ( Pexp_open(od, _4) ) # 37663 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 37673 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 37679 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _1 = let _4 = # 2650 "parsing/parser.mly" ( xs ) # 37734 "parsing/parser.ml" in let od = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 37744 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 1571 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) # 37753 "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 # 2400 "parsing/parser.mly" ( (* TODO: review the location of Pexp_override *) Pexp_open(od, mkexp ~loc:_sloc (Pexp_override _4)) ) # 37764 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 37774 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 37780 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _1 = let _4 = # 2650 "parsing/parser.mly" ( xs ) # 37835 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2403 "parsing/parser.mly" ( unclosed "{<" _loc__3_ ">}" _loc__5_ ) # 37842 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 37852 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 37858 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 37891 "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 : (Parsetree.expression) = let _1 = let _1 = let _3 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = # 3495 "parsing/parser.mly" ( _1 ) # 37905 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 37913 "parsing/parser.ml" in # 2405 "parsing/parser.mly" ( Pexp_send(_1, _3) ) # 37919 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 37929 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 37935 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 742 "parsing/parser.mly" (string) # 37969 "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 : (Parsetree.expression) = 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 # 912 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) # 37985 "parsing/parser.ml" in # 2407 "parsing/parser.mly" ( mkinfix _1 _2 _3 ) # 37991 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 38001 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 38007 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.expression) = let _1 = let _1 = # 2409 "parsing/parser.mly" ( Pexp_extension _1 ) # 38033 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 38041 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 38047 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _1 = let _3 = let (_endpos__2_, _startpos__1_, _2, _1) = (_endpos__2_inlined1_, _startpos__1_inlined1_, _2_inlined1, _1_inlined1) in let _1 = # 2410 "parsing/parser.mly" (Lident "()") # 38097 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 38106 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 38118 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 1571 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) # 38127 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2411 "parsing/parser.mly" ( Pexp_open(od, mkexp ~loc:(_loc__3_) (Pexp_construct(_3, None))) ) # 38134 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 38144 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 38150 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _1 = let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2413 "parsing/parser.mly" ( unclosed "(" _loc__3_ ")" _loc__5_ ) # 38207 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 38217 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 38223 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _1 = # 2415 "parsing/parser.mly" ( let (exten, fields) = _2 in Pexp_record(fields, exten) ) # 38265 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 38274 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 38280 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2418 "parsing/parser.mly" ( unclosed "{" _loc__1_ "}" _loc__3_ ) # 38324 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 38334 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 38340 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _1 = let od = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 38401 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 1571 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) # 38410 "parsing/parser.ml" in let _endpos = _endpos__5_ in # 2420 "parsing/parser.mly" ( let (exten, fields) = _4 in Pexp_open(od, mkexp ~loc:(_startpos__3_, _endpos) (Pexp_record(fields, exten))) ) # 38419 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 38429 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 38435 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _1 = let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2424 "parsing/parser.mly" ( unclosed "{" _loc__3_ "}" _loc__5_ ) # 38493 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 38503 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 38509 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _1 = let _2 = # 2667 "parsing/parser.mly" ( es ) # 38550 "parsing/parser.ml" in # 2426 "parsing/parser.mly" ( Pexp_array(_2) ) # 38555 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 38565 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 38571 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _1 = let _2 = # 2667 "parsing/parser.mly" ( es ) # 38612 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2428 "parsing/parser.mly" ( unclosed "[|" _loc__1_ "|]" _loc__3_ ) # 38619 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 38629 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 38635 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.expression) = let _1 = let _1 = # 2430 "parsing/parser.mly" ( Pexp_array [] ) # 38668 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 38677 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 38683 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _1 = let _4 = # 2667 "parsing/parser.mly" ( es ) # 38738 "parsing/parser.ml" in let od = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 38748 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 1571 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) # 38757 "parsing/parser.ml" in let _endpos = _endpos__5_ in # 2432 "parsing/parser.mly" ( Pexp_open(od, mkexp ~loc:(_startpos__3_, _endpos) (Pexp_array(_4))) ) # 38764 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 38774 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 38780 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _1 = let od = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 38833 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 1571 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) # 38842 "parsing/parser.ml" in let _endpos = _endpos__4_ in # 2434 "parsing/parser.mly" ( (* TODO: review the location of Pexp_array *) Pexp_open(od, mkexp ~loc:(_startpos__3_, _endpos) (Pexp_array [])) ) # 38850 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 38860 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 38866 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _1 = let _4 = # 2667 "parsing/parser.mly" ( es ) # 38921 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2438 "parsing/parser.mly" ( unclosed "[|" _loc__3_ "|]" _loc__5_ ) # 38928 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 38938 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 38944 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _1 = let _2 = # 2667 "parsing/parser.mly" ( es ) # 38985 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2440 "parsing/parser.mly" ( fst (mktailexp _loc__3_ _2) ) # 38991 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 39001 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 39007 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _1 = let _2 = # 2667 "parsing/parser.mly" ( es ) # 39048 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2442 "parsing/parser.mly" ( unclosed "[" _loc__1_ "]" _loc__3_ ) # 39055 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 39065 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 39071 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _1 = let _4 = # 2667 "parsing/parser.mly" ( es ) # 39126 "parsing/parser.ml" in let od = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 39136 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 1571 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) # 39145 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _loc__5_ = (_startpos__5_, _endpos__5_) in # 2444 "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_open(od, list_exp) ) # 39157 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 39167 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 39173 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _1 = let _3 = let (_endpos__2_, _startpos__1_, _2, _1) = (_endpos__2_inlined1_, _startpos__1_inlined1_, _2_inlined1, _1_inlined1) in let _1 = # 2449 "parsing/parser.mly" (Lident "[]") # 39223 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 39232 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 39244 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 1571 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) # 39253 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2450 "parsing/parser.mly" ( Pexp_open(od, mkexp ~loc:_loc__3_ (Pexp_construct(_3, None))) ) # 39260 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 39270 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 39276 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _1 = let _4 = # 2667 "parsing/parser.mly" ( es ) # 39331 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2453 "parsing/parser.mly" ( unclosed "[" _loc__3_ "]" _loc__5_ ) # 39338 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 39348 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 39354 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _1 = let _8 = 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 # 3421 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) # 39451 "parsing/parser.ml" in let _5 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 39461 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 39467 "parsing/parser.ml" in let od = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 39478 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 1571 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) # 39487 "parsing/parser.ml" in let _startpos_od_ = _startpos__1_ in let _endpos = _endpos__9_ in let _symbolstartpos = _startpos_od_ in let _sloc = (_symbolstartpos, _endpos) in # 2456 "parsing/parser.mly" ( let modexp = mkexp_attrs ~loc:(_startpos__3_, _endpos) (Pexp_constraint (ghexp ~loc:_sloc (Pexp_pack _6), _8)) _5 in Pexp_open(od, modexp) ) # 39500 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 39510 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 39516 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.expression) = let _1 = let _1 = let _5 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 39603 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 39609 "parsing/parser.ml" in let _loc__8_ = (_startpos__8_, _endpos__8_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2462 "parsing/parser.mly" ( unclosed "(" _loc__3_ ")" _loc__8_ ) # 39617 "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 # 918 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) # 39627 "parsing/parser.ml" in # 2358 "parsing/parser.mly" ( _1 ) # 39633 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.pattern) = let _1 = let _1 = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 39664 "parsing/parser.ml" in # 2750 "parsing/parser.mly" ( Ppat_var (_1) ) # 39670 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 39679 "parsing/parser.ml" in # 2751 "parsing/parser.mly" ( _1 ) # 39685 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 2752 "parsing/parser.mly" ( _1 ) # 39710 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2757 "parsing/parser.mly" ( reloc_pat ~loc:_sloc _2 ) # 39752 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 2759 "parsing/parser.mly" ( _1 ) # 39777 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = 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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 39842 "parsing/parser.ml" in let _3 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 39852 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 39858 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2761 "parsing/parser.mly" ( mkpat_attrs ~loc:_sloc (Ppat_unpack _4) _3 ) # 39867 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _6 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined4_, _startpos__1_inlined4_, _1_inlined4) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3421 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) # 39948 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 39959 "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 # 3837 "parsing/parser.mly" ( _1 ) # 39970 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 39976 "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 # 2763 "parsing/parser.mly" ( mkpat_attrs ~loc:_sloc (Ppat_constraint(mkpat ~loc:_loc__4_ (Ppat_unpack _4), _6)) _3 ) # 39988 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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.pattern) = let _1 = let _1 = # 2771 "parsing/parser.mly" ( Ppat_any ) # 40014 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 40022 "parsing/parser.ml" in # 2767 "parsing/parser.mly" ( _1 ) # 40028 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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.pattern) = let _1 = let _1 = # 2773 "parsing/parser.mly" ( Ppat_constant _1 ) # 40054 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 40062 "parsing/parser.ml" in # 2767 "parsing/parser.mly" ( _1 ) # 40068 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = # 2775 "parsing/parser.mly" ( Ppat_interval (_1, _3) ) # 40108 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 40117 "parsing/parser.ml" in # 2767 "parsing/parser.mly" ( _1 ) # 40123 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.pattern) = let _1 = let _1 = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 40154 "parsing/parser.ml" in # 2777 "parsing/parser.mly" ( Ppat_construct(_1, None) ) # 40160 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 40169 "parsing/parser.ml" in # 2767 "parsing/parser.mly" ( _1 ) # 40175 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.pattern) = let _1 = let _1 = # 2779 "parsing/parser.mly" ( Ppat_variant(_1, None) ) # 40201 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 40209 "parsing/parser.ml" in # 2767 "parsing/parser.mly" ( _1 ) # 40215 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = 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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 40254 "parsing/parser.ml" in # 2781 "parsing/parser.mly" ( Ppat_type (_2) ) # 40260 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 40270 "parsing/parser.ml" in # 2767 "parsing/parser.mly" ( _1 ) # 40276 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 40321 "parsing/parser.ml" in # 2783 "parsing/parser.mly" ( Ppat_open(_1, _3) ) # 40327 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 40337 "parsing/parser.ml" in # 2767 "parsing/parser.mly" ( _1 ) # 40343 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = let _3 = let (_endpos__2_, _startpos__1_, _2, _1) = (_endpos__2_inlined1_, _startpos__1_inlined1_, _2_inlined1, _1_inlined1) in let _1 = # 2784 "parsing/parser.mly" (Lident "[]") # 40393 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 40402 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 40413 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2785 "parsing/parser.mly" ( Ppat_open(_1, mkpat ~loc:_sloc (Ppat_construct(_3, None))) ) # 40422 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 40432 "parsing/parser.ml" in # 2767 "parsing/parser.mly" ( _1 ) # 40438 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = let _3 = let (_endpos__2_, _startpos__1_, _2, _1) = (_endpos__2_inlined1_, _startpos__1_inlined1_, _2_inlined1, _1_inlined1) in let _1 = # 2786 "parsing/parser.mly" (Lident "()") # 40488 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 40497 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 40508 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2787 "parsing/parser.mly" ( Ppat_open(_1, mkpat ~loc:_sloc (Ppat_construct(_3, None))) ) # 40517 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 40527 "parsing/parser.ml" in # 2767 "parsing/parser.mly" ( _1 ) # 40533 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 40592 "parsing/parser.ml" in # 2789 "parsing/parser.mly" ( Ppat_open (_1, _4) ) # 40598 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 40608 "parsing/parser.ml" in # 2767 "parsing/parser.mly" ( _1 ) # 40614 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in # 2791 "parsing/parser.mly" ( unclosed "(" _loc__3_ ")" _loc__5_ ) # 40671 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 40681 "parsing/parser.ml" in # 2767 "parsing/parser.mly" ( _1 ) # 40687 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = let _loc__4_ = (_startpos__4_, _endpos__4_) in # 2793 "parsing/parser.mly" ( expecting _loc__4_ "pattern" ) # 40736 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 40746 "parsing/parser.ml" in # 2767 "parsing/parser.mly" ( _1 ) # 40752 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2795 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) # 40795 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 40805 "parsing/parser.ml" in # 2767 "parsing/parser.mly" ( _1 ) # 40811 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = # 2797 "parsing/parser.mly" ( Ppat_constraint(_2, _4) ) # 40865 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 40874 "parsing/parser.ml" in # 2767 "parsing/parser.mly" ( _1 ) # 40880 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2799 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) # 40937 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 40947 "parsing/parser.ml" in # 2767 "parsing/parser.mly" ( _1 ) # 40953 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = let _1 = let _loc__4_ = (_startpos__4_, _endpos__4_) in # 2801 "parsing/parser.mly" ( expecting _loc__4_ "type" ) # 41002 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 41012 "parsing/parser.ml" in # 2767 "parsing/parser.mly" ( _1 ) # 41018 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.pattern) = let _1 = 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 # 3421 "parsing/parser.mly" ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in let descr = Ptyp_package (lid, cstrs) in mktyp ~loc:_sloc ~attrs descr ) # 41101 "parsing/parser.ml" in let _3 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 41111 "parsing/parser.ml" in # 3850 "parsing/parser.mly" ( _1, _2 ) # 41117 "parsing/parser.ml" in let _loc__7_ = (_startpos__7_, _endpos__7_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 2804 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__7_ ) # 41125 "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 # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 41135 "parsing/parser.ml" in # 2767 "parsing/parser.mly" ( _1 ) # 41141 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.pattern) = let _1 = let _1 = # 2806 "parsing/parser.mly" ( Ppat_extension _1 ) # 41167 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 920 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) # 41175 "parsing/parser.ml" in # 2767 "parsing/parser.mly" ( _1 ) # 41181 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 707 "parsing/parser.mly" (string) # 41202 "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) = # 3758 "parsing/parser.mly" ( _1 ) # 41210 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 758 "parsing/parser.mly" (string) # 41231 "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) = # 3759 "parsing/parser.mly" ( _1 ) # 41239 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3760 "parsing/parser.mly" ( "and" ) # 41264 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3761 "parsing/parser.mly" ( "as" ) # 41289 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3762 "parsing/parser.mly" ( "assert" ) # 41314 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3763 "parsing/parser.mly" ( "begin" ) # 41339 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3764 "parsing/parser.mly" ( "class" ) # 41364 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3765 "parsing/parser.mly" ( "constraint" ) # 41389 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3766 "parsing/parser.mly" ( "do" ) # 41414 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3767 "parsing/parser.mly" ( "done" ) # 41439 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3768 "parsing/parser.mly" ( "downto" ) # 41464 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3769 "parsing/parser.mly" ( "else" ) # 41489 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3770 "parsing/parser.mly" ( "end" ) # 41514 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3771 "parsing/parser.mly" ( "exception" ) # 41539 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3772 "parsing/parser.mly" ( "external" ) # 41564 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3773 "parsing/parser.mly" ( "false" ) # 41589 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3774 "parsing/parser.mly" ( "for" ) # 41614 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3775 "parsing/parser.mly" ( "fun" ) # 41639 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3776 "parsing/parser.mly" ( "function" ) # 41664 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3777 "parsing/parser.mly" ( "functor" ) # 41689 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3778 "parsing/parser.mly" ( "if" ) # 41714 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3779 "parsing/parser.mly" ( "in" ) # 41739 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3780 "parsing/parser.mly" ( "include" ) # 41764 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3781 "parsing/parser.mly" ( "inherit" ) # 41789 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3782 "parsing/parser.mly" ( "initializer" ) # 41814 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3783 "parsing/parser.mly" ( "lazy" ) # 41839 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3784 "parsing/parser.mly" ( "let" ) # 41864 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3785 "parsing/parser.mly" ( "match" ) # 41889 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3786 "parsing/parser.mly" ( "method" ) # 41914 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3787 "parsing/parser.mly" ( "module" ) # 41939 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3788 "parsing/parser.mly" ( "mutable" ) # 41964 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3789 "parsing/parser.mly" ( "new" ) # 41989 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3790 "parsing/parser.mly" ( "nonrec" ) # 42014 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3791 "parsing/parser.mly" ( "object" ) # 42039 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3792 "parsing/parser.mly" ( "of" ) # 42064 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3793 "parsing/parser.mly" ( "open" ) # 42089 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3794 "parsing/parser.mly" ( "or" ) # 42114 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3795 "parsing/parser.mly" ( "private" ) # 42139 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3796 "parsing/parser.mly" ( "rec" ) # 42164 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3797 "parsing/parser.mly" ( "sig" ) # 42189 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3798 "parsing/parser.mly" ( "struct" ) # 42214 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3799 "parsing/parser.mly" ( "then" ) # 42239 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3800 "parsing/parser.mly" ( "to" ) # 42264 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3801 "parsing/parser.mly" ( "true" ) # 42289 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3802 "parsing/parser.mly" ( "try" ) # 42314 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3803 "parsing/parser.mly" ( "type" ) # 42339 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3804 "parsing/parser.mly" ( "val" ) # 42364 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3805 "parsing/parser.mly" ( "virtual" ) # 42389 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3806 "parsing/parser.mly" ( "when" ) # 42414 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3807 "parsing/parser.mly" ( "while" ) # 42439 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3808 "parsing/parser.mly" ( "with" ) # 42464 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.type_exception * string Asttypes.loc option) = # 3085 "parsing/parser.mly" ( _1 ) # 42489 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.type_exception * string Asttypes.loc option) = let attrs = let _1 = _1_inlined5 in # 3833 "parsing/parser.mly" ( _1 ) # 42565 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined5_ in let attrs2 = let _1 = _1_inlined4 in # 3837 "parsing/parser.mly" ( _1 ) # 42574 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 42585 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 42596 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 42604 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3094 "parsing/parser.mly" ( let loc = make_loc _sloc in let docs = symbol_docs _sloc in Te.mk_exception ~attrs (Te.rebind id lid ~attrs:(attrs1 @ attrs2) ~loc ~docs) , ext ) # 42617 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 2592 "parsing/parser.mly" ( _2 ) # 42649 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.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 : (Parsetree.expression) = let _endpos = _endpos__2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2594 "parsing/parser.mly" ( let (l, o, p) = _1 in ghexp ~loc:_sloc (Pexp_fun(l, o, p, _2)) ) # 42684 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 = 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 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__5_ in let _v : (Parsetree.expression) = let _3 = # 2480 "parsing/parser.mly" ( xs ) # 42737 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2596 "parsing/parser.mly" ( mk_newtypes ~loc:_sloc _3 _5 ) # 42745 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.structure) = let _1 = let _1 = let ys = # 260 "" ( List.flatten xss ) # 42772 "parsing/parser.ml" in let xs = let items = # 955 "parsing/parser.mly" ( [] ) # 42778 "parsing/parser.ml" in # 1374 "parsing/parser.mly" ( items ) # 42783 "parsing/parser.ml" in # 267 "" ( xs @ ys ) # 42789 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 877 "parsing/parser.mly" ( extra_str _startpos _endpos _1 ) # 42798 "parsing/parser.ml" in # 1367 "parsing/parser.mly" ( _1 ) # 42804 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.structure) = let _1 = let _1 = let ys = # 260 "" ( List.flatten xss ) # 42845 "parsing/parser.ml" in let xs = let items = let x = let _1 = let _1 = let attrs = # 3833 "parsing/parser.mly" ( _1 ) # 42855 "parsing/parser.ml" in # 1381 "parsing/parser.mly" ( mkstrexp e attrs ) # 42860 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in # 889 "parsing/parser.mly" ( text_str _startpos @ [_1] ) # 42868 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 908 "parsing/parser.mly" ( mark_rhs_docs _startpos _endpos; _1 ) # 42878 "parsing/parser.ml" in # 957 "parsing/parser.mly" ( x ) # 42884 "parsing/parser.ml" in # 1374 "parsing/parser.mly" ( items ) # 42890 "parsing/parser.ml" in # 267 "" ( xs @ ys ) # 42896 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_e_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 877 "parsing/parser.mly" ( extra_str _startpos _endpos _1 ) # 42905 "parsing/parser.ml" in # 1367 "parsing/parser.mly" ( _1 ) # 42911 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.structure_item) = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1396 "parsing/parser.mly" ( val_of_let_bindings ~loc:_sloc _1 ) # 42939 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.structure_item) = let _1 = let _1 = let _2 = let _1 = _1_inlined1 in # 3833 "parsing/parser.mly" ( _1 ) # 42975 "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 # 1399 "parsing/parser.mly" ( let docs = symbol_docs _sloc in Pstr_extension (_1, add_docs_attrs docs _2) ) # 42986 "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 # 924 "parsing/parser.mly" ( mkstr ~loc:_sloc _1 ) # 42996 "parsing/parser.ml" in # 1430 "parsing/parser.mly" ( _1 ) # 43002 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.structure_item) = let _1 = let _1 = # 1402 "parsing/parser.mly" ( Pstr_attribute _1 ) # 43028 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 924 "parsing/parser.mly" ( mkstr ~loc:_sloc _1 ) # 43036 "parsing/parser.ml" in # 1430 "parsing/parser.mly" ( _1 ) # 43042 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.structure_item) = let _1 = let _1 = # 1406 "parsing/parser.mly" ( pstr_primitive _1 ) # 43068 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 941 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) # 43076 "parsing/parser.ml" in # 1430 "parsing/parser.mly" ( _1 ) # 43082 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.structure_item) = let _1 = let _1 = # 1408 "parsing/parser.mly" ( pstr_primitive _1 ) # 43108 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 941 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) # 43116 "parsing/parser.ml" in # 1430 "parsing/parser.mly" ( _1 ) # 43122 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.structure_item) = let _1 = let _1 = let _1 = let _1 = let _1 = # 1116 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) # 43159 "parsing/parser.ml" in # 2929 "parsing/parser.mly" ( _1 ) # 43164 "parsing/parser.ml" in # 2912 "parsing/parser.mly" ( _1 ) # 43170 "parsing/parser.ml" in # 1410 "parsing/parser.mly" ( pstr_type _1 ) # 43176 "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 # 941 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) # 43186 "parsing/parser.ml" in # 1430 "parsing/parser.mly" ( _1 ) # 43192 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.structure_item) = let _1 = let _1 = let _1 = let _1 = let attrs2 = let _1 = _1_inlined3 in # 3833 "parsing/parser.mly" ( _1 ) # 43279 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let cs = # 1108 "parsing/parser.mly" ( List.rev xs ) # 43286 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 43296 "parsing/parser.ml" in let _4 = # 3678 "parsing/parser.mly" ( Recursive ) # 43302 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 43309 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3177 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) # 43321 "parsing/parser.ml" in # 3160 "parsing/parser.mly" ( _1 ) # 43327 "parsing/parser.ml" in # 1412 "parsing/parser.mly" ( pstr_typext _1 ) # 43333 "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 # 941 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) # 43343 "parsing/parser.ml" in # 1430 "parsing/parser.mly" ( _1 ) # 43349 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.structure_item) = let _1 = let _1 = let _1 = let _1 = let attrs2 = let _1 = _1_inlined4 in # 3833 "parsing/parser.mly" ( _1 ) # 43443 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in let cs = # 1108 "parsing/parser.mly" ( List.rev xs ) # 43450 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 43460 "parsing/parser.ml" in let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in # 3680 "parsing/parser.mly" ( not_expecting _loc "nonrec flag" ) # 43471 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 43479 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3177 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) # 43491 "parsing/parser.ml" in # 3160 "parsing/parser.mly" ( _1 ) # 43497 "parsing/parser.ml" in # 1412 "parsing/parser.mly" ( pstr_typext _1 ) # 43503 "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 # 941 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) # 43513 "parsing/parser.ml" in # 1430 "parsing/parser.mly" ( _1 ) # 43519 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.structure_item) = let _1 = let _1 = # 1414 "parsing/parser.mly" ( pstr_exception _1 ) # 43545 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 941 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) # 43553 "parsing/parser.ml" in # 1430 "parsing/parser.mly" ( _1 ) # 43559 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.structure_item) = let _1 = let _1 = let _1 = let attrs2 = let _1 = _1_inlined3 in # 3833 "parsing/parser.mly" ( _1 ) # 43624 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 43636 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 43644 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1440 "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 Pstr_module body, ext ) # 43657 "parsing/parser.ml" in # 1416 "parsing/parser.mly" ( _1 ) # 43663 "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 # 941 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) # 43673 "parsing/parser.ml" in # 1430 "parsing/parser.mly" ( _1 ) # 43679 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.structure_item) = let _1 = let _1 = let _1 = let _1 = let a = let attrs2 = let _1 = _1_inlined3 in # 3833 "parsing/parser.mly" ( _1 ) # 43760 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 43772 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 43780 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1475 "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 ) # 43795 "parsing/parser.ml" in # 1116 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) # 43801 "parsing/parser.ml" in # 1463 "parsing/parser.mly" ( _1 ) # 43807 "parsing/parser.ml" in # 1418 "parsing/parser.mly" ( pstr_recmodule _1 ) # 43813 "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 # 941 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) # 43823 "parsing/parser.ml" in # 1430 "parsing/parser.mly" ( _1 ) # 43829 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.structure_item) = let _1 = let _1 = # 1420 "parsing/parser.mly" ( let (body, ext) = _1 in (Pstr_modtype body, ext) ) # 43855 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 941 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) # 43863 "parsing/parser.ml" in # 1430 "parsing/parser.mly" ( _1 ) # 43869 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.structure_item) = let _1 = let _1 = # 1422 "parsing/parser.mly" ( let (body, ext) = _1 in (Pstr_open body, ext) ) # 43895 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 941 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) # 43903 "parsing/parser.ml" in # 1430 "parsing/parser.mly" ( _1 ) # 43909 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 43981 "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 : (Parsetree.structure_item) = let _1 = let _1 = let _1 = let _1 = let a = let attrs2 = let _1 = _1_inlined3 in # 3833 "parsing/parser.mly" ( _1 ) # 44001 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 44013 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 44021 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1813 "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 ) # 44036 "parsing/parser.ml" in # 1116 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) # 44042 "parsing/parser.ml" in # 1802 "parsing/parser.mly" ( _1 ) # 44048 "parsing/parser.ml" in # 1424 "parsing/parser.mly" ( let (ext, l) = _1 in (Pstr_class l, ext) ) # 44054 "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 # 941 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) # 44064 "parsing/parser.ml" in # 1430 "parsing/parser.mly" ( _1 ) # 44070 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : (Parsetree.structure_item) = let _1 = let _1 = # 1426 "parsing/parser.mly" ( let (ext, l) = _1 in (Pstr_class_type l, ext) ) # 44096 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 941 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) # 44104 "parsing/parser.ml" in # 1430 "parsing/parser.mly" ( _1 ) # 44110 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.structure_item) = let _1 = let _1 = let _1 = let attrs2 = let _1 = _1_inlined2 in # 3833 "parsing/parser.mly" ( _1 ) # 44168 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 44177 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 1512 "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 ) # 44191 "parsing/parser.ml" in # 1428 "parsing/parser.mly" ( pstr_include _1 ) # 44197 "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 # 941 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) # 44207 "parsing/parser.ml" in # 1430 "parsing/parser.mly" ( _1 ) # 44213 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3743 "parsing/parser.mly" ( "-" ) # 44238 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3744 "parsing/parser.mly" ( "-." ) # 44263 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.row_field) = let _5 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 44318 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined1_ in let _4 = let _1 = let xs = # 253 "" ( List.rev xs ) # 44327 "parsing/parser.ml" in # 1019 "parsing/parser.mly" ( xs ) # 44332 "parsing/parser.ml" in # 3451 "parsing/parser.mly" ( _1 ) # 44338 "parsing/parser.ml" in let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 44348 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3437 "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 ) # 44359 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.row_field) = let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 44393 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 44404 "parsing/parser.ml" in let _endpos = _endpos__2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3441 "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 [] ) # 44415 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.toplevel_phrase) = let arg = # 124 "" ( None ) # 44447 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 44458 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3641 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) # 44467 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 745 "parsing/parser.mly" (string * Location.t * string option) # 44500 "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 : (Parsetree.toplevel_phrase) = let arg = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = # 3645 "parsing/parser.mly" ( let (s, _, _) = _1 in Pdir_string s ) # 44513 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 946 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) # 44521 "parsing/parser.ml" in # 126 "" ( Some x ) # 44527 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 44539 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3641 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) # 44548 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 693 "parsing/parser.mly" (string * char option) # 44581 "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 : (Parsetree.toplevel_phrase) = let arg = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = # 3646 "parsing/parser.mly" ( let (n, m) = _1 in Pdir_int (n ,m) ) # 44594 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 946 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) # 44602 "parsing/parser.ml" in # 126 "" ( Some x ) # 44608 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 44620 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3641 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) # 44629 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.toplevel_phrase) = let arg = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = # 3647 "parsing/parser.mly" ( Pdir_ident _1 ) # 44671 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 946 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) # 44679 "parsing/parser.ml" in # 126 "" ( Some x ) # 44685 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 44697 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3641 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) # 44706 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.toplevel_phrase) = let arg = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = # 3648 "parsing/parser.mly" ( Pdir_ident _1 ) # 44748 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 946 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) # 44756 "parsing/parser.ml" in # 126 "" ( Some x ) # 44762 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 44774 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3641 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) # 44783 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.toplevel_phrase) = let arg = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = # 3649 "parsing/parser.mly" ( Pdir_bool false ) # 44825 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 946 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) # 44833 "parsing/parser.ml" in # 126 "" ( Some x ) # 44839 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 44851 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3641 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) # 44860 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.toplevel_phrase) = let arg = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = # 3650 "parsing/parser.mly" ( Pdir_bool true ) # 44902 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 946 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) # 44910 "parsing/parser.ml" in # 126 "" ( Some x ) # 44916 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 44928 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3641 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) # 44937 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.toplevel_phrase) = let _1 = let _1 = let _1 = let attrs = # 3833 "parsing/parser.mly" ( _1 ) # 44979 "parsing/parser.ml" in # 1381 "parsing/parser.mly" ( mkstrexp e attrs ) # 44984 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in # 889 "parsing/parser.mly" ( text_str _startpos @ [_1] ) # 44992 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 877 "parsing/parser.mly" ( extra_str _startpos _endpos _1 ) # 45001 "parsing/parser.ml" in # 1156 "parsing/parser.mly" ( Ptop_def _1 ) # 45007 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.toplevel_phrase) = let _1 = let _1 = # 260 "" ( List.flatten xss ) # 45040 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 877 "parsing/parser.mly" ( extra_str _startpos _endpos _1 ) # 45048 "parsing/parser.ml" in # 1160 "parsing/parser.mly" ( Ptop_def _1 ) # 45054 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 1164 "parsing/parser.mly" ( _1 ) # 45086 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 1167 "parsing/parser.mly" ( raise End_of_file ) # 45111 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3343 "parsing/parser.mly" ( ty ) # 45136 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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.core_type 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 : (Parsetree.core_type) = let _1 = let _1 = let tys = let xs = # 253 "" ( List.rev xs ) # 45164 "parsing/parser.ml" in # 1047 "parsing/parser.mly" ( xs ) # 45169 "parsing/parser.ml" in # 3346 "parsing/parser.mly" ( Ptyp_tuple tys ) # 45175 "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 # 922 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 45185 "parsing/parser.ml" in # 3348 "parsing/parser.mly" ( _1 ) # 45191 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.core_type option * Parsetree.core_type option) = # 2670 "parsing/parser.mly" ( (Some _2, None) ) # 45223 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.core_type option * Parsetree.core_type option) = # 2671 "parsing/parser.mly" ( (Some _2, Some _4) ) # 45269 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.core_type option * Parsetree.core_type option) = # 2672 "parsing/parser.mly" ( (None, Some _2) ) # 45301 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.core_type option * Parsetree.core_type option) = # 2673 "parsing/parser.mly" ( syntax_error() ) # 45333 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.core_type option * Parsetree.core_type option) = # 2674 "parsing/parser.mly" ( syntax_error() ) # 45365 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 3003 "parsing/parser.mly" ( (Ptype_abstract, Public, None) ) # 45383 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 3005 "parsing/parser.mly" ( _2 ) # 45415 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3602 "parsing/parser.mly" ( _1 ) # 45440 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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)) = # 3020 "parsing/parser.mly" ( _2, _1 ) # 45472 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 3013 "parsing/parser.mly" ( [] ) # 45490 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3015 "parsing/parser.mly" ( [p] ) # 45515 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let ps = let xs = # 253 "" ( List.rev xs ) # 45555 "parsing/parser.ml" in # 1019 "parsing/parser.mly" ( xs ) # 45560 "parsing/parser.ml" in # 3017 "parsing/parser.mly" ( ps ) # 45566 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.core_type) = let _1 = let _1 = # 3025 "parsing/parser.mly" ( Ptyp_var tyvar ) # 45599 "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 # 922 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 45608 "parsing/parser.ml" in # 3028 "parsing/parser.mly" ( _1 ) # 45614 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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.core_type) = let _1 = let _1 = # 3027 "parsing/parser.mly" ( Ptyp_any ) # 45640 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 922 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) # 45648 "parsing/parser.ml" in # 3028 "parsing/parser.mly" ( _1 ) # 45654 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 3032 "parsing/parser.mly" ( NoVariance, NoInjectivity ) # 45672 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3033 "parsing/parser.mly" ( Covariant, NoInjectivity ) # 45697 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3034 "parsing/parser.mly" ( Contravariant, NoInjectivity ) # 45722 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3035 "parsing/parser.mly" ( NoVariance, Injective ) # 45747 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 3036 "parsing/parser.mly" ( Covariant, Injective ) # 45779 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 3036 "parsing/parser.mly" ( Covariant, Injective ) # 45811 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 3037 "parsing/parser.mly" ( Contravariant, Injective ) # 45843 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 3037 "parsing/parser.mly" ( Contravariant, Injective ) # 45875 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 685 "parsing/parser.mly" (string) # 45896 "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.variance * Asttypes.injectivity) = let _loc__1_ = (_startpos__1_, _endpos__1_) in # 3039 "parsing/parser.mly" ( if _1 = "+!" then Covariant, Injective else if _1 = "-!" then Contravariant, Injective else expecting _loc__1_ "type_variance" ) # 45907 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 731 "parsing/parser.mly" (string) # 45928 "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.variance * Asttypes.injectivity) = let _loc__1_ = (_startpos__1_, _endpos__1_) in # 3043 "parsing/parser.mly" ( if _1 = "!+" then Covariant, Injective else if _1 = "!-" then Contravariant, Injective else expecting _loc__1_ "type_variance" ) # 45939 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.toplevel_phrase list) = let _1 = let _1 = let ys = # 260 "" ( List.flatten xss ) # 45973 "parsing/parser.ml" in let xs = let _1 = # 955 "parsing/parser.mly" ( [] ) # 45979 "parsing/parser.ml" in # 1187 "parsing/parser.mly" ( _1 ) # 45984 "parsing/parser.ml" in # 267 "" ( xs @ ys ) # 45990 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 881 "parsing/parser.mly" ( extra_def _startpos _endpos _1 ) # 45999 "parsing/parser.ml" in # 1180 "parsing/parser.mly" ( _1 ) # 46005 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.toplevel_phrase list) = let _1 = let _1 = let ys = # 260 "" ( List.flatten xss ) # 46053 "parsing/parser.ml" in let xs = let _1 = let x = let _1 = let _1 = let attrs = # 3833 "parsing/parser.mly" ( _1 ) # 46063 "parsing/parser.ml" in # 1381 "parsing/parser.mly" ( mkstrexp e attrs ) # 46068 "parsing/parser.ml" in # 899 "parsing/parser.mly" ( Ptop_def [_1] ) # 46074 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in # 897 "parsing/parser.mly" ( text_def _startpos @ [_1] ) # 46082 "parsing/parser.ml" in # 957 "parsing/parser.mly" ( x ) # 46088 "parsing/parser.ml" in # 1187 "parsing/parser.mly" ( _1 ) # 46094 "parsing/parser.ml" in # 267 "" ( xs @ ys ) # 46100 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_e_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in # 881 "parsing/parser.mly" ( extra_def _startpos _endpos _1 ) # 46109 "parsing/parser.ml" in # 1180 "parsing/parser.mly" ( _1 ) # 46115 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 3521 "parsing/parser.mly" ( _2 ) # 46154 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in # 3522 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) # 46195 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = let _loc__2_ = (_startpos__2_, _endpos__2_) in # 3523 "parsing/parser.mly" ( expecting _loc__2_ "operator" ) # 46228 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Asttypes.label) = let _loc__3_ = (_startpos__3_, _endpos__3_) in # 3524 "parsing/parser.mly" ( expecting _loc__3_ "module-expr" ) # 46268 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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 : ( # 707 "parsing/parser.mly" (string) # 46289 "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) = # 3527 "parsing/parser.mly" ( _1 ) # 46297 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3528 "parsing/parser.mly" ( _1 ) # 46322 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3596 "parsing/parser.mly" ( _1 ) # 46347 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 46394 "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 : ((Asttypes.label Asttypes.loc * Asttypes.mutable_flag * Parsetree.class_field_kind) * Parsetree.attributes) = let label = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = # 3495 "parsing/parser.mly" ( _1 ) # 46408 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 46416 "parsing/parser.ml" in let attrs = # 3837 "parsing/parser.mly" ( _1 ) # 46422 "parsing/parser.ml" in let _1 = # 3736 "parsing/parser.mly" ( Fresh ) # 46427 "parsing/parser.ml" in # 1953 "parsing/parser.mly" ( (label, mutable_, Cfk_virtual ty), attrs ) # 46432 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 46479 "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 : ((Asttypes.label Asttypes.loc * Asttypes.mutable_flag * Parsetree.class_field_kind) * Parsetree.attributes) = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = # 3495 "parsing/parser.mly" ( _1 ) # 46493 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 46501 "parsing/parser.ml" in let _2 = # 3837 "parsing/parser.mly" ( _1 ) # 46507 "parsing/parser.ml" in let _1 = # 3739 "parsing/parser.mly" ( Fresh ) # 46512 "parsing/parser.ml" in # 1955 "parsing/parser.mly" ( (_4, _3, Cfk_concrete (_1, _6)), _2 ) # 46517 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : ( # 707 "parsing/parser.mly" (string) # 46570 "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 : ((Asttypes.label Asttypes.loc * Asttypes.mutable_flag * Parsetree.class_field_kind) * Parsetree.attributes) = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = # 3495 "parsing/parser.mly" ( _1 ) # 46585 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 46593 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 46601 "parsing/parser.ml" in let _1 = # 3740 "parsing/parser.mly" ( Override ) # 46607 "parsing/parser.ml" in # 1955 "parsing/parser.mly" ( (_4, _3, Cfk_concrete (_1, _6)), _2 ) # 46612 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.core_type option * Parsetree.core_type option) = Obj.magic _5 in let _1_inlined1 : ( # 707 "parsing/parser.mly" (string) # 46666 "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 : ((Asttypes.label Asttypes.loc * Asttypes.mutable_flag * Parsetree.class_field_kind) * Parsetree.attributes) = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = # 3495 "parsing/parser.mly" ( _1 ) # 46680 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 46688 "parsing/parser.ml" in let _startpos__4_ = _startpos__1_inlined1_ in let _2 = # 3837 "parsing/parser.mly" ( _1 ) # 46695 "parsing/parser.ml" in let (_endpos__2_, _startpos__2_) = (_endpos__1_, _startpos__1_) in let _1 = # 3739 "parsing/parser.mly" ( Fresh ) # 46701 "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 # 1958 "parsing/parser.mly" ( let e = mkexp_constraint ~loc:_sloc _7 _5 in (_4, _3, Cfk_concrete (_1, e)), _2 ) # 46721 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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.core_type option * Parsetree.core_type option) = Obj.magic _5 in let _1_inlined2 : ( # 707 "parsing/parser.mly" (string) # 46781 "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 : ((Asttypes.label Asttypes.loc * Asttypes.mutable_flag * Parsetree.class_field_kind) * Parsetree.attributes) = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = # 3495 "parsing/parser.mly" ( _1 ) # 46796 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 46804 "parsing/parser.ml" in let _startpos__4_ = _startpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 46813 "parsing/parser.ml" in let (_endpos__2_, _startpos__2_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let _1 = # 3740 "parsing/parser.mly" ( Override ) # 46820 "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 # 1958 "parsing/parser.mly" ( let e = mkexp_constraint ~loc:_sloc _7 _5 in (_4, _3, Cfk_concrete (_1, e)), _2 ) # 46839 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.value_description * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in # 3833 "parsing/parser.mly" ( _1 ) # 46908 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 46920 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in # 3837 "parsing/parser.mly" ( _1 ) # 46928 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 2874 "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 ) # 46941 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.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) = # 3700 "parsing/parser.mly" ( Concrete ) # 46959 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3701 "parsing/parser.mly" ( Virtual ) # 46984 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3724 "parsing/parser.mly" ( Immutable ) # 47009 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 3725 "parsing/parser.mly" ( Mutable ) # 47041 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 3726 "parsing/parser.mly" ( Mutable ) # 47073 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3731 "parsing/parser.mly" ( Public ) # 47098 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 3732 "parsing/parser.mly" ( Private ) # 47130 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 3733 "parsing/parser.mly" ( Private ) # 47162 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.with_constraint) = let _6 = let _1 = let xs = # 253 "" ( List.rev xs ) # 47224 "parsing/parser.ml" in # 969 "parsing/parser.mly" ( xs ) # 47229 "parsing/parser.ml" in # 2974 "parsing/parser.mly" ( _1 ) # 47235 "parsing/parser.ml" in let _endpos__6_ = _endpos_xs_ in let _5 = let _1 = _1_inlined2 in # 3291 "parsing/parser.mly" ( _1 ) # 47244 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 47255 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3210 "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))) ) # 47272 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.with_constraint) = let _5 = let _1 = _1_inlined2 in # 3291 "parsing/parser.mly" ( _1 ) # 47327 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 47339 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in # 3223 "parsing/parser.mly" ( let lident = loc_last _3 in Pwith_typesubst (_3, (Type.mk lident ~params:_2 ~manifest:_5 ~loc:(make_loc _sloc))) ) # 47354 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.with_constraint) = 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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 47405 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 47416 "parsing/parser.ml" in # 3231 "parsing/parser.mly" ( Pwith_module (_2, _4) ) # 47422 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.with_constraint) = 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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 47473 "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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 47484 "parsing/parser.ml" in # 3233 "parsing/parser.mly" ( Pwith_modsubst (_2, _4) ) # 47490 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.with_constraint) = 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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 47548 "parsing/parser.ml" in # 3235 "parsing/parser.mly" ( Pwith_modtype (l, rhs) ) # 47554 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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 : (Parsetree.with_constraint) = 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 # 885 "parsing/parser.mly" ( mkrhs _1 _sloc ) # 47612 "parsing/parser.ml" in # 3237 "parsing/parser.mly" ( Pwith_modtypesubst (l, rhs) ) # 47618 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; CamlinternalMenhirLib.EngineTypes.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) = # 3240 "parsing/parser.mly" ( Public ) # 47643 "parsing/parser.ml" in { CamlinternalMenhirLib.EngineTypes.state = _menhir_s; CamlinternalMenhirLib.EngineTypes.semv = Obj.repr _v; CamlinternalMenhirLib.EngineTypes.startp = _startpos; CamlinternalMenhirLib.EngineTypes.endp = _endpos; 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) = # 3241 "parsing/parser.mly" ( Private ) # 47675 "parsing/parser.ml" in { 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 -> (Obj.magic (MenhirInterpreter.entry `Simplified 1828 lexer lexbuf) : (Parsetree.toplevel_phrase list)) and toplevel_phrase = fun lexer lexbuf -> (Obj.magic (MenhirInterpreter.entry `Simplified 1808 lexer lexbuf) : (Parsetree.toplevel_phrase)) and parse_val_longident = fun lexer lexbuf -> (Obj.magic (MenhirInterpreter.entry `Simplified 1802 lexer lexbuf) : (Longident.t)) and parse_pattern = fun lexer lexbuf -> (Obj.magic (MenhirInterpreter.entry `Simplified 1798 lexer lexbuf) : (Parsetree.pattern)) and parse_mty_longident = fun lexer lexbuf -> (Obj.magic (MenhirInterpreter.entry `Simplified 1794 lexer lexbuf) : (Longident.t)) and parse_mod_longident = fun lexer lexbuf -> (Obj.magic (MenhirInterpreter.entry `Simplified 1790 lexer lexbuf) : (Longident.t)) and parse_mod_ext_longident = fun lexer lexbuf -> (Obj.magic (MenhirInterpreter.entry `Simplified 1786 lexer lexbuf) : (Longident.t)) and parse_expression = fun lexer lexbuf -> (Obj.magic (MenhirInterpreter.entry `Simplified 1782 lexer lexbuf) : (Parsetree.expression)) and parse_core_type = fun lexer lexbuf -> (Obj.magic (MenhirInterpreter.entry `Simplified 1778 lexer lexbuf) : (Parsetree.core_type)) and parse_constr_longident = fun lexer lexbuf -> (Obj.magic (MenhirInterpreter.entry `Simplified 1774 lexer lexbuf) : (Longident.t)) and parse_any_longident = fun lexer lexbuf -> (Obj.magic (MenhirInterpreter.entry `Simplified 1756 lexer lexbuf) : (Longident.t)) and interface = fun lexer lexbuf -> (Obj.magic (MenhirInterpreter.entry `Simplified 1752 lexer lexbuf) : (Parsetree.signature)) and implementation = fun lexer lexbuf -> (Obj.magic (MenhirInterpreter.entry `Simplified 0 lexer lexbuf) : (Parsetree.structure)) module Incremental = struct let use_file = fun initial_position -> (Obj.magic (MenhirInterpreter.start 1828 initial_position) : (Parsetree.toplevel_phrase list) MenhirInterpreter.checkpoint) and toplevel_phrase = fun initial_position -> (Obj.magic (MenhirInterpreter.start 1808 initial_position) : (Parsetree.toplevel_phrase) MenhirInterpreter.checkpoint) and parse_val_longident = fun initial_position -> (Obj.magic (MenhirInterpreter.start 1802 initial_position) : (Longident.t) MenhirInterpreter.checkpoint) and parse_pattern = fun initial_position -> (Obj.magic (MenhirInterpreter.start 1798 initial_position) : (Parsetree.pattern) MenhirInterpreter.checkpoint) and parse_mty_longident = fun initial_position -> (Obj.magic (MenhirInterpreter.start 1794 initial_position) : (Longident.t) MenhirInterpreter.checkpoint) and parse_mod_longident = fun initial_position -> (Obj.magic (MenhirInterpreter.start 1790 initial_position) : (Longident.t) MenhirInterpreter.checkpoint) and parse_mod_ext_longident = fun initial_position -> (Obj.magic (MenhirInterpreter.start 1786 initial_position) : (Longident.t) MenhirInterpreter.checkpoint) and parse_expression = fun initial_position -> (Obj.magic (MenhirInterpreter.start 1782 initial_position) : (Parsetree.expression) MenhirInterpreter.checkpoint) and parse_core_type = fun initial_position -> (Obj.magic (MenhirInterpreter.start 1778 initial_position) : (Parsetree.core_type) MenhirInterpreter.checkpoint) and parse_constr_longident = fun initial_position -> (Obj.magic (MenhirInterpreter.start 1774 initial_position) : (Longident.t) MenhirInterpreter.checkpoint) and parse_any_longident = fun initial_position -> (Obj.magic (MenhirInterpreter.start 1756 initial_position) : (Longident.t) MenhirInterpreter.checkpoint) and interface = fun initial_position -> (Obj.magic (MenhirInterpreter.start 1752 initial_position) : (Parsetree.signature) MenhirInterpreter.checkpoint) and implementation = fun initial_position -> (Obj.magic (MenhirInterpreter.start 0 initial_position) : (Parsetree.structure) MenhirInterpreter.checkpoint) end # 3869 "parsing/parser.mly" # 47812 "parsing/parser.ml" # 269 "" # 47817 "parsing/parser.ml"