46893 lines
2.0 MiB
46893 lines
2.0 MiB
|
|
(* This generated code requires the following version of MenhirLib: *)
|
|
|
|
let () =
|
|
MenhirLib.StaticVersion.require_20190924
|
|
|
|
module MenhirBasics = struct
|
|
|
|
exception Error = Parsing.Parse_error
|
|
|
|
type token =
|
|
| WITH
|
|
| WHILE
|
|
| WHEN
|
|
| VIRTUAL
|
|
| VAL
|
|
| UNDERSCORE
|
|
| UIDENT of (
|
|
# 697 "parsing/parser.mly"
|
|
(string)
|
|
# 22 "parsing/parser.ml"
|
|
)
|
|
| TYPE
|
|
| TRY
|
|
| TRUE
|
|
| TO
|
|
| TILDE
|
|
| THEN
|
|
| STRUCT
|
|
| STRING of (
|
|
# 685 "parsing/parser.mly"
|
|
(string * Location.t * string option)
|
|
# 34 "parsing/parser.ml"
|
|
)
|
|
| STAR
|
|
| SIG
|
|
| SEMISEMI
|
|
| SEMI
|
|
| RPAREN
|
|
| REC
|
|
| RBRACKET
|
|
| RBRACE
|
|
| QUOTED_STRING_ITEM of (
|
|
# 689 "parsing/parser.mly"
|
|
(string * Location.t * string * Location.t * string option)
|
|
# 47 "parsing/parser.ml"
|
|
)
|
|
| QUOTED_STRING_EXPR of (
|
|
# 687 "parsing/parser.mly"
|
|
(string * Location.t * string * Location.t * string option)
|
|
# 52 "parsing/parser.ml"
|
|
)
|
|
| QUOTE
|
|
| QUESTION
|
|
| PRIVATE
|
|
| PREFIXOP of (
|
|
# 671 "parsing/parser.mly"
|
|
(string)
|
|
# 60 "parsing/parser.ml"
|
|
)
|
|
| PLUSEQ
|
|
| PLUSDOT
|
|
| PLUS
|
|
| PERCENT
|
|
| OR
|
|
| OPTLABEL of (
|
|
# 664 "parsing/parser.mly"
|
|
(string)
|
|
# 70 "parsing/parser.ml"
|
|
)
|
|
| OPEN
|
|
| OF
|
|
| OBJECT
|
|
| NONREC
|
|
| NEW
|
|
| MUTABLE
|
|
| MODULE
|
|
| MINUSGREATER
|
|
| MINUSDOT
|
|
| MINUS
|
|
| METHOD
|
|
| MATCH
|
|
| LPAREN
|
|
| LIDENT of (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 88 "parsing/parser.ml"
|
|
)
|
|
| LETOP of (
|
|
# 629 "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 (
|
|
# 634 "parsing/parser.mly"
|
|
(string)
|
|
# 113 "parsing/parser.ml"
|
|
)
|
|
| INT of (
|
|
# 633 "parsing/parser.mly"
|
|
(string * char option)
|
|
# 118 "parsing/parser.ml"
|
|
)
|
|
| INITIALIZER
|
|
| INHERIT
|
|
| INFIXOP4 of (
|
|
# 627 "parsing/parser.mly"
|
|
(string)
|
|
# 125 "parsing/parser.ml"
|
|
)
|
|
| INFIXOP3 of (
|
|
# 626 "parsing/parser.mly"
|
|
(string)
|
|
# 130 "parsing/parser.ml"
|
|
)
|
|
| INFIXOP2 of (
|
|
# 625 "parsing/parser.mly"
|
|
(string)
|
|
# 135 "parsing/parser.ml"
|
|
)
|
|
| INFIXOP1 of (
|
|
# 624 "parsing/parser.mly"
|
|
(string)
|
|
# 140 "parsing/parser.ml"
|
|
)
|
|
| INFIXOP0 of (
|
|
# 623 "parsing/parser.mly"
|
|
(string)
|
|
# 145 "parsing/parser.ml"
|
|
)
|
|
| INCLUDE
|
|
| IN
|
|
| IF
|
|
| HASHOP of (
|
|
# 682 "parsing/parser.mly"
|
|
(string)
|
|
# 153 "parsing/parser.ml"
|
|
)
|
|
| HASH
|
|
| GREATERRBRACKET
|
|
| GREATERRBRACE
|
|
| GREATER
|
|
| FUNCTOR
|
|
| FUNCTION
|
|
| FUN
|
|
| FOR
|
|
| FLOAT of (
|
|
# 612 "parsing/parser.mly"
|
|
(string * char option)
|
|
# 166 "parsing/parser.ml"
|
|
)
|
|
| FALSE
|
|
| EXTERNAL
|
|
| EXCEPTION
|
|
| EQUAL
|
|
| EOL
|
|
| EOF
|
|
| END
|
|
| ELSE
|
|
| DOWNTO
|
|
| DOTOP of (
|
|
# 628 "parsing/parser.mly"
|
|
(string)
|
|
# 180 "parsing/parser.ml"
|
|
)
|
|
| DOTDOT
|
|
| DOT
|
|
| DONE
|
|
| DOCSTRING of (
|
|
# 705 "parsing/parser.mly"
|
|
(Docstrings.docstring)
|
|
# 188 "parsing/parser.ml"
|
|
)
|
|
| DO
|
|
| CONSTRAINT
|
|
| COMMENT of (
|
|
# 704 "parsing/parser.mly"
|
|
(string * Location.t)
|
|
# 195 "parsing/parser.ml"
|
|
)
|
|
| COMMA
|
|
| COLONGREATER
|
|
| COLONEQUAL
|
|
| COLONCOLON
|
|
| COLON
|
|
| CLASS
|
|
| CHAR of (
|
|
# 592 "parsing/parser.mly"
|
|
(char)
|
|
# 206 "parsing/parser.ml"
|
|
)
|
|
| BEGIN
|
|
| BARRBRACKET
|
|
| BARBAR
|
|
| BAR
|
|
| BANG
|
|
| BACKQUOTE
|
|
| ASSERT
|
|
| AS
|
|
| ANDOP of (
|
|
# 630 "parsing/parser.mly"
|
|
(string)
|
|
# 219 "parsing/parser.ml"
|
|
)
|
|
| AND
|
|
| AMPERSAND
|
|
| AMPERAMPER
|
|
|
|
end
|
|
|
|
include MenhirBasics
|
|
|
|
let _eRR =
|
|
MenhirBasics.Error
|
|
|
|
# 18 "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 -> mkpat ~loc (Ppat_constraint(p, typ))
|
|
|
|
let syntax_error () =
|
|
raise Syntaxerr.Escape_error
|
|
|
|
let unclosed opening_name opening_loc closing_name closing_loc =
|
|
raise(Syntaxerr.Error(Syntaxerr.Unclosed(make_loc opening_loc, opening_name,
|
|
make_loc closing_loc, closing_name)))
|
|
|
|
let expecting loc nonterm =
|
|
raise Syntaxerr.(Error(Expecting(make_loc loc, nonterm)))
|
|
|
|
let not_expecting loc nonterm =
|
|
raise Syntaxerr.(Error(Not_expecting(make_loc loc, nonterm)))
|
|
|
|
let dotop ~left ~right ~assign ~ext ~multi =
|
|
let assign = if assign then "<-" else "" in
|
|
let mid = if multi then ";.." else "" in
|
|
String.concat "" ["."; ext; left; mid; right; assign]
|
|
let paren = "(",")"
|
|
let brace = "{", "}"
|
|
let bracket = "[", "]"
|
|
let lident x = Lident x
|
|
let ldot x y = Ldot(x,y)
|
|
let dotop_fun ~loc dotop =
|
|
(* We could use ghexp here, but sticking to mkexp for parser.mly
|
|
compatibility. TODO improve parser.mly *)
|
|
mkexp ~loc (Pexp_ident (ghloc ~loc dotop))
|
|
|
|
let array_function ~loc str name =
|
|
ghloc ~loc (Ldot(Lident str,
|
|
(if !Clflags.unsafe then "unsafe_" ^ name else name)))
|
|
|
|
let array_get_fun ~loc =
|
|
ghexp ~loc (Pexp_ident(array_function ~loc "Array" "get"))
|
|
let string_get_fun ~loc =
|
|
ghexp ~loc (Pexp_ident(array_function ~loc "String" "get"))
|
|
|
|
let array_set_fun ~loc =
|
|
ghexp ~loc (Pexp_ident(array_function ~loc "Array" "set"))
|
|
let string_set_fun ~loc =
|
|
ghexp ~loc (Pexp_ident(array_function ~loc "String" "set"))
|
|
|
|
let multi_indices ~loc = function
|
|
| [a] -> false, a
|
|
| l -> true, mkexp ~loc (Pexp_array l)
|
|
|
|
let index_get ~loc get_fun array index =
|
|
let args = [Nolabel, array; Nolabel, index] in
|
|
mkexp ~loc (Pexp_apply(get_fun, args))
|
|
|
|
let index_set ~loc set_fun array index value =
|
|
let args = [Nolabel, array; Nolabel, index; Nolabel, value] in
|
|
mkexp ~loc (Pexp_apply(set_fun, args))
|
|
|
|
let array_get ~loc = index_get ~loc (array_get_fun ~loc)
|
|
let string_get ~loc = index_get ~loc (string_get_fun ~loc)
|
|
let dotop_get ~loc path (left,right) ext array index =
|
|
let multi, index = multi_indices ~loc index in
|
|
index_get ~loc
|
|
(dotop_fun ~loc (path @@ dotop ~left ~right ~ext ~multi ~assign:false))
|
|
array index
|
|
|
|
let array_set ~loc = index_set ~loc (array_set_fun ~loc)
|
|
let string_set ~loc = index_set ~loc (string_set_fun ~loc)
|
|
let dotop_set ~loc path (left,right) ext array index value=
|
|
let multi, index = multi_indices ~loc index in
|
|
index_set ~loc
|
|
(dotop_fun ~loc (path @@ dotop ~left ~right ~ext ~multi ~assign:true))
|
|
array index value
|
|
|
|
|
|
let bigarray_function ~loc str name =
|
|
ghloc ~loc (Ldot(Ldot(Lident "Bigarray", str), name))
|
|
|
|
let bigarray_untuplify = function
|
|
{ pexp_desc = Pexp_tuple explist; pexp_loc = _ } -> explist
|
|
| exp -> [exp]
|
|
|
|
let bigarray_get ~loc arr arg =
|
|
let mkexp, ghexp = mkexp ~loc, ghexp ~loc in
|
|
let bigarray_function = bigarray_function ~loc in
|
|
let get = if !Clflags.unsafe then "unsafe_get" else "get" in
|
|
match bigarray_untuplify arg with
|
|
[c1] ->
|
|
mkexp(Pexp_apply(ghexp(Pexp_ident(bigarray_function "Array1" get)),
|
|
[Nolabel, arr; Nolabel, c1]))
|
|
| [c1;c2] ->
|
|
mkexp(Pexp_apply(ghexp(Pexp_ident(bigarray_function "Array2" get)),
|
|
[Nolabel, arr; Nolabel, c1; Nolabel, c2]))
|
|
| [c1;c2;c3] ->
|
|
mkexp(Pexp_apply(ghexp(Pexp_ident(bigarray_function "Array3" get)),
|
|
[Nolabel, arr; Nolabel, c1; Nolabel, c2; Nolabel, c3]))
|
|
| coords ->
|
|
mkexp(Pexp_apply(ghexp(Pexp_ident(bigarray_function "Genarray" "get")),
|
|
[Nolabel, arr; Nolabel, ghexp(Pexp_array coords)]))
|
|
|
|
let bigarray_set ~loc arr arg newval =
|
|
let mkexp, ghexp = mkexp ~loc, ghexp ~loc in
|
|
let bigarray_function = bigarray_function ~loc in
|
|
let set = if !Clflags.unsafe then "unsafe_set" else "set" in
|
|
match bigarray_untuplify arg with
|
|
[c1] ->
|
|
mkexp(Pexp_apply(ghexp(Pexp_ident(bigarray_function "Array1" set)),
|
|
[Nolabel, arr; Nolabel, c1; Nolabel, newval]))
|
|
| [c1;c2] ->
|
|
mkexp(Pexp_apply(ghexp(Pexp_ident(bigarray_function "Array2" set)),
|
|
[Nolabel, arr; Nolabel, c1;
|
|
Nolabel, c2; Nolabel, newval]))
|
|
| [c1;c2;c3] ->
|
|
mkexp(Pexp_apply(ghexp(Pexp_ident(bigarray_function "Array3" set)),
|
|
[Nolabel, arr; Nolabel, c1;
|
|
Nolabel, c2; Nolabel, c3; Nolabel, newval]))
|
|
| coords ->
|
|
mkexp(Pexp_apply(ghexp(Pexp_ident(bigarray_function "Genarray" "set")),
|
|
[Nolabel, arr;
|
|
Nolabel, ghexp(Pexp_array coords);
|
|
Nolabel, newval]))
|
|
|
|
let lapply ~loc p1 p2 =
|
|
if !Clflags.applicative_functors
|
|
then Lapply(p1, p2)
|
|
else raise (Syntaxerr.Error(
|
|
Syntaxerr.Applicative_path (make_loc loc)))
|
|
|
|
let exp_of_longident ~loc lid =
|
|
mkexp ~loc (Pexp_ident {lid with txt = Lident(Longident.last lid.txt)})
|
|
|
|
(* [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 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_label ~loc lbl =
|
|
mkexp ~loc (Pexp_ident (loc_lident lbl))
|
|
|
|
let pat_of_label ~loc lbl =
|
|
mkpat ~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 = [Ptop_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 -> [Ptop_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_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) attrs =
|
|
{
|
|
lb_pattern = p;
|
|
lb_expression = e;
|
|
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 mklbs ~loc ext rf lb =
|
|
{
|
|
lbs_bindings = [lb];
|
|
lbs_rec = rf;
|
|
lbs_extension = ext ;
|
|
lbs_loc = make_loc loc;
|
|
}
|
|
|
|
let addlb lbs lb =
|
|
{ lbs with lbs_bindings = lb :: lbs.lbs_bindings }
|
|
|
|
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;
|
|
}
|
|
|
|
|
|
# 793 "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\247\002\246\002\245\002\244\002\243\002\198\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\229\002\228\002\227\002\226\002\225\002\224\002\197\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\002\204\002\203\002\202\002\201\002\200\002\199\000\000\000\000\000*\000\186\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003<\001\168\001\147\001\165\001\164\001\163\001\169\001\173\000\000\003=\001\167\001\166\001\148\001\171\001\162\001\161\001\160\001\159\001\158\001\156\001\172\001\170\000\000\000\000\000\000\000\220\000\000\000\000\001\151\000\000\000\000\000\000\001\153\000\000\000\000\000\000\001\155\001\177\001\174\001\157\001\149\001\175\001\176\000\000\003;\003:\003>\000\000\000\000\000\024\001B\000\188\000\000\000\216\000\217\000\023\000\000\000\000\001\199\001\198\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0037\000\000\0032\000\000\000\000\0034\000\000\0036\000\000\0033\0035\000\000\003-\000\000\003,\003(\0022\000\000\003+\000\000\0023\000\000\000\000\000\000\000\000\000j\000\000\000\000\000h\000\000\000\000\001@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\184\001N\000\000\000\000\000\000\000\000\000\000\000\000\002\029\000\000\000\000\000\000\000\000\000\000\000\000\000e\000\000\000\000\000\000\000\000\001L\000\000\000\000\001O\001M\001U\000A\002\134\000\000\001\018\000\000\000\000\000\000\000\015\000\014\000\000\000\000\000\000\000\000\002\179\000\000\002e\002f\000\000\002c\002d\000\000\000\000\000\000\000\000\000\000\001e\001d\000\000\002\177\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\016\003\015\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000g\000\000\000\231\000\000\002h\002g\000\000\000\000\000\000\001\181\000\000\000\000\000%\000\000\000\000\000\000\000\000\000\000\001T\000\000\001S\000\000\001C\001R\000\000\001A\000b\000\030\000\000\000\000\001|\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\002<\002.\000\000\000\"\000\000\002/\000\000\000\000\001\178\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\017\003\017\000\000\003\018\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\184\000f\000i\000d\002\173\003?\002\174\001\239\002\176\000\000\000\000\002\181\002b\002\183\000\000\000\000\000\000\002\190\002\187\000\000\000\000\000\000\001\236\001\222\000\000\000\000\000\000\000\000\001\226\000\000\001\221\000\000\001\238\002\196\000\000\001\237\000q\001\229\000\000\000o\000\000\002\189\002\188\000\000\001\232\000\000\000\000\001\228\000\000\000\000\001\224\001\223\000\000\002\186\000\000\002j\002i\000\000\000\000\002F\002\185\002\182\000\000\000\000\000\000\000\000\001\183\001-\001.\002l\000\000\002m\002k\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\001o\000\000\000\000\000\000\000\000\000\000\000\000\003T\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003*\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002,\000\000\000\000\002-\000\000\000\000\001n\000\000\000\000\000\000\001K\001t\001J\001r\002 \002\031\000\000\001m\001l\000\000\000\205\000\000\000\000\001^\000\000\000\000\001b\000\000\001\203\001\202\000\000\000\000\001\201\001\200\001a\001_\000\000\001c\000\000\000\000\000\000\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\138\001P\002\143\002\141\000\000\000\000\000\000\002\154\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\172\000\000\002\171\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\250\000\000\000\000\000\000\000\000\000\000\000\000\000\239\001\249\000\240\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\234\000\000\000\235\000\000\000\000\000\000\002\151\000\000\000\000\000\000\002r\002q\000\000\000\000\000\000\000\000\003@\002\153\002\140\002\139\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\002M\002L\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\002\250\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\002\251\002\252\000\000\000\000\000p\000\000\002\191\002\175\000\000\002\194\000\000\002\193\002\192\000\000\000\000\000\000\000\000\000\000\000\000\000\248\000\000\000\000\002&\000\000\000\000\000\000\000\247\000\000\000\000\000\246\000\245\000\000\000\000\000\000\000\000\000\250\000\000\000\000\000\249\000\000\001\235\000\000\000\000\001\246\000\000\000\000\001\248\000\000\000\000\001\244\001\243\001\241\001\242\000\000\000\000\000\000\000\000\000\000\001\024\000\018\000\252\000\000\000\000\000\000\002t\002s\000\000\000\000\002\130\002\129\000\000\000\000\000\000\000\000\002~\002}\000\000\000\000\002@\000\000\000\000\002|\002{\000\000\000\000\002\128\002\127\002\147\000\000\000\000\000\000\000\000\000\000\002x\000\000\000\000\000\000\000\000\000\000\002v\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002z\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\002w\000\000\000\000\002u\000\000\000\000\002y\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\0010\000\000\0011\001/\002(\000\000\000\000\002)\002'\000\000\000\000\000\000\000\000\000\000\001\003\000\000\000\000\001\004\000\000\000\000\000\170\000\000\001\006\001\005\000\000\000\000\002\155\002\148\000\000\002\164\000\000\002\165\002\163\000\000\002\169\000\000\002\170\002\168\000\000\000\000\002\150\002\149\000\000\000\000\000\000\002\016\000\000\001\197\000\000\000\000\000\000\002I\002\015\000\000\002\159\002\158\000\000\000\000\000\000\001Q\000\000\002\132\000\000\002\133\002\131\000\000\002\157\002\156\000\000\000\000\000\000\002C\002\146\000\000\002\145\002\144\000\000\002\167\002\166\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\001X\000\000\000\000\000\000\000k\000\000\000\000\000l\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\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\014\000\000\000\000\000\251\001\195\000\000\000\237\000\238\001\002\000\000\000\000\000\000\000\000\000\000\001\210\001\204\000\000\001\209\000\000\001\207\000\000\001\208\000\000\001\205\000\000\000\000\001\206\000\000\001\144\000\000\000\000\000\000\001\143\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001s\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\014\003\t\000\000\000\000\003\b\000\000\000\000\000\000\000\000\000\000\001\255\000\000\000\000\000\000\000\000\000\000\000\000\003\014\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\128\000\000\002\005\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\249\000\000\000\000\002N\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\146\000\000\000\000\000\000\001\145\000\000\000\000\000\000\000\000\000\000\001g\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\001\016\002\\\000\000\000\000\000\000\002Z\000\000\000\000\000\000\002Y\000\000\001Z\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\003H\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{\000\000\001z\000\000\000\000\000\000\000\000\000H\000\000\000\000\000\000\002\012\000\000\002\011\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\012\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\n\002`\002R\000\000\002X\002S\002^\002]\002[\001\027\000\000\002P\000\000\000\000\000\000\000\000\000\000\002\029\000\000\000\000\001\020\002T\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\139\001\135\000\000\000\000\000\000\000\210\000\000\000\000\002\019\002\029\000\000\000\000\001\022\002\017\002\018\000\000\000\000\000\000\000\000\000\000\001\142\001\138\001\134\000\000\000\000\000\211\000\000\000\000\001\141\001\137\001\133\001\131\002U\002Q\002a\001\026\001\252\002O\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003C\000\000\000\000\003E\000\000\0006\000\000\000\000\003K\000\000\003J\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003B\000\000\000\000\003D\000\000\000\000\000\000\002\007\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001?\000\000\000\000\001=\001;\000\000\0007\000\000\000\000\003N\000\000\003M\000\000\000\000\000\000\0019\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001>\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\000\254\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\000\255\000\000\000@\000-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\253\000\000\000V\000U\000\000\000\000\000[\000Z\000\000\000\000\001\185\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\b\003\012\003\003\000\000\000\000\003\007\002\248\003\002\003\011\003\n\001\031\000\000\000\000\003\000\000\000\003\004\003\001\003\r\001\251\000\000\000\000\002\254\000\000\000\191\002\253\000\000\000\000\000\222\000\000\000\000\001\030\001\029\000\000\001\\\001[\000\000\000\000\002\195\002\178\000\000\000B\000\000\000\000\000C\000\000\000\000\000\142\000\141\002\162\000\000\002\161\002\160\002\142\000\000\000\000\000\000\000\000\002\135\000\000\002\137\000\000\002\136\000\000\002o\002n\000\000\002p\000\000\000\000\000\134\000\000\000\000\002\004\000\215\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\189\000\000\003\006\002\024\002\025\002\020\002\022\002\021\002\023\000\000\000\000\000\000\000\190\000\000\000\000\002\029\000\000\000\214\000\000\000\000\000\000\000\000\003\005\000\000\000\187\000\000\000\000\000\000\000\000\0018\0012\000\000\000\000\0013\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\140\001\136\000\000\001\132\003&\000\000\002\029\000\000\000\213\000\000\000\000\000\000\000\000\002W\002\028\002\026\002\027\000\000\000\000\000\000\002\029\000\000\000\212\000\000\000\000\000\000\000\000\002V\000\000\001i\001h\000\000\000\022\000\000\003F\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\001E\001F\000\003\000\000\000\000\000\000\000\000\001H\001I\001G\000\019\001D\000\020\000\000\001\211\000\000\000\004\000\000\001\212\000\000\000\005\000\000\001\213\000\000\000\000\001\214\000\006\000\000\000\007\000\000\001\215\000\000\000\b\000\000\001\216\000\000\000\t\000\000\001\217\000\000\000\000\001\218\000\n\000\000\000\000\001\219\000\011\000\000\000\000\000\000\000\000\000\000\003\025\003\020\003\021\003\024\003\022\000\000\003\029\000\012\000\000\003\028\000\000\001%\000\000\000\000\003\026\000\000\003\027\000\000\000\000\000\000\000\000\001)\001*\000\000\000\000\001(\001'\000\r\000\000\000\000\000\000\0039\000\000\0038")
|
|
|
|
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\002 \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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\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\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\0002\016$\b\000L\018-\000\016\026\000\000\016@\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\128\000\018\000\000\000\000\004\000\000\000\000\000HQ\b2\016$\b\000L\018-\000\016\026\000\000\020@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\001\001\144\000M\021\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\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\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\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\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\002 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\004\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\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@\003)\000P\144\004\193&\176\001\001\144\000m\021\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\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\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\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\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\131\128\000p\016\000\197\194\000\001\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\016\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\002\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\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\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\000\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\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\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\b\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\016\000H\017\0002\016\004\b\000L\018-\000\016\026\000\000\016@\000\000\000\000\000\000\000\004\000\000\000\016\000H\017\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\129\003\224\012\004\004\003\224 \016\000X 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\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\000\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\248\000\t\016>\000\192@@>\002\001\000\005\130\003\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\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\b\016>\000\192@@>\002\001\000\005\130\003\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\240\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\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\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\237s\251\255\182\031}\183\255\223\197\189\187\215\248\190\215?\191\249a\247\139\127\252\240\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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#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\0026\016\004X(\223\018=\000@\248\000\000\024\224\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\016\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\0026\016\004X(\223\018=\000@\248\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\002\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\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\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\0000\000\006\000\000\012\\ \000\016\000\000\000\000\000\001\000\000\000\000\016@\000\000\001\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\0002\144\005\t\001L\018+\000\016\024\000\000P@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\144\005\t\001L\018+\000\016\024\000\000P@\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#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#a\000E\130\141\241#\208\004\015\128\016\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\196\148\187\131\232>\022\028\015\249`w\139~p\2402\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\000\000\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\0026\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\196\148\187\131\232>\022\028\015\249`w\139~p\240\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\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\b#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!\000@\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\018\016\132@\b\012\0189\000\000\024\000\000\024\192\128\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0026\016\004X(\223\018=\000@\248\000\000\028\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\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#a\002E\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\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\004\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\018\016\004@\b\012\0189\000\000\024\000\000\024\192@\000\000\000\000\000\000\000\000\003\000\000P\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\b\000\001\016\000\000\000\000\000\000\000\001\000\002@\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\000\128\000\017\000\000\000\000\000\000\000\000\000\000\000\000\b\016\000\016\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\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\004\000\000\000\000\000\000\000\000\0000\000\005\000\000\000\001\000\000\000\000\000\192#\128\000\000\000\000\000\000\012\000\001\016\000\000\000\000\000\0000\001\005\002@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012IK\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\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\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\t\016>\000\192@@>\006\001\000\005\130\003\128\000\016\000\000\000\000\000\000\000@\000\000\000\000\b\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\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\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\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\000\000\000\b\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\003\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\b\000\000\000\000\001\000\000@\000\001\002\000@\000\000\129\000\000\000\016\000\000\000\000\bH\002(\000\130\t!\192\001\144\006`\000 \004\001\000@@\000 \193\000\000\000\016\000\000\000\000\004\000\000\000\000\001\000\000@\000\000\001\000\000\000\000\001\002\000@\000\000\129\000\000\000\016\000\000\000\000\bH\002(\000\130\t!\192\001\144\006`\000 \004\000\000\000\000\000\000\000\000\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\000\000\000\000\000\000\b\000\000\000\000\001\000\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\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\128\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\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\003\000\000`\000\000\197\194\128\001\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\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\016\000\000\0000\000\007\001\000\012\\ \000\016\000\000\000\000\000\000\000\017\000\000\000\000\004\000\000 \000\000\000\001\000\000\001\016\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\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\001\016\000\000\000\000@\000\002\000\000\000\000\016\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000`\000\000\197\194\000\001\000\000\000\000\000\bX\n(\000\131\005!\192\001\144\006`\016!\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bX\n(\000\130\005!\192\001\144\006`\016!\004\003\000\000`\000\000\197\194\128\001\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\003\000\000`\000\000\197\194\000\001\000\000\000\000\000\bX\002(\000\130\005!\192\001\144\006`\016!\004\133\128\162\128\b0R\028\000\025\000f\001\002\016@\000\000\000\000\000\000\000@\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003!\004@\128\004\193&\208\001\001\128\000\001\004\0002\016D\b\000L\018-\000\016\024\000\000\016@\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@\132\128\"\128\b \018\024\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\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\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\0002\016\004\b\000L\018-\000\016\026\000\000\017@\196\148\187\131\232>\022\028\015\249`w\139~p\248\000\b\128>\000\192@@>\002\001\000\007\194\003\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\129\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@\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\129\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@\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\001\000@@\000 \193\000\000\000\016\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\bH\002(\000\130\t!\192\001\016\006`\000 \000\000\000\000\000\000\000\000\000\000\000\000\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\bH\002(\000\130\t!\192\001\016\006`\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0008\000@\004\000\000\000@\000\000\000\000\000\000\000\001\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\001\000\000\000\000\000@\000\000\000\000\000\000\000\000\bH\002(\000\130\001!\128\001\016\007`\000 \000\001\000@@\000 \193\000\000\000\016\000\000\000\000\012H\002(\000\131\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\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\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\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\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\b\000\000\000\000\001\000\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}\246D\b/\227P\000L\028\030\227\139\002\131B~\018-X\170\2233=\001@\254\000\000x\224\003!\000@\128\004\193\"\208\001\001\160\000\001\004\001\000\000 \000\000\000\000@\000\000\000\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}\246D\b/\227P\000L\028\030\227\139\002\131B~\018-X\170\2233=\001@\254\000\000x\224\001\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\bH\002(\000\130\t!\192\001\016\006`\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\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\004\000\000\000\016\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\132\129\"\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\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\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\bH\002(\000\194\001!\192\001\016\007`\000`\000\001 \000\000\000\000\128\002\000\000\000\128\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\128\000\132\128\"\128\b \018\028\000\017\000f\016\002\016\000\016\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\b\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\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\000x\002/\001\130\012} \001\016\006\000\000 \000\132\128\"\128\b \002\016\000\016\000f\000\002\000\000\016\000\000\004\000\000\000@\000\000\000\000\000\000\128\001\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\001\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\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\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\0008\000@\004\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\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\132\128\"\128\b \002\016\000\016\000f\000\002\000@ \000\002H\000L\000@\b\000\000\000\000\000\128\002\000\000$\128\004\192\000\000\128\000\000\000\000\b\000\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000\132\128\"\128\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\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\132\128\"\128\b \002\016\000\016\000f\000\002\000@ \000\002H\000L\000@\b\000\000\000\000\000\128\002\000\000$\128\004\192\000\000\128\000\000\000\000\b\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\016\000\0002\000\007\129\000\012\\(\000\016\b\002\000\001\000\003\000\002p\016\000\197\194\000\001\000\000\000\000\020\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\bZ\002(\000\130\t!\160\001\016\014`\016 \004\132\128\"\128\012 \018\028\000\017\000f\001\006\016HH\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\bH\002(\000\130\001!\128\001\016\006`\016!\004\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\000\000\000\000\bH\002(\000\130\000!\128\001\000\006`\016 \004\132\128\"\128\b \002\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \018\028\000\017\000v\001\002\000@\018\000\000\128\000\b\000(\000\000\b\002\000\001\000\001 \000\000\000\000\128\002\128\000\000\128 \000\016\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\012 \018\028\000\017\000f\001\006\016HH\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\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\128\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\004\000 \000\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\0002\144\005\t\000L\018+\000\016\025\000\000P@\001\000\000@\002\000\209\002\000\000\004\000\000\000\000\b@\000\b\000\000(!@\192\000\000 \016\000\000\132\000\000\128\000\002\130\016\012\000\000\002\001\000\000\b@\000\b\000\000 !\000\192\000\000 \016\000\000\b\000\000\000\000@@\004\000\000\000\000\000\000\b\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\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\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\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\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\012\000\000\002\001\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\016\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\b\000\000\b\000\000@\004\000\000\000\000\000\000\b\000\000\000\000\128\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\000\000\000\000\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\144\005\t\000L\018+\000\016\025\000\000P@\003\128\000p\016\000\197\194\000\001\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\016\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\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\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\000\000\000\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\144\005\t\000L\018+\000\016\025\000\000P@\003\128\000p\016\000\197\194\000\001\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\016\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\0026\016\004X(\223\018}\000@\248\000\000\024\224#a\000E\130\141\241#\208\004\015\128\000\001\142\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\128\001\000\000@\002\000\209\006\000\000\004\000\000\000\000\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\0002\016D\012\128L\018m\000\016\024\000\000\016@}\246D\b/\227P\000L\028\030\227\139\002\131@2\016D\b\000L\018m\000\016\024\000\000\016@\003!\004@\128\004\193\"\208\001\001\128\000\001\004\0002\016\004\b\000L\018-\000\016\024\000\000\016@\000\000\000\000\000\000\000\b\000\b\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\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\000\209\002\000\000\004\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\0002\144\005\t\000L\018k\000\016\024\000\000\016@\003)\000P\144\004\193\"\176\001\001\128\000\001\004\0002\144\005\t\001L\018+\000\016\024\000\000\016@\001\000\000@\002\000\209\002\000\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\004\001\000\000@\002\000\209\002\000\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\133\169*\212\024\162\211?\188\017\001\230\001\007\141HZ\146\173A\138-3\251\193\016\030`\016x\212\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@\000\000\000\000\000\000\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\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\000\209\002\000\000\004\000\000\000\000\bH\002\168\000\130!!\192\193\016\006`\016`\020\003!\004@\128\004\193\"\208\001\001\128\000\001\004\0002\016\004\b\000L\018-\000\016\024\000\000\016@\000\000\000\000\000\000\000\b\000\b\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\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 \r\\ \000\016\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\b@\000\b\000\000 !\192\192\000\000 \016\000\016\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\001\000\000@\002\000\209\002\000\000\004\000\000\000\000\b@\000\b\000\000 !\192\192\000\000 \016\000\016\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\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\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\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\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\000\000\128\000\002\002\016\012\000\000\002\001\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@0\000\007\001 \r\\ \000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\016\000\004\000 \r\016 \000\000@\000\000\000\000\132\128\"\128\b \018\028\000\017\000f\000\002\000@2\144\005\t\000L\018+\000\016\025\000\000P@\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 \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\0002\144\005\t\000L\018+\000\016\025\000\000P@\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\000\000\000\000\000\000\000\000\000\bH\002(\000\130\001!\000\001\000\006`\000 \000\003!\004@\192\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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!\000\001\016\006`\000 \004\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\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\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\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\bH\002(\000\130\001!\000\001\144\006`\000 \004\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\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\012H\002\168\000\131\t!\192\001\016\007`\002 \004\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\000\000\000\128\000\000\000\000@\000\000\000\000\004\193\016\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\000\000\000\000\000\000\000\000\000\000\000\000\132\000\000\128\000\002\002\016\012\000\000\002\001\000\000\b\000\000\000\000\000\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\b\000\000\000\128\004\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\129\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@\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\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\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\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\131!\000@\128\004\193\"\208\001\001\160\000\001\020\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\240\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\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\016\000\018\000\000\000\000\b\000 \000\000\b\000\000\000\000\132\128\"\128\b \018\028\000\017\000f\000\002\016\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\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\132\128\"\128\012 \018\028\000\017\000v\000\006\016\000\018\000\000\000\000\b\000 \000\000\b\000\000\000\000\132\128\"\128\b \018\028\000\017\000f\000\002\016\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\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\000\000\000\000\000\000\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\132\128\"\128\b \018\024\000\017\000f\000\002\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\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\001\000\000\000\000\000\000\000\002\000\000\000\000\000\003\000\000`\000\000\197\198\000\001 \000 \000\000\0000\000\006\000\000\012\\ \000\018\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\001\000\016\000\000\000@\000\000\001 \000\000\000\000\0000\000\006\000\000\012\\ \000\018\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\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\000\000\000\128\000\000\000\000\000\000\000\000\000\004\000\000\001\000\000\000\000\000@\000\000\001\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\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\004\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\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\004\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\132\128\"\128\b \018\028\000\017\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\0002\000\007\129\000\012\\(\000\016\b\002\000\001\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`\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\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\132\128\"\128\b \002\024\000\016\000f\000\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\000\000\000\000\000\000\000\000\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\132\128\"\130\b \002\024\000\016\000v\001\018\000@2\000\007\129\000\012\\(\000\016\b\002\000\001\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`\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\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\132\128\"\128\b \002\024\000\016\000f\000\002\016\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\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\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\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\000\000 \000\000\000\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\000\000\000\000\000\000\000\000\000\000\000\000\002\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\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\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\000H\002\b\000\130\000!\000\001\000\006@\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\018\000\000\000\000\012\000 \000\000\b\000\000\000\000\128\000\136\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\b\000\000\000\000\000\001\000\000\000\001\000\000\000\000\000\192\000\000\000\000\000\000\000\000\b\000\b\000~\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\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\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\0026\016\004X(\223\018=\000@\248\000\000\024\224\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\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\b\000\000\000\000\000A\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\000A\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\0002\016\004\b\000L\018-\000\016\026\000\000\016@\000\000\000\000\000\000\000\004\000\000\000\004\000H\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\016\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\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\001\000\000\000\001\000\000\000\000\000\192\000\000\000\000\000\000\000\000\002~\018\012X\170\2233=\001P\254@\0008\224\001\000\000\000\000\000@\000\000\000\000\000\000\000\000\000Z\018\b\000\130\r!\001\001\016\014@\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\016\006A\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\000\000\000\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\016\000`\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\000\000\000\b\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\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002~\018\012X\170\2233=\001P\254@\0008\224'\225 \197\138\173\2433\208\021\015\228\000\003\142\000H\002\b\000\130\001!\000\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\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\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\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")
|
|
|
|
and start =
|
|
13
|
|
|
|
and action =
|
|
((16, "C\170P\226Ff\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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[\\(\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\006\168\000\218\000\000\003\188\t|\000\000\001\208\003\232\nt\000\000\000\244\004\198\011l\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\220\000\000\000\000\000\000\0046T\016\000\000\000\000\000\000\005.\000\000\000\000\000\000\005\022\005\b\000\000\000\000T\016H\254\020X\021\178^\128\020X\\\142P\226\020XR,\000\000\007\168\000\000Dp\007\214\000\000C\146\000\000\027\158\000\000\000\000\004\246\000\000\005.\000\000\000\000\000\000\002J\000\000C\146\000\000\006&v\246]\160d\194\000\000\132l\134\028\000\000LP_\014\000\000X\\\026\206K\200\005.p\026FfC\170\000\000\000\000P\226\020XS\148Dp\007\012v\246\000\000\128\178FfC\170P\226\020X\000\000\000\000\016x\023\022\001N\b\004\000\000\002\138\b\022\000\000\000\000\000\000\000\000\000\000\020X\000\000A\206i\164C\170\000\000\000\000P\206\020XZ\024W\200\000\000\004\002\000\000\000\000\005\242\000\000\000\000H\166\004\002\024\138\003\130\0020\000\000\000\000\003\172\000\000\021\178\006\212\006\160\020X\028\254\020XC\170C\170\000\000M\\M\\\020X\028\254A\248\020X\000\000\000\000\000\000P\226\020X\000\000\000\248\000\000W\200y\188zJ\000\000\b\004\000\000\n\196\000\000\000\000A\214T\016\134h\000\000h\142\134h\000\000h\142h\142\000b\006:\0008\000\000\020\190\000\000\007b\000\000\000\000\b\198\000\000\000\000\000\000h\142\005.\000\000\000\000V\222T\016T\132_\014\000\000\000\000N*\000b\000\000\000\000_\014\007\162T\016\000\000O _\014P\022\000\000\000\000\000\000\011\190\000\000h\142\000\000\001\000\1310\000\000T\016\005\216T\016\000\000\022\\\b\150\005.\000\000\000\000\023\224\000\000\006\208\000\000Y\128\011\230\000\000\b\162h\142\012\182\000\000\012\222\000\000\007\200\000\000\000\000\004\184\000\000\000\000\000\000\021 4W\200P\206\020XW\200\000\000\000b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000M:\027v\000\000\000\000\000\000\001\244&\174t<\000\000\000\000P\206\020XW\200\000\000\000\000{hW\200\136.zJ\000\000\136v\000\000W\200\000\000\000\000X\180\000\000\000\000\000\000\n.\000\000\022\168\000\000\000\000z\214\000\000\136\208{\030\000\000\137\018\t\002\000\000\000\000z\214\000\000\004\024\000\000\000\000DHt\200\000\000\000\000\000\000Bn\023|\019\252\023\174\000\000\000\000\000\000\000\000\004\250\000\000\000\000Z\204\b\254\011F\000\017T\016\002\204\011\148\000\000\000\000\t\156\011F\006\172\000\000i\186P\234M\\\020X\028\254\000-\000\018\0020\000\000\n\240\021\178\021\178\000-\000\018\000\018\021\178\000\000jL\0050Dp\b\004\000\236\137`\000\000T\016ebT\016_ f\002T\016\000\144T\016f\156\000\000\000\000\020d\0008_\192\b\022\0008`\024\000\000j\230\0050\000\000\021\178k\128\000\000\b*\t\014`\184\000\000\000\000\000\000\000\000\000\000\000\000\001B\000\000\000\000\003\144\000\000\007r\028\254\000\000\\\192A\248\000\000\031\138\000\000\000\000\021\178\002\152\000\000\000\000\000\000\000\000[\132\000\000\001\200\000\000UP\001\130\005\"\000\000\0226V\170P\226\020XG,P\226\020X\016x\016x\000\000\000\000\000\000\000\000\001\240\024&B\188\000\000Q\150RJM\\\020X\028\254\b`\021\178\000\000\004*\000\000R\254S\178{\182I~T\016\002\128\000\000P\226\020X\000\000u\016\020Xy\188W\200E\178\000\000P\226\020Xw\\\004~\000\000W\200A\012T\016\003x\006\172\011\196\000\000\000\000\000\000H\166\003\138\003\138\000\000\012\154p\156\000\000P\206\020XW\200\025R\000\000P\226\020X\016x\0226\016x\002\232\023\240\000\000\000\000\016x\012\148\000\000\r\000\000\000\016x\003\224\rX\000\000'\166\000\000\b\196\000\000\000\000\026\022\000\000\017p\023.\000\000\000\000\000\000\000\000\b\020\000\000\000\000\027\014\000\000\028\006\000\000\028\254\000\000\018h\024&\000\000\000\000\000\000Ff\000\000\000\000\000\000\000\000\029\246\000\000\030\238\000\000\031\230\000\000 \222\000\000!\214\000\000\"\206\000\000#\198\000\000$\190\000\000%\182\000\000&\174\000\000'\166\000\000(\158\000\000)\150\000\000*\142\000\000+\134\000\000,~\000\000-v\000\000.n\000\000/f\000\0000^\020XW\200ZJI\146\003\138\014,l\012W\200\000\000\000\000\000\000h\142\000\000\028\018\134\028\000\000\026\"T\016\029\220\r\198\000\000\000\000\000\000\000\000l\012\000\000\000\000\005\242\014\208\000\000B\170\000\000\000\000\135\176\000\000\bB\000\000\000\000K\200\003\138\014\140T\016\b`\000\000\000\000\007\006\005.\000\000T\016\n\146\000\000\000\000\014\244\000\000\000\000\000\000I\190T\016\0118\000\000\000\000\030*\000\000\000\000{\254\000\000\031\"|\138\000\000 \026|\210\000\000!\018\t\250\000\000\000\000\000\000\000\000\"\nW\200#\002p\234p\234\000\000\000\000\000\0001V\000\000\t\188\000\000\000\000\000\000q\140\000\000\000\000\002\138\023\248\000\000\b\226\000\000\000\000]bKl\000\000\000\000\n\180\000\000\000\000\000\000\rh\000\000\000\000\000\000\016x\004\216\024\232\000\000\t\218\000\000\005\208\000\0002N\000\000\012\142\000\000\006\200\000\0003F\000\000\015\138\007\192\000\0004>lt\000\000(\158\000\000\n\"\b\184\000\00056\000\000\r\178\t\176\000\0006.\000\000q\150\n\168\000\0007&\005\180\025\016\000\000\nX\011\160\000\0008\030\000\000\r\200\012\152\000\0009\022\000\000\r\172\r\144\000\000:\014\014\136\000\000;\006\015\128\019`\000\000\000\000\000\000\n\210\000\000\000\000\014`\000\000\000\000\015\156\000\000\011\002\000\000\000\000\000\000\015\028\000\000\015*\000\000\000\000J~\003\138\015\218p\156_\014\000b\000\000\000\000p\156\000\000\000\000\000\000p\156\000\000\015\208\000\000\000\000\000\000\000\000\000\000\000\000;\254W\200\000\000\000\000\016\014\000\000<\246\000\000=\238\000\000#\250\000\000\000\000\n\130\000\000\000\000W\200\000\000\000\000}j\011P\000\000\000\000G,\000\000\014\148\000\000\000\000V\020\000\000\014~\000\000\000\000\001\130\011\254\000\000\000\000\0226\022\028\b\004\000\000B>\000\000!,\023\176\021\220\000\000\000\000\014\002\000\000\000\000\001\238\025\030V\180\000\000\025\030\000\000\tX\000\000\000\000\014\142\000\000\000\000g>\t\004\004H\000\000\000\000\012H\000\000\000\000\014\192\000\000\000\000\000\000\020X\028\254\005\168\000\000\000\000\023&\003\130\0020\003\136\028\254w\228\021\178\001B\028\254xb\015\146\000\000\000\000\003\136\000\000H\232\019\248\021\204\000\000\007X\016\"\000\000\016$\000V_\014\006\196\000\000\016\n\015\170K\200\n|T\016\030\128\020F\r\018\004\248\000\000\031x\016\\\000\000\006\196\000\000\000\000\016\130_\014aX\000\000g\144_\014\016Z_\014m\012a\248\001N\016*\000\000\000\000\000\000\020X\128\252\000\000W\200p\234\000\000\000\000\016\156\000\000\000\000\000\000>\230\016\196y\188?\222h<\000\000\000\000HJ\000\000\005\128\000\000L\136\000\000\020X\000\000\021\178\006\026\000\000\128\178\000\000\020X\028\254\128\178\000\000\025D\023\022\001N\005.\130\144\021\178}\248p\234\000\000\005r\t\168\0020\003\136p\234\132\224\003\130\0020\003\136p\234\132\224\000\000\000\000\003\136p\234\000\000FfC\170W\200\027B\000\000\000\000FfC\170M\\\020X\028\254\128\178\000\000\020\182\000-\000[\015\240T\016\0120\016\190\131P\000\000p\234\000\000H\232\019\248\021\204x\186\023\228\0118~,\nZ\016\b\020Xp\234\000\000\020Xp\234\000\000h\142ff\019\134\002\222\001N\0008N\234\000\000\001N\0008N\234\000\000\025D\005r\n\160\0212\bZ\000\000N\234\000\000\0020\016\016\021\178p\234\134\222\003\130\0020\016 \021\178p\234\134\222\000\000\000\000\tX\000\000O\224\000\000\021\178\131\132N\234\000\000\b\242\000\000H\254\020X\021\178p\234\000\000H\232\019\248\021\204rFB\138\026\222\019\170\002\142\000\000\011vC\146\000\017\000\000\016\176\016b\024\196\020XT\184T\016\0120\000\000W\150\001N\005\204\r\216\000\000\n\024\000\000\016\188\016FT\016O(\000\000\0032\004\212\r\218\000\000\n\236\000\000\016\192\016JK\200\r\028T\016K\182O(\000\000UP\020X\024\196\016\232\011\028\001N\000\000\014\012\024\196T\016\012\208\000b\000\000T\016\n$\n\218\000\000\000\000mf\000\000\000\000\014b\024\196m\228O(\000\000\020XT\016\012\226T\016V\\O(\000\000\014\144\000\000\000\000O(\000\000\000\000W\150\000\000p\234\132\238\019\170\002\142\011v\016\218\016\140\024\196p\234\132\238\000\000\000\000\019\170\002\142\011v\016\230\016\138M\252LZ_\014\017\016M\252h\142\020\184\017\030M\252_\014\017 M\252n\132o\004\000\000\129\140\000\000\000\000p\234\134\236\019\170\002\142\011v\017\022\016\162M\252p\234\134\236\000\000\000\000\000\000ff\000\000\000\000\000\000\000\000\000\000\000\000N\234\000\000\133\128\020XDp\017 v\246\000\000\128\178\133\128\000\000\000\000\1358\020XDp\017*\016\188]\160\135\176\006\196\017l\000\000\000\000o\130rF\020X\000\000~\200\021\204\000\000\000\000\128\178\1358\000\000\000\000\000\000y6D\228I\154\006\196\017v\000\000\000\000\000\000rF\020X\000\000\006\196\017z\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\014\168B\138\019\170\002\142\011v\017Xr\182\023\204\020XZ\024j\190\020(\001N\006\196\017Z\011l\000\000\000\000\017\b\000\000\000\000a\152\000\000\007\188\r\230\000\000\r\140\000\000\017`\016\244T\016d\240\017r\011\150\000\000\000\000\017\"\000\000\000\000\020F\0032\014\210\000\000\017~s8\137\172\003\138\017\028T\016\014 \000\000\000\000\017<\000\000\000\000\000\000a\152\000\000\0070\014\246\000\000\r\212\000\000\017\168\0176K\200\000\000\017\180s\186\137\248\003\138\017RT\016\015\024\000\000\000\000\017d\000\000\000\000\000\000\020X\000\000a\152\000\000\020z\020X\023\204\023\204u\168Ff\020X\128\252W\200\021\162\000\000\012V\001N\000\000\014\220\023\204T\016\014\186\b\004\000\000\020XW\200r\182\023\204\rh\023\204\000\000D\142Et\000\000bR\000\000\000\000b\238\000\000\000\000c\138\000\000\014\238\023\204d&\128\252W\200\021\162\000\000\000\"\000\000\000\000M\252\r\026\000\000\000\000d.\017\186\000\000a\152\000\000\023\204d.a\152\000\000\020XT\016a\152\000\000\015\136\000\000\000\000a\152\000\000\000\000j\190\000\000\129\192M\252\017r\023\204\130\\r\182\000\000p\234\133\142\019\170\002\142\011v\017\210r\182p\234\133\142\000\000\000\000\000\000\135\248P\206\000\000\000\000\000\000\000\000\000\000\000\000\132\022p\234\000\000\133\128\000\000\000\000\000\000\000\000p\234\135\248\000\000\018\014\000\000\000\000\132\022\018\020\000\000p\234\135\248\000\000\000\000\015\222\000\000\000\000i4\0032\000\000\000\000DH\000\000T\016\015\n\000\000j\190\015\240\000\000\000\000\000\000\015\156\000\000\000\000\000\000M\\\020X\028\254\006\178\000\000Z8\000\000\007p\000\000\000*\000\000\000\000\0184\000\000\018\\y\188\000\000@\214\018@\000\000\000\000\0182\026R\028B\021\204v0\023\228\020X\000\000\128\178\000\000\000\000\000\000\000\000\000\000\000\000\000\000v8\023\228\020X\000\000\015\190v\246\000\000\128\178\000\000\0184\026R\028B\128\178\000\000\018H\000\000\000\238\014\140\020X`\226\000\000\000\000\028\190y\242\000\000\000\000\017\214\000\000\018.T\016\000\000\015\170\012\166\000b\000\000\000\000T\016\004R\006B\000\000T\016\012\018\006\196\018\\\000\000\000\000\127\"\000\000\000\000]\160\000\000\128\178\000\000\018V\026R\029:N\234\000\000\000\000\000\000\000\000\015\214\127\188]\160\000\000\128\178\000\000\018`\026R\029:N\234\000\000\016\026\000\000\000\000\b\n\000\000p\234\000\000\018t\000\000\000\000\017\230\000\000\017\236\000\000\017\252\000\000\000\000\\\142\018\000\000\000\000\000%\182\\(\018\158\000\000\000\000\000\000\014z\011D]\232\018\164\000\000\000\000\000\000\000\000\000\000\000\000\018\022\000\000\023\228\000\000\018\030\000\000T\016\000\000\t\b\000\000\000\000\018 \000\000\000\000\0008\000\000\003\210\000\000\000\000\000\000\001\214\000\000\016\030\000\000\0180\000\000W\200\022\168\000\000\000\000\012<\018H\000\000\000\000\018B\r$G,\005.\128:\000\000\000\000\000\000\000\000\000\000YL\000\000\000\000\018\234\000\000\138<\000\000\016p\018\236\000\000\018\238\000\000G\224G\224[\190[\190\000\000\000\000p\234[\190\000\000\000\000\000\000p\234[\190\018Z\000\000\018f\000\000"), (16, "\t)\t)\000\006\001\002\001\190\t)\002\186\002\190\t)\002\234\002\130\t)\003\145\t)\018\158\002\246\t)\023\158\t)\t)\t)\025F\t)\t)\t)\001\210\004A\004A\004F\002\250\t)\003>\003B\t\242\t)\001\206\t)\023\162\003F\000\238\002\254\025J\t)\t)\003\214\003\218\t)\003\222\0032\003\234\003\242\006\214\007\018\t)\t)\002\178\001\206\006\242\003:\t)\t)\t)\b\026\b\030\b*\b>\001*\005v\t)\t)\t)\t)\t)\t)\t)\t)\t)\b\178\000\238\t)\015\154\t)\t)\003\145\b\190\b\214\t*\005\130\005\134\t)\t)\t)\r\190\t)\t)\t)\t)\002j\002\154\r\238\t)\006\178\t)\t)\0035\t)\t)\t)\t)\t)\t)\005\138\b2\t)\t)\t)\bJ\004r\t>\0035\t)\t)\t)\t)\012\245\012\245\023\166\n\206\004\154\012\245\n\218\012\245\012\245\000\238\012\245\012\245\012\245\012\245\004A\012\245\012\245\001f\012\245\012\245\012\245\003i\012\245\012\245\012\245\012\245\004A\012\245\015\250\012\245\012\245\012\245\012\245\012\245\012\245\012\245\012\245\007\190\007\030\007R\012\245\004\226\012\245\012\245\012\245\012\245\012\245\004A\012\245\012\245\004A\012\245\003\238\012\245\012\245\012\245\000\238\007\194\012\245\012\245\012\245\012\245\012\245\012\245\012\245\000\238\012\245\012\245\012\245\012\245\012\245\012\245\012\245\012\245\012\245\012\245\012\245\004A\012\245\012\245\007\138\012\245\012\245\001j\004A\007.\004A\012\245\012\245\012\245\012\245\012\245\004A\012\245\012\245\012\245\012\245\012\245\000\238\012\245\012\245\0076\012\245\012\245\000\238\012\245\012\245\012\245\012\245\012\245\012\245\012\245\012\245\012\245\012\245\012\245\012\245\012\245\b\"\004A\012\245\012\245\012\245\012\245\001\181\001\181\001\181\001f\015Z\001\181\003i\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\015\006\001\181\007\222\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\003\134\003\138\001\181\000\238\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\006\246\001\181\001\181\001\181\b\022\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\002f\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\027\187\001\181\001\181\018\142\007\250\007\030\007n\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\001\181\014\202\bb\001\181\005\186\001\181\001\181\007\254\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\n]\n]\002\225\007\138\r\025\n]\003\149\n]\n]\000\238\n]\n]\n]\n]\001\186\n]\n]\r\025\n]\n]\n]\000\238\n]\n]\n]\n]\002j\n]\000\n\n]\n]\n]\n]\n]\n]\n]\n]\024\222\007\030\b\174\n]\004A\n]\n]\n]\n]\n]\000\238\n]\n]\012\"\n]\003\018\n]\n]\n]\002\225\024\226\n]\n]\n]\n]\n]\n]\n]\004A\n]\n]\n]\n]\n]\n]\n]\n]\n]\n]\n]\003\149\n]\n]\007\138\n]\n]\004A\004A\007\030\004A\n]\n]\n]\n]\n]\004\001\n]\n]\n]\n]\tV\000\238\t\134\n]\005\241\n]\n]\007\202\n]\n]\n]\n]\n]\n]\n]\n]\n]\n]\n]\n]\n]\003\146\n]\n]\n]\n]\n]\003\173\003\173\001r\007\138\006\242\003\173\t\022\003\173\003\173\000\238\003\173\003\173\003\173\003\173\000\238\003\173\003\173\006\137\003\173\003\173\003\173\000\238\003\173\003\173\003\173\003\173\001\130\003\173\006Z\003\173\003\173\003\173\003\173\003\173\003\173\003\173\003\173\006\137\007\030\004\001\003\173\004B\003\173\003\173\003\173\003\173\003\173\015J\003\173\003\173\006^\003\173\t\005\003\173\003\173\003\173\005\241\b\146\003\173\003\173\003\173\003\173\003\173\003\173\003\173\015R\003\173\003\173\003\173\003\173\003\173\003\173\003\173\003\173\003\173\003\173\003\173\b\213\tN\t~\007\138\003\173\003\173\003\150\003^\b\230\027\171\003\173\003\173\003\173\003\173\003\173\004R\003\173\003\173\003\173\003\173\tV\000\238\t\134\003\173\b\"\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\018\250\b\234\t\006\003\161\005R\003\161\003\161\t\005\003\161\003\161\003\161\003\161\001\146\003\161\003\161\006\154\003\161\003\161\003\161\002N\003\161\003\161\003\161\003\161\019\002\003\161\001\198\003\161\003\161\003\161\003\161\003\161\003\161\003\161\003\161\006\237\b\213\004A\003\161\002R\003\161\003\161\003\161\003\161\003\161\b\029\003\161\003\161\001\218\003\161\007\"\003\161\003\161\003\161\006\237\004A\003\161\003\161\003\161\003\161\003\161\003\161\003\161\004A\003\161\003\161\003\161\003\161\003\161\003\161\003\161\003\161\003\161\003\161\003\161\000\238\tN\t~\001\234\003\161\003\161\004A\004A\007\030\007^\003\161\003\161\003\161\003\161\003\161\001\222\003\161\003\161\003\161\003\161\tV\004A\t\134\003\161\004r\003\161\003\161\016v\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\006\237\003\161\003\161\003\161\003\161\003\161\t\217\t\217\018\206\007\138\b&\t\217\006\158\t\217\t\217\001\238\t\217\t\217\t\217\t\217\000\238\t\217\t\217\006\149\t\217\t\217\t\217\000\238\t\217\t\217\t\217\t\217\004A\t\217\007\222\t\217\t\217\t\217\t\217\t\217\t\217\t\217\t\217\006\149\007\030\018\214\t\217\000\238\t\217\t\217\t\217\t\217\t\217\005\217\t\217\t\217\001\206\t\217\012\130\t\217\t\217\t\217\0152\016\146\t\217\t\217\t\217\t\217\t\217\t\217\t\217\000\238\t\217\t\217\t\217\t\217\t\217\t\217\t\217\t\217\t\217\t\217\t\217\026N\t\217\t\217\007\138\t\217\t\217\r\002\003j\003\018\004A\t\217\t\217\t\217\t\217\t\217\002v\t\217\t\217\t\217\t\217\t\217\000\238\t\217\t\217\004B\t\217\t\217\003n\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\000\238\004A\t\217\t\217\t\217\t\217\t\209\t\209\004\242\001f\003i\t\209\007\005\t\209\t\209\025.\t\209\t\209\t\209\t\209\003\158\t\209\t\209\003\162\t\209\t\209\t\209\003\137\t\209\t\209\t\209\t\209\b\241\t\209\004^\t\209\t\209\t\209\t\209\t\209\t\209\t\209\t\209\007\222\026R\015\162\t\209\001\206\t\209\t\209\t\209\t\209\t\209\005\209\t\209\t\209\000\238\t\209\012\154\t\209\t\209\t\209\022\130\011Z\t\209\t\209\t\209\t\209\t\209\t\209\t\209\000\238\t\209\t\209\t\209\t\209\t\209\t\209\t\209\t\209\t\209\t\209\t\209\006\210\t\209\t\209\022\138\t\209\t\209\002\214\004V\007\030\b\241\t\209\t\209\t\209\t\209\t\209\002\142\t\209\t\209\t\209\t\209\t\209\0252\t\209\t\209\b\021\t\209\t\209\025>\t\209\t\209\t\209\t\209\t\209\t\209\t\209\t\209\t\209\t\209\t\209\t\209\t\209\012\185\b\241\t\209\t\209\t\209\t\209\t\225\t\225\021\246\007\138\007\210\t\225\011b\t\225\t\225\006\242\t\225\t\225\t\225\t\225\012\185\t\225\t\225\012\189\t\225\t\225\t\225\000\238\t\225\t\225\t\225\t\225\005F\t\225\004\174\t\225\t\225\t\225\t\225\t\225\t\225\t\225\t\225\012\189\007\030\021\254\t\225\002\190\t\225\t\225\t\225\t\225\t\225\005\209\t\225\t\225\003\022\t\225\012\174\t\225\t\225\t\225\015\138\026\226\t\225\t\225\t\225\t\225\t\225\t\225\t\225\0112\t\225\t\225\t\225\t\225\t\225\t\225\t\225\t\225\t\225\t\225\t\225\017\242\t\225\t\225\007\138\t\225\t\225\003\n\001\206\0116\005J\t\225\t\225\t\225\t\225\t\225\003\026\t\225\t\225\t\225\t\225\t\225\000\238\t\225\t\225\004B\t\225\t\225\002&\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\t\190\004\214\t\225\t\225\t\225\t\225\t\193\t\193\000\238\0022\007\222\t\193\t\146\t\193\t\193\005\002\t\193\t\193\t\193\t\193\004V\t\193\t\193\000\238\t\193\t\193\t\193\012.\t\193\t\193\t\193\t\193\t\150\t\193\007\154\t\193\t\193\t\193\t\193\t\193\t\193\t\193\t\193\006F\t\001\n\162\t\193\0122\t\193\t\193\t\193\t\193\t\193\011N\t\193\t\193\007\158\t\193\012\206\t\193\t\193\t\193\004b\014\254\t\193\t\193\t\193\t\193\t\193\t\193\t\193\b\134\t\193\t\193\t\193\t\193\t\193\t\193\t\193\t\193\t\193\t\193\t\193\006\242\t\193\t\193\014\226\t\193\t\193\006\170\006\194\001\002\001\190\t\193\t\193\t\193\t\193\t\193\001\222\t\193\t\193\t\193\t\193\t\193\006U\t\193\t\193\000\238\t\193\t\193\005.\t\193\t\193\t\193\t\193\t\193\t\193\t\193\t\193\t\193\t\193\t\193\t\193\t\193\006U\t\001\t\193\t\193\t\193\t\193\t\201\t\201\003\134\003\138\006\242\t\201\012\006\t\201\t\201\027\139\t\201\t\201\t\201\t\201\018B\t\201\t\201\016\218\t\201\t\201\t\201\012z\t\201\t\201\t\201\t\201\001v\t\201\012\n\t\201\t\201\t\201\t\201\t\201\t\201\t\201\t\201\011\202\006\202\016F\t\201\012~\t\201\t\201\t\201\t\201\t\201\0186\t\201\t\201\014\230\t\201\012\226\t\201\t\201\t\201\018\218\t\146\t\201\t\201\t\201\t\201\t\201\t\201\t\201\018B\t\201\t\201\t\201\t\201\t\201\t\201\t\201\t\201\t\201\t\201\t\201\012\202\t\201\t\201\b\193\t\201\t\201\006\026\012.\001\002\001\190\t\201\t\201\t\201\t\201\t\201\003\022\t\201\t\201\t\201\t\201\t\201\006]\t\201\t\201\005\221\t\201\t\201\r\014\t\201\t\201\t\201\t\201\t\201\t\201\t\201\t\201\t\201\t\201\t\201\t\201\t\201\006]\000\238\t\201\t\201\t\201\t\201\n\001\n\001\003\134\017\234\011Z\n\001\012J\n\001\n\001\017\146\n\001\n\001\n\001\n\001\004\014\n\001\n\001\017\254\n\001\n\001\n\001\012z\n\001\n\001\n\001\n\001\001\134\n\001\012N\n\001\n\001\n\001\n\001\n\001\n\001\n\001\n\001\004\018\019\006\b\193\n\001\rf\n\001\n\001\n\001\n\001\n\001\b\189\n\001\n\001\000\238\n\001\012\246\n\001\n\001\n\001\r\134\0142\n\001\n\001\n\001\n\001\n\001\n\001\n\001\004A\n\001\n\001\n\001\n\001\n\001\n\001\n\001\n\001\n\001\n\001\n\001\015\182\n\001\n\001\011j\n\001\n\001\b!\014N\007\158\000\238\n\001\n\001\n\001\n\001\n\001\002\142\n\001\n\001\n\001\n\001\n\001\006e\n\001\n\001\014:\n\001\n\001\014R\n\001\n\001\n\001\n\001\n\001\n\001\n\001\n\001\n\001\n\001\n\001\n\001\n\001\006e\000\238\n\001\n\001\n\001\n\001\t\241\t\241\027F\001\222\006\174\t\241\b\189\t\241\t\241\000\238\t\241\t\241\t\241\t\241\006\190\t\241\t\241\r\138\t\241\t\241\t\241\006\254\t\241\t\241\t\241\t\241\001\150\t\241\002\253\t\241\t\241\t\241\t\241\t\241\t\241\t\241\t\241\004\210\t\002\011\142\t\241\018\150\t\241\t\241\t\241\t\241\t\241\014\134\t\241\t\241\019>\t\241\r\018\t\241\t\241\t\241\011\018\005&\t\241\t\241\t\241\t\241\t\241\t\241\t\241\021\214\t\241\t\241\t\241\t\241\t\241\t\241\t\241\t\241\t\241\t\241\t\241\b\217\t\241\t\241\n\206\t\241\t\241\n\218\015\014\002\190\022\030\t\241\t\241\t\241\t\241\t\241\018\190\t\241\t\241\t\241\t\241\t\241\004A\t\241\t\241\n\206\t\241\t\241\n\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\000\238\012\146\t\241\t\241\t\241\t\241\t\233\t\233\001\002\001\190\014\138\t\233\004\214\t\233\t\233\000\238\t\233\t\233\t\233\t\233\001\206\t\233\t\233\012\150\t\233\t\233\t\233\t\"\t\233\t\233\t\233\t\233\b\237\t\233\000\238\t\233\t\233\t\233\t\233\t\233\t\233\t\233\t\233\0056\b\217\017^\t\233\015\018\t\233\t\233\t\233\t\233\t\233\tj\t\233\t\233\019V\t\233\r&\t\233\t\233\t\233\002\154\005>\t\233\t\233\t\233\t\233\t\233\t\233\t\233\023\174\t\233\t\233\t\233\t\233\t\233\t\233\t\233\t\233\t\233\t\233\t\233\003\022\t\233\t\233\015\198\t\233\t\233\023\022\003}\023\178\0266\t\233\t\233\t\233\t\233\t\233\011Z\t\233\t\233\t\233\t\233\t\233\000\238\t\233\t\233\tr\t\233\t\233\012Z\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\001\002\001\190\t\233\t\233\t\233\t\233\t\249\t\249\022\002\012^\019\158\t\249\004\214\t\249\t\249\019^\t\249\t\249\t\249\t\249\012Z\t\249\t\249\012\006\t\249\t\249\t\249\t\130\t\249\t\249\t\249\t\249\004\214\t\249\012J\t\249\t\249\t\249\t\249\t\249\t\249\t\249\t\249\r6\022\142\012\222\t\249\019\026\t\249\t\249\t\249\t\249\t\249\005\213\t\249\t\249\r\"\t\249\r:\t\249\t\249\t\249\023J\014\190\t\249\t\249\t\249\t\249\t\249\t\249\t\249\018\254\t\249\t\249\t\249\t\249\t\249\t\249\t\249\t\249\t\249\t\249\t\249\018\210\t\249\t\249\014\194\t\249\t\249\b\025\021\250\005\225\b%\t\249\t\249\t\249\t\249\t\249\r!\t\249\t\249\t\249\t\249\t\249\n\186\t\249\t\249\n\162\t\249\t\249\012\146\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\n\242\014v\t\249\t\249\t\249\t\249\nI\nI\rr\014\238\019\178\nI\014b\nI\nI\000\238\nI\nI\nI\nI\019J\nI\nI\014z\nI\nI\nI\025\250\nI\nI\nI\nI\014\242\nI\015\026\nI\nI\nI\nI\nI\nI\nI\nI\007n\007\241\022^\nI\004B\nI\nI\nI\nI\nI\023.\nI\nI\015\030\nI\rF\nI\nI\nI\011\022\019\130\nI\nI\nI\nI\nI\nI\nI\022>\nI\nI\nI\nI\nI\nI\nI\nI\nI\nI\nI\000\238\nI\nI\007n\nI\nI\022\134\004\213\024\246\b\021\nI\nI\nI\nI\nI\027B\nI\nI\nI\nI\nI\019\182\nI\nI\011F\nI\nI\r-\nI\nI\nI\nI\nI\nI\nI\nI\nI\nI\nI\nI\nI\023\"\014f\nI\nI\nI\nI\003\157\003\157\000\238\023\130\023\238\003\157\019^\003\157\003\157\000\238\003\157\003\157\003\157\003\157\025\018\003\157\003\157\007n\003\157\003\157\003\157\011v\003\157\003\157\003\157\003\157\007n\003\157\012\170\003\157\003\157\003\157\003\157\003\157\003\157\003\157\003\157\r~\001\206\022\190\003\157\0262\003\157\003\157\003\157\003\157\003\157\024\206\003\157\003\157\001\206\003\157\r\150\003\157\003\157\003\157\025\002\r\158\003\157\003\157\003\157\003\157\003\157\003\157\003\157\r\178\003\157\003\157\003\157\003\157\003\157\003\157\003\157\003\157\003\157\003\157\003\157\026\214\tN\t~\025\198\003\157\003\157\r\226\014\014\015f\002\006\003\157\003\157\003\157\003\157\003\157\026\170\003\157\003\157\003\157\003\157\tV\023\242\t\134\003\157\015\142\003\157\003\157\003\254\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\015\170\003\157\003\157\003\157\003\157\003\157\001\237\001\237\026B\025\022\001\222\001\237\015\174\002\190\001\237\015\214\002\130\001\237\tf\001\237\004Y\002\246\001\237\024\210\001\237\001\237\001\237\015\234\001\237\001\237\001\237\001\210\025\006\tn\016\002\002\250\001\237\001\237\001\237\001\237\001\237\tv\001\237\016\022\016B\016V\002\254\017V\001\237\001\237\001\237\001\237\001\237\026\218\0032\001\190\017b\001\237\006\022\001\237\001\237\002\178\002\226\018\006\003:\001\237\001\237\001\237\b\026\b\030\b*\018\030\012f\005v\001\237\001\237\001\237\001\237\001\237\001\237\001\237\001\237\001\237\018\166\tN\t~\018\170\001\237\001\237\018\226\018\230\019\014\019\018\005\130\005\134\001\237\001\237\001\237\019:\001\237\001\237\001\237\001\237\012n\019\230\012\190\001\237\019\234\001\237\001\237\020\014\001\237\001\237\001\237\001\237\001\237\001\237\005\138\b2\001\237\001\237\001\237\bJ\004r\020\018\020\"\001\237\001\237\001\237\001\237\n1\n1\0202\020>\020r\n1\020v\002\190\n1\020\194\002\130\n1\n1\n1\020\234\002\246\n1\020\238\n1\n1\n1\020\254\n1\n1\n1\001\210\021N\n1\021n\002\250\n1\n1\n1\n1\n1\n1\n1\021\174\021\210\021\226\002\254\022\n\n1\n1\n1\n1\n1\022\014\0032\001\190\022\026\n1\022*\n1\n1\002\178\022F\022V\003:\n1\n1\n1\b\026\b\030\b*\022j\n1\005v\n1\n1\n1\n1\n1\n1\n1\n1\n1\022\150\n1\n1\022\154\n1\n1\022\166\022\182\022\202\023\190\005\130\005\134\n1\n1\n1\024\022\n1\n1\n1\n1\n1\024>\n1\n1\024\166\n1\n1\024\182\n1\n1\n1\n1\n1\n1\005\138\b2\n1\n1\n1\bJ\004r\025R\025Z\n1\n1\n1\n1\n-\n-\025j\025v\025\218\n-\025\238\002\190\n-\026\030\002\130\n-\n-\n-\026&\002\246\n-\026b\n-\n-\n-\026\138\n-\n-\n-\001\210\026\194\n-\026\242\002\250\n-\n-\n-\n-\n-\n-\n-\026\254\027\006\027\015\002\254\027\031\n-\n-\n-\n-\n-\0272\0032\001\190\027N\n-\027k\n-\n-\002\178\027{\027\151\003:\n-\n-\n-\b\026\b\030\b*\027\203\n-\005v\n-\n-\n-\n-\n-\n-\n-\n-\n-\027\231\n-\n-\027\242\n-\n-\028'\028;\028C\028\127\005\130\005\134\n-\n-\n-\028\135\n-\n-\n-\n-\n-\000\000\n-\n-\000\000\n-\n-\000\000\n-\n-\n-\n-\n-\n-\005\138\b2\n-\n-\n-\bJ\004r\000\000\000\000\n-\n-\n-\n-\0029\0029\000\000\000\000\000\000\0029\000\000\002\190\0029\000\000\002\130\0029\tf\0029\000\000\002\246\0029\000\000\0029\0029\0029\000\000\0029\0029\0029\001\210\002\225\tn\000\000\002\250\0029\0029\0029\0029\0029\tv\0029\000\000\000\000\000\000\002\254\004A\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\b\026\b\030\b*\000\000\012f\005v\0029\0029\0029\0029\0029\0029\0029\0029\0029\000\000\004\173\0029\002\225\0029\0029\004A\006\130\002\190\004A\005\130\005\134\0029\0029\0029\000\000\0029\0029\0029\0029\000\000\000\238\004A\0029\004\173\0029\0029\004A\0029\0029\0029\0029\0029\0029\005\138\b2\0029\0029\0029\bJ\004r\000\000\004A\0029\0029\0029\0029\004A\007\030\004A\003\n\004A\004A\004A\004A\004A\004A\004A\017\186\004A\000\238\004A\004A\000\000\004A\004A\004A\016\134\004A\004A\004A\004A\004A\004A\004A\004A\004A\000\000\004A\004A\000\000\000\000\004A\004A\000\238\004A\004A\004A\004A\004A\007\138\004A\004A\004A\004A\004A\004A\004A\004A\000\238\004A\004A\004A\004A\004A\004A\004A\004A\000\238\004A\004A\004A\004A\004A\004A\004A\004A\b\189\004N\004A\000\000\000\000\004A\004A\004A\000\238\004A\000\n\000\000\004A\004A\004A\004A\004A\004A\004A\004A\004A\000\000\021\198\004A\004A\002\225\002\225\007f\004A\004B\006\233\000\000\004A\004A\000\000\007n\016\138\0226\002\225\000\238\004A\004A\004A\007r\000\000\004A\004A\004A\004A\006\233\000\161\004A\000\161\006\233\000\161\000\161\000\161\000\161\000\161\000\161\000\161\000\000\000\161\022\234\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\189\000\000\000\161\000\161\005\141\000\161\000\161\000\161\000\238\000\161\b\241\000\161\000\161\000\161\000\161\000\161\000\161\000\161\000\161\000\000\b\138\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\233\000\161\015\130\t\029\000\161\002\130\000\161\001\210\000\161\005\141\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\017\238\t\029\005\141\000\222\000\000\007\002\001\222\000\161\000\000\002\226\000\000\014\150\002\178\000\161\000\161\000\161\000\161\000\000\015\134\000\161\000\161\000\161\000\161\002)\002)\004Y\000\000\003\n\002)\000\000\002\190\002)\015\146\002\130\002)\001b\002)\000\000\002\246\002)\007\006\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\169\002)\002)\002)\002)\002)\004Y\0032\b.\000\000\002)\000\000\002)\002)\002\178\000\000\006\"\003:\002)\002)\002)\b\026\b\030\b*\tN\t~\005v\002)\002)\002)\002)\002)\002)\002)\002)\002)\006&\tN\t~\b\169\002)\002)\000\000\tV\000\000\t\134\005\130\005\134\002)\002)\002)\000\000\002)\002)\002)\002)\tV\000\000\t\134\002)\b\169\002)\002)\000\000\002)\002)\002)\002)\002)\002)\005\138\b2\002)\002)\002)\bJ\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\169\002E\000\000\002E\004\254\000\000\002E\b\169\002E\002E\002E\000\n\002E\002E\002E\000\000\027\215\000\000\000\000\000\n\002E\002E\002E\002E\002E\000\000\002E\002\225\006*\004\169\000\000\005\234\002E\002E\002E\002E\002E\000\000\0066\002\225\000\000\002E\006B\002E\002E\000\000\000\000\002\225\006~\002E\002E\002E\004\169\000\000\006\213\t\025\000\000\000\000\002E\002E\002E\002E\002E\002E\002E\002E\002E\000\000\tN\t~\000\000\002E\002E\006\134\014\174\000\000\002\190\006\213\t\025\002E\002E\002E\000\000\002E\002E\002E\002E\tV\002\190\t\134\002E\002\130\002E\002E\001\210\002E\002E\002E\002E\002E\002E\b\165\000\000\002E\002E\002E\000\000\021\182\000\000\000\000\002E\002E\002E\002E\002A\002A\000\000\022\242\003\n\002A\022\246\003\022\002A\000\000\002\178\002A\000\000\002A\000\000\017\134\002A\023&\002A\002A\002A\tZ\002A\002A\002A\012&\b\165\000\000\000\000\015\146\002A\002A\002A\002A\002A\rj\002A\rv\000\000\012B\0236\012R\002A\002A\002A\002A\002A\b\165\bf\001\190\001*\002A\000\000\002A\002A\005\134\002\225\002\225\014V\002A\002A\002A\014j\014~\014\142\000\000\000\000\000\000\002A\002A\002A\002A\002A\002A\002A\002A\002A\000\000\tN\t~\b\165\002A\002A\000\n\004\254\000\000\001\206\b\165\000\000\002A\002A\002A\000\000\002A\002A\002A\002A\tV\000\000\t\134\002A\000\000\002A\002A\001\210\002A\002A\002A\002A\002A\002A\002\225\000\000\002A\002A\002A\000\000\018\174\000\000\000\000\002A\002A\002A\002A\002-\002-\000\000\000\000\002\154\002-\0196\003\022\002-\000\000\002\178\002-\000\000\002-\000\000\000\000\002-\019N\002-\002-\002-\012r\002-\002-\002-\002\225\002\225\016\178\000\000\000\000\002-\002-\002-\002-\002-\012\138\002-\012\162\000\000\000\000\002\225\r\006\002-\002-\002-\002-\002-\000\000\bf\014\206\000\000\002-\000\n\002-\002-\r\026\000\000\r.\014V\002-\002-\002-\014j\014~\014\142\000\000\000\000\000\000\002-\002-\002-\002-\002-\002-\002-\002-\002-\000\000\tN\t~\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-\tV\000\000\t\134\002-\000\000\002-\002-\000\000\002-\002-\002-\002-\002-\002-\000\000\000\000\002-\002-\002-\000\000\t:\000\000\000\000\002-\002-\002-\002-\002=\002=\000\000\000\000\000\000\002=\012}\006*\002=\000\000\005\234\002=\000\000\002=\000\000\000\000\002=\0066\002=\002=\002=\006B\002=\002=\002=\012}\012}\000\000\000\000\012}\002=\002=\002=\002=\002=\000\000\002=\b\021\000\000\000\000\b\021\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>\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\021\002=\000\000\002=\002=\000\000\000\000\000\000\000\000\000\000\000\000\002=\002=\002=\b\021\002=\002=\002=\002=\012}\000\000\004\253\002=\000\000\002=\002=\002\225\t\158\002=\002=\002=\002=\002=\004\253\n\230\002=\002=\002=\000\000\000\000\b\021\000\000\002=\002=\002=\002=\t%\t%\000\000\000\000\000\000\t%\000\000\000\000\t%\000\n\000\000\t%\000\000\t%\000\000\000\000\t\202\004\253\t%\t\238\t%\b\021\t%\t%\t%\002\225\000\000\000\000\000\000\017\"\n\002\n\026\n\"\n\n\n*\000\000\t%\002\225\002\225\000\000\000\000\000\000\t%\t%\n2\n:\t%\004\253\007\245\000\000\004\253\t%\000\000\nB\t%\000\000\000\000\000\000\000\000\t%\t%\000\238\000\000\000\000\000\000\000\000\000\000\002\246\t%\t%\t\210\n\018\nJ\nR\nb\t%\t%\002\166\012\193\t%\000\000\t%\nj\000\000\003Z\000\000\000\000\000\238\000\000\t%\t%\nr\000\000\t%\t%\t%\t%\003f\012\193\000\000\t%\000\000\t%\t%\002B\n\146\t%\n\154\nZ\t%\t%\000\000\000\000\t%\nz\t%\000\000\002F\000\000\005v\t%\t%\n\130\n\138\002q\002q\000\000\000\000\000\000\002q\012\133\006*\002q\000\000\005\234\002q\000\000\002q\000\000\005\130\002q\0066\002q\002q\002q\006B\002q\002q\002q\012\133\012\133\000\000\000\000\012\133\002q\002q\002q\002q\002q\000\000\002q\015\130\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\t\210\002q\002q\002q\002q\002q\002q\000\000\015\134\002q\000\000\002q\002q\000\000\000\000\000\000\000\000\000\000\000\000\002q\002q\002q\015\146\002q\002q\002q\002q\012\133\000\000\001\206\002q\000\000\002q\002q\000\000\002q\002q\002q\002q\002q\002q\026\014\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~\002Y\002Y\002Y\001\210\000\000\000\000\000\000\000\000\002Y\002Y\002Y\002Y\002Y\000\000\002Y\015\130\000\000\000\000\002\130\000\000\002Y\002Y\002Y\002Y\002Y\004\154\003\202\000\000\004\217\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\t\210\002Y\002Y\002Y\002Y\002Y\002Y\000\000\015\134\002Y\000\000\002Y\002Y\006\234\000\000\000\000\000\000\000\000\000\000\002Y\002Y\002Y\015\146\002Y\002Y\002Y\002Y\000\000\000\000\000\000\002Y\000\000\002Y\002Y\000\000\002Y\002Y\002Y\002Y\002Y\002Y\012\129\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\129\012\129\002e\000\000\012\129\002e\000\000\002e\000\000\000\000\t\202\000\000\002e\002e\002e\021\026\002e\002e\002e\000\000\000\000\000\000\000\000\000\000\002e\002e\002e\n\n\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\t\210\n\018\002e\002e\002e\002e\002e\000\000\012\129\002e\000\000\002e\002e\000\000\000\000\000\000\000\000\000\238\b\t\002e\002e\002e\b\t\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\154\000\000\000\000\002e\002e\002e\002e\002u\002u\000\000\000\000\000\000\002u\b\t\011\162\002u\000\000\011\174\002u\000\000\002u\000\000\000\000\002u\011\186\002u\002u\002u\011\198\002u\002u\002u\000\000\000\000\b\t\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\t\210\002u\002u\002u\002u\002u\002u\000\000\007\234\002u\000\000\002u\002u\000\000\000\000\000\000\000\000\000\238\b\005\002u\002u\002u\b\005\002u\002u\002u\002u\000\000\007\238\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\165\000\000\000\000\002u\002u\002u\002u\002U\002U\007\222\000\000\000\000\002U\b\005\007\165\002U\000\000\005\234\002U\000\000\002U\000\000\000\238\002U\007\165\002U\002U\002U\007\165\002U\002U\002U\000\000\000\000\b\005\000\000\000\000\002U\002U\002U\002U\002U\000\000\002U\000\000\000\000\006\253\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\006\253\002U\002U\002U\006\253\007\242\004\254\000\000\000\000\000\000\002U\002U\t\210\002U\002U\002U\002U\002U\002U\000\000\000\000\002U\000\000\002U\002U\000\000\000\000\000\000\000\000\007\189\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\189\000\000\000\000\002U\002U\002U\002U\002a\002a\000\000\000\000\000\000\002a\005f\007\189\002a\000\000\005\234\002a\000\000\002a\000\000\000\000\t\202\007\189\002a\002a\002a\007\189\002a\002a\002a\000\000\000\000\000\000\000\000\000\000\002a\002a\002a\n\n\002a\000\000\002a\000\000\000\000\006\237\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\237\002a\002a\002a\006\237\000\000\000\000\000\000\000\000\000\000\002a\002a\t\210\n\018\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\217\000\000\000\000\002a\002a\002a\002a\002]\002]\000\000\000\000\000\000\002]\b&\006*\002]\000\000\005\234\002]\000\000\002]\000\000\000\000\t\202\007\217\002]\002]\002]\007\217\002]\002]\002]\000\000\000\000\000\000\000\000\000\000\002]\002]\002]\n\n\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]\t\210\n\018\002]\002]\002]\002]\002]\000\000\000\000\002]\000\000\002]\002]\000\000\000\000\000\000\000\000\007\209\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\209\000\000\000\000\002]\002]\002]\002]\002\133\002\133\000\000\000\000\000\000\002\133\000\000\011\222\002\133\000\000\007\209\002\133\000\000\002\133\000\000\000\000\t\202\007\209\002\133\002\133\002\133\007\209\002\133\002\133\002\133\000\000\000\000\000\000\000\000\000\000\n\002\n\026\n\"\n\n\n*\000\000\002\133\000\000\000\000\000\000\000\000\000\000\002\133\002\133\n2\n:\002\133\000\000\000\000\000\000\000\000\002\133\000\000\nB\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\t\210\n\018\nJ\nR\nb\002\133\002\133\000\000\000\000\002\133\000\000\002\133\nj\000\000\000\000\000\000\000\000\000\238\000\000\002\133\002\133\nr\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\nZ\002\133\002\133\000\000\000\000\002\133\nz\002\133\000\000\007\161\000\000\000\000\002\133\002\133\n\130\n\138\002m\002m\000\000\000\000\000\000\002m\000\000\007\161\002m\000\000\005\234\002m\000\000\002m\000\000\000\000\t\202\007\161\002m\002m\002m\007\161\002m\002m\002m\000\000\000\000\000\000\000\000\000\000\002m\002m\002m\n\n\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\t\210\n\018\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\014&\000\000\000\000\002m\002m\002m\002m\002i\002i\000\000\000\000\000\000\002i\000\000\011\162\002i\000\000\011\174\002i\000\000\002i\000\000\000\000\t\202\011\186\002i\002i\002i\011\198\002i\002i\002i\000\000\000\000\000\000\000\000\000\000\002i\002i\002i\n\n\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\t\210\n\018\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\t\202\000\000\002}\002}\002}\000\000\002}\002}\002}\000\000\000\000\000\000\000\000\000\000\n\002\n\026\n\"\n\n\002}\000\000\002}\000\000\000\000\000\000\000\000\000\000\002}\002}\n2\n:\002}\000\000\027*\001\222\000\000\002}\000\000\002}\002}\000\000\000\000\000\000\000\000\002}\002}\000\238\015\146\000\000\000\000\000\000\000\000\000\000\002}\002}\t\210\n\018\nJ\nR\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}\nZ\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\t\202\000\000\002Q\002Q\002Q\000\000\002Q\002Q\002Q\000\000\000\000\000\000\000\000\000\000\002Q\002Q\002Q\n\n\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\006N\000\000\004\002\000\000\000\000\000\000\002Q\002Q\t\210\n\018\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\t\202\000\000\002M\002M\002M\000\000\002M\002M\002M\000\000\000\000\000\000\000\000\000\000\n\002\n\026\n\"\n\n\002M\000\000\002M\000\000\000\000\000\000\000\000\000\000\002M\002M\n2\n:\002M\000\000\t\138\003\n\000\000\002M\000\000\002M\002M\000\000\000\000\000\000\000\000\002M\002M\000\238\011\254\000\000\012\014\000\000\000\000\000\000\002M\002M\t\210\n\018\nJ\nR\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\nZ\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\t\202\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\n\002\n\026\n\"\n\n\002\169\000\000\002\169\000\000\000\000\000\000\000\000\000\000\002\169\002\169\n2\n:\002\169\000\000\012\194\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\012\214\000\000\012\234\000\000\000\000\000\000\002\169\002\169\t\210\n\018\nJ\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\nZ\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\t\202\000\000\002I\002I\002I\000\000\002I\002I\002I\000\000\000\000\000\000\000\000\000\000\n\002\n\026\n\"\n\n\002I\000\000\002I\000\000\000\000\000\000\000\000\000\000\002I\002I\n2\n:\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\t\210\n\018\nJ\nR\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\nZ\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\t\202\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\n\002\n\026\n\"\n\n\002\129\000\000\002\129\000\000\000\000\000\000\000\000\000\000\002\129\002\129\n2\n:\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\t\210\n\018\nJ\nR\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\nZ\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\t\202\000\000\002y\002y\002y\000\000\002y\002y\002y\000\000\000\000\000\000\000\000\000\000\n\002\n\026\n\"\n\n\002y\000\000\002y\000\000\000\000\000\000\000\000\000\000\002y\002y\n2\n:\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\t\210\n\018\nJ\nR\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\nZ\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\t\202\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\n\002\n\026\n\"\n\n\n*\000\000\002\137\000\000\000\000\000\000\000\000\000\000\002\137\002\137\n2\n:\002\137\000\000\000\000\000\000\000\000\002\137\000\000\nB\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\t\210\n\018\nJ\nR\nb\002\137\002\137\000\000\000\000\002\137\000\000\002\137\nj\000\000\000\000\000\000\000\000\000\000\000\000\002\137\002\137\nr\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\nZ\002\137\002\137\000\000\000\000\002\137\nz\002\137\000\000\000\000\000\000\000\000\002\137\002\137\n\130\n\138\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\t\202\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\n\002\n\026\n\"\n\n\002\141\000\000\002\141\000\000\000\000\000\000\000\000\000\000\002\141\002\141\n2\n:\002\141\000\000\000\000\000\000\000\000\002\141\000\000\nB\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\t\210\n\018\nJ\nR\nb\002\141\002\141\000\000\000\000\002\141\000\000\002\141\nj\000\000\000\000\000\000\000\000\000\000\000\000\002\141\002\141\nr\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\nZ\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\130\n\138\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\t\202\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\n\002\n\026\n\"\n\n\002\145\000\000\002\145\000\000\000\000\000\000\000\000\000\000\002\145\002\145\n2\n:\002\145\000\000\000\000\000\000\000\000\002\145\000\000\nB\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\t\210\n\018\nJ\nR\nb\002\145\002\145\000\000\000\000\002\145\000\000\002\145\nj\000\000\000\000\000\000\000\000\000\000\000\000\002\145\002\145\nr\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\nZ\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\130\n\138\b\225\b\225\000\000\000\000\000\000\b\225\000\000\000\000\b\225\000\000\000\000\b\225\000\000\b\225\000\000\000\000\t\202\000\000\b\225\b\225\b\225\000\000\b\225\b\225\b\225\000\000\000\000\000\000\000\000\000\000\n\002\n\026\n\"\n\n\n*\000\000\b\225\000\000\000\000\000\000\000\000\000\000\b\225\b\225\n2\n:\b\225\000\000\000\000\000\000\000\000\b\225\000\000\nB\b\225\000\000\000\000\000\000\000\000\b\225\b\225\000\238\000\000\000\000\000\000\000\000\000\000\000\000\b\225\b\225\t\210\n\018\nJ\nR\nb\b\225\b\225\000\000\000\000\b\225\000\000\b\225\nj\000\000\000\000\000\000\000\000\000\000\000\000\b\225\b\225\nr\000\000\b\225\b\225\b\225\b\225\000\000\000\000\000\000\b\225\000\000\b\225\b\225\000\000\b\225\b\225\b\225\nZ\b\225\b\225\000\000\000\000\b\225\nz\b\225\000\000\000\000\000\000\000\000\b\225\b\225\n\130\n\138\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\t\202\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\n\002\n\026\n\"\n\n\n*\000\000\002\149\000\000\000\000\000\000\000\000\000\000\002\149\002\149\n2\n:\002\149\000\000\000\000\000\000\000\000\002\149\000\000\nB\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\t\210\n\018\nJ\nR\nb\002\149\002\149\000\000\000\000\002\149\000\000\002\149\nj\000\000\000\000\000\000\000\000\000\000\000\000\002\149\002\149\nr\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\146\002\149\n\154\nZ\002\149\002\149\000\000\000\000\002\149\nz\002\149\000\000\000\000\000\000\000\000\002\149\002\149\n\130\n\138\b\221\b\221\000\000\000\000\000\000\b\221\000\000\000\000\b\221\000\000\000\000\b\221\000\000\b\221\000\000\000\000\t\202\000\000\b\221\b\221\b\221\000\000\b\221\b\221\b\221\000\000\000\000\000\000\000\000\000\000\n\002\n\026\n\"\n\n\n*\000\000\b\221\000\000\000\000\000\000\000\000\000\000\b\221\b\221\n2\n:\b\221\000\000\000\000\000\000\000\000\b\221\000\000\nB\b\221\000\000\000\000\000\000\000\000\b\221\b\221\000\238\000\000\000\000\000\000\000\000\000\000\000\000\b\221\b\221\t\210\n\018\nJ\nR\nb\b\221\b\221\000\000\000\000\b\221\000\000\b\221\nj\000\000\000\000\000\000\000\000\000\000\000\000\b\221\b\221\nr\000\000\b\221\b\221\b\221\b\221\000\000\000\000\000\000\b\221\000\000\b\221\b\221\000\000\b\221\b\221\b\221\nZ\b\221\b\221\000\000\000\000\b\221\nz\b\221\000\000\000\000\000\000\000\000\b\221\b\221\n\130\n\138\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\t\202\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\n\002\n\026\n\"\n\n\n*\000\000\002\197\000\000\000\000\000\000\000\000\000\000\002\197\002\197\n2\n:\002\197\000\000\000\000\000\000\000\000\002\197\000\000\nB\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\t\210\n\018\nJ\nR\nb\002\197\002\197\000\000\000\000\002\197\000\000\002\197\nj\000\000\000\000\000\000\000\000\000\000\000\000\002\197\002\197\nr\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\146\002\197\n\154\nZ\002\197\002\197\000\000\000\000\002\197\nz\002\197\000\000\000\000\000\000\000\000\002\197\002\197\n\130\n\138\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\t\202\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\n\002\n\026\n\"\n\n\n*\000\000\002\193\000\000\000\000\000\000\000\000\000\000\002\193\002\193\n2\n:\002\193\000\000\000\000\000\000\000\000\002\193\000\000\nB\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\t\210\n\018\nJ\nR\nb\002\193\002\193\000\000\000\000\002\193\000\000\002\193\nj\000\000\000\000\000\000\000\000\000\000\000\000\002\193\002\193\nr\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\146\002\193\n\154\nZ\002\193\002\193\000\000\000\000\002\193\nz\002\193\000\000\000\000\000\000\000\000\002\193\002\193\n\130\n\138\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\t\202\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\n\002\n\026\n\"\n\n\n*\000\000\002\201\000\000\000\000\000\000\000\000\000\000\002\201\002\201\n2\n:\002\201\000\000\000\000\000\000\000\000\002\201\000\000\nB\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\t\210\n\018\nJ\nR\nb\002\201\002\201\000\000\000\000\002\201\000\000\002\201\nj\000\000\000\000\000\000\000\000\000\000\000\000\002\201\002\201\nr\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\146\002\201\n\154\nZ\002\201\002\201\000\000\000\000\002\201\nz\002\201\000\000\000\000\000\000\000\000\002\201\002\201\n\130\n\138\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\t\202\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\n\002\n\026\n\"\n\n\n*\000\000\002\181\000\000\000\000\000\000\000\000\000\000\002\181\002\181\n2\n:\002\181\000\000\000\000\000\000\000\000\002\181\000\000\nB\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\t\210\n\018\nJ\nR\nb\002\181\002\181\000\000\000\000\002\181\000\000\002\181\nj\000\000\000\000\000\000\000\000\000\000\000\000\002\181\002\181\nr\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\146\002\181\n\154\nZ\002\181\002\181\000\000\000\000\002\181\nz\002\181\000\000\000\000\000\000\000\000\002\181\002\181\n\130\n\138\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\t\202\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\n\002\n\026\n\"\n\n\n*\000\000\002\185\000\000\000\000\000\000\000\000\000\000\002\185\002\185\n2\n:\002\185\000\000\000\000\000\000\000\000\002\185\000\000\nB\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\t\210\n\018\nJ\nR\nb\002\185\002\185\000\000\000\000\002\185\000\000\002\185\nj\000\000\000\000\000\000\000\000\000\000\000\000\002\185\002\185\nr\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\146\002\185\n\154\nZ\002\185\002\185\000\000\000\000\002\185\nz\002\185\000\000\000\000\000\000\000\000\002\185\002\185\n\130\n\138\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\t\202\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\n\002\n\026\n\"\n\n\n*\000\000\002\189\000\000\000\000\000\000\000\000\000\000\002\189\002\189\n2\n:\002\189\000\000\000\000\000\000\000\000\002\189\000\000\nB\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\t\210\n\018\nJ\nR\nb\002\189\002\189\000\000\000\000\002\189\000\000\002\189\nj\000\000\000\000\000\000\000\000\000\000\000\000\002\189\002\189\nr\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\146\002\189\n\154\nZ\002\189\002\189\000\000\000\000\002\189\nz\002\189\000\000\000\000\000\000\000\000\002\189\002\189\n\130\n\138\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\t\202\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\n\002\n\026\n\"\n\n\n*\000\000\002\209\000\000\000\000\000\000\000\000\000\000\002\209\002\209\n2\n:\002\209\000\000\000\000\000\000\000\000\002\209\000\000\nB\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\t\210\n\018\nJ\nR\nb\002\209\002\209\000\000\000\000\002\209\000\000\002\209\nj\000\000\000\000\000\000\000\000\000\000\000\000\002\209\002\209\nr\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\146\002\209\n\154\nZ\002\209\002\209\000\000\000\000\002\209\nz\002\209\000\000\000\000\000\000\000\000\002\209\002\209\n\130\n\138\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\t\202\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\n\002\n\026\n\"\n\n\n*\000\000\002\205\000\000\000\000\000\000\000\000\000\000\002\205\002\205\n2\n:\002\205\000\000\000\000\000\000\000\000\002\205\000\000\nB\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\t\210\n\018\nJ\nR\nb\002\205\002\205\000\000\000\000\002\205\000\000\002\205\nj\000\000\000\000\000\000\000\000\000\000\000\000\002\205\002\205\nr\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\146\002\205\n\154\nZ\002\205\002\205\000\000\000\000\002\205\nz\002\205\000\000\000\000\000\000\000\000\002\205\002\205\n\130\n\138\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\t\202\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\n\002\n\026\n\"\n\n\n*\000\000\002\213\000\000\000\000\000\000\000\000\000\000\002\213\002\213\n2\n:\002\213\000\000\000\000\000\000\000\000\002\213\000\000\nB\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\t\210\n\018\nJ\nR\nb\002\213\002\213\000\000\000\000\002\213\000\000\002\213\nj\000\000\000\000\000\000\000\000\000\000\000\000\002\213\002\213\nr\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\146\002\213\n\154\nZ\002\213\002\213\000\000\000\000\002\213\nz\002\213\000\000\000\000\000\000\000\000\002\213\002\213\n\130\n\138\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\t\202\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\n\002\n\026\n\"\n\n\n*\000\000\002\177\000\000\000\000\000\000\000\000\000\000\002\177\002\177\n2\n:\002\177\000\000\000\000\000\000\000\000\002\177\000\000\nB\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\t\210\n\018\nJ\nR\nb\002\177\002\177\000\000\000\000\002\177\000\000\002\177\nj\000\000\000\000\000\000\000\000\000\000\000\000\002\177\002\177\nr\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\146\002\177\n\154\nZ\002\177\002\177\000\000\000\000\002\177\nz\002\177\000\000\000\000\000\000\000\000\002\177\002\177\n\130\n\138\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\r\254\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\t\202\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\n\002\n\026\n\"\n\n\n*\000\000\002\029\000\000\000\000\000\000\000\000\000\000\002\029\002\029\n2\n:\002\029\000\000\000\000\000\000\000\000\002\029\000\000\nB\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\t\210\n\018\nJ\nR\nb\002\029\002\029\000\000\000\000\002\029\000\000\002\029\nj\000\000\000\000\000\000\000\000\000\000\000\000\002\029\002\029\nr\000\000\002\029\002\029\014\022\002\029\000\000\000\000\000\000\002\029\000\000\002\029\002\029\000\000\n\146\002\029\n\154\nZ\002\029\002\029\000\000\000\000\002\029\nz\002\029\000\000\000\000\000\000\000\000\002\029\002\029\n\130\n\138\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\t\202\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\n\002\n\026\n\"\n\n\n*\000\000\002\025\000\000\000\000\000\000\000\000\000\000\002\025\002\025\n2\n:\002\025\000\000\000\000\000\000\000\000\002\025\000\000\nB\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\t\210\n\018\nJ\nR\nb\002\025\002\025\000\000\000\000\002\025\000\000\002\025\nj\000\000\000\000\000\000\000\000\000\000\000\000\002\025\002\025\nr\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\146\002\025\n\154\nZ\002\025\002\025\000\000\000\000\002\025\nz\002\025\000\000\000\000\000\000\000\000\002\025\002\025\n\130\n\138\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\t\202\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\n\002\n\026\n\"\n\n\n*\000\000\002\173\000\000\000\000\000\000\000\000\000\000\002\173\002\173\n2\n:\002\173\000\000\000\000\000\000\000\000\002\173\000\000\nB\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\t\210\n\018\nJ\nR\nb\002\173\002\173\000\000\000\000\002\173\000\000\002\173\nj\000\000\000\000\000\000\000\000\000\000\000\000\002\173\002\173\nr\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\146\002\173\n\154\nZ\002\173\002\173\000\000\000\000\002\173\nz\002\173\000\000\000\000\000\000\000\000\002\173\002\173\n\130\n\138\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\r\254\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\000\000\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\003\253\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\r\254\000\000\000\000\003\253\000\000\002\017\002\017\002\017\002\017\001\006\000\000\000\006\000\000\006\229\000\000\002\186\002\190\006*\002\234\002\130\005\234\b\242\000\000\000\000\002\246\001\n\000\000\0066\000\000\002\142\000\000\006B\006\229\000\000\001\210\003\206\006\229\002\190\0036\001\018\bn\br\001\030\001\"\003\170\000\000\000\000\003F\000\000\002\254\007\226\025\030\000\000\b\150\b\154\001\210\003\222\0032\003\234\b\158\006\214\000\000\001:\000\000\002\178\007\r\000\000\003:\000\000\000\000\000\000\b\026\b\030\b*\b>\000\000\005v\000\000\003\202\001>\001B\001F\001J\001N\007\r\002\178\b\178\001R\007\r\007\001\000\000\001V\000\000\b\190\b\214\t*\005\130\005\134\000\000\000\000\001Z\000\000\000\000\000\000\006\229\000\000\001^\002\225\007\001\000\000\000\000\018\130\007\001\006\234\000\000\000\000\001\154\011\018\000\000\011\030\005\138\b2\004\026\001\158\000\000\014F\004r\t>\001\006\001\166\000\006\001\170\001\174\000\000\002\186\002\190\000\n\002\234\002\130\011\"\000\000\000\000\000\000\002\246\001\n\000\000\000\000\000\000\bj\000\000\000\238\000\000\002\225\001\210\000\000\000\000\007\r\0036\001\018\bn\br\001\030\001\"\000\000\002\225\002\225\003F\000\000\002\254\000\000\bv\n\206\b\150\b\154\n\218\003\222\0032\003\234\b\158\006\214\000\238\001:\000\000\002\178\000\000\000\000\003:\000\000\000\000\000\000\b\026\b\030\b*\b>\006*\005v\000\000\005\234\001>\001B\001F\001J\001N\000\000\0066\b\178\001R\000\000\006B\000\000\001V\000\000\b\190\b\214\t*\005\130\005\134\000\000\000\000\001Z\000\000\000\000\000\000\000\000\006*\001^\000\000\005\234\011&\000\000\000\000\000\000\000\000\000\000\0066\001\154\006\022\000\000\006B\005\138\b2\012\181\001\158\000\000\014F\004r\t>\004m\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\181\002\246\000\000\002\030\003\178\000\000\002\"\000\000\004m\000\000\003\182\001\210\000\000\017\026\000\000\002\250\000\000\003>\003B\002.\000\000\000\000\003\186\000\000\003F\000\000\002\254\000\000\016\174\000\000\003\214\003\218\000\000\003\222\0032\003\234\003\242\006\214\000\000\000\000\017\018\002\178\000\000\000\000\003:\017*\002:\000\000\b\026\b\030\b*\b>\000\000\005v\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0172\000\000\b\178\000\000\t\r\000\000\000\000\000\000\000\000\b\190\b\214\t*\005\130\005\134\017F\017r\000\000\000\000\004m\004m\000\000\000\000\000\000\006f\024\234\000\000\t\r\000\000\000\000\002>\012\181\012\161\000\000\000\000\017\174\021\154\005\138\b2\025\n\000\173\000\000\bJ\004r\t>\000\173\000\000\002\190\000\173\000\000\002\130\012\181\tf\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\tn\000\000\002\250\002.\000\000\000\000\0026\012\161\tv\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\130\000\173\000\000\002\130\000\173\002\178\000\000\002:\003:\000\173\000\173\000\173\b\026\b\030\b*\000\000\012f\005v\000\173\000\173\006*\021B\000\000\005\234\024\238\000\173\000\000\000\000\t\r\000\173\0066\000\000\000\000\000\000\006B\000\000\000\000\005\130\005\134\000\173\000\173\015\134\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\146\000\000\021f\000\000\000\173\000\173\005\138\b2\000\000\000\000\000\197\bJ\004r\000\000\000\173\000\197\000\173\002\190\000\197\000\000\002\130\000\000\tf\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\021r\tn\000\000\002\250\000\000\000\000\000\000\000\000\b\210\tv\000\197\000\000\000\000\000\000\002\254\000\000\000\197\021\006\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\b\026\b\030\b*\000\000\012f\005v\000\197\000\197\000\000\000\000\000\000\000\000\r\234\000\197\000\000\000\000\000\000\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\238\000\197\000\197\000\000\000\000\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\b2\000\000\000\000\000\000\bJ\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:\006*\000\000\000>\005\234\000\000\000\000\000B\000\000\000\000\000\000\0066\000\000\000\000\000F\006B\000\000\000\000\000\000\000\000\000J\000\000\000N\000R\000V\000Z\000^\000b\000f\000\000\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\000\000\000\000\000\000\000\000\000\000\000z\000\000\000\000\000~\000\130\000\000\000\000\000\000\000\000\000\000\000\134\000\138\000\142\000\000\000\000\000\000\000\000\000\000\000\146\000\150\000\154\000\158\000\000\000\162\000\166\000\170\000\000\000\000\000\000\000\174\000\178\000\182\000\000\000\000\000\000\000\186\000\006\000\190\000\194\000\246\002\186\002\190\002\194\002\234\002\130\000\198\000\000\000\202\000\000\002\246\000\000\000\000\004\141\000\206\000\210\000\000\000\214\000\000\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\174\000\000\003\214\003\218\000\000\003\222\0032\003\234\003\242\006\214\000\000\000\000\017\018\002\178\000\000\000\000\003:\017*\000\000\000\000\b\026\b\030\b*\b>\000\000\005v\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0172\000\000\b\178\000\000\027\250\000\000\000\000\000\000\000\000\b\190\b\214\t*\005\130\005\134\017F\017r\000\000\000\006\028\027\014\218\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\028J\000\000\021\154\005\138\b2\014Z\003\182\001\210\bJ\004r\t>\002\250\000\000\003>\003B\000\000\000\000\000\000\003\186\000\000\003F\000\000\002\254\000\000\016\174\000\000\003\214\003\218\000\000\003\222\0032\003\234\003\242\006\214\000\000\016n\017\018\002\178\000\000\000\000\003:\017*\002\006\000\000\b\026\b\030\b*\b>\000\000\005v\000\000\000\000\002\n\000\000\000\000\000\000\000\000\0172\000\000\b\178\001\210\027\250\000\000\000\000\000\000\000\000\b\190\b\214\t*\005\130\005\134\017F\017r\000\000\000\000\004\149\000\000\003\154\000\000\000\000\000\000\001\006\000\000\007\002\001\222\000\000\000\000\003V\002\190\t\018\002\178\002\130\021\154\005\138\b2\000\000\002\246\001\n\bJ\004r\t>\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\007\006\000\000\000\000\002\225\000\000\003z\002\225\001.\011\014\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\011\018\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\n\178\002\225\002\130\015\130\000\000\000\000\002\130\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.\011\014\000\000\000\000\003r\001\190\0016\007\173\015\134\001:\000\000\002\178\000\000\000\000\003\246\000\000\000\000\000\000\003\250\000\000\004\002\005j\015\146\005v\021F\000\000\001>\001B\001F\001J\001N\000\000\000\000\000\000\001R\005z\000\000\007\173\001V\n\181\000\000\000\000\000\000\005\130\005\134\000\000\005\202\001Z\005\134\000\000\000\000\007\173\000\000\001^\007\173\b\166\000\000\000\000\021R\000\000\000\000\007\173\000\000\001\154\011\018\007\173\000\000\005\138\000\000\n\181\001\158\000\000\001\162\004r\001\006\021\006\001\166\000\000\001\170\001\174\003V\002\190\r\170\n\181\002\130\000\000\n\181\011\134\000\000\002\246\001\n\000\000\000\000\n\181\002\142\000\000\000\000\n\181\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.\011\014\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\011\018\000\000\000\000\005\138\000\000\000\000\001\158\000\000\001\162\004r\000\000\b\249\001\166\000\006\001\170\001\174\000\000\002\186\002\190\000\000\002\234\002\130\000\000\000\000\000\000\000\000\002\246\000\000\000\000\000\000\000\000\b\249\000\000\b\249\b\249\000\000\001\210\000\000\000\000\000\000\002\250\000\000\003>\003B\000\000\000\000\000\000\000\000\b\001\003F\000\000\002\254\000\000\b\001\000\000\003\214\003\218\n\222\003\222\0032\003\234\003\242\006\214\001\202\001\206\011>\002\178\000\000\000\000\003:\000\000\000\000\b\001\b\026\b\030\b*\b>\000\000\005v\000\000\000\000\000\000\001\210\002\170\001\230\000\000\000\000\000\000\b\178\000\000\000\000\000\000\001\242\000\000\b\001\b\190\b\214\t*\005\130\005\134\000\000\000\000\b\001\000\000\000\000\001\246\002\146\b\001\b\001\000\238\002\158\000\000\002\178\004\030\004*\000\000\b\001\b\001\000\000\0046\000\000\000\000\005\138\b2\b\249\004\253\004\253\bJ\004r\t>\004\253\000\000\004\253\004\253\000\000\004\253\004:\004\253\004\253\b\001\000\000\004\253\b\001\004\253\004\253\004\253\004\253\004\253\004\253\004\253\004\253\b\001\004\253\016~\004\253\000\000\000\000\000\000\000\000\000\000\002\006\004\253\000\000\000\000\000\000\000\000\004\253\004\253\004\253\000\000\002\n\004\253\004\253\004\253\004\253\000\000\004\253\000\000\001\210\004\253\000\000\000\000\000\000\000\000\004\253\004\253\004\253\000\000\000\000\004\253\004\253\004\253\000\000\004\253\004\253\003\154\000\000\000\000\000\000\000\000\004\253\007\002\001\222\000\000\004\253\004\253\000\000\004\253\002\178\004\253\000\000\000\000\000\000\000\000\004\253\004\253\004\253\000\000\004\253\004\253\004\253\004\253\000\000\004\253\004\253\000\000\000\000\000\000\004\253\000\000\004\253\004\253\000\000\000\000\002\150\004\253\007\006\000\000\000\000\020\026\004\253\000\000\n\205\000\000\004\253\n\205\004\253\004\253\n\205\n\205\000\000\004\253\n\205\000\000\n\205\000\000\000\000\n\205\000\000\001*\000\000\n\205\n\205\000\000\n\205\n\205\002\225\n\205\000\000\n\205\000\000\000\000\000\000\002\225\n\205\000\000\000\000\n\205\000\000\000\000\000\000\000\000\000\000\000\000\002\225\n\205\000\000\n\205\000\000\000\000\n\205\n\205\000\n\000\000\000\000\000\000\000\000\n\205\000\000\000\000\n\205\000\000\000\000\n\205\n\205\000\000\n\205\002\225\n\205\n\205\000\000\000\000\000\000\000\000\002\225\000\000\000\000\000\000\000\000\000\000\002\225\n\205\000\000\000\000\000\000\000\000\000\000\000\000\000\000\n\205\n\205\000\000\000\000\n\205\000\000\n\205\000\000\000\000\000\000\000\000\005\166\000\000\002\225\000\000\000\000\001\202\001\206\n\205\n\205\000\000\n\205\n\205\000\000\n\205\000\000\n\205\000\000\n\205\000\000\n\205\000\000\n\205\b\229\b\229\001\210\001\214\001\230\b\229\000\000\001\206\b\229\000\000\000\000\000\000\001\242\003\190\000\000\018\174\b\229\000\000\b\229\b\229\b\229\000\000\b\229\b\229\b\229\001\246\020\022\000\000\0196\000\000\002\158\000\000\002\178\004\030\004*\000\000\b\229\000\000\000\000\020&\000\000\000\000\b\229\b\229\000\000\000\000\b\229\000\000\000\000\002\154\000\000\b\229\000\000\000\000\b\229\000\000\004:\000\000\000\000\b\229\b\229\b\229\000\000\000\000\000\000\000\000\000\000\000\000\b\229\b\229\000\000\000\000\000\000\000\000\000\000\b\229\000\000\000\000\000\000\004\154\000\000\000\000\b\229\000\000\000\000\000\000\000\000\000\000\000\000\b\229\b\229\b\229\000\000\b\229\b\229\000\000\004Y\000\000\000\000\000\000\000\000\004Y\000\000\b\229\004Y\b\229\b\229\000\000\000\000\000\000\b\229\000\000\000\000\000\000\004Y\b\229\000\000\000\000\004Y\b\229\004Y\b\229\b\229\012u\012u\000\000\000\000\004Y\012u\000\000\001\206\012u\004Y\000\000\000\000\000\000\000\000\000\000\004Y\004\186\000\000\012u\012u\012u\004B\012u\012u\012u\000\000\000\000\004Y\004Y\000\000\000\000\000\000\004Y\002\226\000\000\000\000\012u\000\000\000\000\000\000\000\000\000\000\012u\012u\000\000\000\000\012u\000\000\004Y\002\154\004Y\012u\000\000\000\000\012u\000\000\000\000\000\000\004Y\012u\012u\012u\004Y\004Y\002\226\000\238\004Y\004Y\012u\012u\000\000\000\000\004R\004Y\000\000\012u\000\000\000\000\000\000\004\154\000\000\000\000\012u\004Y\000\000\000\000\000\000\000\000\021\026\012u\012u\012u\000\000\012u\012u\000\000\004Y\000\000\004Y\000\000\000\000\004Y\000\000\012u\004Y\012u\012u\004Y\000\000\000\000\012u\000\000\000\000\000\000\004Y\012u\000\000\000\000\004Y\012u\004Y\012u\012u\b\233\b\233\000\000\000\000\000\000\b\233\000\000\001\206\b\233\004Y\000\000\000\000\000\000\000\000\000\000\004Y\b\233\000\000\b\233\b\233\b\233\000\000\b\233\b\233\b\233\000\000\000\000\004Y\000\000\000\000\000\000\000\000\004Y\002\226\000\000\000\000\b\233\000\000\000\000\000\000\000\000\000\000\b\233\b\233\000\000\000\000\b\233\000\000\004Y\002\154\000\000\b\233\000\000\000\000\b\233\000\000\000\000\000\000\000\000\b\233\b\233\b\233\004Y\004Y\000\000\000\000\004Y\004Y\b\233\b\233\000\000\000\000\007n\000\000\000\000\b\233\000\000\000\000\000\000\004\154\000\000\000\000\b\233\004Y\000\000\000\000\000\000\000\000\000\000\b\233\b\233\b\233\002\225\b\233\b\233\000\000\000\000\002\225\002\225\002\225\000\000\000\000\002\225\b\233\002\225\b\233\b\233\002\225\002\225\002\225\b\233\002\225\002\225\002\225\002\225\b\233\002\225\002\225\000\000\b\233\002\225\b\233\b\233\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\000\000\002\225\002\225\000\n\002\225\002\225\002\225\000\000\000\000\000\000\002\225\002\225\000\000\002\225\002\225\002\225\002\225\002\225\002\225\000\000\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\000\000\002\225\000\000\000\000\002\225\000\000\000\000\000\000\000\000\002\225\002\225\002\225\002\225\000\000\000\000\000\000\002\225\002\225\002\225\002\225\002\225\000\000\006\141\000\000\0009\002\225\002\225\000\000\0009\0009\000\000\0009\0009\002\225\000\000\000\000\000\000\0009\000\000\002\225\000\000\000\000\006\141\002\225\002\225\000\000\000\000\0009\002\225\002\225\002\225\0009\006\222\0009\0009\000\000\000\000\000\000\000\000\000\000\0009\000\000\0009\000\000\000\000\000\000\0009\0009\000\000\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\181\012\161\000\000\0009\0009\0009\0009\0009\000\000\006\137\000\000\0005\000\000\000\000\000\000\0005\0005\000\000\0005\0005\012\181\000\000\000\000\002\030\0005\000\000\002\"\000\000\000\000\006\137\0009\0009\000\000\002*\0005\0009\0009\0009\0005\002.\0005\0005\0026\012\161\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\153\000\000\012=\000\000\000\000\000\000\012=\012=\000\000\012=\012=\002>\000\000\000\000\000\000\012=\000\000\000\000\000\000\000\000\006\153\0005\0005\000\000\000\000\012=\0005\0005\0005\012=\000\000\012=\012=\000\000\000\000\000\000\000\000\000\000\012=\000\000\012=\000\000\000\000\000\000\012=\012=\000\000\012=\012=\012=\012=\012=\000\000\000\000\000\000\012=\000\000\000\000\012=\000\000\000\000\000\000\012=\012=\012=\012=\000\000\012=\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\012\181\012\161\000\000\012=\012=\012=\012=\012=\000\000\006\149\000\000\0129\000\000\000\000\000\000\0129\0129\000\000\0129\0129\012\181\000\000\000\000\002\030\0129\000\000\002\"\000\000\000\000\006\149\012=\012=\000\000\002\206\0129\012=\012=\012=\0129\002.\0129\0129\0026\012\161\000\000\000\000\000\000\0129\000\000\0129\000\000\000\000\000\000\0129\0129\000\000\0129\0129\0129\0129\0129\000\000\001\202\001\206\0129\000\000\002:\0129\000\000\000\000\000\000\0129\0129\0129\0129\000\000\0129\000\000\000\000\000\000\000\000\001\210\001\214\001\230\000\000\000\000\0129\000\000\000\000\000\000\000\000\001\242\000\000\0129\0129\0129\0129\0129\001\250\000\000\000\000\000\000\000\000\000\000\001\246\002\146\000\000\000\000\000\000\002\158\002>\002\178\004\030\004*\012y\012y\000\000\000\000\0046\012y\0129\0129\012y\000\000\000\000\0129\0129\0129\000\000\000\000\004\138\000\000\012y\012y\012y\004:\012y\012y\012y\000\000\001\021\000\000\000\000\000\000\000\000\001\021\000\000\000\000\000\000\000\000\012y\000\000\000\000\000\000\000\000\000\000\012y\012y\000\000\000\000\012y\000\000\000\000\000\000\001\021\012y\000\000\000\000\012y\000\000\000\000\000\000\000\000\012y\012y\012y\000\000\000\000\000\000\000\000\000\000\000\000\012y\012y\000\000\000\000\001\021\000\000\018\182\012y\000\000\000\000\000\000\012y\001\021\000\000\012y\000\000\000\000\001\021\000\000\000\000\000\000\012y\012y\012y\000\000\012y\012y\001\021\000\000\000\000\000\000\000\000\000\000\000\000\007\253\012y\000\006\012y\012y\007\253\002\186\002\190\012y\002\234\002\130\000\000\000\000\012y\000\000\002\246\000\000\012y\001\021\012y\012y\000\000\003\254\000\000\007\253\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\007\253\003\222\0032\003\234\003\242\006\214\000\000\000\000\007\253\002\178\000\000\000\000\003:\007\253\007\253\000\238\b\026\b\030\b*\b>\000\000\005v\007\253\007\253\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\178\000\000\000\000\000\000\000\000\000\000\000\000\b\190\b\214\t*\005\130\005\134\000\000\000\000\007\253\000\000\000\000\007\253\000\000\000\000\000\000\000\000\000\000\000\006\000\000\000\000\007\253\002\186\002\190\000\000\002\234\002\130\000\000\000\000\005\138\b2\002\246\000\000\000\000\bJ\004r\t>\000\000\014n\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\006\214\000\000\000\000\000\000\002\178\000\000\000\000\003:\000\000\001\197\000\000\b\026\b\030\b*\b>\000\000\005v\000\000\000\000\000\000\000\000\000\000\000\000\000\000\005-\012\245\b\178\000\000\000\000\0051\012\245\001\197\000\000\b\190\b\214\t*\005\130\005\134\000\000\001\197\000\000\000\000\000\000\005-\001\197\001\197\000\238\005-\0051\000\000\003\029\003\029\0051\001\197\001\197\003\029\000\000\000\000\003\029\000\000\005\138\b2\000\000\000\000\000\000\bJ\004r\t>\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\012\245\012\245\003\029\000\000\000\000\012\245\012\245\003\029\003\029\003\029\000\000\000\000\000\000\005-\000\000\000\000\003\029\003\029\0051\012\245\000\000\012\245\000\000\003\029\012\245\000\000\012\245\003\029\005-\000\000\003\029\005-\000\000\0051\000\000\000\000\0051\003\029\003\029\003\029\004}\003\029\003\029\000\000\000\000\018\198\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\217\000\000\003\029\n\217\003\029\003\029\003V\002\190\000\000\000\000\002\130\000\000\006\166\000\000\000\000\002\246\000\000\000\000\000\000\n\217\n\217\018\242\n\217\n\217\000\000\001\210\000\000\006\198\000\000\017\018\000\000\000\000\003Z\000\000\017*\b\226\000\000\000\000\000\000\000\000\000\000\000\000\000\000\n\217\019.\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\217\003\250\000\000\004\002\005j\n\190\005v\000\000\004}\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\019\146\005z\001\202\001\206\000\000\000\000\000\000\000\000\000\000\005\130\005\134\000\000\005\202\n\217\000\000\n\217\000\000\000\000\000\000\000\000\000\000\001\210\001\214\000\000\000\000\000\000\000\000\n\217\000\000\000\000\n\217\n\217\000\000\005\138\000\000\n\217\000\000\n\217\000\000\004r\n\213\n\217\000\000\n\213\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\213\n\213\000\000\n\213\n\213\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\026\022\000\000\000\000\000\000\000\000\n\213\000\000\003f\000\000\000\000\003r\001\190\000\000\000\000\000\000\000\000\026\002\002\178\000\000\000\000\003\246\000\000\000\000\n\213\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\012Y\000\000\000\000\012Y\000\000\000\000\005\130\005\134\000\000\005\202\n\213\000\000\n\213\012Y\000\000\000\000\000\000\000\000\000\000\012Y\000\000\001\221\001\221\000\000\n\213\000\000\001\221\n\213\n\213\001\221\005\138\012Y\n\213\000\000\n\213\000\000\004r\012Y\n\213\001\221\001\221\001\221\000\000\001\221\001\221\001\221\012Y\000\000\000\000\012Y\000\000\000\000\000\000\000\000\012Y\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\012Y\000\000\001\221\000\000\012Y\001\221\000\000\000\000\000\000\000\000\001\221\001\221\001\221\000\000\012Y\012Y\000\000\000\000\012Y\001\221\001\221\000\000\000\000\000\000\027\242\000\000\001\221\001\r\000\000\000\000\001\221\000\000\001\r\001\221\000\000\012Y\000\000\000\000\000\000\000\000\001\221\001\221\001\221\0256\001\221\001\221\000\000\000\000\000\000\000\000\002\006\001\r\000\000\000\000\001\221\000\000\001\221\001\221\003V\002\190\002\n\001\221\002\130\000\000\006\166\000\000\001\221\002\246\001\210\000\000\004\254\000\000\001\221\001\r\000\000\003R\000\000\001\210\000\000\006\198\000\000\001\r\000\000\000\000\003Z\003\154\001\r\b\226\000\000\000\000\000\000\007\002\001\222\000\000\000\000\001\r\001\r\003f\002\178\000\000\n\174\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\177\003\250\000\000\004\002\000\000\n\190\005v\000\000\001\r\000\000\003V\002\190\000\000\007\006\002\130\000\000\006\166\001\r\005z\002\246\000\000\000\000\000\000\000\000\000\000\000\000\005\130\005\134\000\000\001\210\n\198\006\198\000\000\000\000\000\000\000\000\003Z\000\000\000\000\b\226\000\000\000\000\000\000\000\000\n\177\n\206\000\000\n\177\011:\003f\005\138\000\000\n\174\001\190\n\177\000\000\004r\000\000\n\177\002\178\000\000\000\000\003\246\000\000\000\000\n\177\003\250\000\000\004\002\000\000\n\190\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\000\000\000\000\000\000\000\000\000\000\000\000\005\130\005\134\000\000\000\000\n\198\005}\005}\000\000\000\000\000\000\005}\000\000\000\000\005}\000\000\000\000\000\000\000\000\n\177\000\000\000\000\n\177\n\177\005}\005\138\005}\000\000\005}\n\177\005}\004r\000\000\n\177\000\000\000\000\000\000\000\000\000\000\000\000\000\246\000\000\005}\002\194\000\000\000\000\000\000\000\000\005}\005}\000\000\000\000\000\000\028J\005}\000\000\000\000\005}\000\000\003\182\005}\000\000\000\000\000\000\000\000\005}\005}\005}\000\000\000\000\000\000\003\186\000\000\000\000\000\000\000\000\000\000\016\174\000\000\000\000\000\000\005}\005}\000\000\000\000\005}\024Z\000\000\001\006\017\018\000\000\000\000\000\000\000\000\017*\005}\005}\005}\000\000\005}\005}\000\000\000\000\000\000\001\n\007n\000\000\000\000\002\142\000\000\0172\000\000\005}\000\000\027\250\005}\005}\001\014\001\018\001\022\001\026\001\030\001\"\000\000\017F\017r\000\000\005}\004\149\000\000\001&\000\000\001.\0012\000\000\000\000\000\000\000\000\0016\004a\000\000\001:\000\000\000\000\000\246\021\154\000\000\002\018\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\017\178\001>\001B\001F\001J\001N\003\182\005q\005q\001R\000\000\000\000\005q\001V\000\000\005q\000\000\000\000\017\182\000\000\000\000\000\000\001Z\000\000\017\222\005q\000\000\005q\001^\005q\000\000\005q\000\000\000\000\000\000\000\000\017\018\000\000\001\154\027.\000\000\017*\000\000\005q\000\000\001\158\000\000\001\162\000\000\005q\005q\001\166\000\000\001\170\001\174\007\222\000\000\018Z\005q\000\000\000\000\005q\000\000\000\000\000\000\000\000\005q\005q\000\238\000\000\000\000\017F\018n\000\000\000\000\004a\004a\000\000\000\000\000\000\000\000\000\000\005q\005q\000\000\000\000\005q\000\000\b\245\000\000\000\000\000\000\018~\000\000\000\000\000\000\005q\005q\005q\000\000\005q\005q\000\000\000\000\t\202\000\000\000\000\012:\b\245\000\000\b\245\b\245\000\000\005q\000\000\000\000\005q\005q\n\002\n\026\n\"\n\n\n*\000\000\000\000\001\202\002~\000\000\005q\002\130\000\000\000\000\n2\n:\000\000\000\000\000\000\000\000\000\000\000\000\000\000\nB\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\t\210\n\018\nJ\nR\nb\000\000\000\000\000\000\000\000\002\138\002\146\000\000\nj\001\n\002\158\000\000\002\178\004\030\004*\000\000\000\000\nr\000\000\020\242\000\000\020\246\001\014\001\018\001\022\001\026\001\030\001\"\000\000\000\000\000\000\n\146\000\000\n\154\nZ\001&\004:\001.\0012\b\245\nz\000\000\000\000\0016\000\000\005\134\001:\000\000\n\130\n\138\000\000\000\000\000\000\000\000\000\000\021\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001>\001B\001F\001J\001N\000\000\003]\003]\001R\021\006\000\000\003]\001V\000\000\003]\000\000\000\000\000\000\000\000\000\000\000\000\001Z\000\000\000\000\003]\000\000\003]\001^\003]\000\000\003]\000\000\000\000\000\000\000\000\000\000\000\000\001\154\027J\000\000\000\000\000\000\003]\000\000\001\158\000\000\001\162\000\000\003]\003]\001\166\000\000\001\170\001\174\005\005\000\000\000\000\003]\000\000\000\000\003]\000\000\000\000\000\000\000\000\003]\003]\003]\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003]\000\000\001\202\001\206\003]\bq\bq\000\000\000\000\000\000\bq\000\000\000\000\bq\003]\003]\003]\000\000\003]\003]\000\000\001\210\001\214\bq\005\005\bq\000\000\bq\000\000\bq\000\000\003]\000\000\000\000\000\000\003]\000\000\000\000\000\000\000\000\000\000\bq\000\000\000\000\001\246\002\154\003]\bq\bq\002\158\000\000\002\178\004\030\004*\000\000\000\000\bq\000\000\0046\bq\015\158\000\000\000\000\000\000\bq\bq\bq\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\bq\000\000\000\000\000\000\bq\rA\rA\000\000\000\000\000\000\rA\000\000\000\000\rA\bq\bq\bq\000\000\bq\bq\000\000\000\000\000\000\rA\000\000\rA\000\000\rA\bq\rA\000\000\bq\000\000\000\000\000\000\bq\000\000\000\000\000\000\000\000\000\000\rA\000\000\000\000\004\254\000\000\bq\rA\rA\rE\rE\000\000\000\000\004B\rE\000\000\rA\rE\000\000\rA\000\000\000\000\000\000\000\000\rA\rA\rA\rE\000\000\rE\000\000\rE\000\000\rE\000\000\000\000\000\000\000\000\000\000\000\000\rA\000\000\000\000\000\000\rA\rE\000\000\000\000\000\000\000\000\000\000\rE\rE\000\000\rA\rA\rA\004B\rA\rA\rE\000\000\000\000\rE\004R\000\000\000\000\000\000\rE\rE\rE\rA\000\000\000\000\000\000\rA\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\rE\000\000\rA\000\000\rE\003]\003]\000\000\000\000\000\000\003]\000\000\000\000\003]\rE\rE\rE\000\000\rE\rE\000\000\000\000\000\000\003]\004R\003]\000\000\003]\000\000\003]\000\000\rE\001\202\001\206\000\000\rE\000\000\000\000\000\000\000\000\000\000\003]\000\000\000\000\000\000\000\000\rE\003]\003]\000\000\000\000\001\210\001\214\005\t\000\000\000\000\003]\000\000\000\000\003]\000\000\000\000\000\000\000\000\003]\003]\003]\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\246\002\162\000\000\000\000\000\000\002\158\003]\002\178\004\030\004*\003]\001\205\000\000\000\000\0046\000\000\001\205\000\000\001\206\001\205\003]\003]\003]\000\000\003]\003]\000\000\b\209\000\000\001\205\005\t\004:\000\000\001\205\004\205\001\205\000\000\003]\000\000\000\000\000\000\003]\000\000\004Y\000\000\000\000\000\000\001\205\004Y\000\000\026\002\000\000\003]\001\205\001\205\000\000\000\000\000\000\000\000\000\000\002\154\000\000\001\205\000\000\000\000\001\205\000\000\004Y\000\000\000\000\001\205\001\205\001\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\001\205\001\205\000\000\004Y\004\154\003A\000\000\000\000\000\000\000\000\003A\004Y\001\206\003A\001\205\001\205\004Y\002\226\001\205\001\205\000\000\b\205\000\000\003A\000\000\004Y\004Y\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\000\000\000\000\000\000\000\000\001\205\003A\001\201\000\000\000\181\004Y\000\000\000\000\002\154\000\181\003A\000\000\000\181\003A\004Y\000\000\000\000\000\000\003A\003A\003A\000\000\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\006\221\000\185\000\000\000\000\000\185\006\221\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\006\221\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\006\221\000\185\000\000\000\000\000\185\000\000\000\000\000\000\006\221\000\185\000\185\000\238\000\000\006\221\006\221\000\238\000\000\000\000\000\185\000\185\000\000\000\000\006\221\006\221\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\006\221\000\000\001\169\r\001\001\169\000\185\000\000\000\000\r\001\006\221\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\023\186\000\000\r\001\005\005\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\r\001\000\000\000\000\000\000\000\000\000\000\001\169\000\000\r\001\000\000\001\169\r=\r=\r\001\r\001\000\238\r=\000\000\000\000\r=\001\169\001\169\r\001\r\001\001\169\001\169\000\000\000\000\000\000\r=\005\005\r=\000\000\r=\001\169\r=\000\000\000\000\000\000\000\000\001\169\001\169\000\000\000\000\000\000\000\000\001\169\r=\r\001\000\000\000\000\000\000\001\169\r=\r=\000\000\000\000\r\001\000\000\000\000\000\000\000\000\r=\000\000\000\000\r=\000\000\000\000\000\000\000\000\r=\r=\r=\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\r=\000\000\000\000\000\000\r=\r9\r9\000\000\000\000\000\000\r9\000\000\000\000\r9\r=\r=\r=\000\000\r=\r=\000\000\000\000\000\000\r9\000\000\r9\000\000\r9\000\000\r9\000\000\r=\000\000\000\000\000\000\r=\000\000\000\000\000\000\000\000\000\000\r9\000\000\000\000\004\254\000\000\r=\r9\r9\000\000\000\000\000\000\000\000\000\000\000\000\004a\r9\000\000\000\000\r9\000\246\000\000\000\000\002\018\r9\r9\r9\000\000\000\000\000\000\000\000\000\000\000\000\017\178\000\000\000\000\000\000\004a\000\000\003\182\r9\000\000\bu\bu\r9\000\000\000\000\bu\000\000\000\000\bu\017\182\000\000\000\000\r9\r9\r9\017\222\r9\r9\bu\000\000\bu\000\000\bu\000\000\bu\000\000\007J\017\018\000\000\r9\000\000\000\000\017*\r9\000\000\000\000\bu\000\000\000\000\000\000\000\000\000\000\bu\bu\r9\000\000\000\000\000\000\018Z\000\000\000\000\bu\000\000\000\000\bu\000\000\000\000\000\000\000\000\bu\bu\000\238\017F\018n\000\000\000\000\004a\004a\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bu\000\000\000\000\000\000\bu\000\000\006\241\000\000\018~\000\000\000\000\000\000\000\000\000\000\bu\bu\bu\000\000\bu\bu\000\000\000\000\t\202\000\000\000\000\006\241\000\000\000\000\bu\006\241\000\000\bu\000\000\000\000\000\000\bu\n\002\n\026\n\"\n\n\n*\000\000\000\000\000\000\000\000\000\000\bu\001\201\000\000\000\000\n2\n:\001\201\000\000\001\206\001\201\000\000\000\000\000\000\nB\000\000\000\000\000\000\b\205\000\000\001\201\000\000\000\238\000\000\001\201\000\000\001\201\000\000\000\000\000\000\000\000\t\210\n\018\nJ\nR\nb\000\000\000\000\001\201\000\000\000\000\000\000\006\241\nj\001\201\000\000\000\000\000\000\000\000\000\000\000\000\002\154\nr\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\146\000\000\n\154\nZ\000\000\000\000\000\000\000\000\000\000\nz\000\000\001\201\001\201\000\000\000\000\004\154\000\000\n\130\n\138\000\000\000\000\000\000\016b\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\t\202\001\201\000\000\000\000\016f\000\000\000\000\000\000\001\201\000\000\000\000\000\000\000\000\001\201\n\002\n\026\n\"\n\n\n*\001\201\000\000\000\000\000\000\000\000\000\000\n\210\000\000\000\000\n2\n:\000\246\001\202\001\206\002\018\000\000\000\000\000\000\nB\000\000\000\000\000\000\000\000\000\000\017\178\000\000\000\238\000\000\004a\000\000\003\182\001\210\001\214\001\230\000\000\t\210\n\018\nJ\nR\nb\000\000\001\242\017\182\000\000\000\000\000\000\000\000\nj\017\222\000\000\000\000\000\000\000\000\000\000\001\246\002\146\nr\000\000\000\000\002\158\017\018\002\178\004\030\004*\000\000\017*\000\000\000\000\0046\000\000\n\146\016j\n\154\nZ\016z\000\000\000\000\000\000\000\000\nz\000\000\018Z\000\000\000\000\000\000\004:\000\000\n\130\n\138\005\169\005\169\000\000\000\000\000\000\005\169\017F\018n\005\169\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\005\169\000\000\005\169\000\000\005\169\000\000\005\169\000\000\000\000\018~\000\000\000\000\000\000\000\000\004n\000\000\004r\000\000\005\169\000\000\000\000\000\000\000\000\000\000\005\169\005\169\000\000\000\000\000\000\000\000\007\222\000\000\000\000\005\169\000\000\000\000\005\169\000\000\006I\000\000\000\000\005\169\005\169\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\169\006I\002\225\000\000\005\169\000\000\001\210\002\225\000\000\000\000\002\250\000\000\000\000\002\225\005\169\005\169\005\169\002\225\005\169\005\169\000\000\002\254\000\000\000\000\002\225\000\n\000\000\000\000\006\218\0032\001\190\005\169\000\000\000\000\015:\005\169\002\178\002\225\000\000\003:\002\225\002\225\000\000\b\026\b\030\b*\005\169\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\165\007\030\000\000\005\130\005\134\005\165\002\225\000\000\005\165\000\000\000\000\000\000\000\000\000\000\002\225\002\225\000\000\015v\005\165\000\000\005\165\000\000\005\165\000\000\005\165\000\000\000\000\005\138\b2\000\000\000\000\000\000\bJ\004r\000\000\000\000\005\165\000\000\002\225\000\000\000\000\000\000\005\165\007\138\002\225\000\000\000\000\000\000\000\000\000\000\000\000\005\165\000\000\000\000\005\165\000\000\000\000\004\133\000\000\005\165\005\165\000\238\021\194\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\165\000\000\005\193\005\193\005\165\000\000\003\182\005\193\000\000\000\000\005\193\000\000\000\000\000\000\005\165\005\165\005\165\000\000\005\165\005\165\005\193\000\000\005\193\000\000\005\193\000\000\005\193\000\000\0222\000\000\000\000\005\165\000\000\000\000\000\000\005\165\017\018\000\000\005\193\000\000\000\000\017*\000\000\000\000\005\193\005\193\005\165\000\000\000\000\000\000\022\214\022\230\000\000\005\193\000\000\000\000\005\193\000\000\000\000\000\000\000\000\005\193\005\193\005\193\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\133\005\193\000\000\005\189\007\030\005\193\000\000\000\000\005\189\023\218\000\000\005\189\000\000\000\000\000\000\005\193\005\193\005\193\000\000\005\193\005\193\005\189\000\000\005\189\000\000\005\189\000\000\005\189\000\000\000\000\000\000\000\000\005\193\000\000\000\000\000\000\005\193\000\000\000\000\005\189\000\000\000\000\000\000\000\000\000\000\005\189\007\138\007\130\000\000\000\000\000\000\000\000\000\000\000\000\005\189\000\000\000\000\005\189\000\000\000\000\000\000\000\000\005\189\005\189\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\189\003V\002\190\000\000\005\189\002\130\000\000\006\166\000\000\000\000\002\246\000\000\000\000\000\000\005\189\005\189\005\189\000\000\005\189\005\189\001\210\000\000\006\198\000\000\000\000\000\000\000\000\003Z\000\000\000\000\b\226\005\189\000\000\000\000\000\000\005\189\000\000\000\000\000\000\000\000\003f\000\000\000\000\n\174\001\190\000\000\005\189\012\186\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\n\190\005v\t\202\000\000\000\000\012:\000\000\000\000\000\000\b\245\000\000\000\000\000\000\005z\000\000\000\000\n\002\n\026\n\"\n\n\n*\005\130\005\134\000\000\000\000\n\198\000\000\000\000\000\000\000\000\n2\n:\000\000\000\000\000\000\000\000\000\000\000\000\000\000\nB\n\206\000\000\000\000\n\218\000\000\005\138\000\000\000\238\000\000\000\000\000\000\004r\000\000\000\000\000\000\000\000\t\210\n\018\nJ\nR\nb\000\000\003=\000\000\000\000\000\000\000\000\003=\nj\001\206\003=\000\000\000\000\000\000\000\000\000\000\000\000\nr\000\000\000\000\003=\000\000\000\000\000\000\003=\000\000\003=\000\000\000\000\000\000\000\000\n\146\000\000\n\154\nZ\000\000\000\000\000\000\003=\000\000\nz\000\000\000\000\000\000\003=\000\000\000\000\001M\n\130\n\138\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\153\001\133\001I\001I\001I\000\000\001I\001I\000\000\012\153\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\153\000\000\000\000\000\000\000\000\000\000\012\153\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\153\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\130\001\213\000\000\002\130\000\000\0019\000\000\000\000\000\000\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\000\000\000\000\000\000\001\213\000\000\000\000\000\000\000\000\000\000\001\213\000\000\000\000\000\000\000\000\0019\015\134\000\000\000\000\001\213\000\000\000\000\001\213\000\000\000\000\000\000\0019\001\213\001\213\000\000\015\146\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\213\000Y\000\000\000\000\001\213\000\000\000Y\000\000\000Y\000\000\000\000\000\000\000\000\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\145\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\166\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\006\198\000\000\000Y\000\000\000\000\003Z\000\000\b\145\b\226\000\000\000\000\000Y\004Y\007\030\000Y\000\000\t&\004Y\003f\000\000\004Y\r\166\001\190\000\000\000\000\000\000\000\000\000Y\002\178\000\000\004Y\003\246\000\000\000\000\004Y\003\250\004Y\004\002\000\000\n\190\005v\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004Y\000\000\000\000\000\000\005z\000\000\004Y\007\138\000\000\000\000\004Y\000\000\005\130\005\134\000\000\004Y\000\000\000\000\004Y\000\000\000\000\000\000\000\000\004Y\002\226\000\238\000\000\000\000\000\000\000\000\000\000\000\000\004Y\004Y\r\182\000\000\005\138\000\000\000\000\004Y\004Y\000\000\004r\004Y\000\000\012\022\000\000\000\000\000\000\000\000\012\022\000\000\000\000\004Y\004Y\000\000\000\000\004Y\004Y\000\000\000\000\t\202\000\000\000\000\000\000\000\000\t\202\004Y\012\026\000\000\000\000\000\000\000\000\012\242\004Y\n\002\n\026\n\"\n\n\n*\n\002\n\026\n\"\n\n\n*\004Y\000\000\000\000\000\000\n2\n:\000\000\000\000\000\000\n2\n:\000\000\000\000\nB\000\000\000\000\000\000\000\000\nB\000\000\000\000\000\238\000\000\000\000\000\000\000\000\000\238\000\000\000\000\000\000\t\210\n\018\nJ\nR\nb\t\210\n\018\nJ\nR\nb\000\000\000\000\nj\000\000\000\000\000\000\000\000\nj\000\000\000\000\000\000\nr\000\000\0035\000\000\000\000\nr\000\000\0035\000\000\000\000\0035\000\000\000\000\000\000\n\146\000\000\n\154\nZ\000\000\n\146\0035\n\154\nZ\nz\0035\000\000\0035\000\000\nz\000\000\000\000\n\130\n\138\000\000\000\000\000\000\n\130\n\138\0035\015\154\000\000\000\000\000\000\000\000\0035\000\000\000\000\000\000\000\000\000\000\000\000\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\166\000\000\000\000\002\246\000\000\000\000\000\000\0035\000\000\000\000\000\000\0035\000\000\001\210\000\000\006\198\000\000\000\000\000\000\000\000\003Z\0035\0035\b\226\000\000\0035\0035\000\000\000\000\000\000\000\000\023B\000\000\003f\000\000\0035\003r\001\190\000\000\000\000\000\000\015\250\0035\002\178\000\000\000\000\003\246\0035\000\000\000\000\003\250\000\000\004\002\0035\n\190\005v\000\000\000\000\000\000\003V\002\190\000\000\000\000\002\130\000\000\006\166\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\178\006\198\000\000\000\000\000\000\000\000\003Z\000\000\000\000\b\226\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\024\014\003f\005\138\000\000\n\174\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\n\190\005v\000\000\000\000\000\000\003V\002\190\000\000\000\000\002\130\000\000\006\166\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\n\198\006\198\000\000\000\000\000\000\000\000\003Z\000\000\000\000\b\226\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\022J\003f\005\138\000\000\n\174\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\n\190\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\n\198\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\170\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\017\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\017\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\022\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\017\000\000\002\225\000\000\004r\004A\004A\000\000\000\000\004A\002\225\002\225\000\000\002\225\004A\000\000\000\000\000\000\000\000\000\000\004A\000\000\000\000\000\000\004A\000\000\000\000\000\000\000\000\000\000\000\000\004A\022\250\000\000\002\225\023\018\000\000\000\000\002\225\000\000\002\225\000\000\000\000\000\000\004A\000\000\000\000\004A\004A\000\000\000\000\000\000\000\000\000\000\004A\000\000\000\000\004A\000\000\000\000\000\238\004A\000\000\004A\004A\000\000\004A\0035\000\000\000\000\000\000\0035\0035\000\000\000\000\0035\0035\000\000\004A\0035\000\000\000\000\000\000\000\000\000\000\0035\004A\004A\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\154\000\000\000\000\0035\015\154\0035\004A\000\000\000\000\0035\000\000\000\000\004A\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\134\000\000\0035\0035\025\182\000\000\0035\0035\012\145\000\000\000\000\000\000\000\000\012\145\000\000\000\000\012\145\000\000\015\250\0035\000\000\000\000\015\250\0035\0035\000\000\012\145\000\000\0035\000\000\012\145\000\000\012\145\000\000\000\000\000\000\000\000\000\000\004\253\000\000\000\000\000\000\000\000\000\000\012\145\000\000\000\000\000\000\000\000\000\000\012\145\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\145\000\000\000\000\012\145\000\000\000\000\003V\002\190\012\145\012\145\002\130\000\000\006\166\000\000\000\000\002\246\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\145\001\210\000\000\006\198\012\145\000\000\000\000\000\000\003Z\000\000\000\000\b\226\000\000\000\000\012\145\012\145\002z\000\000\012\145\012\145\000\000\003f\000\000\000\000\t\014\001\190\000\000\000\000\012\145\000\000\000\000\002\178\026v\000\000\003\246\012\145\000\000\000\000\003\250\000\000\004\002\000\000\n\190\005v\005U\000\000\012\145\000\000\000\000\005U\000\000\000\000\005U\000\000\000\000\005z\000\000\000\000\000\000\000\000\000\000\000\000\005U\005\130\005\134\000\000\005U\000\000\005U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\005U\000\000\000\000\000\000\000\000\000\000\005U\005\138\000\000\000\000\000\000\000\000\007\222\004r\000\000\005U\000\000\000\000\005U\000\000\000\000\000\000\000\000\005U\005U\000\238\000\000\005Y\000\000\000\000\000\000\000\000\005Y\000\000\000\000\005Y\000\000\000\000\000\000\005U\005U\000\000\000\000\005U\000\000\005Y\000\000\000\000\000\000\005Y\000\000\005Y\000\000\005U\005U\000\000\000\000\005U\005U\000\000\000\000\000\000\000\000\005Y\000\000\000\000\000\000\000\000\000\000\005Y\000\000\0035\000\000\000\000\005U\007\222\0035\000\000\005Y\0035\000\000\005Y\000\000\000\000\000\000\005U\005Y\005Y\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\005Y\005Y\000\000\000\000\005Y\0035\015\154\000\000\000\000\000\000\000\000\0035\000\000\000\000\005Y\005Y\000\000\000\000\005Y\005Y\0035\000\000\000\000\0035\000\000\000\000\000\000\000\000\0035\0035\0035\006\001\000\000\000\000\000\000\005Y\006\001\000\000\000\000\006\001\000\000\000\000\000\000\000\000\0035\000\000\005Y\000\000\0035\006\001\000\000\000\000\000\000\006\001\000\000\006\001\000\000\000\000\0035\0035\017\130\000\000\0035\0035\000\000\000\000\000\000\006\001\000\000\000\000\000\000\000\000\000\000\006\001\000\000\000\000\000\000\000\000\015\250\0035\000\000\000\000\006\001\000\000\000\000\006\001\000\000\000\000\000\000\000\000\006\001\006\001\000\238\000\000\000\000\000\000\000\000\000\000\025^\000\000\000\000\000\000\000\000\000\000\003V\002\190\006\001\000\000\002\130\000\000\006\001\000\000\000\000\002\246\000\000\000\000\000\000\000\000\000\000\000\000\006\001\006\001\021>\001\210\006\001\006\001\000\000\000\000\000\000\000\000\003Z\001\202\001\206\000\000\006\001\000\000\000\000\000\000\000\000\000\000\000\000\006\001\000\000\003f\000\000\000\000\003r\001\190\000\000\000\000\001\210\001\214\006\001\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\209\000\000\005\138\000\000\006\146\000\000\b\202\003f\004r\000\000\003r\001\190\000\000\000\000\000\000\000\000\026\002\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\006.\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\006R\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\006:\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\129\000\000\000\000\007\129\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\129\007\129\003\246\007\129\007\129\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\006M\000\000\000\000\005z\007\129\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\006M\000\000\007\129\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\166\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\129\000\000\007\129\002\178\000\000\000\000\003\246\000\000\000\000\001\210\003\250\000\000\004\002\005j\005\226\005v\003Z\007\129\007\129\000\000\000\000\000\000\007\129\000\000\007\129\000\000\000\000\005z\007\129\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\178\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\190\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\006q\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\006q\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\b\026\b\030\b*\000\000\000\000\005v\000\000\000\000\000\000\006\249\007\030\000\000\000\000\000\000\006\249\000\000\000\000\006\249\000\000\000\000\000\000\000\000\000\000\000\000\000\000\005\130\005\134\006\249\000\000\000\000\000\000\006\249\000\000\006\249\000\000\001\181\000\000\000\000\000\000\000\000\001\181\000\000\000\000\001\181\000\000\006\249\000\000\000\000\000\000\005\138\b2\006\249\007\138\001\181\bJ\004r\000\000\001\181\000\000\001\181\006\249\000\000\000\000\006\249\000\000\000\000\000\000\000\000\006\249\006\249\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\006\249\000\000\001\181\000\000\006\249\001\181\000\000\000\000\000\000\000\000\001\181\001\181\001\181\000\000\006\249\006\249\000\000\000\000\006\249\006\249\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\006\249\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\142\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\005\000\000\000\000\000\000\000\000\006\005\001\217\000\000\006\005\001\217\000\000\000\000\000\000\000\000\001\217\001\217\000\000\000\000\006\005\000\000\000\000\000\000\006\005\000\000\006\005\000\000\000\000\000\000\000\000\000\000\001\217\000\000\000\000\000\000\001\217\000\000\006\005\000\000\000\000\000\000\000\000\000\000\006\005\000\000\001\217\001\217\000\000\000\000\001\217\001\217\000\000\006\005\000\000\000\000\006\005\000\000\000\000\000\000\001\217\006\005\006\005\000\238\000\000\000\000\000\000\001\217\000\000\000\000\000\000\000\000\021\026\000\000\000\000\000\000\000\000\006\005\001\217\012\145\000\000\006\005\000\000\000\000\012\145\000\000\000\000\012\145\000\000\000\000\000\000\006\005\006\005\000\000\000\000\006\005\006\005\012\145\000\000\000\000\000\000\012\145\000\000\012\145\000\000\006\005\000\000\000\000\000\000\004\253\000\000\000\000\006\005\000\000\000\000\012\145\000\000\000\000\000\000\000\000\000\000\012\145\000\000\006\005\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012\145\000\000\000\000\000\000\000\000\012\145\012\145\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012I\000\000\002\190\012I\000\000\028\002\000\000\012\145\000\000\000\000\028\006\000\000\000\000\012I\000\000\000\000\000\000\000\000\000\000\012I\000\000\012\145\012\145\002z\000\000\012\145\012\145\000\000\000\000\000\000\000\000\012I\000\000\000\000\000\000\012\145\000\000\012I\000\000\026\174\000\000\000\000\012\145\001\002\001\190\000\000\012I\000\000\000\000\012I\000\000\000\000\000\000\012\145\012I\004Y\000\000\000\000\000\000\000\000\004Y\000\000\028\n\004Y\000\000\000\000\000\000\000\000\000\000\000\000\012I\000\000\000\000\004Y\012I\000\000\000\000\004Y\000\000\004Y\000\000\000\000\000\000\028\014\012I\012I\000\000\000\000\012I\000\000\000\000\004Y\000\000\000\000\000\000\000\000\000\000\004Y\b1\b1\000\000\000\000\b1\007\222\000\000\012I\004Y\b1\000\000\004Y\000\000\000\000\000\000\016*\004Y\002\226\000\238\b1\000\000\000\000\000\000\000\000\000\000\000\000\b1\000\000\000\000\000\000\000\000\000\000\004Y\000\000\000\000\000\000\004Y\000\000\000\000\b1\000\000\000\000\b1\b1\000\000\000\000\004Y\004Y\000\000\b1\004Y\004Y\b1\000\000\000\000\000\000\b1\000\000\b1\b1\007J\b1\000\000\000\000\000\000\000\000\001q\004Y\000\000\000\000\000\000\001q\025~\b1\001q\000\000\000\000\000\000\004Y\000\000\000\000\b1\b1\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\b1\000\000\000\000\001q\000\000\000\237\b1\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\006\245\000\000\000\000\000\000\000\000\006\245\000\237\000\000\006\245\000\000\000\241\000\000\000\000\000\000\000\000\000\000\000\241\000\237\006\245\000\000\000\000\000\000\006\245\000\000\006\245\000\241\000\000\000\000\000\241\000\000\000\000\000\000\000\000\000\241\000\241\000\238\006\245\000\000\000\000\000\000\000\000\000\000\006\245\000\000\000\000\000\000\000\000\000\000\000\000\000\241\000\000\006\245\000\000\000\241\006\245\000\000\000\000\000\000\000\000\006\245\006\245\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\006\245\000\000\000\000\000\000\006\245\000\000\000\000\000\000\000\000\000\241\000\000\006\201\006\201\000\000\006\245\006\245\016\194\000\000\006\245\006\245\000\241\005\249\000\000\000\000\000\000\000\000\005\249\000\000\000\000\005\249\006\201\006\201\006\201\000\000\000\000\006\245\017b\000\000\000\000\005\249\006\201\000\000\000\000\005\249\000\000\005\249\000\000\005a\007\030\000\000\000\000\000\000\005a\006\201\006\201\005a\000\000\005\249\006\201\000\000\006\201\006\201\006\201\005\249\000\000\005a\000\000\006\201\000\000\005a\000\000\005a\005\249\000\000\000\000\005\249\000\000\000\000\000\000\000\000\005\249\005\249\000\000\005a\006\201\000\000\000\000\000\000\000\000\005a\007\138\000\000\000\000\000\000\000\000\000\000\005\249\000\000\000\000\000\000\005\249\005a\000\000\000\000\000\000\000\000\005a\005a\000\238\000\000\005\249\005\249\000\000\000\000\005\249\005\249\000\000\000\000\000\000\000\000\011\249\000\000\005a\000\000\000\000\011\249\000\000\004\230\011\249\000\000\000\000\005\249\000\000\000\000\000\000\000\000\005a\005a\011\249\000\000\005a\005a\011\249\000\000\011\249\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\011\249\005a\000\000\000\000\000\000\000\000\011\249\000\000\000\000\000\000\000\000\000\000\000\000\001\202\002~\011\249\000\000\002\130\011\249\000\000\000\000\000\000\000\000\011\249\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\011\249\t\190\000\000\001\242\011\249\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\011\249\011\249\002\138\002\146\011\249\011\249\000\000\002\158\000\000\002\178\004\030\004*\0041\000\000\000\000\000\000\020\242\0041\026Z\004)\0041\011\249\000\000\000\000\004)\000\000\000\000\004)\000\000\000\000\0041\000\000\n\162\004:\0041\000\000\0041\004)\000\000\000\000\000\000\004)\005\134\004)\000\000\000\000\000\000\000\000\0041\000\000\000\000\000\000\026f\000\000\0041\004)\000\000\000\000\000\000\000\000\000\000\004)\000\000\0041\000\000\000\000\0041\000\000\000\000\021\006\004)\0041\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\0041\000\000\000\000\000\000\0041\004I\000\000\004)\000\000\000\000\004I\004)\004\025\004I\0041\0041\000\000\004\025\0041\0041\004\025\004)\004)\004I\000\000\004)\004)\004I\000\000\004I\004\025\000\000\000\000\000\000\004\025\0041\004\025\000\000\000\000\000\000\000\000\004I\004)\000\000\000\000\000\000\016\234\004I\004\025\000\000\000\000\000\000\000\000\019\214\004\025\000\000\004I\000\000\000\000\004I\000\000\000\000\000\000\004\025\004I\000\000\004\025\000\000\000\000\000\000\000\000\004\025\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004I\000\000\000\000\n\222\004I\000\000\000\000\004\025\000\000\001\202\001\206\004\025\000\000\000\000\004I\004I\000\000\000\000\004I\004I\000\000\004\025\004\025\002\142\000\000\004\025\004\025\000\000\001\210\001\214\001\230\000\000\000\000\000\000\000\000\004I\000\000\000\000\001\242\000\000\000\000\000\000\004\025\000\000\000\000\001\250\020\182\006\205\006\205\000\000\000\000\001\246\002\146\024.\000\000\000\000\002\158\000\000\002\178\004\030\004*\000\000\000\000\004.\000\000\0046\006\205\006\205\006\205\000\000\000\000\000\000\000\000\000\000\000\000\000\000\006\205\000\000\000\000\000\000\000\000\000\000\004:\000\000\000\000\000\000\000\000\000\000\000\000\006\205\006\205\000\000\000\000\000\000\006\205\000\000\006\205\006\205\006\205\000\000\0049\000\000\000\000\006\205\000\000\0049\000\000\004!\0049\000\000\000\000\015\138\004!\000\000\000\000\004!\000\000\000\000\0049\000\000\006\205\000\000\0049\000\000\0049\004!\000\000\000\000\000\000\004!\000\000\004!\000\000\000\000\000\000\000\000\0049\000\000\000\000\000\000\000\000\000\000\0049\004!\000\000\004Q\000\000\000\000\000\000\004!\004Q\000\000\000\000\004Q\0049\000\000\004\"\000\000\006\205\0049\000\000\004!\000\000\004Q\000\000\000\000\004!\004Q\000\000\004Q\000\000\000\000\000\000\000\000\000\000\0049\000\000\000\000\000\000\000\000\000\000\004Q\004!\000\000\000\000\000\000\000\000\004Q\000\000\0049\0049\000\000\000\000\0049\0049\000\000\004!\004!\000\000\004Q\004!\004!\000\000\000\000\004Q\011*\000\000\000\000\000\000\000\000\0049\001\202\001\206\000\000\000\000\000\000\000\000\004!\000\000\000\000\004Q\018\018\000\000\000\000\000\000\000\000\000\000\003\254\020b\000\000\001\210\001\214\001\230\000\000\004Q\004Q\000\000\000\000\004Q\004Q\001\242\004m\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\004Q\000\000\000\000\002\158\003\178\002\178\004\030\004*\004m\000\000\003\182\020\222\0046\007\149\000\000\000\000\007\149\000\000\000\000\000\000\000\000\000\000\003\186\000\000\000\000\000\000\000\000\000\000\016\174\004:\000\000\000\000\007\149\007\149\000\000\007\149\007\149\024Z\000\000\000\000\017\018\000\000\000\000\000\000\000\000\017*\000\000\000\000\000\000\007m\000\000\000\000\007m\000\000\000\000\000\000\007\149\000\000\000\000\000\000\000\000\0172\000\000\000\000\000\000\004n\000\000\004r\007m\007m\000\000\007m\007m\000\000\000\238\017F\017r\000\000\000\000\004m\004m\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\007m\000\000\007\153\000\000\021\154\007\153\000\000\000\000\000\000\000\000\000\000\000\000\007\149\000\000\007\149\000\000\000\000\000\000\007m\000\000\000\000\007\153\007\153\000\000\007\153\007\153\007\149\000\000\000\000\005\234\007\149\000\000\000\000\000\000\007\149\007\137\007\149\000\000\007\137\000\000\007\149\000\000\000\000\000\000\000\000\007\153\000\000\000\000\007m\000\000\007m\000\000\000\000\000\000\007\137\007\137\000\000\007\137\007\137\000\000\000\000\000\000\007m\000\238\000\000\005\234\007m\000\000\000\000\000\000\007m\000\000\007m\000\000\000\000\000\000\007m\000\000\007\137\000\000\rI\rI\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\007\153\000\000\007\153\000\238\000\000\000\000\rI\rI\rI\0072\000\000\000\000\000\000\000\000\007\153\000\000\rI\005\234\007\153\000\000\000\000\000\000\007\153\000\000\007\153\001\202\001\206\022N\007\153\rI\rI\000\000\000\000\007\137\rI\007\137\rI\rI\rI\000\000\000\000\000\000\000\000\rI\001\210\002\170\001\230\006*\000\000\000\000\005\234\007\137\000\000\000\000\001\242\007\137\000\000\007\137\000\000\000\000\rI\007\137\000\000\001\202\001\206\022\174\000\000\001\246\002\146\000\000\000\000\000\000\002\158\000\000\002\178\004\030\004*\000\000\000\000\000\000\000\000\0046\001\210\002\170\001\230\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\242\000\000\000\000\000\000\000\246\000\000\004:\002\194\000\000\000\000\000\000\000\000\000\000\001\246\002\146\000\000\000\000\004\141\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\174\000\000\000\000\004:\000\000\000\000\000\000\000\000\000\000\024Z\000\000\000\000\017\018\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\000\000\000\000\0172\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\017F\017r\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\154"))
|
|
|
|
and lhs =
|
|
(8, "\012\011\n\t\b\007\006\005\004\003\002\001\000\216\216\215\215\214\213\213\212\212\212\212\212\212\212\212\212\212\212\212\212\212\212\212\212\212\212\212\211\211\210\209\209\209\209\209\209\209\209\208\208\208\208\208\208\208\208\207\207\207\206\206\205\204\204\204\203\203\202\202\202\202\202\202\201\201\201\201\201\201\201\201\200\200\200\200\200\200\200\200\199\199\199\199\198\197\196\196\196\196\195\195\195\195\194\194\194\193\193\193\193\192\191\191\191\190\190\189\189\188\188\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\187\186\186\185\185\184\183\182\181\181\180\180\179\179\179\179\178\178\178\178\177\177\176\176\176\176\175\174\173\173\172\172\171\171\170\169\169\168\167\167\166\165\164\164\164\163\163\162\161\161\161\161\161\160\160\160\160\160\160\160\160\159\159\159\159\159\159\158\158\157\157\157\156\156\155\155\155\154\154\153\153\152\152\151\151\150\150\149\149\148\148\147\147\146\146\145\145\144\144\144\143\143\143\143\142\142\141\141\140\140\139\139\139\139\139\138\138\138\138\137\137\137\136\136\136\136\136\136\136\135\135\135\135\135\135\135\134\134\133\133\132\132\132\132\132\132\131\131\130\130\129\129\128\128\127\127\127~}}}||{{{{{{{{{zzyyxxxxxxxxxxxwvuutttttsrrqqppppppppppppppoonnmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmllkkjjiihhggffeeddccbbaaaaaaaaaaa`_^]\\[ZYXWWWWWWWWWWVVVUUUTTTTSSSSSSSSSRRQQQQQPPOONMLLKKKKKJJIIHHHGGGGGGFFFEEDDCCBBAA@@@??>>==<<;;::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\r\r")
|
|
|
|
and goto =
|
|
((16, "\000%\000\193\000G\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\012\000\000\000\000\000\129\001\152\000\030\0003\000#\000\004\000\190\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000b\000\000\000\000\000\000\000\000\000\000\000t\000\000\000\000\000\000\000\242\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000=2\000\000\000\000\000\000\000\254\000\000\000\000\000\000\000\000\000\000\000\000\000\000'\238\001T\001>\000\223\000\000\001B9\220\001\236\001\218\000:\000\000\000\000\000\000\001x\000\000\000\000\000\182\000\000\000\000\000\000\000\000\003\156\000\000\002\150\000\000\000\000\000\000\000\000\000\000\001\022\000\000\000\218\003\202\bf\000\000\000\000\011\018'\238\000\000\000\000\001\254\000\000\000\027\000\000:~\002\184\000\000\001\156\001r\000\000\000\000\002\172\002\142\002\208\003b\001\226\003\202\004\142\000f\001\194\0022\003\216\002\152\011b\000\000\005(\003\244\003\188\002h\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004r\000\000\t>\005(\011\194\000\000\000\000\004.\005d\004\0301\236\000\000\000\000\000\000\000\000\000\000\000\000\000\000\007\148\000\000\004\168\005l\005@\000\000\000\000\000\000\000\000\000\173\000\000\000\000\005\144\000\167\006\018\006(\007\214\000\000\0050\005H\006*\000Q\004\228\006L \232\000\000\000\000\005X\006\254\011\204\000\000!\b\001\244!\026\"V\000\000\003B\000\000\000\000\000\000\000\000\006\018=F\006\020\000\000\001\012\0064\000\000\004P6\150\000\131\000\000\001\172\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0002:\005\190\000\000\000\000\000\000\000\192\000\000\tD\000\000\000\000\002\164\000o\000\000\000\000\003\248\000\000\006n\000\000\002\164\t\148\002\164\000\000\000\000\000\000\000\000\000\0007 \000\000\007\"\006@\000\000=\168\007N\030`\000\000\000\000\000\000\0062\000\000\000\000\000\000\000\000\006F\000\000\000\000\000\000\000\000\000\0002L\000\000\000\000\000\000\000\000\000\000\000\000\001\158\007N\000\000\000\000\000\000\006F\007\1342\146\006\224\007p\015\214\000\000\003\014\000\000\000\000\000\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\0122\160\000\000\000\000\007\030\b\0042\214\000\000\000\000\000\00038\007\0143\152\000\000\007\014\000\0003\164\007\014\000\0003\228\007\014\000\000\007\014\000\000\000\000\007\014\000\000\000\0004J\000\000\007\0144\138\000\000\007\014\002|\000\000\000\000\"V\000\000\000\000\000\000\000\000\007\014\"z\000\000\000\000\000\000\007\014\000\000\006F\007\246\000\000\000\000\000\000\000\000\000\000\000\000\000\000\006\016\000\000\007\136\000\000=\132\006F\000\000\000\000\000\000\000\000\b\b\b\184\012$\b\026\b\030\b@\b\028\005\014\b`\0001\t\006\000\000\000\000\000\029\005\136\b\160\001\172\b\200\bL\000\000\000\145\004\138\005\180\007\136\n\"\000\000\000\000C\158\000\000C\224\t\212\000\000=\198\006F>@\006F\000\000\003\"\000\000\003x\000\000\000\000\003\220\000\000\000\000\000\000\nt\000\000\n\030\000\145\000\000\000\000\t>\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\145\000\000\000\000\000\145\000\000\b\200\007\014\000\000\002\182\004\228\000\000\002\182\000\000\000\000\n\206\000\145\000\000\000\000\000\000\000\000\000\000\000\000\002\182\012\132\rL\n4\t\218\"\152\000n\000\000\t\130\b\182\r\158\t\234\b\228\025X1N\000\000\000\000\000\000\000\000\000\000\0032\t\188\000\000\000\000\000\000\t\250\b\244\007V\002\182\011\240\000\000\000\145\000\000\000\000\000\000\001\244\000\000>T\006F\r\166\n\018\t\030\r\254\n \t0\014\180\"\186\007\014\015\024\n\"\t89\190\n\244\000\000#\002\007\014>x\006F\n\238\000\000\000\000\000\000\000\000\007\148\011&\011L\000\000\000\000\b\176\015 \n\208\t>4\172\007\014\015t\n\222\tF6(\000\000>\172\000\000\000\000\015|\"\244\018\\\000\000\000\000\000\000\000\000>\208\000\000\000\000\000\000\007\172\016B\000\000\000\000\000\000\000\000#^>\222\000\000\000\000\000\000\000\000\000\000\n\170\016\150\000\000\n\180$\"\n\180$,\n\180\000\000?\026\000\000$\128\n\180\016\234\004\152\016\244\000\000\000\000$\136\n\180%\022\n\180%\030\n\180%\250\n\180&\002\n\180&\026\n\180&\152\n\180&\246\n\180&\254\n\180'\140\n\180'\148\n\180'\232\n\180(v\n\180(\128\n\180)\014\n\180)^\n\180)h\n\180)\246\n\180*F\n\180*\212\n\180\t\170*\2484\232\007\148\011x\000\000+8;l\000\000\017N\000\000?,\000\000\006F;\166\000\000\006F?P\006F\000\000\017\184\000\000\000\000\000\000+\\\000\000\000\000\000\000\000\000\000\000\007\014\000\000\000\000?\210\000\000\006F\000\000\000\000;\166\011\136\000\000@6\006F\018\018\000\000\000\000\011\"\000\000@H\006F\018\160\000\000\000\000\018\196\000\000\000\000\000\000@Z\006F\019\028\000\000\n\252\019\132\000\0005J\000\000\007\0145\142\000\000\007\0145\176\000\000\007\014\003d\000\000\000\000\000\000\000\000\000\0005\240\007\014\004\222\005\022\000\000\000\000\000\000\n\180\019\222\000\000\000\000\000\000+\150\n\180\000\000\000\000\000\000\000\000\0206\000\000\000\000\000\000\n\180\020D\000\000\020\158\000\000\000\000\000\000\021\004\000\000\000\000\000\000\000\000@\146\000\000\000\000\021^\000\000\000\000\000\000,H\n\180\021l\000\000\000\000\000\000,\138\n\180\021\196\000\000\000\000,\176\n\180\n\180\000\000\007\228\022\030\000\000\000\000-\b\n\180\022l\000\000\000\000-(\n\180-v\n\180\000\000.\004\n\180\000\000\000\000\022\250\000\000\000\000.\152\n\180\023,\000\000\000\000.\200\n\180\023\\\000\000\000\000.\232\n\180\000\000/\000\n\180\000\000;\138\000\000\000\000\n\180\000\000\000\000\023\142\000\000\000\000\023\192\000\000\000\000\011D\000\000\000\000\024\028\000\000\024$\000\000\000\000\000\000\007\148\011\226\000\0007\022\n<\002\164\025\004\000\0007r\000\000\000\000\000\0007\194\000\000\000\000\025$\000\000\025\146\000\000\000\000\000\000\000\000/\n\000\000\000\000\000\000/f\n\1800r\n\180\000\000\n\252\025\156\000\000\000\000\025\236\000\0000T\000\000\000\0001N\000\000\000\000\000\000\026\134\000\000\000\000\000\000\000\000\026\144\000\000\000\000\000\000\000\000\012\152\000\000\000\000\000\000\003\154\000\000\000<\000\000\000;\000\000\0128\000\000\004\144\000\000\000\000\000\000\000\000\000\000\000\000\0032\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\n\180\000\000\012\164\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\t\184\007\232\002\182\027T\000\000\011\166\t\224\012*\001\144\t\136\002\182\r@\000\145\t\176\002\182\000\000\027x\000\000\004\142\000\000\011\194\t\238\004X\000\000\000\000\000\000\000\000\000\000\011\218\001.\000\146\000\000\000\000\000\000;\222\000\000C\240\000\000\t\246\000\000\n\016\000\000\000\000\000\000\000\000\002\158\000\000\000\000\000\000\011*\002\164\000\000\002\164\001\178\000\000\rv\002\164\002\164\n\024\000\000\027\186\000\000\000\000\n8\012\172\000\0000\180\005$\000\000\000\000\000\000\000\000\000\000\000\000\n\180\000\000\028\180\000\000\n\180\000\000\000\000\014\242\000\000\000\145\000\000\016H\000\000\000\145\000\000\017\012\000\145\000\000\003Z\000\000\n<\n\022\005`\000\000\011\226\011\234\nV\012\024\012\164\017T\000\145\006\012\000\000\nZ\012\134\012\188\005\024\006\184\012\150\n\130\r\014\006\146\b\132\012\228\000\000\000\000\007\188\b\148\000\000\004\168\002\2426N\007\014\028\028\000\000\007X\003\178\012\158\n\154\011^\005\224\000\000\012\168\n\158\006\200\000\000@\172\006F\rZ\r\132\000\000\t:\000\000\012\244\n\166\006>\r2\003V\000\000\000\000\000\000\000\000\n\216\tZ\000\000\n\222\tl\000\000\bb\0164\rF\rP\n\228\006\216\t\172\000\000\n\230\007\138\n\018\000\000\rR\n\238\r\220\000\000\t\028\000\000\n\132\000\000\r\252\000\000\018\024\000\145\r\216\011\002\014\022\000\000\018\202\0056\r\236\000\000\000\000\003j\006\160\011$\000\000\019\228\000\145\011F\000\000\004\022\000\000\r\210\011\016\0212\006\154\000\000\r\222\011>\007\176\r2\r\230\r\240\011L\015F\000\000\014\000\001\200\000\000\000\000\000\000\000\000\000\171\011X\r\226@\190\006F\000\000\002\200\011\142\014\148\000\000\000\000\000\000\000\000\000\000\000\000A\000\006\164\000\000\011\182\014\246\000\000\000\000\000\000\000\000\000\000\000\000\006\174\000\000A\030\006F\011\226\000\000\006F\011\218\000\184\000\000\011\230\011\232\007\024\000\000\001\004\004L\000\000\002\190\000\000A\"\006F\006F\000\000\000\000\007\b\000\000\b\252\000\000\001\186\007\b\007\b\000\000\011\236;\204\006FA\152\006F\012\b\000\000\000\000\000\000\000\000\012\014\000\000\000\000\007N\000\000\007l\014`\011\240\015p\014*\000\000\000\000\001\196\b|\014h\000\000\000\000\011\250\015\128\014@\000\000\000\000\029\018\000\000\012\222\000\000!(6H\006F\000\000,N\018\132\000\000A\252\000\000\000\000\000\000\007\b\000\000\000\000\012:\014|\012\000\015\144\014J\000\000\000\000B\014\012\144\014\140\000\000\000\000\000\000<:\000\000\000\000\000\000\000\000\000\000\000\000\012\146\000\000\014\152\012\020\006\162\000\000\015\134\015>\012\180\014\166\000\000\000\000\014\170\012>\b*\000\000\000\000\tl6\150\005|\000\000\000\000\000\000\bL\014p\012p\000\000\014z\bL\000\000\015V\012\188\014\196\000\000\000\000\000\000\006F\003v\004(\005\180\000\000\000\000\000\000\000\000\014\138\012t\000\000\006\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\006F\014z\012\128\015\208\014\138\000\0007\224\000\237\012\146\014^\003\156\000\019\012\150\015\016\000\000\015\200\028\130\000\000\000\000\029J\000\000\012\208\000\000\nL\000\000\000\000\000\000\000\000\000\000\000\000B\018\006F\000\000\015\204\029l\000\000\000\000\030\002\000\000\000\245\012\156\015r\000\000\000\0007\250:\020\015(\000\000B0\006F\0302\000\000\000\000\030T\000\000\000\000\r0\000\000\000\\\000\000\000\000\000\000\000\000\000\000\000\000:\204\000\000\000\0008\188:\208\015*\000\000BP\006F\030\234\000\000\000\000\031\028\000\000\000\000\012\184\031<\r<\000\000\012\190\012\198\002\016\002\208\012\200\t&\012\214\015|0\214\r\\\000\000\r\016\r2\tf\000\000\004*<Z\000\000\004.\000\000\rH9\0069Z\005\236\014j\006l\000\000\020\144;\138\000\000\0001\000\000\000\000\0001\000\000\000\000\0001\n\002\000\000\011\000\0001\015\1380\238\rh\000\000\0001\000\000\000\000Br\000\000\000\000\000\000\0001\000\000\000\000\r\166\000\000\r\030\005\190\r\200\000\000\rJ<\174\r\248\000\000\000\000\000\000\000\000\014\000\000\000\000\000\006\018\000\000\0001B\232\000\000\014\216\00019h\000\000\014\b\014\242\rN\016\n\014\200\000\0009r\014\014\015\002\000\000\000\000\000\000\019\012\b\026\000\000\000\000\000\000\000\000\000\000\000\000\n\170\014\020\000\000\015\018\000\000\000\000\000\000\000\000\014\026\027F\000\000\000\000\000\000\000\000\n\170\000\000\000\000\014.\031\170\000\000\000\000\000\000\000\000\000\000\002\182\000\145\000\000\000\000\007\014\000\000Bn\006F\000\000\007\212\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\014\202\rP\011\246\002\182\000\000\022\n\000\000\000\145\000\000\016\004\000\000\000\000\000\000\000\000\000\000 (\000\000\000\000\000\000\000\000\000\000\000\000\015\170\002\022\t\210\014p\003\144\r\148\000\000\000\226\000\000\000\000\000\000\000\000\000\000\000\000\000\000\014\138\005^\r\176\000\000\007$\016\n\015\188\014J\000\000\000\000\015\180\002\202\b\150\000\000\000\000\000\000\r\180\000\000\r\206\000\240\000\000\000\000\002\164\b\128\000\000\000\000\000\000\000\000\000\000.\226\000\000\000\000\007h\007\238\000\000\000\000C(\006F\006F\000\000CJ\006F\bP\000\000\000\000\000\000\006F\000\000\000\000\t\246\015\196\014\\\000\000\000\000\015\184\000\170\001\200\000\000\000\000\000\000\000\000\b\002\016\n\nl\015\200\014h\000\000\000\000\015\190\004\188\003\142\000\000\000\000\000\000\000\000\000\145\000\000\b\222\000\000\000\000\000\000 \004\000\000 \182\000\000\000\000\000\000\000\000\000\000-\226\000\000\000\000\000\000\005\022\000\190\000\000\000\000\000\000\000\000\000\000\002V\000\190\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0050\000\000\000\000\000\000<\198\000\000\006F\000\000\n*\000\000\000\000\000\000\001\030\000\000\000\000\000\000\001\214\000\000\000\000\000\000\0001\000\000\000\000\000\0000\250\007\014\000\000\000\000\000\014\000\000\000\000\000\000\000\000\0032\004\128\015\b\004D\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000=.\000\000\014v\000\000\000\000\000\000\000\000\005H\006\246\r@+\182\000\000\000\000\014\150/~\000\000\000\000\000\000\014\162;\020\000\000\000\000\000\000\000\000"), (16, "\006\021\003\169\002\020\002\021\001e\0007\002\251\001\198\000\196\006\184\005{\000\200\000\201\005\158\001\246\001\031\001\230\002X\006\022\006\195\001\234\006\024\001\023\000q\001e\002Y\005\160\006\249\002\021\001e\006\025\006&\001\198\006\021\0067\002\020\002\021\001e\002g\005\210\0066\001\230\001\016\002\003\001\244\001\234\000\200\001\023\001\023\001\026\002X\006\022\006%\000\147\006\024\006\170\001\215\001\246\002Y\006\026\001\235\005\165\001\016\006\025\006&\001k\006\241\005\212\001\023\001\026\003\170\002g\001\016\004\132\001\236\002\020\002\021\001e\001\023\001\026\003\167\005\241\005\213\004&\006\190\001\235\002\003\005\215\000\203\000\200\000;\006\003\006\026\006\027\006\242\006\251\006\188\002i\003\165\001\236\004\219\006\028\002\004\001\230\001\198\003\174\001\242\001\234\002\024\001\023\002k\000\200\004\220\001\230\001\016\000\147\004\244\001\234\000\152\001\023\001\023\001$\005\169\006\135\001\031\006+\006\027\001 \003\187\002\251\002i\000@\001\027\006\252\006\028\002k\000\200\006\162\001\229\005}\006,\002\024\001(\002k\000\200\002\004\000\203\001\235\001\031\006\031\000\153\001\"\006\197\001\238\006!\006\165\000\196\001\235\006+\000\200\001\002\000?\001\031\000\147\006#\001 \000\156\002l\0012\002r\002\023\001\236\001%\006,\0007\002x\000:\001\132\002n\001\031\006$\003\178\006\031\002k\000\200\001\002\005\217\006!\0013\001\"\003\234\002\251\003\168\000\203\001*\001Q\006\\\006#\002z\006\131\002l\000\203\002r\006\021\000m\002\020\002\021\001e\002x\003\250\001\132\002n\000\147\006$\000\157\001\215\001l\003\168\000\\\001\016\002X\006\022\006%\001\016\006\024\001\023\001\026\000`\002Y\001\023\001$\002z\001*\006\025\006&\006\233\001\016\003\245\003\247\003\249\002l\002g\001\023\001$\0007\001\031\0007\001\016\002m\0018\001\132\002n\000\147\001\023\001$\000\152\006\130\001\016\006f\006\168\006\169\001\016\006\026\001\023\001\026\0007\006{\001\023\001$\006]\006\234\001\169\001e\001T\0011\003\250\001\023\004\219\001\016\005W\004\b\001%\001\196\001\031\001\023\001$\006\137\004\167\006g\004\220\000d\001f\002)\004\227\001h\001i\006\027\006h\000y\006\021\002i\002\020\002\021\001e\006\028\001%\002\251\000\129\001.\000\132\001\"\002\024\001>\002k\000\200\004\219\002X\006\022\006%\001%\006\024\006\213\001W\001F\002Y\003\217\006\237\004\220\006+\006\025\006&\004\221\006\131\003\137\002\246\002\247\001%\002g\006e\001\147\001e\001\019\003\253\006,\001\016\0009\001.\001\023\001\016\001H\001\023\001$\006\031\001\016\001\023\001\026\000\128\006!\006\026\001\023\001\026\006\238\006Z\003\254\000\200\001\127\001)\006#\001\016\000\203\002l\000\203\002r\006\166\001\023\001$\001n\003\220\002x\000\200\001\132\002n\001\016\006$\000\147\000\135\006q\001\215\001\023\001$\000\196\001\238\006\027\000\200\000\201\006\021\002i\002\020\002\021\001e\006\028\002z\001%\006\167\003\140\003\145\004\219\002\024\004\000\002k\000\200\004\219\002X\006\022\006%\000=\006\024\000\174\004\220\001`\002Y\005\210\004\226\004\220\006+\006\025\006&\004\252\006y\004\003\003\181\001e\000\134\002g\000\196\001\129\000\186\000\200\000\201\006,\001%\006i\006j\001\130\002\001\001\132\001l\000\203\006\031\005\212\006k\006l\003\234\006!\006\026\002\244\001e\000\147\006-\000\181\001\215\006m\004\b\006#\005\213\001\016\002l\001.\002r\005\215\006\214\001\023\001$\005\238\002x\000\179\001\132\002n\001\016\006$\000\189\002\020\002\021\001e\001\023\001\026\000\196\000\151\006\027\000\200\000\201\006\021\002i\002\020\002\021\001e\006\028\002z\004\236\003\248\003\247\003\249\000\150\002\024\003\165\002k\000\200\002\251\002X\006\022\006%\003\174\006\024\000\202\000\183\005F\002Y\005\210\001\016\000\172\006+\006\025\006&\004\239\001\023\001$\002\001\001\217\000\178\002g\000\200\006i\006j\002\251\003\175\006,\001\031\000\203\004\241\001+\006k\006l\000\203\000\196\006\031\005\212\000\200\001\002\004\215\006!\006\026\006m\004\b\004c\006)\001\003\000\200\002\002\004\242\006#\005\213\004\147\002l\001\"\002r\005\215\007\005\002\021\001e\005\231\002x\001\219\001\132\002n\004'\006$\002\023\001\023\001\031\001\006\001\031\001 \004c\001 \006\027\000\200\0012\003\178\002i\002k\000\200\001\002\006\028\002z\006\021\001\223\002\020\002\021\001e\002\024\006\180\002k\000\200\005\251\005F\001\"\0013\001\"\007\b\007\t\004\213\002X\007\011\001O\004\149\006\024\006+\005M\005N\002Y\004f\001\222\001\132\003\168\006\025\007\r\000\194\001\023\0007\005\254\006\167\006,\002g\005^\003\173\001\016\0007\005W\004\b\002\002\006\031\001\023\001$\001\224\006\000\006!\002l\004\150\001*\006c\001*\001\132\000\184\006\026\002m\006#\001\132\002n\002l\000\196\002r\000\196\000\200\000\201\000\200\000\201\002x\0018\001\132\002n\006\001\006$\007\006\006\206\002k\000\200\006\179\001\016\000\188\001\016\002\020\002\021\001e\001\023\001$\001\023\001$\006\027\000\203\002z\005\210\002i\000\193\001%\006\021\006\028\002\020\002\021\001e\007\028\004\149\002\251\002\024\006G\002k\000\200\005M\005N\003\221\007\020\000\196\002X\007\021\000\200\001\002\006\024\007\016\000\204\005\212\002Y\001.\000\211\005V\001\246\006\025\007\029\005W\004\b\001>\002\251\001>\006?\002g\005\213\006,\001%\002\251\001%\005\215\004\218\005\205\001F\005\222\006\031\001\246\002\251\003\168\006\207\006!\001\250\003\230\004\b\002\003\006\026\000\147\000\200\001\202\001\215\006#\006\221\003\220\002l\001.\002r\001.\001H\002\251\001H\002\253\002x\002\005\001\132\002n\002\003\006$\002\023\000\200\0049\006\208\000\203\006\168\006\169\000\224\006\215\001\023\002\001\002\024\006\027\002k\000\200\004c\002i\002z\000\200\000\228\006\028\002\252\001d\001e\002~\005W\004\b\002\024\004\014\002k\000\200\006\021\004F\002\020\002\021\001e\002\004\004\138\004c\004\019\007!\000\200\001f\002\192\003\234\001h\001i\006\216\002X\006\022\0063\001\198\006\024\001\239\003\220\002\251\002Y\002\004\004+\006,\001\230\006\025\006&\000\212\001\234\005\245\001\023\000\225\006\031\002g\002l\006\217\003\234\006!\002\001\004(\001\031\002\251\002m\001 \001\132\002n\006\222\006#\001\132\000\234\002l\000\241\002r\006\218\006\026\005?\003\247\003\249\002x\000\249\001\132\002n\000\147\006$\0050\001\215\001\229\001\"\001\235\006o\001Y\001\132\001\031\000\196\001\n\001 \000\200\000\201\004U\001e\001m\002z\001\236\005S\003\247\003\249\004Q\002\002\006\027\000\203\001\r\001n\002i\000\203\000\200\001\030\006\028\001;\006\021\001\"\002\020\002\021\001e\002\024\005\210\002k\000\200\006\002\0044\004\198\001*\000\203\002\251\007\020\000\236\002X\007\021\002\251\000\196\006\024\006+\000\200\001\002\002Y\004\201\002\193\000\242\002\251\006\025\007\024\001\164\006v\005\212\005\254\005\217\006,\002g\000\196\003\234\001\016\000\200\000\201\001*\000\245\006\031\001\023\001$\005\213\006\000\006!\001\129\002\002\005\215\001B\001\006\004>\005\219\006\026\001\157\006#\001\132\001l\002l\004\143\002r\006\144\000\200\002\251\005\210\0007\002x\001\016\001\132\002n\006\001\006$\000\203\001\023\001$\004\155\001d\001e\004`\004\b\004\188\005[\003\247\003\249\000\203\001\246\001-\006\027\004r\002z\004:\002i\005\212\001%\001\023\006\028\001f\001v\001G\001h\001i\000\203\002\024\003\220\002k\000\200\006\021\005\213\002\020\002\021\001e\001\247\005\215\002\251\002\003\007\027\005\216\000\200\001>\004\210\001.\001\246\000\200\002X\006\022\001%\001\016\006\024\000\250\004\203\004\228\002Y\001\023\001$\006,\001V\006\025\006/\006\176\001w\001\229\001x\002\199\006\031\002g\001G\001E\002!\006!\001\159\002\003\001\\\001.\000\200\000\147\001H\005:\001\215\006#\001\156\001\016\002l\004\243\002r\000m\006\026\001\023\001$\001C\002x\001\127\001\132\002n\002\004\006$\000\196\005#\004v\000\200\001\002\004\245\001n\001t\001\023\000\200\001]\001\031\004\239\001\031\001 \000\203\001 \002z\003\b\001\246\004\222\000\200\001\002\001~\006\027\004C\001\031\004\241\002i\005$\005d\005%\006\028\000\203\002\004\001\163\001\203\001\175\001\"\002\024\001\"\002k\000\200\001d\001e\003\204\003@\004\242\002\003\000\200\001\002\000\200\001\016\006@\003\025\000\203\0062\005F\001\023\001\026\005&\004L\001\016\001f\002\192\001\129\001h\001i\001\023\001$\004\222\006,\000\203\001\130\002\251\001\132\001l\003\220\002\251\005\254\006\031\001*\003Q\001*\001u\006!\002\251\002\251\004\159\004\b\001\198\003\234\001\199\005'\006\000\006#\001\186\006\157\002l\001\230\002r\001\180\005(\001\234\005)\001\023\002x\002\004\001\132\002n\001\016\006$\001\016\002\020\002\021\001e\001\023\001$\001\023\001$\006\001\0007\006\143\002\251\001\031\001\016\004\016\005e\002X\002z\001\188\001\023\001$\004\t\006\133\003\202\002Y\001m\006\152\003\247\003\249\004\253\006Q\001\235\001\031\004?\000\203\001 \001n\002g\005+\000\200\001\185\004D\006z\005-\0057\001\236\000\203\005M\005N\001>\001\195\001>\001\031\005a\005C\004\b\001%\002\251\001%\001\"\005f\002\015\005O\005_\002\020\002\021\001e\005W\004\b\005b\003r\001%\006g\002\251\004\224\001\191\005F\000\200\006\187\002X\000\203\006h\002\251\001.\002\018\001.\001H\002Y\001H\003u\000m\004~\002 \003\147\004\222\001\129\002i\001\023\006\131\001\237\002g\001\031\001*\001\157\001 \001\132\001l\002\024\001\208\002k\000\200\001\016\000\203\002/\002\251\001\246\005I\001\023\001$\002\020\002\021\001e\0022\000\203\004\\\001\210\0028\005\200\001\"\002M\000\200\001\016\005\130\002R\002X\001\246\001\031\001\023\001$\002o\004h\003\212\002Y\001G\002\003\005F\000\203\000\200\006\229\004k\001\226\001\016\001\233\000m\000\203\002g\003\195\001\023\001$\002i\001\031\003\216\003\191\001 \002\003\002\251\002l\000\200\002r\001%\002\024\001*\002k\000\200\002x\000\203\001\132\002n\005M\005N\005\192\004s\001>\002\170\000\203\006\159\001\246\001\"\000\203\001%\003\203\000\203\006\231\005O\005_\000\203\001&\002z\005W\004\b\001\016\002\014\002o\002\004\005F\005\224\001\023\001$\000\200\001%\003\209\001\198\004*\001\228\002i\002\003\001.\003\224\000\200\001H\001\230\003\241\002\251\002\004\001\234\002\024\001\023\002k\000\200\002l\001*\002r\004w\005\134\003\243\001\016\0010\002x\004\005\001\132\002n\001\023\001$\001\031\006\173\000\203\001 \005M\005N\006a\004\b\001>\000\203\002\017\004\n\001\031\004)\002o\001%\001\016\002z\002\031\005O\005_\001\235\001\023\001$\005W\004\b\004/\001\"\0046\000\203\002.\002\004\002\020\002\021\001e\001\236\000\203\0021\0027\002C\000\203\002l\001.\002r\005F\001H\004\127\002X\004<\002x\001%\001\132\002n\000\203\002@\002Y\001\198\000\203\001\254\002\251\004O\006V\004T\005M\005N\001\230\004_\001>\002g\001\234\001*\001\023\002z\000\203\001%\000\203\002\251\003o\005O\005_\002\020\002\021\001e\005W\004\b\002\020\002\021\001e\000\203\000\196\000\203\004g\000\200\000\201\004j\002X\002H\004q\004u\001\016\002X\001.\004z\002Y\001H\001\023\001$\001\246\002Y\001\235\000\203\001\016\004\134\006D\004\021\002G\002g\001\023\001$\004\153\005\210\002g\000\203\001\236\000\203\002L\004\144\002i\000\203\002\020\002\021\001e\002Q\004P\002\254\002w\002\003\002\174\002\024\000\200\002k\000\200\004\158\004\148\002X\002\209\005M\005N\005\212\004\163\001>\002\216\002Y\000\203\002\251\004\173\000\203\001%\004\015\000\203\000\203\006\155\006\156\005\213\000\203\002g\005W\004\b\005\215\001%\002o\002\245\005\226\002\251\000\203\002i\002\251\002\020\002\021\001e\002i\000\203\004\179\001\246\001.\003d\002\024\001H\002k\000\200\003l\002\024\002X\002k\000\200\002\004\003\252\002l\002\251\002r\002Y\001\198\004\190\002$\000\203\002x\003\201\001\132\002n\006K\001\230\000\203\002\003\002g\001\234\000\200\001\023\000\203\002o\003\161\004\205\004\202\003\171\002o\002i\003\193\004\223\004\209\002z\004\230\001\031\004\247\003\208\005\b\003\210\002\024\005\001\002k\000\200\005\026\004\235\002\251\002\251\004\240\000\203\002l\003\223\003\014\004\004\005/\002l\004\012\002r\002x\001\235\001\132\002n\001\"\002x\002\251\001\132\002n\0045\002\251\000\203\005\024\004.\002o\001\236\006\021\0059\002\004\002i\002\251\0040\0043\002z\002\020\002\021\001e\004B\002z\000\203\002\024\007\020\002k\000\200\007\021\000\203\000\203\006\024\000\203\002X\000\203\002l\005E\002r\005Y\000\203\006\025\002Y\000\203\002x\005i\001\132\002n\001\031\0048\005 \005,\003\198\000\203\005o\002g\005s\002o\004A\005\143\002\020\002\021\001e\002\251\002\020\002\021\001e\002z\0054\002\251\006\026\001\016\005K\005\183\000\203\002X\005\243\001\023\001$\002X\005\188\005\227\005|\002Y\002l\002\251\002r\002Y\005\193\003\184\004=\002\251\002x\003\136\001\132\002n\002g\004@\004N\000\203\002g\000\203\000\196\004S\006\027\000\200\000\201\000\203\002\020\002\021\001e\001\198\006\028\003\214\002i\002z\000\203\005\223\000\203\004[\001\230\000\203\002\251\002X\001\234\002\024\001\023\002k\000\200\001%\005\159\002Y\007\023\005\210\005\199\000\203\005\185\003\131\000\203\002\251\004Z\004^\000\203\000\203\002g\005\207\005\248\001\016\006\r\006J\000\203\006\030\005\196\001\023\001$\002i\001.\002o\005\230\002i\006\031\005\212\004i\002\251\001\235\006!\002\024\002\251\002k\000\200\002\024\002\251\002k\000\200\002\251\006#\005\213\002\251\001\236\000\203\002\251\005\215\004t\006d\002l\005\244\003\014\004p\004y\005\242\002\251\006$\002x\004\141\001\132\002n\000\203\006p\002o\006~\001d\001e\002o\002i\002\251\001%\005\246\000\203\000\203\004\129\000\203\000\203\006\128\002\251\002\024\002z\002k\000\200\004\140\002\251\001f\001v\004\135\001h\001i\002l\002\251\002r\004\139\002l\005\250\002r\004\002\002x\005\255\001\132\002n\002x\006\011\001\132\002n\006\018\002\251\003\127\006 \000\203\002o\006'\002\251\002\020\002\021\001e\004\152\002\020\002\021\001e\002z\0060\004\157\000\203\002z\000\203\005\000\001w\002X\001x\0024\004\162\002X\004\165\004\169\006u\002Y\002l\000\203\002r\002Y\004\177\003x\004\184\006\161\002x\003i\001\132\002n\002g\006\175\004\195\004\255\002g\004\248\004\249\004\254\007\014\001\127\002\020\002\021\001e\005\002\002\020\002\021\001e\005\003\005\"\002z\001n\005\027\005\028\000\200\007\025\002X\005!\0056\0052\002X\007\030\003\130\0053\002Y\0055\005`\005D\002Y\000\196\003a\005H\000\200\000\201\001\198\005J\004\029\002g\003Y\005L\005X\002g\005h\001\230\005j\005k\005p\001\234\005t\001\023\002i\001d\001e\005x\002i\005\138\005\145\005\149\005\173\005\194\005\210\002\024\005\218\002k\000\200\002\024\005\228\002k\000\200\006\020\001\129\001f\001g\006\014\001h\001i\006\015\006\019\001\130\006\"\001\132\001l\006I\006T\006_\006s\006t\001\235\005\212\006x\006\160\006\164\006\174\002o\006\178\005#\002i\002o\007\000\000\000\002i\001\236\000\000\005\213\002\020\002\021\001e\002\024\005\215\002k\000\200\002\024\006\007\002k\000\200\000\000\000\000\000\000\000\000\002X\002l\000\000\002r\005$\002l\005%\002r\002Y\002x\000\000\001\132\002n\002x\002d\001\132\002n\000\000\000\000\000\000\002o\002g\000\000\000\000\002o\000\000\001m\002\020\002\021\001e\000\000\000\000\002z\000\000\000\000\005&\002z\001n\000\000\000\000\000\200\000\000\002X\000\000\000\000\000\000\000\000\002l\000\000\002r\002Y\002l\000\000\003\014\000\000\002x\002q\001\132\002n\002x\000\000\001\132\002n\002g\000\000\000\000\000\000\000\000\005'\002\020\002\021\001e\000\000\000\000\002\020\002\021\001e\005(\002z\005)\002i\000\000\002z\000\000\002X\000\000\001\198\000\000\004!\002X\000\000\002\024\002Y\002k\000\200\001\230\001\129\002Y\002\128\001\234\000\000\001\023\005c\002\127\001\157\002g\001\132\001l\000\000\000\000\002g\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\020\002\021\001e\002i\002o\000\000\005+\000\000\000\000\000\000\000\000\005-\0057\000\000\002\024\002X\002k\000\200\000\000\000\000\001\235\005a\000\000\002Y\000\000\000\000\000\000\000\000\000\000\002\179\000\000\002l\000\000\002r\001\236\000\000\002g\005b\000\000\002x\000\000\001\132\002n\000\000\000\000\002i\002o\000\000\000\000\000\000\002i\000\000\000\000\002\020\002\021\001e\002\024\000\000\002k\000\200\000\000\002\024\002z\002k\000\200\001\198\000\000\004$\002X\000\000\000\000\000\000\000\000\002l\001\230\002r\002Y\000\000\001\234\000\000\001\023\002x\002\190\001\132\002n\000\000\000\000\000\000\002o\002g\000\000\000\000\000\000\002o\000\000\002i\000\000\000\000\002\020\002\021\001e\001\198\000\000\0042\002z\000\000\002\024\000\000\002k\000\200\001\230\000\000\000\000\002X\001\234\002l\001\023\002r\001\235\000\000\002l\002Y\002r\002x\000\000\001\132\002n\002\213\002x\000\000\001\132\002n\001\236\000\000\002g\002\020\002\021\001e\002o\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002z\000\000\002i\000\000\000\000\002z\000\000\000\000\001\235\000\000\000\000\000\000\003T\002\024\000\000\002k\000\200\001\031\000\000\002l\005\015\002r\001\236\002\020\002\021\001e\000\000\002x\000\000\001\132\002n\000\000\000\000\000\000\000\000\000\000\003U\000\000\002X\000\000\000\000\002\020\002\021\001e\001\"\002o\002Y\002i\000\000\000\000\002z\000\000\002\220\001\198\000\000\004\131\002X\000\000\002\024\002g\002k\000\200\001\230\000\000\002Y\000\000\001\234\000\000\001\023\000\000\002\223\000\000\002l\000\000\002r\006\021\000\000\002g\000\000\000\000\002x\000\000\001\132\002n\002\023\002\020\002\021\001e\000\000\000\000\002o\000\000\000\000\006\022\000\000\002\024\006\024\002k\000\200\000\000\002X\000\000\000\000\002z\000\000\006\025\001\235\000\000\002Y\000\000\000\000\000\000\000\000\000\000\002\229\000\000\001\016\002l\002i\002r\001\236\002g\001\023\001$\000\000\002x\000\000\001\132\002n\002\024\003W\002k\000\200\000\000\006\026\000\000\002i\002\020\002\021\001e\000\000\000\000\001\198\000\000\004\137\000\000\000\000\002\024\002z\002k\000\200\001\230\002X\000\000\002l\001\234\000\000\001\023\000\000\000\000\002Y\002o\002m\000\000\001\132\002n\002\232\000\000\006\027\000\000\000\000\000\000\000\000\002g\001%\000\000\006\028\000\000\000\000\002o\002i\000\000\002\020\002\021\001e\000\000\000\000\000\000\002l\000\000\002r\002\024\000\000\002k\000\200\001\235\002x\002X\001\132\002n\006\029\001.\000\000\000\000\000\000\002Y\002l\000\000\002r\001\236\000\000\003\001\000\000\000\000\002x\006\030\001\132\002n\002g\002z\000\000\000\000\000\000\002o\006\031\000\000\002\020\002\021\001e\006!\000\000\000\000\002i\002\020\002\021\001e\000\000\002z\000\000\006#\000\000\002X\000\000\002\024\000\000\002k\000\200\000\000\002X\002Y\002l\000\000\002r\000\000\000\000\006$\002Y\000\000\002x\003\011\001\132\002n\002g\000\000\000\000\000\000\003\016\000\000\000\000\002g\000\000\002\020\002\021\001e\000\000\002o\000\000\002i\002\020\002\021\001e\002z\000\000\001\198\000\000\004\146\000\000\000\000\002\024\000\000\002k\000\200\001\230\002X\003T\000\000\001\234\000\000\001\023\000\000\000\000\002Y\002l\000\000\002r\000\000\000\000\000\000\000\000\000\000\002x\003\018\001\132\002n\002g\000\000\000\000\000\000\005\214\000\000\002o\002i\000\000\000\000\000\000\000\000\000\000\000\000\002i\002\020\002\021\001e\002\024\002z\002k\000\200\001\235\000\000\000\000\002\024\000\000\002k\000\200\000\000\002X\000\000\000\000\002l\000\000\002r\001\236\000\000\002Y\000\000\000\000\002x\000\000\001\132\002n\000\000\000\000\000\000\003\022\000\000\002o\002g\002\023\000\000\000\000\000\000\000\000\002o\000\000\002i\002\020\002\021\001e\002\024\002z\002k\000\200\002\020\002\021\001e\002\024\000\000\002k\000\200\000\000\002X\000\000\002l\000\000\003\014\000\000\000\000\002X\002Y\002l\002x\003\014\001\132\002n\000\000\002Y\000\000\002x\003\030\001\132\002n\002g\000\000\003W\000\000\003$\000\000\002o\002g\000\000\000\000\000\000\000\000\002z\000\000\002i\002\020\002\021\001e\000\000\002z\000\000\000\000\000\000\000\000\000\000\002\024\002l\002k\000\200\000\000\002X\000\000\000\000\002l\002m\003\014\001\132\002n\002Y\000\000\001\198\002x\004\154\001\132\002n\000\000\000\000\000\000\003*\001\230\000\000\002g\000\000\001\234\000\000\001\023\000\000\002o\000\000\002i\002\020\002\021\001e\000\000\002z\000\000\002i\000\000\000\000\000\000\002\024\000\000\002k\000\200\000\000\002X\000\000\002\024\000\000\002k\000\200\000\000\000\000\002Y\002l\000\000\003\014\000\000\000\000\0032\000\000\000\000\002x\001\235\001\132\002n\002g\000\000\000\000\002\020\002\021\001e\002o\000\000\000\000\000\000\000\000\001\236\000\000\002o\002i\000\000\000\000\000\000\002X\002z\000\000\000\000\000\000\000\000\000\000\002\024\002Y\002k\000\200\000\000\000\000\000\000\0037\002l\000\000\003\014\000\000\000\000\000\000\002g\002l\002x\003\014\001\132\002n\000\000\000\000\000\000\002x\000\000\001\132\002n\001\198\000\000\006O\000\000\000\000\002o\000\000\002i\000\000\001\230\000\000\000\000\002z\001\234\000\000\001\023\000\000\000\000\002\024\002z\002k\000\200\002\020\002\021\001e\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002l\000\000\003.\000\000\000\000\002X\000\000\000\000\002x\000\000\001\132\002n\000\000\002Y\002i\002\020\002\021\001e\002o\000\000\000\000\001\235\000\000\003C\000\000\002\024\002g\002k\000\200\000\000\002X\002z\000\000\000\000\000\000\001\236\000\000\000\000\002Y\002\020\002\021\001e\000\000\000\000\000\000\002l\000\000\002r\003H\000\000\000\000\002g\000\000\002x\002X\001\132\002n\002o\000\000\000\000\000\000\000\000\002Y\000\000\002\020\002\021\001e\000\000\000\000\000\000\000\000\000\000\003M\000\000\000\000\002g\002z\000\000\000\000\002X\000\000\000\000\000\000\000\000\002l\002i\002r\002Y\000\000\002\020\002\021\001e\002x\000\000\001\132\002n\002\024\003\\\002k\000\200\002g\000\000\000\000\000\000\002X\000\000\000\000\000\000\000\000\000\000\002i\000\000\002Y\000\000\000\000\002z\000\000\000\000\000\000\000\000\000\000\002\024\003_\002k\000\200\002g\000\000\000\000\002o\000\000\000\000\000\000\000\000\000\000\002i\002\020\002\021\001e\000\000\002\020\002\021\001e\000\000\000\000\000\000\002\024\000\000\002k\000\200\000\000\002X\000\000\000\000\002o\002X\002l\000\000\003\014\002Y\002i\000\000\000\000\002Y\002x\003e\001\132\002n\000\000\003g\000\000\002\024\002g\002k\000\200\000\000\002g\000\000\002o\000\000\000\000\002l\000\000\003\014\000\000\002i\000\000\002z\000\000\002x\000\000\001\132\002n\000\000\000\000\000\000\002\024\000\000\002k\000\200\000\000\000\000\000\000\002o\000\000\002l\000\000\003\014\000\000\000\000\000\000\000\000\002z\002x\000\000\001\132\002n\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002o\000\000\002l\002i\003\014\000\000\000\000\002i\002z\000\000\002x\000\000\001\132\002n\002\024\000\000\002k\000\200\002\024\000\000\002k\000\200\000\000\000\000\002\020\002\021\001e\002l\000\000\003.\000\000\000\000\000\000\002z\000\000\002x\000\000\001\132\002n\002X\002\020\002\021\001e\000\000\000\000\000\000\002o\002Y\000\000\000\000\002o\000\000\000\000\003q\000\000\002X\000\000\000\000\002z\000\000\002g\000\000\000\000\002Y\000\000\000\000\002\020\002\021\001e\003z\000\000\000\000\000\000\002l\000\000\002r\002g\002l\000\000\002r\000\000\002x\000\000\001\132\002n\002x\000\000\001\132\002n\003\182\000\000\000\000\000\000\000\000\000\000\002\020\002\021\001e\000\000\000\000\002\020\002\021\001e\000\000\002z\000\000\000\000\000\000\002z\000\000\002X\000\000\000\000\000\000\000\000\002X\000\000\000\000\002Y\002i\000\000\000\000\000\000\002Y\003}\000\000\000\000\000\000\000\000\003\139\002\024\002g\002k\000\200\000\000\002i\002g\000\000\000\000\000\000\002\020\002\021\001e\000\000\000\000\000\000\002\024\000\000\002k\000\200\000\000\000\000\000\000\000\000\000\000\002X\000\000\000\000\000\000\000\000\000\000\002\023\002o\002Y\000\000\000\000\000\000\000\000\000\000\003\142\000\000\000\000\002\024\000\000\002k\000\200\002g\000\000\002o\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002l\002i\002r\000\000\000\000\000\000\002i\000\000\002x\000\000\001\132\002n\002\024\000\000\002k\000\200\002l\002\024\002r\002k\000\200\000\000\000\000\000\000\002x\000\000\001\132\002n\002\020\002\021\001e\002z\000\000\002\020\002\021\001e\000\000\000\000\000\000\000\000\000\000\000\000\002l\002X\002o\000\000\002i\002z\002X\002o\002m\002Y\001\132\002n\000\000\000\000\002Y\002\024\000\000\002k\000\200\003\152\000\000\000\000\002g\000\000\003\157\000\000\000\000\002g\000\000\002l\000\000\002r\000\000\000\000\002l\000\000\002r\002x\000\000\001\132\002n\000\000\002x\000\000\001\132\002n\000\000\002o\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002z\000\000\000\000\000\000\000\000\002z\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002l\000\000\002r\000\000\000\000\000\000\006\021\002i\002x\000\000\001\132\002n\002i\000\000\000\000\002\020\002\021\001e\002\024\000\000\002k\000\200\000\000\002\024\006\022\002k\000\200\006\024\000\000\000\000\002X\002z\000\000\002\020\002\021\001e\006\025\000\000\002Y\000\000\000\000\000\000\000\000\000\000\003\206\000\000\000\000\000\000\002X\000\000\002o\002g\000\000\000\000\000\000\002o\002Y\000\000\000\000\000\000\000\000\000\000\003\219\000\000\000\000\006\026\002\020\002\021\001e\002g\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002l\000\000\003\014\000\000\002X\002l\000\000\003\014\002x\000\000\001\132\002n\002Y\002x\000\000\001\132\002n\000\000\004\007\000\000\000\000\000\000\006\027\000\000\000\000\002g\000\000\000\000\000\000\000\000\006\028\002z\000\000\002i\000\000\000\000\002z\000\000\002\020\002\021\001e\000\000\000\000\000\000\002\024\000\000\002k\000\200\000\000\000\000\000\000\002i\000\000\002X\006(\000\000\000\000\000\000\000\000\000\000\000\000\002Y\002\024\000\000\002k\000\200\000\000\004J\000\000\006\030\000\000\000\000\000\000\000\000\002g\000\000\002o\000\000\006\031\000\000\000\000\000\000\000\000\006!\002i\000\000\000\000\000\000\000\000\002\020\002\021\001e\000\000\006#\002o\002\024\000\000\002k\000\200\000\000\000\000\000\000\000\000\002l\002X\002r\000\000\000\000\000\000\006$\000\000\002x\002Y\001\132\002n\001d\001e\000\000\005w\000\000\000\000\002l\000\000\002r\000\000\002g\000\000\002o\000\000\002x\000\000\001\132\002n\002i\002z\001f\001v\000\000\001h\001i\000\000\000\000\000\000\000\000\002\024\000\000\002k\000\200\000\000\000\000\000\000\000\000\002z\000\000\002l\000\000\002r\000\000\004\023\000\000\000\000\000\000\002x\000\000\001\132\002n\000\000\000\000\000\000\001\031\000\000\000\000\005\012\000\000\000\000\000\000\002o\000\000\001w\000\000\001x\0024\000\000\000\000\002i\002z\000\000\000\000\000\000\002\020\002\021\001e\000\000\000\000\000\000\002\024\001\"\002k\000\200\000\000\000\000\000\000\000\000\002l\002X\002r\002\020\002\021\001e\001\127\000\000\002x\002Y\001\132\002n\000\000\000\000\000\000\005z\000\000\001n\002X\000\000\000\200\000\000\002g\000\000\002o\000\000\002Y\000\000\003\130\000\000\000\000\002z\005\137\000\000\000\000\000\000\005\014\000\000\000\000\002g\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002l\000\000\002r\000\000\000\000\000\000\000\000\000\000\002x\000\000\001\132\002n\000\000\000\000\001\016\000\000\000\000\000\000\000\000\000\000\001\023\005\017\000\000\000\000\000\000\001\129\000\000\002\020\002\021\001e\002i\002z\000\000\001\130\000\000\001\132\001l\000\000\000\000\000\000\000\000\002\024\002X\002k\000\200\000\000\000\000\002i\000\000\000\000\002Y\002\020\002\021\001e\000\000\000\000\005\140\000\000\002\024\000\000\002k\000\200\000\000\002g\000\000\000\000\002X\000\000\002\020\002\021\001e\000\000\005\018\002o\002Y\000\000\000\000\000\000\000\000\000\000\005\153\000\000\001\031\002X\004\220\001 \005\023\002g\005\020\000\000\002o\002Y\000\000\000\000\000\000\000\000\000\000\005\156\000\000\001.\002l\000\000\002r\000\000\002g\000\000\000\000\000\000\002x\001\"\001\132\002n\000\000\000\000\000\000\000\000\000\000\002l\000\000\002r\000\000\000\000\002i\000\000\000\000\002x\000\000\001\132\002n\000\000\000\000\002z\000\000\002\024\000\000\002k\000\200\000\000\000\000\000\000\000\000\000\000\000\000\002\020\002\021\001e\002i\000\000\002z\000\000\000\000\000\000\001*\000\000\000\000\000\000\000\000\002\024\002X\002k\000\200\000\000\000\000\002i\000\000\002o\002Y\000\000\002\020\002\021\001e\000\000\005\177\000\000\002\024\000\000\002k\000\200\000\000\002g\000\000\001\016\000\000\002X\002\020\002\021\001e\001\023\001$\002o\000\000\002Y\002l\000\000\002r\000\000\000\000\005\180\000\000\002X\002x\000\000\001\132\002n\002g\000\000\002o\002Y\000\000\000\000\000\000\000\000\000\000\005\184\000\000\000\000\002l\000\000\002r\000\000\002g\000\000\000\000\002z\002x\000\000\001\132\002n\000\000\000\000\000\000\000\000\001>\002l\000\000\002r\000\000\006\021\002i\001%\000\000\002x\000\000\001\132\002n\000\000\000\000\002z\000\000\002\024\000\000\002k\000\200\000\000\000\000\006\022\000\000\000\000\006\024\000\000\000\000\000\000\000\000\002i\002z\000\000\001.\006\025\000\000\001?\000\000\000\000\000\000\000\000\002\024\000\000\002k\000\200\000\000\002i\000\000\002o\000\000\000\000\002\020\002\021\001e\000\000\000\000\000\000\002\024\000\000\002k\000\200\000\000\000\000\006\026\000\000\000\000\002X\000\000\000\000\000\000\001d\001e\000\000\002o\002Y\002l\000\000\002r\000\000\000\000\006\191\000\000\000\000\002x\000\000\001\132\002n\002g\000\000\002o\001f\001v\000\000\001h\001i\000\000\000\000\006\027\000\000\000\000\002l\000\000\002r\000\000\000\000\006\028\002z\000\000\002x\000\000\001\132\002n\000\000\006Y\000\000\000\000\002l\000\000\002r\000\000\000\000\000\000\000\000\000\000\002x\000\000\001\132\002n\000\000\0061\000\000\002z\000\000\001w\000\000\001x\0024\000\000\000\000\000\000\002\020\002\021\001e\000\000\006\030\000\000\002i\002z\000\000\000\000\000\000\000\000\000\000\006\031\000\000\002X\000\000\002\024\006!\002k\000\200\000\000\000\000\002Y\001\127\002\020\002\021\001e\006#\006\193\000\000\000\000\000\000\000\000\000\000\001n\002g\000\000\000\200\000\000\002X\002\020\002\021\001e\006$\000\000\003\130\000\000\002Y\002o\000\000\001d\001e\000\000\000\000\000\000\002X\000\000\000\000\000\000\000\000\002g\000\000\000\000\002Y\001\031\000\000\000\000\005\012\000\000\000\000\001f\001v\000\000\001h\001i\002l\002g\002r\000\000\000\000\001\166\000\000\000\000\002x\000\000\001\132\002n\000\000\000\000\000\000\000\000\001\"\000\000\001\129\002i\000\000\000\000\000\000\000\000\000\000\000\000\001\130\000\000\001\132\001l\002\024\002z\002k\000\200\000\000\000\000\000\000\000\000\001w\000\000\001x\001\153\000\000\000\000\002i\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\024\000\000\002k\000\200\005\014\002i\000\000\002o\000\000\000\000\000\000\000\000\000\000\000\000\001\127\000\000\002\024\000\000\002k\000\200\000\000\000\000\000\000\000\000\000\000\001n\000\000\000\000\000\200\000\000\000\000\000\000\002o\001\016\002l\000\000\002r\000\000\000\000\001\023\005\017\000\000\002x\000\000\001\132\002n\000\000\000\000\002o\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002l\000\000\004\024\000\000\000\000\000\000\002z\000\000\002x\000\000\001\132\002n\000\000\000\000\000\000\000\000\002l\000\000\004\020\001d\001e\000\000\000\000\000\000\002x\001\129\001\132\002n\000\000\000\000\000\000\002z\005\018\001\130\000\000\001\132\001l\001d\001e\001f\001v\000\000\001h\001i\004\220\000\000\005\022\002z\005\020\001\150\000\000\002\020\002\021\001e\000\000\000\000\000\000\001f\001v\001.\001h\001i\000\000\000\000\000\000\000\000\002X\001\155\000\000\001d\001e\000\000\000\000\000\000\002Y\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001w\000\000\001x\001\153\000\000\002g\000\000\001f\001v\000\000\001h\001i\000\000\000\000\000\000\002\020\002\021\001e\001w\000\000\001x\001\153\000\000\001d\001e\000\000\000\000\000\000\000\000\000\000\002X\001\127\000\000\000\000\000\000\000\000\000\000\000\000\002Y\000\000\000\000\000\000\001n\001f\001v\000\200\001h\001i\000\000\001\127\001w\002g\001x\0024\000\000\000\000\000\000\000\000\000\000\000\000\001n\000\000\000\000\000\200\002i\000\000\000\000\000\000\002\020\002\021\001e\000\000\000\000\000\000\000\000\002\024\000\000\002k\000\200\000\000\000\000\001\127\000\000\002X\000\000\000\000\001w\000\000\001x\002<\000\000\002Y\001n\000\000\000\000\000\200\000\000\000\000\000\000\000\000\000\000\001\129\000\000\003~\002g\000\000\000\000\002o\000\000\001\130\002i\001\132\001l\000\000\000\000\000\000\000\000\001\127\000\000\001\129\000\000\002\024\000\000\002k\000\200\000\000\000\000\001\130\001n\001\132\001l\000\200\000\000\000\000\002l\000\000\003\190\000\000\000\000\000\000\000\000\000\000\002x\000\000\001\132\002n\000\000\000\000\000\000\000\000\000\000\001\129\000\000\002o\000\000\000\000\000\000\000\000\002?\001\130\000\000\001\132\001l\002i\000\000\002z\002\020\002\021\001e\000\000\000\000\002\020\002\021\001e\002\024\000\000\002k\000\200\000\000\000\000\002l\002X\003X\000\000\000\000\000\000\002X\001\129\002x\002Y\001\132\002n\000\000\000\000\002Y\001\130\000\000\001\132\001l\000\000\000\000\000\000\002g\000\000\000\000\000\000\002o\002g\000\000\000\000\000\000\002z\000\000\002\020\002\021\001e\000\000\002\020\002\021\001e\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002X\000\000\000\000\000\000\002X\002l\000\000\002\255\002Y\000\000\000\000\000\000\002Y\002x\000\000\001\132\002n\000\000\000\000\000\000\000\000\002g\000\000\000\000\000\000\002g\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002i\000\000\000\000\002z\000\000\002i\000\000\000\000\000\000\000\000\000\000\002\024\000\000\002k\000\200\000\000\002\024\000\000\002k\000\200\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\020\002\021\001e\000\000\002\020\002\021\001e\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002X\002o\000\000\000\000\002X\002i\002o\000\000\002Y\002i\000\000\000\000\002Y\000\000\000\000\000\000\002\024\000\000\002k\000\200\002\024\002g\002k\000\200\000\000\002g\000\000\000\000\002l\000\000\002t\000\000\000\000\002l\000\000\002v\002x\000\000\001\132\002n\000\000\002x\000\000\001\132\002n\000\000\000\000\000\000\002o\000\000\000\000\000\000\002o\000\000\000\000\000\000\000\000\000\000\000\000\002z\000\000\000\000\000\000\000\000\002z\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002l\000\000\002{\000\000\002l\002i\002\130\000\000\002x\002i\001\132\002n\002x\000\000\001\132\002n\002\024\000\000\002k\000\200\002\024\000\000\002k\000\200\002\020\002\021\001e\000\000\002\020\002\021\001e\002z\000\000\000\000\000\000\002z\000\000\000\000\000\000\002X\002\020\002\021\001e\002X\000\000\000\000\000\000\002Y\002o\000\000\000\000\002Y\002o\000\000\000\000\002X\000\000\000\000\000\000\000\000\002g\000\000\000\000\002Y\002g\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002l\002g\002\132\000\000\002l\000\000\002\134\000\000\002x\000\000\001\132\002n\002x\000\000\001\132\002n\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\020\002\021\001e\002z\000\000\000\000\000\000\002z\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002X\002i\000\000\000\000\000\000\002i\000\000\000\000\002Y\000\000\000\000\000\000\002\024\000\000\002k\000\200\002\024\002i\002k\000\200\000\000\002g\000\000\000\000\000\000\000\000\000\000\000\000\002\024\000\000\002k\000\200\002\020\002\021\001e\000\000\002\020\002\021\001e\000\000\000\000\000\000\000\000\000\000\002o\000\000\000\000\002X\002o\000\000\000\000\002X\000\000\000\000\000\000\002Y\000\000\000\000\000\000\002Y\002o\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002g\000\000\000\000\002l\002g\002\136\000\000\002l\000\000\002\138\000\000\002x\002i\001\132\002n\002x\000\000\001\132\002n\002l\000\000\002\140\000\000\002\024\000\000\002k\000\200\002x\000\000\001\132\002n\000\000\000\000\000\000\002z\000\000\000\000\000\000\002z\002\020\002\021\001e\000\000\002\020\002\021\001e\000\000\000\000\000\000\000\000\002z\000\000\000\000\000\000\002X\002o\000\000\000\000\002X\002i\000\000\000\000\002Y\002i\000\000\000\000\002Y\000\000\000\000\000\000\002\024\000\000\002k\000\200\002\024\002g\002k\000\200\000\000\002g\000\000\000\000\002l\000\000\002\142\002\020\002\021\001e\000\000\000\000\002x\000\000\001\132\002n\000\000\000\000\001\031\000\000\000\000\001 \002X\000\000\002o\000\000\000\000\000\000\002o\000\000\002Y\000\000\000\000\000\000\000\000\002z\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002g\000\000\001\"\000\000\006\140\000\000\000\000\000\000\002l\000\000\002\144\000\000\002l\002i\002\146\000\000\002x\002i\001\132\002n\002x\000\000\001\132\002n\002\024\000\000\002k\000\200\002\024\000\000\002k\000\200\000\000\000\000\000\000\002\020\002\021\001e\000\000\002z\002\020\002\021\001e\002z\000\000\001*\000\000\000\000\000\000\000\000\002X\000\000\000\000\000\000\000\000\002X\002o\000\000\002Y\002i\002o\000\000\000\000\002Y\000\000\000\000\000\000\000\000\000\000\000\000\002\024\002g\002k\000\200\001\016\000\000\002g\000\000\000\000\000\000\001\023\001$\000\000\002l\000\000\002\148\000\000\002l\000\000\002\150\000\000\002x\000\000\001\132\002n\002x\000\000\001\132\002n\000\000\000\000\000\000\002o\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\020\002\021\001e\002z\000\000\000\000\000\000\002z\000\000\000\000\000\000\000\000\000\000\000\000\001>\002X\000\000\000\000\002l\002i\002\152\001%\000\000\002Y\002i\006\147\002x\000\000\001\132\002n\002\024\000\000\002k\000\200\000\000\002\024\002g\002k\000\200\000\000\002\020\002\021\001e\000\000\000\000\002\020\002\021\001e\001.\002z\000\000\001H\000\000\000\000\000\000\002X\000\000\000\000\000\000\000\000\002X\000\000\002o\002Y\000\000\000\000\000\000\002o\002Y\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002g\000\000\000\000\000\000\000\000\002g\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002l\000\000\002\154\000\000\000\000\002l\002i\002\156\002x\000\000\001\132\002n\000\000\002x\000\000\001\132\002n\002\024\000\000\002k\000\200\000\000\000\000\000\000\000\000\000\000\000\000\002\020\002\021\001e\000\000\002z\000\000\000\000\000\000\000\000\002z\000\000\000\000\000\000\000\000\000\000\002X\000\000\000\000\000\000\002i\000\000\000\000\002o\002Y\002i\000\000\000\000\000\000\000\000\000\000\002\024\000\000\002k\000\200\000\000\002\024\002g\002k\000\200\000\000\002\020\002\021\001e\000\000\000\000\000\000\000\000\000\000\000\000\002l\000\000\002\158\000\000\000\000\000\000\002X\000\000\002x\000\000\001\132\002n\000\000\002o\002Y\000\000\000\000\000\000\002o\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002g\000\000\000\000\000\000\002z\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002l\000\000\002\160\000\000\000\000\002l\002i\002\162\002x\000\000\001\132\002n\000\000\002x\000\000\001\132\002n\002\024\000\000\002k\000\200\000\000\002\020\002\021\001e\000\000\000\000\000\000\000\000\000\000\000\000\002z\000\000\000\000\000\000\000\000\002z\002X\000\000\000\000\000\000\002\171\001e\000\000\000\000\002Y\002i\000\000\000\000\002o\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\024\002g\002k\000\200\002\225\001v\000\000\001h\001i\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001d\001e\000\000\002l\000\000\002\164\000\000\000\000\000\000\002\188\000\000\002x\000\000\001\132\002n\000\000\002o\002\191\001d\001e\001f\002\192\000\000\001h\001i\000\000\000\000\002\188\000\000\000\000\002\230\002\246\002\247\000\000\002z\002\191\000\000\000\000\001f\002\192\000\000\001h\001i\002l\002i\002\166\002\020\002\021\001e\000\000\000\000\002x\000\000\001\132\002n\002\024\000\000\002k\000\200\000\000\006\021\002X\001\127\000\000\000\000\000\000\000\000\000\000\000\000\002Y\000\000\000\000\000\000\001n\002z\007\020\000\200\000\000\007\021\000\000\000\000\006\024\002g\000\000\000\000\000\000\000\000\002o\000\000\000\000\006\025\000\000\000\000\000\000\001m\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001n\002\250\000\000\000\200\000\000\000\000\000\000\001m\000\000\002l\000\000\002\168\000\000\000\000\006\026\000\000\000\000\002x\001n\001\132\002n\000\200\000\000\000\000\000\000\000\000\000\000\001\129\000\000\000\000\002\020\002\021\001e\000\000\002\193\001\130\002i\001\132\001l\000\000\002z\001\031\000\000\000\000\005\012\002X\000\000\002\024\006\027\002k\000\200\000\000\002\193\002Y\002\195\000\000\006\028\000\000\000\000\001\129\000\000\000\000\000\000\002\020\002\021\001e\002g\001\157\001\"\001\132\001l\000\000\002\194\000\000\000\000\000\000\007\022\001\129\002X\002o\000\000\000\000\002\020\002\021\001e\001\157\002Y\001\132\001l\000\000\000\000\000\000\000\000\000\000\000\000\006\030\000\000\002X\000\000\002g\000\000\000\000\000\000\000\000\006\031\002Y\002l\000\000\003\005\006!\000\000\005\014\000\000\000\000\002x\000\000\001\132\002n\002g\006#\000\000\000\000\000\000\000\000\000\000\002i\002\020\002\021\001e\000\000\000\000\000\000\000\000\000\000\000\000\006$\002\024\002z\002k\000\200\001\016\002X\002\020\002\021\001e\000\000\001\023\005\017\000\000\002Y\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002X\002i\000\000\000\000\000\000\002g\000\000\000\000\002Y\000\000\000\000\002o\002\024\000\000\002k\000\200\000\000\000\000\000\000\000\000\002i\002g\000\000\000\000\002\020\002\021\001e\000\000\000\000\000\000\000\000\002\024\000\000\002k\000\200\000\000\000\000\000\000\002l\002X\003\"\005\018\000\000\000\000\002o\000\000\002x\002Y\001\132\002n\000\000\000\000\000\000\004\220\000\000\005\021\000\000\005\020\000\000\000\000\002g\000\000\000\000\002o\002i\000\000\000\000\000\000\001.\002z\000\000\002l\000\000\003(\000\000\002\024\005#\002k\000\200\002x\002i\001\132\002n\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002l\002\024\003-\002k\000\200\002\020\002\021\001e\002x\000\000\001\132\002n\002z\000\000\005$\006\199\005%\002o\000\000\000\000\002X\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002Y\002i\000\000\002z\000\000\002o\000\000\000\000\000\000\000\000\000\000\000\000\002\024\002g\002k\000\200\002l\005&\0035\000\000\000\000\000\000\000\000\000\000\002x\000\000\001\132\002n\000\000\000\000\000\000\000\000\002l\000\000\003:\000\000\000\000\000\000\000\000\000\000\002x\000\000\001\132\002n\002o\000\000\000\000\002z\000\000\000\000\005'\002\020\002\021\001e\000\000\000\000\000\000\000\000\000\000\005(\000\000\005)\000\000\002z\000\000\000\000\002X\000\000\000\000\000\000\000\000\002l\002i\003<\002Y\002\020\002\021\001e\000\000\002x\000\000\001\132\002n\002\024\005e\002k\000\200\002g\000\000\000\000\002X\002\020\002\021\001e\000\000\000\000\001\031\000\000\002Y\001 \000\000\000\000\002z\002\020\002\021\001e\002X\005+\006\201\001d\001e\002g\005-\0057\002Y\002o\000\000\000\000\002X\000\000\000\000\000\000\005a\001\"\000\000\000\000\002Y\002g\000\000\001f\001v\000\000\001h\001i\000\000\000\000\000\000\000\000\005b\002g\000\000\000\000\002l\000\000\003?\000\000\002i\000\000\000\000\000\000\002x\000\000\001\132\002n\002\020\002\021\001e\002\024\000\000\002k\000\200\000\000\000\000\000\000\006\021\000\000\001*\000\000\000\000\002X\002i\000\000\001w\002z\001x\0024\000\000\002Y\000\000\007\020\000\000\002\024\007\021\002k\000\200\006\024\002i\000\000\000\000\002o\002g\000\000\000\000\000\000\006\025\001\016\000\000\002\024\002i\002k\000\200\001\023\001$\001\127\000\000\000\000\000\000\000\000\000\000\002\024\000\000\002k\000\200\002o\001n\000\000\002l\000\200\003F\000\000\000\000\000\000\000\000\006\026\002x\003\129\001\132\002n\000\000\002o\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002l\002o\003K\000\000\000\000\000\000\006\139\002z\002x\002i\001\132\002n\000\000\001%\000\000\000\000\002l\006\027\003P\000\000\002\024\000\000\002k\000\200\002x\006\028\001\132\002n\002l\000\000\003S\002z\000\000\001\129\002\171\001e\002x\000\000\001\132\002n\001.\001\130\000\000\001\132\001l\007\026\000\000\002z\002\020\002\021\001e\000\000\002o\000\000\002\225\001v\000\000\001h\001i\002z\000\000\000\000\000\000\002X\006\030\000\000\000\000\000\000\000\000\000\000\000\000\002Y\000\000\006\031\000\000\000\000\000\000\000\000\006!\002l\000\000\003\133\002\171\001e\002g\000\000\000\000\002x\006#\001\132\002n\000\000\000\000\000\000\000\000\000\000\002\230\002\246\002\247\002\171\001e\000\000\002\225\001v\006$\001h\001i\000\000\000\000\000\000\002z\002\171\001e\000\000\000\000\000\000\000\000\001d\001e\002\225\001v\000\000\001h\001i\000\000\000\000\000\000\000\000\001\127\000\000\000\000\002\225\001v\000\000\001h\001i\000\000\001f\001v\001n\001h\001i\000\200\002i\002\230\002\246\002\247\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\024\000\000\002k\000\200\002\020\002\021\001e\002\230\002\246\002\247\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\144\002\230\002\246\002\247\001\127\000\000\000\000\000\000\001w\002\022\001x\006\245\000\000\006\247\002o\001n\000\000\000\000\000\200\000\000\000\000\001\127\000\000\000\000\000\000\000\000\001\129\000\000\000\000\000\000\000\000\000\000\001n\001\127\001\130\000\200\001\132\001l\000\000\001\127\000\000\002l\000\000\003\135\001n\000\000\000\000\000\200\004\r\002x\001n\001\132\002n\000\200\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\005\195\001d\001e\000\000\000\000\000\000\000\000\002z\000\000\001\129\000\000\000\000\005\229\000\000\000\000\000\000\002\023\001\130\000\000\001\132\001l\001f\001v\000\000\001h\001i\001\129\002\024\000\000\002k\000\200\000\000\000\000\000\000\001\130\000\000\001\132\001l\001\129\000\000\000\000\000\000\000\000\000\000\001\129\000\000\001\130\001\031\001\132\001l\001 \000\000\001\130\0012\001\132\001l\001\031\000\000\000\000\001 \000\000\000\000\0012\000\000\001w\000\000\001x\006:\000\000\000\000\000\000\000\000\000\000\0013\001\"\000\000\000\000\000\000\000\000\000\000\0014\000\000\0013\001\"\001d\001e\002l\000\000\000\000\001M\000\000\001d\001e\000\000\002m\001\127\001\132\002n\000\000\000\000\000\000\000\000\000\000\000\000\001f\001v\001n\001h\001i\000\200\000\000\001f\001v\000\000\001h\001i\000\000\001*\001d\001e\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\0018\000\000\000\000\000\000\001f\001v\000\000\001h\001i\0018\000\000\000\000\001\016\001w\000\000\001x\001\158\000\000\001\023\001$\001w\001\016\001x\001\136\000\000\000\000\000\000\001\023\001$\000\000\000\000\001\129\000\000\001d\001e\000\000\000\000\000\000\000\000\001\130\000\000\001\132\001l\000\000\001\127\000\000\000\000\001w\000\000\001x\001\133\001\127\000\000\001f\001v\001n\001h\001i\000\200\000\000\000\000\000\000\001n\001>\000\000\000\200\000\000\000\000\000\000\000\000\001%\000\000\001>\000\000\001F\000\000\000\000\000\000\001\127\001%\000\000\001d\001e\001F\000\000\000\000\000\000\001d\001e\001n\000\000\000\000\000\200\000\000\000\000\000\000\001w\001.\001x\001z\001H\001f\001v\000\000\001h\001i\001.\001f\001v\001H\001h\001i\000\000\000\000\001\129\000\000\000\000\000\000\000\000\001d\001e\001\129\001\130\000\000\001\132\001l\000\000\001\127\000\000\001\130\000\000\001\132\001l\000\000\000\000\000\000\000\000\000\000\001n\001f\001v\000\200\001h\001i\001w\000\000\001x\001}\001\129\000\000\001w\000\000\001x\001\128\000\000\000\000\001\130\000\000\001\132\001l\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001d\001e\000\000\000\000\000\000\001\127\000\000\000\000\000\000\000\000\000\000\001\127\001w\000\000\001x\001\131\001n\000\000\000\000\000\200\001f\001v\001n\001h\001i\000\200\000\000\001\129\000\000\000\000\000\000\000\000\001d\001e\000\000\001\130\000\000\001\132\001l\000\000\000\000\000\000\000\000\001\127\000\000\000\000\000\000\000\000\000\000\001d\001e\000\000\001f\001v\001n\001h\001i\000\200\000\000\000\000\000\000\000\000\000\000\001w\000\000\001x\001\141\000\000\000\000\001f\001v\000\000\001h\001i\000\000\001\129\000\000\000\000\000\000\001d\001e\001\129\000\000\001\130\000\000\001\132\001l\000\000\002\221\001\130\000\000\001\132\001l\000\000\001\127\001w\002\224\001x\001\144\001f\002\192\000\000\001h\001i\000\000\001n\000\000\000\000\000\200\000\000\000\000\000\000\001w\001\129\001x\002N\000\000\000\000\000\000\000\000\000\000\001\130\000\000\001\132\001l\000\000\001\127\000\000\001d\001e\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001n\000\000\000\000\000\200\000\000\000\000\001\127\000\000\000\000\000\000\000\000\001f\001v\000\000\001h\001i\000\000\001n\000\000\000\000\000\200\000\000\000\000\000\000\000\000\001d\001e\001\129\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\130\001m\001\132\001l\000\000\000\000\000\000\001d\001e\000\000\001f\001v\001n\001h\001i\000\200\000\000\000\000\000\000\001w\000\000\001x\002\235\000\000\001\129\000\000\000\000\001f\001v\000\000\001h\001i\001\130\000\000\001\132\001l\000\000\000\000\000\000\001d\001e\001\129\000\000\000\000\000\000\000\000\002\193\000\000\000\000\001\130\001\127\001\132\001l\001w\000\000\001x\002\238\000\000\000\000\001f\001v\001n\001h\001i\000\200\000\000\002\020\002\021\001e\000\000\001w\001\129\001x\002\241\000\000\000\000\000\000\000\000\000\000\001\157\000\000\001\132\001l\000\000\001\127\000\000\001d\001e\000\000\002S\001\031\000\000\000\000\001 \000\000\001n\001I\000\000\000\200\000\000\000\000\001\127\001w\000\000\001x\002\249\001f\001v\000\000\001h\001i\000\000\001n\000\000\000\000\000\200\001K\001\"\000\000\000\000\001\129\000\000\004\213\000\000\000\000\000\000\000\000\000\000\001\130\001\031\001\132\001l\001 \001\127\000\000\001I\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001n\000\000\000\000\000\200\000\000\001w\000\000\001x\004H\000\000\001\129\001K\001\"\000\000\000\000\000\000\001*\002\023\001\130\000\000\001\132\001l\000\000\000\000\000\000\000\000\000\000\001\129\002\024\000\000\002k\000\200\000\000\0018\000\000\001\130\001\127\001\132\001l\000\000\000\000\000\000\001d\001e\000\000\001\016\000\000\001n\000\000\000\000\000\200\001\023\001$\000\000\001\031\001*\000\000\001 \000\000\001\129\0012\000\000\001f\002\192\000\000\001h\001i\001\130\000\000\001\132\001l\000\000\0018\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0017\001\"\000\000\000\000\001\016\000\000\000\000\002l\001d\001e\001\023\001$\000\000\000\000\000\000\002m\001>\001\132\002n\000\000\000\000\000\000\000\000\001%\000\000\000\000\001\129\005\011\001f\002\192\000\000\001h\001i\000\000\001\130\000\000\001\132\001l\000\000\000\000\000\000\000\000\000\000\000\000\001*\000\000\000\000\000\000\001d\001e\001.\000\000\000\000\001H\000\000\001>\001m\000\000\000\000\000\000\000\000\0018\001%\001d\001e\000\000\001F\001n\001f\002\192\000\200\001h\001i\001\016\000\000\000\000\001d\001e\000\000\001\023\001$\000\000\000\000\001f\002\192\000\000\001h\001i\000\000\001.\000\000\000\000\001H\005\157\000\000\000\000\001f\002\192\000\000\001h\001i\003r\001m\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001n\000\000\000\000\000\200\000\000\000\000\000\000\003t\000\000\000\000\000\000\001>\000\000\001\129\000\000\000\000\000\000\000\000\001%\000\000\000\000\001\157\001F\001\132\001l\000\000\000\000\000\000\000\000\001m\000\000\000\000\000\000\000\000\003r\000\000\000\000\000\000\000\000\000\000\001n\000\000\000\000\000\200\001m\001.\000\000\000\000\001H\000\000\000\000\000\000\000\000\003s\000\000\001n\000\000\001m\000\200\001\129\001d\001e\000\000\000\000\000\000\000\000\000\000\001\157\001n\001\132\001l\000\200\000\000\000\000\003r\000\000\000\000\005\181\000\000\000\000\001f\002\192\000\000\001h\001i\000\000\000\000\000\000\000\000\006\b\000\000\000\000\000\000\003w\000\000\000\000\000\000\001d\001e\001\129\000\000\000\000\002\193\000\000\000\000\000\000\000\000\001\157\000\000\001\132\001l\000\000\000\000\000\000\001\129\000\000\000\000\001f\002\192\000\000\001h\001i\001\157\000\000\001\132\001l\000\000\001\129\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\157\006\n\001\132\001l\001d\001e\000\000\000\000\000\000\000\000\000\000\001d\001e\000\000\000\000\000\000\001d\001e\000\000\001m\000\000\000\000\000\000\000\000\001f\002\192\000\000\001h\001i\000\000\001n\001f\002\192\000\200\001h\001i\001f\002\192\000\000\001h\001i\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001d\001e\001m\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\193\000\000\005#\001n\000\000\000\000\000\200\000\000\000\000\000\000\001f\002\192\000\000\001h\001i\000\000\000\000\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\005$\006\181\005%\001\157\001m\001\132\001l\005\208\000\000\000\000\001\031\001m\000\000\001 \000\000\001n\001m\000\000\000\200\000\000\000\000\000\000\001n\000\000\000\000\000\200\000\000\001n\000\000\000\000\000\200\005&\001\129\000\000\000\000\000\000\000\000\001\"\000\000\000\000\001\157\000\000\001\132\001l\000\000\000\000\000\000\004\198\000\000\005\208\000\000\000\000\000\000\005\221\001m\000\000\006\b\000\000\000\000\000\000\000\000\006\b\005\154\001\031\005'\001n\001 \000\000\000\200\000\000\000\000\000\000\000\000\005(\001\129\005)\000\000\000\000\000\000\000\000\001*\001\129\001\157\000\000\001\132\001l\001\129\000\000\000\000\001\157\001\"\001\132\001l\000\000\001\157\005\220\001\132\001l\005e\003v\003\237\000\000\001\031\006\t\001\031\001 \000\000\001 \006\017\001\016\000\000\000\000\000\000\000\000\006}\001\023\001$\000\000\000\000\000\000\000\000\005+\000\000\000\000\001\129\000\000\005-\0057\006\021\001\"\000\000\001\"\001\157\001*\001\132\001l\005a\000\000\000\000\004\198\000\000\004\198\000\000\007\020\000\000\000\000\007\021\000\000\000\000\006\024\000\000\000\000\005b\000\000\005\168\000\000\005\178\000\000\006\025\000\000\001>\000\000\001\016\000\000\000\000\000\000\000\000\001%\001\023\001$\000\000\004\203\001*\000\000\001*\001d\001e\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\006\026\000\000\002\020\002\021\001e\000\000\000\000\001.\001f\002\177\001H\001h\001i\000\000\001\016\000\000\001\016\000\000\000\000\000\000\001\023\001$\001\023\001$\001\031\003T\001>\001 \000\000\000\000\000\000\000\000\000\000\001%\006\027\000\000\000\000\000\000\000\000\000\000\000\000\000\000\006\028\001\031\000\000\000\000\001 \000\000\000\000\000\000\000\000\001\"\001\031\000\000\000\000\001 \000\000\000\000\000\000\000\000\001.\002\214\007\031\003\244\000\000\001>\000\000\001>\000\000\000\000\001\"\000\000\001%\000\000\001%\000\000\004\203\000\000\004\203\001\"\000\000\006\030\001m\000\000\000\000\000\000\000\000\000\000\005#\003\237\006\031\000\000\000\000\001n\001*\006!\000\200\002\023\000\000\001.\000\000\001.\001H\003\240\001H\006#\000\000\000\000\002\024\000\000\002k\000\200\000\000\001*\001\031\000\000\005$\001 \005%\000\000\000\000\006$\001*\001\016\000\000\000\000\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\000\000\000\000\001\"\001\016\003V\000\000\000\000\005\203\005&\001\023\001$\000\000\001\016\001\129\000\000\000\000\000\000\001\031\001\023\001$\001 \001\157\000\000\001\132\001l\000\000\000\000\000\000\002l\001\031\000\000\000\000\001 \000\000\000\000\001>\002m\000\000\001\132\002n\000\000\005'\001%\000\000\001\"\001*\002\185\000\000\000\000\000\000\005(\000\000\005)\000\000\001>\000\000\001\"\000\000\000\000\000\000\000\000\001%\000\000\001>\000\000\004\231\000\000\000\000\004\234\001.\001%\006\021\001H\000\000\001\016\005*\000\000\000\000\000\000\000\000\001\023\001$\000\000\001\031\000\000\000\000\001 \001*\001.\007\011\000\000\001H\006\024\001\031\000\000\006\225\001 \001.\005+\001*\003\244\006\025\000\000\005-\0057\000\000\000\000\000\000\000\000\000\000\001\"\000\000\000\000\005a\000\000\000\000\001\016\000\000\000\000\000\000\001\"\000\000\001\023\001$\001\031\001>\000\000\001 \001\016\005b\006\026\000\000\001%\000\000\001\023\001$\004\218\000\000\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\001\"\000\000\001*\000\000\000\000\000\000\001\031\000\000\001.\001 \000\000\001H\001*\006\027\000\000\000\000\001>\000\000\001\"\000\000\000\000\006\028\000\000\001%\000\000\000\000\001<\004\231\001>\000\000\005\249\001\016\000\000\001\"\000\000\001%\000\000\001\023\001$\006\226\000\000\001\016\007\012\001*\000\000\000\000\000\000\001\023\001$\000\000\001.\000\000\000\000\001H\000\000\000\000\000\000\000\000\000\000\000\000\006\030\001*\001.\000\000\000\000\001H\000\000\001\031\000\000\006\031\001 \000\000\001\016\000\000\006!\000\000\001*\001\031\001\023\001$\001 \000\000\001>\000\000\006#\000\000\000\000\000\000\000\000\001%\001\016\000\000\001>\006\186\001\"\001\031\001\023\001$\001 \001%\006$\000\000\000\000\001X\001\"\001\016\000\000\000\000\000\000\000\000\000\000\001\023\001$\002\020\002\021\001e\001.\000\000\000\000\001H\000\000\000\000\001\"\001>\000\000\000\000\001.\000\000\000\000\001H\001%\002\020\002\021\001e\001\174\000\000\002U\001*\002\020\002\021\001e\001>\000\000\000\000\000\000\000\000\000\000\001*\001%\000\000\000\000\000\000\000\000\000\000\002_\000\000\001>\001.\000\000\000\000\001H\002j\000\000\001%\000\000\001*\001\016\001\212\002\020\002\021\001e\000\000\001\023\001$\000\000\001.\001\016\000\000\001D\000\000\000\000\000\000\001\023\001$\000\000\001\031\000\000\000\000\001 \000\000\001.\002y\000\000\001H\001\016\000\000\000\000\000\000\000\000\000\000\001\023\001$\000\000\001\031\000\000\000\000\001 \000\000\002\023\000\000\000\000\000\000\001\"\000\000\000\000\000\000\000\000\001>\000\000\002\024\000\000\002k\000\200\000\000\001%\000\000\002\023\001>\001\214\000\000\001\"\000\000\000\000\002\023\001%\000\000\000\000\002\024\002+\002k\000\200\000\000\000\000\000\000\002\024\001>\002k\000\200\000\000\000\000\000\000\001.\001%\000\000\001H\001*\002>\000\000\000\000\000\000\000\000\001.\000\000\002\023\001H\000\000\000\000\000\000\001\031\000\000\000\000\001 \000\000\001*\002\024\000\000\002k\000\200\002l\001.\000\000\000\000\001H\000\000\001\016\000\000\002m\000\000\001\132\002n\001\023\001$\000\000\000\000\000\000\001\"\002l\000\000\000\000\000\000\000\000\000\000\001\016\002l\002m\000\000\001\132\002n\001\023\001$\000\000\002m\000\000\001\132\002n\000\000\000\000\000\000\001\031\000\000\000\000\001 \000\000\000\000\000\000\000\000\000\000\001\031\000\000\000\000\001 \000\000\000\000\002l\000\000\001>\001\031\000\000\001*\001 \000\000\002m\001%\001\132\002n\001\"\002\182\000\000\000\000\000\000\000\000\000\000\000\000\001>\001\"\000\000\002\020\002\021\001e\000\000\001%\000\000\000\000\001\"\002\187\000\000\000\000\001\016\000\000\001.\000\000\000\000\001H\001\023\001$\000\000\000\000\001\031\000\000\003\027\001 \000\000\000\000\000\000\000\000\000\000\001\031\001.\001*\001 \001H\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\001*\000\000\000\000\000\000\000\000\000\000\000\000\001\"\000\000\000\000\000\000\001\016\001>\001\031\000\000\000\000\001 \001\023\001$\001%\001\016\000\000\000\000\002\204\000\000\000\000\001\023\001$\001\031\001\016\001\031\001 \000\000\001 \000\000\001\023\001$\000\000\000\000\000\000\001\"\001*\000\000\000\000\000\000\002\023\001.\000\000\000\000\001H\001*\000\000\000\000\000\000\000\000\001\"\002\024\001\"\002k\000\200\000\000\000\000\001>\000\000\000\000\000\000\000\000\000\000\000\000\001%\001\016\001>\000\000\002\211\000\000\000\000\001\023\001$\001%\001\016\001>\000\000\002\218\001*\000\000\001\023\001$\001%\000\000\001\031\000\000\002\227\001 \000\000\000\000\000\000\001.\000\000\001*\001H\001*\000\000\000\000\000\000\000\000\001.\000\000\000\000\001H\000\000\000\000\000\000\001\016\000\000\001.\002l\001\"\001H\001\023\001$\000\000\001>\000\000\002m\000\000\001\132\002n\001\016\001%\001\016\001>\000\000\004W\001\023\001$\001\023\001$\001%\000\000\001\031\000\000\004\175\005\012\000\000\000\000\000\000\000\000\000\000\001\031\000\000\001\031\005\012\000\000\001 \000\000\001.\000\000\000\000\001H\001*\000\000\000\000\000\000\001>\001.\001\031\001\"\001H\001 \000\000\001%\000\000\000\000\000\000\004\187\001\"\000\000\001\"\001>\000\000\001>\001\031\000\000\000\000\001 \001%\000\000\001%\001\016\004\200\000\000\004\217\001\"\000\000\001\023\001$\001\031\001.\001\031\001 \001H\005\012\000\000\000\000\000\000\000\000\000\000\000\000\001\"\005\014\000\000\000\000\001.\000\000\001.\001H\000\000\001H\005\014\000\000\001*\000\000\000\000\001\"\000\000\001\"\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001*\000\000\000\000\001\016\001>\000\000\000\000\000\000\000\000\001\023\005\017\001%\001\016\000\000\001\016\004\233\001*\000\000\001\023\005\017\001\023\001$\001\031\000\000\000\000\005\012\000\000\000\000\000\000\001\016\000\000\001*\000\000\005\014\000\000\001\023\001$\000\000\001.\000\000\000\000\001H\000\000\000\000\000\000\001\016\000\000\000\000\000\000\001\"\000\000\001\023\001$\000\000\001\031\000\000\000\000\001 \000\000\000\000\001\016\005\018\001\016\000\000\000\000\001>\001\023\001$\001\023\005\017\005\018\001\031\001%\004\220\001 \005\019\005\133\005\020\000\000\000\000\001>\001\"\004\220\000\000\005\031\000\000\005\020\001%\001.\000\000\000\000\005\151\005\014\000\000\000\000\000\000\001>\001.\001\"\001.\000\000\000\000\001H\001%\000\000\000\000\000\000\005\175\000\000\000\000\000\000\001>\000\000\001\031\001.\000\000\001 \001H\001%\000\000\005\018\001\016\006=\000\000\001*\000\000\000\000\001\023\005\017\000\000\001.\000\000\004\220\001H\005\235\000\000\005\020\000\000\000\000\000\000\001\"\001*\000\000\000\000\000\000\001.\001\031\001.\001H\001 \000\000\000\000\000\000\001\016\001\031\000\000\000\000\001 \000\000\001\023\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\001\"\000\000\000\000\001\023\001$\000\000\005\018\000\000\001\"\000\000\001*\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\220\000\000\006\005\000\000\005\020\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001>\000\000\001.\000\000\000\000\000\000\000\000\001%\001\016\000\000\000\000\006\146\001*\000\000\001\023\001$\000\000\001>\000\000\000\000\001*\000\000\000\000\000\000\001%\000\000\000\000\000\000\006\150\000\000\000\000\000\000\000\000\000\000\001.\000\000\000\000\001H\000\000\000\000\000\000\001\016\000\000\000\000\000\000\000\000\000\000\001\023\001$\001\016\000\000\001.\000\000\000\000\001H\001\023\001$\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\001>\001.\000\000\000\000\001\207\000\000\000\000\001%\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\001.\000\000\000\000\001\209\000\000\000\000\000\000\000\000\001.\000\000\000\000\003\239"))
|
|
|
|
and semantic_action =
|
|
[|
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3652 "parsing/parser.mly"
|
|
( "+" )
|
|
# 1338 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3653 "parsing/parser.mly"
|
|
( "+." )
|
|
# 1363 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.core_type) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.core_type) =
|
|
# 3209 "parsing/parser.mly"
|
|
( _1 )
|
|
# 1388 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = tyvar;
|
|
MenhirLib.EngineTypes.startp = _startpos_tyvar_;
|
|
MenhirLib.EngineTypes.endp = _endpos_tyvar_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = ty;
|
|
MenhirLib.EngineTypes.startp = _startpos_ty_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ty_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_ty_ in
|
|
let _endpos = _endpos_tyvar_ in
|
|
let _v : (Parsetree.core_type) = let _1 =
|
|
let _1 =
|
|
# 3212 "parsing/parser.mly"
|
|
( Ptyp_alias(ty, tyvar) )
|
|
# 1435 "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
|
|
|
|
# 850 "parsing/parser.mly"
|
|
( mktyp ~loc:_sloc _1 )
|
|
# 1444 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3214 "parsing/parser.mly"
|
|
( _1 )
|
|
# 1450 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = body;
|
|
MenhirLib.EngineTypes.startp = _startpos_body_;
|
|
MenhirLib.EngineTypes.endp = _endpos_body_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in
|
|
let body : (Parsetree.pattern * Parsetree.expression) = 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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 1498 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos_attrs2_ = _endpos__1_inlined2_ in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 1507 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2478 "parsing/parser.mly"
|
|
(
|
|
let attrs = attrs1 @ attrs2 in
|
|
mklb ~loc:_sloc false body attrs
|
|
)
|
|
# 1519 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Longident.t) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Longident.t) =
|
|
# 3539 "parsing/parser.mly"
|
|
( _1 )
|
|
# 1544 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Asttypes.label) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Longident.t) =
|
|
# 3540 "parsing/parser.mly"
|
|
( Lident _1 )
|
|
# 1569 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.core_type) =
|
|
# 3270 "parsing/parser.mly"
|
|
( _2 )
|
|
# 1608 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3330 "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 )
|
|
# 1675 "parsing/parser.ml"
|
|
|
|
in
|
|
let _3 =
|
|
let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 1685 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 1691 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__5_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 3272 "parsing/parser.mly"
|
|
( wrap_typ_attrs ~loc:_sloc (reloc_typ ~loc:_sloc _4) _3 )
|
|
# 1700 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.core_type) = let _1 =
|
|
let _1 =
|
|
# 3275 "parsing/parser.mly"
|
|
( Ptyp_var _2 )
|
|
# 1733 "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
|
|
|
|
# 850 "parsing/parser.mly"
|
|
( mktyp ~loc:_sloc _1 )
|
|
# 1742 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3307 "parsing/parser.mly"
|
|
( _1 )
|
|
# 1748 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.core_type) = let _1 =
|
|
let _1 =
|
|
# 3277 "parsing/parser.mly"
|
|
( Ptyp_any )
|
|
# 1774 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 850 "parsing/parser.mly"
|
|
( mktyp ~loc:_sloc _1 )
|
|
# 1782 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3307 "parsing/parser.mly"
|
|
( _1 )
|
|
# 1788 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Longident.t) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 1819 "parsing/parser.ml"
|
|
|
|
in
|
|
let tys =
|
|
# 3322 "parsing/parser.mly"
|
|
( [] )
|
|
# 1825 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3280 "parsing/parser.mly"
|
|
( Ptyp_constr(tid, tys) )
|
|
# 1830 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 850 "parsing/parser.mly"
|
|
( mktyp ~loc:_sloc _1 )
|
|
# 1839 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3307 "parsing/parser.mly"
|
|
( _1 )
|
|
# 1845 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = ty;
|
|
MenhirLib.EngineTypes.startp = _startpos_ty_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ty_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 1883 "parsing/parser.ml"
|
|
|
|
in
|
|
let tys =
|
|
# 3324 "parsing/parser.mly"
|
|
( [ty] )
|
|
# 1889 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3280 "parsing/parser.mly"
|
|
( Ptyp_constr(tid, tys) )
|
|
# 1894 "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
|
|
|
|
# 850 "parsing/parser.mly"
|
|
( mktyp ~loc:_sloc _1 )
|
|
# 1904 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3307 "parsing/parser.mly"
|
|
( _1 )
|
|
# 1910 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 1963 "parsing/parser.ml"
|
|
|
|
in
|
|
let tys =
|
|
let tys =
|
|
let xs =
|
|
# 253 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 1971 "parsing/parser.ml"
|
|
in
|
|
|
|
# 975 "parsing/parser.mly"
|
|
( xs )
|
|
# 1976 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3326 "parsing/parser.mly"
|
|
( tys )
|
|
# 1982 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3280 "parsing/parser.mly"
|
|
( Ptyp_constr(tid, tys) )
|
|
# 1988 "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
|
|
|
|
# 850 "parsing/parser.mly"
|
|
( mktyp ~loc:_sloc _1 )
|
|
# 1998 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3307 "parsing/parser.mly"
|
|
( _1 )
|
|
# 2004 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.core_type) = let _1 =
|
|
let _1 =
|
|
# 3282 "parsing/parser.mly"
|
|
( let (f, c) = _2 in Ptyp_object (f, c) )
|
|
# 2044 "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
|
|
|
|
# 850 "parsing/parser.mly"
|
|
( mktyp ~loc:_sloc _1 )
|
|
# 2053 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3307 "parsing/parser.mly"
|
|
( _1 )
|
|
# 2059 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.core_type) = let _1 =
|
|
let _1 =
|
|
# 3284 "parsing/parser.mly"
|
|
( Ptyp_object ([], Closed) )
|
|
# 2092 "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
|
|
|
|
# 850 "parsing/parser.mly"
|
|
( mktyp ~loc:_sloc _1 )
|
|
# 2101 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3307 "parsing/parser.mly"
|
|
( _1 )
|
|
# 2107 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 2145 "parsing/parser.ml"
|
|
|
|
in
|
|
let tys =
|
|
# 3322 "parsing/parser.mly"
|
|
( [] )
|
|
# 2151 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3288 "parsing/parser.mly"
|
|
( Ptyp_class(cid, tys) )
|
|
# 2156 "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
|
|
|
|
# 850 "parsing/parser.mly"
|
|
( mktyp ~loc:_sloc _1 )
|
|
# 2166 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3307 "parsing/parser.mly"
|
|
( _1 )
|
|
# 2172 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = ty;
|
|
MenhirLib.EngineTypes.startp = _startpos_ty_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ty_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 2217 "parsing/parser.ml"
|
|
|
|
in
|
|
let tys =
|
|
# 3324 "parsing/parser.mly"
|
|
( [ty] )
|
|
# 2223 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3288 "parsing/parser.mly"
|
|
( Ptyp_class(cid, tys) )
|
|
# 2228 "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
|
|
|
|
# 850 "parsing/parser.mly"
|
|
( mktyp ~loc:_sloc _1 )
|
|
# 2238 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3307 "parsing/parser.mly"
|
|
( _1 )
|
|
# 2244 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 2304 "parsing/parser.ml"
|
|
|
|
in
|
|
let tys =
|
|
let tys =
|
|
let xs =
|
|
# 253 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 2312 "parsing/parser.ml"
|
|
in
|
|
|
|
# 975 "parsing/parser.mly"
|
|
( xs )
|
|
# 2317 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3326 "parsing/parser.mly"
|
|
( tys )
|
|
# 2323 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3288 "parsing/parser.mly"
|
|
( Ptyp_class(cid, tys) )
|
|
# 2329 "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
|
|
|
|
# 850 "parsing/parser.mly"
|
|
( mktyp ~loc:_sloc _1 )
|
|
# 2339 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3307 "parsing/parser.mly"
|
|
( _1 )
|
|
# 2345 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.core_type) = let _1 =
|
|
let _1 =
|
|
# 3291 "parsing/parser.mly"
|
|
( Ptyp_variant([_2], Closed, None) )
|
|
# 2385 "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
|
|
|
|
# 850 "parsing/parser.mly"
|
|
( mktyp ~loc:_sloc _1 )
|
|
# 2394 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3307 "parsing/parser.mly"
|
|
( _1 )
|
|
# 2400 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 2450 "parsing/parser.ml"
|
|
in
|
|
|
|
# 947 "parsing/parser.mly"
|
|
( xs )
|
|
# 2455 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3336 "parsing/parser.mly"
|
|
( _1 )
|
|
# 2461 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3293 "parsing/parser.mly"
|
|
( Ptyp_variant(_3, Closed, None) )
|
|
# 2467 "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
|
|
|
|
# 850 "parsing/parser.mly"
|
|
( mktyp ~loc:_sloc _1 )
|
|
# 2477 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3307 "parsing/parser.mly"
|
|
( _1 )
|
|
# 2483 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 2540 "parsing/parser.ml"
|
|
in
|
|
|
|
# 947 "parsing/parser.mly"
|
|
( xs )
|
|
# 2545 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3336 "parsing/parser.mly"
|
|
( _1 )
|
|
# 2551 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3295 "parsing/parser.mly"
|
|
( Ptyp_variant(_2 :: _4, Closed, None) )
|
|
# 2557 "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
|
|
|
|
# 850 "parsing/parser.mly"
|
|
( mktyp ~loc:_sloc _1 )
|
|
# 2567 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3307 "parsing/parser.mly"
|
|
( _1 )
|
|
# 2573 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 2623 "parsing/parser.ml"
|
|
in
|
|
|
|
# 947 "parsing/parser.mly"
|
|
( xs )
|
|
# 2628 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3336 "parsing/parser.mly"
|
|
( _1 )
|
|
# 2634 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3297 "parsing/parser.mly"
|
|
( Ptyp_variant(_3, Open, None) )
|
|
# 2640 "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
|
|
|
|
# 850 "parsing/parser.mly"
|
|
( mktyp ~loc:_sloc _1 )
|
|
# 2650 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3307 "parsing/parser.mly"
|
|
( _1 )
|
|
# 2656 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.core_type) = let _1 =
|
|
let _1 =
|
|
# 3299 "parsing/parser.mly"
|
|
( Ptyp_variant([], Open, None) )
|
|
# 2689 "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
|
|
|
|
# 850 "parsing/parser.mly"
|
|
( mktyp ~loc:_sloc _1 )
|
|
# 2698 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3307 "parsing/parser.mly"
|
|
( _1 )
|
|
# 2704 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 2754 "parsing/parser.ml"
|
|
in
|
|
|
|
# 947 "parsing/parser.mly"
|
|
( xs )
|
|
# 2759 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3336 "parsing/parser.mly"
|
|
( _1 )
|
|
# 2765 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3301 "parsing/parser.mly"
|
|
( Ptyp_variant(_3, Closed, Some []) )
|
|
# 2771 "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
|
|
|
|
# 850 "parsing/parser.mly"
|
|
( mktyp ~loc:_sloc _1 )
|
|
# 2781 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3307 "parsing/parser.mly"
|
|
( _1 )
|
|
# 2787 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 2852 "parsing/parser.ml"
|
|
in
|
|
|
|
# 915 "parsing/parser.mly"
|
|
( xs )
|
|
# 2857 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3364 "parsing/parser.mly"
|
|
( _1 )
|
|
# 2863 "parsing/parser.ml"
|
|
|
|
in
|
|
let _3 =
|
|
let _1 =
|
|
let xs =
|
|
# 253 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 2871 "parsing/parser.ml"
|
|
in
|
|
|
|
# 947 "parsing/parser.mly"
|
|
( xs )
|
|
# 2876 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3336 "parsing/parser.mly"
|
|
( _1 )
|
|
# 2882 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3303 "parsing/parser.mly"
|
|
( Ptyp_variant(_3, Closed, Some _5) )
|
|
# 2888 "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
|
|
|
|
# 850 "parsing/parser.mly"
|
|
( mktyp ~loc:_sloc _1 )
|
|
# 2898 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3307 "parsing/parser.mly"
|
|
( _1 )
|
|
# 2904 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.extension) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.core_type) = let _1 =
|
|
let _1 =
|
|
# 3305 "parsing/parser.mly"
|
|
( Ptyp_extension _1 )
|
|
# 2930 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 850 "parsing/parser.mly"
|
|
( mktyp ~loc:_sloc _1 )
|
|
# 2938 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3307 "parsing/parser.mly"
|
|
( _1 )
|
|
# 2944 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (string) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string Asttypes.loc) = let _1 =
|
|
let _1 =
|
|
# 3719 "parsing/parser.mly"
|
|
( _1 )
|
|
# 2970 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 843 "parsing/parser.mly"
|
|
( mkloc _1 (make_loc _sloc) )
|
|
# 2978 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3721 "parsing/parser.mly"
|
|
( _1 )
|
|
# 2984 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (string Asttypes.loc) = let _1 =
|
|
let _1 =
|
|
# 3720 "parsing/parser.mly"
|
|
( _1 ^ "." ^ _3.txt )
|
|
# 3024 "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
|
|
|
|
# 843 "parsing/parser.mly"
|
|
( mkloc _1 (make_loc _sloc) )
|
|
# 3033 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3721 "parsing/parser.mly"
|
|
( _1 )
|
|
# 3039 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3725 "parsing/parser.mly"
|
|
( Attr.mk ~loc:(make_loc _sloc) _2 _3 )
|
|
# 3088 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.class_expr) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.class_expr) =
|
|
# 1762 "parsing/parser.mly"
|
|
( _1 )
|
|
# 3113 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 3154 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__3_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1764 "parsing/parser.mly"
|
|
( wrap_class_attrs ~loc:_sloc _3 _2 )
|
|
# 3163 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 1766 "parsing/parser.mly"
|
|
( class_of_let_bindings ~loc:_sloc _1 _3 )
|
|
# 3205 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 3270 "parsing/parser.ml"
|
|
|
|
in
|
|
let _4 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 3278 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos__4_ = _endpos__1_inlined1_ in
|
|
let _3 =
|
|
# 3644 "parsing/parser.mly"
|
|
( Fresh )
|
|
# 3285 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__7_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1768 "parsing/parser.mly"
|
|
( let loc = (_startpos__2_, _endpos__4_) in
|
|
let od = Opn.mk ~override:_3 ~loc:(make_loc loc) _5 in
|
|
mkclass ~loc:_sloc ~attrs:_4 (Pcl_open(od, _7)) )
|
|
# 3295 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 3367 "parsing/parser.ml"
|
|
|
|
in
|
|
let _4 =
|
|
let _1 = _1_inlined2 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 3375 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos__4_ = _endpos__1_inlined2_ in
|
|
let _3 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3645 "parsing/parser.mly"
|
|
( Override )
|
|
# 3384 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__7_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1768 "parsing/parser.mly"
|
|
( let loc = (_startpos__2_, _endpos__4_) in
|
|
let od = Opn.mk ~override:_3 ~loc:(make_loc loc) _5 in
|
|
mkclass ~loc:_sloc ~attrs:_4 (Pcl_open(od, _7)) )
|
|
# 3395 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.class_expr) =
|
|
# 1772 "parsing/parser.mly"
|
|
( Cl.attr _1 _2 )
|
|
# 3427 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 3462 "parsing/parser.ml"
|
|
in
|
|
|
|
# 915 "parsing/parser.mly"
|
|
( xs )
|
|
# 3467 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1775 "parsing/parser.mly"
|
|
( Pcl_apply(_1, _2) )
|
|
# 3473 "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
|
|
|
|
# 866 "parsing/parser.mly"
|
|
( mkclass ~loc:_sloc _1 )
|
|
# 3483 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1778 "parsing/parser.mly"
|
|
( _1 )
|
|
# 3489 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.extension) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.class_expr) = let _1 =
|
|
let _1 =
|
|
# 1777 "parsing/parser.mly"
|
|
( Pcl_extension _1 )
|
|
# 3515 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 866 "parsing/parser.mly"
|
|
( mkclass ~loc:_sloc _1 )
|
|
# 3523 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1778 "parsing/parser.mly"
|
|
( _1 )
|
|
# 3529 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = self;
|
|
MenhirLib.EngineTypes.startp = _startpos_self_;
|
|
MenhirLib.EngineTypes.endp = _endpos_self_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 3584 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos__6_ = _endpos__1_inlined2_ in
|
|
let _3 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 3593 "parsing/parser.ml"
|
|
|
|
in
|
|
let _2 =
|
|
# 3644 "parsing/parser.mly"
|
|
( Fresh )
|
|
# 3599 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__6_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1827 "parsing/parser.mly"
|
|
( let docs = symbol_docs _sloc in
|
|
mkcf ~loc:_sloc (Pcf_inherit (_2, _4, self)) ~attrs:(_3@_6) ~docs )
|
|
# 3608 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = self;
|
|
MenhirLib.EngineTypes.startp = _startpos_self_;
|
|
MenhirLib.EngineTypes.endp = _endpos_self_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 3670 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos__6_ = _endpos__1_inlined3_ in
|
|
let _3 =
|
|
let _1 = _1_inlined2 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 3679 "parsing/parser.ml"
|
|
|
|
in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3645 "parsing/parser.mly"
|
|
( Override )
|
|
# 3687 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__6_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1827 "parsing/parser.mly"
|
|
( let docs = symbol_docs _sloc in
|
|
mkcf ~loc:_sloc (Pcf_inherit (_2, _4, self)) ~attrs:(_3@_6) ~docs )
|
|
# 3697 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 3740 "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
|
|
|
|
# 1830 "parsing/parser.mly"
|
|
( let v, attrs = _2 in
|
|
let docs = symbol_docs _sloc in
|
|
mkcf ~loc:_sloc (Pcf_val v) ~attrs:(attrs@_3) ~docs )
|
|
# 3752 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 3795 "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
|
|
|
|
# 1834 "parsing/parser.mly"
|
|
( let meth, attrs = _2 in
|
|
let docs = symbol_docs _sloc in
|
|
mkcf ~loc:_sloc (Pcf_method meth) ~attrs:(attrs@_3) ~docs )
|
|
# 3807 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 3855 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos__4_ = _endpos__1_inlined2_ in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 3864 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__4_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1838 "parsing/parser.mly"
|
|
( let docs = symbol_docs _sloc in
|
|
mkcf ~loc:_sloc (Pcf_constraint _3) ~attrs:(_2@_4) ~docs )
|
|
# 3874 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 3922 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos__4_ = _endpos__1_inlined2_ in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 3931 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__4_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1841 "parsing/parser.mly"
|
|
( let docs = symbol_docs _sloc in
|
|
mkcf ~loc:_sloc (Pcf_initializer _3) ~attrs:(_2@_4) ~docs )
|
|
# 3941 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 3975 "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
|
|
|
|
# 1844 "parsing/parser.mly"
|
|
( let docs = symbol_docs _sloc in
|
|
mkcf ~loc:_sloc (Pcf_extension _1) ~attrs:_2 ~docs )
|
|
# 3986 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.attribute) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.class_field) = let _1 =
|
|
let _1 =
|
|
# 1847 "parsing/parser.mly"
|
|
( Pcf_attribute _1 )
|
|
# 4012 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 864 "parsing/parser.mly"
|
|
( mkcf ~loc:_sloc _1 )
|
|
# 4020 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1848 "parsing/parser.mly"
|
|
( _1 )
|
|
# 4026 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.class_expr) =
|
|
# 1742 "parsing/parser.mly"
|
|
( _2 )
|
|
# 4058 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__4_ in
|
|
let _v : (Parsetree.class_expr) = let _1 =
|
|
let _1 =
|
|
# 1745 "parsing/parser.mly"
|
|
( Pcl_constraint(_4, _2) )
|
|
# 4105 "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
|
|
|
|
# 866 "parsing/parser.mly"
|
|
( mkclass ~loc:_sloc _1 )
|
|
# 4114 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1748 "parsing/parser.mly"
|
|
( _1 )
|
|
# 4120 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.class_expr) = let _1 =
|
|
let _1 =
|
|
# 1747 "parsing/parser.mly"
|
|
( let (l,o,p) = _1 in Pcl_fun(l, o, p, _2) )
|
|
# 4153 "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
|
|
|
|
# 866 "parsing/parser.mly"
|
|
( mkclass ~loc:_sloc _1 )
|
|
# 4162 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1748 "parsing/parser.mly"
|
|
( _1 )
|
|
# 4168 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = e;
|
|
MenhirLib.EngineTypes.startp = _startpos_e_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos_e_ in
|
|
let _v : (Parsetree.class_expr) = let _1 =
|
|
let _1 =
|
|
# 1803 "parsing/parser.mly"
|
|
( let (l,o,p) = _1 in Pcl_fun(l, o, p, e) )
|
|
# 4208 "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
|
|
|
|
# 866 "parsing/parser.mly"
|
|
( mkclass ~loc:_sloc _1 )
|
|
# 4217 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1804 "parsing/parser.mly"
|
|
( _1 )
|
|
# 4223 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = e;
|
|
MenhirLib.EngineTypes.startp = _startpos_e_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos_e_ in
|
|
let _v : (Parsetree.class_expr) = let _1 =
|
|
let _1 =
|
|
# 1803 "parsing/parser.mly"
|
|
( let (l,o,p) = _1 in Pcl_fun(l, o, p, e) )
|
|
# 4256 "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
|
|
|
|
# 866 "parsing/parser.mly"
|
|
( mkclass ~loc:_sloc _1 )
|
|
# 4265 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1804 "parsing/parser.mly"
|
|
( _1 )
|
|
# 4271 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Longident.t) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Longident.t) =
|
|
# 3530 "parsing/parser.mly"
|
|
( _1 )
|
|
# 4296 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 1812 "parsing/parser.mly"
|
|
( reloc_pat ~loc:_sloc _2 )
|
|
# 4338 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__5_ in
|
|
let _v : (Parsetree.pattern) = let _1 =
|
|
let _1 =
|
|
# 1814 "parsing/parser.mly"
|
|
( Ppat_constraint(_2, _4) )
|
|
# 4392 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 4401 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1815 "parsing/parser.mly"
|
|
( _1 )
|
|
# 4407 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.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
|
|
|
|
# 1817 "parsing/parser.mly"
|
|
( ghpat ~loc:_sloc Ppat_any )
|
|
# 4428 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.core_type) =
|
|
# 1942 "parsing/parser.mly"
|
|
( _2 )
|
|
# 4467 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Parsetree.core_type) = let _1 =
|
|
let _1 =
|
|
# 1943 "parsing/parser.mly"
|
|
( Ptyp_any )
|
|
# 4486 "parsing/parser.ml"
|
|
in
|
|
let _endpos__1_ = _endpos__0_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _endpos in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 850 "parsing/parser.mly"
|
|
( mktyp ~loc:_sloc _1 )
|
|
# 4495 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1944 "parsing/parser.mly"
|
|
( _1 )
|
|
# 4501 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 4549 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos__4_ = _endpos__1_inlined2_ in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 4558 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__4_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1952 "parsing/parser.mly"
|
|
( let docs = symbol_docs _sloc in
|
|
mkctf ~loc:_sloc (Pctf_inherit _3) ~attrs:(_2@_4) ~docs )
|
|
# 4568 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ty;
|
|
MenhirLib.EngineTypes.startp = _startpos_ty_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ty_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = flags;
|
|
MenhirLib.EngineTypes.startp = _startpos_flags_;
|
|
MenhirLib.EngineTypes.endp = _endpos_flags_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 4628 "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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 4641 "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 =
|
|
# 3404 "parsing/parser.mly"
|
|
( _1 )
|
|
# 4651 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 4659 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1977 "parsing/parser.mly"
|
|
(
|
|
let mut, virt = flags in
|
|
label, mut, virt, ty
|
|
)
|
|
# 4668 "parsing/parser.ml"
|
|
|
|
in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 4676 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__4_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1955 "parsing/parser.mly"
|
|
( let docs = symbol_docs _sloc in
|
|
mkctf ~loc:_sloc (Pctf_val _3) ~attrs:(_2@_4) ~docs )
|
|
# 4686 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined4;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 4746 "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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 4759 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos__7_ = _endpos__1_inlined4_ in
|
|
let _6 =
|
|
let _1 = _1_inlined3 in
|
|
|
|
# 3175 "parsing/parser.mly"
|
|
( _1 )
|
|
# 4768 "parsing/parser.ml"
|
|
|
|
in
|
|
let _4 =
|
|
let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in
|
|
let _1 =
|
|
# 3404 "parsing/parser.mly"
|
|
( _1 )
|
|
# 4776 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 4784 "parsing/parser.ml"
|
|
|
|
in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 4792 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__7_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1959 "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 )
|
|
# 4803 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 4851 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos__4_ = _endpos__1_inlined2_ in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 4860 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__4_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1963 "parsing/parser.mly"
|
|
( let docs = symbol_docs _sloc in
|
|
mkctf ~loc:_sloc (Pctf_constraint _3) ~attrs:(_2@_4) ~docs )
|
|
# 4870 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 4904 "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
|
|
|
|
# 1966 "parsing/parser.mly"
|
|
( let docs = symbol_docs _sloc in
|
|
mkctf ~loc:_sloc (Pctf_extension _1) ~attrs:_2 ~docs )
|
|
# 4915 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.attribute) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.class_type_field) = let _1 =
|
|
let _1 =
|
|
# 1969 "parsing/parser.mly"
|
|
( Pctf_attribute _1 )
|
|
# 4941 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 862 "parsing/parser.mly"
|
|
( mkctf ~loc:_sloc _1 )
|
|
# 4949 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1970 "parsing/parser.mly"
|
|
( _1 )
|
|
# 4955 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Longident.t) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 4986 "parsing/parser.ml"
|
|
|
|
in
|
|
let tys =
|
|
let tys =
|
|
# 1928 "parsing/parser.mly"
|
|
( [] )
|
|
# 4993 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1934 "parsing/parser.mly"
|
|
( tys )
|
|
# 4998 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1911 "parsing/parser.mly"
|
|
( Pcty_constr (cid, tys) )
|
|
# 5004 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 860 "parsing/parser.mly"
|
|
( mkcty ~loc:_sloc _1 )
|
|
# 5013 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1914 "parsing/parser.mly"
|
|
( _1 )
|
|
# 5019 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 5072 "parsing/parser.ml"
|
|
|
|
in
|
|
let tys =
|
|
let tys =
|
|
let params =
|
|
let xs =
|
|
# 253 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 5081 "parsing/parser.ml"
|
|
in
|
|
|
|
# 947 "parsing/parser.mly"
|
|
( xs )
|
|
# 5086 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1930 "parsing/parser.mly"
|
|
( params )
|
|
# 5092 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1934 "parsing/parser.mly"
|
|
( tys )
|
|
# 5098 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1911 "parsing/parser.mly"
|
|
( Pcty_constr (cid, tys) )
|
|
# 5104 "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
|
|
|
|
# 860 "parsing/parser.mly"
|
|
( mkcty ~loc:_sloc _1 )
|
|
# 5114 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1914 "parsing/parser.mly"
|
|
( _1 )
|
|
# 5120 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.extension) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.class_type) = let _1 =
|
|
let _1 =
|
|
# 1913 "parsing/parser.mly"
|
|
( Pcty_extension _1 )
|
|
# 5146 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 860 "parsing/parser.mly"
|
|
( mkcty ~loc:_sloc _1 )
|
|
# 5154 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1914 "parsing/parser.mly"
|
|
( _1 )
|
|
# 5160 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xss;
|
|
MenhirLib.EngineTypes.startp = _startpos_xss_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xss_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( List.flatten xss )
|
|
# 5217 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1948 "parsing/parser.mly"
|
|
( _1 )
|
|
# 5222 "parsing/parser.ml"
|
|
|
|
in
|
|
let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in
|
|
let _endpos = _endpos__1_ in
|
|
let _startpos = _startpos__1_ in
|
|
|
|
# 808 "parsing/parser.mly"
|
|
( extra_csig _startpos _endpos _1 )
|
|
# 5231 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1938 "parsing/parser.mly"
|
|
( Csig.mk _1 _2 )
|
|
# 5237 "parsing/parser.ml"
|
|
|
|
in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 5245 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__4_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1916 "parsing/parser.mly"
|
|
( mkcty ~loc:_sloc ~attrs:_2 (Pcty_signature _3) )
|
|
# 5254 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xss;
|
|
MenhirLib.EngineTypes.startp = _startpos_xss_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xss_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( List.flatten xss )
|
|
# 5311 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1948 "parsing/parser.mly"
|
|
( _1 )
|
|
# 5316 "parsing/parser.ml"
|
|
|
|
in
|
|
let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in
|
|
let _endpos = _endpos__1_ in
|
|
let _startpos = _startpos__1_ in
|
|
|
|
# 808 "parsing/parser.mly"
|
|
( extra_csig _startpos _endpos _1 )
|
|
# 5325 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1938 "parsing/parser.mly"
|
|
( Csig.mk _1 _2 )
|
|
# 5331 "parsing/parser.ml"
|
|
|
|
in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 5339 "parsing/parser.ml"
|
|
|
|
in
|
|
let _loc__4_ = (_startpos__4_, _endpos__4_) in
|
|
let _loc__1_ = (_startpos__1_, _endpos__1_) in
|
|
|
|
# 1918 "parsing/parser.mly"
|
|
( unclosed "object" _loc__1_ "end" _loc__4_ )
|
|
# 5347 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.class_type) =
|
|
# 1920 "parsing/parser.mly"
|
|
( Cty.attr _1 _2 )
|
|
# 5379 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 5444 "parsing/parser.ml"
|
|
|
|
in
|
|
let _4 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 5452 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos__4_ = _endpos__1_inlined1_ in
|
|
let _3 =
|
|
# 3644 "parsing/parser.mly"
|
|
( Fresh )
|
|
# 5459 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__7_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1922 "parsing/parser.mly"
|
|
( let loc = (_startpos__2_, _endpos__4_) in
|
|
let od = Opn.mk ~override:_3 ~loc:(make_loc loc) _5 in
|
|
mkcty ~loc:_sloc ~attrs:_4 (Pcty_open(od, _7)) )
|
|
# 5469 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 5541 "parsing/parser.ml"
|
|
|
|
in
|
|
let _4 =
|
|
let _1 = _1_inlined2 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 5549 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos__4_ = _endpos__1_inlined2_ in
|
|
let _3 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3645 "parsing/parser.mly"
|
|
( Override )
|
|
# 5558 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__7_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1922 "parsing/parser.mly"
|
|
( let loc = (_startpos__2_, _endpos__4_) in
|
|
let od = Opn.mk ~override:_3 ~loc:(make_loc loc) _5 in
|
|
mkcty ~loc:_sloc ~attrs:_4 (Pcty_open(od, _7)) )
|
|
# 5569 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.class_expr) =
|
|
# 1782 "parsing/parser.mly"
|
|
( _2 )
|
|
# 5608 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 1784 "parsing/parser.mly"
|
|
( unclosed "(" _loc__1_ ")" _loc__3_ )
|
|
# 5649 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Longident.t) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 5680 "parsing/parser.ml"
|
|
|
|
in
|
|
let tys =
|
|
let tys =
|
|
# 1928 "parsing/parser.mly"
|
|
( [] )
|
|
# 5687 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1934 "parsing/parser.mly"
|
|
( tys )
|
|
# 5692 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1787 "parsing/parser.mly"
|
|
( Pcl_constr(cid, tys) )
|
|
# 5698 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 866 "parsing/parser.mly"
|
|
( mkclass ~loc:_sloc _1 )
|
|
# 5707 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1794 "parsing/parser.mly"
|
|
( _1 )
|
|
# 5713 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 5766 "parsing/parser.ml"
|
|
|
|
in
|
|
let tys =
|
|
let tys =
|
|
let params =
|
|
let xs =
|
|
# 253 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 5775 "parsing/parser.ml"
|
|
in
|
|
|
|
# 947 "parsing/parser.mly"
|
|
( xs )
|
|
# 5780 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1930 "parsing/parser.mly"
|
|
( params )
|
|
# 5786 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1934 "parsing/parser.mly"
|
|
( tys )
|
|
# 5792 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1787 "parsing/parser.mly"
|
|
( Pcl_constr(cid, tys) )
|
|
# 5798 "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
|
|
|
|
# 866 "parsing/parser.mly"
|
|
( mkclass ~loc:_sloc _1 )
|
|
# 5808 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1794 "parsing/parser.mly"
|
|
( _1 )
|
|
# 5814 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xss;
|
|
MenhirLib.EngineTypes.startp = _startpos_xss_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xss_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( List.flatten xss )
|
|
# 5873 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1821 "parsing/parser.mly"
|
|
( _1 )
|
|
# 5878 "parsing/parser.ml"
|
|
|
|
in
|
|
let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in
|
|
let _endpos = _endpos__1_ in
|
|
let _startpos = _startpos__1_ in
|
|
|
|
# 807 "parsing/parser.mly"
|
|
( extra_cstr _startpos _endpos _1 )
|
|
# 5887 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1808 "parsing/parser.mly"
|
|
( Cstr.mk _1 _2 )
|
|
# 5893 "parsing/parser.ml"
|
|
|
|
in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 5901 "parsing/parser.ml"
|
|
|
|
in
|
|
let _loc__4_ = (_startpos__4_, _endpos__4_) in
|
|
let _loc__1_ = (_startpos__1_, _endpos__1_) in
|
|
|
|
# 1789 "parsing/parser.mly"
|
|
( unclosed "object" _loc__1_ "end" _loc__4_ )
|
|
# 5909 "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
|
|
|
|
# 866 "parsing/parser.mly"
|
|
( mkclass ~loc:_sloc _1 )
|
|
# 5919 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1794 "parsing/parser.mly"
|
|
( _1 )
|
|
# 5925 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__5_ in
|
|
let _v : (Parsetree.class_expr) = let _1 =
|
|
let _1 =
|
|
# 1791 "parsing/parser.mly"
|
|
( Pcl_constraint(_2, _4) )
|
|
# 5979 "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
|
|
|
|
# 866 "parsing/parser.mly"
|
|
( mkclass ~loc:_sloc _1 )
|
|
# 5988 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1794 "parsing/parser.mly"
|
|
( _1 )
|
|
# 5994 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 1793 "parsing/parser.mly"
|
|
( unclosed "(" _loc__1_ ")" _loc__5_ )
|
|
# 6051 "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
|
|
|
|
# 866 "parsing/parser.mly"
|
|
( mkclass ~loc:_sloc _1 )
|
|
# 6061 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1794 "parsing/parser.mly"
|
|
( _1 )
|
|
# 6067 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xss;
|
|
MenhirLib.EngineTypes.startp = _startpos_xss_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xss_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( List.flatten xss )
|
|
# 6124 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1821 "parsing/parser.mly"
|
|
( _1 )
|
|
# 6129 "parsing/parser.ml"
|
|
|
|
in
|
|
let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in
|
|
let _endpos = _endpos__1_ in
|
|
let _startpos = _startpos__1_ in
|
|
|
|
# 807 "parsing/parser.mly"
|
|
( extra_cstr _startpos _endpos _1 )
|
|
# 6138 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1808 "parsing/parser.mly"
|
|
( Cstr.mk _1 _2 )
|
|
# 6144 "parsing/parser.ml"
|
|
|
|
in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 6152 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__4_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1796 "parsing/parser.mly"
|
|
( mkclass ~loc:_sloc ~attrs:_2 (Pcl_structure _3) )
|
|
# 6161 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.class_type) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.class_type) =
|
|
# 1899 "parsing/parser.mly"
|
|
( _1 )
|
|
# 6186 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = codomain;
|
|
MenhirLib.EngineTypes.startp = _startpos_codomain_;
|
|
MenhirLib.EngineTypes.endp = _endpos_codomain_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = domain;
|
|
MenhirLib.EngineTypes.startp = _startpos_domain_;
|
|
MenhirLib.EngineTypes.endp = _endpos_domain_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = label;
|
|
MenhirLib.EngineTypes.startp = _startpos_label_;
|
|
MenhirLib.EngineTypes.endp = _endpos_label_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_label_ in
|
|
let _endpos = _endpos_codomain_ in
|
|
let _v : (Parsetree.class_type) = let _1 =
|
|
let _1 =
|
|
let label =
|
|
# 3238 "parsing/parser.mly"
|
|
( Optional label )
|
|
# 6234 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1905 "parsing/parser.mly"
|
|
( Pcty_arrow(label, domain, codomain) )
|
|
# 6239 "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
|
|
|
|
# 860 "parsing/parser.mly"
|
|
( mkcty ~loc:_sloc _1 )
|
|
# 6249 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1906 "parsing/parser.mly"
|
|
( _1 )
|
|
# 6255 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = codomain;
|
|
MenhirLib.EngineTypes.startp = _startpos_codomain_;
|
|
MenhirLib.EngineTypes.endp = _endpos_codomain_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = domain;
|
|
MenhirLib.EngineTypes.startp = _startpos_domain_;
|
|
MenhirLib.EngineTypes.endp = _endpos_domain_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = label;
|
|
MenhirLib.EngineTypes.startp = _startpos_label_;
|
|
MenhirLib.EngineTypes.endp = _endpos_label_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 6304 "parsing/parser.ml"
|
|
) = Obj.magic label in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_label_ in
|
|
let _endpos = _endpos_codomain_ in
|
|
let _v : (Parsetree.class_type) = let _1 =
|
|
let _1 =
|
|
let label =
|
|
# 3240 "parsing/parser.mly"
|
|
( Labelled label )
|
|
# 6314 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1905 "parsing/parser.mly"
|
|
( Pcty_arrow(label, domain, codomain) )
|
|
# 6319 "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
|
|
|
|
# 860 "parsing/parser.mly"
|
|
( mkcty ~loc:_sloc _1 )
|
|
# 6329 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1906 "parsing/parser.mly"
|
|
( _1 )
|
|
# 6335 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = codomain;
|
|
MenhirLib.EngineTypes.startp = _startpos_codomain_;
|
|
MenhirLib.EngineTypes.endp = _endpos_codomain_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = domain;
|
|
MenhirLib.EngineTypes.startp = _startpos_domain_;
|
|
MenhirLib.EngineTypes.endp = _endpos_domain_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_domain_ in
|
|
let _endpos = _endpos_codomain_ in
|
|
let _v : (Parsetree.class_type) = let _1 =
|
|
let _1 =
|
|
let label =
|
|
# 3242 "parsing/parser.mly"
|
|
( Nolabel )
|
|
# 6376 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1905 "parsing/parser.mly"
|
|
( Pcty_arrow(label, domain, codomain) )
|
|
# 6381 "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
|
|
|
|
# 860 "parsing/parser.mly"
|
|
( mkcty ~loc:_sloc _1 )
|
|
# 6391 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1906 "parsing/parser.mly"
|
|
( _1 )
|
|
# 6397 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = bs;
|
|
MenhirLib.EngineTypes.startp = _startpos_bs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_bs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = csig;
|
|
MenhirLib.EngineTypes.startp = _startpos_csig_;
|
|
MenhirLib.EngineTypes.endp = _endpos_csig_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _8;
|
|
MenhirLib.EngineTypes.startp = _startpos__8_;
|
|
MenhirLib.EngineTypes.endp = _endpos__8_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = params;
|
|
MenhirLib.EngineTypes.startp = _startpos_params_;
|
|
MenhirLib.EngineTypes.endp = _endpos_params_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = virt;
|
|
MenhirLib.EngineTypes.startp = _startpos_virt_;
|
|
MenhirLib.EngineTypes.endp = _endpos_virt_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 6482 "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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 6500 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 6512 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 6520 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2044 "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
|
|
)
|
|
# 6535 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1044 "parsing/parser.mly"
|
|
( let (x, b) = a in x, b :: bs )
|
|
# 6541 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2032 "parsing/parser.mly"
|
|
( _1 )
|
|
# 6547 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Longident.t) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Longident.t) =
|
|
# 3527 "parsing/parser.mly"
|
|
( _1 )
|
|
# 6572 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (
|
|
# 633 "parsing/parser.mly"
|
|
(string * char option)
|
|
# 6593 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.constant) =
|
|
# 3410 "parsing/parser.mly"
|
|
( let (n, m) = _1 in Pconst_integer (n, m) )
|
|
# 6601 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (
|
|
# 592 "parsing/parser.mly"
|
|
(char)
|
|
# 6622 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.constant) =
|
|
# 3411 "parsing/parser.mly"
|
|
( Pconst_char _1 )
|
|
# 6630 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (
|
|
# 685 "parsing/parser.mly"
|
|
(string * Location.t * string option)
|
|
# 6651 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.constant) =
|
|
# 3412 "parsing/parser.mly"
|
|
( let (s, strloc, d) = _1 in Pconst_string (s, strloc, d) )
|
|
# 6659 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (
|
|
# 612 "parsing/parser.mly"
|
|
(string * char option)
|
|
# 6680 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.constant) =
|
|
# 3413 "parsing/parser.mly"
|
|
( let (f, m) = _1 in Pconst_float (f, m) )
|
|
# 6688 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Asttypes.label) =
|
|
# 3484 "parsing/parser.mly"
|
|
( "[]" )
|
|
# 6720 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Asttypes.label) =
|
|
# 3485 "parsing/parser.mly"
|
|
( "()" )
|
|
# 6752 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.label) =
|
|
# 3486 "parsing/parser.mly"
|
|
( "false" )
|
|
# 6777 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.label) =
|
|
# 3487 "parsing/parser.mly"
|
|
( "true" )
|
|
# 6802 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (
|
|
# 697 "parsing/parser.mly"
|
|
(string)
|
|
# 6823 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.label) =
|
|
# 3490 "parsing/parser.mly"
|
|
( _1 )
|
|
# 6831 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Asttypes.label) = let _1 =
|
|
# 3481 "parsing/parser.mly"
|
|
( "::" )
|
|
# 6870 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3491 "parsing/parser.mly"
|
|
( _1 )
|
|
# 6875 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Asttypes.label) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.label) =
|
|
# 3492 "parsing/parser.mly"
|
|
( _1 )
|
|
# 6900 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Longident.t) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Longident.t) =
|
|
# 3495 "parsing/parser.mly"
|
|
( _1 )
|
|
# 6925 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3481 "parsing/parser.mly"
|
|
( "::" )
|
|
# 6980 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3496 "parsing/parser.mly"
|
|
( Ldot(_1,_3) )
|
|
# 6986 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Longident.t) = let _1 =
|
|
# 3481 "parsing/parser.mly"
|
|
( "::" )
|
|
# 7025 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3497 "parsing/parser.mly"
|
|
( Lident _1 )
|
|
# 7030 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Asttypes.label) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Longident.t) =
|
|
# 3498 "parsing/parser.mly"
|
|
( Lident _1 )
|
|
# 7055 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.core_type * Parsetree.core_type) =
|
|
# 1988 "parsing/parser.mly"
|
|
( _1, _3 )
|
|
# 7094 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let x : (Parsetree.core_type) = Obj.magic x in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_x_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : (Parsetree.constructor_arguments) = let tys =
|
|
let xs =
|
|
let xs =
|
|
# 931 "parsing/parser.mly"
|
|
( [ x ] )
|
|
# 7121 "parsing/parser.ml"
|
|
in
|
|
|
|
# 253 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 7126 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 951 "parsing/parser.mly"
|
|
( xs )
|
|
# 7132 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3045 "parsing/parser.mly"
|
|
( Pcstr_tuple tys )
|
|
# 7138 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_xs_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : (Parsetree.constructor_arguments) = let tys =
|
|
let xs =
|
|
let xs =
|
|
# 935 "parsing/parser.mly"
|
|
( x :: xs )
|
|
# 7179 "parsing/parser.ml"
|
|
in
|
|
|
|
# 253 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 7184 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 951 "parsing/parser.mly"
|
|
( xs )
|
|
# 7190 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3045 "parsing/parser.mly"
|
|
( Pcstr_tuple tys )
|
|
# 7196 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.constructor_arguments) =
|
|
# 3047 "parsing/parser.mly"
|
|
( Pcstr_record _2 )
|
|
# 7235 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.constructor_declaration list) =
|
|
# 2966 "parsing/parser.mly"
|
|
( [] )
|
|
# 7260 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let xs : (Parsetree.constructor_declaration list) = Obj.magic xs in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_xs_ in
|
|
let _endpos = _endpos_xs_ in
|
|
let _v : (Parsetree.constructor_declaration list) = let cs =
|
|
# 1036 "parsing/parser.mly"
|
|
( List.rev xs )
|
|
# 7285 "parsing/parser.ml"
|
|
in
|
|
|
|
# 2968 "parsing/parser.mly"
|
|
( cs )
|
|
# 7290 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.core_type) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.core_type) = let _1 =
|
|
# 3200 "parsing/parser.mly"
|
|
( _1 )
|
|
# 7315 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3190 "parsing/parser.mly"
|
|
( _1 )
|
|
# 7320 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.core_type) =
|
|
# 3192 "parsing/parser.mly"
|
|
( Typ.attr _1 _2 )
|
|
# 7352 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.direction_flag) =
|
|
# 3589 "parsing/parser.mly"
|
|
( Upto )
|
|
# 7377 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.direction_flag) =
|
|
# 3590 "parsing/parser.mly"
|
|
( Downto )
|
|
# 7402 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.expression) =
|
|
# 2135 "parsing/parser.mly"
|
|
( _1 )
|
|
# 7427 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 7507 "parsing/parser.ml"
|
|
|
|
in
|
|
let _3 =
|
|
let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 7517 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 7523 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2183 "parsing/parser.mly"
|
|
( Pexp_letmodule(_4, _5, _7), _3 )
|
|
# 7529 "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
|
|
|
|
# 2137 "parsing/parser.mly"
|
|
( let desc, attrs = _1 in
|
|
mkexp_attrs ~loc:_sloc desc attrs )
|
|
# 7540 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined4;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 7626 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 7637 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__3_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 3030 "parsing/parser.mly"
|
|
( let args, res = _2 in
|
|
Te.decl _1 ~args ?res ~attrs:_3 ~loc:(make_loc _sloc) )
|
|
# 7647 "parsing/parser.ml"
|
|
|
|
in
|
|
let _3 =
|
|
let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 7657 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 7663 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2185 "parsing/parser.mly"
|
|
( Pexp_letexception(_4, _6), _3 )
|
|
# 7669 "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
|
|
|
|
# 2137 "parsing/parser.mly"
|
|
( let desc, attrs = _1 in
|
|
mkexp_attrs ~loc:_sloc desc attrs )
|
|
# 7680 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 7752 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 7758 "parsing/parser.ml"
|
|
|
|
in
|
|
let _3 =
|
|
# 3644 "parsing/parser.mly"
|
|
( Fresh )
|
|
# 7764 "parsing/parser.ml"
|
|
in
|
|
|
|
# 2187 "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 )
|
|
# 7771 "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
|
|
|
|
# 2137 "parsing/parser.mly"
|
|
( let desc, attrs = _1 in
|
|
mkexp_attrs ~loc:_sloc desc attrs )
|
|
# 7782 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 7861 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 7867 "parsing/parser.ml"
|
|
|
|
in
|
|
let _3 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3645 "parsing/parser.mly"
|
|
( Override )
|
|
# 7875 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2187 "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 )
|
|
# 7883 "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
|
|
|
|
# 2137 "parsing/parser.mly"
|
|
( let desc, attrs = _1 in
|
|
mkexp_attrs ~loc:_sloc desc attrs )
|
|
# 7894 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 7943 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1008 "parsing/parser.mly"
|
|
( xs )
|
|
# 7948 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2519 "parsing/parser.mly"
|
|
( xs )
|
|
# 7954 "parsing/parser.ml"
|
|
|
|
in
|
|
let _2 =
|
|
let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 7964 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 7970 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2191 "parsing/parser.mly"
|
|
( Pexp_function _3, _2 )
|
|
# 7976 "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
|
|
|
|
# 2137 "parsing/parser.mly"
|
|
( let desc, attrs = _1 in
|
|
mkexp_attrs ~loc:_sloc desc attrs )
|
|
# 7987 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 8045 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 8051 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2193 "parsing/parser.mly"
|
|
( let (l,o,p) = _3 in
|
|
Pexp_fun(l, o, p, _4), _2 )
|
|
# 8058 "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
|
|
|
|
# 2137 "parsing/parser.mly"
|
|
( let desc, attrs = _1 in
|
|
mkexp_attrs ~loc:_sloc desc attrs )
|
|
# 8069 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__7_ in
|
|
let _v : (Parsetree.expression) = let _1 =
|
|
let _5 =
|
|
# 2414 "parsing/parser.mly"
|
|
( xs )
|
|
# 8144 "parsing/parser.ml"
|
|
in
|
|
let _2 =
|
|
let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 8153 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 8159 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__7_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2196 "parsing/parser.mly"
|
|
( (mk_newtypes ~loc:_sloc _5 _7).pexp_desc, _2 )
|
|
# 8168 "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
|
|
|
|
# 2137 "parsing/parser.mly"
|
|
( let desc, attrs = _1 in
|
|
mkexp_attrs ~loc:_sloc desc attrs )
|
|
# 8179 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 8242 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1008 "parsing/parser.mly"
|
|
( xs )
|
|
# 8247 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2519 "parsing/parser.mly"
|
|
( xs )
|
|
# 8253 "parsing/parser.ml"
|
|
|
|
in
|
|
let _2 =
|
|
let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 8263 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 8269 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2198 "parsing/parser.mly"
|
|
( Pexp_match(_3, _5), _2 )
|
|
# 8275 "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
|
|
|
|
# 2137 "parsing/parser.mly"
|
|
( let desc, attrs = _1 in
|
|
mkexp_attrs ~loc:_sloc desc attrs )
|
|
# 8286 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 8349 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1008 "parsing/parser.mly"
|
|
( xs )
|
|
# 8354 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2519 "parsing/parser.mly"
|
|
( xs )
|
|
# 8360 "parsing/parser.ml"
|
|
|
|
in
|
|
let _2 =
|
|
let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 8370 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 8376 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2200 "parsing/parser.mly"
|
|
( Pexp_try(_3, _5), _2 )
|
|
# 8382 "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
|
|
|
|
# 2137 "parsing/parser.mly"
|
|
( let desc, attrs = _1 in
|
|
mkexp_attrs ~loc:_sloc desc attrs )
|
|
# 8393 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 8458 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 8464 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2202 "parsing/parser.mly"
|
|
( syntax_error() )
|
|
# 8470 "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
|
|
|
|
# 2137 "parsing/parser.mly"
|
|
( let desc, attrs = _1 in
|
|
mkexp_attrs ~loc:_sloc desc attrs )
|
|
# 8481 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 8560 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 8566 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2204 "parsing/parser.mly"
|
|
( Pexp_ifthenelse(_3, _5, Some _7), _2 )
|
|
# 8572 "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
|
|
|
|
# 2137 "parsing/parser.mly"
|
|
( let desc, attrs = _1 in
|
|
mkexp_attrs ~loc:_sloc desc attrs )
|
|
# 8583 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 8648 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 8654 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2206 "parsing/parser.mly"
|
|
( Pexp_ifthenelse(_3, _5, None), _2 )
|
|
# 8660 "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
|
|
|
|
# 2137 "parsing/parser.mly"
|
|
( let desc, attrs = _1 in
|
|
mkexp_attrs ~loc:_sloc desc attrs )
|
|
# 8671 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 8743 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 8749 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2208 "parsing/parser.mly"
|
|
( Pexp_while(_3, _5), _2 )
|
|
# 8755 "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
|
|
|
|
# 2137 "parsing/parser.mly"
|
|
( let desc, attrs = _1 in
|
|
mkexp_attrs ~loc:_sloc desc attrs )
|
|
# 8766 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _10;
|
|
MenhirLib.EngineTypes.startp = _startpos__10_;
|
|
MenhirLib.EngineTypes.endp = _endpos__10_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _9;
|
|
MenhirLib.EngineTypes.startp = _startpos__9_;
|
|
MenhirLib.EngineTypes.endp = _endpos__9_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _8;
|
|
MenhirLib.EngineTypes.startp = _startpos__8_;
|
|
MenhirLib.EngineTypes.endp = _endpos__8_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 8866 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 8872 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2211 "parsing/parser.mly"
|
|
( Pexp_for(_3, _5, _7, _6, _9), _2 )
|
|
# 8878 "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
|
|
|
|
# 2137 "parsing/parser.mly"
|
|
( let desc, attrs = _1 in
|
|
mkexp_attrs ~loc:_sloc desc attrs )
|
|
# 8889 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 8940 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 8946 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2213 "parsing/parser.mly"
|
|
( Pexp_assert _3, _2 )
|
|
# 8952 "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
|
|
|
|
# 2137 "parsing/parser.mly"
|
|
( let desc, attrs = _1 in
|
|
mkexp_attrs ~loc:_sloc desc attrs )
|
|
# 8963 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 9014 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 9020 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2215 "parsing/parser.mly"
|
|
( Pexp_lazy _3, _2 )
|
|
# 9026 "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
|
|
|
|
# 2137 "parsing/parser.mly"
|
|
( let desc, attrs = _1 in
|
|
mkexp_attrs ~loc:_sloc desc attrs )
|
|
# 9037 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xss;
|
|
MenhirLib.EngineTypes.startp = _startpos_xss_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xss_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( List.flatten xss )
|
|
# 9102 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1821 "parsing/parser.mly"
|
|
( _1 )
|
|
# 9107 "parsing/parser.ml"
|
|
|
|
in
|
|
let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in
|
|
let _endpos = _endpos__1_ in
|
|
let _startpos = _startpos__1_ in
|
|
|
|
# 807 "parsing/parser.mly"
|
|
( extra_cstr _startpos _endpos _1 )
|
|
# 9116 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1808 "parsing/parser.mly"
|
|
( Cstr.mk _1 _2 )
|
|
# 9122 "parsing/parser.ml"
|
|
|
|
in
|
|
let _2 =
|
|
let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 9132 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 9138 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2217 "parsing/parser.mly"
|
|
( Pexp_object _3, _2 )
|
|
# 9144 "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
|
|
|
|
# 2137 "parsing/parser.mly"
|
|
( let desc, attrs = _1 in
|
|
mkexp_attrs ~loc:_sloc desc attrs )
|
|
# 9155 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xss;
|
|
MenhirLib.EngineTypes.startp = _startpos_xss_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xss_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( List.flatten xss )
|
|
# 9220 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1821 "parsing/parser.mly"
|
|
( _1 )
|
|
# 9225 "parsing/parser.ml"
|
|
|
|
in
|
|
let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in
|
|
let _endpos = _endpos__1_ in
|
|
let _startpos = _startpos__1_ in
|
|
|
|
# 807 "parsing/parser.mly"
|
|
( extra_cstr _startpos _endpos _1 )
|
|
# 9234 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1808 "parsing/parser.mly"
|
|
( Cstr.mk _1 _2 )
|
|
# 9240 "parsing/parser.ml"
|
|
|
|
in
|
|
let _2 =
|
|
let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 9250 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 9256 "parsing/parser.ml"
|
|
|
|
in
|
|
let _loc__4_ = (_startpos__4_, _endpos__4_) in
|
|
let _loc__1_ = (_startpos__1_, _endpos__1_) in
|
|
|
|
# 2219 "parsing/parser.mly"
|
|
( unclosed "object" _loc__1_ "end" _loc__4_ )
|
|
# 9264 "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
|
|
|
|
# 2137 "parsing/parser.mly"
|
|
( let desc, attrs = _1 in
|
|
mkexp_attrs ~loc:_sloc desc attrs )
|
|
# 9275 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 9310 "parsing/parser.ml"
|
|
in
|
|
|
|
# 915 "parsing/parser.mly"
|
|
( xs )
|
|
# 9315 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2223 "parsing/parser.mly"
|
|
( Pexp_apply(_1, _2) )
|
|
# 9321 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 9331 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2140 "parsing/parser.mly"
|
|
( _1 )
|
|
# 9337 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let xs : (Parsetree.expression list) = Obj.magic xs in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 9366 "parsing/parser.ml"
|
|
in
|
|
|
|
# 975 "parsing/parser.mly"
|
|
( xs )
|
|
# 9371 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2546 "parsing/parser.mly"
|
|
( es )
|
|
# 9377 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2225 "parsing/parser.mly"
|
|
( Pexp_tuple(_1) )
|
|
# 9383 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 9393 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2140 "parsing/parser.mly"
|
|
( _1 )
|
|
# 9399 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 9437 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2227 "parsing/parser.mly"
|
|
( Pexp_construct(_1, Some _2) )
|
|
# 9443 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 9453 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2140 "parsing/parser.mly"
|
|
( _1 )
|
|
# 9459 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.expression) = let _1 =
|
|
let _1 =
|
|
# 2229 "parsing/parser.mly"
|
|
( Pexp_variant(_1, Some _2) )
|
|
# 9492 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 9501 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2140 "parsing/parser.mly"
|
|
( _1 )
|
|
# 9507 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = e2;
|
|
MenhirLib.EngineTypes.startp = _startpos_e2_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = op;
|
|
MenhirLib.EngineTypes.startp = _startpos_op_;
|
|
MenhirLib.EngineTypes.endp = _endpos_op_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = e1;
|
|
MenhirLib.EngineTypes.startp = _startpos_e1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let e2 : (Parsetree.expression) = Obj.magic e2 in
|
|
let op : (
|
|
# 623 "parsing/parser.mly"
|
|
(string)
|
|
# 9541 "parsing/parser.ml"
|
|
) = Obj.magic op in
|
|
let e1 : (Parsetree.expression) = Obj.magic e1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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 =
|
|
# 3454 "parsing/parser.mly"
|
|
( op )
|
|
# 9553 "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
|
|
|
|
# 840 "parsing/parser.mly"
|
|
( mkoperator ~loc:_sloc _1 )
|
|
# 9562 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2231 "parsing/parser.mly"
|
|
( mkinfix e1 op e2 )
|
|
# 9568 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 9578 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2140 "parsing/parser.mly"
|
|
( _1 )
|
|
# 9584 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = e2;
|
|
MenhirLib.EngineTypes.startp = _startpos_e2_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = op;
|
|
MenhirLib.EngineTypes.startp = _startpos_op_;
|
|
MenhirLib.EngineTypes.endp = _endpos_op_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = e1;
|
|
MenhirLib.EngineTypes.startp = _startpos_e1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let e2 : (Parsetree.expression) = Obj.magic e2 in
|
|
let op : (
|
|
# 624 "parsing/parser.mly"
|
|
(string)
|
|
# 9618 "parsing/parser.ml"
|
|
) = Obj.magic op in
|
|
let e1 : (Parsetree.expression) = Obj.magic e1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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 =
|
|
# 3455 "parsing/parser.mly"
|
|
( op )
|
|
# 9630 "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
|
|
|
|
# 840 "parsing/parser.mly"
|
|
( mkoperator ~loc:_sloc _1 )
|
|
# 9639 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2231 "parsing/parser.mly"
|
|
( mkinfix e1 op e2 )
|
|
# 9645 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 9655 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2140 "parsing/parser.mly"
|
|
( _1 )
|
|
# 9661 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = e2;
|
|
MenhirLib.EngineTypes.startp = _startpos_e2_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = op;
|
|
MenhirLib.EngineTypes.startp = _startpos_op_;
|
|
MenhirLib.EngineTypes.endp = _endpos_op_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = e1;
|
|
MenhirLib.EngineTypes.startp = _startpos_e1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let e2 : (Parsetree.expression) = Obj.magic e2 in
|
|
let op : (
|
|
# 625 "parsing/parser.mly"
|
|
(string)
|
|
# 9695 "parsing/parser.ml"
|
|
) = Obj.magic op in
|
|
let e1 : (Parsetree.expression) = Obj.magic e1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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 =
|
|
# 3456 "parsing/parser.mly"
|
|
( op )
|
|
# 9707 "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
|
|
|
|
# 840 "parsing/parser.mly"
|
|
( mkoperator ~loc:_sloc _1 )
|
|
# 9716 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2231 "parsing/parser.mly"
|
|
( mkinfix e1 op e2 )
|
|
# 9722 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 9732 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2140 "parsing/parser.mly"
|
|
( _1 )
|
|
# 9738 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = e2;
|
|
MenhirLib.EngineTypes.startp = _startpos_e2_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = op;
|
|
MenhirLib.EngineTypes.startp = _startpos_op_;
|
|
MenhirLib.EngineTypes.endp = _endpos_op_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = e1;
|
|
MenhirLib.EngineTypes.startp = _startpos_e1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let e2 : (Parsetree.expression) = Obj.magic e2 in
|
|
let op : (
|
|
# 626 "parsing/parser.mly"
|
|
(string)
|
|
# 9772 "parsing/parser.ml"
|
|
) = Obj.magic op in
|
|
let e1 : (Parsetree.expression) = Obj.magic e1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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 =
|
|
# 3457 "parsing/parser.mly"
|
|
( op )
|
|
# 9784 "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
|
|
|
|
# 840 "parsing/parser.mly"
|
|
( mkoperator ~loc:_sloc _1 )
|
|
# 9793 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2231 "parsing/parser.mly"
|
|
( mkinfix e1 op e2 )
|
|
# 9799 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 9809 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2140 "parsing/parser.mly"
|
|
( _1 )
|
|
# 9815 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = e2;
|
|
MenhirLib.EngineTypes.startp = _startpos_e2_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = op;
|
|
MenhirLib.EngineTypes.startp = _startpos_op_;
|
|
MenhirLib.EngineTypes.endp = _endpos_op_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = e1;
|
|
MenhirLib.EngineTypes.startp = _startpos_e1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let e2 : (Parsetree.expression) = Obj.magic e2 in
|
|
let op : (
|
|
# 627 "parsing/parser.mly"
|
|
(string)
|
|
# 9849 "parsing/parser.ml"
|
|
) = Obj.magic op in
|
|
let e1 : (Parsetree.expression) = Obj.magic e1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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 =
|
|
# 3458 "parsing/parser.mly"
|
|
( op )
|
|
# 9861 "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
|
|
|
|
# 840 "parsing/parser.mly"
|
|
( mkoperator ~loc:_sloc _1 )
|
|
# 9870 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2231 "parsing/parser.mly"
|
|
( mkinfix e1 op e2 )
|
|
# 9876 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 9886 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2140 "parsing/parser.mly"
|
|
( _1 )
|
|
# 9892 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = e2;
|
|
MenhirLib.EngineTypes.startp = _startpos_e2_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = e1;
|
|
MenhirLib.EngineTypes.startp = _startpos_e1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3459 "parsing/parser.mly"
|
|
("+")
|
|
# 9934 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 840 "parsing/parser.mly"
|
|
( mkoperator ~loc:_sloc _1 )
|
|
# 9942 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2231 "parsing/parser.mly"
|
|
( mkinfix e1 op e2 )
|
|
# 9948 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 9958 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2140 "parsing/parser.mly"
|
|
( _1 )
|
|
# 9964 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = e2;
|
|
MenhirLib.EngineTypes.startp = _startpos_e2_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = e1;
|
|
MenhirLib.EngineTypes.startp = _startpos_e1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3460 "parsing/parser.mly"
|
|
("+.")
|
|
# 10006 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 840 "parsing/parser.mly"
|
|
( mkoperator ~loc:_sloc _1 )
|
|
# 10014 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2231 "parsing/parser.mly"
|
|
( mkinfix e1 op e2 )
|
|
# 10020 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 10030 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2140 "parsing/parser.mly"
|
|
( _1 )
|
|
# 10036 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = e2;
|
|
MenhirLib.EngineTypes.startp = _startpos_e2_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = e1;
|
|
MenhirLib.EngineTypes.startp = _startpos_e1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3461 "parsing/parser.mly"
|
|
("+=")
|
|
# 10078 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 840 "parsing/parser.mly"
|
|
( mkoperator ~loc:_sloc _1 )
|
|
# 10086 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2231 "parsing/parser.mly"
|
|
( mkinfix e1 op e2 )
|
|
# 10092 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 10102 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2140 "parsing/parser.mly"
|
|
( _1 )
|
|
# 10108 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = e2;
|
|
MenhirLib.EngineTypes.startp = _startpos_e2_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = e1;
|
|
MenhirLib.EngineTypes.startp = _startpos_e1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3462 "parsing/parser.mly"
|
|
("-")
|
|
# 10150 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 840 "parsing/parser.mly"
|
|
( mkoperator ~loc:_sloc _1 )
|
|
# 10158 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2231 "parsing/parser.mly"
|
|
( mkinfix e1 op e2 )
|
|
# 10164 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 10174 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2140 "parsing/parser.mly"
|
|
( _1 )
|
|
# 10180 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = e2;
|
|
MenhirLib.EngineTypes.startp = _startpos_e2_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = e1;
|
|
MenhirLib.EngineTypes.startp = _startpos_e1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3463 "parsing/parser.mly"
|
|
("-.")
|
|
# 10222 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 840 "parsing/parser.mly"
|
|
( mkoperator ~loc:_sloc _1 )
|
|
# 10230 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2231 "parsing/parser.mly"
|
|
( mkinfix e1 op e2 )
|
|
# 10236 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 10246 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2140 "parsing/parser.mly"
|
|
( _1 )
|
|
# 10252 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = e2;
|
|
MenhirLib.EngineTypes.startp = _startpos_e2_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = e1;
|
|
MenhirLib.EngineTypes.startp = _startpos_e1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3464 "parsing/parser.mly"
|
|
("*")
|
|
# 10294 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 840 "parsing/parser.mly"
|
|
( mkoperator ~loc:_sloc _1 )
|
|
# 10302 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2231 "parsing/parser.mly"
|
|
( mkinfix e1 op e2 )
|
|
# 10308 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 10318 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2140 "parsing/parser.mly"
|
|
( _1 )
|
|
# 10324 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = e2;
|
|
MenhirLib.EngineTypes.startp = _startpos_e2_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = e1;
|
|
MenhirLib.EngineTypes.startp = _startpos_e1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3465 "parsing/parser.mly"
|
|
("%")
|
|
# 10366 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 840 "parsing/parser.mly"
|
|
( mkoperator ~loc:_sloc _1 )
|
|
# 10374 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2231 "parsing/parser.mly"
|
|
( mkinfix e1 op e2 )
|
|
# 10380 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 10390 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2140 "parsing/parser.mly"
|
|
( _1 )
|
|
# 10396 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = e2;
|
|
MenhirLib.EngineTypes.startp = _startpos_e2_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = e1;
|
|
MenhirLib.EngineTypes.startp = _startpos_e1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3466 "parsing/parser.mly"
|
|
("=")
|
|
# 10438 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 840 "parsing/parser.mly"
|
|
( mkoperator ~loc:_sloc _1 )
|
|
# 10446 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2231 "parsing/parser.mly"
|
|
( mkinfix e1 op e2 )
|
|
# 10452 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 10462 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2140 "parsing/parser.mly"
|
|
( _1 )
|
|
# 10468 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = e2;
|
|
MenhirLib.EngineTypes.startp = _startpos_e2_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = e1;
|
|
MenhirLib.EngineTypes.startp = _startpos_e1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3467 "parsing/parser.mly"
|
|
("<")
|
|
# 10510 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 840 "parsing/parser.mly"
|
|
( mkoperator ~loc:_sloc _1 )
|
|
# 10518 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2231 "parsing/parser.mly"
|
|
( mkinfix e1 op e2 )
|
|
# 10524 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 10534 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2140 "parsing/parser.mly"
|
|
( _1 )
|
|
# 10540 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = e2;
|
|
MenhirLib.EngineTypes.startp = _startpos_e2_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = e1;
|
|
MenhirLib.EngineTypes.startp = _startpos_e1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3468 "parsing/parser.mly"
|
|
(">")
|
|
# 10582 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 840 "parsing/parser.mly"
|
|
( mkoperator ~loc:_sloc _1 )
|
|
# 10590 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2231 "parsing/parser.mly"
|
|
( mkinfix e1 op e2 )
|
|
# 10596 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 10606 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2140 "parsing/parser.mly"
|
|
( _1 )
|
|
# 10612 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = e2;
|
|
MenhirLib.EngineTypes.startp = _startpos_e2_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = e1;
|
|
MenhirLib.EngineTypes.startp = _startpos_e1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3469 "parsing/parser.mly"
|
|
("or")
|
|
# 10654 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 840 "parsing/parser.mly"
|
|
( mkoperator ~loc:_sloc _1 )
|
|
# 10662 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2231 "parsing/parser.mly"
|
|
( mkinfix e1 op e2 )
|
|
# 10668 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 10678 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2140 "parsing/parser.mly"
|
|
( _1 )
|
|
# 10684 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = e2;
|
|
MenhirLib.EngineTypes.startp = _startpos_e2_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = e1;
|
|
MenhirLib.EngineTypes.startp = _startpos_e1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3470 "parsing/parser.mly"
|
|
("||")
|
|
# 10726 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 840 "parsing/parser.mly"
|
|
( mkoperator ~loc:_sloc _1 )
|
|
# 10734 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2231 "parsing/parser.mly"
|
|
( mkinfix e1 op e2 )
|
|
# 10740 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 10750 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2140 "parsing/parser.mly"
|
|
( _1 )
|
|
# 10756 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = e2;
|
|
MenhirLib.EngineTypes.startp = _startpos_e2_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = e1;
|
|
MenhirLib.EngineTypes.startp = _startpos_e1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3471 "parsing/parser.mly"
|
|
("&")
|
|
# 10798 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 840 "parsing/parser.mly"
|
|
( mkoperator ~loc:_sloc _1 )
|
|
# 10806 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2231 "parsing/parser.mly"
|
|
( mkinfix e1 op e2 )
|
|
# 10812 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 10822 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2140 "parsing/parser.mly"
|
|
( _1 )
|
|
# 10828 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = e2;
|
|
MenhirLib.EngineTypes.startp = _startpos_e2_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = e1;
|
|
MenhirLib.EngineTypes.startp = _startpos_e1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3472 "parsing/parser.mly"
|
|
("&&")
|
|
# 10870 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 840 "parsing/parser.mly"
|
|
( mkoperator ~loc:_sloc _1 )
|
|
# 10878 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2231 "parsing/parser.mly"
|
|
( mkinfix e1 op e2 )
|
|
# 10884 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 10894 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2140 "parsing/parser.mly"
|
|
( _1 )
|
|
# 10900 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = e2;
|
|
MenhirLib.EngineTypes.startp = _startpos_e2_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = e1;
|
|
MenhirLib.EngineTypes.startp = _startpos_e1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3473 "parsing/parser.mly"
|
|
(":=")
|
|
# 10942 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 840 "parsing/parser.mly"
|
|
( mkoperator ~loc:_sloc _1 )
|
|
# 10950 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2231 "parsing/parser.mly"
|
|
( mkinfix e1 op e2 )
|
|
# 10956 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 10966 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2140 "parsing/parser.mly"
|
|
( _1 )
|
|
# 10972 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2233 "parsing/parser.mly"
|
|
( mkuminus ~oploc:_loc__1_ _1 _2 )
|
|
# 11007 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 11017 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2140 "parsing/parser.mly"
|
|
( _1 )
|
|
# 11023 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2235 "parsing/parser.mly"
|
|
( mkuplus ~oploc:_loc__1_ _1 _2 )
|
|
# 11058 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 11068 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2140 "parsing/parser.mly"
|
|
( _1 )
|
|
# 11074 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2142 "parsing/parser.mly"
|
|
( expr_of_let_bindings ~loc:_sloc _1 _3 )
|
|
# 11116 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = body;
|
|
MenhirLib.EngineTypes.startp = _startpos_body_;
|
|
MenhirLib.EngineTypes.endp = _endpos_body_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = bindings;
|
|
MenhirLib.EngineTypes.startp = _startpos_bindings_;
|
|
MenhirLib.EngineTypes.endp = _endpos_bindings_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 629 "parsing/parser.mly"
|
|
(string)
|
|
# 11158 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 11170 "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
|
|
|
|
# 2144 "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}) )
|
|
# 11184 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2150 "parsing/parser.mly"
|
|
( mkexp_cons ~loc:_sloc _loc__2_ (ghexp ~loc:_sloc (Pexp_tuple[_1;_3])) )
|
|
# 11227 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _3 : (Parsetree.expression) = Obj.magic _3 in
|
|
let _2 : unit = Obj.magic _2 in
|
|
let _1 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 11262 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.expression) = let _1 =
|
|
let _1 =
|
|
# 3404 "parsing/parser.mly"
|
|
( _1 )
|
|
# 11271 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 11279 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__3_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2152 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc (Pexp_setinstvar(_1, _3)) )
|
|
# 11288 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 11346 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__5_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2154 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc (Pexp_setfield(_1, _3, _5)) )
|
|
# 11355 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _7 : (Parsetree.expression) = Obj.magic _7 in
|
|
let _6 : unit = Obj.magic _6 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 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__7_ in
|
|
let _v : (Parsetree.expression) = let _endpos = _endpos__7_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2156 "parsing/parser.mly"
|
|
( array_set ~loc:_sloc _1 _4 _7 )
|
|
# 11425 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _7 : (Parsetree.expression) = Obj.magic _7 in
|
|
let _6 : unit = Obj.magic _6 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 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__7_ in
|
|
let _v : (Parsetree.expression) = let _endpos = _endpos__7_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2158 "parsing/parser.mly"
|
|
( string_set ~loc:_sloc _1 _4 _7 )
|
|
# 11495 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _7 : (Parsetree.expression) = Obj.magic _7 in
|
|
let _6 : unit = Obj.magic _6 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 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__7_ in
|
|
let _v : (Parsetree.expression) = let _endpos = _endpos__7_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2160 "parsing/parser.mly"
|
|
( bigarray_set ~loc:_sloc _1 _4 _7 )
|
|
# 11565 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = es;
|
|
MenhirLib.EngineTypes.startp = _startpos_es_;
|
|
MenhirLib.EngineTypes.endp = _endpos_es_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _7 : (Parsetree.expression) = Obj.magic _7 in
|
|
let _6 : unit = Obj.magic _6 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 : (
|
|
# 628 "parsing/parser.mly"
|
|
(string)
|
|
# 11627 "parsing/parser.ml"
|
|
) = Obj.magic _2 in
|
|
let _1 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__7_ in
|
|
let _v : (Parsetree.expression) = let _4 =
|
|
# 2586 "parsing/parser.mly"
|
|
( es )
|
|
# 11636 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__7_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2162 "parsing/parser.mly"
|
|
( dotop_set ~loc:_sloc lident bracket _2 _1 _4 _7 )
|
|
# 11644 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = es;
|
|
MenhirLib.EngineTypes.startp = _startpos_es_;
|
|
MenhirLib.EngineTypes.endp = _endpos_es_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _7 : (Parsetree.expression) = Obj.magic _7 in
|
|
let _6 : unit = Obj.magic _6 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 : (
|
|
# 628 "parsing/parser.mly"
|
|
(string)
|
|
# 11706 "parsing/parser.ml"
|
|
) = Obj.magic _2 in
|
|
let _1 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__7_ in
|
|
let _v : (Parsetree.expression) = let _4 =
|
|
# 2586 "parsing/parser.mly"
|
|
( es )
|
|
# 11715 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__7_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2164 "parsing/parser.mly"
|
|
( dotop_set ~loc:_sloc lident paren _2 _1 _4 _7 )
|
|
# 11723 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = es;
|
|
MenhirLib.EngineTypes.startp = _startpos_es_;
|
|
MenhirLib.EngineTypes.endp = _endpos_es_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _7 : (Parsetree.expression) = Obj.magic _7 in
|
|
let _6 : unit = Obj.magic _6 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 : (
|
|
# 628 "parsing/parser.mly"
|
|
(string)
|
|
# 11785 "parsing/parser.ml"
|
|
) = Obj.magic _2 in
|
|
let _1 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__7_ in
|
|
let _v : (Parsetree.expression) = let _4 =
|
|
# 2586 "parsing/parser.mly"
|
|
( es )
|
|
# 11794 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__7_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2166 "parsing/parser.mly"
|
|
( dotop_set ~loc:_sloc lident brace _2 _1 _4 _7 )
|
|
# 11802 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _9;
|
|
MenhirLib.EngineTypes.startp = _startpos__9_;
|
|
MenhirLib.EngineTypes.endp = _endpos__9_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _8;
|
|
MenhirLib.EngineTypes.startp = _startpos__8_;
|
|
MenhirLib.EngineTypes.endp = _endpos__8_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = es;
|
|
MenhirLib.EngineTypes.startp = _startpos_es_;
|
|
MenhirLib.EngineTypes.endp = _endpos_es_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _9 : (Parsetree.expression) = Obj.magic _9 in
|
|
let _8 : unit = Obj.magic _8 in
|
|
let _7 : unit = Obj.magic _7 in
|
|
let es : (Parsetree.expression list) = Obj.magic es in
|
|
let _5 : unit = Obj.magic _5 in
|
|
let _4 : (
|
|
# 628 "parsing/parser.mly"
|
|
(string)
|
|
# 11876 "parsing/parser.ml"
|
|
) = Obj.magic _4 in
|
|
let _3 : (Longident.t) = Obj.magic _3 in
|
|
let _2 : unit = Obj.magic _2 in
|
|
let _1 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__9_ in
|
|
let _v : (Parsetree.expression) = let _6 =
|
|
# 2586 "parsing/parser.mly"
|
|
( es )
|
|
# 11887 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__9_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2169 "parsing/parser.mly"
|
|
( dotop_set ~loc:_sloc (ldot _3) bracket _4 _1 _6 _9 )
|
|
# 11895 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _9;
|
|
MenhirLib.EngineTypes.startp = _startpos__9_;
|
|
MenhirLib.EngineTypes.endp = _endpos__9_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _8;
|
|
MenhirLib.EngineTypes.startp = _startpos__8_;
|
|
MenhirLib.EngineTypes.endp = _endpos__8_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = es;
|
|
MenhirLib.EngineTypes.startp = _startpos_es_;
|
|
MenhirLib.EngineTypes.endp = _endpos_es_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _9 : (Parsetree.expression) = Obj.magic _9 in
|
|
let _8 : unit = Obj.magic _8 in
|
|
let _7 : unit = Obj.magic _7 in
|
|
let es : (Parsetree.expression list) = Obj.magic es in
|
|
let _5 : unit = Obj.magic _5 in
|
|
let _4 : (
|
|
# 628 "parsing/parser.mly"
|
|
(string)
|
|
# 11969 "parsing/parser.ml"
|
|
) = Obj.magic _4 in
|
|
let _3 : (Longident.t) = Obj.magic _3 in
|
|
let _2 : unit = Obj.magic _2 in
|
|
let _1 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__9_ in
|
|
let _v : (Parsetree.expression) = let _6 =
|
|
# 2586 "parsing/parser.mly"
|
|
( es )
|
|
# 11980 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__9_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2172 "parsing/parser.mly"
|
|
( dotop_set ~loc:_sloc (ldot _3) paren _4 _1 _6 _9 )
|
|
# 11988 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _9;
|
|
MenhirLib.EngineTypes.startp = _startpos__9_;
|
|
MenhirLib.EngineTypes.endp = _endpos__9_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _8;
|
|
MenhirLib.EngineTypes.startp = _startpos__8_;
|
|
MenhirLib.EngineTypes.endp = _endpos__8_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = es;
|
|
MenhirLib.EngineTypes.startp = _startpos_es_;
|
|
MenhirLib.EngineTypes.endp = _endpos_es_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _9 : (Parsetree.expression) = Obj.magic _9 in
|
|
let _8 : unit = Obj.magic _8 in
|
|
let _7 : unit = Obj.magic _7 in
|
|
let es : (Parsetree.expression list) = Obj.magic es in
|
|
let _5 : unit = Obj.magic _5 in
|
|
let _4 : (
|
|
# 628 "parsing/parser.mly"
|
|
(string)
|
|
# 12062 "parsing/parser.ml"
|
|
) = Obj.magic _4 in
|
|
let _3 : (Longident.t) = Obj.magic _3 in
|
|
let _2 : unit = Obj.magic _2 in
|
|
let _1 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__9_ in
|
|
let _v : (Parsetree.expression) = let _6 =
|
|
# 2586 "parsing/parser.mly"
|
|
( es )
|
|
# 12073 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__9_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2175 "parsing/parser.mly"
|
|
( dotop_set ~loc:_sloc (ldot _3) brace _4 _1 _6 _9 )
|
|
# 12081 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.expression) =
|
|
# 2177 "parsing/parser.mly"
|
|
( Exp.attr _1 _2 )
|
|
# 12113 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 2179 "parsing/parser.mly"
|
|
( not_expecting _loc__1_ "wildcard \"_\"" )
|
|
# 12139 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (string Asttypes.loc option) =
|
|
# 3745 "parsing/parser.mly"
|
|
( None )
|
|
# 12157 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (string Asttypes.loc option) =
|
|
# 3746 "parsing/parser.mly"
|
|
( Some _2 )
|
|
# 12189 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__4_ in
|
|
let _v : (Parsetree.extension) =
|
|
# 3756 "parsing/parser.mly"
|
|
( (_2, _3) )
|
|
# 12235 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (
|
|
# 687 "parsing/parser.mly"
|
|
(string * Location.t * string * Location.t * string option)
|
|
# 12256 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 3758 "parsing/parser.mly"
|
|
( mk_quotedext ~loc:_sloc _1 )
|
|
# 12267 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 12322 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 12334 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 12345 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 3114 "parsing/parser.mly"
|
|
( let info = symbol_info _endpos in
|
|
Te.rebind cid lid ~attrs ~loc:(make_loc _sloc) ~info )
|
|
# 12355 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 12403 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 12415 "parsing/parser.ml"
|
|
|
|
in
|
|
let cid =
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 12425 "parsing/parser.ml"
|
|
|
|
in
|
|
let _startpos_cid_ = _startpos__1_ in
|
|
let _1 =
|
|
# 3565 "parsing/parser.mly"
|
|
( () )
|
|
# 12432 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos_attrs_ in
|
|
let _symbolstartpos = _startpos_cid_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 3114 "parsing/parser.mly"
|
|
( let info = symbol_info _endpos in
|
|
Te.rebind cid lid ~attrs ~loc:(make_loc _sloc) ~info )
|
|
# 12441 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3733 "parsing/parser.mly"
|
|
( mark_symbol_docs _sloc;
|
|
Attr.mk ~loc:(make_loc _sloc) _2 _3 )
|
|
# 12491 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let params =
|
|
# 1928 "parsing/parser.mly"
|
|
( [] )
|
|
# 12509 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1753 "parsing/parser.mly"
|
|
( params )
|
|
# 12514 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 12555 "parsing/parser.ml"
|
|
in
|
|
|
|
# 947 "parsing/parser.mly"
|
|
( xs )
|
|
# 12560 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1930 "parsing/parser.mly"
|
|
( params )
|
|
# 12566 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1753 "parsing/parser.mly"
|
|
( params )
|
|
# 12572 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.expression) =
|
|
# 2505 "parsing/parser.mly"
|
|
( _1 )
|
|
# 12597 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2507 "parsing/parser.mly"
|
|
( mkexp_constraint ~loc:_sloc _3 _1 )
|
|
# 12639 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.expression) =
|
|
# 2531 "parsing/parser.mly"
|
|
( _2 )
|
|
# 12671 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__4_ in
|
|
let _v : (Parsetree.expression) = let _1 =
|
|
let _1 =
|
|
# 2533 "parsing/parser.mly"
|
|
( Pexp_constraint (_4, _2) )
|
|
# 12718 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 12727 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2534 "parsing/parser.mly"
|
|
( _1 )
|
|
# 12733 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2537 "parsing/parser.mly"
|
|
(
|
|
let (l,o,p) = _1 in
|
|
ghexp ~loc:_sloc (Pexp_fun(l, o, p, _2))
|
|
)
|
|
# 12771 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__5_ in
|
|
let _v : (Parsetree.expression) = let _3 =
|
|
# 2414 "parsing/parser.mly"
|
|
( xs )
|
|
# 12824 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__5_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2542 "parsing/parser.mly"
|
|
( mk_newtypes ~loc:_sloc _3 _5 )
|
|
# 12832 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = ty;
|
|
MenhirLib.EngineTypes.startp = _startpos_ty_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ty_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let ty : (Parsetree.core_type) = Obj.magic ty in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_ty_ in
|
|
let _endpos = _endpos_ty_ in
|
|
let _v : (Parsetree.core_type) =
|
|
# 3226 "parsing/parser.mly"
|
|
( ty )
|
|
# 12857 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = codomain;
|
|
MenhirLib.EngineTypes.startp = _startpos_codomain_;
|
|
MenhirLib.EngineTypes.endp = _endpos_codomain_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = label;
|
|
MenhirLib.EngineTypes.startp = _startpos_label_;
|
|
MenhirLib.EngineTypes.endp = _endpos_label_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_label_ in
|
|
let _endpos = _endpos_codomain_ in
|
|
let _v : (Parsetree.core_type) = let _1 =
|
|
let _1 =
|
|
let domain =
|
|
# 811 "parsing/parser.mly"
|
|
( extra_rhs_core_type _1 ~pos:_endpos__1_ )
|
|
# 12905 "parsing/parser.ml"
|
|
in
|
|
let label =
|
|
# 3238 "parsing/parser.mly"
|
|
( Optional label )
|
|
# 12910 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3232 "parsing/parser.mly"
|
|
( Ptyp_arrow(label, domain, codomain) )
|
|
# 12915 "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
|
|
|
|
# 850 "parsing/parser.mly"
|
|
( mktyp ~loc:_sloc _1 )
|
|
# 12925 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3234 "parsing/parser.mly"
|
|
( _1 )
|
|
# 12931 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = codomain;
|
|
MenhirLib.EngineTypes.startp = _startpos_codomain_;
|
|
MenhirLib.EngineTypes.endp = _endpos_codomain_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = label;
|
|
MenhirLib.EngineTypes.startp = _startpos_label_;
|
|
MenhirLib.EngineTypes.endp = _endpos_label_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 12980 "parsing/parser.ml"
|
|
) = Obj.magic label in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_label_ in
|
|
let _endpos = _endpos_codomain_ in
|
|
let _v : (Parsetree.core_type) = let _1 =
|
|
let _1 =
|
|
let domain =
|
|
# 811 "parsing/parser.mly"
|
|
( extra_rhs_core_type _1 ~pos:_endpos__1_ )
|
|
# 12990 "parsing/parser.ml"
|
|
in
|
|
let label =
|
|
# 3240 "parsing/parser.mly"
|
|
( Labelled label )
|
|
# 12995 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3232 "parsing/parser.mly"
|
|
( Ptyp_arrow(label, domain, codomain) )
|
|
# 13000 "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
|
|
|
|
# 850 "parsing/parser.mly"
|
|
( mktyp ~loc:_sloc _1 )
|
|
# 13010 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3234 "parsing/parser.mly"
|
|
( _1 )
|
|
# 13016 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = codomain;
|
|
MenhirLib.EngineTypes.startp = _startpos_codomain_;
|
|
MenhirLib.EngineTypes.endp = _endpos_codomain_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos_codomain_ in
|
|
let _v : (Parsetree.core_type) = let _1 =
|
|
let _1 =
|
|
let domain =
|
|
# 811 "parsing/parser.mly"
|
|
( extra_rhs_core_type _1 ~pos:_endpos__1_ )
|
|
# 13057 "parsing/parser.ml"
|
|
in
|
|
let label =
|
|
# 3242 "parsing/parser.mly"
|
|
( Nolabel )
|
|
# 13062 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3232 "parsing/parser.mly"
|
|
( Ptyp_arrow(label, domain, codomain) )
|
|
# 13067 "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
|
|
|
|
# 850 "parsing/parser.mly"
|
|
( mktyp ~loc:_sloc _1 )
|
|
# 13077 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3234 "parsing/parser.mly"
|
|
( _1 )
|
|
# 13083 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.functor_parameter) =
|
|
# 1186 "parsing/parser.mly"
|
|
( Unit )
|
|
# 13115 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = mty;
|
|
MenhirLib.EngineTypes.startp = _startpos_mty_;
|
|
MenhirLib.EngineTypes.endp = _endpos_mty_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__5_ in
|
|
let _v : (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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 13173 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1189 "parsing/parser.mly"
|
|
( Named (x, mty) )
|
|
# 13179 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Parsetree.constructor_arguments * Parsetree.core_type option) =
|
|
# 3034 "parsing/parser.mly"
|
|
( (Pcstr_tuple [],None) )
|
|
# 13197 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.constructor_arguments * Parsetree.core_type option) =
|
|
# 3035 "parsing/parser.mly"
|
|
( (_2,None) )
|
|
# 13229 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__4_ in
|
|
let _v : (Parsetree.constructor_arguments * Parsetree.core_type option) =
|
|
# 3037 "parsing/parser.mly"
|
|
( (_2,Some _4) )
|
|
# 13275 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.constructor_arguments * Parsetree.core_type option) =
|
|
# 3039 "parsing/parser.mly"
|
|
( (Pcstr_tuple [],Some _2) )
|
|
# 13307 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = args_res;
|
|
MenhirLib.EngineTypes.startp = _startpos_args_res_;
|
|
MenhirLib.EngineTypes.endp = _endpos_args_res_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 13357 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 13369 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2982 "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
|
|
)
|
|
# 13383 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = args_res;
|
|
MenhirLib.EngineTypes.startp = _startpos_args_res_;
|
|
MenhirLib.EngineTypes.endp = _endpos_args_res_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 13426 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 13437 "parsing/parser.ml"
|
|
|
|
in
|
|
let _startpos_cid_ = _startpos__1_ in
|
|
let _1 =
|
|
# 3565 "parsing/parser.mly"
|
|
( () )
|
|
# 13444 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos_attrs_ in
|
|
let _symbolstartpos = _startpos_cid_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2982 "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
|
|
)
|
|
# 13457 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined4;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = params;
|
|
MenhirLib.EngineTypes.startp = _startpos_params_;
|
|
MenhirLib.EngineTypes.endp = _endpos_params_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 13530 "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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 13545 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos_attrs2_ = _endpos__1_inlined4_ in
|
|
let cstrs =
|
|
let _1 =
|
|
let xs =
|
|
# 253 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 13554 "parsing/parser.ml"
|
|
in
|
|
|
|
# 897 "parsing/parser.mly"
|
|
( xs )
|
|
# 13559 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2887 "parsing/parser.mly"
|
|
( _1 )
|
|
# 13565 "parsing/parser.ml"
|
|
|
|
in
|
|
let kind_priv_manifest =
|
|
let _1 = _1_inlined3 in
|
|
|
|
# 2922 "parsing/parser.mly"
|
|
( _2 )
|
|
# 13573 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 13584 "parsing/parser.ml"
|
|
|
|
in
|
|
let flag =
|
|
# 3585 "parsing/parser.mly"
|
|
( Recursive )
|
|
# 13590 "parsing/parser.ml"
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 13597 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2859 "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
|
|
)
|
|
# 13613 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined5;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined4;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = params;
|
|
MenhirLib.EngineTypes.startp = _startpos_params_;
|
|
MenhirLib.EngineTypes.endp = _endpos_params_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 13692 "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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 13708 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos_attrs2_ = _endpos__1_inlined5_ in
|
|
let cstrs =
|
|
let _1 =
|
|
let xs =
|
|
# 253 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 13717 "parsing/parser.ml"
|
|
in
|
|
|
|
# 897 "parsing/parser.mly"
|
|
( xs )
|
|
# 13722 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2887 "parsing/parser.mly"
|
|
( _1 )
|
|
# 13728 "parsing/parser.ml"
|
|
|
|
in
|
|
let kind_priv_manifest =
|
|
let _1 = _1_inlined4 in
|
|
|
|
# 2922 "parsing/parser.mly"
|
|
( _2 )
|
|
# 13736 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 13747 "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
|
|
|
|
# 3586 "parsing/parser.mly"
|
|
( not_expecting _loc "nonrec flag" )
|
|
# 13758 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 13766 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2859 "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
|
|
)
|
|
# 13782 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = kind_priv_manifest;
|
|
MenhirLib.EngineTypes.startp = _startpos_kind_priv_manifest_;
|
|
MenhirLib.EngineTypes.endp = _endpos_kind_priv_manifest_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = params;
|
|
MenhirLib.EngineTypes.startp = _startpos_params_;
|
|
MenhirLib.EngineTypes.endp = _endpos_params_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 13848 "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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 13863 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos_attrs2_ = _endpos__1_inlined3_ in
|
|
let cstrs =
|
|
let _1 =
|
|
let xs =
|
|
# 253 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 13872 "parsing/parser.ml"
|
|
in
|
|
|
|
# 897 "parsing/parser.mly"
|
|
( xs )
|
|
# 13877 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2887 "parsing/parser.mly"
|
|
( _1 )
|
|
# 13883 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 13894 "parsing/parser.ml"
|
|
|
|
in
|
|
let flag =
|
|
# 3581 "parsing/parser.mly"
|
|
( Recursive )
|
|
# 13900 "parsing/parser.ml"
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 13907 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2859 "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
|
|
)
|
|
# 13923 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined4;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = kind_priv_manifest;
|
|
MenhirLib.EngineTypes.startp = _startpos_kind_priv_manifest_;
|
|
MenhirLib.EngineTypes.endp = _endpos_kind_priv_manifest_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = params;
|
|
MenhirLib.EngineTypes.startp = _startpos_params_;
|
|
MenhirLib.EngineTypes.endp = _endpos_params_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 13995 "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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 14011 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos_attrs2_ = _endpos__1_inlined4_ in
|
|
let cstrs =
|
|
let _1 =
|
|
let xs =
|
|
# 253 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 14020 "parsing/parser.ml"
|
|
in
|
|
|
|
# 897 "parsing/parser.mly"
|
|
( xs )
|
|
# 14025 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2887 "parsing/parser.mly"
|
|
( _1 )
|
|
# 14031 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 14042 "parsing/parser.ml"
|
|
|
|
in
|
|
let flag =
|
|
let _1 = _1_inlined2 in
|
|
|
|
# 3582 "parsing/parser.mly"
|
|
( Nonrecursive )
|
|
# 14050 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 14058 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2859 "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
|
|
)
|
|
# 14074 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (
|
|
# 697 "parsing/parser.mly"
|
|
(string)
|
|
# 14095 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.label) =
|
|
# 3426 "parsing/parser.mly"
|
|
( _1 )
|
|
# 14103 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 14124 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.label) =
|
|
# 3427 "parsing/parser.mly"
|
|
( _1 )
|
|
# 14132 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (
|
|
# 777 "parsing/parser.mly"
|
|
(Parsetree.structure)
|
|
# 14164 "parsing/parser.ml"
|
|
) =
|
|
# 1068 "parsing/parser.mly"
|
|
( _1 )
|
|
# 14168 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (string) =
|
|
# 3476 "parsing/parser.mly"
|
|
( "" )
|
|
# 14186 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (string) =
|
|
# 3477 "parsing/parser.mly"
|
|
( ";.." )
|
|
# 14218 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (
|
|
# 779 "parsing/parser.mly"
|
|
(Parsetree.signature)
|
|
# 14250 "parsing/parser.ml"
|
|
) =
|
|
# 1074 "parsing/parser.mly"
|
|
( _1 )
|
|
# 14254 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__4_ in
|
|
let _v : (Parsetree.extension) =
|
|
# 3761 "parsing/parser.mly"
|
|
( (_2, _3) )
|
|
# 14300 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (
|
|
# 689 "parsing/parser.mly"
|
|
(string * Location.t * string * Location.t * string option)
|
|
# 14321 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 3763 "parsing/parser.mly"
|
|
( mk_quotedext ~loc:_sloc _1 )
|
|
# 14332 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 14380 "parsing/parser.ml"
|
|
) = Obj.magic _1_inlined1 in
|
|
let _1 : (Asttypes.mutable_flag) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 14391 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos__5_ = _endpos__1_inlined3_ in
|
|
let _4 =
|
|
let _1 = _1_inlined2 in
|
|
|
|
# 3179 "parsing/parser.mly"
|
|
( _1 )
|
|
# 14400 "parsing/parser.ml"
|
|
|
|
in
|
|
let _2 =
|
|
let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in
|
|
let _1 =
|
|
# 3404 "parsing/parser.mly"
|
|
( _1 )
|
|
# 14408 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 14416 "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
|
|
|
|
# 3056 "parsing/parser.mly"
|
|
( let info = symbol_info _endpos in
|
|
Type.field _2 _4 ~mut:_1 ~attrs:_5 ~loc:(make_loc _sloc) ~info )
|
|
# 14430 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined4;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 14492 "parsing/parser.ml"
|
|
) = Obj.magic _1_inlined1 in
|
|
let _1 : (Asttypes.mutable_flag) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 14503 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos__7_ = _endpos__1_inlined4_ in
|
|
let _5 =
|
|
let _1 = _1_inlined3 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 14512 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos__5_ = _endpos__1_inlined3_ in
|
|
let _4 =
|
|
let _1 = _1_inlined2 in
|
|
|
|
# 3179 "parsing/parser.mly"
|
|
( _1 )
|
|
# 14521 "parsing/parser.ml"
|
|
|
|
in
|
|
let _2 =
|
|
let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in
|
|
let _1 =
|
|
# 3404 "parsing/parser.mly"
|
|
( _1 )
|
|
# 14529 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 14537 "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
|
|
|
|
# 3061 "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 )
|
|
# 14555 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.label_declaration) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.label_declaration list) =
|
|
# 3050 "parsing/parser.mly"
|
|
( [_1] )
|
|
# 14580 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.label_declaration) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.label_declaration list) =
|
|
# 3051 "parsing/parser.mly"
|
|
( [_1] )
|
|
# 14605 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.label_declaration list) =
|
|
# 3052 "parsing/parser.mly"
|
|
( _1 :: _2 )
|
|
# 14637 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 14658 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 14671 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2123 "parsing/parser.mly"
|
|
( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) )
|
|
# 14680 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2115 "parsing/parser.mly"
|
|
( x )
|
|
# 14686 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = cty;
|
|
MenhirLib.EngineTypes.startp = _startpos_cty_;
|
|
MenhirLib.EngineTypes.endp = _endpos_cty_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 14721 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 14734 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2123 "parsing/parser.mly"
|
|
( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) )
|
|
# 14743 "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
|
|
|
|
# 2117 "parsing/parser.mly"
|
|
( let lab, pat = x in
|
|
lab,
|
|
mkpat ~loc:_sloc (Ppat_constraint (pat, cty)) )
|
|
# 14755 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Longident.t) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Longident.t) =
|
|
# 3508 "parsing/parser.mly"
|
|
( _1 )
|
|
# 14780 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.arg_label * Parsetree.expression) =
|
|
# 2400 "parsing/parser.mly"
|
|
( (Nolabel, _1) )
|
|
# 14805 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
} = _menhir_stack in
|
|
let _2 : (Parsetree.expression) = Obj.magic _2 in
|
|
let _1 : (
|
|
# 634 "parsing/parser.mly"
|
|
(string)
|
|
# 14833 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Asttypes.arg_label * Parsetree.expression) =
|
|
# 2402 "parsing/parser.mly"
|
|
( (Labelled _1, _2) )
|
|
# 14841 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = label;
|
|
MenhirLib.EngineTypes.startp = _startpos_label_;
|
|
MenhirLib.EngineTypes.endp = _endpos_label_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
} = _menhir_stack in
|
|
let label : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 14868 "parsing/parser.ml"
|
|
) = Obj.magic label in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 2404 "parsing/parser.mly"
|
|
( let loc = _loc_label_ in
|
|
(Labelled label, mkexpvar ~loc label) )
|
|
# 14879 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = label;
|
|
MenhirLib.EngineTypes.startp = _startpos_label_;
|
|
MenhirLib.EngineTypes.endp = _endpos_label_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
} = _menhir_stack in
|
|
let label : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 14906 "parsing/parser.ml"
|
|
) = Obj.magic label in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 2407 "parsing/parser.mly"
|
|
( let loc = _loc_label_ in
|
|
(Optional label, mkexpvar ~loc label) )
|
|
# 14917 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
} = _menhir_stack in
|
|
let _2 : (Parsetree.expression) = Obj.magic _2 in
|
|
let _1 : (
|
|
# 664 "parsing/parser.mly"
|
|
(string)
|
|
# 14945 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Asttypes.arg_label * Parsetree.expression) =
|
|
# 2410 "parsing/parser.mly"
|
|
( (Optional _1, _2) )
|
|
# 14953 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2111 "parsing/parser.mly"
|
|
( _1 )
|
|
# 15008 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2085 "parsing/parser.mly"
|
|
( (Optional (fst _3), _4, snd _3) )
|
|
# 15014 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
} = _menhir_stack in
|
|
let _1_inlined1 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 15041 "parsing/parser.ml"
|
|
) = Obj.magic _1_inlined1 in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 15056 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2123 "parsing/parser.mly"
|
|
( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) )
|
|
# 15065 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2087 "parsing/parser.mly"
|
|
( (Optional (fst _2), None, snd _2) )
|
|
# 15071 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 664 "parsing/parser.mly"
|
|
(string)
|
|
# 15120 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 2111 "parsing/parser.mly"
|
|
( _1 )
|
|
# 15130 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2089 "parsing/parser.mly"
|
|
( (Optional _1, _4, _3) )
|
|
# 15136 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
} = _menhir_stack in
|
|
let _2 : (Parsetree.pattern) = Obj.magic _2 in
|
|
let _1 : (
|
|
# 664 "parsing/parser.mly"
|
|
(string)
|
|
# 15164 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) =
|
|
# 2091 "parsing/parser.mly"
|
|
( (Optional _1, None, _2) )
|
|
# 15172 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__4_ in
|
|
let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) =
|
|
# 2093 "parsing/parser.mly"
|
|
( (Labelled (fst _3), None, snd _3) )
|
|
# 15218 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
} = _menhir_stack in
|
|
let _1_inlined1 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 15245 "parsing/parser.ml"
|
|
) = Obj.magic _1_inlined1 in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 15260 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2123 "parsing/parser.mly"
|
|
( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) )
|
|
# 15269 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2095 "parsing/parser.mly"
|
|
( (Labelled (fst _2), None, snd _2) )
|
|
# 15275 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
} = _menhir_stack in
|
|
let _2 : (Parsetree.pattern) = Obj.magic _2 in
|
|
let _1 : (
|
|
# 634 "parsing/parser.mly"
|
|
(string)
|
|
# 15303 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) =
|
|
# 2097 "parsing/parser.mly"
|
|
( (Labelled _1, None, _2) )
|
|
# 15311 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.pattern) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) =
|
|
# 2099 "parsing/parser.mly"
|
|
( (Nolabel, None, _1) )
|
|
# 15336 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2417 "parsing/parser.mly"
|
|
( mkpatvar ~loc:_sloc _1 )
|
|
# 15372 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2421 "parsing/parser.mly"
|
|
( (_1, _2) )
|
|
# 15378 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2417 "parsing/parser.mly"
|
|
( mkpatvar ~loc:_sloc _1 )
|
|
# 15428 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__4_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2423 "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) )
|
|
# 15448 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 15517 "parsing/parser.ml"
|
|
in
|
|
|
|
# 915 "parsing/parser.mly"
|
|
( xs )
|
|
# 15522 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3161 "parsing/parser.mly"
|
|
( _1 )
|
|
# 15528 "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
|
|
|
|
# 2417 "parsing/parser.mly"
|
|
( mkpatvar ~loc:_sloc _1 )
|
|
# 15539 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2439 "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) )
|
|
# 15549 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _8;
|
|
MenhirLib.EngineTypes.startp = _startpos__8_;
|
|
MenhirLib.EngineTypes.endp = _endpos__8_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__8_ in
|
|
let _v : (Parsetree.pattern * Parsetree.expression) = let _4 =
|
|
# 2414 "parsing/parser.mly"
|
|
( xs )
|
|
# 15623 "parsing/parser.ml"
|
|
in
|
|
let _1 =
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2417 "parsing/parser.mly"
|
|
( mkpatvar ~loc:_sloc _1 )
|
|
# 15632 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__8_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2445 "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) )
|
|
# 15644 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.pattern * Parsetree.expression) =
|
|
# 2450 "parsing/parser.mly"
|
|
( (_1, _3) )
|
|
# 15683 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__5_ in
|
|
let _v : (Parsetree.pattern * Parsetree.expression) =
|
|
# 2452 "parsing/parser.mly"
|
|
( let loc = (_startpos__1_, _endpos__3_) in
|
|
(ghpat ~loc (Ppat_constraint(_1, _3)), _5) )
|
|
# 15737 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = body;
|
|
MenhirLib.EngineTypes.startp = _startpos_body_;
|
|
MenhirLib.EngineTypes.endp = _endpos_body_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = rec_flag;
|
|
MenhirLib.EngineTypes.startp = _startpos_rec_flag_;
|
|
MenhirLib.EngineTypes.endp = _endpos_rec_flag_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in
|
|
let body : (Parsetree.pattern * Parsetree.expression) = 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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 15800 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos_attrs2_ = _endpos__1_inlined2_ in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 15809 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2468 "parsing/parser.mly"
|
|
(
|
|
let attrs = attrs1 @ attrs2 in
|
|
mklbs ~loc:_sloc ext rec_flag (mklb ~loc:_sloc true body attrs)
|
|
)
|
|
# 15821 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2458 "parsing/parser.mly"
|
|
( _1 )
|
|
# 15827 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (let_bindings) =
|
|
# 2459 "parsing/parser.mly"
|
|
( addlb _1 _2 )
|
|
# 15859 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = body;
|
|
MenhirLib.EngineTypes.startp = _startpos_body_;
|
|
MenhirLib.EngineTypes.endp = _endpos_body_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = rec_flag;
|
|
MenhirLib.EngineTypes.startp = _startpos_rec_flag_;
|
|
MenhirLib.EngineTypes.endp = _endpos_rec_flag_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _1_inlined2 : (Parsetree.attributes) = Obj.magic _1_inlined2 in
|
|
let body : (Parsetree.pattern * Parsetree.expression) = 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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 15915 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos_attrs2_ = _endpos__1_inlined2_ in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 15924 "parsing/parser.ml"
|
|
|
|
in
|
|
let ext =
|
|
# 3749 "parsing/parser.mly"
|
|
( None )
|
|
# 15930 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2468 "parsing/parser.mly"
|
|
(
|
|
let attrs = attrs1 @ attrs2 in
|
|
mklbs ~loc:_sloc ext rec_flag (mklb ~loc:_sloc true body attrs)
|
|
)
|
|
# 15941 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2458 "parsing/parser.mly"
|
|
( _1 )
|
|
# 15947 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = body;
|
|
MenhirLib.EngineTypes.startp = _startpos_body_;
|
|
MenhirLib.EngineTypes.endp = _endpos_body_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = rec_flag;
|
|
MenhirLib.EngineTypes.startp = _startpos_rec_flag_;
|
|
MenhirLib.EngineTypes.endp = _endpos_rec_flag_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in
|
|
let body : (Parsetree.pattern * Parsetree.expression) = 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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 16017 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos_attrs2_ = _endpos__1_inlined3_ in
|
|
let attrs1 =
|
|
let _1 = _1_inlined2 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 16026 "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
|
|
|
|
# 3750 "parsing/parser.mly"
|
|
( not_expecting _loc "extension" )
|
|
# 16037 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2468 "parsing/parser.mly"
|
|
(
|
|
let attrs = attrs1 @ attrs2 in
|
|
mklbs ~loc:_sloc ext rec_flag (mklb ~loc:_sloc true body attrs)
|
|
)
|
|
# 16049 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2458 "parsing/parser.mly"
|
|
( _1 )
|
|
# 16055 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (let_bindings) =
|
|
# 2459 "parsing/parser.mly"
|
|
( addlb _1 _2 )
|
|
# 16087 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.pattern) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.pattern) =
|
|
# 2127 "parsing/parser.mly"
|
|
( _1 )
|
|
# 16112 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.pattern) = let _1 =
|
|
let _1 =
|
|
# 2129 "parsing/parser.mly"
|
|
( Ppat_constraint(_1, _3) )
|
|
# 16152 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 16161 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2130 "parsing/parser.mly"
|
|
( _1 )
|
|
# 16167 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = exp;
|
|
MenhirLib.EngineTypes.startp = _startpos_exp_;
|
|
MenhirLib.EngineTypes.endp = _endpos_exp_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2417 "parsing/parser.mly"
|
|
( mkpatvar ~loc:_sloc _1 )
|
|
# 16203 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2485 "parsing/parser.mly"
|
|
( (pat, exp) )
|
|
# 16209 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = exp;
|
|
MenhirLib.EngineTypes.startp = _startpos_exp_;
|
|
MenhirLib.EngineTypes.endp = _endpos_exp_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = typ;
|
|
MenhirLib.EngineTypes.startp = _startpos_typ_;
|
|
MenhirLib.EngineTypes.endp = _endpos_typ_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = pat;
|
|
MenhirLib.EngineTypes.startp = _startpos_pat_;
|
|
MenhirLib.EngineTypes.endp = _endpos_pat_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_pat_ in
|
|
let _endpos = _endpos_exp_ in
|
|
let _v : (Parsetree.pattern * Parsetree.expression) =
|
|
# 2487 "parsing/parser.mly"
|
|
( let loc = (_startpos_pat_, _endpos_typ_) in
|
|
(ghpat ~loc (Ppat_constraint(pat, typ)), exp) )
|
|
# 16263 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = exp;
|
|
MenhirLib.EngineTypes.startp = _startpos_exp_;
|
|
MenhirLib.EngineTypes.endp = _endpos_exp_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = pat;
|
|
MenhirLib.EngineTypes.startp = _startpos_pat_;
|
|
MenhirLib.EngineTypes.endp = _endpos_pat_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_pat_ in
|
|
let _endpos = _endpos_exp_ in
|
|
let _v : (Parsetree.pattern * Parsetree.expression) =
|
|
# 2490 "parsing/parser.mly"
|
|
( (pat, exp) )
|
|
# 16302 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = body;
|
|
MenhirLib.EngineTypes.startp = _startpos_body_;
|
|
MenhirLib.EngineTypes.endp = _endpos_body_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let body : (Parsetree.pattern * Parsetree.expression) = Obj.magic body in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_body_ in
|
|
let _endpos = _endpos_body_ in
|
|
let _v : (Parsetree.pattern * Parsetree.expression * Parsetree.binding_op list) =
|
|
# 2494 "parsing/parser.mly"
|
|
( let let_pat, let_exp = body in
|
|
let_pat, let_exp, [] )
|
|
# 16328 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = body;
|
|
MenhirLib.EngineTypes.startp = _startpos_body_;
|
|
MenhirLib.EngineTypes.endp = _endpos_body_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = bindings;
|
|
MenhirLib.EngineTypes.startp = _startpos_bindings_;
|
|
MenhirLib.EngineTypes.endp = _endpos_bindings_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let body : (Parsetree.pattern * Parsetree.expression) = Obj.magic body in
|
|
let _1 : (
|
|
# 630 "parsing/parser.mly"
|
|
(string)
|
|
# 16362 "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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 16375 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_body_ in
|
|
let _symbolstartpos = _startpos_bindings_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2497 "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 )
|
|
# 16388 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Parsetree.class_declaration list) =
|
|
# 211 "<standard.mly>"
|
|
( [] )
|
|
# 16406 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = body;
|
|
MenhirLib.EngineTypes.startp = _startpos_body_;
|
|
MenhirLib.EngineTypes.endp = _endpos_body_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = params;
|
|
MenhirLib.EngineTypes.startp = _startpos_params_;
|
|
MenhirLib.EngineTypes.endp = _endpos_params_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = virt;
|
|
MenhirLib.EngineTypes.startp = _startpos_virt_;
|
|
MenhirLib.EngineTypes.endp = _endpos_virt_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 16472 "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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 16487 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 16499 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 16507 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1731 "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
|
|
)
|
|
# 16522 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 213 "<standard.mly>"
|
|
( x :: xs )
|
|
# 16528 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Parsetree.class_description list) =
|
|
# 211 "<standard.mly>"
|
|
( [] )
|
|
# 16546 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = cty;
|
|
MenhirLib.EngineTypes.startp = _startpos_cty_;
|
|
MenhirLib.EngineTypes.endp = _endpos_cty_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = params;
|
|
MenhirLib.EngineTypes.startp = _startpos_params_;
|
|
MenhirLib.EngineTypes.endp = _endpos_params_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = virt;
|
|
MenhirLib.EngineTypes.startp = _startpos_virt_;
|
|
MenhirLib.EngineTypes.endp = _endpos_virt_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 16619 "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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 16634 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 16646 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 16654 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2022 "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
|
|
)
|
|
# 16669 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 213 "<standard.mly>"
|
|
( x :: xs )
|
|
# 16675 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Parsetree.class_type_declaration list) =
|
|
# 211 "<standard.mly>"
|
|
( [] )
|
|
# 16693 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = csig;
|
|
MenhirLib.EngineTypes.startp = _startpos_csig_;
|
|
MenhirLib.EngineTypes.endp = _endpos_csig_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = params;
|
|
MenhirLib.EngineTypes.startp = _startpos_params_;
|
|
MenhirLib.EngineTypes.endp = _endpos_params_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = virt;
|
|
MenhirLib.EngineTypes.startp = _startpos_virt_;
|
|
MenhirLib.EngineTypes.endp = _endpos_virt_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 16766 "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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 16781 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 16793 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 16801 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2061 "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
|
|
)
|
|
# 16816 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 213 "<standard.mly>"
|
|
( x :: xs )
|
|
# 16822 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Parsetree.module_binding list) =
|
|
# 211 "<standard.mly>"
|
|
( [] )
|
|
# 16840 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = body;
|
|
MenhirLib.EngineTypes.startp = _startpos_body_;
|
|
MenhirLib.EngineTypes.endp = _endpos_body_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 16903 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 16915 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 16923 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1413 "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
|
|
)
|
|
# 16938 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 213 "<standard.mly>"
|
|
( x :: xs )
|
|
# 16944 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Parsetree.module_declaration list) =
|
|
# 211 "<standard.mly>"
|
|
( [] )
|
|
# 16962 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = mty;
|
|
MenhirLib.EngineTypes.startp = _startpos_mty_;
|
|
MenhirLib.EngineTypes.endp = _endpos_mty_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 17032 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 17044 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 17052 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1689 "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
|
|
)
|
|
# 17067 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 213 "<standard.mly>"
|
|
( x :: xs )
|
|
# 17073 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Parsetree.attributes) =
|
|
# 211 "<standard.mly>"
|
|
( [] )
|
|
# 17091 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_x_ in
|
|
let _endpos = _endpos_xs_ in
|
|
let _v : (Parsetree.attributes) =
|
|
# 213 "<standard.mly>"
|
|
( x :: xs )
|
|
# 17123 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Parsetree.type_declaration list) =
|
|
# 211 "<standard.mly>"
|
|
( [] )
|
|
# 17141 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = kind_priv_manifest;
|
|
MenhirLib.EngineTypes.startp = _startpos_kind_priv_manifest_;
|
|
MenhirLib.EngineTypes.endp = _endpos_kind_priv_manifest_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = params;
|
|
MenhirLib.EngineTypes.startp = _startpos_params_;
|
|
MenhirLib.EngineTypes.endp = _endpos_params_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 17208 "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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 17223 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos_attrs2_ = _endpos__1_inlined3_ in
|
|
let cstrs =
|
|
let _1 =
|
|
let xs =
|
|
# 253 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 17232 "parsing/parser.ml"
|
|
in
|
|
|
|
# 897 "parsing/parser.mly"
|
|
( xs )
|
|
# 17237 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2887 "parsing/parser.mly"
|
|
( _1 )
|
|
# 17243 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 17254 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 17262 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2876 "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
|
|
)
|
|
# 17278 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 213 "<standard.mly>"
|
|
( x :: xs )
|
|
# 17284 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Parsetree.type_declaration list) =
|
|
# 211 "<standard.mly>"
|
|
( [] )
|
|
# 17302 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined4;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = params;
|
|
MenhirLib.EngineTypes.startp = _startpos_params_;
|
|
MenhirLib.EngineTypes.endp = _endpos_params_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 17376 "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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 17391 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos_attrs2_ = _endpos__1_inlined4_ in
|
|
let cstrs =
|
|
let _1 =
|
|
let xs =
|
|
# 253 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 17400 "parsing/parser.ml"
|
|
in
|
|
|
|
# 897 "parsing/parser.mly"
|
|
( xs )
|
|
# 17405 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2887 "parsing/parser.mly"
|
|
( _1 )
|
|
# 17411 "parsing/parser.ml"
|
|
|
|
in
|
|
let kind_priv_manifest =
|
|
let _1 = _1_inlined3 in
|
|
|
|
# 2922 "parsing/parser.mly"
|
|
( _2 )
|
|
# 17419 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 17430 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 17438 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2876 "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
|
|
)
|
|
# 17454 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 213 "<standard.mly>"
|
|
( x :: xs )
|
|
# 17460 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Parsetree.attributes) =
|
|
# 211 "<standard.mly>"
|
|
( [] )
|
|
# 17478 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_x_ in
|
|
let _endpos = _endpos_xs_ in
|
|
let _v : (Parsetree.attributes) =
|
|
# 213 "<standard.mly>"
|
|
( x :: xs )
|
|
# 17510 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Parsetree.signature_item list list) =
|
|
# 211 "<standard.mly>"
|
|
( [] )
|
|
# 17528 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 823 "parsing/parser.mly"
|
|
( text_sig _startpos )
|
|
# 17563 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1551 "parsing/parser.mly"
|
|
( _1 )
|
|
# 17569 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 213 "<standard.mly>"
|
|
( x :: xs )
|
|
# 17575 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 821 "parsing/parser.mly"
|
|
( text_sig _startpos @ [_1] )
|
|
# 17610 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1551 "parsing/parser.mly"
|
|
( _1 )
|
|
# 17616 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 213 "<standard.mly>"
|
|
( x :: xs )
|
|
# 17622 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Parsetree.structure_item list list) =
|
|
# 211 "<standard.mly>"
|
|
( [] )
|
|
# 17640 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 883 "parsing/parser.mly"
|
|
( [] )
|
|
# 17675 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1297 "parsing/parser.mly"
|
|
( items )
|
|
# 17680 "parsing/parser.ml"
|
|
|
|
in
|
|
let xs =
|
|
let _startpos = _startpos__1_ in
|
|
|
|
# 819 "parsing/parser.mly"
|
|
( text_str _startpos )
|
|
# 17688 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 267 "<standard.mly>"
|
|
( xs @ ys )
|
|
# 17694 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1313 "parsing/parser.mly"
|
|
( _1 )
|
|
# 17700 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 213 "<standard.mly>"
|
|
( x :: xs )
|
|
# 17706 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = e;
|
|
MenhirLib.EngineTypes.startp = _startpos_e_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 17760 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1304 "parsing/parser.mly"
|
|
( mkstrexp e attrs )
|
|
# 17765 "parsing/parser.ml"
|
|
|
|
in
|
|
let _startpos__1_ = _startpos_e_ in
|
|
let _startpos = _startpos__1_ in
|
|
|
|
# 817 "parsing/parser.mly"
|
|
( text_str _startpos @ [_1] )
|
|
# 17773 "parsing/parser.ml"
|
|
|
|
in
|
|
let _startpos__1_ = _startpos_e_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _startpos = _startpos__1_ in
|
|
|
|
# 836 "parsing/parser.mly"
|
|
( mark_rhs_docs _startpos _endpos;
|
|
_1 )
|
|
# 17783 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 885 "parsing/parser.mly"
|
|
( x )
|
|
# 17789 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1297 "parsing/parser.mly"
|
|
( items )
|
|
# 17795 "parsing/parser.ml"
|
|
|
|
in
|
|
let xs =
|
|
let _startpos = _startpos__1_ in
|
|
|
|
# 819 "parsing/parser.mly"
|
|
( text_str _startpos )
|
|
# 17803 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 267 "<standard.mly>"
|
|
( xs @ ys )
|
|
# 17809 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1313 "parsing/parser.mly"
|
|
( _1 )
|
|
# 17815 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 213 "<standard.mly>"
|
|
( x :: xs )
|
|
# 17821 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 817 "parsing/parser.mly"
|
|
( text_str _startpos @ [_1] )
|
|
# 17856 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1313 "parsing/parser.mly"
|
|
( _1 )
|
|
# 17862 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 213 "<standard.mly>"
|
|
( x :: xs )
|
|
# 17868 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Parsetree.class_type_field list list) =
|
|
# 211 "<standard.mly>"
|
|
( [] )
|
|
# 17886 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 831 "parsing/parser.mly"
|
|
( text_csig _startpos @ [_1] )
|
|
# 17920 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 213 "<standard.mly>"
|
|
( x :: xs )
|
|
# 17926 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Parsetree.class_field list list) =
|
|
# 211 "<standard.mly>"
|
|
( [] )
|
|
# 17944 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 829 "parsing/parser.mly"
|
|
( text_cstr _startpos @ [_1] )
|
|
# 17978 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 213 "<standard.mly>"
|
|
( x :: xs )
|
|
# 17984 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Parsetree.structure_item list list) =
|
|
# 211 "<standard.mly>"
|
|
( [] )
|
|
# 18002 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 817 "parsing/parser.mly"
|
|
( text_str _startpos @ [_1] )
|
|
# 18036 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 213 "<standard.mly>"
|
|
( x :: xs )
|
|
# 18042 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Parsetree.toplevel_phrase list list) =
|
|
# 211 "<standard.mly>"
|
|
( [] )
|
|
# 18060 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 883 "parsing/parser.mly"
|
|
( [] )
|
|
# 18095 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1113 "parsing/parser.mly"
|
|
( _1 )
|
|
# 18100 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 183 "<standard.mly>"
|
|
( x )
|
|
# 18106 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1125 "parsing/parser.mly"
|
|
( _1 )
|
|
# 18112 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 213 "<standard.mly>"
|
|
( x :: xs )
|
|
# 18118 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = e;
|
|
MenhirLib.EngineTypes.startp = _startpos_e_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 18172 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1304 "parsing/parser.mly"
|
|
( mkstrexp e attrs )
|
|
# 18177 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 827 "parsing/parser.mly"
|
|
( Ptop_def [_1] )
|
|
# 18183 "parsing/parser.ml"
|
|
|
|
in
|
|
let _startpos__1_ = _startpos_e_ in
|
|
let _startpos = _startpos__1_ in
|
|
|
|
# 825 "parsing/parser.mly"
|
|
( text_def _startpos @ [_1] )
|
|
# 18191 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 885 "parsing/parser.mly"
|
|
( x )
|
|
# 18197 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1113 "parsing/parser.mly"
|
|
( _1 )
|
|
# 18203 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 183 "<standard.mly>"
|
|
( x )
|
|
# 18209 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1125 "parsing/parser.mly"
|
|
( _1 )
|
|
# 18215 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 213 "<standard.mly>"
|
|
( x :: xs )
|
|
# 18221 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 827 "parsing/parser.mly"
|
|
( Ptop_def [_1] )
|
|
# 18255 "parsing/parser.ml"
|
|
in
|
|
let _startpos = _startpos__1_ in
|
|
|
|
# 825 "parsing/parser.mly"
|
|
( text_def _startpos @ [_1] )
|
|
# 18261 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1125 "parsing/parser.mly"
|
|
( _1 )
|
|
# 18267 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 213 "<standard.mly>"
|
|
( x :: xs )
|
|
# 18273 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 836 "parsing/parser.mly"
|
|
( mark_rhs_docs _startpos _endpos;
|
|
_1 )
|
|
# 18311 "parsing/parser.ml"
|
|
|
|
in
|
|
let _startpos = _startpos__1_ in
|
|
|
|
# 825 "parsing/parser.mly"
|
|
( text_def _startpos @ [_1] )
|
|
# 18318 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1125 "parsing/parser.mly"
|
|
( _1 )
|
|
# 18324 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 213 "<standard.mly>"
|
|
( x :: xs )
|
|
# 18330 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = opat;
|
|
MenhirLib.EngineTypes.startp = _startpos_opat_;
|
|
MenhirLib.EngineTypes.endp = _endpos_opat_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = octy;
|
|
MenhirLib.EngineTypes.startp = _startpos_octy_;
|
|
MenhirLib.EngineTypes.endp = _endpos_octy_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( None )
|
|
# 18369 "parsing/parser.ml"
|
|
in
|
|
let x =
|
|
let label =
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 18379 "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
|
|
|
|
# 2765 "parsing/parser.mly"
|
|
( let pat =
|
|
match opat with
|
|
| None ->
|
|
(* No pattern; this is a pun. Desugar it. *)
|
|
pat_of_label ~loc:_sloc label
|
|
| Some pat ->
|
|
pat
|
|
in
|
|
label, mkpat_opt_constraint ~loc:_sloc pat octy
|
|
)
|
|
# 18398 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1052 "parsing/parser.mly"
|
|
( [x], None )
|
|
# 18404 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = opat;
|
|
MenhirLib.EngineTypes.startp = _startpos_opat_;
|
|
MenhirLib.EngineTypes.endp = _endpos_opat_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = octy;
|
|
MenhirLib.EngineTypes.startp = _startpos_octy_;
|
|
MenhirLib.EngineTypes.endp = _endpos_octy_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( Some x )
|
|
# 18450 "parsing/parser.ml"
|
|
in
|
|
let x =
|
|
let label =
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 18460 "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
|
|
|
|
# 2765 "parsing/parser.mly"
|
|
( let pat =
|
|
match opat with
|
|
| None ->
|
|
(* No pattern; this is a pun. Desugar it. *)
|
|
pat_of_label ~loc:_sloc label
|
|
| Some pat ->
|
|
pat
|
|
in
|
|
label, mkpat_opt_constraint ~loc:_sloc pat octy
|
|
)
|
|
# 18479 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1052 "parsing/parser.mly"
|
|
( [x], None )
|
|
# 18485 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = y;
|
|
MenhirLib.EngineTypes.startp = _startpos_y_;
|
|
MenhirLib.EngineTypes.endp = _endpos_y_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = opat;
|
|
MenhirLib.EngineTypes.startp = _startpos_opat_;
|
|
MenhirLib.EngineTypes.endp = _endpos_opat_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = octy;
|
|
MenhirLib.EngineTypes.startp = _startpos_octy_;
|
|
MenhirLib.EngineTypes.endp = _endpos_octy_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 18550 "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
|
|
|
|
# 2765 "parsing/parser.mly"
|
|
( let pat =
|
|
match opat with
|
|
| None ->
|
|
(* No pattern; this is a pun. Desugar it. *)
|
|
pat_of_label ~loc:_sloc label
|
|
| Some pat ->
|
|
pat
|
|
in
|
|
label, mkpat_opt_constraint ~loc:_sloc pat octy
|
|
)
|
|
# 18569 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1054 "parsing/parser.mly"
|
|
( [x], Some y )
|
|
# 18575 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = tail;
|
|
MenhirLib.EngineTypes.startp = _startpos_tail_;
|
|
MenhirLib.EngineTypes.endp = _endpos_tail_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = opat;
|
|
MenhirLib.EngineTypes.startp = _startpos_opat_;
|
|
MenhirLib.EngineTypes.endp = _endpos_opat_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = octy;
|
|
MenhirLib.EngineTypes.startp = _startpos_octy_;
|
|
MenhirLib.EngineTypes.endp = _endpos_octy_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 18633 "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
|
|
|
|
# 2765 "parsing/parser.mly"
|
|
( let pat =
|
|
match opat with
|
|
| None ->
|
|
(* No pattern; this is a pun. Desugar it. *)
|
|
pat_of_label ~loc:_sloc label
|
|
| Some pat ->
|
|
pat
|
|
in
|
|
label, mkpat_opt_constraint ~loc:_sloc pat octy
|
|
)
|
|
# 18652 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1058 "parsing/parser.mly"
|
|
( let xs, y = tail in
|
|
x :: xs, y )
|
|
# 18659 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.case) =
|
|
# 2523 "parsing/parser.mly"
|
|
( Exp.case _1 _3 )
|
|
# 18698 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__5_ in
|
|
let _v : (Parsetree.case) =
|
|
# 2525 "parsing/parser.mly"
|
|
( Exp.case _1 ~guard:_3 _5 )
|
|
# 18751 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2527 "parsing/parser.mly"
|
|
( Exp.case _1 (Exp.unreachable ~loc:(make_loc _loc__3_) ()) )
|
|
# 18791 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = tail;
|
|
MenhirLib.EngineTypes.startp = _startpos_tail_;
|
|
MenhirLib.EngineTypes.endp = _endpos_tail_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 18854 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 18865 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos__6_ = _endpos__1_inlined3_ in
|
|
let _4 =
|
|
let _1 = _1_inlined2 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 18874 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos__4_ = _endpos__1_inlined2_ in
|
|
let _3 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3179 "parsing/parser.mly"
|
|
( _1 )
|
|
# 18883 "parsing/parser.ml"
|
|
|
|
in
|
|
let _1 =
|
|
let _1 =
|
|
# 3404 "parsing/parser.mly"
|
|
( _1 )
|
|
# 18890 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 18898 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__6_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 3389 "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 )
|
|
# 18913 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3370 "parsing/parser.mly"
|
|
( let (f, c) = tail in (head :: f, c) )
|
|
# 18919 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = tail;
|
|
MenhirLib.EngineTypes.startp = _startpos_tail_;
|
|
MenhirLib.EngineTypes.endp = _endpos_tail_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = ty;
|
|
MenhirLib.EngineTypes.startp = _startpos_ty_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ty_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3400 "parsing/parser.mly"
|
|
( Of.inherit_ ~loc:(make_loc _sloc) ty )
|
|
# 18962 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3370 "parsing/parser.mly"
|
|
( let (f, c) = tail in (head :: f, c) )
|
|
# 18968 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 19024 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 19035 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos__6_ = _endpos__1_inlined3_ in
|
|
let _4 =
|
|
let _1 = _1_inlined2 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 19044 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos__4_ = _endpos__1_inlined2_ in
|
|
let _3 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3179 "parsing/parser.mly"
|
|
( _1 )
|
|
# 19053 "parsing/parser.ml"
|
|
|
|
in
|
|
let _1 =
|
|
let _1 =
|
|
# 3404 "parsing/parser.mly"
|
|
( _1 )
|
|
# 19060 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 19068 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__6_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 3389 "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 )
|
|
# 19083 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3373 "parsing/parser.mly"
|
|
( [head], Closed )
|
|
# 19089 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = ty;
|
|
MenhirLib.EngineTypes.startp = _startpos_ty_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ty_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3400 "parsing/parser.mly"
|
|
( Of.inherit_ ~loc:(make_loc _sloc) ty )
|
|
# 19125 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3373 "parsing/parser.mly"
|
|
( [head], Closed )
|
|
# 19131 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 19173 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 19184 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos__4_ = _endpos__1_inlined2_ in
|
|
let _3 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3179 "parsing/parser.mly"
|
|
( _1 )
|
|
# 19193 "parsing/parser.ml"
|
|
|
|
in
|
|
let _1 =
|
|
let _1 =
|
|
# 3404 "parsing/parser.mly"
|
|
( _1 )
|
|
# 19200 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 19208 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__4_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 3382 "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 )
|
|
# 19219 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3376 "parsing/parser.mly"
|
|
( [head], Closed )
|
|
# 19225 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = ty;
|
|
MenhirLib.EngineTypes.startp = _startpos_ty_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ty_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let ty : (Parsetree.core_type) = Obj.magic ty in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 3400 "parsing/parser.mly"
|
|
( Of.inherit_ ~loc:(make_loc _sloc) ty )
|
|
# 19254 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3376 "parsing/parser.mly"
|
|
( [head], Closed )
|
|
# 19260 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.object_field list * Asttypes.closed_flag) =
|
|
# 3378 "parsing/parser.mly"
|
|
( [], Open )
|
|
# 19285 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = private_;
|
|
MenhirLib.EngineTypes.startp = _startpos_private__;
|
|
MenhirLib.EngineTypes.endp = _endpos_private__;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 19332 "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.MenhirLib.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
|
|
|
|
# 3175 "parsing/parser.mly"
|
|
( _1 )
|
|
# 19346 "parsing/parser.ml"
|
|
|
|
in
|
|
let label =
|
|
let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in
|
|
let _1 =
|
|
# 3404 "parsing/parser.mly"
|
|
( _1 )
|
|
# 19354 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 19362 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs =
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 19368 "parsing/parser.ml"
|
|
in
|
|
let _1 =
|
|
# 3641 "parsing/parser.mly"
|
|
( Fresh )
|
|
# 19373 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1869 "parsing/parser.mly"
|
|
( (label, private_, Cfk_virtual ty), attrs )
|
|
# 19378 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _5 : (Parsetree.expression) = Obj.magic _5 in
|
|
let _1_inlined1 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 19418 "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.MenhirLib.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 =
|
|
# 3404 "parsing/parser.mly"
|
|
( _1 )
|
|
# 19432 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 19440 "parsing/parser.ml"
|
|
|
|
in
|
|
let _2 =
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 19446 "parsing/parser.ml"
|
|
in
|
|
let _1 =
|
|
# 3644 "parsing/parser.mly"
|
|
( Fresh )
|
|
# 19451 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1871 "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 )
|
|
# 19459 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _5 : (Parsetree.expression) = Obj.magic _5 in
|
|
let _1_inlined2 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 19505 "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.MenhirLib.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 =
|
|
# 3404 "parsing/parser.mly"
|
|
( _1 )
|
|
# 19520 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 19528 "parsing/parser.ml"
|
|
|
|
in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 19536 "parsing/parser.ml"
|
|
|
|
in
|
|
let _1 =
|
|
# 3645 "parsing/parser.mly"
|
|
( Override )
|
|
# 19542 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1871 "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 )
|
|
# 19550 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _8;
|
|
MenhirLib.EngineTypes.startp = _startpos__8_;
|
|
MenhirLib.EngineTypes.endp = _endpos__8_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 19611 "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.MenhirLib.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
|
|
|
|
# 3175 "parsing/parser.mly"
|
|
( _1 )
|
|
# 19625 "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 =
|
|
# 3404 "parsing/parser.mly"
|
|
( _1 )
|
|
# 19634 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 19642 "parsing/parser.ml"
|
|
|
|
in
|
|
let _2 =
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 19648 "parsing/parser.ml"
|
|
in
|
|
let _1 =
|
|
# 3644 "parsing/parser.mly"
|
|
( Fresh )
|
|
# 19653 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1877 "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 )
|
|
# 19661 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _8;
|
|
MenhirLib.EngineTypes.startp = _startpos__8_;
|
|
MenhirLib.EngineTypes.endp = _endpos__8_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 19728 "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.MenhirLib.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
|
|
|
|
# 3175 "parsing/parser.mly"
|
|
( _1 )
|
|
# 19743 "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 =
|
|
# 3404 "parsing/parser.mly"
|
|
( _1 )
|
|
# 19752 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 19760 "parsing/parser.ml"
|
|
|
|
in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 19768 "parsing/parser.ml"
|
|
|
|
in
|
|
let _1 =
|
|
# 3645 "parsing/parser.mly"
|
|
( Override )
|
|
# 19774 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1877 "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 )
|
|
# 19782 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _11;
|
|
MenhirLib.EngineTypes.startp = _startpos__11_;
|
|
MenhirLib.EngineTypes.endp = _endpos__11_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _10;
|
|
MenhirLib.EngineTypes.startp = _startpos__10_;
|
|
MenhirLib.EngineTypes.endp = _endpos__10_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _9;
|
|
MenhirLib.EngineTypes.startp = _startpos__9_;
|
|
MenhirLib.EngineTypes.endp = _endpos__9_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _8;
|
|
MenhirLib.EngineTypes.startp = _startpos__8_;
|
|
MenhirLib.EngineTypes.endp = _endpos__8_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 19864 "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.MenhirLib.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 =
|
|
# 2414 "parsing/parser.mly"
|
|
( xs )
|
|
# 19876 "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 =
|
|
# 3404 "parsing/parser.mly"
|
|
( _1 )
|
|
# 19884 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 19892 "parsing/parser.ml"
|
|
|
|
in
|
|
let _startpos__4_ = _startpos__1_inlined1_ in
|
|
let _2 =
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 19899 "parsing/parser.ml"
|
|
in
|
|
let (_endpos__2_, _startpos__2_) = (_endpos__1_, _startpos__1_) in
|
|
let _1 =
|
|
# 3644 "parsing/parser.mly"
|
|
( Fresh )
|
|
# 19905 "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
|
|
|
|
# 1883 "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 )
|
|
# 19932 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _11;
|
|
MenhirLib.EngineTypes.startp = _startpos__11_;
|
|
MenhirLib.EngineTypes.endp = _endpos__11_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _10;
|
|
MenhirLib.EngineTypes.startp = _startpos__10_;
|
|
MenhirLib.EngineTypes.endp = _endpos__10_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _9;
|
|
MenhirLib.EngineTypes.startp = _startpos__9_;
|
|
MenhirLib.EngineTypes.endp = _endpos__9_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _8;
|
|
MenhirLib.EngineTypes.startp = _startpos__8_;
|
|
MenhirLib.EngineTypes.endp = _endpos__8_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 20020 "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.MenhirLib.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 =
|
|
# 2414 "parsing/parser.mly"
|
|
( xs )
|
|
# 20033 "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 =
|
|
# 3404 "parsing/parser.mly"
|
|
( _1 )
|
|
# 20041 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 20049 "parsing/parser.ml"
|
|
|
|
in
|
|
let _startpos__4_ = _startpos__1_inlined2_ in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 20058 "parsing/parser.ml"
|
|
|
|
in
|
|
let (_endpos__2_, _startpos__2_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in
|
|
let _1 =
|
|
# 3645 "parsing/parser.mly"
|
|
( Override )
|
|
# 20065 "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
|
|
|
|
# 1883 "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 )
|
|
# 20091 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 20112 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Longident.t) =
|
|
# 3501 "parsing/parser.mly"
|
|
( Lident _1 )
|
|
# 20120 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _3 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 20153 "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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Longident.t) =
|
|
# 3502 "parsing/parser.mly"
|
|
( Ldot(_1,_3) )
|
|
# 20163 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (
|
|
# 697 "parsing/parser.mly"
|
|
(string)
|
|
# 20184 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Longident.t) =
|
|
# 3501 "parsing/parser.mly"
|
|
( Lident _1 )
|
|
# 20192 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _3 : (
|
|
# 697 "parsing/parser.mly"
|
|
(string)
|
|
# 20225 "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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Longident.t) =
|
|
# 3502 "parsing/parser.mly"
|
|
( Ldot(_1,_3) )
|
|
# 20235 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Asttypes.label) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Longident.t) = let _1 =
|
|
# 3538 "parsing/parser.mly"
|
|
( _1 )
|
|
# 20260 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3501 "parsing/parser.mly"
|
|
( Lident _1 )
|
|
# 20265 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Longident.t) = let _1 =
|
|
let _1 =
|
|
# 3481 "parsing/parser.mly"
|
|
( "::" )
|
|
# 20305 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3538 "parsing/parser.mly"
|
|
( _1 )
|
|
# 20310 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3501 "parsing/parser.mly"
|
|
( Lident _1 )
|
|
# 20316 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Asttypes.label) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Longident.t) = let _1 =
|
|
# 3538 "parsing/parser.mly"
|
|
( _1 )
|
|
# 20341 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3501 "parsing/parser.mly"
|
|
( Lident _1 )
|
|
# 20346 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3538 "parsing/parser.mly"
|
|
( _1 )
|
|
# 20387 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3502 "parsing/parser.mly"
|
|
( Ldot(_1,_3) )
|
|
# 20393 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3481 "parsing/parser.mly"
|
|
( "::" )
|
|
# 20448 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3538 "parsing/parser.mly"
|
|
( _1 )
|
|
# 20453 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3502 "parsing/parser.mly"
|
|
( Ldot(_1,_3) )
|
|
# 20459 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3538 "parsing/parser.mly"
|
|
( _1 )
|
|
# 20500 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3502 "parsing/parser.mly"
|
|
( Ldot(_1,_3) )
|
|
# 20506 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Asttypes.label) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Longident.t) =
|
|
# 3501 "parsing/parser.mly"
|
|
( Lident _1 )
|
|
# 20531 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Longident.t) =
|
|
# 3502 "parsing/parser.mly"
|
|
( Ldot(_1,_3) )
|
|
# 20570 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 20591 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Longident.t) =
|
|
# 3501 "parsing/parser.mly"
|
|
( Lident _1 )
|
|
# 20599 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _3 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 20632 "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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Longident.t) =
|
|
# 3502 "parsing/parser.mly"
|
|
( Ldot(_1,_3) )
|
|
# 20642 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (
|
|
# 697 "parsing/parser.mly"
|
|
(string)
|
|
# 20663 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Longident.t) =
|
|
# 3501 "parsing/parser.mly"
|
|
( Lident _1 )
|
|
# 20671 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _3 : (
|
|
# 697 "parsing/parser.mly"
|
|
(string)
|
|
# 20704 "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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Longident.t) =
|
|
# 3502 "parsing/parser.mly"
|
|
( Ldot(_1,_3) )
|
|
# 20714 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Asttypes.label) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Longident.t) =
|
|
# 3501 "parsing/parser.mly"
|
|
( Lident _1 )
|
|
# 20739 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Longident.t) =
|
|
# 3502 "parsing/parser.mly"
|
|
( Ldot(_1,_3) )
|
|
# 20778 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Longident.t) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Longident.t) =
|
|
# 3517 "parsing/parser.mly"
|
|
( _1 )
|
|
# 20803 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3519 "parsing/parser.mly"
|
|
( lapply ~loc:_sloc _1 _3 )
|
|
# 20852 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3521 "parsing/parser.mly"
|
|
( expecting _loc__3_ "module path" )
|
|
# 20892 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Longident.t) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Longident.t) =
|
|
# 3514 "parsing/parser.mly"
|
|
( _1 )
|
|
# 20917 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = me;
|
|
MenhirLib.EngineTypes.startp = _startpos_me_;
|
|
MenhirLib.EngineTypes.endp = _endpos_me_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos_me_ in
|
|
let _v : (Parsetree.module_expr) =
|
|
# 1373 "parsing/parser.mly"
|
|
( me )
|
|
# 20949 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = me;
|
|
MenhirLib.EngineTypes.startp = _startpos_me_;
|
|
MenhirLib.EngineTypes.endp = _endpos_me_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = mty;
|
|
MenhirLib.EngineTypes.startp = _startpos_mty_;
|
|
MenhirLib.EngineTypes.endp = _endpos_mty_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos_me_ in
|
|
let _v : (Parsetree.module_expr) = let _1 =
|
|
let _1 =
|
|
# 1376 "parsing/parser.mly"
|
|
( Pmod_constraint(me, mty) )
|
|
# 20996 "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
|
|
|
|
# 856 "parsing/parser.mly"
|
|
( mkmod ~loc:_sloc _1 )
|
|
# 21005 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1379 "parsing/parser.mly"
|
|
( _1 )
|
|
# 21011 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = body;
|
|
MenhirLib.EngineTypes.startp = _startpos_body_;
|
|
MenhirLib.EngineTypes.endp = _endpos_body_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = arg;
|
|
MenhirLib.EngineTypes.startp = _startpos_arg_;
|
|
MenhirLib.EngineTypes.endp = _endpos_arg_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
} = _menhir_stack in
|
|
let body : (Parsetree.module_expr) = Obj.magic body in
|
|
let arg : (Parsetree.functor_parameter) = Obj.magic arg in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_arg_ in
|
|
let _endpos = _endpos_body_ in
|
|
let _v : (Parsetree.module_expr) = let _1 =
|
|
let _1 =
|
|
# 1378 "parsing/parser.mly"
|
|
( Pmod_functor(arg, body) )
|
|
# 21044 "parsing/parser.ml"
|
|
in
|
|
let (_endpos__1_, _startpos__1_) = (_endpos_body_, _startpos_arg_) in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 856 "parsing/parser.mly"
|
|
( mkmod ~loc:_sloc _1 )
|
|
# 21053 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1379 "parsing/parser.mly"
|
|
( _1 )
|
|
# 21059 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = mty;
|
|
MenhirLib.EngineTypes.startp = _startpos_mty_;
|
|
MenhirLib.EngineTypes.endp = _endpos_mty_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos_mty_ in
|
|
let _v : (Parsetree.module_type) =
|
|
# 1616 "parsing/parser.mly"
|
|
( mty )
|
|
# 21091 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = body;
|
|
MenhirLib.EngineTypes.startp = _startpos_body_;
|
|
MenhirLib.EngineTypes.endp = _endpos_body_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = arg;
|
|
MenhirLib.EngineTypes.startp = _startpos_arg_;
|
|
MenhirLib.EngineTypes.endp = _endpos_arg_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
} = _menhir_stack in
|
|
let body : (Parsetree.module_type) = Obj.magic body in
|
|
let arg : (Parsetree.functor_parameter) = Obj.magic arg in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_arg_ in
|
|
let _endpos = _endpos_body_ in
|
|
let _v : (Parsetree.module_type) = let _1 =
|
|
let _1 =
|
|
# 1619 "parsing/parser.mly"
|
|
( Pmty_functor(arg, body) )
|
|
# 21124 "parsing/parser.ml"
|
|
in
|
|
let (_endpos__1_, _startpos__1_) = (_endpos_body_, _startpos_arg_) in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 858 "parsing/parser.mly"
|
|
( mkmty ~loc:_sloc _1 )
|
|
# 21133 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1621 "parsing/parser.mly"
|
|
( _1 )
|
|
# 21139 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = s;
|
|
MenhirLib.EngineTypes.startp = _startpos_s_;
|
|
MenhirLib.EngineTypes.endp = _endpos_s_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 21187 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__4_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1212 "parsing/parser.mly"
|
|
( mkmod ~loc:_sloc ~attrs (Pmod_structure s) )
|
|
# 21196 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 21244 "parsing/parser.ml"
|
|
|
|
in
|
|
let _loc__4_ = (_startpos__4_, _endpos__4_) in
|
|
let _loc__1_ = (_startpos__1_, _endpos__1_) in
|
|
|
|
# 1214 "parsing/parser.mly"
|
|
( unclosed "struct" _loc__1_ "end" _loc__4_ )
|
|
# 21252 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = me;
|
|
MenhirLib.EngineTypes.startp = _startpos_me_;
|
|
MenhirLib.EngineTypes.endp = _endpos_me_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (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.MenhirLib.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
|
|
|
|
# 1178 "parsing/parser.mly"
|
|
( _1 )
|
|
# 21307 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 21315 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_me_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1216 "parsing/parser.mly"
|
|
( wrap_mod_attrs ~loc:_sloc attrs (
|
|
List.fold_left (fun acc arg ->
|
|
mkmod ~loc:_sloc (Pmod_functor (arg, acc))
|
|
) me args
|
|
) )
|
|
# 21328 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = me;
|
|
MenhirLib.EngineTypes.startp = _startpos_me_;
|
|
MenhirLib.EngineTypes.endp = _endpos_me_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let me : (Parsetree.module_expr) = Obj.magic me in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_me_ in
|
|
let _endpos = _endpos_me_ in
|
|
let _v : (Parsetree.module_expr) =
|
|
# 1222 "parsing/parser.mly"
|
|
( me )
|
|
# 21353 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = attr;
|
|
MenhirLib.EngineTypes.startp = _startpos_attr_;
|
|
MenhirLib.EngineTypes.endp = _endpos_attr_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = me;
|
|
MenhirLib.EngineTypes.startp = _startpos_me_;
|
|
MenhirLib.EngineTypes.endp = _endpos_me_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_me_ in
|
|
let _endpos = _endpos_attr_ in
|
|
let _v : (Parsetree.module_expr) =
|
|
# 1224 "parsing/parser.mly"
|
|
( Mod.attr me attr )
|
|
# 21385 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Longident.t) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 21416 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1228 "parsing/parser.mly"
|
|
( Pmod_ident x )
|
|
# 21422 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 856 "parsing/parser.mly"
|
|
( mkmod ~loc:_sloc _1 )
|
|
# 21431 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1240 "parsing/parser.mly"
|
|
( _1 )
|
|
# 21437 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = me2;
|
|
MenhirLib.EngineTypes.startp = _startpos_me2_;
|
|
MenhirLib.EngineTypes.endp = _endpos_me2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = me1;
|
|
MenhirLib.EngineTypes.startp = _startpos_me1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_me1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_me1_ in
|
|
let _endpos = _endpos_me2_ in
|
|
let _v : (Parsetree.module_expr) = let _1 =
|
|
let _1 =
|
|
# 1231 "parsing/parser.mly"
|
|
( Pmod_apply(me1, me2) )
|
|
# 21470 "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
|
|
|
|
# 856 "parsing/parser.mly"
|
|
( mkmod ~loc:_sloc _1 )
|
|
# 21479 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1240 "parsing/parser.mly"
|
|
( _1 )
|
|
# 21485 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = me1;
|
|
MenhirLib.EngineTypes.startp = _startpos_me1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_me1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 1234 "parsing/parser.mly"
|
|
( (* TODO review mkmod location *)
|
|
Pmod_apply(me1, mkmod ~loc:_sloc (Pmod_structure [])) )
|
|
# 21530 "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
|
|
|
|
# 856 "parsing/parser.mly"
|
|
( mkmod ~loc:_sloc _1 )
|
|
# 21540 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1240 "parsing/parser.mly"
|
|
( _1 )
|
|
# 21546 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = ex;
|
|
MenhirLib.EngineTypes.startp = _startpos_ex_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ex_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let ex : (Parsetree.extension) = Obj.magic ex in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_ex_ in
|
|
let _endpos = _endpos_ex_ in
|
|
let _v : (Parsetree.module_expr) = let _1 =
|
|
let _1 =
|
|
# 1238 "parsing/parser.mly"
|
|
( Pmod_extension ex )
|
|
# 21572 "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
|
|
|
|
# 856 "parsing/parser.mly"
|
|
( mkmod ~loc:_sloc _1 )
|
|
# 21581 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1240 "parsing/parser.mly"
|
|
( _1 )
|
|
# 21587 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let x : (
|
|
# 697 "parsing/parser.mly"
|
|
(string)
|
|
# 21608 "parsing/parser.ml"
|
|
) = Obj.magic x in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_x_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : (string option) =
|
|
# 1195 "parsing/parser.mly"
|
|
( Some x )
|
|
# 21616 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string option) =
|
|
# 1198 "parsing/parser.mly"
|
|
( None )
|
|
# 21641 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined4;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 697 "parsing/parser.mly"
|
|
(string)
|
|
# 21701 "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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 21714 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 21726 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 21737 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 21745 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1651 "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
|
|
)
|
|
# 21759 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _6 : unit = Obj.magic _6 in
|
|
let _5 : unit = Obj.magic _5 in
|
|
let _1_inlined2 : (
|
|
# 697 "parsing/parser.mly"
|
|
(string)
|
|
# 21812 "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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 21828 "parsing/parser.ml"
|
|
|
|
in
|
|
let _3 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 21836 "parsing/parser.ml"
|
|
|
|
in
|
|
let _loc__6_ = (_startpos__6_, _endpos__6_) in
|
|
|
|
# 1658 "parsing/parser.mly"
|
|
( expecting _loc__6_ "module path" )
|
|
# 21843 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = s;
|
|
MenhirLib.EngineTypes.startp = _startpos_s_;
|
|
MenhirLib.EngineTypes.endp = _endpos_s_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 21891 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__4_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1504 "parsing/parser.mly"
|
|
( mkmty ~loc:_sloc ~attrs (Pmty_signature s) )
|
|
# 21900 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 21948 "parsing/parser.ml"
|
|
|
|
in
|
|
let _loc__4_ = (_startpos__4_, _endpos__4_) in
|
|
let _loc__1_ = (_startpos__1_, _endpos__1_) in
|
|
|
|
# 1506 "parsing/parser.mly"
|
|
( unclosed "sig" _loc__1_ "end" _loc__4_ )
|
|
# 21956 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = mty;
|
|
MenhirLib.EngineTypes.startp = _startpos_mty_;
|
|
MenhirLib.EngineTypes.endp = _endpos_mty_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (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.MenhirLib.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
|
|
|
|
# 1178 "parsing/parser.mly"
|
|
( _1 )
|
|
# 22011 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 22019 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_mty_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1510 "parsing/parser.mly"
|
|
( wrap_mty_attrs ~loc:_sloc attrs (
|
|
List.fold_left (fun acc arg ->
|
|
mkmty ~loc:_sloc (Pmty_functor (arg, acc))
|
|
) mty args
|
|
) )
|
|
# 22032 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 22087 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__5_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1516 "parsing/parser.mly"
|
|
( mkmty ~loc:_sloc ~attrs:_4 (Pmty_typeof _5) )
|
|
# 22096 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.module_type) =
|
|
# 1518 "parsing/parser.mly"
|
|
( _2 )
|
|
# 22135 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 1520 "parsing/parser.mly"
|
|
( unclosed "(" _loc__1_ ")" _loc__3_ )
|
|
# 22176 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.module_type) =
|
|
# 1522 "parsing/parser.mly"
|
|
( Mty.attr _1 _2 )
|
|
# 22208 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Longident.t) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 22239 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1525 "parsing/parser.mly"
|
|
( Pmty_ident _1 )
|
|
# 22245 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 858 "parsing/parser.mly"
|
|
( mkmty ~loc:_sloc _1 )
|
|
# 22254 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1536 "parsing/parser.mly"
|
|
( _1 )
|
|
# 22260 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.module_type) = let _1 =
|
|
let _1 =
|
|
# 1528 "parsing/parser.mly"
|
|
( Pmty_functor(Named (mknoloc None, _1), _3) )
|
|
# 22300 "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
|
|
|
|
# 858 "parsing/parser.mly"
|
|
( mkmty ~loc:_sloc _1 )
|
|
# 22309 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1536 "parsing/parser.mly"
|
|
( _1 )
|
|
# 22315 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 22357 "parsing/parser.ml"
|
|
in
|
|
|
|
# 947 "parsing/parser.mly"
|
|
( xs )
|
|
# 22362 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1530 "parsing/parser.mly"
|
|
( Pmty_with(_1, _3) )
|
|
# 22368 "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
|
|
|
|
# 858 "parsing/parser.mly"
|
|
( mkmty ~loc:_sloc _1 )
|
|
# 22378 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1536 "parsing/parser.mly"
|
|
( _1 )
|
|
# 22384 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.extension) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.module_type) = let _1 =
|
|
let _1 =
|
|
# 1534 "parsing/parser.mly"
|
|
( Pmty_extension _1 )
|
|
# 22410 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 858 "parsing/parser.mly"
|
|
( mkmty ~loc:_sloc _1 )
|
|
# 22418 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1536 "parsing/parser.mly"
|
|
( _1 )
|
|
# 22424 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = typ;
|
|
MenhirLib.EngineTypes.startp = _startpos_typ_;
|
|
MenhirLib.EngineTypes.endp = _endpos_typ_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 22493 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 22505 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 22513 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1450 "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
|
|
)
|
|
# 22527 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Longident.t) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Longident.t) =
|
|
# 3524 "parsing/parser.mly"
|
|
( _1 )
|
|
# 22552 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Asttypes.mutable_flag) =
|
|
# 3601 "parsing/parser.mly"
|
|
( Immutable )
|
|
# 22570 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.mutable_flag) =
|
|
# 3602 "parsing/parser.mly"
|
|
( Mutable )
|
|
# 22595 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) =
|
|
# 3610 "parsing/parser.mly"
|
|
( Immutable, Concrete )
|
|
# 22613 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) =
|
|
# 3612 "parsing/parser.mly"
|
|
( Mutable, Concrete )
|
|
# 22638 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) =
|
|
# 3614 "parsing/parser.mly"
|
|
( Immutable, Virtual )
|
|
# 22663 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) =
|
|
# 3617 "parsing/parser.mly"
|
|
( Mutable, Virtual )
|
|
# 22695 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) =
|
|
# 3617 "parsing/parser.mly"
|
|
( Mutable, Virtual )
|
|
# 22727 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Asttypes.label) =
|
|
# 3574 "parsing/parser.mly"
|
|
( _2 )
|
|
# 22759 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 22780 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 22792 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 221 "<standard.mly>"
|
|
( [ x ] )
|
|
# 22798 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
} = _menhir_stack in
|
|
let xs : (string Asttypes.loc list) = Obj.magic xs in
|
|
let _1 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 22826 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 22838 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 223 "<standard.mly>"
|
|
( x :: xs )
|
|
# 22844 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = s;
|
|
MenhirLib.EngineTypes.startp = _startpos_s_;
|
|
MenhirLib.EngineTypes.endp = _endpos_s_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let s : (
|
|
# 685 "parsing/parser.mly"
|
|
(string * Location.t * string option)
|
|
# 22865 "parsing/parser.ml"
|
|
) = Obj.magic s in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_s_ in
|
|
let _endpos = _endpos_s_ in
|
|
let _v : (string list) = let x =
|
|
# 3570 "parsing/parser.mly"
|
|
( let body, _, _ = s in body )
|
|
# 22873 "parsing/parser.ml"
|
|
in
|
|
|
|
# 221 "<standard.mly>"
|
|
( [ x ] )
|
|
# 22878 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = s;
|
|
MenhirLib.EngineTypes.startp = _startpos_s_;
|
|
MenhirLib.EngineTypes.endp = _endpos_s_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
} = _menhir_stack in
|
|
let xs : (string list) = Obj.magic xs in
|
|
let s : (
|
|
# 685 "parsing/parser.mly"
|
|
(string * Location.t * string option)
|
|
# 22906 "parsing/parser.ml"
|
|
) = Obj.magic s in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_s_ in
|
|
let _endpos = _endpos_xs_ in
|
|
let _v : (string list) = let x =
|
|
# 3570 "parsing/parser.mly"
|
|
( let body, _, _ = s in body )
|
|
# 22914 "parsing/parser.ml"
|
|
in
|
|
|
|
# 223 "<standard.mly>"
|
|
( x :: xs )
|
|
# 22919 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = ty;
|
|
MenhirLib.EngineTypes.startp = _startpos_ty_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ty_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let ty : (Parsetree.core_type) = Obj.magic ty in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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 =
|
|
# 3597 "parsing/parser.mly"
|
|
( Public )
|
|
# 22944 "parsing/parser.ml"
|
|
in
|
|
|
|
# 2896 "parsing/parser.mly"
|
|
( (Ptype_abstract, priv, Some ty) )
|
|
# 22949 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ty;
|
|
MenhirLib.EngineTypes.startp = _startpos_ty_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ty_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3598 "parsing/parser.mly"
|
|
( Private )
|
|
# 22981 "parsing/parser.ml"
|
|
in
|
|
|
|
# 2896 "parsing/parser.mly"
|
|
( (Ptype_abstract, priv, Some ty) )
|
|
# 22986 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = cs;
|
|
MenhirLib.EngineTypes.startp = _startpos_cs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_cs_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let cs : (Parsetree.constructor_declaration list) = Obj.magic cs in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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 =
|
|
# 3597 "parsing/parser.mly"
|
|
( Public )
|
|
# 23011 "parsing/parser.ml"
|
|
in
|
|
let oty =
|
|
let _1 =
|
|
# 124 "<standard.mly>"
|
|
( None )
|
|
# 23017 "parsing/parser.ml"
|
|
in
|
|
|
|
# 2912 "parsing/parser.mly"
|
|
( _1 )
|
|
# 23022 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2900 "parsing/parser.mly"
|
|
( (Ptype_variant cs, priv, oty) )
|
|
# 23028 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = cs;
|
|
MenhirLib.EngineTypes.startp = _startpos_cs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_cs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3598 "parsing/parser.mly"
|
|
( Private )
|
|
# 23060 "parsing/parser.ml"
|
|
in
|
|
let oty =
|
|
let _1 =
|
|
# 124 "<standard.mly>"
|
|
( None )
|
|
# 23066 "parsing/parser.ml"
|
|
in
|
|
|
|
# 2912 "parsing/parser.mly"
|
|
( _1 )
|
|
# 23071 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2900 "parsing/parser.mly"
|
|
( (Ptype_variant cs, priv, oty) )
|
|
# 23077 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = cs;
|
|
MenhirLib.EngineTypes.startp = _startpos_cs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_cs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3597 "parsing/parser.mly"
|
|
( Public )
|
|
# 23116 "parsing/parser.ml"
|
|
in
|
|
let oty =
|
|
let _1 =
|
|
let x =
|
|
# 191 "<standard.mly>"
|
|
( x )
|
|
# 23123 "parsing/parser.ml"
|
|
in
|
|
|
|
# 126 "<standard.mly>"
|
|
( Some x )
|
|
# 23128 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2912 "parsing/parser.mly"
|
|
( _1 )
|
|
# 23134 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2900 "parsing/parser.mly"
|
|
( (Ptype_variant cs, priv, oty) )
|
|
# 23140 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = cs;
|
|
MenhirLib.EngineTypes.startp = _startpos_cs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_cs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3598 "parsing/parser.mly"
|
|
( Private )
|
|
# 23186 "parsing/parser.ml"
|
|
in
|
|
let oty =
|
|
let _1 =
|
|
let x =
|
|
# 191 "<standard.mly>"
|
|
( x )
|
|
# 23193 "parsing/parser.ml"
|
|
in
|
|
|
|
# 126 "<standard.mly>"
|
|
( Some x )
|
|
# 23198 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2912 "parsing/parser.mly"
|
|
( _1 )
|
|
# 23204 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2900 "parsing/parser.mly"
|
|
( (Ptype_variant cs, priv, oty) )
|
|
# 23210 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _3 : unit = Obj.magic _3 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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 =
|
|
# 3597 "parsing/parser.mly"
|
|
( Public )
|
|
# 23235 "parsing/parser.ml"
|
|
in
|
|
let oty =
|
|
let _1 =
|
|
# 124 "<standard.mly>"
|
|
( None )
|
|
# 23241 "parsing/parser.ml"
|
|
in
|
|
|
|
# 2912 "parsing/parser.mly"
|
|
( _1 )
|
|
# 23246 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2904 "parsing/parser.mly"
|
|
( (Ptype_open, priv, oty) )
|
|
# 23252 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3598 "parsing/parser.mly"
|
|
( Private )
|
|
# 23284 "parsing/parser.ml"
|
|
in
|
|
let oty =
|
|
let _1 =
|
|
# 124 "<standard.mly>"
|
|
( None )
|
|
# 23290 "parsing/parser.ml"
|
|
in
|
|
|
|
# 2912 "parsing/parser.mly"
|
|
( _1 )
|
|
# 23295 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2904 "parsing/parser.mly"
|
|
( (Ptype_open, priv, oty) )
|
|
# 23301 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3597 "parsing/parser.mly"
|
|
( Public )
|
|
# 23340 "parsing/parser.ml"
|
|
in
|
|
let oty =
|
|
let _1 =
|
|
let x =
|
|
# 191 "<standard.mly>"
|
|
( x )
|
|
# 23347 "parsing/parser.ml"
|
|
in
|
|
|
|
# 126 "<standard.mly>"
|
|
( Some x )
|
|
# 23352 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2912 "parsing/parser.mly"
|
|
( _1 )
|
|
# 23358 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2904 "parsing/parser.mly"
|
|
( (Ptype_open, priv, oty) )
|
|
# 23364 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3598 "parsing/parser.mly"
|
|
( Private )
|
|
# 23410 "parsing/parser.ml"
|
|
in
|
|
let oty =
|
|
let _1 =
|
|
let x =
|
|
# 191 "<standard.mly>"
|
|
( x )
|
|
# 23417 "parsing/parser.ml"
|
|
in
|
|
|
|
# 126 "<standard.mly>"
|
|
( Some x )
|
|
# 23422 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2912 "parsing/parser.mly"
|
|
( _1 )
|
|
# 23428 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2904 "parsing/parser.mly"
|
|
( (Ptype_open, priv, oty) )
|
|
# 23434 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ls;
|
|
MenhirLib.EngineTypes.startp = _startpos_ls_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ls_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3597 "parsing/parser.mly"
|
|
( Public )
|
|
# 23473 "parsing/parser.ml"
|
|
in
|
|
let oty =
|
|
let _1 =
|
|
# 124 "<standard.mly>"
|
|
( None )
|
|
# 23479 "parsing/parser.ml"
|
|
in
|
|
|
|
# 2912 "parsing/parser.mly"
|
|
( _1 )
|
|
# 23484 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2908 "parsing/parser.mly"
|
|
( (Ptype_record ls, priv, oty) )
|
|
# 23490 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ls;
|
|
MenhirLib.EngineTypes.startp = _startpos_ls_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ls_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3598 "parsing/parser.mly"
|
|
( Private )
|
|
# 23536 "parsing/parser.ml"
|
|
in
|
|
let oty =
|
|
let _1 =
|
|
# 124 "<standard.mly>"
|
|
( None )
|
|
# 23542 "parsing/parser.ml"
|
|
in
|
|
|
|
# 2912 "parsing/parser.mly"
|
|
( _1 )
|
|
# 23547 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2908 "parsing/parser.mly"
|
|
( (Ptype_record ls, priv, oty) )
|
|
# 23553 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ls;
|
|
MenhirLib.EngineTypes.startp = _startpos_ls_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ls_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3597 "parsing/parser.mly"
|
|
( Public )
|
|
# 23606 "parsing/parser.ml"
|
|
in
|
|
let oty =
|
|
let _1 =
|
|
let x =
|
|
# 191 "<standard.mly>"
|
|
( x )
|
|
# 23613 "parsing/parser.ml"
|
|
in
|
|
|
|
# 126 "<standard.mly>"
|
|
( Some x )
|
|
# 23618 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2912 "parsing/parser.mly"
|
|
( _1 )
|
|
# 23624 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2908 "parsing/parser.mly"
|
|
( (Ptype_record ls, priv, oty) )
|
|
# 23630 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ls;
|
|
MenhirLib.EngineTypes.startp = _startpos_ls_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ls_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3598 "parsing/parser.mly"
|
|
( Private )
|
|
# 23690 "parsing/parser.ml"
|
|
in
|
|
let oty =
|
|
let _1 =
|
|
let x =
|
|
# 191 "<standard.mly>"
|
|
( x )
|
|
# 23697 "parsing/parser.ml"
|
|
in
|
|
|
|
# 126 "<standard.mly>"
|
|
( Some x )
|
|
# 23702 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2912 "parsing/parser.mly"
|
|
( _1 )
|
|
# 23708 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2908 "parsing/parser.mly"
|
|
( (Ptype_record ls, priv, oty) )
|
|
# 23714 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = me;
|
|
MenhirLib.EngineTypes.startp = _startpos_me_;
|
|
MenhirLib.EngineTypes.endp = _endpos_me_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 23769 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos_attrs2_ = _endpos__1_inlined2_ in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 23778 "parsing/parser.ml"
|
|
|
|
in
|
|
let override =
|
|
# 3644 "parsing/parser.mly"
|
|
( Fresh )
|
|
# 23784 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1469 "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
|
|
)
|
|
# 23797 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = me;
|
|
MenhirLib.EngineTypes.startp = _startpos_me_;
|
|
MenhirLib.EngineTypes.endp = _endpos_me_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 23859 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos_attrs2_ = _endpos__1_inlined3_ in
|
|
let attrs1 =
|
|
let _1 = _1_inlined2 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 23868 "parsing/parser.ml"
|
|
|
|
in
|
|
let override =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3645 "parsing/parser.mly"
|
|
( Override )
|
|
# 23876 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1469 "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
|
|
)
|
|
# 23890 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 23945 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 23957 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 23965 "parsing/parser.ml"
|
|
|
|
in
|
|
let override =
|
|
# 3644 "parsing/parser.mly"
|
|
( Fresh )
|
|
# 23971 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1484 "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
|
|
)
|
|
# 23984 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined4;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 24046 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 24058 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined2 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 24066 "parsing/parser.ml"
|
|
|
|
in
|
|
let override =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3645 "parsing/parser.mly"
|
|
( Override )
|
|
# 24074 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1484 "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
|
|
)
|
|
# 24088 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (
|
|
# 671 "parsing/parser.mly"
|
|
(string)
|
|
# 24109 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.label) =
|
|
# 3440 "parsing/parser.mly"
|
|
( _1 )
|
|
# 24117 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (
|
|
# 629 "parsing/parser.mly"
|
|
(string)
|
|
# 24138 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.label) =
|
|
# 3441 "parsing/parser.mly"
|
|
( _1 )
|
|
# 24146 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (
|
|
# 630 "parsing/parser.mly"
|
|
(string)
|
|
# 24167 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.label) =
|
|
# 3442 "parsing/parser.mly"
|
|
( _1 )
|
|
# 24175 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 628 "parsing/parser.mly"
|
|
(string)
|
|
# 24217 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__4_ in
|
|
let _v : (Asttypes.label) =
|
|
# 3443 "parsing/parser.mly"
|
|
( "."^ _1 ^"(" ^ _3 ^ ")" )
|
|
# 24225 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 628 "parsing/parser.mly"
|
|
(string)
|
|
# 24274 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__5_ in
|
|
let _v : (Asttypes.label) =
|
|
# 3444 "parsing/parser.mly"
|
|
( "."^ _1 ^ "(" ^ _3 ^ ")<-" )
|
|
# 24282 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 628 "parsing/parser.mly"
|
|
(string)
|
|
# 24324 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__4_ in
|
|
let _v : (Asttypes.label) =
|
|
# 3445 "parsing/parser.mly"
|
|
( "."^ _1 ^"[" ^ _3 ^ "]" )
|
|
# 24332 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 628 "parsing/parser.mly"
|
|
(string)
|
|
# 24381 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__5_ in
|
|
let _v : (Asttypes.label) =
|
|
# 3446 "parsing/parser.mly"
|
|
( "."^ _1 ^ "[" ^ _3 ^ "]<-" )
|
|
# 24389 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 628 "parsing/parser.mly"
|
|
(string)
|
|
# 24431 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__4_ in
|
|
let _v : (Asttypes.label) =
|
|
# 3447 "parsing/parser.mly"
|
|
( "."^ _1 ^"{" ^ _3 ^ "}" )
|
|
# 24439 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 628 "parsing/parser.mly"
|
|
(string)
|
|
# 24488 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__5_ in
|
|
let _v : (Asttypes.label) =
|
|
# 3448 "parsing/parser.mly"
|
|
( "."^ _1 ^ "{" ^ _3 ^ "}<-" )
|
|
# 24496 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (
|
|
# 682 "parsing/parser.mly"
|
|
(string)
|
|
# 24517 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.label) =
|
|
# 3449 "parsing/parser.mly"
|
|
( _1 )
|
|
# 24525 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.label) =
|
|
# 3450 "parsing/parser.mly"
|
|
( "!" )
|
|
# 24550 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = op;
|
|
MenhirLib.EngineTypes.startp = _startpos_op_;
|
|
MenhirLib.EngineTypes.endp = _endpos_op_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let op : (
|
|
# 623 "parsing/parser.mly"
|
|
(string)
|
|
# 24571 "parsing/parser.ml"
|
|
) = Obj.magic op in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_op_ in
|
|
let _endpos = _endpos_op_ in
|
|
let _v : (Asttypes.label) = let _1 =
|
|
# 3454 "parsing/parser.mly"
|
|
( op )
|
|
# 24579 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3451 "parsing/parser.mly"
|
|
( _1 )
|
|
# 24584 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = op;
|
|
MenhirLib.EngineTypes.startp = _startpos_op_;
|
|
MenhirLib.EngineTypes.endp = _endpos_op_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let op : (
|
|
# 624 "parsing/parser.mly"
|
|
(string)
|
|
# 24605 "parsing/parser.ml"
|
|
) = Obj.magic op in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_op_ in
|
|
let _endpos = _endpos_op_ in
|
|
let _v : (Asttypes.label) = let _1 =
|
|
# 3455 "parsing/parser.mly"
|
|
( op )
|
|
# 24613 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3451 "parsing/parser.mly"
|
|
( _1 )
|
|
# 24618 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = op;
|
|
MenhirLib.EngineTypes.startp = _startpos_op_;
|
|
MenhirLib.EngineTypes.endp = _endpos_op_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let op : (
|
|
# 625 "parsing/parser.mly"
|
|
(string)
|
|
# 24639 "parsing/parser.ml"
|
|
) = Obj.magic op in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_op_ in
|
|
let _endpos = _endpos_op_ in
|
|
let _v : (Asttypes.label) = let _1 =
|
|
# 3456 "parsing/parser.mly"
|
|
( op )
|
|
# 24647 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3451 "parsing/parser.mly"
|
|
( _1 )
|
|
# 24652 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = op;
|
|
MenhirLib.EngineTypes.startp = _startpos_op_;
|
|
MenhirLib.EngineTypes.endp = _endpos_op_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let op : (
|
|
# 626 "parsing/parser.mly"
|
|
(string)
|
|
# 24673 "parsing/parser.ml"
|
|
) = Obj.magic op in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_op_ in
|
|
let _endpos = _endpos_op_ in
|
|
let _v : (Asttypes.label) = let _1 =
|
|
# 3457 "parsing/parser.mly"
|
|
( op )
|
|
# 24681 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3451 "parsing/parser.mly"
|
|
( _1 )
|
|
# 24686 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = op;
|
|
MenhirLib.EngineTypes.startp = _startpos_op_;
|
|
MenhirLib.EngineTypes.endp = _endpos_op_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let op : (
|
|
# 627 "parsing/parser.mly"
|
|
(string)
|
|
# 24707 "parsing/parser.ml"
|
|
) = Obj.magic op in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_op_ in
|
|
let _endpos = _endpos_op_ in
|
|
let _v : (Asttypes.label) = let _1 =
|
|
# 3458 "parsing/parser.mly"
|
|
( op )
|
|
# 24715 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3451 "parsing/parser.mly"
|
|
( _1 )
|
|
# 24720 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.label) = let _1 =
|
|
# 3459 "parsing/parser.mly"
|
|
("+")
|
|
# 24745 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3451 "parsing/parser.mly"
|
|
( _1 )
|
|
# 24750 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.label) = let _1 =
|
|
# 3460 "parsing/parser.mly"
|
|
("+.")
|
|
# 24775 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3451 "parsing/parser.mly"
|
|
( _1 )
|
|
# 24780 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.label) = let _1 =
|
|
# 3461 "parsing/parser.mly"
|
|
("+=")
|
|
# 24805 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3451 "parsing/parser.mly"
|
|
( _1 )
|
|
# 24810 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.label) = let _1 =
|
|
# 3462 "parsing/parser.mly"
|
|
("-")
|
|
# 24835 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3451 "parsing/parser.mly"
|
|
( _1 )
|
|
# 24840 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.label) = let _1 =
|
|
# 3463 "parsing/parser.mly"
|
|
("-.")
|
|
# 24865 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3451 "parsing/parser.mly"
|
|
( _1 )
|
|
# 24870 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.label) = let _1 =
|
|
# 3464 "parsing/parser.mly"
|
|
("*")
|
|
# 24895 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3451 "parsing/parser.mly"
|
|
( _1 )
|
|
# 24900 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.label) = let _1 =
|
|
# 3465 "parsing/parser.mly"
|
|
("%")
|
|
# 24925 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3451 "parsing/parser.mly"
|
|
( _1 )
|
|
# 24930 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.label) = let _1 =
|
|
# 3466 "parsing/parser.mly"
|
|
("=")
|
|
# 24955 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3451 "parsing/parser.mly"
|
|
( _1 )
|
|
# 24960 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.label) = let _1 =
|
|
# 3467 "parsing/parser.mly"
|
|
("<")
|
|
# 24985 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3451 "parsing/parser.mly"
|
|
( _1 )
|
|
# 24990 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.label) = let _1 =
|
|
# 3468 "parsing/parser.mly"
|
|
(">")
|
|
# 25015 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3451 "parsing/parser.mly"
|
|
( _1 )
|
|
# 25020 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.label) = let _1 =
|
|
# 3469 "parsing/parser.mly"
|
|
("or")
|
|
# 25045 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3451 "parsing/parser.mly"
|
|
( _1 )
|
|
# 25050 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.label) = let _1 =
|
|
# 3470 "parsing/parser.mly"
|
|
("||")
|
|
# 25075 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3451 "parsing/parser.mly"
|
|
( _1 )
|
|
# 25080 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.label) = let _1 =
|
|
# 3471 "parsing/parser.mly"
|
|
("&")
|
|
# 25105 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3451 "parsing/parser.mly"
|
|
( _1 )
|
|
# 25110 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.label) = let _1 =
|
|
# 3472 "parsing/parser.mly"
|
|
("&&")
|
|
# 25135 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3451 "parsing/parser.mly"
|
|
( _1 )
|
|
# 25140 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.label) = let _1 =
|
|
# 3473 "parsing/parser.mly"
|
|
(":=")
|
|
# 25165 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3451 "parsing/parser.mly"
|
|
( _1 )
|
|
# 25170 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (bool) =
|
|
# 3355 "parsing/parser.mly"
|
|
( true )
|
|
# 25195 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (bool) =
|
|
# 3356 "parsing/parser.mly"
|
|
( false )
|
|
# 25213 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (unit option) =
|
|
# 114 "<standard.mly>"
|
|
( None )
|
|
# 25231 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let x : unit = Obj.magic x in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_x_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : (unit option) =
|
|
# 116 "<standard.mly>"
|
|
( Some x )
|
|
# 25256 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (unit option) =
|
|
# 114 "<standard.mly>"
|
|
( None )
|
|
# 25274 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let x : unit = Obj.magic x in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_x_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : (unit option) =
|
|
# 116 "<standard.mly>"
|
|
( Some x )
|
|
# 25299 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (string Asttypes.loc option) =
|
|
# 114 "<standard.mly>"
|
|
( None )
|
|
# 25317 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
} = _menhir_stack in
|
|
let _1_inlined1 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 25344 "parsing/parser.ml"
|
|
) = Obj.magic _1_inlined1 in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 25359 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 183 "<standard.mly>"
|
|
( x )
|
|
# 25365 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 116 "<standard.mly>"
|
|
( Some x )
|
|
# 25371 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Parsetree.core_type option) =
|
|
# 114 "<standard.mly>"
|
|
( None )
|
|
# 25389 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : (Parsetree.core_type option) = let x =
|
|
# 183 "<standard.mly>"
|
|
( x )
|
|
# 25421 "parsing/parser.ml"
|
|
in
|
|
|
|
# 116 "<standard.mly>"
|
|
( Some x )
|
|
# 25426 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Parsetree.expression option) =
|
|
# 114 "<standard.mly>"
|
|
( None )
|
|
# 25444 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : (Parsetree.expression option) = let x =
|
|
# 183 "<standard.mly>"
|
|
( x )
|
|
# 25476 "parsing/parser.ml"
|
|
in
|
|
|
|
# 116 "<standard.mly>"
|
|
( Some x )
|
|
# 25481 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Parsetree.module_type option) =
|
|
# 114 "<standard.mly>"
|
|
( None )
|
|
# 25499 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : (Parsetree.module_type option) = let x =
|
|
# 183 "<standard.mly>"
|
|
( x )
|
|
# 25531 "parsing/parser.ml"
|
|
in
|
|
|
|
# 116 "<standard.mly>"
|
|
( Some x )
|
|
# 25536 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Parsetree.pattern option) =
|
|
# 114 "<standard.mly>"
|
|
( None )
|
|
# 25554 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : (Parsetree.pattern option) = let x =
|
|
# 183 "<standard.mly>"
|
|
( x )
|
|
# 25586 "parsing/parser.ml"
|
|
in
|
|
|
|
# 116 "<standard.mly>"
|
|
( Some x )
|
|
# 25591 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Parsetree.expression option) =
|
|
# 114 "<standard.mly>"
|
|
( None )
|
|
# 25609 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : (Parsetree.expression option) = let x =
|
|
# 183 "<standard.mly>"
|
|
( x )
|
|
# 25641 "parsing/parser.ml"
|
|
in
|
|
|
|
# 116 "<standard.mly>"
|
|
( Some x )
|
|
# 25646 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : ((Parsetree.core_type option * Parsetree.core_type option) option) =
|
|
# 114 "<standard.mly>"
|
|
( None )
|
|
# 25664 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( Some x )
|
|
# 25689 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (
|
|
# 664 "parsing/parser.mly"
|
|
(string)
|
|
# 25710 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3656 "parsing/parser.mly"
|
|
( _1 )
|
|
# 25718 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _3 : unit = Obj.magic _3 in
|
|
let _2 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 25752 "parsing/parser.ml"
|
|
) = Obj.magic _2 in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (string) =
|
|
# 3657 "parsing/parser.mly"
|
|
( _2 )
|
|
# 25761 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = mty;
|
|
MenhirLib.EngineTypes.startp = _startpos_mty_;
|
|
MenhirLib.EngineTypes.endp = _endpos_mty_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = me;
|
|
MenhirLib.EngineTypes.startp = _startpos_me_;
|
|
MenhirLib.EngineTypes.endp = _endpos_me_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 1249 "parsing/parser.mly"
|
|
( mkmod ~loc:_sloc (Pmod_constraint(me, mty)) )
|
|
# 25817 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 1251 "parsing/parser.mly"
|
|
( unclosed "(" _loc__1_ ")" _loc__5_ )
|
|
# 25872 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = me;
|
|
MenhirLib.EngineTypes.startp = _startpos_me_;
|
|
MenhirLib.EngineTypes.endp = _endpos_me_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.module_expr) =
|
|
# 1254 "parsing/parser.mly"
|
|
( me (* TODO consider reloc *) )
|
|
# 25911 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 1256 "parsing/parser.mly"
|
|
( unclosed "(" _loc__1_ ")" _loc__3_ )
|
|
# 25952 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = e;
|
|
MenhirLib.EngineTypes.startp = _startpos_e_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__5_ in
|
|
let _v : (Parsetree.module_expr) = let e =
|
|
# 1273 "parsing/parser.mly"
|
|
( e )
|
|
# 26005 "parsing/parser.ml"
|
|
in
|
|
let attrs =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 26012 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__5_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1260 "parsing/parser.mly"
|
|
( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) )
|
|
# 26021 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = e;
|
|
MenhirLib.EngineTypes.startp = _startpos_e_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3330 "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 )
|
|
# 26096 "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
|
|
|
|
# 1275 "parsing/parser.mly"
|
|
( ghexp ~loc:_loc (Pexp_constraint (e, ty)) )
|
|
# 26106 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 26114 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__5_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1260 "parsing/parser.mly"
|
|
( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) )
|
|
# 26123 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = e;
|
|
MenhirLib.EngineTypes.startp = _startpos_e_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3330 "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 )
|
|
# 26213 "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
|
|
|
|
# 3330 "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 )
|
|
# 26226 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_ty2_ in
|
|
let _startpos = _startpos_e_ in
|
|
let _loc = (_startpos, _endpos) in
|
|
|
|
# 1277 "parsing/parser.mly"
|
|
( ghexp ~loc:_loc (Pexp_coerce (e, Some ty1, ty2)) )
|
|
# 26235 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 26243 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__5_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1260 "parsing/parser.mly"
|
|
( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) )
|
|
# 26252 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = e;
|
|
MenhirLib.EngineTypes.startp = _startpos_e_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3330 "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 )
|
|
# 26327 "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
|
|
|
|
# 1279 "parsing/parser.mly"
|
|
( ghexp ~loc:_loc (Pexp_coerce (e, None, ty2)) )
|
|
# 26337 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 26345 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__5_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1260 "parsing/parser.mly"
|
|
( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) )
|
|
# 26354 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 26416 "parsing/parser.ml"
|
|
|
|
in
|
|
let _loc__6_ = (_startpos__6_, _endpos__6_) in
|
|
let _loc__1_ = (_startpos__1_, _endpos__1_) in
|
|
|
|
# 1262 "parsing/parser.mly"
|
|
( unclosed "(" _loc__1_ ")" _loc__6_ )
|
|
# 26424 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 26486 "parsing/parser.ml"
|
|
|
|
in
|
|
let _loc__6_ = (_startpos__6_, _endpos__6_) in
|
|
let _loc__1_ = (_startpos__1_, _endpos__1_) in
|
|
|
|
# 1264 "parsing/parser.mly"
|
|
( unclosed "(" _loc__1_ ")" _loc__6_ )
|
|
# 26494 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 26549 "parsing/parser.ml"
|
|
|
|
in
|
|
let _loc__5_ = (_startpos__5_, _endpos__5_) in
|
|
let _loc__1_ = (_startpos__1_, _endpos__1_) in
|
|
|
|
# 1266 "parsing/parser.mly"
|
|
( unclosed "(" _loc__1_ ")" _loc__5_ )
|
|
# 26557 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (
|
|
# 801 "parsing/parser.mly"
|
|
(Longident.t)
|
|
# 26589 "parsing/parser.ml"
|
|
) =
|
|
# 1170 "parsing/parser.mly"
|
|
( _1 )
|
|
# 26593 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (
|
|
# 791 "parsing/parser.mly"
|
|
(Longident.t)
|
|
# 26625 "parsing/parser.ml"
|
|
) =
|
|
# 1155 "parsing/parser.mly"
|
|
( _1 )
|
|
# 26629 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (
|
|
# 785 "parsing/parser.mly"
|
|
(Parsetree.core_type)
|
|
# 26661 "parsing/parser.ml"
|
|
) =
|
|
# 1130 "parsing/parser.mly"
|
|
( _1 )
|
|
# 26665 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (
|
|
# 787 "parsing/parser.mly"
|
|
(Parsetree.expression)
|
|
# 26697 "parsing/parser.ml"
|
|
) =
|
|
# 1135 "parsing/parser.mly"
|
|
( _1 )
|
|
# 26701 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (
|
|
# 797 "parsing/parser.mly"
|
|
(Longident.t)
|
|
# 26733 "parsing/parser.ml"
|
|
) =
|
|
# 1160 "parsing/parser.mly"
|
|
( _1 )
|
|
# 26737 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (
|
|
# 799 "parsing/parser.mly"
|
|
(Longident.t)
|
|
# 26769 "parsing/parser.ml"
|
|
) =
|
|
# 1165 "parsing/parser.mly"
|
|
( _1 )
|
|
# 26773 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (
|
|
# 795 "parsing/parser.mly"
|
|
(Longident.t)
|
|
# 26805 "parsing/parser.ml"
|
|
) =
|
|
# 1145 "parsing/parser.mly"
|
|
( _1 )
|
|
# 26809 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (
|
|
# 789 "parsing/parser.mly"
|
|
(Parsetree.pattern)
|
|
# 26841 "parsing/parser.ml"
|
|
) =
|
|
# 1140 "parsing/parser.mly"
|
|
( _1 )
|
|
# 26845 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (
|
|
# 793 "parsing/parser.mly"
|
|
(Longident.t)
|
|
# 26877 "parsing/parser.ml"
|
|
) =
|
|
# 1150 "parsing/parser.mly"
|
|
( _1 )
|
|
# 26881 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2631 "parsing/parser.mly"
|
|
( mkpat_cons ~loc:_sloc _loc__2_ (ghpat ~loc:_sloc (Ppat_tuple[_1;_3])) )
|
|
# 26925 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2619 "parsing/parser.mly"
|
|
( _1 )
|
|
# 26931 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.pattern) = let _1 =
|
|
# 2633 "parsing/parser.mly"
|
|
( Pat.attr _1 _2 )
|
|
# 26963 "parsing/parser.ml"
|
|
in
|
|
|
|
# 2619 "parsing/parser.mly"
|
|
( _1 )
|
|
# 26968 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.pattern) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.pattern) = let _1 =
|
|
# 2635 "parsing/parser.mly"
|
|
( _1 )
|
|
# 26993 "parsing/parser.ml"
|
|
in
|
|
|
|
# 2619 "parsing/parser.mly"
|
|
( _1 )
|
|
# 26998 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 27045 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2638 "parsing/parser.mly"
|
|
( Ppat_alias(_1, _3) )
|
|
# 27051 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 27061 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2649 "parsing/parser.mly"
|
|
( _1 )
|
|
# 27067 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2619 "parsing/parser.mly"
|
|
( _1 )
|
|
# 27073 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2640 "parsing/parser.mly"
|
|
( expecting _loc__3_ "identifier" )
|
|
# 27116 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 27126 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2649 "parsing/parser.mly"
|
|
( _1 )
|
|
# 27132 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2619 "parsing/parser.mly"
|
|
( _1 )
|
|
# 27138 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.pattern list) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.pattern) = let _1 =
|
|
let _1 =
|
|
let _1 =
|
|
# 2642 "parsing/parser.mly"
|
|
( Ppat_tuple(List.rev _1) )
|
|
# 27165 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 27173 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2649 "parsing/parser.mly"
|
|
( _1 )
|
|
# 27179 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2619 "parsing/parser.mly"
|
|
( _1 )
|
|
# 27185 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2644 "parsing/parser.mly"
|
|
( expecting _loc__3_ "pattern" )
|
|
# 27228 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 27238 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2649 "parsing/parser.mly"
|
|
( _1 )
|
|
# 27244 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2619 "parsing/parser.mly"
|
|
( _1 )
|
|
# 27250 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.pattern) = let _1 =
|
|
let _1 =
|
|
let _1 =
|
|
# 2646 "parsing/parser.mly"
|
|
( Ppat_or(_1, _3) )
|
|
# 27291 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 27300 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2649 "parsing/parser.mly"
|
|
( _1 )
|
|
# 27306 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2619 "parsing/parser.mly"
|
|
( _1 )
|
|
# 27312 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2648 "parsing/parser.mly"
|
|
( expecting _loc__3_ "pattern" )
|
|
# 27355 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 27365 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2649 "parsing/parser.mly"
|
|
( _1 )
|
|
# 27371 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2619 "parsing/parser.mly"
|
|
( _1 )
|
|
# 27377 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 27427 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 27433 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__3_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2621 "parsing/parser.mly"
|
|
( mkpat_attrs ~loc:_sloc (Ppat_exception _3) _2)
|
|
# 27442 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.pattern list) =
|
|
# 2745 "parsing/parser.mly"
|
|
( _3 :: _1 )
|
|
# 27481 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.pattern list) =
|
|
# 2746 "parsing/parser.mly"
|
|
( [_3; _1] )
|
|
# 27520 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2747 "parsing/parser.mly"
|
|
( expecting _loc__3_ "pattern" )
|
|
# 27560 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.pattern list) =
|
|
# 2745 "parsing/parser.mly"
|
|
( _3 :: _1 )
|
|
# 27599 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.pattern list) =
|
|
# 2746 "parsing/parser.mly"
|
|
( [_3; _1] )
|
|
# 27638 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2747 "parsing/parser.mly"
|
|
( expecting _loc__3_ "pattern" )
|
|
# 27678 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.pattern) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.pattern) =
|
|
# 2654 "parsing/parser.mly"
|
|
( _1 )
|
|
# 27703 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 27741 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2657 "parsing/parser.mly"
|
|
( Ppat_construct(_1, Some _2) )
|
|
# 27747 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 27757 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2660 "parsing/parser.mly"
|
|
( _1 )
|
|
# 27763 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.pattern) = let _1 =
|
|
let _1 =
|
|
# 2659 "parsing/parser.mly"
|
|
( Ppat_variant(_1, Some _2) )
|
|
# 27796 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 27805 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2660 "parsing/parser.mly"
|
|
( _1 )
|
|
# 27811 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 27861 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 27867 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__3_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2662 "parsing/parser.mly"
|
|
( mkpat_attrs ~loc:_sloc (Ppat_lazy _3) _2)
|
|
# 27876 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2631 "parsing/parser.mly"
|
|
( mkpat_cons ~loc:_sloc _loc__2_ (ghpat ~loc:_sloc (Ppat_tuple[_1;_3])) )
|
|
# 27920 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2626 "parsing/parser.mly"
|
|
( _1 )
|
|
# 27926 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.pattern) = let _1 =
|
|
# 2633 "parsing/parser.mly"
|
|
( Pat.attr _1 _2 )
|
|
# 27958 "parsing/parser.ml"
|
|
in
|
|
|
|
# 2626 "parsing/parser.mly"
|
|
( _1 )
|
|
# 27963 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.pattern) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.pattern) = let _1 =
|
|
# 2635 "parsing/parser.mly"
|
|
( _1 )
|
|
# 27988 "parsing/parser.ml"
|
|
in
|
|
|
|
# 2626 "parsing/parser.mly"
|
|
( _1 )
|
|
# 27993 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 28040 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2638 "parsing/parser.mly"
|
|
( Ppat_alias(_1, _3) )
|
|
# 28046 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 28056 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2649 "parsing/parser.mly"
|
|
( _1 )
|
|
# 28062 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2626 "parsing/parser.mly"
|
|
( _1 )
|
|
# 28068 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2640 "parsing/parser.mly"
|
|
( expecting _loc__3_ "identifier" )
|
|
# 28111 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 28121 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2649 "parsing/parser.mly"
|
|
( _1 )
|
|
# 28127 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2626 "parsing/parser.mly"
|
|
( _1 )
|
|
# 28133 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.pattern list) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.pattern) = let _1 =
|
|
let _1 =
|
|
let _1 =
|
|
# 2642 "parsing/parser.mly"
|
|
( Ppat_tuple(List.rev _1) )
|
|
# 28160 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 28168 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2649 "parsing/parser.mly"
|
|
( _1 )
|
|
# 28174 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2626 "parsing/parser.mly"
|
|
( _1 )
|
|
# 28180 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2644 "parsing/parser.mly"
|
|
( expecting _loc__3_ "pattern" )
|
|
# 28223 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 28233 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2649 "parsing/parser.mly"
|
|
( _1 )
|
|
# 28239 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2626 "parsing/parser.mly"
|
|
( _1 )
|
|
# 28245 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.pattern) = let _1 =
|
|
let _1 =
|
|
let _1 =
|
|
# 2646 "parsing/parser.mly"
|
|
( Ppat_or(_1, _3) )
|
|
# 28286 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 28295 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2649 "parsing/parser.mly"
|
|
( _1 )
|
|
# 28301 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2626 "parsing/parser.mly"
|
|
( _1 )
|
|
# 28307 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2648 "parsing/parser.mly"
|
|
( expecting _loc__3_ "pattern" )
|
|
# 28350 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 28360 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2649 "parsing/parser.mly"
|
|
( _1 )
|
|
# 28366 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2626 "parsing/parser.mly"
|
|
( _1 )
|
|
# 28372 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 28393 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 28407 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2104 "parsing/parser.mly"
|
|
( Ppat_var _1 )
|
|
# 28413 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 28422 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2106 "parsing/parser.mly"
|
|
( _1 )
|
|
# 28428 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.pattern) = let _1 =
|
|
let _1 =
|
|
# 2105 "parsing/parser.mly"
|
|
( Ppat_any )
|
|
# 28454 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 28462 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2106 "parsing/parser.mly"
|
|
( _1 )
|
|
# 28468 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.structure) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.payload) =
|
|
# 3766 "parsing/parser.mly"
|
|
( PStr _1 )
|
|
# 28493 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.payload) =
|
|
# 3767 "parsing/parser.mly"
|
|
( PSig _2 )
|
|
# 28525 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.payload) =
|
|
# 3768 "parsing/parser.mly"
|
|
( PTyp _2 )
|
|
# 28557 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.payload) =
|
|
# 3769 "parsing/parser.mly"
|
|
( PPat (_2, None) )
|
|
# 28589 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__4_ in
|
|
let _v : (Parsetree.payload) =
|
|
# 3770 "parsing/parser.mly"
|
|
( PPat (_2, Some _4) )
|
|
# 28635 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.core_type) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.core_type) =
|
|
# 3169 "parsing/parser.mly"
|
|
( _1 )
|
|
# 28660 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 28703 "parsing/parser.ml"
|
|
in
|
|
|
|
# 915 "parsing/parser.mly"
|
|
( xs )
|
|
# 28708 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3161 "parsing/parser.mly"
|
|
( _1 )
|
|
# 28714 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3165 "parsing/parser.mly"
|
|
( Ptyp_poly(_1, _3) )
|
|
# 28720 "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
|
|
|
|
# 850 "parsing/parser.mly"
|
|
( mktyp ~loc:_sloc _1 )
|
|
# 28730 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3171 "parsing/parser.mly"
|
|
( _1 )
|
|
# 28736 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.core_type) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.core_type) = let _1 =
|
|
# 3200 "parsing/parser.mly"
|
|
( _1 )
|
|
# 28761 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3169 "parsing/parser.mly"
|
|
( _1 )
|
|
# 28766 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_xs_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.core_type) = let _1 =
|
|
let _1 =
|
|
let _3 =
|
|
# 3200 "parsing/parser.mly"
|
|
( _1 )
|
|
# 28807 "parsing/parser.ml"
|
|
in
|
|
let _1 =
|
|
let _1 =
|
|
let xs =
|
|
# 253 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 28814 "parsing/parser.ml"
|
|
in
|
|
|
|
# 915 "parsing/parser.mly"
|
|
( xs )
|
|
# 28819 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3161 "parsing/parser.mly"
|
|
( _1 )
|
|
# 28825 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3165 "parsing/parser.mly"
|
|
( Ptyp_poly(_1, _3) )
|
|
# 28831 "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
|
|
|
|
# 850 "parsing/parser.mly"
|
|
( mktyp ~loc:_sloc _1 )
|
|
# 28841 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3171 "parsing/parser.mly"
|
|
( _1 )
|
|
# 28847 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3729 "parsing/parser.mly"
|
|
( Attr.mk ~loc:(make_loc _sloc) _2 _3 )
|
|
# 28896 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = prim;
|
|
MenhirLib.EngineTypes.startp = _startpos_prim_;
|
|
MenhirLib.EngineTypes.endp = _endpos_prim_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ty;
|
|
MenhirLib.EngineTypes.startp = _startpos_ty_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ty_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 28979 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 28991 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 28999 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2806 "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 )
|
|
# 29012 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Asttypes.private_flag) = let _1 =
|
|
# 3597 "parsing/parser.mly"
|
|
( Public )
|
|
# 29030 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3594 "parsing/parser.mly"
|
|
( _1 )
|
|
# 29035 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.private_flag) = let _1 =
|
|
# 3598 "parsing/parser.mly"
|
|
( Private )
|
|
# 29060 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3594 "parsing/parser.mly"
|
|
( _1 )
|
|
# 29065 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Asttypes.private_flag * Asttypes.virtual_flag) =
|
|
# 3620 "parsing/parser.mly"
|
|
( Public, Concrete )
|
|
# 29083 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.private_flag * Asttypes.virtual_flag) =
|
|
# 3621 "parsing/parser.mly"
|
|
( Private, Concrete )
|
|
# 29108 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.private_flag * Asttypes.virtual_flag) =
|
|
# 3622 "parsing/parser.mly"
|
|
( Public, Virtual )
|
|
# 29133 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Asttypes.private_flag * Asttypes.virtual_flag) =
|
|
# 3623 "parsing/parser.mly"
|
|
( Private, Virtual )
|
|
# 29165 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Asttypes.private_flag * Asttypes.virtual_flag) =
|
|
# 3624 "parsing/parser.mly"
|
|
( Private, Virtual )
|
|
# 29197 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Asttypes.rec_flag) =
|
|
# 3577 "parsing/parser.mly"
|
|
( Nonrecursive )
|
|
# 29215 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.rec_flag) =
|
|
# 3578 "parsing/parser.mly"
|
|
( Recursive )
|
|
# 29240 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = fields;
|
|
MenhirLib.EngineTypes.startp = _startpos_fields_;
|
|
MenhirLib.EngineTypes.endp = _endpos_fields_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( None )
|
|
# 29266 "parsing/parser.ml"
|
|
in
|
|
|
|
# 2551 "parsing/parser.mly"
|
|
( eo, fields )
|
|
# 29271 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = fields;
|
|
MenhirLib.EngineTypes.startp = _startpos_fields_;
|
|
MenhirLib.EngineTypes.endp = _endpos_fields_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( x )
|
|
# 29312 "parsing/parser.ml"
|
|
in
|
|
|
|
# 126 "<standard.mly>"
|
|
( Some x )
|
|
# 29317 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2551 "parsing/parser.mly"
|
|
( eo, fields )
|
|
# 29323 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = d;
|
|
MenhirLib.EngineTypes.startp = _startpos_d_;
|
|
MenhirLib.EngineTypes.endp = _endpos_d_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_d_ in
|
|
let _endpos = _endpos_d_ in
|
|
let _v : (Parsetree.constructor_declaration list) = let x =
|
|
# 2991 "parsing/parser.mly"
|
|
(
|
|
let cid, args, res, attrs, loc, info = d in
|
|
Type.constructor cid ~args ?res ~attrs ~loc ~info
|
|
)
|
|
# 29353 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1025 "parsing/parser.mly"
|
|
( [x] )
|
|
# 29358 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = d;
|
|
MenhirLib.EngineTypes.startp = _startpos_d_;
|
|
MenhirLib.EngineTypes.endp = _endpos_d_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_d_ in
|
|
let _endpos = _endpos_d_ in
|
|
let _v : (Parsetree.constructor_declaration list) = let x =
|
|
# 2991 "parsing/parser.mly"
|
|
(
|
|
let cid, args, res, attrs, loc, info = d in
|
|
Type.constructor cid ~args ?res ~attrs ~loc ~info
|
|
)
|
|
# 29388 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1028 "parsing/parser.mly"
|
|
( [x] )
|
|
# 29393 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = d;
|
|
MenhirLib.EngineTypes.startp = _startpos_d_;
|
|
MenhirLib.EngineTypes.endp = _endpos_d_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_xs_ in
|
|
let _endpos = _endpos_d_ in
|
|
let _v : (Parsetree.constructor_declaration list) = let x =
|
|
# 2991 "parsing/parser.mly"
|
|
(
|
|
let cid, args, res, attrs, loc, info = d in
|
|
Type.constructor cid ~args ?res ~attrs ~loc ~info
|
|
)
|
|
# 29430 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1032 "parsing/parser.mly"
|
|
( x :: xs )
|
|
# 29435 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = d;
|
|
MenhirLib.EngineTypes.startp = _startpos_d_;
|
|
MenhirLib.EngineTypes.endp = _endpos_d_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_d_ in
|
|
let _endpos = _endpos_d_ in
|
|
let _v : (Parsetree.extension_constructor list) = let x =
|
|
let _1 =
|
|
# 3103 "parsing/parser.mly"
|
|
(
|
|
let cid, args, res, attrs, loc, info = d in
|
|
Te.decl cid ~args ?res ~attrs ~loc ~info
|
|
)
|
|
# 29466 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3097 "parsing/parser.mly"
|
|
( _1 )
|
|
# 29471 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1025 "parsing/parser.mly"
|
|
( [x] )
|
|
# 29477 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.extension_constructor) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.extension_constructor list) = let x =
|
|
# 3099 "parsing/parser.mly"
|
|
( _1 )
|
|
# 29502 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1025 "parsing/parser.mly"
|
|
( [x] )
|
|
# 29507 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = d;
|
|
MenhirLib.EngineTypes.startp = _startpos_d_;
|
|
MenhirLib.EngineTypes.endp = _endpos_d_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_d_ in
|
|
let _endpos = _endpos_d_ in
|
|
let _v : (Parsetree.extension_constructor list) = let x =
|
|
let _1 =
|
|
# 3103 "parsing/parser.mly"
|
|
(
|
|
let cid, args, res, attrs, loc, info = d in
|
|
Te.decl cid ~args ?res ~attrs ~loc ~info
|
|
)
|
|
# 29538 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3097 "parsing/parser.mly"
|
|
( _1 )
|
|
# 29543 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1028 "parsing/parser.mly"
|
|
( [x] )
|
|
# 29549 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.extension_constructor) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.extension_constructor list) = let x =
|
|
# 3099 "parsing/parser.mly"
|
|
( _1 )
|
|
# 29574 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1028 "parsing/parser.mly"
|
|
( [x] )
|
|
# 29579 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = d;
|
|
MenhirLib.EngineTypes.startp = _startpos_d_;
|
|
MenhirLib.EngineTypes.endp = _endpos_d_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_xs_ in
|
|
let _endpos = _endpos_d_ in
|
|
let _v : (Parsetree.extension_constructor list) = let x =
|
|
let _1 =
|
|
# 3103 "parsing/parser.mly"
|
|
(
|
|
let cid, args, res, attrs, loc, info = d in
|
|
Te.decl cid ~args ?res ~attrs ~loc ~info
|
|
)
|
|
# 29617 "parsing/parser.ml"
|
|
in
|
|
|
|
# 3097 "parsing/parser.mly"
|
|
( _1 )
|
|
# 29622 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1032 "parsing/parser.mly"
|
|
( x :: xs )
|
|
# 29628 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_xs_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.extension_constructor list) = let x =
|
|
# 3099 "parsing/parser.mly"
|
|
( _1 )
|
|
# 29660 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1032 "parsing/parser.mly"
|
|
( x :: xs )
|
|
# 29665 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = d;
|
|
MenhirLib.EngineTypes.startp = _startpos_d_;
|
|
MenhirLib.EngineTypes.endp = _endpos_d_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_d_ in
|
|
let _endpos = _endpos_d_ in
|
|
let _v : (Parsetree.extension_constructor list) = let x =
|
|
# 3103 "parsing/parser.mly"
|
|
(
|
|
let cid, args, res, attrs, loc, info = d in
|
|
Te.decl cid ~args ?res ~attrs ~loc ~info
|
|
)
|
|
# 29695 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1025 "parsing/parser.mly"
|
|
( [x] )
|
|
# 29700 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = d;
|
|
MenhirLib.EngineTypes.startp = _startpos_d_;
|
|
MenhirLib.EngineTypes.endp = _endpos_d_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_d_ in
|
|
let _endpos = _endpos_d_ in
|
|
let _v : (Parsetree.extension_constructor list) = let x =
|
|
# 3103 "parsing/parser.mly"
|
|
(
|
|
let cid, args, res, attrs, loc, info = d in
|
|
Te.decl cid ~args ?res ~attrs ~loc ~info
|
|
)
|
|
# 29730 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1028 "parsing/parser.mly"
|
|
( [x] )
|
|
# 29735 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = d;
|
|
MenhirLib.EngineTypes.startp = _startpos_d_;
|
|
MenhirLib.EngineTypes.endp = _endpos_d_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_xs_ in
|
|
let _endpos = _endpos_d_ in
|
|
let _v : (Parsetree.extension_constructor list) = let x =
|
|
# 3103 "parsing/parser.mly"
|
|
(
|
|
let cid, args, res, attrs, loc, info = d in
|
|
Te.decl cid ~args ?res ~attrs ~loc ~info
|
|
)
|
|
# 29772 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1032 "parsing/parser.mly"
|
|
( x :: xs )
|
|
# 29777 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : ((Parsetree.core_type * Parsetree.core_type * Ast_helper.loc) list) =
|
|
# 891 "parsing/parser.mly"
|
|
( [] )
|
|
# 29795 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 1984 "parsing/parser.mly"
|
|
( _1, _3, make_loc _sloc )
|
|
# 29854 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 183 "<standard.mly>"
|
|
( x )
|
|
# 29860 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 893 "parsing/parser.mly"
|
|
( x :: xs )
|
|
# 29866 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let x : (Parsetree.functor_parameter) = Obj.magic x in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_x_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : (Parsetree.functor_parameter list) =
|
|
# 905 "parsing/parser.mly"
|
|
( [ x ] )
|
|
# 29891 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
} = _menhir_stack in
|
|
let x : (Parsetree.functor_parameter) = Obj.magic x in
|
|
let xs : (Parsetree.functor_parameter list) = Obj.magic xs in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_xs_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : (Parsetree.functor_parameter list) =
|
|
# 907 "parsing/parser.mly"
|
|
( x :: xs )
|
|
# 29923 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let x : (Asttypes.arg_label * Parsetree.expression) = Obj.magic x in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_x_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : ((Asttypes.arg_label * Parsetree.expression) list) =
|
|
# 905 "parsing/parser.mly"
|
|
( [ x ] )
|
|
# 29948 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_xs_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : ((Asttypes.arg_label * Parsetree.expression) list) =
|
|
# 907 "parsing/parser.mly"
|
|
( x :: xs )
|
|
# 29980 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let x : (Asttypes.label) = Obj.magic x in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_x_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : (Asttypes.label list) =
|
|
# 905 "parsing/parser.mly"
|
|
( [ x ] )
|
|
# 30005 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_xs_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : (Asttypes.label list) =
|
|
# 907 "parsing/parser.mly"
|
|
( x :: xs )
|
|
# 30037 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 30075 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3157 "parsing/parser.mly"
|
|
( _2 )
|
|
# 30081 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 905 "parsing/parser.mly"
|
|
( [ x ] )
|
|
# 30087 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 30132 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3157 "parsing/parser.mly"
|
|
( _2 )
|
|
# 30138 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 907 "parsing/parser.mly"
|
|
( x :: xs )
|
|
# 30144 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let x : (Parsetree.case) = Obj.magic x in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_x_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : (Parsetree.case list) = let _1 =
|
|
# 124 "<standard.mly>"
|
|
( None )
|
|
# 30169 "parsing/parser.ml"
|
|
in
|
|
|
|
# 996 "parsing/parser.mly"
|
|
( [x] )
|
|
# 30174 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_inlined1_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( Some x )
|
|
# 30208 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 996 "parsing/parser.mly"
|
|
( [x] )
|
|
# 30214 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_xs_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : (Parsetree.case list) =
|
|
# 1000 "parsing/parser.mly"
|
|
( x :: xs )
|
|
# 30253 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.core_type) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.core_type list) = let xs =
|
|
let x =
|
|
# 3200 "parsing/parser.mly"
|
|
( _1 )
|
|
# 30279 "parsing/parser.ml"
|
|
in
|
|
|
|
# 931 "parsing/parser.mly"
|
|
( [ x ] )
|
|
# 30284 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 939 "parsing/parser.mly"
|
|
( xs )
|
|
# 30290 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_xs_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.core_type list) = let xs =
|
|
let x =
|
|
# 3200 "parsing/parser.mly"
|
|
( _1 )
|
|
# 30330 "parsing/parser.ml"
|
|
in
|
|
|
|
# 935 "parsing/parser.mly"
|
|
( x :: xs )
|
|
# 30335 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 939 "parsing/parser.mly"
|
|
( xs )
|
|
# 30341 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let x : (Parsetree.with_constraint) = Obj.magic x in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_x_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : (Parsetree.with_constraint list) = let xs =
|
|
# 931 "parsing/parser.mly"
|
|
( [ x ] )
|
|
# 30366 "parsing/parser.ml"
|
|
in
|
|
|
|
# 939 "parsing/parser.mly"
|
|
( xs )
|
|
# 30371 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_xs_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : (Parsetree.with_constraint list) = let xs =
|
|
# 935 "parsing/parser.mly"
|
|
( x :: xs )
|
|
# 30410 "parsing/parser.ml"
|
|
in
|
|
|
|
# 939 "parsing/parser.mly"
|
|
( xs )
|
|
# 30415 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let x : (Parsetree.row_field) = Obj.magic x in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_x_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : (Parsetree.row_field list) = let xs =
|
|
# 931 "parsing/parser.mly"
|
|
( [ x ] )
|
|
# 30440 "parsing/parser.ml"
|
|
in
|
|
|
|
# 939 "parsing/parser.mly"
|
|
( xs )
|
|
# 30445 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_xs_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : (Parsetree.row_field list) = let xs =
|
|
# 935 "parsing/parser.mly"
|
|
( x :: xs )
|
|
# 30484 "parsing/parser.ml"
|
|
in
|
|
|
|
# 939 "parsing/parser.mly"
|
|
( xs )
|
|
# 30489 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let x : (Parsetree.core_type) = Obj.magic x in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_x_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : (Parsetree.core_type list) = let xs =
|
|
# 931 "parsing/parser.mly"
|
|
( [ x ] )
|
|
# 30514 "parsing/parser.ml"
|
|
in
|
|
|
|
# 939 "parsing/parser.mly"
|
|
( xs )
|
|
# 30519 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_xs_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : (Parsetree.core_type list) = let xs =
|
|
# 935 "parsing/parser.mly"
|
|
( x :: xs )
|
|
# 30558 "parsing/parser.ml"
|
|
in
|
|
|
|
# 939 "parsing/parser.mly"
|
|
( xs )
|
|
# 30563 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 931 "parsing/parser.mly"
|
|
( [ x ] )
|
|
# 30588 "parsing/parser.ml"
|
|
in
|
|
|
|
# 939 "parsing/parser.mly"
|
|
( xs )
|
|
# 30593 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 935 "parsing/parser.mly"
|
|
( x :: xs )
|
|
# 30632 "parsing/parser.ml"
|
|
in
|
|
|
|
# 939 "parsing/parser.mly"
|
|
( xs )
|
|
# 30637 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let x : (Parsetree.core_type) = Obj.magic x in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_x_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : (Parsetree.core_type list) = let xs =
|
|
# 931 "parsing/parser.mly"
|
|
( [ x ] )
|
|
# 30662 "parsing/parser.ml"
|
|
in
|
|
|
|
# 939 "parsing/parser.mly"
|
|
( xs )
|
|
# 30667 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_xs_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : (Parsetree.core_type list) = let xs =
|
|
# 935 "parsing/parser.mly"
|
|
( x :: xs )
|
|
# 30706 "parsing/parser.ml"
|
|
in
|
|
|
|
# 939 "parsing/parser.mly"
|
|
( xs )
|
|
# 30711 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_xs_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : (Parsetree.core_type list) =
|
|
# 962 "parsing/parser.mly"
|
|
( x :: xs )
|
|
# 30750 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = x2;
|
|
MenhirLib.EngineTypes.startp = _startpos_x2_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x1;
|
|
MenhirLib.EngineTypes.startp = _startpos_x1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_x1_ in
|
|
let _endpos = _endpos_x2_ in
|
|
let _v : (Parsetree.core_type list) =
|
|
# 966 "parsing/parser.mly"
|
|
( [ x2; x1 ] )
|
|
# 30789 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_xs_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : (Parsetree.expression list) =
|
|
# 962 "parsing/parser.mly"
|
|
( x :: xs )
|
|
# 30828 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = x2;
|
|
MenhirLib.EngineTypes.startp = _startpos_x2_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x1;
|
|
MenhirLib.EngineTypes.startp = _startpos_x1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_x1_ in
|
|
let _endpos = _endpos_x2_ in
|
|
let _v : (Parsetree.expression list) =
|
|
# 966 "parsing/parser.mly"
|
|
( [ x2; x1 ] )
|
|
# 30867 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_xs_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : (Parsetree.core_type list) =
|
|
# 962 "parsing/parser.mly"
|
|
( x :: xs )
|
|
# 30906 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = x2;
|
|
MenhirLib.EngineTypes.startp = _startpos_x2_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x1;
|
|
MenhirLib.EngineTypes.startp = _startpos_x1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_x1_ in
|
|
let _endpos = _endpos_x2_ in
|
|
let _v : (Parsetree.core_type list) =
|
|
# 966 "parsing/parser.mly"
|
|
( [ x2; x1 ] )
|
|
# 30945 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.row_field) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.row_field) =
|
|
# 3340 "parsing/parser.mly"
|
|
( _1 )
|
|
# 30970 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.core_type) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 3342 "parsing/parser.mly"
|
|
( Rf.inherit_ ~loc:(make_loc _sloc) _1 )
|
|
# 30998 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let x : (Parsetree.expression) = Obj.magic x in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_x_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : (Parsetree.expression list) = let _2 =
|
|
# 124 "<standard.mly>"
|
|
( None )
|
|
# 31023 "parsing/parser.ml"
|
|
in
|
|
|
|
# 983 "parsing/parser.mly"
|
|
( [x] )
|
|
# 31028 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = x_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( Some x )
|
|
# 31062 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 983 "parsing/parser.mly"
|
|
( [x] )
|
|
# 31068 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_x_ in
|
|
let _endpos = _endpos_xs_ in
|
|
let _v : (Parsetree.expression list) =
|
|
# 987 "parsing/parser.mly"
|
|
( x :: xs )
|
|
# 31107 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = oe;
|
|
MenhirLib.EngineTypes.startp = _startpos_oe_;
|
|
MenhirLib.EngineTypes.endp = _endpos_oe_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
} = _menhir_stack in
|
|
let oe : (Parsetree.expression option) = Obj.magic oe in
|
|
let _1 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 31135 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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 "<standard.mly>"
|
|
( None )
|
|
# 31143 "parsing/parser.ml"
|
|
in
|
|
let x =
|
|
let label =
|
|
let _1 =
|
|
# 3404 "parsing/parser.mly"
|
|
( _1 )
|
|
# 31150 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 31158 "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
|
|
|
|
# 2574 "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 )
|
|
# 31176 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 983 "parsing/parser.mly"
|
|
( [x] )
|
|
# 31182 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = oe;
|
|
MenhirLib.EngineTypes.startp = _startpos_oe_;
|
|
MenhirLib.EngineTypes.endp = _endpos_oe_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 31217 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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 "<standard.mly>"
|
|
( Some x )
|
|
# 31225 "parsing/parser.ml"
|
|
in
|
|
let x =
|
|
let label =
|
|
let _1 =
|
|
# 3404 "parsing/parser.mly"
|
|
( _1 )
|
|
# 31232 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 31240 "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
|
|
|
|
# 2574 "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 )
|
|
# 31258 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 983 "parsing/parser.mly"
|
|
( [x] )
|
|
# 31264 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = oe;
|
|
MenhirLib.EngineTypes.startp = _startpos_oe_;
|
|
MenhirLib.EngineTypes.endp = _endpos_oe_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 31306 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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 =
|
|
# 3404 "parsing/parser.mly"
|
|
( _1 )
|
|
# 31316 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 31324 "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
|
|
|
|
# 2574 "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 )
|
|
# 31342 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 987 "parsing/parser.mly"
|
|
( x :: xs )
|
|
# 31348 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let x : (Parsetree.pattern) = Obj.magic x in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_x_ in
|
|
let _endpos = _endpos_x_ in
|
|
let _v : (Parsetree.pattern list) = let _2 =
|
|
# 124 "<standard.mly>"
|
|
( None )
|
|
# 31373 "parsing/parser.ml"
|
|
in
|
|
|
|
# 983 "parsing/parser.mly"
|
|
( [x] )
|
|
# 31378 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = x_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( Some x )
|
|
# 31412 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 983 "parsing/parser.mly"
|
|
( [x] )
|
|
# 31418 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_x_ in
|
|
let _endpos = _endpos_xs_ in
|
|
let _v : (Parsetree.pattern list) =
|
|
# 987 "parsing/parser.mly"
|
|
( x :: xs )
|
|
# 31457 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = eo;
|
|
MenhirLib.EngineTypes.startp = _startpos_eo_;
|
|
MenhirLib.EngineTypes.endp = _endpos_eo_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = c;
|
|
MenhirLib.EngineTypes.startp = _startpos_c_;
|
|
MenhirLib.EngineTypes.endp = _endpos_c_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( None )
|
|
# 31496 "parsing/parser.ml"
|
|
in
|
|
let x =
|
|
let label =
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 31506 "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
|
|
|
|
# 2557 "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 )
|
|
# 31524 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 983 "parsing/parser.mly"
|
|
( [x] )
|
|
# 31530 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = x;
|
|
MenhirLib.EngineTypes.startp = _startpos_x_;
|
|
MenhirLib.EngineTypes.endp = _endpos_x_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = eo;
|
|
MenhirLib.EngineTypes.startp = _startpos_eo_;
|
|
MenhirLib.EngineTypes.endp = _endpos_eo_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = c;
|
|
MenhirLib.EngineTypes.startp = _startpos_c_;
|
|
MenhirLib.EngineTypes.endp = _endpos_c_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( Some x )
|
|
# 31576 "parsing/parser.ml"
|
|
in
|
|
let x =
|
|
let label =
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 31586 "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
|
|
|
|
# 2557 "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 )
|
|
# 31604 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 983 "parsing/parser.mly"
|
|
( [x] )
|
|
# 31610 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = eo;
|
|
MenhirLib.EngineTypes.startp = _startpos_eo_;
|
|
MenhirLib.EngineTypes.endp = _endpos_eo_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = c;
|
|
MenhirLib.EngineTypes.startp = _startpos_c_;
|
|
MenhirLib.EngineTypes.endp = _endpos_c_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 31668 "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
|
|
|
|
# 2557 "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 )
|
|
# 31686 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 987 "parsing/parser.mly"
|
|
( x :: xs )
|
|
# 31692 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.expression) =
|
|
# 2073 "parsing/parser.mly"
|
|
( _1 )
|
|
# 31717 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.expression) =
|
|
# 2074 "parsing/parser.mly"
|
|
( _1 )
|
|
# 31749 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.expression) = let _1 =
|
|
let _1 =
|
|
# 2076 "parsing/parser.mly"
|
|
( Pexp_sequence(_1, _3) )
|
|
# 31789 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 31798 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2077 "parsing/parser.mly"
|
|
( _1 )
|
|
# 31804 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2079 "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)) )
|
|
# 31862 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined4;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = args_res;
|
|
MenhirLib.EngineTypes.startp = _startpos_args_res_;
|
|
MenhirLib.EngineTypes.endp = _endpos_args_res_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 31931 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos_attrs_ = _endpos__1_inlined4_ in
|
|
let attrs2 =
|
|
let _1 = _1_inlined3 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 31940 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 31951 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 31959 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 3021 "parsing/parser.mly"
|
|
( let args, res = args_res in
|
|
let loc = make_loc _sloc in
|
|
let docs = symbol_docs _sloc in
|
|
Te.mk_exception ~attrs
|
|
(Te.decl id ~args ?res ~attrs:(attrs1 @ attrs2) ~loc ~docs)
|
|
, ext )
|
|
# 31973 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = xss;
|
|
MenhirLib.EngineTypes.startp = _startpos_xss_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xss_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let xss : (Parsetree.signature_item list list) = Obj.magic xss in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_xss_ in
|
|
let _endpos = _endpos_xss_ in
|
|
let _v : (Parsetree.signature) = let _1 =
|
|
let _1 =
|
|
# 260 "<standard.mly>"
|
|
( List.flatten xss )
|
|
# 31999 "parsing/parser.ml"
|
|
in
|
|
let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in
|
|
let _endpos = _endpos__1_ in
|
|
let _startpos = _startpos__1_ in
|
|
|
|
# 806 "parsing/parser.mly"
|
|
( extra_sig _startpos _endpos _1 )
|
|
# 32007 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1542 "parsing/parser.mly"
|
|
( _1 )
|
|
# 32013 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 32047 "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
|
|
|
|
# 1557 "parsing/parser.mly"
|
|
( let docs = symbol_docs _sloc in
|
|
mksig ~loc:_sloc (Psig_extension (_1, (add_docs_attrs docs _2))) )
|
|
# 32058 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.attribute) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.signature_item) = let _1 =
|
|
let _1 =
|
|
# 1561 "parsing/parser.mly"
|
|
( Psig_attribute _1 )
|
|
# 32084 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 854 "parsing/parser.mly"
|
|
( mksig ~loc:_sloc _1 )
|
|
# 32092 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1563 "parsing/parser.mly"
|
|
( _1 )
|
|
# 32098 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.signature_item) = let _1 =
|
|
let _1 =
|
|
# 1566 "parsing/parser.mly"
|
|
( psig_value _1 )
|
|
# 32124 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 871 "parsing/parser.mly"
|
|
( wrap_mksig_ext ~loc:_sloc _1 )
|
|
# 32132 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1596 "parsing/parser.mly"
|
|
( _1 )
|
|
# 32138 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.signature_item) = let _1 =
|
|
let _1 =
|
|
# 1568 "parsing/parser.mly"
|
|
( psig_value _1 )
|
|
# 32164 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 871 "parsing/parser.mly"
|
|
( wrap_mksig_ext ~loc:_sloc _1 )
|
|
# 32172 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1596 "parsing/parser.mly"
|
|
( _1 )
|
|
# 32178 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = bs;
|
|
MenhirLib.EngineTypes.startp = _startpos_bs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_bs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = a;
|
|
MenhirLib.EngineTypes.startp = _startpos_a_;
|
|
MenhirLib.EngineTypes.endp = _endpos_a_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 1044 "parsing/parser.mly"
|
|
( let (x, b) = a in x, b :: bs )
|
|
# 32215 "parsing/parser.ml"
|
|
in
|
|
|
|
# 2842 "parsing/parser.mly"
|
|
( _1 )
|
|
# 32220 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2825 "parsing/parser.mly"
|
|
( _1 )
|
|
# 32226 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1570 "parsing/parser.mly"
|
|
( psig_type _1 )
|
|
# 32232 "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
|
|
|
|
# 871 "parsing/parser.mly"
|
|
( wrap_mksig_ext ~loc:_sloc _1 )
|
|
# 32242 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1596 "parsing/parser.mly"
|
|
( _1 )
|
|
# 32248 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = bs;
|
|
MenhirLib.EngineTypes.startp = _startpos_bs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_bs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = a;
|
|
MenhirLib.EngineTypes.startp = _startpos_a_;
|
|
MenhirLib.EngineTypes.endp = _endpos_a_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 1044 "parsing/parser.mly"
|
|
( let (x, b) = a in x, b :: bs )
|
|
# 32285 "parsing/parser.ml"
|
|
in
|
|
|
|
# 2842 "parsing/parser.mly"
|
|
( _1 )
|
|
# 32290 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2830 "parsing/parser.mly"
|
|
( _1 )
|
|
# 32296 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1572 "parsing/parser.mly"
|
|
( psig_typesubst _1 )
|
|
# 32302 "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
|
|
|
|
# 871 "parsing/parser.mly"
|
|
( wrap_mksig_ext ~loc:_sloc _1 )
|
|
# 32312 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1596 "parsing/parser.mly"
|
|
( _1 )
|
|
# 32318 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = priv;
|
|
MenhirLib.EngineTypes.startp = _startpos_priv_;
|
|
MenhirLib.EngineTypes.endp = _endpos_priv_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = params;
|
|
MenhirLib.EngineTypes.startp = _startpos_params_;
|
|
MenhirLib.EngineTypes.endp = _endpos_params_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 32405 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos_attrs2_ = _endpos__1_inlined3_ in
|
|
let cs =
|
|
# 1036 "parsing/parser.mly"
|
|
( List.rev xs )
|
|
# 32412 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 32422 "parsing/parser.ml"
|
|
|
|
in
|
|
let _4 =
|
|
# 3585 "parsing/parser.mly"
|
|
( Recursive )
|
|
# 32428 "parsing/parser.ml"
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 32435 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 3090 "parsing/parser.mly"
|
|
( let docs = symbol_docs _sloc in
|
|
let attrs = attrs1 @ attrs2 in
|
|
Te.mk tid cs ~params ~priv ~attrs ~docs,
|
|
ext )
|
|
# 32447 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3077 "parsing/parser.mly"
|
|
( _1 )
|
|
# 32453 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1574 "parsing/parser.mly"
|
|
( psig_typext _1 )
|
|
# 32459 "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
|
|
|
|
# 871 "parsing/parser.mly"
|
|
( wrap_mksig_ext ~loc:_sloc _1 )
|
|
# 32469 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1596 "parsing/parser.mly"
|
|
( _1 )
|
|
# 32475 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined4;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = priv;
|
|
MenhirLib.EngineTypes.startp = _startpos_priv_;
|
|
MenhirLib.EngineTypes.endp = _endpos_priv_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = params;
|
|
MenhirLib.EngineTypes.startp = _startpos_params_;
|
|
MenhirLib.EngineTypes.endp = _endpos_params_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 32569 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos_attrs2_ = _endpos__1_inlined4_ in
|
|
let cs =
|
|
# 1036 "parsing/parser.mly"
|
|
( List.rev xs )
|
|
# 32576 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 32586 "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
|
|
|
|
# 3586 "parsing/parser.mly"
|
|
( not_expecting _loc "nonrec flag" )
|
|
# 32597 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 32605 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 3090 "parsing/parser.mly"
|
|
( let docs = symbol_docs _sloc in
|
|
let attrs = attrs1 @ attrs2 in
|
|
Te.mk tid cs ~params ~priv ~attrs ~docs,
|
|
ext )
|
|
# 32617 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3077 "parsing/parser.mly"
|
|
( _1 )
|
|
# 32623 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1574 "parsing/parser.mly"
|
|
( psig_typext _1 )
|
|
# 32629 "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
|
|
|
|
# 871 "parsing/parser.mly"
|
|
( wrap_mksig_ext ~loc:_sloc _1 )
|
|
# 32639 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1596 "parsing/parser.mly"
|
|
( _1 )
|
|
# 32645 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.signature_item) = let _1 =
|
|
let _1 =
|
|
# 1576 "parsing/parser.mly"
|
|
( psig_exception _1 )
|
|
# 32671 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 871 "parsing/parser.mly"
|
|
( wrap_mksig_ext ~loc:_sloc _1 )
|
|
# 32679 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1596 "parsing/parser.mly"
|
|
( _1 )
|
|
# 32685 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = body;
|
|
MenhirLib.EngineTypes.startp = _startpos_body_;
|
|
MenhirLib.EngineTypes.endp = _endpos_body_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 32750 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 32762 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 32770 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1605 "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
|
|
)
|
|
# 32784 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1578 "parsing/parser.mly"
|
|
( let (body, ext) = _1 in (Psig_module body, ext) )
|
|
# 32790 "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
|
|
|
|
# 871 "parsing/parser.mly"
|
|
( wrap_mksig_ext ~loc:_sloc _1 )
|
|
# 32800 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1596 "parsing/parser.mly"
|
|
( _1 )
|
|
# 32806 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined4;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 32878 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 32891 "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
|
|
|
|
# 1641 "parsing/parser.mly"
|
|
( Mty.alias ~loc:(make_loc _sloc) id )
|
|
# 32901 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 32912 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 32920 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1632 "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
|
|
)
|
|
# 32934 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1580 "parsing/parser.mly"
|
|
( let (body, ext) = _1 in (Psig_module body, ext) )
|
|
# 32940 "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
|
|
|
|
# 871 "parsing/parser.mly"
|
|
( wrap_mksig_ext ~loc:_sloc _1 )
|
|
# 32950 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1596 "parsing/parser.mly"
|
|
( _1 )
|
|
# 32956 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.signature_item) = let _1 =
|
|
let _1 =
|
|
# 1582 "parsing/parser.mly"
|
|
( let (body, ext) = _1 in (Psig_modsubst body, ext) )
|
|
# 32982 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 871 "parsing/parser.mly"
|
|
( wrap_mksig_ext ~loc:_sloc _1 )
|
|
# 32990 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1596 "parsing/parser.mly"
|
|
( _1 )
|
|
# 32996 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = bs;
|
|
MenhirLib.EngineTypes.startp = _startpos_bs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_bs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = mty;
|
|
MenhirLib.EngineTypes.startp = _startpos_mty_;
|
|
MenhirLib.EngineTypes.endp = _endpos_mty_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 33084 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 33096 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 33104 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1675 "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
|
|
)
|
|
# 33118 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1044 "parsing/parser.mly"
|
|
( let (x, b) = a in x, b :: bs )
|
|
# 33124 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1664 "parsing/parser.mly"
|
|
( _1 )
|
|
# 33130 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1584 "parsing/parser.mly"
|
|
( let (ext, l) = _1 in (Psig_recmodule l, ext) )
|
|
# 33136 "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
|
|
|
|
# 871 "parsing/parser.mly"
|
|
( wrap_mksig_ext ~loc:_sloc _1 )
|
|
# 33146 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1596 "parsing/parser.mly"
|
|
( _1 )
|
|
# 33152 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.signature_item) = let _1 =
|
|
let _1 =
|
|
# 1586 "parsing/parser.mly"
|
|
( let (body, ext) = _1 in (Psig_modtype body, ext) )
|
|
# 33178 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 871 "parsing/parser.mly"
|
|
( wrap_mksig_ext ~loc:_sloc _1 )
|
|
# 33186 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1596 "parsing/parser.mly"
|
|
( _1 )
|
|
# 33192 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.signature_item) = let _1 =
|
|
let _1 =
|
|
# 1588 "parsing/parser.mly"
|
|
( let (body, ext) = _1 in (Psig_open body, ext) )
|
|
# 33218 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 871 "parsing/parser.mly"
|
|
( wrap_mksig_ext ~loc:_sloc _1 )
|
|
# 33226 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1596 "parsing/parser.mly"
|
|
( _1 )
|
|
# 33232 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = thing;
|
|
MenhirLib.EngineTypes.startp = _startpos_thing_;
|
|
MenhirLib.EngineTypes.endp = _endpos_thing_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 33290 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos_attrs2_ = _endpos__1_inlined2_ in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 33299 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1434 "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
|
|
)
|
|
# 33313 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1590 "parsing/parser.mly"
|
|
( psig_include _1 )
|
|
# 33319 "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
|
|
|
|
# 871 "parsing/parser.mly"
|
|
( wrap_mksig_ext ~loc:_sloc _1 )
|
|
# 33329 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1596 "parsing/parser.mly"
|
|
( _1 )
|
|
# 33335 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = bs;
|
|
MenhirLib.EngineTypes.startp = _startpos_bs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_bs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = cty;
|
|
MenhirLib.EngineTypes.startp = _startpos_cty_;
|
|
MenhirLib.EngineTypes.endp = _endpos_cty_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = params;
|
|
MenhirLib.EngineTypes.startp = _startpos_params_;
|
|
MenhirLib.EngineTypes.endp = _endpos_params_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = virt;
|
|
MenhirLib.EngineTypes.startp = _startpos_virt_;
|
|
MenhirLib.EngineTypes.endp = _endpos_virt_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 33414 "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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 33434 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 33446 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 33454 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2005 "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
|
|
)
|
|
# 33469 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1044 "parsing/parser.mly"
|
|
( let (x, b) = a in x, b :: bs )
|
|
# 33475 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1993 "parsing/parser.mly"
|
|
( _1 )
|
|
# 33481 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1592 "parsing/parser.mly"
|
|
( let (ext, l) = _1 in (Psig_class l, ext) )
|
|
# 33487 "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
|
|
|
|
# 871 "parsing/parser.mly"
|
|
( wrap_mksig_ext ~loc:_sloc _1 )
|
|
# 33497 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1596 "parsing/parser.mly"
|
|
( _1 )
|
|
# 33503 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.signature_item) = let _1 =
|
|
let _1 =
|
|
# 1594 "parsing/parser.mly"
|
|
( let (ext, l) = _1 in (Psig_class_type l, ext) )
|
|
# 33529 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 871 "parsing/parser.mly"
|
|
( wrap_mksig_ext ~loc:_sloc _1 )
|
|
# 33537 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1596 "parsing/parser.mly"
|
|
( _1 )
|
|
# 33543 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.constant) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.constant) =
|
|
# 3416 "parsing/parser.mly"
|
|
( _1 )
|
|
# 33568 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
} = _menhir_stack in
|
|
let _2 : (
|
|
# 633 "parsing/parser.mly"
|
|
(string * char option)
|
|
# 33595 "parsing/parser.ml"
|
|
) = Obj.magic _2 in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.constant) =
|
|
# 3417 "parsing/parser.mly"
|
|
( let (n, m) = _2 in Pconst_integer("-" ^ n, m) )
|
|
# 33604 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
} = _menhir_stack in
|
|
let _2 : (
|
|
# 612 "parsing/parser.mly"
|
|
(string * char option)
|
|
# 33631 "parsing/parser.ml"
|
|
) = Obj.magic _2 in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.constant) =
|
|
# 3418 "parsing/parser.mly"
|
|
( let (f, m) = _2 in Pconst_float("-" ^ f, m) )
|
|
# 33640 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
} = _menhir_stack in
|
|
let _2 : (
|
|
# 633 "parsing/parser.mly"
|
|
(string * char option)
|
|
# 33667 "parsing/parser.ml"
|
|
) = Obj.magic _2 in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.constant) =
|
|
# 3419 "parsing/parser.mly"
|
|
( let (n, m) = _2 in Pconst_integer (n, m) )
|
|
# 33676 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
} = _menhir_stack in
|
|
let _2 : (
|
|
# 612 "parsing/parser.mly"
|
|
(string * char option)
|
|
# 33703 "parsing/parser.ml"
|
|
) = Obj.magic _2 in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.constant) =
|
|
# 3420 "parsing/parser.mly"
|
|
( let (f, m) = _2 in Pconst_float(f, m) )
|
|
# 33712 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2757 "parsing/parser.mly"
|
|
( let fields, closed = _1 in
|
|
let closed = match closed with Some () -> Open | None -> Closed in
|
|
fields, closed )
|
|
# 33757 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2728 "parsing/parser.mly"
|
|
( let (fields, closed) = _2 in
|
|
Ppat_record(fields, closed) )
|
|
# 33764 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 33774 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 33780 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2757 "parsing/parser.mly"
|
|
( let fields, closed = _1 in
|
|
let closed = match closed with Some () -> Open | None -> Closed in
|
|
fields, closed )
|
|
# 33825 "parsing/parser.ml"
|
|
|
|
in
|
|
let _loc__3_ = (_startpos__3_, _endpos__3_) in
|
|
let _loc__1_ = (_startpos__1_, _endpos__1_) in
|
|
|
|
# 2731 "parsing/parser.mly"
|
|
( unclosed "{" _loc__1_ "}" _loc__3_ )
|
|
# 33833 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 33843 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 33849 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ps;
|
|
MenhirLib.EngineTypes.startp = _startpos_ps_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ps_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.pattern) = let _1 =
|
|
let _1 =
|
|
let _2 =
|
|
# 2751 "parsing/parser.mly"
|
|
( ps )
|
|
# 33890 "parsing/parser.ml"
|
|
in
|
|
let _loc__3_ = (_startpos__3_, _endpos__3_) in
|
|
|
|
# 2733 "parsing/parser.mly"
|
|
( fst (mktailpat _loc__3_ _2) )
|
|
# 33896 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 33906 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 33912 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ps;
|
|
MenhirLib.EngineTypes.startp = _startpos_ps_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ps_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.pattern) = let _1 =
|
|
let _1 =
|
|
let _2 =
|
|
# 2751 "parsing/parser.mly"
|
|
( ps )
|
|
# 33953 "parsing/parser.ml"
|
|
in
|
|
let _loc__3_ = (_startpos__3_, _endpos__3_) in
|
|
let _loc__1_ = (_startpos__1_, _endpos__1_) in
|
|
|
|
# 2735 "parsing/parser.mly"
|
|
( unclosed "[" _loc__1_ "]" _loc__3_ )
|
|
# 33960 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 33970 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 33976 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ps;
|
|
MenhirLib.EngineTypes.startp = _startpos_ps_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ps_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.pattern) = let _1 =
|
|
let _1 =
|
|
let _2 =
|
|
# 2751 "parsing/parser.mly"
|
|
( ps )
|
|
# 34017 "parsing/parser.ml"
|
|
in
|
|
|
|
# 2737 "parsing/parser.mly"
|
|
( Ppat_array _2 )
|
|
# 34022 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 34032 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 34038 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.pattern) = let _1 =
|
|
let _1 =
|
|
# 2739 "parsing/parser.mly"
|
|
( Ppat_array [] )
|
|
# 34071 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 34080 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 34086 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ps;
|
|
MenhirLib.EngineTypes.startp = _startpos_ps_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ps_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.pattern) = let _1 =
|
|
let _1 =
|
|
let _2 =
|
|
# 2751 "parsing/parser.mly"
|
|
( ps )
|
|
# 34127 "parsing/parser.ml"
|
|
in
|
|
let _loc__3_ = (_startpos__3_, _endpos__3_) in
|
|
let _loc__1_ = (_startpos__1_, _endpos__1_) in
|
|
|
|
# 2741 "parsing/parser.mly"
|
|
( unclosed "[|" _loc__1_ "|]" _loc__3_ )
|
|
# 34134 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 34144 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 34150 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2240 "parsing/parser.mly"
|
|
( reloc_exp ~loc:_sloc _2 )
|
|
# 34192 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2242 "parsing/parser.mly"
|
|
( unclosed "(" _loc__1_ ")" _loc__3_ )
|
|
# 34233 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2244 "parsing/parser.mly"
|
|
( mkexp_constraint ~loc:_sloc _2 _3 )
|
|
# 34282 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 2246 "parsing/parser.mly"
|
|
( array_get ~loc:_sloc _1 _4 )
|
|
# 34338 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__5_ in
|
|
let _v : (Parsetree.expression) = let _loc__5_ = (_startpos__5_, _endpos__5_) in
|
|
let _loc__3_ = (_startpos__3_, _endpos__3_) in
|
|
|
|
# 2248 "parsing/parser.mly"
|
|
( unclosed "(" _loc__3_ ")" _loc__5_ )
|
|
# 34393 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 2250 "parsing/parser.mly"
|
|
( string_get ~loc:_sloc _1 _4 )
|
|
# 34449 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__5_ in
|
|
let _v : (Parsetree.expression) = let _loc__5_ = (_startpos__5_, _endpos__5_) in
|
|
let _loc__3_ = (_startpos__3_, _endpos__3_) in
|
|
|
|
# 2252 "parsing/parser.mly"
|
|
( unclosed "[" _loc__3_ "]" _loc__5_ )
|
|
# 34504 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = es;
|
|
MenhirLib.EngineTypes.startp = _startpos_es_;
|
|
MenhirLib.EngineTypes.endp = _endpos_es_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 628 "parsing/parser.mly"
|
|
(string)
|
|
# 34552 "parsing/parser.ml"
|
|
) = Obj.magic _2 in
|
|
let _1 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__5_ in
|
|
let _v : (Parsetree.expression) = let _4 =
|
|
# 2586 "parsing/parser.mly"
|
|
( es )
|
|
# 34561 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__5_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2254 "parsing/parser.mly"
|
|
( dotop_get ~loc:_sloc lident bracket _2 _1 _4 )
|
|
# 34569 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = es;
|
|
MenhirLib.EngineTypes.startp = _startpos_es_;
|
|
MenhirLib.EngineTypes.endp = _endpos_es_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 628 "parsing/parser.mly"
|
|
(string)
|
|
# 34617 "parsing/parser.ml"
|
|
) = Obj.magic _2 in
|
|
let _1 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__5_ in
|
|
let _v : (Parsetree.expression) = let _4 =
|
|
# 2586 "parsing/parser.mly"
|
|
( es )
|
|
# 34626 "parsing/parser.ml"
|
|
in
|
|
let _loc__5_ = (_startpos__5_, _endpos__5_) in
|
|
let _loc__3_ = (_startpos__3_, _endpos__3_) in
|
|
|
|
# 2256 "parsing/parser.mly"
|
|
( unclosed "[" _loc__3_ "]" _loc__5_ )
|
|
# 34633 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = es;
|
|
MenhirLib.EngineTypes.startp = _startpos_es_;
|
|
MenhirLib.EngineTypes.endp = _endpos_es_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 628 "parsing/parser.mly"
|
|
(string)
|
|
# 34681 "parsing/parser.ml"
|
|
) = Obj.magic _2 in
|
|
let _1 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__5_ in
|
|
let _v : (Parsetree.expression) = let _4 =
|
|
# 2586 "parsing/parser.mly"
|
|
( es )
|
|
# 34690 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__5_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2258 "parsing/parser.mly"
|
|
( dotop_get ~loc:_sloc lident paren _2 _1 _4 )
|
|
# 34698 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = es;
|
|
MenhirLib.EngineTypes.startp = _startpos_es_;
|
|
MenhirLib.EngineTypes.endp = _endpos_es_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 628 "parsing/parser.mly"
|
|
(string)
|
|
# 34746 "parsing/parser.ml"
|
|
) = Obj.magic _2 in
|
|
let _1 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__5_ in
|
|
let _v : (Parsetree.expression) = let _4 =
|
|
# 2586 "parsing/parser.mly"
|
|
( es )
|
|
# 34755 "parsing/parser.ml"
|
|
in
|
|
let _loc__5_ = (_startpos__5_, _endpos__5_) in
|
|
let _loc__3_ = (_startpos__3_, _endpos__3_) in
|
|
|
|
# 2260 "parsing/parser.mly"
|
|
( unclosed "(" _loc__3_ ")" _loc__5_ )
|
|
# 34762 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = es;
|
|
MenhirLib.EngineTypes.startp = _startpos_es_;
|
|
MenhirLib.EngineTypes.endp = _endpos_es_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 628 "parsing/parser.mly"
|
|
(string)
|
|
# 34810 "parsing/parser.ml"
|
|
) = Obj.magic _2 in
|
|
let _1 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__5_ in
|
|
let _v : (Parsetree.expression) = let _4 =
|
|
# 2586 "parsing/parser.mly"
|
|
( es )
|
|
# 34819 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__5_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2262 "parsing/parser.mly"
|
|
( dotop_get ~loc:_sloc lident brace _2 _1 _4 )
|
|
# 34827 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 628 "parsing/parser.mly"
|
|
(string)
|
|
# 34875 "parsing/parser.ml"
|
|
) = Obj.magic _2 in
|
|
let _1 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__5_ in
|
|
let _v : (Parsetree.expression) = let _loc__5_ = (_startpos__5_, _endpos__5_) in
|
|
let _loc__3_ = (_startpos__3_, _endpos__3_) in
|
|
|
|
# 2264 "parsing/parser.mly"
|
|
( unclosed "{" _loc__3_ "}" _loc__5_ )
|
|
# 34886 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = es;
|
|
MenhirLib.EngineTypes.startp = _startpos_es_;
|
|
MenhirLib.EngineTypes.endp = _endpos_es_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _7 : unit = Obj.magic _7 in
|
|
let es : (Parsetree.expression list) = Obj.magic es in
|
|
let _5 : unit = Obj.magic _5 in
|
|
let _4 : (
|
|
# 628 "parsing/parser.mly"
|
|
(string)
|
|
# 34946 "parsing/parser.ml"
|
|
) = Obj.magic _4 in
|
|
let _3 : (Longident.t) = Obj.magic _3 in
|
|
let _2 : unit = Obj.magic _2 in
|
|
let _1 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__7_ in
|
|
let _v : (Parsetree.expression) = let _6 =
|
|
# 2586 "parsing/parser.mly"
|
|
( es )
|
|
# 34957 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__7_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2266 "parsing/parser.mly"
|
|
( dotop_get ~loc:_sloc (ldot _3) bracket _4 _1 _6 )
|
|
# 34965 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = es;
|
|
MenhirLib.EngineTypes.startp = _startpos_es_;
|
|
MenhirLib.EngineTypes.endp = _endpos_es_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _7 : unit = Obj.magic _7 in
|
|
let es : (Parsetree.expression list) = Obj.magic es in
|
|
let _5 : unit = Obj.magic _5 in
|
|
let _4 : (
|
|
# 628 "parsing/parser.mly"
|
|
(string)
|
|
# 35025 "parsing/parser.ml"
|
|
) = Obj.magic _4 in
|
|
let _3 : (Longident.t) = Obj.magic _3 in
|
|
let _2 : unit = Obj.magic _2 in
|
|
let _1 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__7_ in
|
|
let _v : (Parsetree.expression) = let _6 =
|
|
# 2586 "parsing/parser.mly"
|
|
( es )
|
|
# 35036 "parsing/parser.ml"
|
|
in
|
|
let _loc__7_ = (_startpos__7_, _endpos__7_) in
|
|
let _loc__5_ = (_startpos__5_, _endpos__5_) in
|
|
|
|
# 2269 "parsing/parser.mly"
|
|
( unclosed "[" _loc__5_ "]" _loc__7_ )
|
|
# 35043 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = es;
|
|
MenhirLib.EngineTypes.startp = _startpos_es_;
|
|
MenhirLib.EngineTypes.endp = _endpos_es_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _7 : unit = Obj.magic _7 in
|
|
let es : (Parsetree.expression list) = Obj.magic es in
|
|
let _5 : unit = Obj.magic _5 in
|
|
let _4 : (
|
|
# 628 "parsing/parser.mly"
|
|
(string)
|
|
# 35103 "parsing/parser.ml"
|
|
) = Obj.magic _4 in
|
|
let _3 : (Longident.t) = Obj.magic _3 in
|
|
let _2 : unit = Obj.magic _2 in
|
|
let _1 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__7_ in
|
|
let _v : (Parsetree.expression) = let _6 =
|
|
# 2586 "parsing/parser.mly"
|
|
( es )
|
|
# 35114 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__7_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2271 "parsing/parser.mly"
|
|
( dotop_get ~loc:_sloc (ldot _3) paren _4 _1 _6 )
|
|
# 35122 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = es;
|
|
MenhirLib.EngineTypes.startp = _startpos_es_;
|
|
MenhirLib.EngineTypes.endp = _endpos_es_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _7 : unit = Obj.magic _7 in
|
|
let es : (Parsetree.expression list) = Obj.magic es in
|
|
let _5 : unit = Obj.magic _5 in
|
|
let _4 : (
|
|
# 628 "parsing/parser.mly"
|
|
(string)
|
|
# 35182 "parsing/parser.ml"
|
|
) = Obj.magic _4 in
|
|
let _3 : (Longident.t) = Obj.magic _3 in
|
|
let _2 : unit = Obj.magic _2 in
|
|
let _1 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__7_ in
|
|
let _v : (Parsetree.expression) = let _6 =
|
|
# 2586 "parsing/parser.mly"
|
|
( es )
|
|
# 35193 "parsing/parser.ml"
|
|
in
|
|
let _loc__7_ = (_startpos__7_, _endpos__7_) in
|
|
let _loc__5_ = (_startpos__5_, _endpos__5_) in
|
|
|
|
# 2274 "parsing/parser.mly"
|
|
( unclosed "(" _loc__5_ ")" _loc__7_ )
|
|
# 35200 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = es;
|
|
MenhirLib.EngineTypes.startp = _startpos_es_;
|
|
MenhirLib.EngineTypes.endp = _endpos_es_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _7 : unit = Obj.magic _7 in
|
|
let es : (Parsetree.expression list) = Obj.magic es in
|
|
let _5 : unit = Obj.magic _5 in
|
|
let _4 : (
|
|
# 628 "parsing/parser.mly"
|
|
(string)
|
|
# 35260 "parsing/parser.ml"
|
|
) = Obj.magic _4 in
|
|
let _3 : (Longident.t) = Obj.magic _3 in
|
|
let _2 : unit = Obj.magic _2 in
|
|
let _1 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__7_ in
|
|
let _v : (Parsetree.expression) = let _6 =
|
|
# 2586 "parsing/parser.mly"
|
|
( es )
|
|
# 35271 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__7_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2276 "parsing/parser.mly"
|
|
( dotop_get ~loc:_sloc (ldot _3) brace _4 _1 _6 )
|
|
# 35279 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = es;
|
|
MenhirLib.EngineTypes.startp = _startpos_es_;
|
|
MenhirLib.EngineTypes.endp = _endpos_es_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _7 : unit = Obj.magic _7 in
|
|
let es : (Parsetree.expression list) = Obj.magic es in
|
|
let _5 : unit = Obj.magic _5 in
|
|
let _4 : (
|
|
# 628 "parsing/parser.mly"
|
|
(string)
|
|
# 35339 "parsing/parser.ml"
|
|
) = Obj.magic _4 in
|
|
let _3 : (Longident.t) = Obj.magic _3 in
|
|
let _2 : unit = Obj.magic _2 in
|
|
let _1 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__7_ in
|
|
let _v : (Parsetree.expression) = let _6 =
|
|
# 2586 "parsing/parser.mly"
|
|
( es )
|
|
# 35350 "parsing/parser.ml"
|
|
in
|
|
let _loc__7_ = (_startpos__7_, _endpos__7_) in
|
|
let _loc__5_ = (_startpos__5_, _endpos__5_) in
|
|
|
|
# 2279 "parsing/parser.mly"
|
|
( unclosed "{" _loc__5_ "}" _loc__7_ )
|
|
# 35357 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 2281 "parsing/parser.mly"
|
|
( bigarray_get ~loc:_sloc _1 _4 )
|
|
# 35413 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__5_ in
|
|
let _v : (Parsetree.expression) = let _loc__5_ = (_startpos__5_, _endpos__5_) in
|
|
let _loc__3_ = (_startpos__3_, _endpos__3_) in
|
|
|
|
# 2283 "parsing/parser.mly"
|
|
( unclosed "{" _loc__3_ "}" _loc__5_ )
|
|
# 35468 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = e;
|
|
MenhirLib.EngineTypes.startp = _startpos_e_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 35524 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2292 "parsing/parser.mly"
|
|
( e.pexp_desc, (ext, attrs @ e.pexp_attributes) )
|
|
# 35530 "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
|
|
|
|
# 2285 "parsing/parser.mly"
|
|
( let desc, attrs = _1 in
|
|
mkexp_attrs ~loc:_sloc desc attrs )
|
|
# 35541 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 35592 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 35598 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__3_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2294 "parsing/parser.mly"
|
|
( Pexp_construct (mkloc (Lident "()") (make_loc _sloc), None), _2 )
|
|
# 35607 "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
|
|
|
|
# 2285 "parsing/parser.mly"
|
|
( let desc, attrs = _1 in
|
|
mkexp_attrs ~loc:_sloc desc attrs )
|
|
# 35618 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 35676 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 35682 "parsing/parser.ml"
|
|
|
|
in
|
|
let _loc__4_ = (_startpos__4_, _endpos__4_) in
|
|
let _loc__1_ = (_startpos__1_, _endpos__1_) in
|
|
|
|
# 2296 "parsing/parser.mly"
|
|
( unclosed "begin" _loc__1_ "end" _loc__4_ )
|
|
# 35690 "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
|
|
|
|
# 2285 "parsing/parser.mly"
|
|
( let desc, attrs = _1 in
|
|
mkexp_attrs ~loc:_sloc desc attrs )
|
|
# 35701 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 35753 "parsing/parser.ml"
|
|
|
|
in
|
|
let _2 =
|
|
let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 35763 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 35769 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2298 "parsing/parser.mly"
|
|
( Pexp_new(_3), _2 )
|
|
# 35775 "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
|
|
|
|
# 2285 "parsing/parser.mly"
|
|
( let desc, attrs = _1 in
|
|
mkexp_attrs ~loc:_sloc desc attrs )
|
|
# 35786 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 35851 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 35857 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2300 "parsing/parser.mly"
|
|
( Pexp_pack _4, _3 )
|
|
# 35863 "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
|
|
|
|
# 2285 "parsing/parser.mly"
|
|
( let desc, attrs = _1 in
|
|
mkexp_attrs ~loc:_sloc desc attrs )
|
|
# 35874 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3330 "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 )
|
|
# 35956 "parsing/parser.ml"
|
|
|
|
in
|
|
let _3 =
|
|
let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 35966 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 35972 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__7_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2302 "parsing/parser.mly"
|
|
( Pexp_constraint (ghexp ~loc:_sloc (Pexp_pack _4), _6), _3 )
|
|
# 35981 "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
|
|
|
|
# 2285 "parsing/parser.mly"
|
|
( let desc, attrs = _1 in
|
|
mkexp_attrs ~loc:_sloc desc attrs )
|
|
# 35992 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 36064 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 36070 "parsing/parser.ml"
|
|
|
|
in
|
|
let _loc__6_ = (_startpos__6_, _endpos__6_) in
|
|
let _loc__1_ = (_startpos__1_, _endpos__1_) in
|
|
|
|
# 2304 "parsing/parser.mly"
|
|
( unclosed "(" _loc__1_ ")" _loc__6_ )
|
|
# 36078 "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
|
|
|
|
# 2285 "parsing/parser.mly"
|
|
( let desc, attrs = _1 in
|
|
mkexp_attrs ~loc:_sloc desc attrs )
|
|
# 36089 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Longident.t) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 36120 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2308 "parsing/parser.mly"
|
|
( Pexp_ident (_1) )
|
|
# 36126 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 36135 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 36141 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.constant) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.expression) = let _1 =
|
|
let _1 =
|
|
# 2310 "parsing/parser.mly"
|
|
( Pexp_constant _1 )
|
|
# 36167 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 36175 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 36181 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Longident.t) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 36212 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2312 "parsing/parser.mly"
|
|
( Pexp_construct(_1, None) )
|
|
# 36218 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 36227 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 36233 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Asttypes.label) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.expression) = let _1 =
|
|
let _1 =
|
|
# 2314 "parsing/parser.mly"
|
|
( Pexp_variant(_1, None) )
|
|
# 36259 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 36267 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 36273 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
} = _menhir_stack in
|
|
let _2 : (Parsetree.expression) = Obj.magic _2 in
|
|
let _1 : (
|
|
# 671 "parsing/parser.mly"
|
|
(string)
|
|
# 36301 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 840 "parsing/parser.mly"
|
|
( mkoperator ~loc:_sloc _1 )
|
|
# 36315 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2316 "parsing/parser.mly"
|
|
( Pexp_apply(_1, [Nolabel,_2]) )
|
|
# 36321 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 36331 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 36337 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 2317 "parsing/parser.mly"
|
|
("!")
|
|
# 36372 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 840 "parsing/parser.mly"
|
|
( mkoperator ~loc:_sloc _1 )
|
|
# 36380 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2318 "parsing/parser.mly"
|
|
( Pexp_apply(_1, [Nolabel,_2]) )
|
|
# 36386 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 36396 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 36402 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.expression) = let _1 =
|
|
let _1 =
|
|
let _2 =
|
|
# 2569 "parsing/parser.mly"
|
|
( xs )
|
|
# 36443 "parsing/parser.ml"
|
|
in
|
|
|
|
# 2320 "parsing/parser.mly"
|
|
( Pexp_override _2 )
|
|
# 36448 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 36458 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 36464 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.expression) = let _1 =
|
|
let _1 =
|
|
let _2 =
|
|
# 2569 "parsing/parser.mly"
|
|
( xs )
|
|
# 36505 "parsing/parser.ml"
|
|
in
|
|
let _loc__3_ = (_startpos__3_, _endpos__3_) in
|
|
let _loc__1_ = (_startpos__1_, _endpos__1_) in
|
|
|
|
# 2322 "parsing/parser.mly"
|
|
( unclosed "{<" _loc__1_ ">}" _loc__3_ )
|
|
# 36512 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 36522 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 36528 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.expression) = let _1 =
|
|
let _1 =
|
|
# 2324 "parsing/parser.mly"
|
|
( Pexp_override [] )
|
|
# 36561 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 36570 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 36576 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 36622 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2326 "parsing/parser.mly"
|
|
( Pexp_field(_1, _3) )
|
|
# 36628 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 36638 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 36644 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 36704 "parsing/parser.ml"
|
|
|
|
in
|
|
let _loc__1_ = (_startpos__1_, _endpos__1_) in
|
|
|
|
# 1493 "parsing/parser.mly"
|
|
( let loc = make_loc _loc__1_ in
|
|
let me = Mod.ident ~loc _1 in
|
|
Opn.mk ~loc me )
|
|
# 36713 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2328 "parsing/parser.mly"
|
|
( Pexp_open(od, _4) )
|
|
# 36719 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 36729 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 36735 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__5_ in
|
|
let _v : (Parsetree.expression) = let _1 =
|
|
let _1 =
|
|
let _4 =
|
|
# 2569 "parsing/parser.mly"
|
|
( xs )
|
|
# 36790 "parsing/parser.ml"
|
|
in
|
|
let od =
|
|
let _1 =
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 36800 "parsing/parser.ml"
|
|
|
|
in
|
|
let _loc__1_ = (_startpos__1_, _endpos__1_) in
|
|
|
|
# 1493 "parsing/parser.mly"
|
|
( let loc = make_loc _loc__1_ in
|
|
let me = Mod.ident ~loc _1 in
|
|
Opn.mk ~loc me )
|
|
# 36809 "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
|
|
|
|
# 2330 "parsing/parser.mly"
|
|
( (* TODO: review the location of Pexp_override *)
|
|
Pexp_open(od, mkexp ~loc:_sloc (Pexp_override _4)) )
|
|
# 36820 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 36830 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 36836 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__5_ in
|
|
let _v : (Parsetree.expression) = let _1 =
|
|
let _1 =
|
|
let _4 =
|
|
# 2569 "parsing/parser.mly"
|
|
( xs )
|
|
# 36891 "parsing/parser.ml"
|
|
in
|
|
let _loc__5_ = (_startpos__5_, _endpos__5_) in
|
|
let _loc__3_ = (_startpos__3_, _endpos__3_) in
|
|
|
|
# 2333 "parsing/parser.mly"
|
|
( unclosed "{<" _loc__3_ ">}" _loc__5_ )
|
|
# 36898 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 36908 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 36914 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _1_inlined1 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 36947 "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.MenhirLib.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 =
|
|
# 3404 "parsing/parser.mly"
|
|
( _1 )
|
|
# 36961 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 36969 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2335 "parsing/parser.mly"
|
|
( Pexp_send(_1, _3) )
|
|
# 36975 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 36985 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 36991 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _3 : (Parsetree.expression) = Obj.magic _3 in
|
|
let _1_inlined1 : (
|
|
# 682 "parsing/parser.mly"
|
|
(string)
|
|
# 37025 "parsing/parser.ml"
|
|
) = Obj.magic _1_inlined1 in
|
|
let _1 : (Parsetree.expression) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 840 "parsing/parser.mly"
|
|
( mkoperator ~loc:_sloc _1 )
|
|
# 37041 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2337 "parsing/parser.mly"
|
|
( mkinfix _1 _2 _3 )
|
|
# 37047 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 37057 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 37063 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.extension) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.expression) = let _1 =
|
|
let _1 =
|
|
# 2339 "parsing/parser.mly"
|
|
( Pexp_extension _1 )
|
|
# 37089 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 37097 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 37103 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 2340 "parsing/parser.mly"
|
|
(Lident "()")
|
|
# 37153 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 37162 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos__3_ = _endpos__2_inlined1_ in
|
|
let od =
|
|
let _1 =
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 37174 "parsing/parser.ml"
|
|
|
|
in
|
|
let _loc__1_ = (_startpos__1_, _endpos__1_) in
|
|
|
|
# 1493 "parsing/parser.mly"
|
|
( let loc = make_loc _loc__1_ in
|
|
let me = Mod.ident ~loc _1 in
|
|
Opn.mk ~loc me )
|
|
# 37183 "parsing/parser.ml"
|
|
|
|
in
|
|
let _startpos_od_ = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _symbolstartpos = _startpos_od_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2341 "parsing/parser.mly"
|
|
( (* TODO: review the location of Pexp_construct *)
|
|
Pexp_open(od, mkexp ~loc:_sloc (Pexp_construct(_3, None))) )
|
|
# 37194 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 37204 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 37210 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2344 "parsing/parser.mly"
|
|
( unclosed "(" _loc__3_ ")" _loc__5_ )
|
|
# 37267 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 37277 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 37283 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.expression) = let _1 =
|
|
let _1 =
|
|
# 2346 "parsing/parser.mly"
|
|
( let (exten, fields) = _2 in
|
|
Pexp_record(fields, exten) )
|
|
# 37325 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 37334 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 37340 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2349 "parsing/parser.mly"
|
|
( unclosed "{" _loc__1_ "}" _loc__3_ )
|
|
# 37384 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 37394 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 37400 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 37461 "parsing/parser.ml"
|
|
|
|
in
|
|
let _loc__1_ = (_startpos__1_, _endpos__1_) in
|
|
|
|
# 1493 "parsing/parser.mly"
|
|
( let loc = make_loc _loc__1_ in
|
|
let me = Mod.ident ~loc _1 in
|
|
Opn.mk ~loc me )
|
|
# 37470 "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
|
|
|
|
# 2351 "parsing/parser.mly"
|
|
( let (exten, fields) = _4 in
|
|
(* TODO: review the location of Pexp_construct *)
|
|
Pexp_open(od, mkexp ~loc:_sloc (Pexp_record(fields, exten))) )
|
|
# 37482 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 37492 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 37498 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2355 "parsing/parser.mly"
|
|
( unclosed "{" _loc__3_ "}" _loc__5_ )
|
|
# 37556 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 37566 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 37572 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = es;
|
|
MenhirLib.EngineTypes.startp = _startpos_es_;
|
|
MenhirLib.EngineTypes.endp = _endpos_es_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.expression) = let _1 =
|
|
let _1 =
|
|
let _2 =
|
|
# 2586 "parsing/parser.mly"
|
|
( es )
|
|
# 37613 "parsing/parser.ml"
|
|
in
|
|
|
|
# 2357 "parsing/parser.mly"
|
|
( Pexp_array(_2) )
|
|
# 37618 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 37628 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 37634 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = es;
|
|
MenhirLib.EngineTypes.startp = _startpos_es_;
|
|
MenhirLib.EngineTypes.endp = _endpos_es_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.expression) = let _1 =
|
|
let _1 =
|
|
let _2 =
|
|
# 2586 "parsing/parser.mly"
|
|
( es )
|
|
# 37675 "parsing/parser.ml"
|
|
in
|
|
let _loc__3_ = (_startpos__3_, _endpos__3_) in
|
|
let _loc__1_ = (_startpos__1_, _endpos__1_) in
|
|
|
|
# 2359 "parsing/parser.mly"
|
|
( unclosed "[|" _loc__1_ "|]" _loc__3_ )
|
|
# 37682 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 37692 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 37698 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.expression) = let _1 =
|
|
let _1 =
|
|
# 2361 "parsing/parser.mly"
|
|
( Pexp_array [] )
|
|
# 37731 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 37740 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 37746 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = es;
|
|
MenhirLib.EngineTypes.startp = _startpos_es_;
|
|
MenhirLib.EngineTypes.endp = _endpos_es_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__5_ in
|
|
let _v : (Parsetree.expression) = let _1 =
|
|
let _1 =
|
|
let _4 =
|
|
# 2586 "parsing/parser.mly"
|
|
( es )
|
|
# 37801 "parsing/parser.ml"
|
|
in
|
|
let od =
|
|
let _1 =
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 37811 "parsing/parser.ml"
|
|
|
|
in
|
|
let _loc__1_ = (_startpos__1_, _endpos__1_) in
|
|
|
|
# 1493 "parsing/parser.mly"
|
|
( let loc = make_loc _loc__1_ in
|
|
let me = Mod.ident ~loc _1 in
|
|
Opn.mk ~loc me )
|
|
# 37820 "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
|
|
|
|
# 2363 "parsing/parser.mly"
|
|
( (* TODO: review the location of Pexp_array *)
|
|
Pexp_open(od, mkexp ~loc:_sloc (Pexp_array(_4))) )
|
|
# 37831 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 37841 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 37847 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 37900 "parsing/parser.ml"
|
|
|
|
in
|
|
let _loc__1_ = (_startpos__1_, _endpos__1_) in
|
|
|
|
# 1493 "parsing/parser.mly"
|
|
( let loc = make_loc _loc__1_ in
|
|
let me = Mod.ident ~loc _1 in
|
|
Opn.mk ~loc me )
|
|
# 37909 "parsing/parser.ml"
|
|
|
|
in
|
|
let _startpos_od_ = _startpos__1_ in
|
|
let _endpos = _endpos__4_ in
|
|
let _symbolstartpos = _startpos_od_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2366 "parsing/parser.mly"
|
|
( (* TODO: review the location of Pexp_array *)
|
|
Pexp_open(od, mkexp ~loc:_sloc (Pexp_array [])) )
|
|
# 37920 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 37930 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 37936 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = es;
|
|
MenhirLib.EngineTypes.startp = _startpos_es_;
|
|
MenhirLib.EngineTypes.endp = _endpos_es_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__5_ in
|
|
let _v : (Parsetree.expression) = let _1 =
|
|
let _1 =
|
|
let _4 =
|
|
# 2586 "parsing/parser.mly"
|
|
( es )
|
|
# 37991 "parsing/parser.ml"
|
|
in
|
|
let _loc__5_ = (_startpos__5_, _endpos__5_) in
|
|
let _loc__3_ = (_startpos__3_, _endpos__3_) in
|
|
|
|
# 2370 "parsing/parser.mly"
|
|
( unclosed "[|" _loc__3_ "|]" _loc__5_ )
|
|
# 37998 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 38008 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 38014 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = es;
|
|
MenhirLib.EngineTypes.startp = _startpos_es_;
|
|
MenhirLib.EngineTypes.endp = _endpos_es_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.expression) = let _1 =
|
|
let _1 =
|
|
let _2 =
|
|
# 2586 "parsing/parser.mly"
|
|
( es )
|
|
# 38055 "parsing/parser.ml"
|
|
in
|
|
let _loc__3_ = (_startpos__3_, _endpos__3_) in
|
|
|
|
# 2372 "parsing/parser.mly"
|
|
( fst (mktailexp _loc__3_ _2) )
|
|
# 38061 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 38071 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 38077 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = es;
|
|
MenhirLib.EngineTypes.startp = _startpos_es_;
|
|
MenhirLib.EngineTypes.endp = _endpos_es_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.expression) = let _1 =
|
|
let _1 =
|
|
let _2 =
|
|
# 2586 "parsing/parser.mly"
|
|
( es )
|
|
# 38118 "parsing/parser.ml"
|
|
in
|
|
let _loc__3_ = (_startpos__3_, _endpos__3_) in
|
|
let _loc__1_ = (_startpos__1_, _endpos__1_) in
|
|
|
|
# 2374 "parsing/parser.mly"
|
|
( unclosed "[" _loc__1_ "]" _loc__3_ )
|
|
# 38125 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 38135 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 38141 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = es;
|
|
MenhirLib.EngineTypes.startp = _startpos_es_;
|
|
MenhirLib.EngineTypes.endp = _endpos_es_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__5_ in
|
|
let _v : (Parsetree.expression) = let _1 =
|
|
let _1 =
|
|
let _4 =
|
|
# 2586 "parsing/parser.mly"
|
|
( es )
|
|
# 38196 "parsing/parser.ml"
|
|
in
|
|
let od =
|
|
let _1 =
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 38206 "parsing/parser.ml"
|
|
|
|
in
|
|
let _loc__1_ = (_startpos__1_, _endpos__1_) in
|
|
|
|
# 1493 "parsing/parser.mly"
|
|
( let loc = make_loc _loc__1_ in
|
|
let me = Mod.ident ~loc _1 in
|
|
Opn.mk ~loc me )
|
|
# 38215 "parsing/parser.ml"
|
|
|
|
in
|
|
let _startpos_od_ = _startpos__1_ in
|
|
let _endpos = _endpos__5_ in
|
|
let _symbolstartpos = _startpos_od_ in
|
|
let _loc__5_ = (_startpos__5_, _endpos__5_) in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2376 "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:_sloc tail_exp in
|
|
Pexp_open(od, list_exp) )
|
|
# 38230 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 38240 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 38246 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 2381 "parsing/parser.mly"
|
|
(Lident "[]")
|
|
# 38296 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 38305 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos__3_ = _endpos__2_inlined1_ in
|
|
let od =
|
|
let _1 =
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 38317 "parsing/parser.ml"
|
|
|
|
in
|
|
let _loc__1_ = (_startpos__1_, _endpos__1_) in
|
|
|
|
# 1493 "parsing/parser.mly"
|
|
( let loc = make_loc _loc__1_ in
|
|
let me = Mod.ident ~loc _1 in
|
|
Opn.mk ~loc me )
|
|
# 38326 "parsing/parser.ml"
|
|
|
|
in
|
|
let _startpos_od_ = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _symbolstartpos = _startpos_od_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2382 "parsing/parser.mly"
|
|
( (* TODO: review the location of Pexp_construct *)
|
|
Pexp_open(od, mkexp ~loc:_sloc (Pexp_construct(_3, None))) )
|
|
# 38337 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 38347 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 38353 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = es;
|
|
MenhirLib.EngineTypes.startp = _startpos_es_;
|
|
MenhirLib.EngineTypes.endp = _endpos_es_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__5_ in
|
|
let _v : (Parsetree.expression) = let _1 =
|
|
let _1 =
|
|
let _4 =
|
|
# 2586 "parsing/parser.mly"
|
|
( es )
|
|
# 38408 "parsing/parser.ml"
|
|
in
|
|
let _loc__5_ = (_startpos__5_, _endpos__5_) in
|
|
let _loc__3_ = (_startpos__3_, _endpos__3_) in
|
|
|
|
# 2386 "parsing/parser.mly"
|
|
( unclosed "[" _loc__3_ "]" _loc__5_ )
|
|
# 38415 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 38425 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 38431 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _9;
|
|
MenhirLib.EngineTypes.startp = _startpos__9_;
|
|
MenhirLib.EngineTypes.endp = _endpos__9_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3330 "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 )
|
|
# 38528 "parsing/parser.ml"
|
|
|
|
in
|
|
let _5 =
|
|
let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 38538 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 38544 "parsing/parser.ml"
|
|
|
|
in
|
|
let od =
|
|
let _1 =
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 38555 "parsing/parser.ml"
|
|
|
|
in
|
|
let _loc__1_ = (_startpos__1_, _endpos__1_) in
|
|
|
|
# 1493 "parsing/parser.mly"
|
|
( let loc = make_loc _loc__1_ in
|
|
let me = Mod.ident ~loc _1 in
|
|
Opn.mk ~loc me )
|
|
# 38564 "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
|
|
|
|
# 2389 "parsing/parser.mly"
|
|
( (* TODO: review the location of Pexp_constraint *)
|
|
let modexp =
|
|
mkexp_attrs ~loc:_sloc
|
|
(Pexp_constraint (ghexp ~loc:_sloc (Pexp_pack _6), _8)) _5 in
|
|
Pexp_open(od, modexp) )
|
|
# 38578 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 38588 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 38594 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _8;
|
|
MenhirLib.EngineTypes.startp = _startpos__8_;
|
|
MenhirLib.EngineTypes.endp = _endpos__8_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 38681 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 38687 "parsing/parser.ml"
|
|
|
|
in
|
|
let _loc__8_ = (_startpos__8_, _endpos__8_) in
|
|
let _loc__3_ = (_startpos__3_, _endpos__3_) in
|
|
|
|
# 2396 "parsing/parser.mly"
|
|
( unclosed "(" _loc__3_ ")" _loc__8_ )
|
|
# 38695 "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
|
|
|
|
# 846 "parsing/parser.mly"
|
|
( mkexp ~loc:_sloc _1 )
|
|
# 38705 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2288 "parsing/parser.mly"
|
|
( _1 )
|
|
# 38711 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Asttypes.label) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 38742 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2666 "parsing/parser.mly"
|
|
( Ppat_var (_1) )
|
|
# 38748 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 38757 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2667 "parsing/parser.mly"
|
|
( _1 )
|
|
# 38763 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.pattern) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.pattern) =
|
|
# 2668 "parsing/parser.mly"
|
|
( _1 )
|
|
# 38788 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2673 "parsing/parser.mly"
|
|
( reloc_pat ~loc:_sloc _2 )
|
|
# 38830 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.pattern) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.pattern) =
|
|
# 2675 "parsing/parser.mly"
|
|
( _1 )
|
|
# 38855 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 38920 "parsing/parser.ml"
|
|
|
|
in
|
|
let _3 =
|
|
let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 38930 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 38936 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__5_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2677 "parsing/parser.mly"
|
|
( mkpat_attrs ~loc:_sloc (Ppat_unpack _4) _3 )
|
|
# 38945 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined4;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3330 "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 )
|
|
# 39026 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 39037 "parsing/parser.ml"
|
|
|
|
in
|
|
let _3 =
|
|
let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 39047 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 39053 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__7_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2679 "parsing/parser.mly"
|
|
( mkpat_attrs ~loc:_sloc
|
|
(Ppat_constraint(mkpat ~loc:_sloc (Ppat_unpack _4), _6))
|
|
_3 )
|
|
# 39064 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.pattern) = let _1 =
|
|
let _1 =
|
|
# 2687 "parsing/parser.mly"
|
|
( Ppat_any )
|
|
# 39090 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 39098 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2683 "parsing/parser.mly"
|
|
( _1 )
|
|
# 39104 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.constant) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.pattern) = let _1 =
|
|
let _1 =
|
|
# 2689 "parsing/parser.mly"
|
|
( Ppat_constant _1 )
|
|
# 39130 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 39138 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2683 "parsing/parser.mly"
|
|
( _1 )
|
|
# 39144 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Parsetree.pattern) = let _1 =
|
|
let _1 =
|
|
# 2691 "parsing/parser.mly"
|
|
( Ppat_interval (_1, _3) )
|
|
# 39184 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 39193 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2683 "parsing/parser.mly"
|
|
( _1 )
|
|
# 39199 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Longident.t) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 39230 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2693 "parsing/parser.mly"
|
|
( Ppat_construct(_1, None) )
|
|
# 39236 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 39245 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2683 "parsing/parser.mly"
|
|
( _1 )
|
|
# 39251 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Asttypes.label) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.pattern) = let _1 =
|
|
let _1 =
|
|
# 2695 "parsing/parser.mly"
|
|
( Ppat_variant(_1, None) )
|
|
# 39277 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 39285 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2683 "parsing/parser.mly"
|
|
( _1 )
|
|
# 39291 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 39330 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2697 "parsing/parser.mly"
|
|
( Ppat_type (_2) )
|
|
# 39336 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 39346 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2683 "parsing/parser.mly"
|
|
( _1 )
|
|
# 39352 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 39397 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2699 "parsing/parser.mly"
|
|
( Ppat_open(_1, _3) )
|
|
# 39403 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 39413 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2683 "parsing/parser.mly"
|
|
( _1 )
|
|
# 39419 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 2700 "parsing/parser.mly"
|
|
(Lident "[]")
|
|
# 39469 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 39478 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 39489 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__3_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2701 "parsing/parser.mly"
|
|
( Ppat_open(_1, mkpat ~loc:_sloc (Ppat_construct(_3, None))) )
|
|
# 39498 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 39508 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2683 "parsing/parser.mly"
|
|
( _1 )
|
|
# 39514 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 2702 "parsing/parser.mly"
|
|
(Lident "()")
|
|
# 39564 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 39573 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 39584 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__3_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2703 "parsing/parser.mly"
|
|
( Ppat_open(_1, mkpat ~loc:_sloc (Ppat_construct(_3, None))) )
|
|
# 39593 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 39603 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2683 "parsing/parser.mly"
|
|
( _1 )
|
|
# 39609 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 39668 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2705 "parsing/parser.mly"
|
|
( Ppat_open (_1, _4) )
|
|
# 39674 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 39684 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2683 "parsing/parser.mly"
|
|
( _1 )
|
|
# 39690 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2707 "parsing/parser.mly"
|
|
( unclosed "(" _loc__3_ ")" _loc__5_ )
|
|
# 39747 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 39757 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2683 "parsing/parser.mly"
|
|
( _1 )
|
|
# 39763 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2709 "parsing/parser.mly"
|
|
( expecting _loc__4_ "pattern" )
|
|
# 39812 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 39822 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2683 "parsing/parser.mly"
|
|
( _1 )
|
|
# 39828 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2711 "parsing/parser.mly"
|
|
( unclosed "(" _loc__1_ ")" _loc__3_ )
|
|
# 39871 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 39881 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2683 "parsing/parser.mly"
|
|
( _1 )
|
|
# 39887 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__5_ in
|
|
let _v : (Parsetree.pattern) = let _1 =
|
|
let _1 =
|
|
# 2713 "parsing/parser.mly"
|
|
( Ppat_constraint(_2, _4) )
|
|
# 39941 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 39950 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2683 "parsing/parser.mly"
|
|
( _1 )
|
|
# 39956 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2715 "parsing/parser.mly"
|
|
( unclosed "(" _loc__1_ ")" _loc__5_ )
|
|
# 40013 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 40023 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2683 "parsing/parser.mly"
|
|
( _1 )
|
|
# 40029 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2717 "parsing/parser.mly"
|
|
( expecting _loc__4_ "type" )
|
|
# 40078 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 40088 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2683 "parsing/parser.mly"
|
|
( _1 )
|
|
# 40094 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3330 "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 )
|
|
# 40177 "parsing/parser.ml"
|
|
|
|
in
|
|
let _3 =
|
|
let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 40187 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3753 "parsing/parser.mly"
|
|
( _1, _2 )
|
|
# 40193 "parsing/parser.ml"
|
|
|
|
in
|
|
let _loc__7_ = (_startpos__7_, _endpos__7_) in
|
|
let _loc__1_ = (_startpos__1_, _endpos__1_) in
|
|
|
|
# 2720 "parsing/parser.mly"
|
|
( unclosed "(" _loc__1_ ")" _loc__7_ )
|
|
# 40201 "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
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 40211 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2683 "parsing/parser.mly"
|
|
( _1 )
|
|
# 40217 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.extension) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.pattern) = let _1 =
|
|
let _1 =
|
|
# 2722 "parsing/parser.mly"
|
|
( Ppat_extension _1 )
|
|
# 40243 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 848 "parsing/parser.mly"
|
|
( mkpat ~loc:_sloc _1 )
|
|
# 40251 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2683 "parsing/parser.mly"
|
|
( _1 )
|
|
# 40257 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 40278 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3663 "parsing/parser.mly"
|
|
( _1 )
|
|
# 40286 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (
|
|
# 697 "parsing/parser.mly"
|
|
(string)
|
|
# 40307 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3664 "parsing/parser.mly"
|
|
( _1 )
|
|
# 40315 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3665 "parsing/parser.mly"
|
|
( "and" )
|
|
# 40340 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3666 "parsing/parser.mly"
|
|
( "as" )
|
|
# 40365 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3667 "parsing/parser.mly"
|
|
( "assert" )
|
|
# 40390 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3668 "parsing/parser.mly"
|
|
( "begin" )
|
|
# 40415 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3669 "parsing/parser.mly"
|
|
( "class" )
|
|
# 40440 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3670 "parsing/parser.mly"
|
|
( "constraint" )
|
|
# 40465 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3671 "parsing/parser.mly"
|
|
( "do" )
|
|
# 40490 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3672 "parsing/parser.mly"
|
|
( "done" )
|
|
# 40515 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3673 "parsing/parser.mly"
|
|
( "downto" )
|
|
# 40540 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3674 "parsing/parser.mly"
|
|
( "else" )
|
|
# 40565 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3675 "parsing/parser.mly"
|
|
( "end" )
|
|
# 40590 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3676 "parsing/parser.mly"
|
|
( "exception" )
|
|
# 40615 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3677 "parsing/parser.mly"
|
|
( "external" )
|
|
# 40640 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3678 "parsing/parser.mly"
|
|
( "false" )
|
|
# 40665 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3679 "parsing/parser.mly"
|
|
( "for" )
|
|
# 40690 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3680 "parsing/parser.mly"
|
|
( "fun" )
|
|
# 40715 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3681 "parsing/parser.mly"
|
|
( "function" )
|
|
# 40740 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3682 "parsing/parser.mly"
|
|
( "functor" )
|
|
# 40765 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3683 "parsing/parser.mly"
|
|
( "if" )
|
|
# 40790 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3684 "parsing/parser.mly"
|
|
( "in" )
|
|
# 40815 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3685 "parsing/parser.mly"
|
|
( "include" )
|
|
# 40840 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3686 "parsing/parser.mly"
|
|
( "inherit" )
|
|
# 40865 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3687 "parsing/parser.mly"
|
|
( "initializer" )
|
|
# 40890 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3688 "parsing/parser.mly"
|
|
( "lazy" )
|
|
# 40915 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3689 "parsing/parser.mly"
|
|
( "let" )
|
|
# 40940 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3690 "parsing/parser.mly"
|
|
( "match" )
|
|
# 40965 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3691 "parsing/parser.mly"
|
|
( "method" )
|
|
# 40990 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3692 "parsing/parser.mly"
|
|
( "module" )
|
|
# 41015 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3693 "parsing/parser.mly"
|
|
( "mutable" )
|
|
# 41040 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3694 "parsing/parser.mly"
|
|
( "new" )
|
|
# 41065 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3695 "parsing/parser.mly"
|
|
( "nonrec" )
|
|
# 41090 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3696 "parsing/parser.mly"
|
|
( "object" )
|
|
# 41115 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3697 "parsing/parser.mly"
|
|
( "of" )
|
|
# 41140 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3698 "parsing/parser.mly"
|
|
( "open" )
|
|
# 41165 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3699 "parsing/parser.mly"
|
|
( "or" )
|
|
# 41190 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3700 "parsing/parser.mly"
|
|
( "private" )
|
|
# 41215 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3701 "parsing/parser.mly"
|
|
( "rec" )
|
|
# 41240 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3702 "parsing/parser.mly"
|
|
( "sig" )
|
|
# 41265 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3703 "parsing/parser.mly"
|
|
( "struct" )
|
|
# 41290 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3704 "parsing/parser.mly"
|
|
( "then" )
|
|
# 41315 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3705 "parsing/parser.mly"
|
|
( "to" )
|
|
# 41340 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3706 "parsing/parser.mly"
|
|
( "true" )
|
|
# 41365 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3707 "parsing/parser.mly"
|
|
( "try" )
|
|
# 41390 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3708 "parsing/parser.mly"
|
|
( "type" )
|
|
# 41415 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3709 "parsing/parser.mly"
|
|
( "val" )
|
|
# 41440 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3710 "parsing/parser.mly"
|
|
( "virtual" )
|
|
# 41465 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3711 "parsing/parser.mly"
|
|
( "when" )
|
|
# 41490 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3712 "parsing/parser.mly"
|
|
( "while" )
|
|
# 41515 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3713 "parsing/parser.mly"
|
|
( "with" )
|
|
# 41540 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.type_exception * string Asttypes.loc option) =
|
|
# 2998 "parsing/parser.mly"
|
|
( _1 )
|
|
# 41565 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined5;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined4;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 41641 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos_attrs_ = _endpos__1_inlined5_ in
|
|
let attrs2 =
|
|
let _1 = _1_inlined4 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 41650 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 41661 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 41672 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 41680 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 3007 "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 )
|
|
# 41693 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.expression) =
|
|
# 2511 "parsing/parser.mly"
|
|
( _2 )
|
|
# 41725 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 2513 "parsing/parser.mly"
|
|
( let (l, o, p) = _1 in ghexp ~loc:_sloc (Pexp_fun(l, o, p, _2)) )
|
|
# 41760 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__5_ in
|
|
let _v : (Parsetree.expression) = let _3 =
|
|
# 2414 "parsing/parser.mly"
|
|
( xs )
|
|
# 41813 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__5_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2515 "parsing/parser.mly"
|
|
( mk_newtypes ~loc:_sloc _3 _5 )
|
|
# 41821 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = xss;
|
|
MenhirLib.EngineTypes.startp = _startpos_xss_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xss_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let xss : (Parsetree.structure_item list list) = Obj.magic xss in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_xss_ in
|
|
let _endpos = _endpos_xss_ in
|
|
let _v : (Parsetree.structure) = let _1 =
|
|
let _1 =
|
|
let ys =
|
|
# 260 "<standard.mly>"
|
|
( List.flatten xss )
|
|
# 41848 "parsing/parser.ml"
|
|
in
|
|
let xs =
|
|
let items =
|
|
# 883 "parsing/parser.mly"
|
|
( [] )
|
|
# 41854 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1297 "parsing/parser.mly"
|
|
( items )
|
|
# 41859 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 267 "<standard.mly>"
|
|
( xs @ ys )
|
|
# 41865 "parsing/parser.ml"
|
|
|
|
in
|
|
let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in
|
|
let _endpos = _endpos__1_ in
|
|
let _startpos = _startpos__1_ in
|
|
|
|
# 805 "parsing/parser.mly"
|
|
( extra_str _startpos _endpos _1 )
|
|
# 41874 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1290 "parsing/parser.mly"
|
|
( _1 )
|
|
# 41880 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xss;
|
|
MenhirLib.EngineTypes.startp = _startpos_xss_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xss_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = e;
|
|
MenhirLib.EngineTypes.startp = _startpos_e_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_e_ in
|
|
let _endpos = _endpos_xss_ in
|
|
let _v : (Parsetree.structure) = let _1 =
|
|
let _1 =
|
|
let ys =
|
|
# 260 "<standard.mly>"
|
|
( List.flatten xss )
|
|
# 41921 "parsing/parser.ml"
|
|
in
|
|
let xs =
|
|
let items =
|
|
let x =
|
|
let _1 =
|
|
let _1 =
|
|
let attrs =
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 41931 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1304 "parsing/parser.mly"
|
|
( mkstrexp e attrs )
|
|
# 41936 "parsing/parser.ml"
|
|
|
|
in
|
|
let _startpos__1_ = _startpos_e_ in
|
|
let _startpos = _startpos__1_ in
|
|
|
|
# 817 "parsing/parser.mly"
|
|
( text_str _startpos @ [_1] )
|
|
# 41944 "parsing/parser.ml"
|
|
|
|
in
|
|
let _startpos__1_ = _startpos_e_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _startpos = _startpos__1_ in
|
|
|
|
# 836 "parsing/parser.mly"
|
|
( mark_rhs_docs _startpos _endpos;
|
|
_1 )
|
|
# 41954 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 885 "parsing/parser.mly"
|
|
( x )
|
|
# 41960 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1297 "parsing/parser.mly"
|
|
( items )
|
|
# 41966 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 267 "<standard.mly>"
|
|
( xs @ ys )
|
|
# 41972 "parsing/parser.ml"
|
|
|
|
in
|
|
let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_e_) in
|
|
let _endpos = _endpos__1_ in
|
|
let _startpos = _startpos__1_ in
|
|
|
|
# 805 "parsing/parser.mly"
|
|
( extra_str _startpos _endpos _1 )
|
|
# 41981 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1290 "parsing/parser.mly"
|
|
( _1 )
|
|
# 41987 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (let_bindings) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 1319 "parsing/parser.mly"
|
|
( val_of_let_bindings ~loc:_sloc _1 )
|
|
# 42015 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 42051 "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
|
|
|
|
# 1322 "parsing/parser.mly"
|
|
( let docs = symbol_docs _sloc in
|
|
Pstr_extension (_1, add_docs_attrs docs _2) )
|
|
# 42062 "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
|
|
|
|
# 852 "parsing/parser.mly"
|
|
( mkstr ~loc:_sloc _1 )
|
|
# 42072 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1353 "parsing/parser.mly"
|
|
( _1 )
|
|
# 42078 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Parsetree.attribute) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.structure_item) = let _1 =
|
|
let _1 =
|
|
# 1325 "parsing/parser.mly"
|
|
( Pstr_attribute _1 )
|
|
# 42104 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 852 "parsing/parser.mly"
|
|
( mkstr ~loc:_sloc _1 )
|
|
# 42112 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1353 "parsing/parser.mly"
|
|
( _1 )
|
|
# 42118 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.structure_item) = let _1 =
|
|
let _1 =
|
|
# 1329 "parsing/parser.mly"
|
|
( pstr_primitive _1 )
|
|
# 42144 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 869 "parsing/parser.mly"
|
|
( wrap_mkstr_ext ~loc:_sloc _1 )
|
|
# 42152 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1353 "parsing/parser.mly"
|
|
( _1 )
|
|
# 42158 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.structure_item) = let _1 =
|
|
let _1 =
|
|
# 1331 "parsing/parser.mly"
|
|
( pstr_primitive _1 )
|
|
# 42184 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 869 "parsing/parser.mly"
|
|
( wrap_mkstr_ext ~loc:_sloc _1 )
|
|
# 42192 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1353 "parsing/parser.mly"
|
|
( _1 )
|
|
# 42198 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = bs;
|
|
MenhirLib.EngineTypes.startp = _startpos_bs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_bs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = a;
|
|
MenhirLib.EngineTypes.startp = _startpos_a_;
|
|
MenhirLib.EngineTypes.endp = _endpos_a_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 1044 "parsing/parser.mly"
|
|
( let (x, b) = a in x, b :: bs )
|
|
# 42235 "parsing/parser.ml"
|
|
in
|
|
|
|
# 2842 "parsing/parser.mly"
|
|
( _1 )
|
|
# 42240 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2825 "parsing/parser.mly"
|
|
( _1 )
|
|
# 42246 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1333 "parsing/parser.mly"
|
|
( pstr_type _1 )
|
|
# 42252 "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
|
|
|
|
# 869 "parsing/parser.mly"
|
|
( wrap_mkstr_ext ~loc:_sloc _1 )
|
|
# 42262 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1353 "parsing/parser.mly"
|
|
( _1 )
|
|
# 42268 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = priv;
|
|
MenhirLib.EngineTypes.startp = _startpos_priv_;
|
|
MenhirLib.EngineTypes.endp = _endpos_priv_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = params;
|
|
MenhirLib.EngineTypes.startp = _startpos_params_;
|
|
MenhirLib.EngineTypes.endp = _endpos_params_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 42355 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos_attrs2_ = _endpos__1_inlined3_ in
|
|
let cs =
|
|
# 1036 "parsing/parser.mly"
|
|
( List.rev xs )
|
|
# 42362 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 42372 "parsing/parser.ml"
|
|
|
|
in
|
|
let _4 =
|
|
# 3585 "parsing/parser.mly"
|
|
( Recursive )
|
|
# 42378 "parsing/parser.ml"
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 42385 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 3090 "parsing/parser.mly"
|
|
( let docs = symbol_docs _sloc in
|
|
let attrs = attrs1 @ attrs2 in
|
|
Te.mk tid cs ~params ~priv ~attrs ~docs,
|
|
ext )
|
|
# 42397 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3073 "parsing/parser.mly"
|
|
( _1 )
|
|
# 42403 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1335 "parsing/parser.mly"
|
|
( pstr_typext _1 )
|
|
# 42409 "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
|
|
|
|
# 869 "parsing/parser.mly"
|
|
( wrap_mkstr_ext ~loc:_sloc _1 )
|
|
# 42419 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1353 "parsing/parser.mly"
|
|
( _1 )
|
|
# 42425 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined4;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = priv;
|
|
MenhirLib.EngineTypes.startp = _startpos_priv_;
|
|
MenhirLib.EngineTypes.endp = _endpos_priv_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = params;
|
|
MenhirLib.EngineTypes.startp = _startpos_params_;
|
|
MenhirLib.EngineTypes.endp = _endpos_params_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 42519 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos_attrs2_ = _endpos__1_inlined4_ in
|
|
let cs =
|
|
# 1036 "parsing/parser.mly"
|
|
( List.rev xs )
|
|
# 42526 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 42536 "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
|
|
|
|
# 3586 "parsing/parser.mly"
|
|
( not_expecting _loc "nonrec flag" )
|
|
# 42547 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 42555 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 3090 "parsing/parser.mly"
|
|
( let docs = symbol_docs _sloc in
|
|
let attrs = attrs1 @ attrs2 in
|
|
Te.mk tid cs ~params ~priv ~attrs ~docs,
|
|
ext )
|
|
# 42567 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3073 "parsing/parser.mly"
|
|
( _1 )
|
|
# 42573 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1335 "parsing/parser.mly"
|
|
( pstr_typext _1 )
|
|
# 42579 "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
|
|
|
|
# 869 "parsing/parser.mly"
|
|
( wrap_mkstr_ext ~loc:_sloc _1 )
|
|
# 42589 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1353 "parsing/parser.mly"
|
|
( _1 )
|
|
# 42595 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.structure_item) = let _1 =
|
|
let _1 =
|
|
# 1337 "parsing/parser.mly"
|
|
( pstr_exception _1 )
|
|
# 42621 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 869 "parsing/parser.mly"
|
|
( wrap_mkstr_ext ~loc:_sloc _1 )
|
|
# 42629 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1353 "parsing/parser.mly"
|
|
( _1 )
|
|
# 42635 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = body;
|
|
MenhirLib.EngineTypes.startp = _startpos_body_;
|
|
MenhirLib.EngineTypes.endp = _endpos_body_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 42700 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 42712 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 42720 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1363 "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 )
|
|
# 42733 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1339 "parsing/parser.mly"
|
|
( _1 )
|
|
# 42739 "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
|
|
|
|
# 869 "parsing/parser.mly"
|
|
( wrap_mkstr_ext ~loc:_sloc _1 )
|
|
# 42749 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1353 "parsing/parser.mly"
|
|
( _1 )
|
|
# 42755 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = bs;
|
|
MenhirLib.EngineTypes.startp = _startpos_bs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_bs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = body;
|
|
MenhirLib.EngineTypes.startp = _startpos_body_;
|
|
MenhirLib.EngineTypes.endp = _endpos_body_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 42836 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 42848 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 42856 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1397 "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
|
|
)
|
|
# 42871 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1044 "parsing/parser.mly"
|
|
( let (x, b) = a in x, b :: bs )
|
|
# 42877 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1385 "parsing/parser.mly"
|
|
( _1 )
|
|
# 42883 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1341 "parsing/parser.mly"
|
|
( pstr_recmodule _1 )
|
|
# 42889 "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
|
|
|
|
# 869 "parsing/parser.mly"
|
|
( wrap_mkstr_ext ~loc:_sloc _1 )
|
|
# 42899 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1353 "parsing/parser.mly"
|
|
( _1 )
|
|
# 42905 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.structure_item) = let _1 =
|
|
let _1 =
|
|
# 1343 "parsing/parser.mly"
|
|
( let (body, ext) = _1 in (Pstr_modtype body, ext) )
|
|
# 42931 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 869 "parsing/parser.mly"
|
|
( wrap_mkstr_ext ~loc:_sloc _1 )
|
|
# 42939 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1353 "parsing/parser.mly"
|
|
( _1 )
|
|
# 42945 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.structure_item) = let _1 =
|
|
let _1 =
|
|
# 1345 "parsing/parser.mly"
|
|
( let (body, ext) = _1 in (Pstr_open body, ext) )
|
|
# 42971 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 869 "parsing/parser.mly"
|
|
( wrap_mkstr_ext ~loc:_sloc _1 )
|
|
# 42979 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1353 "parsing/parser.mly"
|
|
( _1 )
|
|
# 42985 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = bs;
|
|
MenhirLib.EngineTypes.startp = _startpos_bs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_bs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = body;
|
|
MenhirLib.EngineTypes.startp = _startpos_body_;
|
|
MenhirLib.EngineTypes.endp = _endpos_body_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = params;
|
|
MenhirLib.EngineTypes.startp = _startpos_params_;
|
|
MenhirLib.EngineTypes.endp = _endpos_params_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = virt;
|
|
MenhirLib.EngineTypes.startp = _startpos_virt_;
|
|
MenhirLib.EngineTypes.endp = _endpos_virt_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 43057 "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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 43077 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 43089 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 43097 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1715 "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
|
|
)
|
|
# 43112 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1044 "parsing/parser.mly"
|
|
( let (x, b) = a in x, b :: bs )
|
|
# 43118 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1704 "parsing/parser.mly"
|
|
( _1 )
|
|
# 43124 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1347 "parsing/parser.mly"
|
|
( let (ext, l) = _1 in (Pstr_class l, ext) )
|
|
# 43130 "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
|
|
|
|
# 869 "parsing/parser.mly"
|
|
( wrap_mkstr_ext ~loc:_sloc _1 )
|
|
# 43140 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1353 "parsing/parser.mly"
|
|
( _1 )
|
|
# 43146 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.structure_item) = let _1 =
|
|
let _1 =
|
|
# 1349 "parsing/parser.mly"
|
|
( let (ext, l) = _1 in (Pstr_class_type l, ext) )
|
|
# 43172 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 869 "parsing/parser.mly"
|
|
( wrap_mkstr_ext ~loc:_sloc _1 )
|
|
# 43180 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1353 "parsing/parser.mly"
|
|
( _1 )
|
|
# 43186 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = thing;
|
|
MenhirLib.EngineTypes.startp = _startpos_thing_;
|
|
MenhirLib.EngineTypes.endp = _endpos_thing_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 43244 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos_attrs2_ = _endpos__1_inlined2_ in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 43253 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 1434 "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
|
|
)
|
|
# 43267 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1351 "parsing/parser.mly"
|
|
( pstr_include _1 )
|
|
# 43273 "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
|
|
|
|
# 869 "parsing/parser.mly"
|
|
( wrap_mkstr_ext ~loc:_sloc _1 )
|
|
# 43283 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1353 "parsing/parser.mly"
|
|
( _1 )
|
|
# 43289 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3648 "parsing/parser.mly"
|
|
( "-" )
|
|
# 43314 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (string) =
|
|
# 3649 "parsing/parser.mly"
|
|
( "-." )
|
|
# 43339 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 43394 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos__5_ = _endpos__1_inlined1_ in
|
|
let _4 =
|
|
let _1 =
|
|
let xs =
|
|
# 253 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 43403 "parsing/parser.ml"
|
|
in
|
|
|
|
# 947 "parsing/parser.mly"
|
|
( xs )
|
|
# 43408 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3360 "parsing/parser.mly"
|
|
( _1 )
|
|
# 43414 "parsing/parser.ml"
|
|
|
|
in
|
|
let _1 =
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 43424 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__5_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 3346 "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 )
|
|
# 43435 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 43469 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 43480 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 3350 "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 [] )
|
|
# 43491 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_inlined1_ in
|
|
let _v : (Parsetree.toplevel_phrase) = let arg =
|
|
# 124 "<standard.mly>"
|
|
( None )
|
|
# 43523 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 43534 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_arg_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 3548 "parsing/parser.mly"
|
|
( mk_directive ~loc:_sloc dir arg )
|
|
# 43543 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _1_inlined2 : (
|
|
# 685 "parsing/parser.mly"
|
|
(string * Location.t * string option)
|
|
# 43576 "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.MenhirLib.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 =
|
|
# 3552 "parsing/parser.mly"
|
|
( let (s, _, _) = _1 in Pdir_string s )
|
|
# 43589 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 874 "parsing/parser.mly"
|
|
( mk_directive_arg ~loc:_sloc _1 )
|
|
# 43597 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 126 "<standard.mly>"
|
|
( Some x )
|
|
# 43603 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 43615 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_arg_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 3548 "parsing/parser.mly"
|
|
( mk_directive ~loc:_sloc dir arg )
|
|
# 43624 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
};
|
|
};
|
|
} = _menhir_stack in
|
|
let _1_inlined2 : (
|
|
# 633 "parsing/parser.mly"
|
|
(string * char option)
|
|
# 43657 "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.MenhirLib.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 =
|
|
# 3553 "parsing/parser.mly"
|
|
( let (n, m) = _1 in Pdir_int (n ,m) )
|
|
# 43670 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 874 "parsing/parser.mly"
|
|
( mk_directive_arg ~loc:_sloc _1 )
|
|
# 43678 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 126 "<standard.mly>"
|
|
( Some x )
|
|
# 43684 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 43696 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_arg_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 3548 "parsing/parser.mly"
|
|
( mk_directive ~loc:_sloc dir arg )
|
|
# 43705 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3554 "parsing/parser.mly"
|
|
( Pdir_ident _1 )
|
|
# 43747 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 874 "parsing/parser.mly"
|
|
( mk_directive_arg ~loc:_sloc _1 )
|
|
# 43755 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 126 "<standard.mly>"
|
|
( Some x )
|
|
# 43761 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 43773 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_arg_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 3548 "parsing/parser.mly"
|
|
( mk_directive ~loc:_sloc dir arg )
|
|
# 43782 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3555 "parsing/parser.mly"
|
|
( Pdir_ident _1 )
|
|
# 43824 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 874 "parsing/parser.mly"
|
|
( mk_directive_arg ~loc:_sloc _1 )
|
|
# 43832 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 126 "<standard.mly>"
|
|
( Some x )
|
|
# 43838 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 43850 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_arg_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 3548 "parsing/parser.mly"
|
|
( mk_directive ~loc:_sloc dir arg )
|
|
# 43859 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3556 "parsing/parser.mly"
|
|
( Pdir_bool false )
|
|
# 43901 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 874 "parsing/parser.mly"
|
|
( mk_directive_arg ~loc:_sloc _1 )
|
|
# 43909 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 126 "<standard.mly>"
|
|
( Some x )
|
|
# 43915 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 43927 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_arg_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 3548 "parsing/parser.mly"
|
|
( mk_directive ~loc:_sloc dir arg )
|
|
# 43936 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 =
|
|
# 3557 "parsing/parser.mly"
|
|
( Pdir_bool true )
|
|
# 43978 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 874 "parsing/parser.mly"
|
|
( mk_directive_arg ~loc:_sloc _1 )
|
|
# 43986 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 126 "<standard.mly>"
|
|
( Some x )
|
|
# 43992 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 44004 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_arg_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 3548 "parsing/parser.mly"
|
|
( mk_directive ~loc:_sloc dir arg )
|
|
# 44013 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = e;
|
|
MenhirLib.EngineTypes.startp = _startpos_e_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_e_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (
|
|
# 781 "parsing/parser.mly"
|
|
(Parsetree.toplevel_phrase)
|
|
# 44052 "parsing/parser.ml"
|
|
) = let _1 =
|
|
let _1 =
|
|
let _1 =
|
|
let attrs =
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 44059 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1304 "parsing/parser.mly"
|
|
( mkstrexp e attrs )
|
|
# 44064 "parsing/parser.ml"
|
|
|
|
in
|
|
let _startpos__1_ = _startpos_e_ in
|
|
let _startpos = _startpos__1_ in
|
|
|
|
# 817 "parsing/parser.mly"
|
|
( text_str _startpos @ [_1] )
|
|
# 44072 "parsing/parser.ml"
|
|
|
|
in
|
|
let _startpos__1_ = _startpos_e_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _startpos = _startpos__1_ in
|
|
|
|
# 805 "parsing/parser.mly"
|
|
( extra_str _startpos _endpos _1 )
|
|
# 44081 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1082 "parsing/parser.mly"
|
|
( Ptop_def _1 )
|
|
# 44087 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = xss;
|
|
MenhirLib.EngineTypes.startp = _startpos_xss_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xss_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_xss_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (
|
|
# 781 "parsing/parser.mly"
|
|
(Parsetree.toplevel_phrase)
|
|
# 44119 "parsing/parser.ml"
|
|
) = let _1 =
|
|
let _1 =
|
|
# 260 "<standard.mly>"
|
|
( List.flatten xss )
|
|
# 44124 "parsing/parser.ml"
|
|
in
|
|
let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in
|
|
let _endpos = _endpos__1_ in
|
|
let _startpos = _startpos__1_ in
|
|
|
|
# 805 "parsing/parser.mly"
|
|
( extra_str _startpos _endpos _1 )
|
|
# 44132 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1086 "parsing/parser.mly"
|
|
( Ptop_def _1 )
|
|
# 44138 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (
|
|
# 781 "parsing/parser.mly"
|
|
(Parsetree.toplevel_phrase)
|
|
# 44170 "parsing/parser.ml"
|
|
) =
|
|
# 1090 "parsing/parser.mly"
|
|
( _1 )
|
|
# 44174 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (
|
|
# 781 "parsing/parser.mly"
|
|
(Parsetree.toplevel_phrase)
|
|
# 44199 "parsing/parser.ml"
|
|
) =
|
|
# 1093 "parsing/parser.mly"
|
|
( raise End_of_file )
|
|
# 44203 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = ty;
|
|
MenhirLib.EngineTypes.startp = _startpos_ty_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ty_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let ty : (Parsetree.core_type) = Obj.magic ty in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_ty_ in
|
|
let _endpos = _endpos_ty_ in
|
|
let _v : (Parsetree.core_type) =
|
|
# 3252 "parsing/parser.mly"
|
|
( ty )
|
|
# 44228 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let xs : (Parsetree.core_type list) = Obj.magic xs in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 44256 "parsing/parser.ml"
|
|
in
|
|
|
|
# 975 "parsing/parser.mly"
|
|
( xs )
|
|
# 44261 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3255 "parsing/parser.mly"
|
|
( Ptyp_tuple tys )
|
|
# 44267 "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
|
|
|
|
# 850 "parsing/parser.mly"
|
|
( mktyp ~loc:_sloc _1 )
|
|
# 44277 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3257 "parsing/parser.mly"
|
|
( _1 )
|
|
# 44283 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.core_type option * Parsetree.core_type option) =
|
|
# 2589 "parsing/parser.mly"
|
|
( (Some _2, None) )
|
|
# 44315 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__4_ in
|
|
let _v : (Parsetree.core_type option * Parsetree.core_type option) =
|
|
# 2590 "parsing/parser.mly"
|
|
( (Some _2, Some _4) )
|
|
# 44361 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.core_type option * Parsetree.core_type option) =
|
|
# 2591 "parsing/parser.mly"
|
|
( (None, Some _2) )
|
|
# 44393 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.core_type option * Parsetree.core_type option) =
|
|
# 2592 "parsing/parser.mly"
|
|
( syntax_error() )
|
|
# 44425 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.core_type option * Parsetree.core_type option) =
|
|
# 2593 "parsing/parser.mly"
|
|
( syntax_error() )
|
|
# 44457 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) =
|
|
# 2916 "parsing/parser.mly"
|
|
( (Ptype_abstract, Public, None) )
|
|
# 44475 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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) =
|
|
# 2918 "parsing/parser.mly"
|
|
( _2 )
|
|
# 44507 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Longident.t) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Longident.t) =
|
|
# 3511 "parsing/parser.mly"
|
|
( _1 )
|
|
# 44532 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) =
|
|
# 2933 "parsing/parser.mly"
|
|
( _2, _1 )
|
|
# 44564 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) =
|
|
# 2926 "parsing/parser.mly"
|
|
( [] )
|
|
# 44582 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = p;
|
|
MenhirLib.EngineTypes.startp = _startpos_p_;
|
|
MenhirLib.EngineTypes.endp = _endpos_p_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_p_ in
|
|
let _endpos = _endpos_p_ in
|
|
let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) =
|
|
# 2928 "parsing/parser.mly"
|
|
( [p] )
|
|
# 44607 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 44647 "parsing/parser.ml"
|
|
in
|
|
|
|
# 947 "parsing/parser.mly"
|
|
( xs )
|
|
# 44652 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2930 "parsing/parser.mly"
|
|
( ps )
|
|
# 44658 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = tyvar;
|
|
MenhirLib.EngineTypes.startp = _startpos_tyvar_;
|
|
MenhirLib.EngineTypes.endp = _endpos_tyvar_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos_tyvar_ in
|
|
let _v : (Parsetree.core_type) = let _1 =
|
|
let _1 =
|
|
# 2938 "parsing/parser.mly"
|
|
( Ptyp_var tyvar )
|
|
# 44691 "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
|
|
|
|
# 850 "parsing/parser.mly"
|
|
( mktyp ~loc:_sloc _1 )
|
|
# 44700 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2941 "parsing/parser.mly"
|
|
( _1 )
|
|
# 44706 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Parsetree.core_type) = let _1 =
|
|
let _1 =
|
|
# 2940 "parsing/parser.mly"
|
|
( Ptyp_any )
|
|
# 44732 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 850 "parsing/parser.mly"
|
|
( mktyp ~loc:_sloc _1 )
|
|
# 44740 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2941 "parsing/parser.mly"
|
|
( _1 )
|
|
# 44746 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Asttypes.variance * Asttypes.injectivity) =
|
|
# 2945 "parsing/parser.mly"
|
|
( NoVariance, NoInjectivity )
|
|
# 44764 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.variance * Asttypes.injectivity) =
|
|
# 2946 "parsing/parser.mly"
|
|
( Covariant, NoInjectivity )
|
|
# 44789 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.variance * Asttypes.injectivity) =
|
|
# 2947 "parsing/parser.mly"
|
|
( Contravariant, NoInjectivity )
|
|
# 44814 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.variance * Asttypes.injectivity) =
|
|
# 2948 "parsing/parser.mly"
|
|
( NoVariance, Injective )
|
|
# 44839 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Asttypes.variance * Asttypes.injectivity) =
|
|
# 2949 "parsing/parser.mly"
|
|
( Covariant, Injective )
|
|
# 44871 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Asttypes.variance * Asttypes.injectivity) =
|
|
# 2949 "parsing/parser.mly"
|
|
( Covariant, Injective )
|
|
# 44903 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Asttypes.variance * Asttypes.injectivity) =
|
|
# 2950 "parsing/parser.mly"
|
|
( Contravariant, Injective )
|
|
# 44935 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Asttypes.variance * Asttypes.injectivity) =
|
|
# 2950 "parsing/parser.mly"
|
|
( Contravariant, Injective )
|
|
# 44967 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (
|
|
# 625 "parsing/parser.mly"
|
|
(string)
|
|
# 44988 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 2952 "parsing/parser.mly"
|
|
( if _1 = "+!" then Covariant, Injective else
|
|
if _1 = "-!" then Contravariant, Injective else
|
|
expecting _loc__1_ "type_variance" )
|
|
# 44999 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (
|
|
# 671 "parsing/parser.mly"
|
|
(string)
|
|
# 45020 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.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
|
|
|
|
# 2956 "parsing/parser.mly"
|
|
( if _1 = "!+" then Covariant, Injective else
|
|
if _1 = "!-" then Contravariant, Injective else
|
|
expecting _loc__1_ "type_variance" )
|
|
# 45031 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = xss;
|
|
MenhirLib.EngineTypes.startp = _startpos_xss_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xss_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_xss_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (
|
|
# 783 "parsing/parser.mly"
|
|
(Parsetree.toplevel_phrase list)
|
|
# 45063 "parsing/parser.ml"
|
|
) = let _1 =
|
|
let _1 =
|
|
let ys =
|
|
# 260 "<standard.mly>"
|
|
( List.flatten xss )
|
|
# 45069 "parsing/parser.ml"
|
|
in
|
|
let xs =
|
|
let _1 =
|
|
# 883 "parsing/parser.mly"
|
|
( [] )
|
|
# 45075 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1113 "parsing/parser.mly"
|
|
( _1 )
|
|
# 45080 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 267 "<standard.mly>"
|
|
( xs @ ys )
|
|
# 45086 "parsing/parser.ml"
|
|
|
|
in
|
|
let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in
|
|
let _endpos = _endpos__1_ in
|
|
let _startpos = _startpos__1_ in
|
|
|
|
# 809 "parsing/parser.mly"
|
|
( extra_def _startpos _endpos _1 )
|
|
# 45095 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1106 "parsing/parser.mly"
|
|
( _1 )
|
|
# 45101 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xss;
|
|
MenhirLib.EngineTypes.startp = _startpos_xss_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xss_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = e;
|
|
MenhirLib.EngineTypes.startp = _startpos_e_;
|
|
MenhirLib.EngineTypes.endp = _endpos_e_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos_e_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (
|
|
# 783 "parsing/parser.mly"
|
|
(Parsetree.toplevel_phrase list)
|
|
# 45147 "parsing/parser.ml"
|
|
) = let _1 =
|
|
let _1 =
|
|
let ys =
|
|
# 260 "<standard.mly>"
|
|
( List.flatten xss )
|
|
# 45153 "parsing/parser.ml"
|
|
in
|
|
let xs =
|
|
let _1 =
|
|
let x =
|
|
let _1 =
|
|
let _1 =
|
|
let attrs =
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 45163 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1304 "parsing/parser.mly"
|
|
( mkstrexp e attrs )
|
|
# 45168 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 827 "parsing/parser.mly"
|
|
( Ptop_def [_1] )
|
|
# 45174 "parsing/parser.ml"
|
|
|
|
in
|
|
let _startpos__1_ = _startpos_e_ in
|
|
let _startpos = _startpos__1_ in
|
|
|
|
# 825 "parsing/parser.mly"
|
|
( text_def _startpos @ [_1] )
|
|
# 45182 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 885 "parsing/parser.mly"
|
|
( x )
|
|
# 45188 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1113 "parsing/parser.mly"
|
|
( _1 )
|
|
# 45194 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 267 "<standard.mly>"
|
|
( xs @ ys )
|
|
# 45200 "parsing/parser.ml"
|
|
|
|
in
|
|
let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_e_) in
|
|
let _endpos = _endpos__1_ in
|
|
let _startpos = _startpos__1_ in
|
|
|
|
# 809 "parsing/parser.mly"
|
|
( extra_def _startpos _endpos _1 )
|
|
# 45209 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 1106 "parsing/parser.mly"
|
|
( _1 )
|
|
# 45215 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__3_ in
|
|
let _v : (Asttypes.label) =
|
|
# 3430 "parsing/parser.mly"
|
|
( _2 )
|
|
# 45254 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3431 "parsing/parser.mly"
|
|
( unclosed "(" _loc__1_ ")" _loc__3_ )
|
|
# 45295 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3432 "parsing/parser.mly"
|
|
( expecting _loc__2_ "operator" )
|
|
# 45328 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3433 "parsing/parser.mly"
|
|
( expecting _loc__3_ "module-expr" )
|
|
# 45368 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 45389 "parsing/parser.ml"
|
|
) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.label) =
|
|
# 3436 "parsing/parser.mly"
|
|
( _1 )
|
|
# 45397 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Asttypes.label) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.label) =
|
|
# 3437 "parsing/parser.mly"
|
|
( _1 )
|
|
# 45422 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : (Longident.t) = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Longident.t) =
|
|
# 3505 "parsing/parser.mly"
|
|
( _1 )
|
|
# 45447 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ty;
|
|
MenhirLib.EngineTypes.startp = _startpos_ty_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ty_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = mutable_;
|
|
MenhirLib.EngineTypes.startp = _startpos_mutable__;
|
|
MenhirLib.EngineTypes.endp = _endpos_mutable__;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 45494 "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.MenhirLib.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 =
|
|
# 3404 "parsing/parser.mly"
|
|
( _1 )
|
|
# 45508 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 45516 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs =
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 45522 "parsing/parser.ml"
|
|
in
|
|
let _1 =
|
|
# 3641 "parsing/parser.mly"
|
|
( Fresh )
|
|
# 45527 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1855 "parsing/parser.mly"
|
|
( (label, mutable_, Cfk_virtual ty), attrs )
|
|
# 45532 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 45579 "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.MenhirLib.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 =
|
|
# 3404 "parsing/parser.mly"
|
|
( _1 )
|
|
# 45593 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 45601 "parsing/parser.ml"
|
|
|
|
in
|
|
let _2 =
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 45607 "parsing/parser.ml"
|
|
in
|
|
let _1 =
|
|
# 3644 "parsing/parser.mly"
|
|
( Fresh )
|
|
# 45612 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1857 "parsing/parser.mly"
|
|
( (_4, _3, Cfk_concrete (_1, _6)), _2 )
|
|
# 45617 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 45670 "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.MenhirLib.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 =
|
|
# 3404 "parsing/parser.mly"
|
|
( _1 )
|
|
# 45685 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 45693 "parsing/parser.ml"
|
|
|
|
in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 45701 "parsing/parser.ml"
|
|
|
|
in
|
|
let _1 =
|
|
# 3645 "parsing/parser.mly"
|
|
( Override )
|
|
# 45707 "parsing/parser.ml"
|
|
in
|
|
|
|
# 1857 "parsing/parser.mly"
|
|
( (_4, _3, Cfk_concrete (_1, _6)), _2 )
|
|
# 45712 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 45766 "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.MenhirLib.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 =
|
|
# 3404 "parsing/parser.mly"
|
|
( _1 )
|
|
# 45780 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 45788 "parsing/parser.ml"
|
|
|
|
in
|
|
let _startpos__4_ = _startpos__1_inlined1_ in
|
|
let _2 =
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 45795 "parsing/parser.ml"
|
|
in
|
|
let (_endpos__2_, _startpos__2_) = (_endpos__1_, _startpos__1_) in
|
|
let _1 =
|
|
# 3644 "parsing/parser.mly"
|
|
( Fresh )
|
|
# 45801 "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
|
|
|
|
# 1860 "parsing/parser.mly"
|
|
( let e = mkexp_constraint ~loc:_sloc _7 _5 in
|
|
(_4, _3, Cfk_concrete (_1, e)), _2
|
|
)
|
|
# 45821 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _7;
|
|
MenhirLib.EngineTypes.startp = _startpos__7_;
|
|
MenhirLib.EngineTypes.endp = _endpos__7_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _6;
|
|
MenhirLib.EngineTypes.startp = _startpos__6_;
|
|
MenhirLib.EngineTypes.endp = _endpos__6_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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 : (
|
|
# 647 "parsing/parser.mly"
|
|
(string)
|
|
# 45881 "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.MenhirLib.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 =
|
|
# 3404 "parsing/parser.mly"
|
|
( _1 )
|
|
# 45896 "parsing/parser.ml"
|
|
in
|
|
let _endpos = _endpos__1_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 45904 "parsing/parser.ml"
|
|
|
|
in
|
|
let _startpos__4_ = _startpos__1_inlined2_ in
|
|
let _2 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 45913 "parsing/parser.ml"
|
|
|
|
in
|
|
let (_endpos__2_, _startpos__2_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in
|
|
let _1 =
|
|
# 3645 "parsing/parser.mly"
|
|
( Override )
|
|
# 45920 "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
|
|
|
|
# 1860 "parsing/parser.mly"
|
|
( let e = mkexp_constraint ~loc:_sloc _7 _5 in
|
|
(_4, _3, Cfk_concrete (_1, e)), _2
|
|
)
|
|
# 45939 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined3;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ty;
|
|
MenhirLib.EngineTypes.startp = _startpos_ty_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ty_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _5;
|
|
MenhirLib.EngineTypes.startp = _startpos__5_;
|
|
MenhirLib.EngineTypes.endp = _endpos__5_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = ext;
|
|
MenhirLib.EngineTypes.startp = _startpos_ext_;
|
|
MenhirLib.EngineTypes.endp = _endpos_ext_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3738 "parsing/parser.mly"
|
|
( _1 )
|
|
# 46008 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 46020 "parsing/parser.ml"
|
|
|
|
in
|
|
let attrs1 =
|
|
let _1 = _1_inlined1 in
|
|
|
|
# 3742 "parsing/parser.mly"
|
|
( _1 )
|
|
# 46028 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos_attrs2_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 2787 "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 )
|
|
# 46041 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let _menhir_s = _menhir_env.MenhirLib.EngineTypes.current in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _endpos = _startpos in
|
|
let _v : (Asttypes.virtual_flag) =
|
|
# 3605 "parsing/parser.mly"
|
|
( Concrete )
|
|
# 46059 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.virtual_flag) =
|
|
# 3606 "parsing/parser.mly"
|
|
( Virtual )
|
|
# 46084 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.mutable_flag) =
|
|
# 3629 "parsing/parser.mly"
|
|
( Immutable )
|
|
# 46109 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Asttypes.mutable_flag) =
|
|
# 3630 "parsing/parser.mly"
|
|
( Mutable )
|
|
# 46141 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Asttypes.mutable_flag) =
|
|
# 3631 "parsing/parser.mly"
|
|
( Mutable )
|
|
# 46173 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.private_flag) =
|
|
# 3636 "parsing/parser.mly"
|
|
( Public )
|
|
# 46198 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Asttypes.private_flag) =
|
|
# 3637 "parsing/parser.mly"
|
|
( Private )
|
|
# 46230 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Asttypes.private_flag) =
|
|
# 3638 "parsing/parser.mly"
|
|
( Private )
|
|
# 46262 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = xs;
|
|
MenhirLib.EngineTypes.startp = _startpos_xs_;
|
|
MenhirLib.EngineTypes.endp = _endpos_xs_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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 "<standard.mly>"
|
|
( List.rev xs )
|
|
# 46324 "parsing/parser.ml"
|
|
in
|
|
|
|
# 897 "parsing/parser.mly"
|
|
( xs )
|
|
# 46329 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 2887 "parsing/parser.mly"
|
|
( _1 )
|
|
# 46335 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos__6_ = _endpos_xs_ in
|
|
let _5 =
|
|
let _1 = _1_inlined2 in
|
|
|
|
# 3200 "parsing/parser.mly"
|
|
( _1 )
|
|
# 46344 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 46355 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__6_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 3123 "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))) )
|
|
# 46372 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _4;
|
|
MenhirLib.EngineTypes.startp = _startpos__4_;
|
|
MenhirLib.EngineTypes.endp = _endpos__4_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 3200 "parsing/parser.mly"
|
|
( _1 )
|
|
# 46427 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 46439 "parsing/parser.ml"
|
|
|
|
in
|
|
let _endpos = _endpos__5_ in
|
|
let _symbolstartpos = _startpos__1_ in
|
|
let _sloc = (_symbolstartpos, _endpos) in
|
|
|
|
# 3136 "parsing/parser.mly"
|
|
( let lident = loc_last _3 in
|
|
Pwith_typesubst
|
|
(_3,
|
|
(Type.mk lident
|
|
~params:_2
|
|
~manifest:_5
|
|
~loc:(make_loc _sloc))) )
|
|
# 46454 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 46505 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 46516 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3144 "parsing/parser.mly"
|
|
( Pwith_module (_2, _4) )
|
|
# 46522 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined2;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _3;
|
|
MenhirLib.EngineTypes.startp = _startpos__3_;
|
|
MenhirLib.EngineTypes.endp = _endpos__3_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _1_inlined1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_inlined1_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 46573 "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
|
|
|
|
# 813 "parsing/parser.mly"
|
|
( mkrhs _1 _sloc )
|
|
# 46584 "parsing/parser.ml"
|
|
|
|
in
|
|
|
|
# 3146 "parsing/parser.mly"
|
|
( Pwith_modsubst (_2, _4) )
|
|
# 46590 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
} = _menhir_stack in
|
|
let _1 : unit = Obj.magic _1 in
|
|
let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__1_ in
|
|
let _v : (Asttypes.private_flag) =
|
|
# 3149 "parsing/parser.mly"
|
|
( Public )
|
|
# 46615 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
(fun _menhir_env ->
|
|
let _menhir_stack = _menhir_env.MenhirLib.EngineTypes.stack in
|
|
let {
|
|
MenhirLib.EngineTypes.state = _;
|
|
MenhirLib.EngineTypes.semv = _2;
|
|
MenhirLib.EngineTypes.startp = _startpos__2_;
|
|
MenhirLib.EngineTypes.endp = _endpos__2_;
|
|
MenhirLib.EngineTypes.next = {
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = _1;
|
|
MenhirLib.EngineTypes.startp = _startpos__1_;
|
|
MenhirLib.EngineTypes.endp = _endpos__1_;
|
|
MenhirLib.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.MenhirLib.EngineTypes.endp in
|
|
let _startpos = _startpos__1_ in
|
|
let _endpos = _endpos__2_ in
|
|
let _v : (Asttypes.private_flag) =
|
|
# 3150 "parsing/parser.mly"
|
|
( Private )
|
|
# 46647 "parsing/parser.ml"
|
|
in
|
|
{
|
|
MenhirLib.EngineTypes.state = _menhir_s;
|
|
MenhirLib.EngineTypes.semv = Obj.repr _v;
|
|
MenhirLib.EngineTypes.startp = _startpos;
|
|
MenhirLib.EngineTypes.endp = _endpos;
|
|
MenhirLib.EngineTypes.next = _menhir_stack;
|
|
});
|
|
|]
|
|
|
|
and trace =
|
|
None
|
|
|
|
end
|
|
|
|
module MenhirInterpreter = struct
|
|
|
|
module ET = MenhirLib.TableInterpreter.MakeEngineTable (Tables)
|
|
|
|
module TI = MenhirLib.Engine.Make (ET)
|
|
|
|
include TI
|
|
|
|
end
|
|
|
|
let use_file =
|
|
fun lexer lexbuf ->
|
|
(Obj.magic (MenhirInterpreter.entry 1809 lexer lexbuf) : (
|
|
# 783 "parsing/parser.mly"
|
|
(Parsetree.toplevel_phrase list)
|
|
# 46678 "parsing/parser.ml"
|
|
))
|
|
|
|
and toplevel_phrase =
|
|
fun lexer lexbuf ->
|
|
(Obj.magic (MenhirInterpreter.entry 1789 lexer lexbuf) : (
|
|
# 781 "parsing/parser.mly"
|
|
(Parsetree.toplevel_phrase)
|
|
# 46686 "parsing/parser.ml"
|
|
))
|
|
|
|
and parse_val_longident =
|
|
fun lexer lexbuf ->
|
|
(Obj.magic (MenhirInterpreter.entry 1783 lexer lexbuf) : (
|
|
# 793 "parsing/parser.mly"
|
|
(Longident.t)
|
|
# 46694 "parsing/parser.ml"
|
|
))
|
|
|
|
and parse_pattern =
|
|
fun lexer lexbuf ->
|
|
(Obj.magic (MenhirInterpreter.entry 1779 lexer lexbuf) : (
|
|
# 789 "parsing/parser.mly"
|
|
(Parsetree.pattern)
|
|
# 46702 "parsing/parser.ml"
|
|
))
|
|
|
|
and parse_mty_longident =
|
|
fun lexer lexbuf ->
|
|
(Obj.magic (MenhirInterpreter.entry 1775 lexer lexbuf) : (
|
|
# 795 "parsing/parser.mly"
|
|
(Longident.t)
|
|
# 46710 "parsing/parser.ml"
|
|
))
|
|
|
|
and parse_mod_longident =
|
|
fun lexer lexbuf ->
|
|
(Obj.magic (MenhirInterpreter.entry 1771 lexer lexbuf) : (
|
|
# 799 "parsing/parser.mly"
|
|
(Longident.t)
|
|
# 46718 "parsing/parser.ml"
|
|
))
|
|
|
|
and parse_mod_ext_longident =
|
|
fun lexer lexbuf ->
|
|
(Obj.magic (MenhirInterpreter.entry 1767 lexer lexbuf) : (
|
|
# 797 "parsing/parser.mly"
|
|
(Longident.t)
|
|
# 46726 "parsing/parser.ml"
|
|
))
|
|
|
|
and parse_expression =
|
|
fun lexer lexbuf ->
|
|
(Obj.magic (MenhirInterpreter.entry 1763 lexer lexbuf) : (
|
|
# 787 "parsing/parser.mly"
|
|
(Parsetree.expression)
|
|
# 46734 "parsing/parser.ml"
|
|
))
|
|
|
|
and parse_core_type =
|
|
fun lexer lexbuf ->
|
|
(Obj.magic (MenhirInterpreter.entry 1759 lexer lexbuf) : (
|
|
# 785 "parsing/parser.mly"
|
|
(Parsetree.core_type)
|
|
# 46742 "parsing/parser.ml"
|
|
))
|
|
|
|
and parse_constr_longident =
|
|
fun lexer lexbuf ->
|
|
(Obj.magic (MenhirInterpreter.entry 1755 lexer lexbuf) : (
|
|
# 791 "parsing/parser.mly"
|
|
(Longident.t)
|
|
# 46750 "parsing/parser.ml"
|
|
))
|
|
|
|
and parse_any_longident =
|
|
fun lexer lexbuf ->
|
|
(Obj.magic (MenhirInterpreter.entry 1737 lexer lexbuf) : (
|
|
# 801 "parsing/parser.mly"
|
|
(Longident.t)
|
|
# 46758 "parsing/parser.ml"
|
|
))
|
|
|
|
and interface =
|
|
fun lexer lexbuf ->
|
|
(Obj.magic (MenhirInterpreter.entry 1733 lexer lexbuf) : (
|
|
# 779 "parsing/parser.mly"
|
|
(Parsetree.signature)
|
|
# 46766 "parsing/parser.ml"
|
|
))
|
|
|
|
and implementation =
|
|
fun lexer lexbuf ->
|
|
(Obj.magic (MenhirInterpreter.entry 0 lexer lexbuf) : (
|
|
# 777 "parsing/parser.mly"
|
|
(Parsetree.structure)
|
|
# 46774 "parsing/parser.ml"
|
|
))
|
|
|
|
module Incremental = struct
|
|
|
|
let use_file =
|
|
fun initial_position ->
|
|
(Obj.magic (MenhirInterpreter.start 1809 initial_position) : (
|
|
# 783 "parsing/parser.mly"
|
|
(Parsetree.toplevel_phrase list)
|
|
# 46784 "parsing/parser.ml"
|
|
) MenhirInterpreter.checkpoint)
|
|
|
|
and toplevel_phrase =
|
|
fun initial_position ->
|
|
(Obj.magic (MenhirInterpreter.start 1789 initial_position) : (
|
|
# 781 "parsing/parser.mly"
|
|
(Parsetree.toplevel_phrase)
|
|
# 46792 "parsing/parser.ml"
|
|
) MenhirInterpreter.checkpoint)
|
|
|
|
and parse_val_longident =
|
|
fun initial_position ->
|
|
(Obj.magic (MenhirInterpreter.start 1783 initial_position) : (
|
|
# 793 "parsing/parser.mly"
|
|
(Longident.t)
|
|
# 46800 "parsing/parser.ml"
|
|
) MenhirInterpreter.checkpoint)
|
|
|
|
and parse_pattern =
|
|
fun initial_position ->
|
|
(Obj.magic (MenhirInterpreter.start 1779 initial_position) : (
|
|
# 789 "parsing/parser.mly"
|
|
(Parsetree.pattern)
|
|
# 46808 "parsing/parser.ml"
|
|
) MenhirInterpreter.checkpoint)
|
|
|
|
and parse_mty_longident =
|
|
fun initial_position ->
|
|
(Obj.magic (MenhirInterpreter.start 1775 initial_position) : (
|
|
# 795 "parsing/parser.mly"
|
|
(Longident.t)
|
|
# 46816 "parsing/parser.ml"
|
|
) MenhirInterpreter.checkpoint)
|
|
|
|
and parse_mod_longident =
|
|
fun initial_position ->
|
|
(Obj.magic (MenhirInterpreter.start 1771 initial_position) : (
|
|
# 799 "parsing/parser.mly"
|
|
(Longident.t)
|
|
# 46824 "parsing/parser.ml"
|
|
) MenhirInterpreter.checkpoint)
|
|
|
|
and parse_mod_ext_longident =
|
|
fun initial_position ->
|
|
(Obj.magic (MenhirInterpreter.start 1767 initial_position) : (
|
|
# 797 "parsing/parser.mly"
|
|
(Longident.t)
|
|
# 46832 "parsing/parser.ml"
|
|
) MenhirInterpreter.checkpoint)
|
|
|
|
and parse_expression =
|
|
fun initial_position ->
|
|
(Obj.magic (MenhirInterpreter.start 1763 initial_position) : (
|
|
# 787 "parsing/parser.mly"
|
|
(Parsetree.expression)
|
|
# 46840 "parsing/parser.ml"
|
|
) MenhirInterpreter.checkpoint)
|
|
|
|
and parse_core_type =
|
|
fun initial_position ->
|
|
(Obj.magic (MenhirInterpreter.start 1759 initial_position) : (
|
|
# 785 "parsing/parser.mly"
|
|
(Parsetree.core_type)
|
|
# 46848 "parsing/parser.ml"
|
|
) MenhirInterpreter.checkpoint)
|
|
|
|
and parse_constr_longident =
|
|
fun initial_position ->
|
|
(Obj.magic (MenhirInterpreter.start 1755 initial_position) : (
|
|
# 791 "parsing/parser.mly"
|
|
(Longident.t)
|
|
# 46856 "parsing/parser.ml"
|
|
) MenhirInterpreter.checkpoint)
|
|
|
|
and parse_any_longident =
|
|
fun initial_position ->
|
|
(Obj.magic (MenhirInterpreter.start 1737 initial_position) : (
|
|
# 801 "parsing/parser.mly"
|
|
(Longident.t)
|
|
# 46864 "parsing/parser.ml"
|
|
) MenhirInterpreter.checkpoint)
|
|
|
|
and interface =
|
|
fun initial_position ->
|
|
(Obj.magic (MenhirInterpreter.start 1733 initial_position) : (
|
|
# 779 "parsing/parser.mly"
|
|
(Parsetree.signature)
|
|
# 46872 "parsing/parser.ml"
|
|
) MenhirInterpreter.checkpoint)
|
|
|
|
and implementation =
|
|
fun initial_position ->
|
|
(Obj.magic (MenhirInterpreter.start 0 initial_position) : (
|
|
# 777 "parsing/parser.mly"
|
|
(Parsetree.structure)
|
|
# 46880 "parsing/parser.ml"
|
|
) MenhirInterpreter.checkpoint)
|
|
|
|
end
|
|
|
|
# 3772 "parsing/parser.mly"
|
|
|
|
|
|
# 46888 "parsing/parser.ml"
|
|
|
|
# 269 "<standard.mly>"
|
|
|
|
|
|
# 46893 "parsing/parser.ml"
|