diff --git a/ocaml/boot/menhir/parser.ml b/ocaml/boot/menhir/parser.ml index da032638e6d..9e114bb5da6 100644 --- a/ocaml/boot/menhir/parser.ml +++ b/ocaml/boot/menhir/parser.ml @@ -16,7 +16,7 @@ module MenhirBasics = struct | VAL | UNDERSCORE | UIDENT of ( -# 1009 "parsing/parser.mly" +# 987 "parsing/parser.mly" (string) # 22 "parsing/parser.ml" ) @@ -28,7 +28,7 @@ module MenhirBasics = struct | THEN | STRUCT | STRING of ( -# 996 "parsing/parser.mly" +# 974 "parsing/parser.mly" (string * Location.t * string option) # 34 "parsing/parser.ml" ) @@ -41,12 +41,12 @@ module MenhirBasics = struct | RBRACKET | RBRACE | QUOTED_STRING_ITEM of ( -# 1000 "parsing/parser.mly" +# 978 "parsing/parser.mly" (string * Location.t * string * Location.t * string option) # 47 "parsing/parser.ml" ) | QUOTED_STRING_EXPR of ( -# 998 "parsing/parser.mly" +# 976 "parsing/parser.mly" (string * Location.t * string * Location.t * string option) # 52 "parsing/parser.ml" ) @@ -54,7 +54,7 @@ module MenhirBasics = struct | QUESTION | PRIVATE | PREFIXOP of ( -# 981 "parsing/parser.mly" +# 959 "parsing/parser.mly" (string) # 60 "parsing/parser.ml" ) @@ -64,7 +64,7 @@ module MenhirBasics = struct | PERCENT | OR | OPTLABEL of ( -# 974 "parsing/parser.mly" +# 952 "parsing/parser.mly" (string) # 70 "parsing/parser.ml" ) @@ -83,12 +83,12 @@ module MenhirBasics = struct | LPAREN | LOCAL | LIDENT of ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) # 89 "parsing/parser.ml" ) | LETOP of ( -# 936 "parsing/parser.mly" +# 914 "parsing/parser.mly" (string) # 94 "parsing/parser.ml" ) @@ -109,39 +109,39 @@ module MenhirBasics = struct | LBRACE | LAZY | LABEL of ( -# 942 "parsing/parser.mly" +# 920 "parsing/parser.mly" (string) # 115 "parsing/parser.ml" ) | INT of ( -# 940 "parsing/parser.mly" +# 918 "parsing/parser.mly" (string * char option) # 120 "parsing/parser.ml" ) | INITIALIZER | INHERIT | INFIXOP4 of ( -# 934 "parsing/parser.mly" +# 912 "parsing/parser.mly" (string) # 127 "parsing/parser.ml" ) | INFIXOP3 of ( -# 933 "parsing/parser.mly" +# 911 "parsing/parser.mly" (string) # 132 "parsing/parser.ml" ) | INFIXOP2 of ( -# 932 "parsing/parser.mly" +# 910 "parsing/parser.mly" (string) # 137 "parsing/parser.ml" ) | INFIXOP1 of ( -# 931 "parsing/parser.mly" +# 909 "parsing/parser.mly" (string) # 142 "parsing/parser.ml" ) | INFIXOP0 of ( -# 930 "parsing/parser.mly" +# 908 "parsing/parser.mly" (string) # 147 "parsing/parser.ml" ) @@ -150,17 +150,17 @@ module MenhirBasics = struct | IF | HASH_SUFFIX | HASH_INT of ( -# 941 "parsing/parser.mly" +# 919 "parsing/parser.mly" (string * char option) # 156 "parsing/parser.ml" ) | HASH_FLOAT of ( -# 918 "parsing/parser.mly" +# 896 "parsing/parser.mly" (string * char option) # 161 "parsing/parser.ml" ) | HASHOP of ( -# 993 "parsing/parser.mly" +# 971 "parsing/parser.mly" (string) # 166 "parsing/parser.ml" ) @@ -174,7 +174,7 @@ module MenhirBasics = struct | FUN | FOR | FLOAT of ( -# 917 "parsing/parser.mly" +# 895 "parsing/parser.mly" (string * char option) # 180 "parsing/parser.ml" ) @@ -189,7 +189,7 @@ module MenhirBasics = struct | ELSE | DOWNTO | DOTOP of ( -# 935 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) # 195 "parsing/parser.ml" ) @@ -197,14 +197,14 @@ module MenhirBasics = struct | DOT | DONE | DOCSTRING of ( -# 1017 "parsing/parser.mly" +# 995 "parsing/parser.mly" (Docstrings.docstring) # 203 "parsing/parser.ml" ) | DO | CONSTRAINT | COMMENT of ( -# 1016 "parsing/parser.mly" +# 994 "parsing/parser.mly" (string * Location.t) # 210 "parsing/parser.ml" ) @@ -216,7 +216,7 @@ module MenhirBasics = struct | COLON | CLASS | CHAR of ( -# 895 "parsing/parser.mly" +# 873 "parsing/parser.mly" (char) # 222 "parsing/parser.ml" ) @@ -229,7 +229,7 @@ module MenhirBasics = struct | ASSERT | AS | ANDOP of ( -# 937 "parsing/parser.mly" +# 915 "parsing/parser.mly" (string) # 235 "parsing/parser.ml" ) @@ -287,8 +287,6 @@ 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) @@ -303,8 +301,6 @@ let psig_typesubst ((nr, ext), tys) = (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 @@ -577,7 +573,7 @@ end let ppat_iarray loc elts = Jane_syntax.Immutable_arrays.pat_of - ~loc:(make_loc loc) + ~loc:(make_loc loc) ~attrs:[] (Iapat_immutable_array elts) let expecting loc nonterm = @@ -990,20 +986,6 @@ let check_layout loc id = let loc = make_loc loc in Attr.mk ~loc (mkloc id loc) (PStr []) -(* Jane syntax *) - -let mkexp_jane_syntax - ~loc - { Jane_syntax_parsing.With_attributes.jane_syntax_attributes; desc } - = - mkexp_attrs ~loc desc (None, jane_syntax_attributes) - -let mkpat_jane_syntax - ~loc - { Jane_syntax_parsing.With_attributes.jane_syntax_attributes; desc } - = - mkpat_attrs ~loc desc (None, jane_syntax_attributes) - (* Unboxed literals *) (* CR layouts v2: The [unboxed_*] functions will both be improved and lose @@ -1042,19 +1024,15 @@ end = struct | Value const_value -> mkexp ~loc (Pexp_constant const_value) | Unboxed const_unboxed -> - mkexp_jane_syntax ~loc - (Jane_syntax.Unboxed_constants.expr_of - ~loc:(make_loc loc) - const_unboxed) + Jane_syntax.Unboxed_constants.expr_of + ~loc:(make_loc loc) ~attrs:[] const_unboxed let to_pattern ~loc : t -> pattern = function | Value const_value -> mkpat ~loc (Ppat_constant const_value) | Unboxed const_unboxed -> - mkpat_jane_syntax ~loc - (Jane_syntax.Unboxed_constants.pat_of - ~loc:(make_loc loc) - const_unboxed) + Jane_syntax.Unboxed_constants.pat_of + ~loc:(make_loc loc) ~attrs:[] const_unboxed let assert_is_value ~loc ~where : t -> Parsetree.constant = function | Value x -> x @@ -1092,7 +1070,7 @@ let unboxed_float_type sloc tys = assert_unboxed_float_type ~loc:(make_loc sloc); Ptyp_constr (mkloc (Lident "float#") (make_loc sloc), tys) -# 1096 "parsing/parser.ml" +# 1074 "parsing/parser.ml" module Tables = struct @@ -1634,7 +1612,7 @@ module Tables = struct Obj.repr () and default_reduction = - (16, "\000\000\000\000\000\000\003J\003I\003H\003G\003F\003\024\003E\003D\003C\003B\003A\003@\003?\003>\003=\003<\003;\003:\0039\0038\0037\0036\0035\0034\0033\0032\003\023\0031\0030\003/\003.\003-\003,\003+\003*\003)\003(\003'\003&\003%\003$\003#\003\"\003!\003 \003\031\003\030\003\029\003\028\003\027\003\026\003\025\000\000\000\000\000/\000\202\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\186\001\213\001\192\001\210\001\209\001\208\001\214\001\218\000\000\003\187\001\212\001\211\001\193\001\216\001\207\001\206\001\205\001\204\001\203\001\201\001\217\001\215\000\000\000\000\000\000\000\238\000\000\000\000\001\196\000\000\000\000\000\000\001\198\000\000\000\000\000\000\001\200\001\222\001\219\001\202\001\194\001\220\001\221\000\000\003\185\003\184\003\188\000\000\000\000\000\026\001k\000\204\000\000\000\232\000\233\000\000\000\000\000\000\001\244\001\243\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\181\000\000\003\176\000\000\000\000\003\178\000\000\003\180\000\000\003\177\003\179\000\000\003\171\000\000\003\170\000\000\000\000\002\001\001\017\003\166\000\000\0016\002\000\000\000\003\169\000\000\002i\002h\000\000\000\000\000\000\000\000\000\000\000\000\000x\000\000\000\025\000\000\000\000\000v\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\198\001w\000\000\000\000\000\000\000\000\000\000\000\000\002O\000\000\000\000\000\000\000\000\000\000\000\000\000q\000\000\000\000\000\000\000\000\000\000\003\004\000\000\002\162\002\164\002\165\002\163\000\000\002\158\002\160\002\161\002\159\000\000\000\000\000\000\000\000\000\000\001\142\001\141\000\000\003\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\241\000\017\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001u\000\000\000\000\001x\001v\001~\000G\002\200\003\135\003\134\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000u\000\000\000\250\000\000\002\167\002\166\000\000\000\000\000\000\001\226\000\000\000\000\000*\000\000\000\000\000\000\001i\000\000\000\000\001}\000\000\001|\000\000\001l\001{\000\000\001j\000h\000#\000\000\000\000\001\169\000\000\000\027\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\165\000-\000\000\000\000\000$\000\000\000\028\000\000\000\000\000\000\000\000\003[\000\000\000\000\000\217\000\000\000\000\000\000\000%\000\000\000\029\000\000\000\018\000\000\000\137\000\000\000\000\000\000\000\019\000\000\000\000\002Z\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003P\000\000\000\023\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003R\000\000\000\000\000\000\000\000\000\000\003S\000\000\000\000\000\000\000\000\000\000\003Q\000\000\003Y\002v\002d\000\000\000'\000\000\002e\000\000\000\000\001\223\000\000\000\000\000\000\000\000\003\136\000\000\003\137\000\000\000\000\000&\000\000\000\000\000\000\000(\000\000\000)\000\000\000+\000\000\000\000\000,\002X\002W\000\000\000\000\000\000\000\000\000\000\000\000\000o\000\000\003\t\000s\000t\000\000\003\b\000r\000w\000p\002\254\003\189\002\255\002!\003\001\000\000\000\000\003\005\002\157\003\007\000\000\000\000\000\000\003\015\003\012\000\000\000\000\000\000\002\029\002\015\000\000\000\000\000\000\000\000\002\019\000\000\002\014\000\000\002 \003\021\000\000\000\000\000\000\000\000\001\171\000\000\000\000\002\031\003\006\000\127\000\000\000\000\000~\000\000\003\016\003\000\000\000\002\025\000\000\000\000\003\019\000\000\003\018\003\017\000\000\002\021\000\000\000\000\002\017\002\016\002\030\002\022\000\000\000}\000\000\003\014\003\r\000\000\003\011\000\000\002\169\002\168\000\000\000\000\002\128\003\n\000\000\000\000\000\000\000\000\001\228\001Q\001R\002\172\000\000\002\171\002\170\002\175\000\000\002\174\002\173\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\001\007\001\t\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\218\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\152\000\000\000\000\000\000\000\000\000\000\000\000\003\212\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\168\000\000\000\000\000\000\000\000\000\000\001\151\000\000\000\000\000\000\001t\001\158\001s\001\155\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002b\000\000\000\000\002c\002T\002S\000\000\001\150\001\149\000\000\000\219\000\000\000\000\001\135\000\000\000\000\001\139\000\000\001\248\001\247\000\000\000\000\001\246\001\245\001\138\001\136\000\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\002\206\001y\002\210\002\208\000\000\000\000\000\000\002\222\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\243\000\000\002\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\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\001\005\000\000\000\000\001\004\002+\001\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\002\219\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\162\000\000\000\000\003\161\000\000\000\000\000\000\000\000\000\254\000\253\000\000\000\255\000\000\000\000\000\000\002\218\000\000\000\000\000\000\002\188\002\179\000\000\000\000\000\000\000\000\003\190\002\221\002\207\002\250\000\000\000\000\000\183\000\000\000\000\000\000\000\000\000\000\000\197\000\000\000\000\000\000\000\182\000\000\000\000\000\000\002\135\002\134\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\011\000\000\000\000\002Y\000\000\000\000\000\000\001\015\000\000\000\000\000\000\000\000\000\000\001\014\001\n\000\000\001U\000\000\000\000\001T\001\012\001S\001W\000\000\001V\000\000\000\000\001\r\000\000\000\000\000\000\000\000\000\000\001\016\000\000\000\000\000\000\000\000\000\000\001\024\000\000\000\000\001\022\001\028\000\000\000\000\000\000\000\000\000\000\000\000\003M\000\000\000\000\000\211\000\210\000\000\003N\003O\000\000\000\000\000\000\000\000\000\000\000\000\001\025\000\000\000\000\000\000\000\000\001\023\000\000\000\000\001\021\001\020\000\000\000\000\000\000\000\000\001\027\000\000\000\000\001\026\000\000\002\028\000\000\000\000\002(\000\000\000\000\002*\000\000\000\000\002&\002%\002#\002$\000\000\000\000\000\000\001\018\000\000\000\000\001<\000\020\001\030\000\000\000\000\000\000\002\190\002\181\000\000\000\000\002\189\002\180\000\000\000\000\000\000\000\000\002\192\002\183\000\000\000\000\002z\000\000\000\000\002\196\002\187\000\000\000\000\002\194\002\185\002\214\000\000\000\000\000\000\000\000\000\000\002\191\000\000\000\000\000\000\000\000\000\000\002\195\000\000\000\000\000\000\000\000\000\000\002\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002V\002U\000\181\000\000\002\182\000\000\000\000\002\186\000\000\000\000\002\184\000\200\000\000\000\138\000\139\000\000\000\000\000\000\000\000\000\154\000\212\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\213\000\000\000\214\000\215\000\147\000\000\000\146\000\000\000\000\001Y\000\000\001Z\001X\002\\\000\000\000\000\002]\002[\000\000\000\000\000\000\000\000\000\000\001'\000\000\000\000\001(\000\000\000\000\000\184\000\000\001*\001)\000\000\000\000\002\223\002\215\000\000\002\248\000\000\002\249\002\247\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000k\002a\002`\000\000\002\238\002R\002Q\000\000\002\232\000\000\002\233\002\231\000\000\000\000\002\237\000\000\002\240\000\000\002\241\002\239\000\000\000\000\002\236\000\000\000\000\002\217\002\216\000\000\000\000\000\000\002B\000\000\001\242\000\000\000\000\000\000\002\131\002A\000\000\002\227\002\226\000\000\000\000\000\000\001z\000\000\002\198\000\000\002\199\002\197\000\000\002\225\002\224\000\000\000\000\000\000\002}\002\213\000\000\002\212\002\211\000\000\002\235\002\234\000\000\000\000\002\251\002\230\000\000\002\229\002\228\000\000\000\000\002\252\000\144\000\000\000\000\000\000\000\000\000\143\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\141\000\000\001\129\000\000\000\000\000\000\000y\000\000\000\000\000z\000\000\000\000\000\000\000\000\001\162\001\163\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\243\000\000\000\000\000\133\000\000\000\246\000\244\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\221\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\142\000{\000\000\000\000\002@\000\000\000\000\001\029\001\240\000\000\001\002\000\000\000\000\001\001\001\003\001%\000\000\000\199\002\246\000\000\002\245\002\244\000\000\000\000\002\253\002\209\000\000\000\000\000\000\000\000\002\201\000\000\002\203\000\000\002\202\000\000\002\177\002\176\000\000\002\178\000\000\000\000\000\000\000\000\001\255\001\249\000\000\001\254\000\000\001\252\000\000\001\253\000\000\001\250\000\000\000\000\001\251\000\000\001\189\000\000\000\000\000\000\001\188\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\156\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0012\003\128\000\000\000\000\003\127\000\000\000\000\000\000\000\000\000\000\0021\000\000\000\000\000\000\000\236\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\173\000\000\0027\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003L\000\000\000\000\002\136\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\191\000\000\000\000\000\000\001\190\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\157\000\000\000\000\000\000\000\000\001\144\000\000\001\143\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0014\002\150\000\000\000\000\000\000\002\148\000\000\000\000\000\000\002\147\000\000\001\131\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\198\000\000\000\000\002j\000\000\000\209\000\000\002k\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000K\000\000\000\000\000\000\000\000\001\168\000\000\001\167\000\000\000\000\000\000\000\000\000N\000\000\000\000\000\000\002>\000\000\002=\000\000\000\000\000\000\000\000\000O\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000T\000\000\000\000\000\000\000U\000S\000\000\000X\000\000\000\000\000\000\000\000\000\000\000M\000\000\000\000\000\000\000\000\000\000\000\000\000P\000\000\000W\000V\000\000\000Q\000R\000\000\001E\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0010\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\000d\000\000\000f\000e\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001.\002\155\002\140\000\000\002\146\002\141\002\153\002\152\002\151\002\149\001?\000\000\002\138\000\000\000\000\000\000\000\000\002\154\000\000\000\000\000\000\000\000\000\000\002O\000\000\000\000\0018\002\142\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\184\001\180\000\000\000\000\000\000\000\226\000\000\000\000\002E\002O\000\000\000\000\001:\002C\002D\000\000\000\000\000\000\000\000\000\000\001\187\001\183\001\179\000\000\000\000\000\227\000\000\000\000\001\186\001\182\001\178\001\176\002\143\002\139\002\156\001>\002.\002\137\000\000\000\000\000\000\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\160\000\000\000\000\000\000\003\193\000\000\000\000\003\195\000\000\000<\000\000\000\000\003\201\000\000\003\200\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\192\000\000\000\000\003\194\000\000\000\000\000\000\0029\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001h\000\000\000\000\001f\001d\000\000\000=\000\000\000\000\003\204\000\000\003\203\000\000\000\000\000\000\001b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001g\000\000\000\000\001e\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\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\0009\000\000\000\000\000]\000\000\0007\001!\000\000\000F\0003\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\031\000\000\000\\\000[\000\000\000\000\000a\000`\000\000\000\000\001\230\000\000\000;\000\000\000\000\000\000\000:\000\000\000\000\000\000\000>\000\000\000_\000b\000\000\000@\000A\000\000\001G\000\000\000\000\000\000\000\000\000\000\000\000\000D\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001,\003\131\003z\000\000\000\000\003~\003K\003y\003\130\003\129\001C\000\000\000\000\003w\000\000\000\000\000\000\000\000\003\133\000\000\003{\003x\003\132\002-\000\000\000\000\003u\0000\003t\000\000\000\000\000\207\000\000\000\240\000\000\000\000\001B\001A\000\000\001\133\001\132\000\000\000\000\003\020\003\003\000\000\000H\000\000\000\000\000I\000\000\000\000\002\205\002\204\000\000\000\000\000\150\000\000\000\000\0026\000\231\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\205\000\000\003}\002J\002K\002F\002H\002G\002I\000\000\000\000\000\000\000\206\000\000\000\000\002O\000\000\000\230\000\000\000\000\000\000\000\000\003|\000\000\000\203\000\000\000\000\000\000\000\000\000\000\000\000\001a\001[\000\000\000\000\001\\\000\"\000\000\000!\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003T\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003V\000\000\000\000\000\000\000\000\000\000\003W\000\000\000\000\000\000\000\000\000\000\003U\000\000\000\000\000\000\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\003X\000\000\000\000\001\185\001\181\000\000\001\177\003\164\000\000\002O\000\000\000\229\000\000\000\000\000\000\000\000\002\145\002N\002L\002M\000\000\000\000\000\000\002O\000\000\000\228\000\000\000\000\000\000\000\000\002\144\000\000\001\146\001\145\000\000\000\024\000\000\003\196\000\000\0001\000\000\000\000\000\000\000\000\000\153\000\000\000\234\000\001\000\000\000\000\000\239\000\002\000\000\000\000\000\000\001n\001o\000\003\000\000\000\000\000\000\000\000\001q\001r\001p\000\021\001m\000\022\000\000\002\002\000\000\000\004\000\000\002\003\000\000\000\005\000\000\002\004\000\000\000\000\002\005\000\006\000\000\000\007\000\000\002\006\000\000\000\b\000\000\002\007\000\000\000\t\000\000\002\b\000\000\000\n\000\000\002\t\000\000\000\011\000\000\002\n\000\000\000\000\002\011\000\012\000\000\000\000\002\012\000\r\000\000\000\000\000\000\000\000\000\000\003\151\003\146\003\147\003\150\003\148\000\000\000\000\000\000\003\144\003\139\003\140\003\143\003\141\000\000\003\155\000\014\000\000\003\154\000\000\001I\000\000\000\000\003\152\000\000\003\153\000\000\000\000\000\000\000\000\001M\001N\000\000\000\000\001L\001K\000\015\000\000\000\000\000\000\003\183\000\000\003\182") + (16, "\000\000\000\000\000\000\003J\003I\003H\003G\003F\003\024\003E\003D\003C\003B\003A\003@\003?\003>\003=\003<\003;\003:\0039\0038\0037\0036\0035\0034\0033\0032\003\023\0031\0030\003/\003.\003-\003,\003+\003*\003)\003(\003'\003&\003%\003$\003#\003\"\003!\003 \003\031\003\030\003\029\003\028\003\027\003\026\003\025\000\000\000\000\000/\000\202\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\186\001\213\001\192\001\210\001\209\001\208\001\214\001\218\000\000\003\187\001\212\001\211\001\193\001\216\001\207\001\206\001\205\001\204\001\203\001\201\001\217\001\215\000\000\000\000\000\000\000\238\000\000\000\000\001\196\000\000\000\000\000\000\001\198\000\000\000\000\000\000\001\200\001\222\001\219\001\202\001\194\001\220\001\221\000\000\003\185\003\184\003\188\000\000\000\000\000\026\001k\000\204\000\000\000\232\000\233\000\000\000\000\000\000\001\244\001\243\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\181\000\000\003\176\000\000\000\000\003\178\000\000\003\180\000\000\003\177\003\179\000\000\003\171\000\000\003\170\000\000\000\000\002\001\001\017\003\166\000\000\0016\002\000\000\000\003\169\000\000\002i\002h\000\000\000\000\000\000\000\000\000\000\000\000\000x\000\000\000\025\000\000\000\000\000v\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\198\001w\000\000\000\000\000\000\000\000\000\000\000\000\002O\000\000\000\000\000\000\000\000\000\000\000\000\000q\000\000\000\000\000\000\000\000\000\000\003\004\000\000\002\162\002\164\002\165\002\163\000\000\002\158\002\160\002\161\002\159\000\000\000\000\000\000\000\000\000\000\001\142\001\141\000\000\003\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\241\000\017\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001u\000\000\000\000\001x\001v\001~\000G\002\200\003\135\003\134\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000u\000\000\000\250\000\000\002\167\002\166\000\000\000\000\000\000\001\226\000\000\000\000\000*\000\000\000\000\000\000\001i\000\000\000\000\001}\000\000\001|\000\000\001l\001{\000\000\001j\000h\000#\000\000\000\000\001\169\000\000\000\027\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\165\000-\000\000\000\000\000$\000\000\000\028\000\000\000\000\000\000\000\000\003[\000\000\000\000\000\217\000\000\000\000\000\000\000%\000\000\000\029\000\000\000\018\000\000\000\137\000\000\000\000\000\000\000\019\000\000\000\000\002Z\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003P\000\000\000\023\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003R\000\000\000\000\000\000\000\000\000\000\003S\000\000\000\000\000\000\000\000\000\000\003Q\000\000\003Y\002v\002d\000\000\000'\000\000\002e\000\000\000\000\001\223\000\000\000\000\000\000\000\000\003\136\000\000\003\137\000\000\000\000\000&\000\000\000\000\000\000\000(\000\000\000)\000\000\000+\000\000\000\000\000,\002X\002W\000\000\000\000\000\000\000\000\000\000\000\000\000o\000\000\003\t\000s\000t\000\000\003\b\000r\000w\000p\002\254\003\189\002\255\002!\003\001\000\000\000\000\003\005\002\157\003\007\000\000\000\000\000\000\003\015\003\012\000\000\000\000\000\000\002\029\002\015\000\000\000\000\000\000\000\000\002\019\000\000\002\014\000\000\002 \003\021\000\000\000\000\000\000\000\000\001\171\000\000\000\000\002\031\003\006\000\127\000\000\000\000\000~\000\000\003\016\003\000\000\000\002\025\000\000\000\000\003\019\000\000\003\018\003\017\000\000\002\021\000\000\000\000\002\017\002\016\002\030\002\022\000\000\000}\000\000\003\014\003\r\000\000\003\011\000\000\002\169\002\168\000\000\000\000\002\128\003\n\000\000\000\000\000\000\000\000\001\228\001Q\001R\002\172\000\000\002\171\002\170\002\175\000\000\002\174\002\173\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\001\007\001\t\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\218\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\152\000\000\000\000\000\000\000\000\000\000\000\000\003\212\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\168\000\000\000\000\000\000\000\000\000\000\001\151\000\000\000\000\000\000\001t\001\158\001s\001\155\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002b\000\000\000\000\002c\002T\002S\000\000\001\150\001\149\000\000\000\219\000\000\000\000\001\135\000\000\000\000\001\139\000\000\001\248\001\247\000\000\000\000\001\246\001\245\001\138\001\136\000\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\002\206\001y\002\210\002\208\000\000\000\000\000\000\002\222\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\243\000\000\002\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\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\001\005\000\000\000\000\001\004\002+\001\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\002\219\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\162\000\000\000\000\003\161\000\000\000\000\000\000\000\000\000\254\000\253\000\000\000\255\000\000\000\000\000\000\002\218\000\000\000\000\000\000\002\188\002\179\000\000\000\000\000\000\000\000\003\190\002\221\002\207\002\250\000\000\000\000\000\183\000\000\000\000\000\000\000\000\000\000\000\197\000\000\000\000\000\000\000\182\000\000\000\000\000\000\002\135\002\134\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\011\000\000\000\000\002Y\000\000\000\000\000\000\001\015\000\000\000\000\000\000\000\000\000\000\001\014\001\n\000\000\001U\000\000\000\000\001T\001\012\001S\001W\000\000\001V\000\000\000\000\001\r\000\000\000\000\000\000\000\000\000\000\001\016\000\000\000\000\000\000\000\000\000\000\001\024\000\000\000\000\001\022\001\028\000\000\000\000\000\000\000\000\000\000\000\000\003M\000\000\000\000\000\211\000\210\000\000\003N\003O\000\000\000\000\000\000\000\000\000\000\000\000\001\025\000\000\000\000\000\000\000\000\001\023\000\000\000\000\001\021\001\020\000\000\000\000\000\000\000\000\001\027\000\000\000\000\001\026\000\000\002\028\000\000\000\000\002(\000\000\000\000\002*\000\000\000\000\002&\002%\002#\002$\000\000\000\000\000\000\001\018\000\000\000\000\001<\000\020\001\030\000\000\000\000\000\000\002\190\002\181\000\000\000\000\002\189\002\180\000\000\000\000\000\000\000\000\002\192\002\183\000\000\000\000\002z\000\000\000\000\002\196\002\187\000\000\000\000\002\194\002\185\002\214\000\000\000\000\000\000\000\000\000\000\002\191\000\000\000\000\000\000\000\000\000\000\002\195\000\000\000\000\000\000\000\000\000\000\002\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002V\002U\000\181\000\000\002\182\000\000\000\000\002\186\000\000\000\000\002\184\000\200\000\000\000\138\000\139\000\000\000\000\000\000\000\000\000\154\000\212\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\213\000\000\000\214\000\215\000\147\000\000\000\146\000\000\000\000\001Y\000\000\001Z\001X\002\\\000\000\000\000\002]\002[\000\000\000\000\000\000\000\000\000\000\001'\000\000\000\000\001(\000\000\000\000\000\184\000\000\001*\001)\000\000\000\000\002\223\002\215\000\000\002\248\000\000\002\249\002\247\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000k\002a\002`\000\000\002\238\002R\002Q\000\000\002\232\000\000\002\233\002\231\000\000\000\000\002\237\000\000\002\240\000\000\002\241\002\239\000\000\000\000\002\236\000\000\000\000\002\217\002\216\000\000\000\000\000\000\002B\000\000\001\242\000\000\000\000\000\000\002\131\002A\000\000\002\227\002\226\000\000\000\000\000\000\001z\000\000\002\198\000\000\002\199\002\197\000\000\002\225\002\224\000\000\000\000\000\000\002}\002\213\000\000\002\212\002\211\000\000\002\235\002\234\000\000\000\000\002\251\002\230\000\000\002\229\002\228\000\000\000\000\002\252\000\144\000\000\000\000\000\000\000\000\000\143\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\141\000\000\001\129\000\000\000\000\000\000\000y\000\000\000\000\000z\000\000\000\000\000\000\000\000\001\162\001\163\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\243\000\000\000\000\000\133\000\000\000\246\000\244\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\221\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\142\000{\000\000\000\000\002@\000\000\000\000\001\029\001\240\000\000\001\002\000\000\000\000\001\001\001\003\001%\000\000\000\199\002\246\000\000\002\245\002\244\000\000\000\000\002\253\002\209\000\000\000\000\000\000\000\000\002\201\000\000\002\203\000\000\002\202\000\000\002\177\002\176\000\000\002\178\000\000\000\000\000\000\000\000\001\255\001\249\000\000\001\254\000\000\001\252\000\000\001\253\000\000\001\250\000\000\000\000\001\251\000\000\001\189\000\000\000\000\000\000\001\188\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\156\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0012\003\128\000\000\000\000\003\127\000\000\000\000\000\000\000\000\000\000\0021\000\000\000\000\000\000\000\236\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\173\000\000\0027\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003L\000\000\000\000\002\136\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\191\000\000\000\000\000\000\001\190\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\157\000\000\000\000\000\000\000\000\001\144\000\000\001\143\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0014\002\150\000\000\000\000\000\000\002\148\000\000\000\000\000\000\002\147\000\000\001\131\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\198\000\000\000\000\002j\000\000\000\209\000\000\002k\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000K\000\000\000\000\000\000\000\000\001\168\000\000\001\167\000\000\000\000\000\000\000\000\000N\000\000\000\000\000\000\002>\000\000\002=\000\000\000\000\000\000\000\000\000O\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000T\000\000\000\000\000\000\000U\000S\000\000\000X\000\000\000\000\000\000\000\000\000\000\000M\000\000\000\000\000\000\000\000\000\000\000\000\000P\000\000\000W\000V\000\000\000Q\000R\000\000\001E\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0010\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\000d\000\000\000f\000e\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001.\002\154\002\140\000\000\002\146\002\141\002\153\002\152\002\151\002\149\001?\000\000\002\138\000\000\000\000\000\000\000\000\002\156\000\000\000\000\000\000\000\000\000\000\002O\000\000\000\000\0018\002\142\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\184\001\180\000\000\000\000\000\000\000\226\000\000\000\000\002E\002O\000\000\000\000\001:\002C\002D\000\000\000\000\000\000\000\000\000\000\001\187\001\183\001\179\000\000\000\000\000\227\000\000\000\000\001\186\001\182\001\178\001\176\002\143\002\139\002\155\001>\002.\002\137\000\000\000\000\000\000\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\160\000\000\000\000\000\000\003\193\000\000\000\000\003\195\000\000\000<\000\000\000\000\003\201\000\000\003\200\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\192\000\000\000\000\003\194\000\000\000\000\000\000\0029\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001h\000\000\000\000\001f\001d\000\000\000=\000\000\000\000\003\204\000\000\003\203\000\000\000\000\000\000\001b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001g\000\000\000\000\001e\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\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\0009\000\000\000\000\000]\000\000\0007\001!\000\000\000F\0003\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\031\000\000\000\\\000[\000\000\000\000\000a\000`\000\000\000\000\001\230\000\000\000;\000\000\000\000\000\000\000:\000\000\000\000\000\000\000>\000\000\000_\000b\000\000\000@\000A\000\000\001G\000\000\000\000\000\000\000\000\000\000\000\000\000D\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001,\003\131\003z\000\000\000\000\003~\003K\003y\003\130\003\129\001C\000\000\000\000\003w\000\000\000\000\000\000\000\000\003\133\000\000\003{\003x\003\132\002-\000\000\000\000\003u\0000\003t\000\000\000\000\000\207\000\000\000\240\000\000\000\000\001B\001A\000\000\001\133\001\132\000\000\000\000\003\020\003\003\000\000\000H\000\000\000\000\000I\000\000\000\000\002\205\002\204\000\000\000\000\000\150\000\000\000\000\0026\000\231\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\205\000\000\003}\002J\002K\002F\002H\002G\002I\000\000\000\000\000\000\000\206\000\000\000\000\002O\000\000\000\230\000\000\000\000\000\000\000\000\003|\000\000\000\203\000\000\000\000\000\000\000\000\000\000\000\000\001a\001[\000\000\000\000\001\\\000\"\000\000\000!\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003T\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003V\000\000\000\000\000\000\000\000\000\000\003W\000\000\000\000\000\000\000\000\000\000\003U\000\000\000\000\000\000\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\003X\000\000\000\000\001\185\001\181\000\000\001\177\003\164\000\000\002O\000\000\000\229\000\000\000\000\000\000\000\000\002\145\002N\002L\002M\000\000\000\000\000\000\002O\000\000\000\228\000\000\000\000\000\000\000\000\002\144\000\000\001\146\001\145\000\000\000\024\000\000\003\196\000\000\0001\000\000\000\000\000\000\000\000\000\153\000\000\000\234\000\001\000\000\000\000\000\239\000\002\000\000\000\000\000\000\001n\001o\000\003\000\000\000\000\000\000\000\000\001q\001r\001p\000\021\001m\000\022\000\000\002\002\000\000\000\004\000\000\002\003\000\000\000\005\000\000\002\004\000\000\000\000\002\005\000\006\000\000\000\007\000\000\002\006\000\000\000\b\000\000\002\007\000\000\000\t\000\000\002\b\000\000\000\n\000\000\002\t\000\000\000\011\000\000\002\n\000\000\000\000\002\011\000\012\000\000\000\000\002\012\000\r\000\000\000\000\000\000\000\000\000\000\003\151\003\146\003\147\003\150\003\148\000\000\000\000\000\000\003\144\003\139\003\140\003\143\003\141\000\000\003\155\000\014\000\000\003\154\000\000\001I\000\000\000\000\003\152\000\000\003\153\000\000\000\000\000\000\000\000\001M\001N\000\000\000\000\001L\001K\000\015\000\000\000\000\000\000\003\183\000\000\003\182") and error = (132, "'\225 \197\138\173\249\156\244\005`?\200\000\003\142\0026\016\004\\(\223\137\159@\022\003\232\000\000\024\224}\246D\b/\227h\000\019\007\000{G\022\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\n\254\182oY\186\255\153\223\242^\135\252B y\224}\246D\b/\227h\000\019\007\000{G\022\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\0026\016\004X(\223\137\159@\022\003\232\000\000\024\224}\246D\b/\227h\000\019\007\000{G\022\002\131B~\018-X\170\223\153\207@V\003\252\000\000x\224\000\000\000\000@\000\160\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\n\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\160\000\000\000\000\000\000\000\000\000\b\000\b\000~\002\193 \000\015\129\016\002\b\001\002\139\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\160\000\000\000\000\000\000\000\000\000\001\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\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\001 \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\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\001\016\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\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\226\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\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\bX\011\186\000\131\"\144p0h\144\022\194*!\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\016 \226\224\128\000\b\000\000\000\000\000\000\016\004\004\004\002\n\b\016\000\000\004\000\000\000\000\000\001\000@@\000 \160\129\000\000\000@\000\000\000\000\000\016\004\004\000\002\n\b\000\000\000\004\000\000\000\000\000\196\128*\128\b0\137\007\000\004\136\001l 2\000HH\002\b\000\130\000\016P\000@\000\020@\000 \000\132\128 \128\b \001\004\000\004\000\001D\000\002\000\0000\000\002L\016J\000\016\002\000\000\000\000\000\000\128\003\000\000$\129\004\160\001\000 \000\000\000\000\000\b\0000\000\002H\016J\000\000\002\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\002\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\0000\000\002H\000J\000\000\002\000\000\000\000\000\000\128\002\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\002\000\000$\128\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\002\000\000 \128\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\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\128\000\000\000\000\016\000\000\000\000\000\b@\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\175\235\127\253\155\239\251\255\255'\233\255\204B\131\158@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\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\002H\000@\000\000\002\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\016\000 \000\000\002\000\016\000\000\000\000\000\b\000\000\001\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\bH\002( \130\000\016`\000@\000\022\192! \004\003 \000x\016\000\226\224\160\000\b\002\000@\000\016\bH\002(\000\194\b\144p\000H\128\020\194 a\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0002\000\007\001\000\014.\n\000\000\128 \004\000\001\000\003\000\bp\016 \226\224\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\003\000\000`\000\000\162\224\128\000\b\000\000\000\000\000\0000\000\007\001\002\014.\b\000\000\128\000\000\000\000\000\197\128\187\128\b2)\007\003\004\137\001l\002\166\017`0\000\006\000\000\014.\b\000\000\128\000\000\000\000\000\003\000\000p\016 \226\224\128\000\b\000\000\000\000\000\0000\000\006\000\000\n.\b\000\000\144\000\004\000\000\000\003\000\000p\016 \226\224\128\000\b\000\000\000\000\000\007\223d@\130\2546\128\0010p\007\180q`(4'\225\"\213\138\173\249\156\244\005`?\192\000\007\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\0000\000\002L\016J\000\016\002\000\000\000\000\000\000\128\003\000\000$\129\004\160\001\000 \000\000\000\000\000\b\0000\000\002H\016J\000\000\002\000\000\000\000\000\000\128\003\000\000$\128\004\160\000\000 \000\000\000\000\000\b\000\016\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\132\128\"\130\b \t\006\000\004\136\001l\002\002\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \t\006\000\004\136\001L\002\002\000G\223d@\130\2546\128\0010p\007\180q`(4'\225\"\213\138\173\249\156\244\005`?\192\000\007\142\0026\016\004\\(\223\137\159@\022\003\232\000\000\024\224#a\000E\130\141\248\153\244\001`>\128\000\001\142\0026\016\004X(\223\137\143@\022\003\232\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\018\016\004@(\n\t\142@\006\000`\000\000\024\192\132\000\000\128@\002\129\005\003\000\000\000\004\002\000\000\b@\000\b\000\000(\016P0\000\000\000@ \000\000\132\000\000\128\000\002\129\004\003\000\000\000\004\002\000\000\0002\016\004\b\000J\t\139@\014\128d\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@\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\004\000`\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b2\024\132~\002\203)\139O\143\144f\b\001\146\203\128\000\b\000\000\000\000\000\004\000`\004\000\000\000\000\b0\000\000\004\000\000\000\016\000\000\000\000\000\000\000\000\003\000\000\000\000\000\000\001\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\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\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000@@\000 \160\128\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\004\000\000\000\000\000\000\000\000\000\000\000\000\016 \004\000\000\b\b\016\000\000\004\000\000\000\000\000\001\002\000@\000\000\128\128\000\000\000@\000\000\000\000\n~\018\012X\170\223\153\223@V\003\252@\0008\224\167\225 \197\138\173\249\156\244\005`?\196\000\003\142\n~\018,X\170\223\153\207@V\003\252\192\0008\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016 \004\004\000\b\b\016\000\000\004\000\000\000\000\128\001\002\000@@\000\128\129\000\000\000@\000\000\000\000\000\016 \004\000\000\b\b\016\000\000\004\000\000\000\000\000\001\002\000@\000\000\128\128\000\000\000@\000\000\000\000\000P \004\000\000\b\b\000\000\000\004\000\000\000\000\000#a\000E\130\141\248\153\244\001`>\128\000\001\142\0026\016\004X(\223\137\143@\022\003\232\000\000\024\224\001\000\000\000@\000 \001\000\000\000\000\000\000\000\000\000\016\000\000\000\000\002\000\016\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\016\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\137\159@\022\003\232\000\000\024\224#a\000E\130\141\248\153\244\001`>\128\000\001\142\0026\016\004X(\223\137\143@\022\003\232\000\000\024\224\163a\136G\226\173\250\152\244\249q>\160\128\025\174\184\018\016\132@(\n\t\142@\006\000`\000\000\024\192#a\000E\130\141\248\152\244\001`>\128\000A\142\0026\016\004X(\223\137\143@\022\003\232\000\000\024\224\213\189\187\215\250\190\175\159\239\254\251\015o\182\255\252\2426\016\004X(\223\137\143@\022\003\232\000\000\024\224\003!\000@\128\004\160\152\180\000\232\006\000\000\001\004\0002\016\004\b\000J\t\139@\014\128d\000\004\016@\003!\000@\128\004\160\152\180\000\232\006@\000\001D\0002\016$\b\000J\t\139@\014\128d\000\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\017\000\000\000\000\000\000\000\000\000 \000\004\000\0000\000\007\001\000\014.\b\000\000\128\000\000\000\000\000\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\020\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\004\0000\000'\001\000\014.\b\000\000\128\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\014.\b\000\000\128\000\000\000\000@\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\020\000\016\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\002\000\000\000\129\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\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\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\016\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\014.\b\000\000\128\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\197\128\187\128\b2)\007\003\006\137\001l\002\162\017`\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\196\128;\128\b2\t\007\003\004\137\001l\002\162\017`0\000\007\001\000\014.\b\000\000\128\000\000\000\000\000\003\000\000`\000\000\162\224\128\000\b\000\000\000\000\000\012H\003\184\000\131 \144p0H\144\022\192*!\022\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\0000\000\006\000\000\n.\b\000\000\128\000\000\000\000\000\196\128;\128\b2\t\007\003\004\137\001l\002\162\017lH\011\184\000\131 \144p0H\144\022\192*!\022\003\000\000`\000\000\162\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\012X\011\184\000\131\"\144p0H\144\022\192*!\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\197\128\187\128\b2)\007\003\006\137\001l\002\162\017`\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\197\128\187\128\b2)\007\003\004\137\001l\002\162\017`0\000\006\000\000\n.\b\000\000\128\000\000\000\000\000\197\128\187\128\b2)\007\003\004\137\001l\002\162\017lH\003\184\000\131 \144p0H\144\022\192*!\022\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0000\000\006\000\000\014.\b\000\000\128\000\000\000\000\000\003\000\000p\016 \226\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\b\000\000\000\000\000\000\000\000\000\000\000\128\000\000\016\000\000\000\000\002\000\000\000\000\128\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\197\128\187\128\b2)\007\003\006\137\001l\002\162\017`\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000\226\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\b\000\000\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\196\128;\128\b2\t\007\003\004\137\001l\002\162\017@\000\000\002\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\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\0000\000\007\001\000\014.\b\000\000\128\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\001\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\0000\000\006\000\000\n.\b\000\000\128\000\000\000\000\000\196\128;\128\b2\t\007\003\004\137\001l\002\162\017lH\003\184\000\131 \144p0H\144\022\192*!\022\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\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0000\000\007\001\000\014.\b\000\000\128\000\000\000\000\000\000\000\b\000\000\000\000\001\000\000\000\000\000\000\128\000\0000\000\006\000\000\n.\b\000\000\128\000\000\000\000\000\003\000\000p\016 \226\224\128\000\b\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\002\000\000\000\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\000\000\000\128\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\0000\000\007\001\000\014.\b\000\000\128\000\000\000\000\000\003\000\000`\000\000\162\224\128\000\b\000\000\000\000\000\012H\003\184\000\131 \144p0H\144\022\192*!\022\196\128;\128\b2\t\007\003\004\137\001l\002\162\017`\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\0000\000\007\001\000\014.\b\000\000\128\000\000\000\000\000\003\000\000`\000\000\162\224\128\000\b\000\000\000\000\000\012H\003\184\000\131 \144p0H\144\022\192*!\022\196\128;\128\b2\t\007\003\004\137\001l\002\162\017`\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\0000\000\007\001\000\014.\b\000\000\128\000\000\000\000\000\003\000\000`\000\000\162\224\128\000\b\000\000\000\000\000\012H\003\184\000\131 \144p0H\144\022\192*!\022\196\128;\128\b2\t\007\003\004\137\001l\002\162\017`\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\196\128;\128\b2\t\007\003\004\137\001l\002\162\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\002\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\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\004\000\000\001\000\000\001\000\000\000\000\016\0000\000\007\001\000\014.\b\000\000\128\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0000\000\007\001\000\014.\b\000\000\128\000\000\000\000\000\000\000\002\000\000\000\000\001\000\000\001\000\000\000\000\016 0\000\007\001\000\014.\b\000\000\128\000\000\000\000\000\000\000\002\000\000\000\000\001\000\000\001\000\000\000\000\017 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\001\000\000\001\000\000\000\000\017 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\001\000\000\001\000\000\000\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\004\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\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\016\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\002\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\128\000\017\000\000\000\000\001\000\000\000\000 \000\000\000\b\000\001\016\000\000\000\000\000\000\000\000\002\000\000\000\000\003!\000@\128\004\160\152\180\000\232\006@\000\001\004\0002\016\004\012\000J\t\154@\014\128`\000\000\016@\003!\000@\128\004\160\153\164\000\232\006\000\000\001\004\0002\016\004\b\000J\t\138@\014\128`\000\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\001J\t\154\192.\128b\132\014\213P\000\001\000\000\128\004\000\000\004\000`\004\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\160\153\188\002\232\006h \237U\000\016\000\000\000\000\b\001\138\000\000\000\000\000\000\000\000\131!\b@\128\004\160\152\180\000\232\006@\000\t\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\0002\016\004\012\000J\t\155@\014\128d\000\000\016@\003!\000@\128\004\160\153\180\000\232\006@\000\001\004\0002\016\004\b\000J\t\139@\014\128d\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\144\000\027\000\000\016\000\001\000\002\000\000(\000\204Q\0002\016\004\b\000J\t\139@\014\128d\000\000\016@\144\000\027\000\000\016\000\001\000\002\000\000(\000\204Q\b2\016\004\b\000J\t\139@\014\128d\000\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\t\000\001\176\000\001\000\000\016\000 \000\002\128\012\197\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\t2\017\180\b\001J\t\155@.\128f\128\012\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\147!\027@\128\020\160\153\180\002\232\006h\000\205U\b:\024\132~\002\203)\139O\143\144f\b\001\146\203\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\002\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\003!\000@\128\004\160\152\164\000\232\006\000\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\128\000\b\000\000\000\000\000\004\000`\004\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\b\000\000\128\000\000\000\000\016\000\000\000\000\000\b\193\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\131!\000@\128\004\160\152\180\000\232\006@\000\001\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\144\000\027\000\000\016\000\001\000\002\000\000(\000\204Q\b0\000\007\001\000\014.\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\b\000\000\128\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\131!\000@\128\004\160\152\180\000\232\006@\000\001\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\144\000\027\000\000\016\000\001\000\002\000\000(\000\204Q\b\000\000\000\000\000\n\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\128\000\b\000\000\000\000\001\000\000\000\000\000\000\136\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\0002\016$\b\000J\t\139@\014\128d\000\000\016@\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\128\000\018\000\000\000\000\001\000\000\000\000\000\000\200Q\b2\016$\b\000J\t\139@\014\128d\000\004\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\128\000\017\000\000\000\000\001\000\000\000\000\000\000\136\017\b\000\001\016\000\000\000\000\000\000\000\000\000\000\000\000\000\131\000\001\000\000\000 \000\000\000\000\000\000\000\000\000\b\000\001\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\0002\144\005\t\000J\t\154\192.\128b\000\b\209X\000\000\000\000\000\000\160\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\128\000\000\000\000\000\000\000\000\002\000\000@\000\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\002\000\000\000\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\000\000\000\128\000\000\000\000\016\000\000\000\002\000\000\000\000\000\000\b\000\000\000\000\001\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\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\160\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\128\000\000\000\000\000\000\000\000\002\000\000\000\000#a\000E\130\141\248\152\244\001`>\128\000\001\142\0002\016D\012\130N\t\155@\014\128d\000\000\016@\001\002\000@@\000\128\129\000\000\000@\000\000\000\b\000\016 \004\004\000\b\b\016\000\000\004\000\000\000\000\000\001\002\000@\000\000\128\129\000\000\000@\000\000\000\000\000\016 \004\000\000\b\b\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\128\001\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\003\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\000\016\004\004\000\002\n\b\000\000\000\004\000\000\000\000\000\001\000@@\000 \160\128\000\000\000@\000\000\000\000\000\000\000\000\000\000\b\000\016\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\001\b\000\000\000\000\000\000\000\000\000\000\001\000@@\000 \160\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\196\128*\128\b0\t\007\000\004\136\001l\000\"\000@\b\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\003\000\000$\128\004\160\000\000 \000\000\000\000\000\b\000\016\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\016\000\0000\000\007\129\000\014.\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\0000\000\007\001\000\014.\b\000\000\128\000\000\000\000\000\196\128*\128\b0\t\007\000\004\136\001l\000\"\001@0\000\007\001\000\014.\b\000\000\128\000\000\000\000\000\196\128*\128\b0\t\007\000\004\136\001l\002\"\001LH\002\168\000\131\000\144p\000H\128\022\192\" \004\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\002\000\000\000\000\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\012H\002\168\000\131\000\144p\000H\128\022\192\" \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\024\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\002\000\001\000\000\001\000@@\000 \160\128\000\000\000@\000\000\000\000\012H\002\168\000\131\000\144p\000H\128\022\192\002 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\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\012H\002\168\000\131\b\144p\000H\128\022\194\003 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000@@\000 \160\128\000\000\000@\000\000\000\000\012H\002\168\000\131\000\144p\000H\128\022\192\002 \004\001\000@@\000 \160\128\000\000\000@\000\000\000\000\012H\002\168\000\131\000\144p\000H\128\022\192\002 \004\000\000\000\000\000\000\000\000\000\000\000\000 \016\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\196\128*\128\b0\137\007\000\004\136\001l \"\000@\016\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\012H\002\168\000\131\b\144p\000H\128\022\194\002 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\012H\002\168\000\131\000\144p\000H\128\022\192\002 \004\000\128\000\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\000\128\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\001\b\000\000\000\000\000\000\000\000\000\000\001\002\000@\000\000\128\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\196\128*\128\b0\137\007\000\006\136\001l\000&\000@P \132\000\000\b\b\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\b\000\000\128\000\000\b\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\001\000@@\000 \160\128\000\000\000@\000\000\000\000\012\000\000\128\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\137\007\000\006\136\001l &\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\001\000\002\000\000\000\000\000\000\0026\016\004X(\223\137\143@\022\003\232\000\000\024\224#a\000E\130\141\248\152\244\001`>\128\000\001\206\0026\016$X(\223\137\143@\022\003\232\000\000\024\224\000\000\000\000\000\000 \000\000\000\002\000\000\000\000\000\b\000\001\000\000\000\000\000\000\000\000 \002\000\000\000\000#a\000E\130\141\248\152\244\001`>\128\000\001\142\000\018\016\004@(\n\t\142@\006\000`\000\000\024\192\192\000\017\000\000\000\000\000\000\000\152\000 \160$\000\0026\016\004\\(\223\137\159@\022\003\232@\000\024\224#a\000E\130\141\248\153\244\001`>\132\000\001\142\0026\016\004X(\223\137\143@\022\003\232@\000\024\224\001!\000DB\128\160\153\228\000`\006\000\000\001\140\000\018\016\004@(\n\t\158@\006\000`\000\000\024\192\001!\000D\002\128\160\152\228\000`\006\000\000\001\140\000\018\016\004@(\n\t\142@\006\000`\000\000\024\192\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\213\189\187\215\250\190\171\159\239\254\251\015o\182\255\253\240\016\000\000\000\000\n\001\142\000\000\000\000\000\000\000\000\163a\136G\226\173\250\152\244\249q>\160\128\025\174\176\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\163a\bE\130\141\248\152\244\001`>\128\000\001\142\n6\016\132X(\223\137\143@\022\003\232\000\000\024\224\129\002\000@@\000\128\129\000\000\000@\000\000\000\000\000\016 \004\000\000\b\b\016\000\000\004\000\000\000\000\000\001\002\000@\000\000\128\128\000\000\000@\000\000\000\000\000\000\000\000\000\000\b\000\016\000\000\000\000\000\000@\000\129\000@@\000 \160\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\b\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\163a\bE\130\141\248\152\244\001`>\128\000\001\142\n6\016\132X(\223\137\143@\022\003\232\000\000\024\224\131!\b@\128\004\160\152\180\000\232\006\000\000\001\004\000\000\000\000\000\000\000\000\016\000\000\000\002\000\b\193\016\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\002\000\000\000\000#a\000E\130\141\248\152\244\001`>\128\000\001\142\0026\016\004\\(\223\137\159@\022\003\232\000\000\024\224#a\000E\130\141\248\153\244\001`>\128\000\001\142\0026\016\004X(\223\137\143@\022\003\232\000\000\024\224\003!\000@\192\004\160\153\180\000\232\006@\000\001\020\0002\016\004\b\000J\t\155@\014\128d\000\000\017@\003!\000@\128\004\160\152\180\000\232\006@\000\001\020\0002\016\004\b\000J\t\139@\014\128d\000\000\016@\016\000\000\000\000\016\000\001\000\000\000\000\000\000\136\017\0026\016\004X(\223\137\143@\022\003\232\000\000\024\224\003)\000P\208\004\160\153\172\000\232\006\000\000\001\004\0002\144\005\t\000J\t\154\192\014\128`\000\000\016@\003)\000P\144\004\160\152\172\000\232\006\000\000\001\004\000 \000\000\000\000\n\000\000\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\000N\t\139@\014\128d\000\000\016@\003!\000@\128\004\160\152\180\000\232\006@\000\001\004\000\000\000\128\000\000\000\000\016\000\000\000\002\000\b\193\016\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\002\000\000\000\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\000\000\000\128\000\000\000\000\016\000\000\000\002\000\000\000\000\000\000\b\000\000\000\000\001\000\000\000\000 \000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000 \000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b:\024\132~\002\207)\139O\143\144f\b\001\146\203\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\003)\000P\144\020\160\152\172\000\232\006\000\000\005\004\0026\016\004X(\223\137\143@\022\003\232\000\000\024\224\003!\000@\192\004\160\153\180\000\232\006@\000\001\004\0002\016\004\b\000J\t\155@\014\128d\000\000\016@\003!\000@\128\004\160\152\180\000\232\006@\000\001\004\000\000\000\000\000\000\000\000\016\000\000\000\002\000\b\129\016#a\000E\130\141\248\152\244\001`>\128\000\001\142\0026\016\004X(\223\137\143@\022\003\232\000\000\024\224\001!\000DB\128\160\153\228\000`\006\000\000\001\140\000\018\016\004@(\n\t\158@\006\000`\000\000\024\192\001!\000D\002\128\160\152\228\000`\006\000\000\001\140\rIK\184>\131\224\176p?\233\176\150\251o\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\001!\000D\002\128\160\152\228\000`\006\000\000\001\140\r[\219\189\127\171\234\185\254\255\239\176\246\251o\255\223\000\000\000\000\000\000\128\000\160\000\000\000\000\000\000\000\0026\016\004X(\223\137\143@\022\003\232\000\000\024\224#a\000E\130\141\248\152\244\001`>\128\000\001\142\r[\219\189\127\171\234\185\254\255\239\176\246\251o\255\207\000\000\000\000\000\000\160\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\b0\000\007\001\000\014.\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\b\000\001\144\000\000\000\000\016\000\000\000\002\000\000\000\000\131\000\000p\016\000\226\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\128\000\025\000\000\000\000\001\000\000\000\000 \000 \000\0000\000\007\001\000\014.\b\000\000\128\000\000\000\000\000\128\000\025\000\000\000\000\001\000\000\000\000 \000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001!\000D\002\128\160\152\228\000`\006\000\000\001\140\r[\219\189\127\171\234\185\254\255\239\176\246\251o\255\223\000\000\000\000\000\000 \000\000\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\160\000\160\000\000\000\000\000\000\000\0026\016\004X(\223\137\143@\022\003\232\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\000\000\000\rIK\184>\131\224\176p?\232\176\150\241o\231\015#a\000E\130\141\248\152\244\001`>\128\000\001\142\r[\219\189\127\171\234\185\254\255\239\176\246\251o\255\207\212\148\187\131\232>\011\007\003\254\155\to\182\254p\240\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\000\000\000\000\004#a\000E\130\141\248\152\244\001`>\128\000\001\142\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\212\148\187\131\232>\011\007\003\254\139\to\022\254p\2426\016\004X(\223\137\143@\022\003\232\000\000\024\224\212\148\187\131\232>\011\007\003\254\139\to\022\254p\2426\016\004X(\223\137\143@\022\003\232\000\000\024\224\212\148\187\131\232>\011\007\003\254\139\to\022\254p\240\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\213\189\187\215\250\190\171\159\239\254\251\015o\182\255\252\253IK\184>\131\224\176p?\233\176\150\251o\231\015#a\000E\130\141\248\152\244\001`>\128\000\001\142\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\247\245\187\199\234\191\251\159\247\255\235?\239\022\255\254\247\223d@\130\2546\128\0010p\007\180q`(4#a\000E\130\141\248\152\244\001`>\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\0026\016\004X(\223\137\143@\022\003\232\000\000\024\224\212\148\187\131\232>\011\007\003\254\139\to\022\254p\2426\016\004X(\223\137\143@\022\003\232\000\000\024\224\212\148\187\131\232>\011\007\003\254\139\to\022\254p\2426\016\004X(\223\137\143@\022\003\232\000\000\024\224\212\148\187\131\232>\011\007\003\254\139\to\022\254p\2426\016\004X(\223\137\143@\022\003\232\000\000\024\224\212\148\187\131\232>\011\007\003\254\139\to\022\254p\2426\016\004X(\223\137\143@\022\003\232\000\000\024\224\212\148\187\131\232>\011\007\003\254\139\to\022\254p\2426\016\004X(\223\137\143@\022\003\232\000\000\024\224\212\148\187\131\232>\011\007\003\254\139\to\022\254p\2426\016\004X(\223\137\143@\022\003\232\000\000\024\224\212\148\187\131\232>\011\007\003\254\139\to\022\254p\2426\016\004X(\223\137\143@\022\003\232\000\000\024\224\212\148\187\131\232>\011\007\003\254\139\to\022\254p\2426\016\004X(\223\137\143@\022\003\232\000\000\024\224\212\148\187\131\232>\011\007\003\254\139\to\022\254p\2426\016\004X(\223\137\143@\022\003\232\000\000\024\224\212\148\187\131\232>\011\007\003\254\139\to\022\254p\2426\016\004X(\223\137\143@\022\003\232\000\000\024\224\212\148\187\131\232>\011\007\003\254\139\to\022\254p\2426\016\004X(\223\137\143@\022\003\232\000\000\024\224\212\148\187\131\232>\011\007\003\254\139\to\022\254p\2426\016\004X(\223\137\143@\022\003\232\000\000\024\224\212\148\187\131\232>\011\007\003\254\139\to\022\254p\2426\016\004X(\223\137\143@\022\003\232\000\000\024\224\212\148\187\131\232>\011\007\003\254\139\to\022\254p\2426\016\004X(\223\137\143@\022\003\232\000\000\024\224\212\148\187\131\232>\011\007\003\254\139\to\022\254p\2426\016\004X(\223\137\143@\022\003\232\000\000\024\224\212\148\187\131\232>\011\007\003\254\139\to\022\254p\2426\016\004X(\223\137\143@\022\003\232\000\000\024\224\212\148\187\131\232>\011\007\003\254\139\to\022\254p\2426\016\004X(\223\137\143@\022\003\232\000\000\024\224\212\148\187\131\232>\011\007\003\254\139\to\022\254p\2426\016\004X(\223\137\143@\022\003\232\000\000\024\224\212\148\187\131\232>\011\007\003\254\139\to\022\254p\2426\016\004X(\223\137\143@\022\003\232\000\000\024\224\212\148\187\131\232>\011\007\003\254\139\to\022\254p\2402\016\004\b\000N\t\155@\014\128`\000\000\016@\003!\000@\128\004\224\152\180\000\232\006\000\000\001\004\000\000\000\000\000\000\n\000\000\000\000\000\000\000\000\000\000\003)\000P\144\004\160\152\172\000\232\006 \000%\004\b:\024\132~\002\207)\139O\143\144f\b\001\146\203\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\003)\000P\144\004\160\152\172\000\232\006 \000%\004\0002\016\004\b\000J\t\138@\014\128`\000\000\016@\131!\136G\224,\242\152\180\248\249\006`\128\025,\1762\016\004\b\000J\t\139@\014\128d\000\000\016@\000\000\b\000\000\000\000\001\000\000\000\000\000\000\140\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\016\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\002\000\000\000\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\000\000\000\128\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\b\000\000\128\000\000\000\000\016\000\000\000\000\000\b\193\016\131\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\002\000\000\000\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\000\000\000\128\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#a\000E\130\141\248\152\244\001`>\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\0026\016\004X(\223\137\143@\022\003\232\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003)\000P\144\004\160\152\172\000\232\006 \000%\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003!\000@\128\004\160\152\180\000\232\006@\000\001\004\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\b\000\000\128\000\000\000\000\016\000\000\000\000\000\b\193\016\131\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\002\000\000\000\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\000\000\000\128\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\b0\000\007\001\000\014.\b\000\000\128\000\000\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\000 \000\000\0000\000\007\001\000\014.\b\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000 \000\000\000\0026\016\004X(\223\137\143@\022\003\232\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\002\000\000\000\000#a\000E\130\141\248\152\244\001`>\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\bz\146-\t\130J\153\250\192n\128v\192\n\241T\131\161\136G\224,\242\152\180\248\249\006`\128\025,\176\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\0002\144\005\t\000J\t\138\192\014\128b\000\002P@#a\000E\130\141\248\152\244\001`>\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\0026\016\004X(\223\137\143@\022\003\232\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\003)\000P\144\004\160\152\172\000\232\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\b8\000\007\001\000\014.\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\002\000\000\000\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\002\000\000\000\000#a\000E\130\141\248\152\244\001`>\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\0000\000\007\001\000\014.\b\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000 \000\000\000\0026\016\004X(\223\137\143@\022\003\232\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\002\000\000\000\000#a\000E\130\141\248\152\244\001`>\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\016\000\000\000\002\000\b\193\016\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\002\000\000\000\000#a\000E\130\141\248\152\244\001`>\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\001\000\000\000\000 \000\136\017\0026\016\004X(\223\137\143@\022\003\232\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b2\016\004\b\000J\t\139@\014\128d\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\016\000\000\000\002\000\b\129\016\131!\000@\128\004\160\152\180\000\232\006@\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\001\000\000\000\000 \000\136\017\b2\016\004\b\000J\t\139@\014\128d\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\016\000\000\000\002\000\b\129\016\128\000\000\000\000\000\160\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\002\000\b\129\016\003!\000@\128\004\160\152\180\000\232\006@\000\001\004\000\000\000\000\000\000\000\000\016\000\000\000\002\000\b\129\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bH\002(\000\130\000\144`\000h\128\020\192\000 \004\132\128\"\128\b\"\t\006\003\006\136\001L\002\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\212\148\187\131\232>\011\007\003\254\139\to\022\254p\2426\016\004X(\223\137\143@\022\003\232\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\000\000\000\0026\016\004X(\223\137\143@\022\003\232\000\000\024\224\128\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\n\000\000\000\000\000\000\000\000\000\128\000\160\000\000\000\000\000\000\000\0026\016\004X(\223\137\143@\022\003\232\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\000\000\000\b\000\t\176>\000\192 \016\015\128\016\002\000\r\134\003\163a\011E\130\141\248\152\244\001`>\128\000A\206\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000#a\000E\130\141\248\152\244\001`>\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\000\000\000#a\000E\130\141\248\152\244\001`>\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\000\000\000\000\018\016\004@(\n\t\142@\006\000`\000\000\024\192\213\189\187\215\250\190\171\159\239\254\251\015o\182\255\253\240\000\000\000\000\000\b\000\n\000\000\000\000\000\000\000\000#a\000E\130\141\248\152\244\001`>\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\r[\219\189\127\171\234\249\254\255\239\176\246\251o\255\207#a\000E\130\141\248\152\244\001`>\128\000\001\142\rIK\184>\131\224\176p?\232\176\150\241o\231\015#a\000E\130\141\248\152\244\001`>\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\r[\219\189\127\171\234\249\254\255\239\176\246\251o\255\207#a\000E\130\141\248\152\244\001`>\128\000\001\142\rIK\184>\131\224\176p?\232\176\150\241o\231\015#a\000E\130\141\248\152\244\001`>\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\r[\219\189\127\171\234\249\254\255\239\176\246\251o\255\207#a\000E\130\141\248\152\244\001`>\128\000\001\142\rIK\184>\131\224\176p?\232\176\150\241o\231\015\001\000\000\000\000\000\160\000\160\000\000\000\000\000\000\000\0026\016\004X(\223\137\143@\022\003\232\000\000\024\224\128\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\r[\219\189\127\171\234\249\254\255\239\176\246\251o\255\207#a\000E\130\141\248\152\244\001`>\128\000\001\142\rIK\184>\131\224\176p?\232\176\150\241o\231\015#a\000E\130\141\248\152\244\001`>\128\000\001\142\b\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\213\189\187\215\250\190\175\159\239\254\251\015o\182\255\252\2426\016\004X(\223\137\143@\022\003\232\000\000\024\224\212\148\187\131\232>\011\007\003\254\139\to\022\254p\2426\016\004X(\223\137\143@\022\003\232\000\000\024\224\128\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\r[\219\189\127\171\234\249\254\255\239\176\246\251o\255\207#a\000E\130\141\248\152\244\001`>\128\000\001\142\rIK\184>\131\224\176p?\232\176\150\241o\231\015\000\000\000\000\000\000\000\000\000\000\000\000\000\160\000\000\000\000\000\000\000\000\b\000\n\000\000\000\000\000\000\000\000#a\000E\130\141\248\152\244\001`>\128\000\001\142\b\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\213\189\187\215\250\190\175\159\239\254\251\015o\182\255\252\2426\016\004X(\223\137\143@\022\003\232\000\000\024\224\212\148\187\131\232>\011\007\003\254\139\to\022\254p\2426\016\004X(\223\137\143@\022\003\232\000\000\024\224\128\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\r[\219\189\127\171\234\249\254\255\239\176\246\251o\255\207#a\000E\130\141\248\152\244\001`>\128\000\001\142\rIK\184>\131\224\176p?\232\176\150\241o\231\015#a\000E\130\141\248\152\244\001`>\128\000\001\142\b\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\213\189\187\215\250\190\175\159\239\254\251\015o\182\255\252\2426\016\004X(\223\137\143@\022\003\232\000\000\024\224\212\148\187\131\232>\011\007\003\254\139\to\022\254p\253[\219\189\127\171\234\249\254\255\239\176\246\251o\255\207#a\000E\130\141\248\152\244\001`>\128\000\001\142\rIK\184>\131\224\176p?\232\176\150\241o\231\015\213\189\187\215\250\190\171\159\239\254\251\015o\182\255\253\253[\219\189\127\171\234\185\254\255\238\176\246\241o\255\207\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\0026\016\004X(\223\137\143@\022\003\232\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#a\000E\130\141\248\152\244\001`>\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\016\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\0026\016\004X(\223\137\143@\022\003\232\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\000\0026\016\004X(\223\137\143@\022\003\232\000\000\024\224\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:\024\132~\002\207)\139O\143\144f\b\001\146\203\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\003)\000P\144\020\160\152\172\000\232\006\000\000\005\004\0000\000\006\000\000\n.\b\000\000\128\000\000\000\000\000\001\000\000\000\000\016 \000\000\000\b\000\000\000\000\000\0026\016\004X(\223\137\143@\022\003\232\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0002\144\005\t\001J\t\138\192\014\128`\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\000\000\000\0002\144\005\t\001J\t\138\192\014\128`\000\000P@\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#a\000E\130\141\248\152\244\001`>\128\000\001\142\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000#a\000E\130\141\248\152\244\001`>\128 \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\000\000\000\212\148\187\131\232>\011\007\003\254\139\to\022\254p\2402\016\004\b\000J\t\139@\014\128d\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\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0026\016\004X(\223\137\143@\022\003\232\000\000\024\224\212\148\187\131\232>\011\007\003\254\139\to\022\254p\2426\016\004X(\223\137\143@\022\003\232\000\000\024\224\212\148\187\131\232>\011\007\003\254\139\to\022\254p\240\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\136\017\0026\016\004X(\223\137\143@\022\003\232\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\b#a\000E\130\141\248\152\244\001`>\128\000\001\142\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003!\000@\128\004\160\152\180\000\232\006\000\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\b\018\016\132@(\n\t\142@\006\000`\000\000\024\192\128\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0026\016\004X(\223\137\143@\022\003\232\000\004\024\224\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\144\000\144\003\224\012\002\001\000\248\001\b \000\216 26\016\004X(\223\137\143@\022\003\232\000\000\024\224\016\000\130\003\224\012\002\001\000\248\001\b \000\216`02\016\004\b\000N\t\155@\014\128d\000\000\016@\016\000\002\000\000\000\000\000\000\000\000\b\000\000@@@2\016\004\b\000N\t\155@\014\128d\000\000\016@\003!\000@\128\004\224\152\180\000\232\006@\000\001\004\0002\016\004\b\000J\t\139@\014\128d\000\000\016@\000\000\000\000\000\000\000\001\000\002\000\000\000\000\136\017\0026\016\004X(\223\137\143@\022\003\232\000\000\024\224\016\000\130\003\224\012\002\001\000\248\001\b \000\216`p\000\000\000\000\000\000\000\016\000 \000\002\000\b\129\016#a\000E\130\141\248\152\244\001`>\128\000\001\142\001\000\b >\000\192 \016\015\128\016\130\000\r\134\007#a\000E\130\141\248\152\244\001`>\128\000\001\142\000\001\b\000>\000\192 \016\015\128\016\002\016\t\130\003#a\000E\130\141\248\152\244\001`>\128\000\001\142\001\000\b >\000\192 \016\015\128\016\130\000\r\134\007\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\128\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\137\143@\022\003\232\000\000\028\224\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\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\144\000\144\003\224\012\002\001\000\248\001\b \000\152`1\000\000\000\000\000\000\000\000\000\000\000\128\000\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0026\016$X(\223\137\143@\022\003\232\000\000\024\224\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\144\000\146\003\224\012\002\001\000\248\001\b \000\152 1\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\002\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\018\016\004@(\n\t\142@\006\000`\000\000\024\192@\000\000\000\000\000\000\000\000\000\152\000\000\160\000\000\000\016\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\001\016\000\000\000\000\000\000\000\000\002\000\002@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\001\016\000\000\000\000\000\000\000\000\002\000\000\000\000\128\000\017\000\000\000\000\000\000\000\000\000\000\000\000\000\b\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000\t\128\000\n\000\000\000\001\000\000\000\000\000\160\024\224\000\000\000\000\000\000\000\012\000\001\016\000\000\000\000\000\000\t\128\002\n\002@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\rIK\184>\131\224\176p?\233\176\150\251o\231\015\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\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\b\000\t\016>\000\192 \016\015\1280\002\000\t\130\003\128\000\016\000\000\000\000\000\000\000\002\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\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\144\000\146\003\224\012\002\001\000\248\001\b \000\152 1\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\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\t\000\t\000>\000\192 \016\015\128\016\130\000\t\134\003\016\000\000\000\000\000\000\000\000\000\000\b\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016 \004\000\000\b\b\016\000\000\004\000\000\000\000\000\001\002\000@\000\000\128\128\000\000\000@\000\000\000\000\000\000\000\000\000\000\b\000\016\000 \000\000\000\000\000\000#a\000E\130\141\248\152\244\001`>\128\000\001\142\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000\000@\000\000\001\000\000\000\000\000\000\000\000\0000\000\000\000\000\000\000\016\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\b\000\000\000\000\000\002\000\000@\000\001\002\000@\000\000\128\128\000\000\000@\000\000\000\000\bH\002(\000\130\b\144p\000h\128\020\192\000 \004\001\000@@\000 \160\128\000\000\000@\000\000\000\000\004\000\000\000\000\001\000\000\016\000\000\000\002\000\000\000\000\001\002\000@\000\000\128\128\000\000\000@\000\000\000\000\bH\002(\000\130\b\144p\000h\128\020\192\000 \004\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\0026\016\004X(\223\137\143@\022\003\232\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\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\018\000\000\004\000\b\000\024\000\000\000 \000\000\000\000\001 \000\000\000\000\128\001\128\000\000\002\000\000\000\000\000\018\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\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\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\003\000\000`\000\000\162\224\160\000\b\128\000\000\000\000\000\000\000\000\000\004\002\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\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\002\000\000\000\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\000\000\001\016\000\000\000\000\016\000\000\016\000\000\000\000\016\000\000\017\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\001\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000@ \001\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\017\000\000\000\000\001\000\000\001\000\000\000\000\001\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\004\002\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\003\000\000`\000\000\162\224\128\000\b\000\000\000\000\000\bX\n(\000\131\002\144p\000h\128\020\192 !\004\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\0000\000\006\000\000\n.\b\000\000\136\000\000\000\000\000\003\000\000`\000\000\162\224\128\000\b\000\000\000\000\000\bX\n(\000\131\002\144p\000h\128\020\192 !\004\133\128\162\128\b0)\007\000\006\136\001L\002\002\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\133\128\162\128\b )\007\000\006\136\001L\002\002\016@0\000\006\000\000\n.\n\000\000\136\000\000\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\000 \000\000\0000\000\006\000\000\n.\n\000\000\136\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\0000\000\006\000\000\n.\b\000\000\128\000\000\000\000\000\133\128\"\128\b )\007\000\006\136\001L\002\002\016HX\n(\000\131\002\144p\000h\128\020\192 !\004\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\0000\000\006\000\000\n.\b\000\000\128\000\000\000\000\000\133\128\"\128\b )\007\000\006\136\001L\002\002\016HX\n(\000\131\002\144p\000h\128\020\192 !\004\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 \000\000\000\000\000\000#a\000E\130\141\248\152\244\001`>\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\0002\016D\b\000N\t\155@\014\128`\000\000\016@\003!\004@\128\004\224\152\180\000\232\006\000\000\001\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003!\000@\128\004\224\152\180\000\232\006\000\000\001\004\bH\002(\000\130\000\144`\000h\128\020\192\000 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\b\000\000\000\000\000\000\000\000\000 \000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\rIK\184>\131\224\176p?\232\176\150\241o\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\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\t\000\t\000>\000\192 \016\015\128\016\130\000\r\130\003\016\000\000\000\000\000\000\000\000\000\000\b\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\016 \004\004\000\b\b\016\000\000\004\000\000\000\000\000\001\002\000@\000\000\128\129\000\000\000@\000\000\000\000\000\016 \004\000\000\b\b\000\000\000\004\000\000\000\000\000\000\000\b\000\000\000\128\001\000\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\129\000@@\000 \160\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\b\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\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\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\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003!\000@\128\004\160\152\180\000\232\006@\000\001\020\rIK\184>\131\224\176p?\232\176\150\241o\231\015\128\000\136\003\224\012\002\001\000\248\001\000 \000\188 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\b\016\004\004\000\002\n\b\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\004\000\000\128\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\b\016\004\004\000\002\n\b\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\004\000\000\128\000\001\000\000\016\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\016\004\004\000\002\n\b\000\000\000\004\000\000\000\000\000@\000\b\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\132\128\"\128\b \137\007\000\004\136\001L\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\002\000@\000\000\128\129\000\000\000@\000\000\000\000\000\016 \004\000\000\b\b\000\000\000\004\000\000\000\000\000\132\128\"\128\b \137\007\000\004\136\001L\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\128\004\000@\000\000\001\000\000\000\000\000\000\000\000\000\016\000\000\004\000\002\000\016\000\000\000\000\000\000\000\000\001\000\000\000\000\000 \001\000\000\000\000\000\000\000\000\000\016\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \t\006\000\004\136\001l\000\002\000\000\016\004\004\000\002\n\b\000\000\000\004\000\000\000\000\000\196\128\"\128\b0\t\007\000\004\136\001L\000\002\000\bH\002(\000\130\000\144`\000H\128\020\192\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0000\000@\000\000\000\000\016\000\000\000\000\000\000\000\000\003\000\004\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\128\000\000\000\000\000 \000\004\000\bH\002(\000\130\000\144`\000H\128\020\192\000 \004\132\128\"\128\b \t\004\000\004\136\001L\000\002\000@0\000\000\000\000\000\000\016\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\b\000\000\000\000\000\002\000\000@\000\132\128\"\128\b \t\006\000\004\136\001L\000\002\000HH\002(\000\130\000\144@\000H\128\020\192\000 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000 \000\004\000\bH\002(\000\130\000\144`\000H\128\020\192\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\007\223d@\130\2546\128\0010p\007\180q`(4'\225\"\213\138\173\249\156\244\005`?\192\000\007\142\0002\016\004\b\000J\t\139@\014\128d\000\000\016@\016\000\002\000\000\000\000\001\000\000\000\000\000\000\136\017\0026\016\004X(\223\137\143@\022\003\232\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\007\223d@\130\2546\128\0010p\007\180q`(4'\225\"\213\138\173\249\156\244\005`?\192\000\007\142\000\016$\004\004\002\n\b\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\004\000\n\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\160\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\n\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\014.\b\000\000\128\000\000\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\000 \000\000\0000\000\007\001\000\014.\b\000\000\128\000\000\000\000\000\132\128\"\128\b\"\t\007\003\004\136\001l\002\002\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bH\018(\000\130\000\144`\000H\128\020\192\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bH\002(\000\130\000\144`\000H\128\020\192\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bH\002(\000\130 \144p0H\128\022\192 \000\001 \000\000@\000\128\001\128\000\000\002\000\000\000\000\000\018\000\000\000\000\b\000\024\000\000\000 \000\000\000\000\001 \000\000\000\000\128\000\128\000\000\002\000\000\000\000\bH\002(\000\194\000\144p\000H\128\022\192\000`\000\001 \000\000\000\000\128\000\128\000\000\002\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\128\000\132\128\"\128\b \t\007\000\004\136\001L \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\000\000\b\000\bH\002(\000\130\000\144p\000H\128\020\192\000 \000\132\128\"\128\b \t\006\000\004\136\001L\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \t\007\000\004\136\001L\000\002\000\bH\002(\000\130\000\144`\000H\128\020\192\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000x\002/\001\130\014>H\000@\128\020\000\000 \000\132\128\"\128\b \001\004\000\004\000\001L\000\002\000\000\016\000\000\004\000\000\000\016\000\000\000\000\000\000\000\128\001\000\000\000@\000\000\001\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bH\002(\000\130\b\016`\000@\000\020\194\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\016\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bH\002(\000\130\b\016`\000@\000\020\194\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0008\000@\004\000\000\000\016\000\000\000\000\000\000\000\000\001\000\000\000@\000 \001\000\000\000\000\000\000\000\000\000\016\000\000\000\000\002\000\016\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\000\016`\000@\000\022\192\001 \000\001\000@@\000 \160\128\000\000\000@\000\000\000\000\012H\002(\000\131\000\016p\000@\000\020\192\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0000\000@\000\000\000\000\016\000\000\000\000\000\000\000\000\003\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\002\000\001@\000\129\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \129\006\000\004\000\001L \002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\001\000@@\000 \160\128\000\000\000@\000\000\000\000\012H\002(\000\131\000\016p\000@\000\020\192\000 \004\132\128\"\128\b \001\004\000\004\000\001L\000\002\000@0\000\000\000\000\000\000\016\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\001\000@@\000 \160\128\000\000\000@\000\000\000\000\012H\002(\000\131\000\016p\000@\000\020\192\000 \004\132\128\"\128\b \001\004\000\004\000\001L\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\b\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\bH\002(\000\130\000\016`\000@\000\020\194\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\004\004\000\002\n\b\000\000\000\004\000\000\000\000\000\196\128\"\128\b0\001\007\000\004\000\001L\000\002\000\bH\002(\000\130\000\016`\000@\000\020\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\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\004\000\b\000\024\000\000\000 \000\000\000\000\001 \000\000\000\000\128\001\128\000\000\002\000\000\000\000\000\018\000\000\000\000\b\000\b\000\000\000 \000\000\000\000\132\128\"\128\012 \001\007\000\004\000\001L\000\006\000\000\136\000\000\004\000\002\000\024\000\000\000\000\000\000\000\000\b\000\000\000@\000 \001\128\000\000\000\000\000\000\000\000\128\000\000\000\000\002\000\024\000\000\000\000\000\000\000\000\b\000\000\000\000\000 \000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\128\000\000\000\000\000\000\000\000 \000\002H\000@\000\000\002\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\002H\000@\000\000\002\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\016\000\004\000 \002\136\b\000\000\000\000\000\000\000\000\132\000\000\128\000\002\129\005\001\000\000\000\004\002\000\000\b@\000\b\000\000(\016@\016\000\000\000@ \000\000\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\000\000\000\128\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\b@\000\b\000\000 \016@\016\000\000\000@ \000\000\b\000\000\000\000@ \001\000\000\000\000\000\000\000\000\000\128\000\000\000\004\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\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\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\b@\000\b\000\000 \016p\016\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\128\000\002\000\016\000\000\000\000\000\000\000\000\b\000\000\b\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\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\128\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\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\004\000\0000\000\007\001\000\014.\b\000\000\128\000\000\000\000\000\132\000\000\128\000\002\001\006\001\000\000\000\004\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000@\002\000(\129\128\000\000\000\000\000\000\000\000\016\000\004\000 \002\136\b\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\016\000\000\000\000\000\000\000\128\001\000\000\000\000\000\000\001\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\002\000\000\000 \000\000\000\016\000\004\000 \002\136\b\000\000\000\000\000\000\000\000\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\000\b\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\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\000\000\000 \000\000\000\000\016\000\000\000\000\000\b\000\000\000\000\002\000\000\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\000\000\000\000\000\000\bH\002\168\000\130 \144p\016H\128\022\192 \004\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\002\000\000\000 \000\000\000\016\000\004\000 \002\136\b\000\000\000\000\000\000\000\000\132\128*\128\b\"\t\007\001\004\136\001l\002\002\000H@\000\b\000\000 \016p\016\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\014.\024\000\000\128\000\000\000\000\000\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\002\000\000\000\000\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\b@\000\b\000\000 \016p0\000\000\000@ \000\000\132\000\000\128\000\002\001\006\001\000\000\000\004\002\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\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\b@\000\b\000\000 \016`\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\132\000\000\128\000\002\001\004\001\000\000\000\004\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \t\007\000\004\136\001L\000\002\000HH\002(\000\130\000\144@\000H\128\020\192\000 \004\b\000\000\000\000\000 \001\128\000\000\000\000\000\000\000\000\128\000\000\000\000\002\000\b\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\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\016\000\004\000 \002\136\b\000\000\000\000\000\000\000\000\132\128\"\128\b \t\007\000\004\136\001L\000\002\000HH\002(\000\130\000\144@\000H\128\020\192\000 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000 \001\128\000\000\000\000\000\000\000\000\128\000\000\000\000\002\000\b\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\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\004\000\0000\000\007\001 \n\174\b\000\000\128\000\000\000\000\000\133\128\170\128\b0!\007\000\004\136\001l\000\006\000@0\000\006\000\000\n.\b\000\000\128\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\0000\000\007\001 \n\174\b\000\000\128\000\000\000\000\000\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\020\000\000\000 \000\000\000\000\016\000\000\000\000\000\b\001\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\0000\000\007\001 \n\174\b\000\000\128\000\000\000\000\000\003\000\000`\000\000\162\224\128\000\b\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\018\000\170\224\128\000\b\000\000\000\000\000\bX\n\168\000\131\002\016p\000H\128\022\192\000 \004\133\128\170\128\b0!\007\000\004\b\001l\000\002\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128*\128\b \001\007\000\004\000\001l\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\bH\002(\000\130\000\016`\000@\000\020\192\000 \004\132\128\"\128\b \001\004\000\004\000\001L\000\002\000@\128\000\000\000\000\002\000\024\000\000\000\000\000\000\000\000\b\000\000\000\000\000 \000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\002\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\003\000\000p\018\000\170\224\128\000\b\000\000\000\000\000\bH\002(\000\130\000\016`\000@\000\020\192\000 \004\132\128\"\128\b \001\004\000\004\000\001L\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\132\128\"\128\b \001\004\000\004\000\001L\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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 \001\006\000\004\000\001L\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000@@@ \160\129\000\000\000@\000\000\000\000\000\016\004\004\000\002\n\b\016\000\000\004\000\000\000\000\000\001\000@@\000 \160\128\000\000\000@\000\000\000\000\012H\002(\000\131\000\016p\000@\000\020\192\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bH\002(\000\130\000\016@\000@\000\020\192\000 \004\002\000\000$\128\004\160\001\000 \000\000\000\000\000\b\000 \000\002H\000J\000\000\002\000\000\000\000\000\000\128\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\bH\002(\000\130\000\144`\000H\128\022\192 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bH\002(\000\130\000\144`\000H\128\020\192 \004\132\128\"\128\b \t\004\000\004\136\001L\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\bH\002(\000\130\000\016@\000@\000\020\192\000 \004\002\000\000$\128\004\160\001\000 \000\000\000\000\000\b\000 \000\002H\000J\000\000\002\000\000\000\000\000\000\128\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\003 \000x\016\000\226\224\160\000\b\002\000@\000\016\0000\000'\001\000\014.\b\000\000\128\000\000\000\001@\000\000\000\000\000@ \000\000\000\000\128\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\133\160\"\128\b \137\006\128\004\136\003L\002\002\000HH\002(\000\194\000\144p\000H\128\020\192 a\004\132\128\"\128\b \t\007\000\004\136\001L\002\002\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \t\006\000\004\136\001L\002\002\016@\018\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\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \001\006\000\004\000\001L\002\002\000HH\002(\000\130\000\016@\000@\000\020\192\000 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bH\002(\000\130\000\144p\000H\128\022\192 \004\001 \000\b\000\000\128\000\160\000\000\002\000@\000\016\000\018\000\000\000\000\b\000\n\000\000\000 \004\000\001\000\000\000\000\000\000@ \000\000\000\000\128\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bH\002(\000\194\000\144p\000H\128\020\192 a\004\132\128\"\128\b \t\007\000\004\136\001L\002\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\128\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\001\000\000\000\000\000\000\000\000\000\136\000\000\004\000\002\000\024\000\000\000\000\000\000\000\000\b\000\000\000\000\000 \001\128\000\000\000\000\000\000\000\000\128\000\000\000\000\002\000\b\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\002\000\000\000\000\000\000\000\000\000\000\003)\000P\144\004\160\152\172\000\232\006 \000\005\004\b2\024\132~\002\207)\139O\143\144f\b\001\146\203\001\000\000@\002\000\168\128\128\000\000\016\000\000\000\000\b@\000\b\000\000(\016P0\000\000\000@ \000\000\132\000\000\128\000\002\129\004\003\000\000\000\004\002\000\000\b@\000\b\000\000 \016@0\000\000\000@ \000\000\b\000\000\000\000@ \001\000\000\000\000\000\000\000\b\000\000\000\000\000\004\002\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000@ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\002@\000#a\000E\130\141\248\152\244\001`>\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\0026\016\004X(\223\137\143@\022\003\232\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b@\000\b\000\000 \016`0\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\004\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\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\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\b@\000\b\000\000 \016p0\000\000\000@ \000\000\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\002@\000#a\000E\130\141\248\152\244\001`>\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\0026\016\004X(\223\137\143@\022\003\232\000\000\024\224\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\128\000\002\000\016\000\000\000\000\000\000\000\128\000\000\000\b\000\000 \001\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\002\000\000\000\000\000\000\000\000\000\000\003)\000P\144\004\160\152\172\000\232\006 \000\005\004\0008\000\007\001\000\014.\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\002\000\000\000\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\002\000\000\000\000#a\000E\130\141\248\152\244\001`>\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\0026\016\004X(\223\137\143@\022\003\232\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\132\000\000\128\000\002\001\006\003\000\000\000\004\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\b\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\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\128\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\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\004\000\0000\000\007\001\000\014.\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\002\000\000\000\000\000\000\000\000\000\000\003)\000P\144\004\160\152\172\000\232\006 \000\005\004\0008\000\007\001\000\014.\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\002\000\000\000\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\002\000\000\000\000#a\000E\130\141\248\152\244\001`>\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\0026\016\004X(\223\137\143@\022\003\232\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#a\000E\130\141\248\153\244\001`>\128\000\001\142\0026\016\004X(\223\137\143@\022\003\232\000\000\024\224\132\000\000\128\000\002\001\006\003\000\000\000\004\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000@\002\000\168\129\128\000\000\016\000\000\000\b\000\016\000\004\000 \n\136\024\000\000\001\000\000\000\000\000\001\000\000@\002\000\168\128\128\000\000\016\000\000\000\000\000\016\000\004\000 \n\136\b\000\000\001\000\000\000\000\000\003!\004@\200\004\224\153\180\000\232\006\000\000\001\004\007\223d@\130\2546\128\0010p\007\180q`(4\003!\004@\128\004\224\153\180\000\232\006\000\000\001\004\0002\016D\b\000N\t\139@\014\128`\000\000\016@\003!\000@\128\004\224\152\180\000\232\006\000\000\001\004\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\016\000\000\000\000\000\000\016\000\000\000\000\000\000\000\128\001\000\000\000\000\000\000\001\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\002\000\000\000 \000\000\000\016\000\004\000 \n\136\b\000\000\001\000\000\000\000\000\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\000\b\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\003)\000P\144\004\160\153\172\000\232\006\000\000\001\004\0002\144\005\t\000J\t\138\192\014\128`\000\000\016@\003)\000P\144\020\160\152\172\000\232\006\000\000\001\004\000\016\000\004\000 \n\136\b\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000@\016\000\004\000 \n\136\b\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bZ\146\173A\170*\153\254\240N\128t\192 x\212\133\169*\212\026\162\169\159\239\004\232\007L\002\007\141@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128*\128\b\"\t\007\003\004\136\001L\002\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\000\000\bH\002\168\000\130 \144p0H\128\020\192 `\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\132\128*\128\b\"\t\007\003\004\136\001L\002\006\001@\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000 \000\000\000\016\000\004\000 \n\136\b\000\000\001\000\000\000\000\000\132\128*\128\b\"\t\007\003\004\136\001L\002\006\001@2\016D\b\000N\t\139@\014\128`\000\000\016@\003!\000@\128\004\224\152\180\000\232\006\000\000\001\004\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\b\000\000\128\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\003\000\000p\018\000\170\224\128\000\b\000\000\000\000\000\b\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\000\000\128\000\002\001\007\003\000\000\000\004\002\000\001\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b@\000\b\000\000 \016`0\000\000\000@ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\004\000 \n\136\b\000\000\001\000\000\000\000\000\132\000\000\128\000\002\001\007\003\000\000\000\004\002\000\001\b@\000\b\000\000 \016`0\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\014.\024\000\000\128\000\000\000\000\000\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\b@\000\b\000\000 \016`0\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\132\000\000\128\000\002\001\006\003\000\000\000\004\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b@\000\b\000\000 \016@0\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\144p\000H\128\020\192\000 \004\003\000\000p\018\000\170\224\128\000\b\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\001\000\000@\002\000\168\128\128\000\000\016\000\000\000\000\bH\002(\000\130\000\144p\000H\128\020\192\000 \004\003)\000P\144\004\160\152\172\000\232\006 \000\005\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \t\006\000\004\136\001L\000\002\000HH\002(\000\130\000\144@\000H\128\020\192\000 \004\b\000\000\000\000\000 \001\128\000\000\000\000\000\000\000\000\128\000\000\000\000\002\000\b\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\002\000\000\000\000\000\000\000\000\000\000\003)\000P\144\004\160\152\172\000\232\006 \000\005\004\bH\002(\000\130\000\144`\000H\128\020\192\000 \004\132\128\"\128\b \t\004\000\004\136\001L\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\132\128\"\128\b \t\004\000\004\000\001L\000\002\000\0002\016D\012\000N\t\155@\014\128`\000\000\016@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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 \t\004\000\004\136\001L\000\002\000HH\002(\000\130\000\144`\000H\128\020\192\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016 \004\004\000\b\b\016\000\000\004\000\000\000\000\000\001\002\000@\000\000\128\129\000\000\000@\000\000\000\000\000\016 \004\000\000\b\b\000\000\000\004\000\000\000\000\000\132\128\"\128\b \137\007\000\004\136\001L\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \t\004\000\004\136\001L\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\bH\002(\000\130\000\144`\000@\000\020\192\000 \000\132\128\"\128\b \t\004\000\004\000\001L\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\132\128\"\128\b \t\004\000\006\136\001L\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\bH\002(\000\130\000\144`\000@\000\020\192\000 \000\132\128\"\128\b \t\004\000\004\000\001L\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\b\000\000\000\000\000\000\000\000\000\000\000\000@\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\196\128*\128\b0\137\007\000\004\136\001l\000\"\000L\000\000\128\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\000\000\000\000\000\000\000\000\b\000\000\000\000\001\000\000\000\000\000\000\140\017\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\000\000\000\128\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\b@\000\b\000\000 \016@0\000\000\000@ \000\000\128\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\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\131!\000@\128\004\160\152\180\000\232\006@\000\001\020\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\212\148\187\131\232>\011\007\003\254\139\to\022\254p\240\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\018\000\000\128\000\b\000\b\000\000\000 \000\000\001\000\001 \000\000\000\000\128\000\128\000\000\002\000\000\000\016\000\018\000\000\000\000\b\000\b\000\000\000 \000\000\000\000\132\128\"\128\012 \t\007\000\004\136\001l\000\006\016\000\018\000\000\000\000\b\000\b\000\000\000 \000\000\000\000\132\128\"\128\b \t\007\000\004\136\001L\000\002\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \t\006\000\004\136\001L\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\000\000\000\000\000\000\000\132\128\"\128\012 \t\007\000\004\136\001l\000\006\016\000\018\000\000\000\000\b\000\b\000\000\000 \000\000\000\000\132\128\"\128\b \t\007\000\004\136\001L\000\002\016\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\bH\002( \130\000\144`\000H\128\022\192 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\bH\002(\000\130\000\144`\000H\128\020\192 \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\001 \000\b\000\000\128\000\128\000\000\002\000\000\000\016\000\018\000\000\000\000\b\000\b\000\000\000 \000\000\001\000\132\128\"\128\b \t\006\000\004\136\001L\000\002\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\016\000\000\000 \000\000\000\137\000\000\000\004\000\0000\000\007\001\000\014.\b\000\000\128\000\000\000\000\000\000\000\016\000\000\000\000\001\000\000\001\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\016\000\000\000\000\000\003\000\000`\000\000\162\225\128\000\t\000\000@\000\000\0000\000\006\000\000\n.\b\000\000\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\000\000\000\000\000\001\000\016\000\000\000 \000\000\000\t\000\000\000\000\000\0000\000\006\000\000\n.\b\000\000\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\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\0000\000\007\001\000\014.\b\000\000\128\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\001\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\0000\000\006\000\000\n.\b\000\000\128\000\000\000\000\000\196\128;\128\b2\t\007\003\004\137\001l\002\162\017lH\003\184\000\131 \144p0H\144\022\192*!\022\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0000\000\006\000\000\n.\b\000\000\128\000\000\000\000\000\003\000\000p\016 \226\224\128\000\b\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\002\000\000\000\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\000\000\000\128\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\0000\000\007\001\000\014.\b\000\000\128\000\000\000\000\000\003\000\000`\000\000\162\224\128\000\b\000\000\000\000\000\012H\003\184\000\131 \144p0H\144\022\192*!\022\196\128;\128\b2\t\007\003\004\137\001l\002\162\017`\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\0000\000\007\001\000\014.\b\000\000\128\000\000\000\000\000\003\000\000`\000\000\162\224\128\000\b\000\000\000\000\000\012H\003\184\000\131 \144p0H\144\022\192*!\022\196\128;\128\b2\t\007\003\004\137\001l\002\162\017`\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\0000\000\007\001\000\014.\b\000\000\128\000\000\000\000\000\003\000\000`\000\000\162\224\128\000\b\000\000\000\000\000\012H\003\184\000\131 \144p0H\144\022\192*!\022\196\128;\128\b2\t\007\003\004\137\001l\002\162\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\0000\000\007\001\000\014.\b\000\000\128\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\001\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\0000\000\006\000\000\n.\b\000\000\128\000\000\000\000\000\196\128;\128\b2\t\007\003\004\137\001l\002\162\017lH\003\184\000\131 \144p0H\144\022\192*!\022\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\0000\000\007\001\000\014.\b\000\000\128\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\001\000\000\000\000\000\000\000\000\000\000\000\003\000\000p\016\000\226\224\128\000\b\000\000\000\000\000\0000\000\006\000\000\n.\b\000\000\128\000\000\000\000\000\196\128;\128\b2\t\007\003\004\137\001l\002\162\017lH\003\184\000\131 \144p0H\144\022\192*!\022\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\002\000\000\000\000\b\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\bH\002(\000\130\000\144p\000H\128\020\192 \004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\003 \000x\016\000\226\224\160\000\b\002\000@\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \001\006\000\004\000\001L\002\002\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\018\000\000\128\000\b\000\b\000\000\000 \000\000\001\000\001 \000\000\000\000\128\000\128\000\000\002\000\000\000\016\bH\002(\000\130\000\016`\000@\000\020\192\000!\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\bH\002( \130\000\016`\000@\000\022\192! \004\003 \000x\016\000\226\224\160\000\b\002\000@\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\132\128\"\128\b \001\006\000\004\000\001L\002\002\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\018\000\000\128\000\b\000\b\000\000\000 \000\000\001\000\001 \000\000\000\000\128\000\128\000\000\002\000\000\000\016\bH\002(\000\130\000\016`\000@\000\020\192\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\b\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\132\128\"\128\b \t\006\000\004\136\001L\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000#a\000E\130\141\248\152\244\001`>\128\000\001\142\000\000\000\000\000\000\000\000\000\000\000\000\000\000@\000\000#a\000E\130\141\248\152\244\001`>\128\000\001\142\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\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\004\128 \128\b \001\004\000\004\000\001H\000\002\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\001 \000\000\000\000\160\000\128\000\000\002\000\000\000\000\b\000\b\128~\002\193 \000\015\129\016\002\b\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\128\000\000\000\000\000\000 \000\000\000\016\000\000\000\000\n\000\000\000\000\000\000\000\000\000\000\128\000\128\007\224,\018\000\000\248\017\000 \128\024(\176\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\001 \000\000\000\000\128\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\b\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\226\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\001\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#a\000E\130\141\248\152\244\001`>\128\000\001\142\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\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\128\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\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\b \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\002\000@\000\000\128\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\128\001\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\001\000@@\000 \160\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\016\000\001\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\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\000\000\000\000\000\000\000\003!\000@\128\004\160\152\180\000\232\006@\000\001\004\000\000\000\000\000\000\000\000\016\000\000\000\000\128\b\129\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\160\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\016\000\000\000\000\n\000\000\000\000\000\000\000\000\000\000'\225 \197\138\173\249\156\244\005\232?\200\000\003\142\000\016\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\005\161 \128\b \169\004\004\004\136\003H\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\128 \128\b \t\004\000\004\136\001H \002\000\000\016\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\005\161 \128\b \169\004\004\004\136\003H\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\128 \128\b \t\004\000\004\136\001H \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\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\000H\002\b\000\130\000\144@\000@\000\020\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000'\225 \197\138\173\249\156\244\005\232?\200\000\003\142\002~\018\012X\170\223\153\207@^\131\252\128\0008\224\004\128 \128\b \t\004\000\004\136\001H\000\002\000\000H\002\b\000\130\000\144@\000H\128\020\128\000 \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\128 \128\b \t\006\000\004\136\001H\000\002\000\000H\002\b\000\130\000\144@\000H\128\020\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\000H\002\b\000\130\000\144`\000H\128\020\128\000 \000\004\128 \128\b \t\004\000\004\136\001H\000\002\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\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000") @@ -1667,9 +1645,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4298 "parsing/parser.mly" +# 4279 "parsing/parser.mly" ( "+" ) -# 1673 "parsing/parser.ml" +# 1651 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1692,9 +1670,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4299 "parsing/parser.mly" +# 4280 "parsing/parser.mly" ( "+." ) -# 1698 "parsing/parser.ml" +# 1676 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1717,9 +1695,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = -# 3783 "parsing/parser.mly" +# 3764 "parsing/parser.mly" ( _1 ) -# 1723 "parsing/parser.ml" +# 1701 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1764,24 +1742,24 @@ module Tables = struct let _endpos = _endpos_tyvar_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3786 "parsing/parser.mly" +# 3767 "parsing/parser.mly" ( Ptyp_alias(ty, tyvar) ) -# 1770 "parsing/parser.ml" +# 1748 "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 -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 1779 "parsing/parser.ml" +# 1757 "parsing/parser.ml" in -# 3788 "parsing/parser.mly" +# 3769 "parsing/parser.mly" ( _1 ) -# 1785 "parsing/parser.ml" +# 1763 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1827,30 +1805,30 @@ module Tables = struct let _v : (let_binding) = let attrs2 = let _1 = _1_inlined2 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 1833 "parsing/parser.ml" +# 1811 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 1842 "parsing/parser.ml" +# 1820 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2983 "parsing/parser.mly" +# 2965 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in mklb ~loc:_sloc false body attrs ) -# 1854 "parsing/parser.ml" +# 1832 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1873,9 +1851,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4173 "parsing/parser.mly" +# 4154 "parsing/parser.mly" ( _1 ) -# 1879 "parsing/parser.ml" +# 1857 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1898,9 +1876,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4174 "parsing/parser.mly" +# 4155 "parsing/parser.mly" ( Lident _1 ) -# 1904 "parsing/parser.ml" +# 1882 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -1937,9 +1915,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.core_type) = -# 3879 "parsing/parser.mly" +# 3860 "parsing/parser.mly" ( _2 ) -# 1943 "parsing/parser.ml" +# 1921 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2002,11 +1980,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3950 "parsing/parser.mly" +# 3931 "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 ) -# 2010 "parsing/parser.ml" +# 1988 "parsing/parser.ml" in let _3 = @@ -2014,24 +1992,24 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 2020 "parsing/parser.ml" +# 1998 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 2026 "parsing/parser.ml" +# 2004 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3881 "parsing/parser.mly" +# 3862 "parsing/parser.mly" ( wrap_typ_attrs ~loc:_sloc (reloc_typ ~loc:_sloc _4) _3 ) -# 2035 "parsing/parser.ml" +# 2013 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2062,24 +2040,24 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3884 "parsing/parser.mly" +# 3865 "parsing/parser.mly" ( Ptyp_var _2 ) -# 2068 "parsing/parser.ml" +# 2046 "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 -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2077 "parsing/parser.ml" +# 2055 "parsing/parser.ml" in -# 3927 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 2083 "parsing/parser.ml" +# 2061 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2103,23 +2081,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3886 "parsing/parser.mly" +# 3867 "parsing/parser.mly" ( Ptyp_any ) -# 2109 "parsing/parser.ml" +# 2087 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2117 "parsing/parser.ml" +# 2095 "parsing/parser.ml" in -# 3927 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 2123 "parsing/parser.ml" +# 2101 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2155,16 +2133,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 2161 "parsing/parser.ml" +# 2139 "parsing/parser.ml" in let (_endpos_tid_, _startpos_tid_) = (_endpos__1_, _startpos__1_) in let tys = -# 3942 "parsing/parser.mly" +# 3923 "parsing/parser.mly" ( [] ) -# 2168 "parsing/parser.ml" +# 2146 "parsing/parser.ml" in let (_endpos_tys_, _startpos_tys_) = (_endpos__0_, _endpos__0_) in let _endpos = _endpos__3_ in @@ -2176,7 +2154,7 @@ module Tables = struct let _loc__3_ = (_startpos__3_, _endpos__3_) in let _sloc = (_symbolstartpos, _endpos) in -# 3890 "parsing/parser.mly" +# 3871 "parsing/parser.mly" ( match tid.txt with | Lident "float" -> let ident_start = fst _loc_tid_ in @@ -2185,7 +2163,7 @@ module Tables = struct | _ -> not_expecting _sloc "Unboxed type other than float#" ) -# 2189 "parsing/parser.ml" +# 2167 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -2193,15 +2171,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2199 "parsing/parser.ml" +# 2177 "parsing/parser.ml" in -# 3927 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 2205 "parsing/parser.ml" +# 2183 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2244,16 +2222,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 2250 "parsing/parser.ml" +# 2228 "parsing/parser.ml" in let (_endpos_tid_, _startpos_tid_) = (_endpos__1_, _startpos__1_) in let tys = -# 3944 "parsing/parser.mly" +# 3925 "parsing/parser.mly" ( [ty] ) -# 2257 "parsing/parser.ml" +# 2235 "parsing/parser.ml" in let (_endpos_tys_, _startpos_tys_) = (_endpos_ty_, _startpos_ty_) in let _endpos = _endpos__3_ in @@ -2265,7 +2243,7 @@ module Tables = struct let _loc__3_ = (_startpos__3_, _endpos__3_) in let _sloc = (_symbolstartpos, _endpos) in -# 3890 "parsing/parser.mly" +# 3871 "parsing/parser.mly" ( match tid.txt with | Lident "float" -> let ident_start = fst _loc_tid_ in @@ -2274,7 +2252,7 @@ module Tables = struct | _ -> not_expecting _sloc "Unboxed type other than float#" ) -# 2278 "parsing/parser.ml" +# 2256 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__3_, _startpos_ty_) in @@ -2282,15 +2260,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2288 "parsing/parser.ml" +# 2266 "parsing/parser.ml" in -# 3927 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 2294 "parsing/parser.ml" +# 2272 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2348,9 +2326,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 2354 "parsing/parser.ml" +# 2332 "parsing/parser.ml" in let (_endpos_tid_, _startpos_tid_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in @@ -2359,18 +2337,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 2363 "parsing/parser.ml" +# 2341 "parsing/parser.ml" in -# 1304 "parsing/parser.mly" +# 1282 "parsing/parser.mly" ( xs ) -# 2368 "parsing/parser.ml" +# 2346 "parsing/parser.ml" in -# 3946 "parsing/parser.mly" +# 3927 "parsing/parser.mly" ( tys ) -# 2374 "parsing/parser.ml" +# 2352 "parsing/parser.ml" in let (_endpos_tys_, _startpos_tys_) = (_endpos__3_inlined1_, _startpos__1_) in @@ -2383,7 +2361,7 @@ module Tables = struct let _loc__3_ = (_startpos__3_, _endpos__3_) in let _sloc = (_symbolstartpos, _endpos) in -# 3890 "parsing/parser.mly" +# 3871 "parsing/parser.mly" ( match tid.txt with | Lident "float" -> let ident_start = fst _loc_tid_ in @@ -2392,7 +2370,7 @@ module Tables = struct | _ -> not_expecting _sloc "Unboxed type other than float#" ) -# 2396 "parsing/parser.ml" +# 2374 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -2400,15 +2378,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2406 "parsing/parser.ml" +# 2384 "parsing/parser.ml" in -# 3927 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 2412 "parsing/parser.ml" +# 2390 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2437,35 +2415,35 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 2443 "parsing/parser.ml" +# 2421 "parsing/parser.ml" in let tys = -# 3942 "parsing/parser.mly" +# 3923 "parsing/parser.mly" ( [] ) -# 2449 "parsing/parser.ml" +# 2427 "parsing/parser.ml" in -# 3900 "parsing/parser.mly" +# 3881 "parsing/parser.mly" ( Ptyp_constr(tid, tys) ) -# 2454 "parsing/parser.ml" +# 2432 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2463 "parsing/parser.ml" +# 2441 "parsing/parser.ml" in -# 3927 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 2469 "parsing/parser.ml" +# 2447 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2501,20 +2479,20 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 2507 "parsing/parser.ml" +# 2485 "parsing/parser.ml" in let tys = -# 3944 "parsing/parser.mly" +# 3925 "parsing/parser.mly" ( [ty] ) -# 2513 "parsing/parser.ml" +# 2491 "parsing/parser.ml" in -# 3900 "parsing/parser.mly" +# 3881 "parsing/parser.mly" ( Ptyp_constr(tid, tys) ) -# 2518 "parsing/parser.ml" +# 2496 "parsing/parser.ml" in let _startpos__1_ = _startpos_ty_ in @@ -2522,15 +2500,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2528 "parsing/parser.ml" +# 2506 "parsing/parser.ml" in -# 3927 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 2534 "parsing/parser.ml" +# 2512 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2581,9 +2559,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 2587 "parsing/parser.ml" +# 2565 "parsing/parser.ml" in let tys = @@ -2591,24 +2569,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 2595 "parsing/parser.ml" +# 2573 "parsing/parser.ml" in -# 1304 "parsing/parser.mly" +# 1282 "parsing/parser.mly" ( xs ) -# 2600 "parsing/parser.ml" +# 2578 "parsing/parser.ml" in -# 3946 "parsing/parser.mly" +# 3927 "parsing/parser.mly" ( tys ) -# 2606 "parsing/parser.ml" +# 2584 "parsing/parser.ml" in -# 3900 "parsing/parser.mly" +# 3881 "parsing/parser.mly" ( Ptyp_constr(tid, tys) ) -# 2612 "parsing/parser.ml" +# 2590 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -2616,15 +2594,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2622 "parsing/parser.ml" +# 2600 "parsing/parser.ml" in -# 3927 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 2628 "parsing/parser.ml" +# 2606 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2662,24 +2640,24 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3902 "parsing/parser.mly" +# 3883 "parsing/parser.mly" ( let (f, c) = _2 in Ptyp_object (f, c) ) -# 2668 "parsing/parser.ml" +# 2646 "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 -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2677 "parsing/parser.ml" +# 2655 "parsing/parser.ml" in -# 3927 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 2683 "parsing/parser.ml" +# 2661 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2710,24 +2688,24 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3904 "parsing/parser.mly" +# 3885 "parsing/parser.mly" ( Ptyp_object ([], Closed) ) -# 2716 "parsing/parser.ml" +# 2694 "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 -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2725 "parsing/parser.ml" +# 2703 "parsing/parser.ml" in -# 3927 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 2731 "parsing/parser.ml" +# 2709 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2763,20 +2741,20 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 2769 "parsing/parser.ml" +# 2747 "parsing/parser.ml" in let tys = -# 3942 "parsing/parser.mly" +# 3923 "parsing/parser.mly" ( [] ) -# 2775 "parsing/parser.ml" +# 2753 "parsing/parser.ml" in -# 3908 "parsing/parser.mly" +# 3889 "parsing/parser.mly" ( Ptyp_class(cid, tys) ) -# 2780 "parsing/parser.ml" +# 2758 "parsing/parser.ml" in let _startpos__1_ = _startpos__2_ in @@ -2784,15 +2762,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2790 "parsing/parser.ml" +# 2768 "parsing/parser.ml" in -# 3927 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 2796 "parsing/parser.ml" +# 2774 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2835,20 +2813,20 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 2841 "parsing/parser.ml" +# 2819 "parsing/parser.ml" in let tys = -# 3944 "parsing/parser.mly" +# 3925 "parsing/parser.mly" ( [ty] ) -# 2847 "parsing/parser.ml" +# 2825 "parsing/parser.ml" in -# 3908 "parsing/parser.mly" +# 3889 "parsing/parser.mly" ( Ptyp_class(cid, tys) ) -# 2852 "parsing/parser.ml" +# 2830 "parsing/parser.ml" in let _startpos__1_ = _startpos_ty_ in @@ -2856,15 +2834,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2862 "parsing/parser.ml" +# 2840 "parsing/parser.ml" in -# 3927 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 2868 "parsing/parser.ml" +# 2846 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -2922,9 +2900,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 2928 "parsing/parser.ml" +# 2906 "parsing/parser.ml" in let tys = @@ -2932,24 +2910,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 2936 "parsing/parser.ml" +# 2914 "parsing/parser.ml" in -# 1304 "parsing/parser.mly" +# 1282 "parsing/parser.mly" ( xs ) -# 2941 "parsing/parser.ml" +# 2919 "parsing/parser.ml" in -# 3946 "parsing/parser.mly" +# 3927 "parsing/parser.mly" ( tys ) -# 2947 "parsing/parser.ml" +# 2925 "parsing/parser.ml" in -# 3908 "parsing/parser.mly" +# 3889 "parsing/parser.mly" ( Ptyp_class(cid, tys) ) -# 2953 "parsing/parser.ml" +# 2931 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -2957,15 +2935,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 2963 "parsing/parser.ml" +# 2941 "parsing/parser.ml" in -# 3927 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 2969 "parsing/parser.ml" +# 2947 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3003,24 +2981,24 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3911 "parsing/parser.mly" +# 3892 "parsing/parser.mly" ( Ptyp_variant([_2], Closed, None) ) -# 3009 "parsing/parser.ml" +# 2987 "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 -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 3018 "parsing/parser.ml" +# 2996 "parsing/parser.ml" in -# 3927 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 3024 "parsing/parser.ml" +# 3002 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3070,24 +3048,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 3074 "parsing/parser.ml" +# 3052 "parsing/parser.ml" in -# 1276 "parsing/parser.mly" +# 1254 "parsing/parser.mly" ( xs ) -# 3079 "parsing/parser.ml" +# 3057 "parsing/parser.ml" in -# 3956 "parsing/parser.mly" +# 3937 "parsing/parser.mly" ( _1 ) -# 3085 "parsing/parser.ml" +# 3063 "parsing/parser.ml" in -# 3913 "parsing/parser.mly" +# 3894 "parsing/parser.mly" ( Ptyp_variant(_3, Closed, None) ) -# 3091 "parsing/parser.ml" +# 3069 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -3095,15 +3073,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 3101 "parsing/parser.ml" +# 3079 "parsing/parser.ml" in -# 3927 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 3107 "parsing/parser.ml" +# 3085 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3160,24 +3138,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 3164 "parsing/parser.ml" +# 3142 "parsing/parser.ml" in -# 1276 "parsing/parser.mly" +# 1254 "parsing/parser.mly" ( xs ) -# 3169 "parsing/parser.ml" +# 3147 "parsing/parser.ml" in -# 3956 "parsing/parser.mly" +# 3937 "parsing/parser.mly" ( _1 ) -# 3175 "parsing/parser.ml" +# 3153 "parsing/parser.ml" in -# 3915 "parsing/parser.mly" +# 3896 "parsing/parser.mly" ( Ptyp_variant(_2 :: _4, Closed, None) ) -# 3181 "parsing/parser.ml" +# 3159 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -3185,15 +3163,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 3191 "parsing/parser.ml" +# 3169 "parsing/parser.ml" in -# 3927 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 3197 "parsing/parser.ml" +# 3175 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3243,24 +3221,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 3247 "parsing/parser.ml" +# 3225 "parsing/parser.ml" in -# 1276 "parsing/parser.mly" +# 1254 "parsing/parser.mly" ( xs ) -# 3252 "parsing/parser.ml" +# 3230 "parsing/parser.ml" in -# 3956 "parsing/parser.mly" +# 3937 "parsing/parser.mly" ( _1 ) -# 3258 "parsing/parser.ml" +# 3236 "parsing/parser.ml" in -# 3917 "parsing/parser.mly" +# 3898 "parsing/parser.mly" ( Ptyp_variant(_3, Open, None) ) -# 3264 "parsing/parser.ml" +# 3242 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -3268,15 +3246,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 3274 "parsing/parser.ml" +# 3252 "parsing/parser.ml" in -# 3927 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 3280 "parsing/parser.ml" +# 3258 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3307,24 +3285,24 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3919 "parsing/parser.mly" +# 3900 "parsing/parser.mly" ( Ptyp_variant([], Open, None) ) -# 3313 "parsing/parser.ml" +# 3291 "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 -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 3322 "parsing/parser.ml" +# 3300 "parsing/parser.ml" in -# 3927 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 3328 "parsing/parser.ml" +# 3306 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3374,24 +3352,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 3378 "parsing/parser.ml" +# 3356 "parsing/parser.ml" in -# 1276 "parsing/parser.mly" +# 1254 "parsing/parser.mly" ( xs ) -# 3383 "parsing/parser.ml" +# 3361 "parsing/parser.ml" in -# 3956 "parsing/parser.mly" +# 3937 "parsing/parser.mly" ( _1 ) -# 3389 "parsing/parser.ml" +# 3367 "parsing/parser.ml" in -# 3921 "parsing/parser.mly" +# 3902 "parsing/parser.mly" ( Ptyp_variant(_3, Closed, Some []) ) -# 3395 "parsing/parser.ml" +# 3373 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -3399,15 +3377,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 3405 "parsing/parser.ml" +# 3383 "parsing/parser.ml" in -# 3927 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 3411 "parsing/parser.ml" +# 3389 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3472,18 +3450,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 3476 "parsing/parser.ml" +# 3454 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 3481 "parsing/parser.ml" +# 3459 "parsing/parser.ml" in -# 3984 "parsing/parser.mly" +# 3965 "parsing/parser.mly" ( _1 ) -# 3487 "parsing/parser.ml" +# 3465 "parsing/parser.ml" in let _3 = @@ -3491,24 +3469,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 3495 "parsing/parser.ml" +# 3473 "parsing/parser.ml" in -# 1276 "parsing/parser.mly" +# 1254 "parsing/parser.mly" ( xs ) -# 3500 "parsing/parser.ml" +# 3478 "parsing/parser.ml" in -# 3956 "parsing/parser.mly" +# 3937 "parsing/parser.mly" ( _1 ) -# 3506 "parsing/parser.ml" +# 3484 "parsing/parser.ml" in -# 3923 "parsing/parser.mly" +# 3904 "parsing/parser.mly" ( Ptyp_variant(_3, Closed, Some _5) ) -# 3512 "parsing/parser.ml" +# 3490 "parsing/parser.ml" in let _endpos__1_ = _endpos__6_ in @@ -3516,15 +3494,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 3522 "parsing/parser.ml" +# 3500 "parsing/parser.ml" in -# 3927 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 3528 "parsing/parser.ml" +# 3506 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3548,23 +3526,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3925 "parsing/parser.mly" +# 3906 "parsing/parser.mly" ( Ptyp_extension _1 ) -# 3554 "parsing/parser.ml" +# 3532 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 3562 "parsing/parser.ml" +# 3540 "parsing/parser.ml" in -# 3927 "parsing/parser.mly" +# 3908 "parsing/parser.mly" ( _1 ) -# 3568 "parsing/parser.ml" +# 3546 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3588,23 +3566,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (string Asttypes.loc) = let _1 = let _1 = -# 4366 "parsing/parser.mly" +# 4347 "parsing/parser.mly" ( _1 ) -# 3594 "parsing/parser.ml" +# 3572 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1172 "parsing/parser.mly" +# 1150 "parsing/parser.mly" ( mkloc _1 (make_loc _sloc) ) -# 3602 "parsing/parser.ml" +# 3580 "parsing/parser.ml" in -# 4368 "parsing/parser.mly" +# 4349 "parsing/parser.mly" ( _1 ) -# 3608 "parsing/parser.ml" +# 3586 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3642,24 +3620,24 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (string Asttypes.loc) = let _1 = let _1 = -# 4367 "parsing/parser.mly" +# 4348 "parsing/parser.mly" ( _1 ^ "." ^ _3.txt ) -# 3648 "parsing/parser.ml" +# 3626 "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 -# 1172 "parsing/parser.mly" +# 1150 "parsing/parser.mly" ( mkloc _1 (make_loc _sloc) ) -# 3657 "parsing/parser.ml" +# 3635 "parsing/parser.ml" in -# 4368 "parsing/parser.mly" +# 4349 "parsing/parser.mly" ( _1 ) -# 3663 "parsing/parser.ml" +# 3641 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3682,11 +3660,11 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.payload) = -# 4423 "parsing/parser.mly" +# 4404 "parsing/parser.mly" ( Builtin_attributes.mark_payload_attrs_used _1; _1 ) -# 3690 "parsing/parser.ml" +# 3668 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3733,9 +3711,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4372 "parsing/parser.mly" +# 4353 "parsing/parser.mly" ( mk_attr ~loc:(make_loc _sloc) _2 _3 ) -# 3739 "parsing/parser.ml" +# 3717 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3758,9 +3736,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.class_expr) = -# 2145 "parsing/parser.mly" +# 2130 "parsing/parser.mly" ( _1 ) -# 3764 "parsing/parser.ml" +# 3742 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3799,18 +3777,18 @@ module Tables = struct let _v : (Parsetree.class_expr) = let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 3805 "parsing/parser.ml" +# 3783 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2147 "parsing/parser.mly" +# 2132 "parsing/parser.mly" ( wrap_class_attrs ~loc:_sloc _3 _2 ) -# 3814 "parsing/parser.ml" +# 3792 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3850,9 +3828,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2149 "parsing/parser.mly" +# 2134 "parsing/parser.mly" ( class_of_let_bindings ~loc:_sloc _1 _3 ) -# 3856 "parsing/parser.ml" +# 3834 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -3915,34 +3893,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 3921 "parsing/parser.ml" +# 3899 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined2_ in let _4 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 3930 "parsing/parser.ml" +# 3908 "parsing/parser.ml" in let _3 = -# 4290 "parsing/parser.mly" +# 4271 "parsing/parser.mly" ( Fresh ) -# 3936 "parsing/parser.ml" +# 3914 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2151 "parsing/parser.mly" +# 2136 "parsing/parser.mly" ( let loc = (_startpos__2_, _endpos__5_) in let od = Opn.mk ~override:_3 ~loc:(make_loc loc) _5 in mkclass ~loc:_sloc ~attrs:_4 (Pcl_open(od, _7)) ) -# 3946 "parsing/parser.ml" +# 3924 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4012,34 +3990,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 4018 "parsing/parser.ml" +# 3996 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 4027 "parsing/parser.ml" +# 4005 "parsing/parser.ml" in let _3 = -# 4291 "parsing/parser.mly" +# 4272 "parsing/parser.mly" ( Override ) -# 4033 "parsing/parser.ml" +# 4011 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2151 "parsing/parser.mly" +# 2136 "parsing/parser.mly" ( let loc = (_startpos__2_, _endpos__5_) in let od = Opn.mk ~override:_3 ~loc:(make_loc loc) _5 in mkclass ~loc:_sloc ~attrs:_4 (Pcl_open(od, _7)) ) -# 4043 "parsing/parser.ml" +# 4021 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4069,9 +4047,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.class_expr) = -# 2155 "parsing/parser.mly" +# 2140 "parsing/parser.mly" ( Cl.attr _1 _2 ) -# 4075 "parsing/parser.ml" +# 4053 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4106,18 +4084,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 4110 "parsing/parser.ml" +# 4088 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 4115 "parsing/parser.ml" +# 4093 "parsing/parser.ml" in -# 2158 "parsing/parser.mly" +# 2143 "parsing/parser.mly" ( Pcl_apply(_1, _2) ) -# 4121 "parsing/parser.ml" +# 4099 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in @@ -4125,15 +4103,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1195 "parsing/parser.mly" +# 1173 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 4131 "parsing/parser.ml" +# 4109 "parsing/parser.ml" in -# 2161 "parsing/parser.mly" +# 2146 "parsing/parser.mly" ( _1 ) -# 4137 "parsing/parser.ml" +# 4115 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4157,23 +4135,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.class_expr) = let _1 = let _1 = -# 2160 "parsing/parser.mly" +# 2145 "parsing/parser.mly" ( Pcl_extension _1 ) -# 4163 "parsing/parser.ml" +# 4141 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1195 "parsing/parser.mly" +# 1173 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 4171 "parsing/parser.ml" +# 4149 "parsing/parser.ml" in -# 2161 "parsing/parser.mly" +# 2146 "parsing/parser.mly" ( _1 ) -# 4177 "parsing/parser.ml" +# 4155 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4226,33 +4204,33 @@ module Tables = struct let _v : (Parsetree.class_field) = let _6 = let _1 = _1_inlined2 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 4232 "parsing/parser.ml" +# 4210 "parsing/parser.ml" in let _endpos__6_ = _endpos__1_inlined2_ in let _3 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 4241 "parsing/parser.ml" +# 4219 "parsing/parser.ml" in let _2 = -# 4290 "parsing/parser.mly" +# 4271 "parsing/parser.mly" ( Fresh ) -# 4247 "parsing/parser.ml" +# 4225 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2210 "parsing/parser.mly" +# 2195 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_inherit (_2, _4, self)) ~attrs:(_3@_6) ~docs ) -# 4256 "parsing/parser.ml" +# 4234 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4312,33 +4290,33 @@ module Tables = struct let _v : (Parsetree.class_field) = let _6 = let _1 = _1_inlined3 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 4318 "parsing/parser.ml" +# 4296 "parsing/parser.ml" in let _endpos__6_ = _endpos__1_inlined3_ in let _3 = let _1 = _1_inlined2 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 4327 "parsing/parser.ml" +# 4305 "parsing/parser.ml" in let _2 = -# 4291 "parsing/parser.mly" +# 4272 "parsing/parser.mly" ( Override ) -# 4333 "parsing/parser.ml" +# 4311 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2210 "parsing/parser.mly" +# 2195 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_inherit (_2, _4, self)) ~attrs:(_3@_6) ~docs ) -# 4342 "parsing/parser.ml" +# 4320 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4379,9 +4357,9 @@ module Tables = struct let _v : (Parsetree.class_field) = let _3 = let _1 = _1_inlined1 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 4385 "parsing/parser.ml" +# 4363 "parsing/parser.ml" in let _endpos__3_ = _endpos__1_inlined1_ in @@ -4389,11 +4367,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2213 "parsing/parser.mly" +# 2198 "parsing/parser.mly" ( let v, attrs = _2 in let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_val v) ~attrs:(attrs@_3) ~docs ) -# 4397 "parsing/parser.ml" +# 4375 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4434,9 +4412,9 @@ module Tables = struct let _v : (Parsetree.class_field) = let _3 = let _1 = _1_inlined1 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 4440 "parsing/parser.ml" +# 4418 "parsing/parser.ml" in let _endpos__3_ = _endpos__1_inlined1_ in @@ -4444,11 +4422,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2217 "parsing/parser.mly" +# 2202 "parsing/parser.mly" ( let meth, attrs = _2 in let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_method meth) ~attrs:(attrs@_3) ~docs ) -# 4452 "parsing/parser.ml" +# 4430 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4494,28 +4472,28 @@ module Tables = struct let _v : (Parsetree.class_field) = let _4 = let _1 = _1_inlined2 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 4500 "parsing/parser.ml" +# 4478 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 4509 "parsing/parser.ml" +# 4487 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2221 "parsing/parser.mly" +# 2206 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_constraint _3) ~attrs:(_2@_4) ~docs ) -# 4519 "parsing/parser.ml" +# 4497 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4561,28 +4539,28 @@ module Tables = struct let _v : (Parsetree.class_field) = let _4 = let _1 = _1_inlined2 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 4567 "parsing/parser.ml" +# 4545 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 4576 "parsing/parser.ml" +# 4554 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2224 "parsing/parser.mly" +# 2209 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_initializer _3) ~attrs:(_2@_4) ~docs ) -# 4586 "parsing/parser.ml" +# 4564 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4614,9 +4592,9 @@ module Tables = struct let _v : (Parsetree.class_field) = let _2 = let _1 = _1_inlined1 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 4620 "parsing/parser.ml" +# 4598 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in @@ -4624,10 +4602,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2227 "parsing/parser.mly" +# 2212 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkcf ~loc:_sloc (Pcf_extension _1) ~attrs:_2 ~docs ) -# 4631 "parsing/parser.ml" +# 4609 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4651,23 +4629,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.class_field) = let _1 = let _1 = -# 2230 "parsing/parser.mly" +# 2215 "parsing/parser.mly" ( Pcf_attribute _1 ) -# 4657 "parsing/parser.ml" +# 4635 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1193 "parsing/parser.mly" +# 1171 "parsing/parser.mly" ( mkcf ~loc:_sloc _1 ) -# 4665 "parsing/parser.ml" +# 4643 "parsing/parser.ml" in -# 2231 "parsing/parser.mly" +# 2216 "parsing/parser.mly" ( _1 ) -# 4671 "parsing/parser.ml" +# 4649 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4697,9 +4675,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.class_expr) = -# 2125 "parsing/parser.mly" +# 2110 "parsing/parser.mly" ( _2 ) -# 4703 "parsing/parser.ml" +# 4681 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4744,24 +4722,24 @@ module Tables = struct let _endpos = _endpos__4_ in let _v : (Parsetree.class_expr) = let _1 = let _1 = -# 2128 "parsing/parser.mly" +# 2113 "parsing/parser.mly" ( Pcl_constraint(_4, _2) ) -# 4750 "parsing/parser.ml" +# 4728 "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 -# 1195 "parsing/parser.mly" +# 1173 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 4759 "parsing/parser.ml" +# 4737 "parsing/parser.ml" in -# 2131 "parsing/parser.mly" +# 2116 "parsing/parser.mly" ( _1 ) -# 4765 "parsing/parser.ml" +# 4743 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4792,24 +4770,24 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.class_expr) = let _1 = let _1 = -# 2130 "parsing/parser.mly" +# 2115 "parsing/parser.mly" ( let (l,o,p) = _1 in Pcl_fun(l, o, p, _2) ) -# 4798 "parsing/parser.ml" +# 4776 "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 -# 1195 "parsing/parser.mly" +# 1173 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 4807 "parsing/parser.ml" +# 4785 "parsing/parser.ml" in -# 2131 "parsing/parser.mly" +# 2116 "parsing/parser.mly" ( _1 ) -# 4813 "parsing/parser.ml" +# 4791 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4847,24 +4825,24 @@ module Tables = struct let _endpos = _endpos_e_ in let _v : (Parsetree.class_expr) = let _1 = let _1 = -# 2186 "parsing/parser.mly" +# 2171 "parsing/parser.mly" ( let (l,o,p) = _1 in Pcl_fun(l, o, p, e) ) -# 4853 "parsing/parser.ml" +# 4831 "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 -# 1195 "parsing/parser.mly" +# 1173 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 4862 "parsing/parser.ml" +# 4840 "parsing/parser.ml" in -# 2187 "parsing/parser.mly" +# 2172 "parsing/parser.mly" ( _1 ) -# 4868 "parsing/parser.ml" +# 4846 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4895,24 +4873,24 @@ module Tables = struct let _endpos = _endpos_e_ in let _v : (Parsetree.class_expr) = let _1 = let _1 = -# 2186 "parsing/parser.mly" +# 2171 "parsing/parser.mly" ( let (l,o,p) = _1 in Pcl_fun(l, o, p, e) ) -# 4901 "parsing/parser.ml" +# 4879 "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 -# 1195 "parsing/parser.mly" +# 1173 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 4910 "parsing/parser.ml" +# 4888 "parsing/parser.ml" in -# 2187 "parsing/parser.mly" +# 2172 "parsing/parser.mly" ( _1 ) -# 4916 "parsing/parser.ml" +# 4894 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4935,9 +4913,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4163 "parsing/parser.mly" +# 4144 "parsing/parser.mly" ( _1 ) -# 4941 "parsing/parser.ml" +# 4919 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -4977,9 +4955,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2195 "parsing/parser.mly" +# 2180 "parsing/parser.mly" ( reloc_pat ~loc:_sloc _2 ) -# 4983 "parsing/parser.ml" +# 4961 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5031,24 +5009,24 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 2197 "parsing/parser.mly" +# 2182 "parsing/parser.mly" ( Ppat_constraint(_2, _4) ) -# 5037 "parsing/parser.ml" +# 5015 "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 -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 5046 "parsing/parser.ml" +# 5024 "parsing/parser.ml" in -# 2198 "parsing/parser.mly" +# 2183 "parsing/parser.mly" ( _1 ) -# 5052 "parsing/parser.ml" +# 5030 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5067,9 +5045,9 @@ module Tables = struct let _symbolstartpos = _endpos in let _sloc = (_symbolstartpos, _endpos) in -# 2200 "parsing/parser.mly" +# 2185 "parsing/parser.mly" ( ghpat ~loc:_sloc Ppat_any ) -# 5073 "parsing/parser.ml" +# 5051 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5106,9 +5084,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.core_type) = -# 2325 "parsing/parser.mly" +# 2310 "parsing/parser.mly" ( _2 ) -# 5112 "parsing/parser.ml" +# 5090 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5125,24 +5103,24 @@ module Tables = struct let _endpos = _startpos in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 2326 "parsing/parser.mly" +# 2311 "parsing/parser.mly" ( Ptyp_any ) -# 5131 "parsing/parser.ml" +# 5109 "parsing/parser.ml" in let _endpos__1_ = _endpos__0_ in let _endpos = _endpos__1_ in let _symbolstartpos = _endpos in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 5140 "parsing/parser.ml" +# 5118 "parsing/parser.ml" in -# 2327 "parsing/parser.mly" +# 2312 "parsing/parser.mly" ( _1 ) -# 5146 "parsing/parser.ml" +# 5124 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5188,28 +5166,28 @@ module Tables = struct let _v : (Parsetree.class_type_field) = let _4 = let _1 = _1_inlined2 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 5194 "parsing/parser.ml" +# 5172 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 5203 "parsing/parser.ml" +# 5181 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2335 "parsing/parser.mly" +# 2320 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_inherit _3) ~attrs:(_2@_4) ~docs ) -# 5213 "parsing/parser.ml" +# 5191 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5267,9 +5245,9 @@ module Tables = struct let ty : (Parsetree.core_type) = Obj.magic ty in let _3 : unit = Obj.magic _3 in let _1_inlined2 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 5273 "parsing/parser.ml" +# 5251 "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 @@ -5280,9 +5258,9 @@ module Tables = struct let _v : (Parsetree.class_type_field) = let _4 = let _1 = _1_inlined3 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 5286 "parsing/parser.ml" +# 5264 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined3_ in @@ -5290,44 +5268,44 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let label = let _1 = -# 4024 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( _1 ) -# 5296 "parsing/parser.ml" +# 5274 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 5304 "parsing/parser.ml" +# 5282 "parsing/parser.ml" in -# 2360 "parsing/parser.mly" +# 2345 "parsing/parser.mly" ( let mut, virt = flags in label, mut, virt, ty ) -# 5313 "parsing/parser.ml" +# 5291 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 5321 "parsing/parser.ml" +# 5299 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2338 "parsing/parser.mly" +# 2323 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_val _3) ~attrs:(_2@_4) ~docs ) -# 5331 "parsing/parser.ml" +# 5309 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5385,9 +5363,9 @@ module Tables = struct let _1_inlined3 : (Parsetree.core_type) = Obj.magic _1_inlined3 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 5391 "parsing/parser.ml" +# 5369 "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 @@ -5398,53 +5376,53 @@ module Tables = struct let _v : (Parsetree.class_type_field) = let _7 = let _1 = _1_inlined4 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 5404 "parsing/parser.ml" +# 5382 "parsing/parser.ml" in let _endpos__7_ = _endpos__1_inlined4_ in let _6 = let _1 = _1_inlined3 in -# 3749 "parsing/parser.mly" +# 3730 "parsing/parser.mly" ( _1 ) -# 5413 "parsing/parser.ml" +# 5391 "parsing/parser.ml" in let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = -# 4024 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( _1 ) -# 5421 "parsing/parser.ml" +# 5399 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 5429 "parsing/parser.ml" +# 5407 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 5437 "parsing/parser.ml" +# 5415 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2342 "parsing/parser.mly" +# 2327 "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 ) -# 5448 "parsing/parser.ml" +# 5426 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5490,28 +5468,28 @@ module Tables = struct let _v : (Parsetree.class_type_field) = let _4 = let _1 = _1_inlined2 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 5496 "parsing/parser.ml" +# 5474 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 5505 "parsing/parser.ml" +# 5483 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2346 "parsing/parser.mly" +# 2331 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_constraint _3) ~attrs:(_2@_4) ~docs ) -# 5515 "parsing/parser.ml" +# 5493 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5543,9 +5521,9 @@ module Tables = struct let _v : (Parsetree.class_type_field) = let _2 = let _1 = _1_inlined1 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 5549 "parsing/parser.ml" +# 5527 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in @@ -5553,10 +5531,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2349 "parsing/parser.mly" +# 2334 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mkctf ~loc:_sloc (Pctf_extension _1) ~attrs:_2 ~docs ) -# 5560 "parsing/parser.ml" +# 5538 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5580,23 +5558,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.class_type_field) = let _1 = let _1 = -# 2352 "parsing/parser.mly" +# 2337 "parsing/parser.mly" ( Pctf_attribute _1 ) -# 5586 "parsing/parser.ml" +# 5564 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1191 "parsing/parser.mly" +# 1169 "parsing/parser.mly" ( mkctf ~loc:_sloc _1 ) -# 5594 "parsing/parser.ml" +# 5572 "parsing/parser.ml" in -# 2353 "parsing/parser.mly" +# 2338 "parsing/parser.mly" ( _1 ) -# 5600 "parsing/parser.ml" +# 5578 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5625,42 +5603,42 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 5631 "parsing/parser.ml" +# 5609 "parsing/parser.ml" in let tys = let tys = -# 2311 "parsing/parser.mly" +# 2296 "parsing/parser.mly" ( [] ) -# 5638 "parsing/parser.ml" +# 5616 "parsing/parser.ml" in -# 2317 "parsing/parser.mly" +# 2302 "parsing/parser.mly" ( tys ) -# 5643 "parsing/parser.ml" +# 5621 "parsing/parser.ml" in -# 2294 "parsing/parser.mly" +# 2279 "parsing/parser.mly" ( Pcty_constr (cid, tys) ) -# 5649 "parsing/parser.ml" +# 5627 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1189 "parsing/parser.mly" +# 1167 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) -# 5658 "parsing/parser.ml" +# 5636 "parsing/parser.ml" in -# 2297 "parsing/parser.mly" +# 2282 "parsing/parser.mly" ( _1 ) -# 5664 "parsing/parser.ml" +# 5642 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5711,9 +5689,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 5717 "parsing/parser.ml" +# 5695 "parsing/parser.ml" in let tys = @@ -5722,30 +5700,30 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 5726 "parsing/parser.ml" +# 5704 "parsing/parser.ml" in -# 1276 "parsing/parser.mly" +# 1254 "parsing/parser.mly" ( xs ) -# 5731 "parsing/parser.ml" +# 5709 "parsing/parser.ml" in -# 2313 "parsing/parser.mly" +# 2298 "parsing/parser.mly" ( params ) -# 5737 "parsing/parser.ml" +# 5715 "parsing/parser.ml" in -# 2317 "parsing/parser.mly" +# 2302 "parsing/parser.mly" ( tys ) -# 5743 "parsing/parser.ml" +# 5721 "parsing/parser.ml" in -# 2294 "parsing/parser.mly" +# 2279 "parsing/parser.mly" ( Pcty_constr (cid, tys) ) -# 5749 "parsing/parser.ml" +# 5727 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -5753,15 +5731,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1189 "parsing/parser.mly" +# 1167 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) -# 5759 "parsing/parser.ml" +# 5737 "parsing/parser.ml" in -# 2297 "parsing/parser.mly" +# 2282 "parsing/parser.mly" ( _1 ) -# 5765 "parsing/parser.ml" +# 5743 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5785,23 +5763,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.class_type) = let _1 = let _1 = -# 2296 "parsing/parser.mly" +# 2281 "parsing/parser.mly" ( Pcty_extension _1 ) -# 5791 "parsing/parser.ml" +# 5769 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1189 "parsing/parser.mly" +# 1167 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) -# 5799 "parsing/parser.ml" +# 5777 "parsing/parser.ml" in -# 2297 "parsing/parser.mly" +# 2282 "parsing/parser.mly" ( _1 ) -# 5805 "parsing/parser.ml" +# 5783 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5858,44 +5836,44 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 5862 "parsing/parser.ml" +# 5840 "parsing/parser.ml" in -# 2331 "parsing/parser.mly" +# 2316 "parsing/parser.mly" ( _1 ) -# 5867 "parsing/parser.ml" +# 5845 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1137 "parsing/parser.mly" +# 1115 "parsing/parser.mly" ( extra_csig _startpos _endpos _1 ) -# 5876 "parsing/parser.ml" +# 5854 "parsing/parser.ml" in -# 2321 "parsing/parser.mly" +# 2306 "parsing/parser.mly" ( Csig.mk _1 _2 ) -# 5882 "parsing/parser.ml" +# 5860 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 5890 "parsing/parser.ml" +# 5868 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2299 "parsing/parser.mly" +# 2284 "parsing/parser.mly" ( mkcty ~loc:_sloc ~attrs:_2 (Pcty_signature _3) ) -# 5899 "parsing/parser.ml" +# 5877 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -5952,43 +5930,43 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 5956 "parsing/parser.ml" +# 5934 "parsing/parser.ml" in -# 2331 "parsing/parser.mly" +# 2316 "parsing/parser.mly" ( _1 ) -# 5961 "parsing/parser.ml" +# 5939 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1137 "parsing/parser.mly" +# 1115 "parsing/parser.mly" ( extra_csig _startpos _endpos _1 ) -# 5970 "parsing/parser.ml" +# 5948 "parsing/parser.ml" in -# 2321 "parsing/parser.mly" +# 2306 "parsing/parser.mly" ( Csig.mk _1 _2 ) -# 5976 "parsing/parser.ml" +# 5954 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 5984 "parsing/parser.ml" +# 5962 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2301 "parsing/parser.mly" +# 2286 "parsing/parser.mly" ( unclosed "object" _loc__1_ "end" _loc__4_ ) -# 5992 "parsing/parser.ml" +# 5970 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6018,9 +5996,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.class_type) = -# 2303 "parsing/parser.mly" +# 2288 "parsing/parser.mly" ( Cty.attr _1 _2 ) -# 6024 "parsing/parser.ml" +# 6002 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6083,34 +6061,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 6089 "parsing/parser.ml" +# 6067 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined2_ in let _4 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 6098 "parsing/parser.ml" +# 6076 "parsing/parser.ml" in let _3 = -# 4290 "parsing/parser.mly" +# 4271 "parsing/parser.mly" ( Fresh ) -# 6104 "parsing/parser.ml" +# 6082 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2305 "parsing/parser.mly" +# 2290 "parsing/parser.mly" ( let loc = (_startpos__2_, _endpos__5_) in let od = Opn.mk ~override:_3 ~loc:(make_loc loc) _5 in mkcty ~loc:_sloc ~attrs:_4 (Pcty_open(od, _7)) ) -# 6114 "parsing/parser.ml" +# 6092 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6180,34 +6158,34 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 6186 "parsing/parser.ml" +# 6164 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 6195 "parsing/parser.ml" +# 6173 "parsing/parser.ml" in let _3 = -# 4291 "parsing/parser.mly" +# 4272 "parsing/parser.mly" ( Override ) -# 6201 "parsing/parser.ml" +# 6179 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2305 "parsing/parser.mly" +# 2290 "parsing/parser.mly" ( let loc = (_startpos__2_, _endpos__5_) in let od = Opn.mk ~override:_3 ~loc:(make_loc loc) _5 in mkcty ~loc:_sloc ~attrs:_4 (Pcty_open(od, _7)) ) -# 6211 "parsing/parser.ml" +# 6189 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6244,9 +6222,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.class_expr) = -# 2165 "parsing/parser.mly" +# 2150 "parsing/parser.mly" ( _2 ) -# 6250 "parsing/parser.ml" +# 6228 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6285,9 +6263,9 @@ module Tables = struct let _v : (Parsetree.class_expr) = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2167 "parsing/parser.mly" +# 2152 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 6291 "parsing/parser.ml" +# 6269 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6316,42 +6294,42 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 6322 "parsing/parser.ml" +# 6300 "parsing/parser.ml" in let tys = let tys = -# 2311 "parsing/parser.mly" +# 2296 "parsing/parser.mly" ( [] ) -# 6329 "parsing/parser.ml" +# 6307 "parsing/parser.ml" in -# 2317 "parsing/parser.mly" +# 2302 "parsing/parser.mly" ( tys ) -# 6334 "parsing/parser.ml" +# 6312 "parsing/parser.ml" in -# 2170 "parsing/parser.mly" +# 2155 "parsing/parser.mly" ( Pcl_constr(cid, tys) ) -# 6340 "parsing/parser.ml" +# 6318 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1195 "parsing/parser.mly" +# 1173 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 6349 "parsing/parser.ml" +# 6327 "parsing/parser.ml" in -# 2177 "parsing/parser.mly" +# 2162 "parsing/parser.mly" ( _1 ) -# 6355 "parsing/parser.ml" +# 6333 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6402,9 +6380,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 6408 "parsing/parser.ml" +# 6386 "parsing/parser.ml" in let tys = @@ -6413,30 +6391,30 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 6417 "parsing/parser.ml" +# 6395 "parsing/parser.ml" in -# 1276 "parsing/parser.mly" +# 1254 "parsing/parser.mly" ( xs ) -# 6422 "parsing/parser.ml" +# 6400 "parsing/parser.ml" in -# 2313 "parsing/parser.mly" +# 2298 "parsing/parser.mly" ( params ) -# 6428 "parsing/parser.ml" +# 6406 "parsing/parser.ml" in -# 2317 "parsing/parser.mly" +# 2302 "parsing/parser.mly" ( tys ) -# 6434 "parsing/parser.ml" +# 6412 "parsing/parser.ml" in -# 2170 "parsing/parser.mly" +# 2155 "parsing/parser.mly" ( Pcl_constr(cid, tys) ) -# 6440 "parsing/parser.ml" +# 6418 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -6444,15 +6422,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1195 "parsing/parser.mly" +# 1173 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 6450 "parsing/parser.ml" +# 6428 "parsing/parser.ml" in -# 2177 "parsing/parser.mly" +# 2162 "parsing/parser.mly" ( _1 ) -# 6456 "parsing/parser.ml" +# 6434 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6511,43 +6489,43 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 6515 "parsing/parser.ml" +# 6493 "parsing/parser.ml" in -# 2204 "parsing/parser.mly" +# 2189 "parsing/parser.mly" ( _1 ) -# 6520 "parsing/parser.ml" +# 6498 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1136 "parsing/parser.mly" +# 1114 "parsing/parser.mly" ( extra_cstr _startpos _endpos _1 ) -# 6529 "parsing/parser.ml" +# 6507 "parsing/parser.ml" in -# 2191 "parsing/parser.mly" +# 2176 "parsing/parser.mly" ( Cstr.mk _1 _2 ) -# 6535 "parsing/parser.ml" +# 6513 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 6543 "parsing/parser.ml" +# 6521 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2172 "parsing/parser.mly" +# 2157 "parsing/parser.mly" ( unclosed "object" _loc__1_ "end" _loc__4_ ) -# 6551 "parsing/parser.ml" +# 6529 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -6555,15 +6533,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1195 "parsing/parser.mly" +# 1173 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 6561 "parsing/parser.ml" +# 6539 "parsing/parser.ml" in -# 2177 "parsing/parser.mly" +# 2162 "parsing/parser.mly" ( _1 ) -# 6567 "parsing/parser.ml" +# 6545 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6615,24 +6593,24 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.class_expr) = let _1 = let _1 = -# 2174 "parsing/parser.mly" +# 2159 "parsing/parser.mly" ( Pcl_constraint(_2, _4) ) -# 6621 "parsing/parser.ml" +# 6599 "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 -# 1195 "parsing/parser.mly" +# 1173 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 6630 "parsing/parser.ml" +# 6608 "parsing/parser.ml" in -# 2177 "parsing/parser.mly" +# 2162 "parsing/parser.mly" ( _1 ) -# 6636 "parsing/parser.ml" +# 6614 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6687,9 +6665,9 @@ module Tables = struct let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2176 "parsing/parser.mly" +# 2161 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) -# 6693 "parsing/parser.ml" +# 6671 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -6697,15 +6675,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1195 "parsing/parser.mly" +# 1173 "parsing/parser.mly" ( mkclass ~loc:_sloc _1 ) -# 6703 "parsing/parser.ml" +# 6681 "parsing/parser.ml" in -# 2177 "parsing/parser.mly" +# 2162 "parsing/parser.mly" ( _1 ) -# 6709 "parsing/parser.ml" +# 6687 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6762,44 +6740,44 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 6766 "parsing/parser.ml" +# 6744 "parsing/parser.ml" in -# 2204 "parsing/parser.mly" +# 2189 "parsing/parser.mly" ( _1 ) -# 6771 "parsing/parser.ml" +# 6749 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1136 "parsing/parser.mly" +# 1114 "parsing/parser.mly" ( extra_cstr _startpos _endpos _1 ) -# 6780 "parsing/parser.ml" +# 6758 "parsing/parser.ml" in -# 2191 "parsing/parser.mly" +# 2176 "parsing/parser.mly" ( Cstr.mk _1 _2 ) -# 6786 "parsing/parser.ml" +# 6764 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 6794 "parsing/parser.ml" +# 6772 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2179 "parsing/parser.mly" +# 2164 "parsing/parser.mly" ( mkclass ~loc:_sloc ~attrs:_2 (Pcl_structure _3) ) -# 6803 "parsing/parser.ml" +# 6781 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6822,9 +6800,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.class_type) = -# 2282 "parsing/parser.mly" +# 2267 "parsing/parser.mly" ( _1 ) -# 6828 "parsing/parser.ml" +# 6806 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6870,14 +6848,14 @@ module Tables = struct let _v : (Parsetree.class_type) = let _1 = let _1 = let label = -# 3832 "parsing/parser.mly" +# 3813 "parsing/parser.mly" ( Optional label ) -# 6876 "parsing/parser.ml" +# 6854 "parsing/parser.ml" in -# 2288 "parsing/parser.mly" +# 2273 "parsing/parser.mly" ( Pcty_arrow(label, domain, codomain) ) -# 6881 "parsing/parser.ml" +# 6859 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -6885,15 +6863,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1189 "parsing/parser.mly" +# 1167 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) -# 6891 "parsing/parser.ml" +# 6869 "parsing/parser.ml" in -# 2289 "parsing/parser.mly" +# 2274 "parsing/parser.mly" ( _1 ) -# 6897 "parsing/parser.ml" +# 6875 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -6940,9 +6918,9 @@ module Tables = struct let domain : (Parsetree.core_type) = Obj.magic domain in let _2 : unit = Obj.magic _2 in let label : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 6946 "parsing/parser.ml" +# 6924 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -6950,14 +6928,14 @@ module Tables = struct let _v : (Parsetree.class_type) = let _1 = let _1 = let label = -# 3834 "parsing/parser.mly" +# 3815 "parsing/parser.mly" ( Labelled label ) -# 6956 "parsing/parser.ml" +# 6934 "parsing/parser.ml" in -# 2288 "parsing/parser.mly" +# 2273 "parsing/parser.mly" ( Pcty_arrow(label, domain, codomain) ) -# 6961 "parsing/parser.ml" +# 6939 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -6965,15 +6943,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1189 "parsing/parser.mly" +# 1167 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) -# 6971 "parsing/parser.ml" +# 6949 "parsing/parser.ml" in -# 2289 "parsing/parser.mly" +# 2274 "parsing/parser.mly" ( _1 ) -# 6977 "parsing/parser.ml" +# 6955 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7012,14 +6990,14 @@ module Tables = struct let _v : (Parsetree.class_type) = let _1 = let _1 = let label = -# 3836 "parsing/parser.mly" +# 3817 "parsing/parser.mly" ( Nolabel ) -# 7018 "parsing/parser.ml" +# 6996 "parsing/parser.ml" in -# 2288 "parsing/parser.mly" +# 2273 "parsing/parser.mly" ( Pcty_arrow(label, domain, codomain) ) -# 7023 "parsing/parser.ml" +# 7001 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_domain_) in @@ -7027,15 +7005,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1189 "parsing/parser.mly" +# 1167 "parsing/parser.mly" ( mkcty ~loc:_sloc _1 ) -# 7033 "parsing/parser.ml" +# 7011 "parsing/parser.ml" in -# 2289 "parsing/parser.mly" +# 2274 "parsing/parser.mly" ( _1 ) -# 7039 "parsing/parser.ml" +# 7017 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7118,9 +7096,9 @@ module Tables = struct let csig : (Parsetree.class_type) = Obj.magic csig in let _8 : unit = Obj.magic _8 in let _1_inlined2 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 7124 "parsing/parser.ml" +# 7102 "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 @@ -7136,9 +7114,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 7142 "parsing/parser.ml" +# 7120 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -7148,24 +7126,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 7154 "parsing/parser.ml" +# 7132 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 7162 "parsing/parser.ml" +# 7140 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2427 "parsing/parser.mly" +# 2412 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -7173,19 +7151,19 @@ module Tables = struct ext, Ci.mk id csig ~virt ~params ~attrs ~loc ~docs ) -# 7177 "parsing/parser.ml" +# 7155 "parsing/parser.ml" in -# 1373 "parsing/parser.mly" +# 1351 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 7183 "parsing/parser.ml" +# 7161 "parsing/parser.ml" in -# 2415 "parsing/parser.mly" +# 2400 "parsing/parser.mly" ( _1 ) -# 7189 "parsing/parser.ml" +# 7167 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7208,9 +7186,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4160 "parsing/parser.mly" +# 4141 "parsing/parser.mly" ( _1 ) -# 7214 "parsing/parser.ml" +# 7192 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7243,18 +7221,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 7247 "parsing/parser.ml" +# 7225 "parsing/parser.ml" in -# 1276 "parsing/parser.mly" +# 1254 "parsing/parser.mly" ( xs ) -# 7252 "parsing/parser.ml" +# 7230 "parsing/parser.ml" in -# 2737 "parsing/parser.mly" +# 2721 "parsing/parser.mly" ( Jane_syntax.Comprehensions.For _2 ) -# 7258 "parsing/parser.ml" +# 7236 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7284,9 +7262,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Jane_syntax.Comprehensions.clause) = -# 2739 "parsing/parser.mly" +# 2723 "parsing/parser.mly" ( Jane_syntax.Comprehensions.When _2 ) -# 7290 "parsing/parser.ml" +# 7268 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7323,14 +7301,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Jane_syntax.Comprehensions.clause_binding) = let _1 = -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 7329 "parsing/parser.ml" +# 7307 "parsing/parser.ml" in -# 2720 "parsing/parser.mly" +# 2704 "parsing/parser.mly" ( Jane_syntax.Comprehensions.{ pattern = _2 ; iterator = _3 ; attributes = _1 } ) -# 7334 "parsing/parser.ml" +# 7312 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7381,9 +7359,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Jane_syntax.Comprehensions.clause_binding) = let _1 = -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 7387 "parsing/parser.ml" +# 7365 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = if _startpos__1_ != _endpos__1_ then @@ -7393,14 +7371,14 @@ module Tables = struct let _loc__2_ = (_startpos__2_, _endpos__2_) in let _sloc = (_symbolstartpos, _endpos) in -# 2727 "parsing/parser.mly" +# 2711 "parsing/parser.mly" ( Jane_syntax.Comprehensions. { pattern = _3 ; iterator = In (mkexp_stack ~loc:_sloc ~kwd_loc:(_loc__2_) _5) ; attributes = _1 } ) -# 7404 "parsing/parser.ml" +# 7382 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7444,9 +7422,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Jane_syntax.Comprehensions.iterator) = -# 2713 "parsing/parser.mly" +# 2697 "parsing/parser.mly" ( Jane_syntax.Comprehensions.Range { start = _2 ; stop = _4 ; direction = _3 } ) -# 7450 "parsing/parser.ml" +# 7428 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7476,9 +7454,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Jane_syntax.Comprehensions.iterator) = -# 2715 "parsing/parser.mly" +# 2699 "parsing/parser.mly" ( Jane_syntax.Comprehensions.In _2 ) -# 7482 "parsing/parser.ml" +# 7460 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7497,18 +7475,18 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 940 "parsing/parser.mly" +# 918 "parsing/parser.mly" (string * char option) -# 7503 "parsing/parser.ml" +# 7481 "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 : (Constant.t) = -# 4030 "parsing/parser.mly" +# 4011 "parsing/parser.mly" ( let (n, m) = _1 in Constant.value (Pconst_integer (n, m)) ) -# 7512 "parsing/parser.ml" +# 7490 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7527,17 +7505,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 895 "parsing/parser.mly" +# 873 "parsing/parser.mly" (char) -# 7533 "parsing/parser.ml" +# 7511 "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 : (Constant.t) = -# 4032 "parsing/parser.mly" +# 4013 "parsing/parser.mly" ( Constant.value (Pconst_char _1) ) -# 7541 "parsing/parser.ml" +# 7519 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7556,18 +7534,18 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 996 "parsing/parser.mly" +# 974 "parsing/parser.mly" (string * Location.t * string option) -# 7562 "parsing/parser.ml" +# 7540 "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 : (Constant.t) = -# 4033 "parsing/parser.mly" +# 4014 "parsing/parser.mly" ( let (s, strloc, d) = _1 in Constant.value (Pconst_string (s, strloc, d)) ) -# 7571 "parsing/parser.ml" +# 7549 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7586,18 +7564,18 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 917 "parsing/parser.mly" +# 895 "parsing/parser.mly" (string * char option) -# 7592 "parsing/parser.ml" +# 7570 "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 : (Constant.t) = -# 4035 "parsing/parser.mly" +# 4016 "parsing/parser.mly" ( let (f, m) = _1 in Constant.value (Pconst_float (f, m)) ) -# 7601 "parsing/parser.ml" +# 7579 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7616,9 +7594,9 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 941 "parsing/parser.mly" +# 919 "parsing/parser.mly" (string * char option) -# 7622 "parsing/parser.ml" +# 7600 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -7627,9 +7605,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4037 "parsing/parser.mly" +# 4018 "parsing/parser.mly" ( unboxed_int _sloc _sloc Positive _1 ) -# 7633 "parsing/parser.ml" +# 7611 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7648,9 +7626,9 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 918 "parsing/parser.mly" +# 896 "parsing/parser.mly" (string * char option) -# 7654 "parsing/parser.ml" +# 7632 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -7659,9 +7637,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4038 "parsing/parser.mly" +# 4019 "parsing/parser.mly" ( unboxed_float _sloc Positive _1 ) -# 7665 "parsing/parser.ml" +# 7643 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7691,9 +7669,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.label) = -# 4117 "parsing/parser.mly" +# 4098 "parsing/parser.mly" ( "[]" ) -# 7697 "parsing/parser.ml" +# 7675 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7723,9 +7701,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.label) = -# 4118 "parsing/parser.mly" +# 4099 "parsing/parser.mly" ( "()" ) -# 7729 "parsing/parser.ml" +# 7707 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7748,9 +7726,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 4119 "parsing/parser.mly" +# 4100 "parsing/parser.mly" ( "false" ) -# 7754 "parsing/parser.ml" +# 7732 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7773,9 +7751,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 4120 "parsing/parser.mly" +# 4101 "parsing/parser.mly" ( "true" ) -# 7779 "parsing/parser.ml" +# 7757 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7794,17 +7772,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 1009 "parsing/parser.mly" +# 987 "parsing/parser.mly" (string) -# 7800 "parsing/parser.ml" +# 7778 "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) = -# 4123 "parsing/parser.mly" +# 4104 "parsing/parser.mly" ( _1 ) -# 7808 "parsing/parser.ml" +# 7786 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7841,14 +7819,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Asttypes.label) = let _1 = -# 4114 "parsing/parser.mly" +# 4095 "parsing/parser.mly" ( "::" ) -# 7847 "parsing/parser.ml" +# 7825 "parsing/parser.ml" in -# 4124 "parsing/parser.mly" +# 4105 "parsing/parser.mly" ( _1 ) -# 7852 "parsing/parser.ml" +# 7830 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7871,9 +7849,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 4125 "parsing/parser.mly" +# 4106 "parsing/parser.mly" ( _1 ) -# 7877 "parsing/parser.ml" +# 7855 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7896,9 +7874,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4128 "parsing/parser.mly" +# 4109 "parsing/parser.mly" ( _1 ) -# 7902 "parsing/parser.ml" +# 7880 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7949,14 +7927,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = let _3 = -# 4114 "parsing/parser.mly" +# 4095 "parsing/parser.mly" ( "::" ) -# 7955 "parsing/parser.ml" +# 7933 "parsing/parser.ml" in -# 4129 "parsing/parser.mly" +# 4110 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 7960 "parsing/parser.ml" +# 7938 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -7993,14 +7971,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = let _1 = -# 4114 "parsing/parser.mly" +# 4095 "parsing/parser.mly" ( "::" ) -# 7999 "parsing/parser.ml" +# 7977 "parsing/parser.ml" in -# 4130 "parsing/parser.mly" +# 4111 "parsing/parser.mly" ( Lident _1 ) -# 8004 "parsing/parser.ml" +# 7982 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8023,9 +8001,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4131 "parsing/parser.mly" +# 4112 "parsing/parser.mly" ( Lident _1 ) -# 8029 "parsing/parser.ml" +# 8007 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8062,9 +8040,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.core_type * Parsetree.core_type) = -# 2371 "parsing/parser.mly" +# 2356 "parsing/parser.mly" ( _1, _3 ) -# 8068 "parsing/parser.ml" +# 8046 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8091,42 +8069,42 @@ module Tables = struct let xs = let x = let gbl = -# 4247 "parsing/parser.mly" +# 4228 "parsing/parser.mly" ( Nothing ) -# 8097 "parsing/parser.ml" +# 8075 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__0_, _endpos__0_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3600 "parsing/parser.mly" +# 3581 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 8106 "parsing/parser.ml" +# 8084 "parsing/parser.ml" in -# 1260 "parsing/parser.mly" +# 1238 "parsing/parser.mly" ( [ x ] ) -# 8112 "parsing/parser.ml" +# 8090 "parsing/parser.ml" in # 253 "" ( List.rev xs ) -# 8118 "parsing/parser.ml" +# 8096 "parsing/parser.ml" in -# 1280 "parsing/parser.mly" +# 1258 "parsing/parser.mly" ( xs ) -# 8124 "parsing/parser.ml" +# 8102 "parsing/parser.ml" in -# 3608 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( Pcstr_tuple tys ) -# 8130 "parsing/parser.ml" +# 8108 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8160,42 +8138,42 @@ module Tables = struct let xs = let x = let gbl = -# 4248 "parsing/parser.mly" +# 4229 "parsing/parser.mly" ( Global ) -# 8166 "parsing/parser.ml" +# 8144 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3600 "parsing/parser.mly" +# 3581 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 8175 "parsing/parser.ml" +# 8153 "parsing/parser.ml" in -# 1260 "parsing/parser.mly" +# 1238 "parsing/parser.mly" ( [ x ] ) -# 8181 "parsing/parser.ml" +# 8159 "parsing/parser.ml" in # 253 "" ( List.rev xs ) -# 8187 "parsing/parser.ml" +# 8165 "parsing/parser.ml" in -# 1280 "parsing/parser.mly" +# 1258 "parsing/parser.mly" ( xs ) -# 8193 "parsing/parser.ml" +# 8171 "parsing/parser.ml" in -# 3608 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( Pcstr_tuple tys ) -# 8199 "parsing/parser.ml" +# 8177 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8237,42 +8215,42 @@ module Tables = struct let x = let _endpos__0_ = _endpos__2_ in let gbl = -# 4247 "parsing/parser.mly" +# 4228 "parsing/parser.mly" ( Nothing ) -# 8243 "parsing/parser.ml" +# 8221 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__0_, _endpos__0_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3600 "parsing/parser.mly" +# 3581 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 8252 "parsing/parser.ml" +# 8230 "parsing/parser.ml" in -# 1264 "parsing/parser.mly" +# 1242 "parsing/parser.mly" ( x :: xs ) -# 8258 "parsing/parser.ml" +# 8236 "parsing/parser.ml" in # 253 "" ( List.rev xs ) -# 8264 "parsing/parser.ml" +# 8242 "parsing/parser.ml" in -# 1280 "parsing/parser.mly" +# 1258 "parsing/parser.mly" ( xs ) -# 8270 "parsing/parser.ml" +# 8248 "parsing/parser.ml" in -# 3608 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( Pcstr_tuple tys ) -# 8276 "parsing/parser.ml" +# 8254 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8320,42 +8298,42 @@ module Tables = struct let xs = let x = let gbl = -# 4248 "parsing/parser.mly" +# 4229 "parsing/parser.mly" ( Global ) -# 8326 "parsing/parser.ml" +# 8304 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3600 "parsing/parser.mly" +# 3581 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 8335 "parsing/parser.ml" +# 8313 "parsing/parser.ml" in -# 1264 "parsing/parser.mly" +# 1242 "parsing/parser.mly" ( x :: xs ) -# 8341 "parsing/parser.ml" +# 8319 "parsing/parser.ml" in # 253 "" ( List.rev xs ) -# 8347 "parsing/parser.ml" +# 8325 "parsing/parser.ml" in -# 1280 "parsing/parser.mly" +# 1258 "parsing/parser.mly" ( xs ) -# 8353 "parsing/parser.ml" +# 8331 "parsing/parser.ml" in -# 3608 "parsing/parser.mly" +# 3589 "parsing/parser.mly" ( Pcstr_tuple tys ) -# 8359 "parsing/parser.ml" +# 8337 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8392,9 +8370,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.constructor_arguments) = -# 3610 "parsing/parser.mly" +# 3591 "parsing/parser.mly" ( Pcstr_record _2 ) -# 8398 "parsing/parser.ml" +# 8376 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8417,9 +8395,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.constructor_declaration list) = -# 3518 "parsing/parser.mly" +# 3499 "parsing/parser.mly" ( [] ) -# 8423 "parsing/parser.ml" +# 8401 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8442,14 +8420,14 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_xs_ in let _v : (Parsetree.constructor_declaration list) = let cs = -# 1365 "parsing/parser.mly" +# 1343 "parsing/parser.mly" ( List.rev xs ) -# 8448 "parsing/parser.ml" +# 8426 "parsing/parser.ml" in -# 3520 "parsing/parser.mly" +# 3501 "parsing/parser.mly" ( cs ) -# 8453 "parsing/parser.ml" +# 8431 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8472,14 +8450,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = let _1 = -# 3774 "parsing/parser.mly" +# 3755 "parsing/parser.mly" ( _1 ) -# 8478 "parsing/parser.ml" +# 8456 "parsing/parser.ml" in -# 3764 "parsing/parser.mly" +# 3745 "parsing/parser.mly" ( _1 ) -# 8483 "parsing/parser.ml" +# 8461 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8509,9 +8487,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type) = -# 3766 "parsing/parser.mly" +# 3747 "parsing/parser.mly" ( Typ.attr _1 _2 ) -# 8515 "parsing/parser.ml" +# 8493 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8534,9 +8512,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.direction_flag) = -# 4226 "parsing/parser.mly" +# 4207 "parsing/parser.mly" ( Upto ) -# 8540 "parsing/parser.ml" +# 8518 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8559,9 +8537,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.direction_flag) = -# 4227 "parsing/parser.mly" +# 4208 "parsing/parser.mly" ( Downto ) -# 8565 "parsing/parser.ml" +# 8543 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8584,9 +8562,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = -# 2565 "parsing/parser.mly" +# 2550 "parsing/parser.mly" ( _1 ) -# 8590 "parsing/parser.ml" +# 8568 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8664,9 +8642,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 8670 "parsing/parser.ml" +# 8648 "parsing/parser.ml" in let _3 = @@ -8674,21 +8652,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 8680 "parsing/parser.ml" +# 8658 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 8686 "parsing/parser.ml" +# 8664 "parsing/parser.ml" in -# 2602 "parsing/parser.mly" +# 2587 "parsing/parser.mly" ( Pexp_letmodule(_4, _5, _7), _3 ) -# 8692 "parsing/parser.ml" +# 8670 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -8696,10 +8674,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2567 "parsing/parser.mly" +# 2552 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8703 "parsing/parser.ml" +# 8681 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8784,9 +8762,9 @@ module Tables = struct let _3 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 8790 "parsing/parser.ml" +# 8768 "parsing/parser.ml" in let _endpos__3_ = _endpos__1_inlined1_ in @@ -8795,19 +8773,19 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 8801 "parsing/parser.ml" +# 8779 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3582 "parsing/parser.mly" +# 3563 "parsing/parser.mly" ( let vars, args, res = _2 in Te.decl _1 ~vars ~args ?res ~attrs:_3 ~loc:(make_loc _sloc) ) -# 8811 "parsing/parser.ml" +# 8789 "parsing/parser.ml" in let _3 = @@ -8815,21 +8793,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 8821 "parsing/parser.ml" +# 8799 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 8827 "parsing/parser.ml" +# 8805 "parsing/parser.ml" in -# 2604 "parsing/parser.mly" +# 2589 "parsing/parser.mly" ( Pexp_letexception(_4, _6), _3 ) -# 8833 "parsing/parser.ml" +# 8811 "parsing/parser.ml" in let _endpos__1_ = _endpos__6_ in @@ -8837,10 +8815,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2567 "parsing/parser.mly" +# 2552 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8844 "parsing/parser.ml" +# 8822 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -8910,28 +8888,28 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 8916 "parsing/parser.ml" +# 8894 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 8922 "parsing/parser.ml" +# 8900 "parsing/parser.ml" in let _3 = -# 4290 "parsing/parser.mly" +# 4271 "parsing/parser.mly" ( Fresh ) -# 8928 "parsing/parser.ml" +# 8906 "parsing/parser.ml" in -# 2606 "parsing/parser.mly" +# 2591 "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 ) -# 8935 "parsing/parser.ml" +# 8913 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -8939,10 +8917,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2567 "parsing/parser.mly" +# 2552 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 8946 "parsing/parser.ml" +# 8924 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9019,28 +8997,28 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 9025 "parsing/parser.ml" +# 9003 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 9031 "parsing/parser.ml" +# 9009 "parsing/parser.ml" in let _3 = -# 4291 "parsing/parser.mly" +# 4272 "parsing/parser.mly" ( Override ) -# 9037 "parsing/parser.ml" +# 9015 "parsing/parser.ml" in -# 2606 "parsing/parser.mly" +# 2591 "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 ) -# 9044 "parsing/parser.ml" +# 9022 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -9048,10 +9026,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2567 "parsing/parser.mly" +# 2552 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9055 "parsing/parser.ml" +# 9033 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9100,18 +9078,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 9104 "parsing/parser.ml" +# 9082 "parsing/parser.ml" in -# 1337 "parsing/parser.mly" +# 1315 "parsing/parser.mly" ( xs ) -# 9109 "parsing/parser.ml" +# 9087 "parsing/parser.ml" in -# 3041 "parsing/parser.mly" +# 3023 "parsing/parser.mly" ( xs ) -# 9115 "parsing/parser.ml" +# 9093 "parsing/parser.ml" in let _2 = @@ -9119,21 +9097,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 9125 "parsing/parser.ml" +# 9103 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 9131 "parsing/parser.ml" +# 9109 "parsing/parser.ml" in -# 2610 "parsing/parser.mly" +# 2595 "parsing/parser.mly" ( Pexp_function _3, _2 ) -# 9137 "parsing/parser.ml" +# 9115 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in @@ -9141,10 +9119,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2567 "parsing/parser.mly" +# 2552 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9148 "parsing/parser.ml" +# 9126 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9200,22 +9178,22 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 9206 "parsing/parser.ml" +# 9184 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 9212 "parsing/parser.ml" +# 9190 "parsing/parser.ml" in -# 2612 "parsing/parser.mly" +# 2597 "parsing/parser.mly" ( let (l,o,p) = _3 in Pexp_fun(l, o, p, _4), _2 ) -# 9219 "parsing/parser.ml" +# 9197 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -9223,10 +9201,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2567 "parsing/parser.mly" +# 2552 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9230 "parsing/parser.ml" +# 9208 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9299,33 +9277,33 @@ module Tables = struct let _endpos = _endpos__7_ in let _v : (Parsetree.expression) = let _1 = let _5 = -# 2895 "parsing/parser.mly" +# 2877 "parsing/parser.mly" ( xs ) -# 9305 "parsing/parser.ml" +# 9283 "parsing/parser.ml" in let _2 = let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 9314 "parsing/parser.ml" +# 9292 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 9320 "parsing/parser.ml" +# 9298 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2615 "parsing/parser.mly" +# 2600 "parsing/parser.mly" ( (mk_newtypes ~loc:_sloc _5 _7).pexp_desc, _2 ) -# 9329 "parsing/parser.ml" +# 9307 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -9333,10 +9311,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2567 "parsing/parser.mly" +# 2552 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9340 "parsing/parser.ml" +# 9318 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9399,18 +9377,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 9403 "parsing/parser.ml" +# 9381 "parsing/parser.ml" in -# 1337 "parsing/parser.mly" +# 1315 "parsing/parser.mly" ( xs ) -# 9408 "parsing/parser.ml" +# 9386 "parsing/parser.ml" in -# 3041 "parsing/parser.mly" +# 3023 "parsing/parser.mly" ( xs ) -# 9414 "parsing/parser.ml" +# 9392 "parsing/parser.ml" in let _2 = @@ -9418,21 +9396,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 9424 "parsing/parser.ml" +# 9402 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 9430 "parsing/parser.ml" +# 9408 "parsing/parser.ml" in -# 2617 "parsing/parser.mly" +# 2602 "parsing/parser.mly" ( Pexp_match(_3, _5), _2 ) -# 9436 "parsing/parser.ml" +# 9414 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in @@ -9440,10 +9418,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2567 "parsing/parser.mly" +# 2552 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9447 "parsing/parser.ml" +# 9425 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9506,18 +9484,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 9510 "parsing/parser.ml" +# 9488 "parsing/parser.ml" in -# 1337 "parsing/parser.mly" +# 1315 "parsing/parser.mly" ( xs ) -# 9515 "parsing/parser.ml" +# 9493 "parsing/parser.ml" in -# 3041 "parsing/parser.mly" +# 3023 "parsing/parser.mly" ( xs ) -# 9521 "parsing/parser.ml" +# 9499 "parsing/parser.ml" in let _2 = @@ -9525,21 +9503,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 9531 "parsing/parser.ml" +# 9509 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 9537 "parsing/parser.ml" +# 9515 "parsing/parser.ml" in -# 2619 "parsing/parser.mly" +# 2604 "parsing/parser.mly" ( Pexp_try(_3, _5), _2 ) -# 9543 "parsing/parser.ml" +# 9521 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in @@ -9547,10 +9525,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2567 "parsing/parser.mly" +# 2552 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9554 "parsing/parser.ml" +# 9532 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9613,21 +9591,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 9619 "parsing/parser.ml" +# 9597 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 9625 "parsing/parser.ml" +# 9603 "parsing/parser.ml" in -# 2621 "parsing/parser.mly" +# 2606 "parsing/parser.mly" ( syntax_error() ) -# 9631 "parsing/parser.ml" +# 9609 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -9635,10 +9613,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2567 "parsing/parser.mly" +# 2552 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9642 "parsing/parser.ml" +# 9620 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9715,21 +9693,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 9721 "parsing/parser.ml" +# 9699 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 9727 "parsing/parser.ml" +# 9705 "parsing/parser.ml" in -# 2623 "parsing/parser.mly" +# 2608 "parsing/parser.mly" ( Pexp_ifthenelse(_3, _5, Some _7), _2 ) -# 9733 "parsing/parser.ml" +# 9711 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -9737,10 +9715,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2567 "parsing/parser.mly" +# 2552 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9744 "parsing/parser.ml" +# 9722 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9803,21 +9781,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 9809 "parsing/parser.ml" +# 9787 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 9815 "parsing/parser.ml" +# 9793 "parsing/parser.ml" in -# 2625 "parsing/parser.mly" +# 2610 "parsing/parser.mly" ( Pexp_ifthenelse(_3, _5, None), _2 ) -# 9821 "parsing/parser.ml" +# 9799 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -9825,10 +9803,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2567 "parsing/parser.mly" +# 2552 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9832 "parsing/parser.ml" +# 9810 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -9898,21 +9876,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 9904 "parsing/parser.ml" +# 9882 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 9910 "parsing/parser.ml" +# 9888 "parsing/parser.ml" in -# 2627 "parsing/parser.mly" +# 2612 "parsing/parser.mly" ( Pexp_while(_3, _5), _2 ) -# 9916 "parsing/parser.ml" +# 9894 "parsing/parser.ml" in let _endpos__1_ = _endpos__6_ in @@ -9920,10 +9898,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2567 "parsing/parser.mly" +# 2552 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 9927 "parsing/parser.ml" +# 9905 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10021,21 +9999,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 10027 "parsing/parser.ml" +# 10005 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 10033 "parsing/parser.ml" +# 10011 "parsing/parser.ml" in -# 2630 "parsing/parser.mly" +# 2615 "parsing/parser.mly" ( Pexp_for(_3, _5, _7, _6, _9), _2 ) -# 10039 "parsing/parser.ml" +# 10017 "parsing/parser.ml" in let _endpos__1_ = _endpos__10_ in @@ -10043,10 +10021,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2567 "parsing/parser.mly" +# 2552 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 10050 "parsing/parser.ml" +# 10028 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10095,21 +10073,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 10101 "parsing/parser.ml" +# 10079 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 10107 "parsing/parser.ml" +# 10085 "parsing/parser.ml" in -# 2632 "parsing/parser.mly" +# 2617 "parsing/parser.mly" ( Pexp_assert _3, _2 ) -# 10113 "parsing/parser.ml" +# 10091 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -10117,10 +10095,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2567 "parsing/parser.mly" +# 2552 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 10124 "parsing/parser.ml" +# 10102 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10169,21 +10147,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 10175 "parsing/parser.ml" +# 10153 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 10181 "parsing/parser.ml" +# 10159 "parsing/parser.ml" in -# 2634 "parsing/parser.mly" +# 2619 "parsing/parser.mly" ( Pexp_lazy _3, _2 ) -# 10187 "parsing/parser.ml" +# 10165 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -10191,10 +10169,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2567 "parsing/parser.mly" +# 2552 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 10198 "parsing/parser.ml" +# 10176 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10229,18 +10207,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 10233 "parsing/parser.ml" +# 10211 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 10238 "parsing/parser.ml" +# 10216 "parsing/parser.ml" in -# 2638 "parsing/parser.mly" +# 2623 "parsing/parser.mly" ( Pexp_apply(_1, _2) ) -# 10244 "parsing/parser.ml" +# 10222 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in @@ -10248,15 +10226,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10254 "parsing/parser.ml" +# 10232 "parsing/parser.ml" in -# 2570 "parsing/parser.mly" +# 2555 "parsing/parser.mly" ( _1 ) -# 10260 "parsing/parser.ml" +# 10238 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10285,24 +10263,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 10289 "parsing/parser.ml" +# 10267 "parsing/parser.ml" in -# 1304 "parsing/parser.mly" +# 1282 "parsing/parser.mly" ( xs ) -# 10294 "parsing/parser.ml" +# 10272 "parsing/parser.ml" in -# 3068 "parsing/parser.mly" +# 3050 "parsing/parser.mly" ( es ) -# 10300 "parsing/parser.ml" +# 10278 "parsing/parser.ml" in -# 2640 "parsing/parser.mly" +# 2625 "parsing/parser.mly" ( Pexp_tuple(_1) ) -# 10306 "parsing/parser.ml" +# 10284 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_xs_) in @@ -10310,15 +10288,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10316 "parsing/parser.ml" +# 10294 "parsing/parser.ml" in -# 2570 "parsing/parser.mly" +# 2555 "parsing/parser.mly" ( _1 ) -# 10322 "parsing/parser.ml" +# 10300 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10354,15 +10332,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 10360 "parsing/parser.ml" +# 10338 "parsing/parser.ml" in -# 2642 "parsing/parser.mly" +# 2627 "parsing/parser.mly" ( Pexp_construct(_1, Some _2) ) -# 10366 "parsing/parser.ml" +# 10344 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -10370,15 +10348,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10376 "parsing/parser.ml" +# 10354 "parsing/parser.ml" in -# 2570 "parsing/parser.mly" +# 2555 "parsing/parser.mly" ( _1 ) -# 10382 "parsing/parser.ml" +# 10360 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10409,24 +10387,24 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2644 "parsing/parser.mly" +# 2629 "parsing/parser.mly" ( Pexp_variant(_1, Some _2) ) -# 10415 "parsing/parser.ml" +# 10393 "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 -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10424 "parsing/parser.ml" +# 10402 "parsing/parser.ml" in -# 2570 "parsing/parser.mly" +# 2555 "parsing/parser.mly" ( _1 ) -# 10430 "parsing/parser.ml" +# 10408 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10458,9 +10436,9 @@ module Tables = struct } = _menhir_stack in let e2 : (Parsetree.expression) = Obj.magic e2 in let op : ( -# 930 "parsing/parser.mly" +# 908 "parsing/parser.mly" (string) -# 10464 "parsing/parser.ml" +# 10442 "parsing/parser.ml" ) = Obj.magic op in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -10470,24 +10448,24 @@ module Tables = struct let _1 = let op = let _1 = -# 4087 "parsing/parser.mly" +# 4068 "parsing/parser.mly" ( op ) -# 10476 "parsing/parser.ml" +# 10454 "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 -# 1169 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10485 "parsing/parser.ml" +# 10463 "parsing/parser.ml" in -# 2646 "parsing/parser.mly" +# 2631 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10491 "parsing/parser.ml" +# 10469 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10495,15 +10473,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10501 "parsing/parser.ml" +# 10479 "parsing/parser.ml" in -# 2570 "parsing/parser.mly" +# 2555 "parsing/parser.mly" ( _1 ) -# 10507 "parsing/parser.ml" +# 10485 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10535,9 +10513,9 @@ module Tables = struct } = _menhir_stack in let e2 : (Parsetree.expression) = Obj.magic e2 in let op : ( -# 931 "parsing/parser.mly" +# 909 "parsing/parser.mly" (string) -# 10541 "parsing/parser.ml" +# 10519 "parsing/parser.ml" ) = Obj.magic op in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -10547,24 +10525,24 @@ module Tables = struct let _1 = let op = let _1 = -# 4088 "parsing/parser.mly" +# 4069 "parsing/parser.mly" ( op ) -# 10553 "parsing/parser.ml" +# 10531 "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 -# 1169 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10562 "parsing/parser.ml" +# 10540 "parsing/parser.ml" in -# 2646 "parsing/parser.mly" +# 2631 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10568 "parsing/parser.ml" +# 10546 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10572,15 +10550,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10578 "parsing/parser.ml" +# 10556 "parsing/parser.ml" in -# 2570 "parsing/parser.mly" +# 2555 "parsing/parser.mly" ( _1 ) -# 10584 "parsing/parser.ml" +# 10562 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10612,9 +10590,9 @@ module Tables = struct } = _menhir_stack in let e2 : (Parsetree.expression) = Obj.magic e2 in let op : ( -# 932 "parsing/parser.mly" +# 910 "parsing/parser.mly" (string) -# 10618 "parsing/parser.ml" +# 10596 "parsing/parser.ml" ) = Obj.magic op in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -10624,24 +10602,24 @@ module Tables = struct let _1 = let op = let _1 = -# 4089 "parsing/parser.mly" +# 4070 "parsing/parser.mly" ( op ) -# 10630 "parsing/parser.ml" +# 10608 "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 -# 1169 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10639 "parsing/parser.ml" +# 10617 "parsing/parser.ml" in -# 2646 "parsing/parser.mly" +# 2631 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10645 "parsing/parser.ml" +# 10623 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10649,15 +10627,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10655 "parsing/parser.ml" +# 10633 "parsing/parser.ml" in -# 2570 "parsing/parser.mly" +# 2555 "parsing/parser.mly" ( _1 ) -# 10661 "parsing/parser.ml" +# 10639 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10689,9 +10667,9 @@ module Tables = struct } = _menhir_stack in let e2 : (Parsetree.expression) = Obj.magic e2 in let op : ( -# 933 "parsing/parser.mly" +# 911 "parsing/parser.mly" (string) -# 10695 "parsing/parser.ml" +# 10673 "parsing/parser.ml" ) = Obj.magic op in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -10701,24 +10679,24 @@ module Tables = struct let _1 = let op = let _1 = -# 4090 "parsing/parser.mly" +# 4071 "parsing/parser.mly" ( op ) -# 10707 "parsing/parser.ml" +# 10685 "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 -# 1169 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10716 "parsing/parser.ml" +# 10694 "parsing/parser.ml" in -# 2646 "parsing/parser.mly" +# 2631 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10722 "parsing/parser.ml" +# 10700 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10726,15 +10704,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10732 "parsing/parser.ml" +# 10710 "parsing/parser.ml" in -# 2570 "parsing/parser.mly" +# 2555 "parsing/parser.mly" ( _1 ) -# 10738 "parsing/parser.ml" +# 10716 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10766,9 +10744,9 @@ module Tables = struct } = _menhir_stack in let e2 : (Parsetree.expression) = Obj.magic e2 in let op : ( -# 934 "parsing/parser.mly" +# 912 "parsing/parser.mly" (string) -# 10772 "parsing/parser.ml" +# 10750 "parsing/parser.ml" ) = Obj.magic op in let e1 : (Parsetree.expression) = Obj.magic e1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -10778,24 +10756,24 @@ module Tables = struct let _1 = let op = let _1 = -# 4091 "parsing/parser.mly" +# 4072 "parsing/parser.mly" ( op ) -# 10784 "parsing/parser.ml" +# 10762 "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 -# 1169 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10793 "parsing/parser.ml" +# 10771 "parsing/parser.ml" in -# 2646 "parsing/parser.mly" +# 2631 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10799 "parsing/parser.ml" +# 10777 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10803,15 +10781,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10809 "parsing/parser.ml" +# 10787 "parsing/parser.ml" in -# 2570 "parsing/parser.mly" +# 2555 "parsing/parser.mly" ( _1 ) -# 10815 "parsing/parser.ml" +# 10793 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10851,23 +10829,23 @@ module Tables = struct let _1 = let op = let _1 = -# 4092 "parsing/parser.mly" +# 4073 "parsing/parser.mly" ("+") -# 10857 "parsing/parser.ml" +# 10835 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1169 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10865 "parsing/parser.ml" +# 10843 "parsing/parser.ml" in -# 2646 "parsing/parser.mly" +# 2631 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10871 "parsing/parser.ml" +# 10849 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10875,15 +10853,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10881 "parsing/parser.ml" +# 10859 "parsing/parser.ml" in -# 2570 "parsing/parser.mly" +# 2555 "parsing/parser.mly" ( _1 ) -# 10887 "parsing/parser.ml" +# 10865 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10923,23 +10901,23 @@ module Tables = struct let _1 = let op = let _1 = -# 4093 "parsing/parser.mly" +# 4074 "parsing/parser.mly" ("+.") -# 10929 "parsing/parser.ml" +# 10907 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1169 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 10937 "parsing/parser.ml" +# 10915 "parsing/parser.ml" in -# 2646 "parsing/parser.mly" +# 2631 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 10943 "parsing/parser.ml" +# 10921 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -10947,15 +10925,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 10953 "parsing/parser.ml" +# 10931 "parsing/parser.ml" in -# 2570 "parsing/parser.mly" +# 2555 "parsing/parser.mly" ( _1 ) -# 10959 "parsing/parser.ml" +# 10937 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -10995,23 +10973,23 @@ module Tables = struct let _1 = let op = let _1 = -# 4094 "parsing/parser.mly" +# 4075 "parsing/parser.mly" ("+=") -# 11001 "parsing/parser.ml" +# 10979 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1169 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11009 "parsing/parser.ml" +# 10987 "parsing/parser.ml" in -# 2646 "parsing/parser.mly" +# 2631 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11015 "parsing/parser.ml" +# 10993 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11019,15 +10997,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11025 "parsing/parser.ml" +# 11003 "parsing/parser.ml" in -# 2570 "parsing/parser.mly" +# 2555 "parsing/parser.mly" ( _1 ) -# 11031 "parsing/parser.ml" +# 11009 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11067,23 +11045,23 @@ module Tables = struct let _1 = let op = let _1 = -# 4095 "parsing/parser.mly" +# 4076 "parsing/parser.mly" ("-") -# 11073 "parsing/parser.ml" +# 11051 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1169 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11081 "parsing/parser.ml" +# 11059 "parsing/parser.ml" in -# 2646 "parsing/parser.mly" +# 2631 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11087 "parsing/parser.ml" +# 11065 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11091,15 +11069,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11097 "parsing/parser.ml" +# 11075 "parsing/parser.ml" in -# 2570 "parsing/parser.mly" +# 2555 "parsing/parser.mly" ( _1 ) -# 11103 "parsing/parser.ml" +# 11081 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11139,23 +11117,23 @@ module Tables = struct let _1 = let op = let _1 = -# 4096 "parsing/parser.mly" +# 4077 "parsing/parser.mly" ("-.") -# 11145 "parsing/parser.ml" +# 11123 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1169 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11153 "parsing/parser.ml" +# 11131 "parsing/parser.ml" in -# 2646 "parsing/parser.mly" +# 2631 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11159 "parsing/parser.ml" +# 11137 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11163,15 +11141,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11169 "parsing/parser.ml" +# 11147 "parsing/parser.ml" in -# 2570 "parsing/parser.mly" +# 2555 "parsing/parser.mly" ( _1 ) -# 11175 "parsing/parser.ml" +# 11153 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11211,23 +11189,23 @@ module Tables = struct let _1 = let op = let _1 = -# 4097 "parsing/parser.mly" +# 4078 "parsing/parser.mly" ("*") -# 11217 "parsing/parser.ml" +# 11195 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1169 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11225 "parsing/parser.ml" +# 11203 "parsing/parser.ml" in -# 2646 "parsing/parser.mly" +# 2631 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11231 "parsing/parser.ml" +# 11209 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11235,15 +11213,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11241 "parsing/parser.ml" +# 11219 "parsing/parser.ml" in -# 2570 "parsing/parser.mly" +# 2555 "parsing/parser.mly" ( _1 ) -# 11247 "parsing/parser.ml" +# 11225 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11283,23 +11261,23 @@ module Tables = struct let _1 = let op = let _1 = -# 4098 "parsing/parser.mly" +# 4079 "parsing/parser.mly" ("%") -# 11289 "parsing/parser.ml" +# 11267 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1169 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11297 "parsing/parser.ml" +# 11275 "parsing/parser.ml" in -# 2646 "parsing/parser.mly" +# 2631 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11303 "parsing/parser.ml" +# 11281 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11307,15 +11285,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11313 "parsing/parser.ml" +# 11291 "parsing/parser.ml" in -# 2570 "parsing/parser.mly" +# 2555 "parsing/parser.mly" ( _1 ) -# 11319 "parsing/parser.ml" +# 11297 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11355,23 +11333,23 @@ module Tables = struct let _1 = let op = let _1 = -# 4099 "parsing/parser.mly" +# 4080 "parsing/parser.mly" ("=") -# 11361 "parsing/parser.ml" +# 11339 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1169 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11369 "parsing/parser.ml" +# 11347 "parsing/parser.ml" in -# 2646 "parsing/parser.mly" +# 2631 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11375 "parsing/parser.ml" +# 11353 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11379,15 +11357,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11385 "parsing/parser.ml" +# 11363 "parsing/parser.ml" in -# 2570 "parsing/parser.mly" +# 2555 "parsing/parser.mly" ( _1 ) -# 11391 "parsing/parser.ml" +# 11369 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11427,23 +11405,23 @@ module Tables = struct let _1 = let op = let _1 = -# 4100 "parsing/parser.mly" +# 4081 "parsing/parser.mly" ("<") -# 11433 "parsing/parser.ml" +# 11411 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1169 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11441 "parsing/parser.ml" +# 11419 "parsing/parser.ml" in -# 2646 "parsing/parser.mly" +# 2631 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11447 "parsing/parser.ml" +# 11425 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11451,15 +11429,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11457 "parsing/parser.ml" +# 11435 "parsing/parser.ml" in -# 2570 "parsing/parser.mly" +# 2555 "parsing/parser.mly" ( _1 ) -# 11463 "parsing/parser.ml" +# 11441 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11499,23 +11477,23 @@ module Tables = struct let _1 = let op = let _1 = -# 4101 "parsing/parser.mly" +# 4082 "parsing/parser.mly" (">") -# 11505 "parsing/parser.ml" +# 11483 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1169 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11513 "parsing/parser.ml" +# 11491 "parsing/parser.ml" in -# 2646 "parsing/parser.mly" +# 2631 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11519 "parsing/parser.ml" +# 11497 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11523,15 +11501,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11529 "parsing/parser.ml" +# 11507 "parsing/parser.ml" in -# 2570 "parsing/parser.mly" +# 2555 "parsing/parser.mly" ( _1 ) -# 11535 "parsing/parser.ml" +# 11513 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11571,23 +11549,23 @@ module Tables = struct let _1 = let op = let _1 = -# 4102 "parsing/parser.mly" +# 4083 "parsing/parser.mly" ("or") -# 11577 "parsing/parser.ml" +# 11555 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1169 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11585 "parsing/parser.ml" +# 11563 "parsing/parser.ml" in -# 2646 "parsing/parser.mly" +# 2631 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11591 "parsing/parser.ml" +# 11569 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11595,15 +11573,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11601 "parsing/parser.ml" +# 11579 "parsing/parser.ml" in -# 2570 "parsing/parser.mly" +# 2555 "parsing/parser.mly" ( _1 ) -# 11607 "parsing/parser.ml" +# 11585 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11643,23 +11621,23 @@ module Tables = struct let _1 = let op = let _1 = -# 4103 "parsing/parser.mly" +# 4084 "parsing/parser.mly" ("||") -# 11649 "parsing/parser.ml" +# 11627 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1169 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11657 "parsing/parser.ml" +# 11635 "parsing/parser.ml" in -# 2646 "parsing/parser.mly" +# 2631 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11663 "parsing/parser.ml" +# 11641 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11667,15 +11645,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11673 "parsing/parser.ml" +# 11651 "parsing/parser.ml" in -# 2570 "parsing/parser.mly" +# 2555 "parsing/parser.mly" ( _1 ) -# 11679 "parsing/parser.ml" +# 11657 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11715,23 +11693,23 @@ module Tables = struct let _1 = let op = let _1 = -# 4104 "parsing/parser.mly" +# 4085 "parsing/parser.mly" ("&") -# 11721 "parsing/parser.ml" +# 11699 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1169 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11729 "parsing/parser.ml" +# 11707 "parsing/parser.ml" in -# 2646 "parsing/parser.mly" +# 2631 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11735 "parsing/parser.ml" +# 11713 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11739,15 +11717,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11745 "parsing/parser.ml" +# 11723 "parsing/parser.ml" in -# 2570 "parsing/parser.mly" +# 2555 "parsing/parser.mly" ( _1 ) -# 11751 "parsing/parser.ml" +# 11729 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11787,23 +11765,23 @@ module Tables = struct let _1 = let op = let _1 = -# 4105 "parsing/parser.mly" +# 4086 "parsing/parser.mly" ("&&") -# 11793 "parsing/parser.ml" +# 11771 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1169 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11801 "parsing/parser.ml" +# 11779 "parsing/parser.ml" in -# 2646 "parsing/parser.mly" +# 2631 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11807 "parsing/parser.ml" +# 11785 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11811,15 +11789,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11817 "parsing/parser.ml" +# 11795 "parsing/parser.ml" in -# 2570 "parsing/parser.mly" +# 2555 "parsing/parser.mly" ( _1 ) -# 11823 "parsing/parser.ml" +# 11801 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11859,23 +11837,23 @@ module Tables = struct let _1 = let op = let _1 = -# 4106 "parsing/parser.mly" +# 4087 "parsing/parser.mly" (":=") -# 11865 "parsing/parser.ml" +# 11843 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1169 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 11873 "parsing/parser.ml" +# 11851 "parsing/parser.ml" in -# 2646 "parsing/parser.mly" +# 2631 "parsing/parser.mly" ( mkinfix e1 op e2 ) -# 11879 "parsing/parser.ml" +# 11857 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_e2_, _startpos_e1_) in @@ -11883,15 +11861,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11889 "parsing/parser.ml" +# 11867 "parsing/parser.ml" in -# 2570 "parsing/parser.mly" +# 2555 "parsing/parser.mly" ( _1 ) -# 11895 "parsing/parser.ml" +# 11873 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11924,9 +11902,9 @@ module Tables = struct let _1 = let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2648 "parsing/parser.mly" +# 2633 "parsing/parser.mly" ( mkuminus ~oploc:_loc__1_ _1 _2 ) -# 11930 "parsing/parser.ml" +# 11908 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -11934,15 +11912,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11940 "parsing/parser.ml" +# 11918 "parsing/parser.ml" in -# 2570 "parsing/parser.mly" +# 2555 "parsing/parser.mly" ( _1 ) -# 11946 "parsing/parser.ml" +# 11924 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -11975,9 +11953,9 @@ module Tables = struct let _1 = let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2650 "parsing/parser.mly" +# 2635 "parsing/parser.mly" ( mkuplus ~oploc:_loc__1_ _1 _2 ) -# 11981 "parsing/parser.ml" +# 11959 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -11985,15 +11963,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 11991 "parsing/parser.ml" +# 11969 "parsing/parser.ml" in -# 2570 "parsing/parser.mly" +# 2555 "parsing/parser.mly" ( _1 ) -# 11997 "parsing/parser.ml" +# 11975 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12033,9 +12011,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2572 "parsing/parser.mly" +# 2557 "parsing/parser.mly" ( expr_of_let_bindings ~loc:_sloc _1 _3 ) -# 12039 "parsing/parser.ml" +# 12017 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12075,9 +12053,9 @@ module Tables = struct let _3 : unit = Obj.magic _3 in let bindings : (Parsetree.pattern * Parsetree.expression * Parsetree.binding_op list) = Obj.magic bindings in let _1 : ( -# 936 "parsing/parser.mly" +# 914 "parsing/parser.mly" (string) -# 12081 "parsing/parser.ml" +# 12059 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -12087,9 +12065,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 12093 "parsing/parser.ml" +# 12071 "parsing/parser.ml" in let _startpos_pbop_op_ = _startpos__1_ in @@ -12097,13 +12075,13 @@ module Tables = struct let _symbolstartpos = _startpos_pbop_op_ in let _sloc = (_symbolstartpos, _endpos) in -# 2574 "parsing/parser.mly" +# 2559 "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}) ) -# 12107 "parsing/parser.ml" +# 12085 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12144,9 +12122,9 @@ module Tables = struct let _loc__2_ = (_startpos__2_, _endpos__2_) in let _sloc = (_symbolstartpos, _endpos) in -# 2580 "parsing/parser.mly" +# 2565 "parsing/parser.mly" ( mkexp_cons ~loc:_sloc _loc__2_ (ghexp ~loc:_sloc (Pexp_tuple[_1;_3])) ) -# 12150 "parsing/parser.ml" +# 12128 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12179,35 +12157,35 @@ module Tables = struct let _3 : (Parsetree.expression) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 12185 "parsing/parser.ml" +# 12163 "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 = -# 4024 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( _1 ) -# 12194 "parsing/parser.ml" +# 12172 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 12202 "parsing/parser.ml" +# 12180 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2582 "parsing/parser.mly" +# 2567 "parsing/parser.mly" ( mkexp ~loc:_sloc (Pexp_setinstvar(_1, _3)) ) -# 12211 "parsing/parser.ml" +# 12189 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12263,18 +12241,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 12269 "parsing/parser.ml" +# 12247 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2584 "parsing/parser.mly" +# 2569 "parsing/parser.mly" ( mkexp ~loc:_sloc (Pexp_setfield(_1, _3, _5)) ) -# 12278 "parsing/parser.ml" +# 12256 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12340,14 +12318,14 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2585 "parsing/parser.mly" +# 2570 "parsing/parser.mly" (Some v) -# 12346 "parsing/parser.ml" +# 12324 "parsing/parser.ml" in -# 2545 "parsing/parser.mly" +# 2530 "parsing/parser.mly" ( array, d, Paren, i, r ) -# 12351 "parsing/parser.ml" +# 12329 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12355,9 +12333,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2586 "parsing/parser.mly" +# 2571 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 12361 "parsing/parser.ml" +# 12339 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12423,14 +12401,14 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2585 "parsing/parser.mly" +# 2570 "parsing/parser.mly" (Some v) -# 12429 "parsing/parser.ml" +# 12407 "parsing/parser.ml" in -# 2547 "parsing/parser.mly" +# 2532 "parsing/parser.mly" ( array, d, Brace, i, r ) -# 12434 "parsing/parser.ml" +# 12412 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12438,9 +12416,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2586 "parsing/parser.mly" +# 2571 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 12444 "parsing/parser.ml" +# 12422 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12506,14 +12484,14 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2585 "parsing/parser.mly" +# 2570 "parsing/parser.mly" (Some v) -# 12512 "parsing/parser.ml" +# 12490 "parsing/parser.ml" in -# 2549 "parsing/parser.mly" +# 2534 "parsing/parser.mly" ( array, d, Bracket, i, r ) -# 12517 "parsing/parser.ml" +# 12495 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12521,9 +12499,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2586 "parsing/parser.mly" +# 2571 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 12527 "parsing/parser.ml" +# 12505 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12583,9 +12561,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 935 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 12589 "parsing/parser.ml" +# 12567 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -12593,31 +12571,31 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2587 "parsing/parser.mly" +# 2572 "parsing/parser.mly" (Some v) -# 12599 "parsing/parser.ml" +# 12577 "parsing/parser.ml" in let i = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 12604 "parsing/parser.ml" +# 12582 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) -# 12610 "parsing/parser.ml" +# 12588 "parsing/parser.ml" in -# 2561 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1, _2 ) -# 12615 "parsing/parser.ml" +# 12593 "parsing/parser.ml" in -# 2545 "parsing/parser.mly" +# 2530 "parsing/parser.mly" ( array, d, Paren, i, r ) -# 12621 "parsing/parser.ml" +# 12599 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12625,9 +12603,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2588 "parsing/parser.mly" +# 2573 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 12631 "parsing/parser.ml" +# 12609 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12699,9 +12677,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 935 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 12705 "parsing/parser.ml" +# 12683 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -12711,39 +12689,39 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2587 "parsing/parser.mly" +# 2572 "parsing/parser.mly" (Some v) -# 12717 "parsing/parser.ml" +# 12695 "parsing/parser.ml" in let i = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 12722 "parsing/parser.ml" +# 12700 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = -# 2561 "parsing/parser.mly" +# 2546 "parsing/parser.mly" (_2) -# 12730 "parsing/parser.ml" +# 12708 "parsing/parser.ml" in # 126 "" ( Some x ) -# 12735 "parsing/parser.ml" +# 12713 "parsing/parser.ml" in -# 2561 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1, _2 ) -# 12741 "parsing/parser.ml" +# 12719 "parsing/parser.ml" in -# 2545 "parsing/parser.mly" +# 2530 "parsing/parser.mly" ( array, d, Paren, i, r ) -# 12747 "parsing/parser.ml" +# 12725 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12751,9 +12729,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2588 "parsing/parser.mly" +# 2573 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 12757 "parsing/parser.ml" +# 12735 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12813,9 +12791,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 935 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 12819 "parsing/parser.ml" +# 12797 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -12823,31 +12801,31 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2587 "parsing/parser.mly" +# 2572 "parsing/parser.mly" (Some v) -# 12829 "parsing/parser.ml" +# 12807 "parsing/parser.ml" in let i = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 12834 "parsing/parser.ml" +# 12812 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) -# 12840 "parsing/parser.ml" +# 12818 "parsing/parser.ml" in -# 2561 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1, _2 ) -# 12845 "parsing/parser.ml" +# 12823 "parsing/parser.ml" in -# 2547 "parsing/parser.mly" +# 2532 "parsing/parser.mly" ( array, d, Brace, i, r ) -# 12851 "parsing/parser.ml" +# 12829 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12855,9 +12833,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2588 "parsing/parser.mly" +# 2573 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 12861 "parsing/parser.ml" +# 12839 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -12929,9 +12907,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 935 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 12935 "parsing/parser.ml" +# 12913 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -12941,39 +12919,39 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2587 "parsing/parser.mly" +# 2572 "parsing/parser.mly" (Some v) -# 12947 "parsing/parser.ml" +# 12925 "parsing/parser.ml" in let i = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 12952 "parsing/parser.ml" +# 12930 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = -# 2561 "parsing/parser.mly" +# 2546 "parsing/parser.mly" (_2) -# 12960 "parsing/parser.ml" +# 12938 "parsing/parser.ml" in # 126 "" ( Some x ) -# 12965 "parsing/parser.ml" +# 12943 "parsing/parser.ml" in -# 2561 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1, _2 ) -# 12971 "parsing/parser.ml" +# 12949 "parsing/parser.ml" in -# 2547 "parsing/parser.mly" +# 2532 "parsing/parser.mly" ( array, d, Brace, i, r ) -# 12977 "parsing/parser.ml" +# 12955 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -12981,9 +12959,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2588 "parsing/parser.mly" +# 2573 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 12987 "parsing/parser.ml" +# 12965 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13043,9 +13021,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 935 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 13049 "parsing/parser.ml" +# 13027 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -13053,31 +13031,31 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2587 "parsing/parser.mly" +# 2572 "parsing/parser.mly" (Some v) -# 13059 "parsing/parser.ml" +# 13037 "parsing/parser.ml" in let i = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 13064 "parsing/parser.ml" +# 13042 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) -# 13070 "parsing/parser.ml" +# 13048 "parsing/parser.ml" in -# 2561 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1, _2 ) -# 13075 "parsing/parser.ml" +# 13053 "parsing/parser.ml" in -# 2549 "parsing/parser.mly" +# 2534 "parsing/parser.mly" ( array, d, Bracket, i, r ) -# 13081 "parsing/parser.ml" +# 13059 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -13085,9 +13063,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2588 "parsing/parser.mly" +# 2573 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 13091 "parsing/parser.ml" +# 13069 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13159,9 +13137,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 935 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 13165 "parsing/parser.ml" +# 13143 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -13171,39 +13149,39 @@ module Tables = struct let _endpos = _endpos_v_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2587 "parsing/parser.mly" +# 2572 "parsing/parser.mly" (Some v) -# 13177 "parsing/parser.ml" +# 13155 "parsing/parser.ml" in let i = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 13182 "parsing/parser.ml" +# 13160 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = -# 2561 "parsing/parser.mly" +# 2546 "parsing/parser.mly" (_2) -# 13190 "parsing/parser.ml" +# 13168 "parsing/parser.ml" in # 126 "" ( Some x ) -# 13195 "parsing/parser.ml" +# 13173 "parsing/parser.ml" in -# 2561 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1, _2 ) -# 13201 "parsing/parser.ml" +# 13179 "parsing/parser.ml" in -# 2549 "parsing/parser.mly" +# 2534 "parsing/parser.mly" ( array, d, Bracket, i, r ) -# 13207 "parsing/parser.ml" +# 13185 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_v_, _startpos_array_) in @@ -13211,9 +13189,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2588 "parsing/parser.mly" +# 2573 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 13217 "parsing/parser.ml" +# 13195 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13243,9 +13221,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 2590 "parsing/parser.mly" +# 2575 "parsing/parser.mly" ( Exp.attr _1 _2 ) -# 13249 "parsing/parser.ml" +# 13227 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13269,9 +13247,9 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2593 "parsing/parser.mly" +# 2578 "parsing/parser.mly" ( not_expecting _loc__1_ "wildcard \"_\"" ) -# 13275 "parsing/parser.ml" +# 13253 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13305,9 +13283,9 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 2596 "parsing/parser.mly" +# 2581 "parsing/parser.mly" ( mkexp_stack ~loc:_sloc ~kwd_loc:(_loc__1_) _2 ) -# 13311 "parsing/parser.ml" +# 13289 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13341,9 +13319,9 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 2598 "parsing/parser.mly" +# 2583 "parsing/parser.mly" ( mkexp_exclave ~loc:_sloc ~kwd_loc:(_loc__1_) _2 ) -# 13347 "parsing/parser.ml" +# 13325 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13359,9 +13337,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (string Asttypes.loc option) = -# 4392 "parsing/parser.mly" +# 4373 "parsing/parser.mly" ( None ) -# 13365 "parsing/parser.ml" +# 13343 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13391,9 +13369,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (string Asttypes.loc option) = -# 4393 "parsing/parser.mly" +# 4374 "parsing/parser.mly" ( Some _2 ) -# 13397 "parsing/parser.ml" +# 13375 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13437,9 +13415,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.extension) = -# 4405 "parsing/parser.mly" +# 4386 "parsing/parser.mly" ( (_2, _3) ) -# 13443 "parsing/parser.ml" +# 13421 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13458,9 +13436,9 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 998 "parsing/parser.mly" +# 976 "parsing/parser.mly" (string * Location.t * string * Location.t * string option) -# 13464 "parsing/parser.ml" +# 13442 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -13469,9 +13447,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4407 "parsing/parser.mly" +# 4388 "parsing/parser.mly" ( mk_quotedext ~loc:_sloc _1 ) -# 13475 "parsing/parser.ml" +# 13453 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13524,9 +13502,9 @@ module Tables = struct let _v : (Parsetree.extension_constructor) = let attrs = let _1 = _1_inlined3 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 13530 "parsing/parser.ml" +# 13508 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined3_ in @@ -13536,9 +13514,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 13542 "parsing/parser.ml" +# 13520 "parsing/parser.ml" in let cid = @@ -13547,19 +13525,19 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 13553 "parsing/parser.ml" +# 13531 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3684 "parsing/parser.mly" +# 3665 "parsing/parser.mly" ( let info = symbol_info _endpos in Te.rebind cid lid ~attrs ~loc:(make_loc _sloc) ~info ) -# 13563 "parsing/parser.ml" +# 13541 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13605,9 +13583,9 @@ module Tables = struct let _v : (Parsetree.extension_constructor) = let attrs = let _1 = _1_inlined2 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 13611 "parsing/parser.ml" +# 13589 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined2_ in @@ -13617,9 +13595,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 13623 "parsing/parser.ml" +# 13601 "parsing/parser.ml" in let cid = @@ -13627,25 +13605,25 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 13633 "parsing/parser.ml" +# 13611 "parsing/parser.ml" in let _startpos_cid_ = _startpos__1_ in let _1 = -# 4200 "parsing/parser.mly" +# 4181 "parsing/parser.mly" ( () ) -# 13640 "parsing/parser.ml" +# 13618 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos_cid_ in let _sloc = (_symbolstartpos, _endpos) in -# 3684 "parsing/parser.mly" +# 3665 "parsing/parser.mly" ( let info = symbol_info _endpos in Te.rebind cid lid ~attrs ~loc:(make_loc _sloc) ~info ) -# 13649 "parsing/parser.ml" +# 13627 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13692,10 +13670,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4380 "parsing/parser.mly" +# 4361 "parsing/parser.mly" ( mark_symbol_docs _sloc; mk_attr ~loc:(make_loc _sloc) _2 _3 ) -# 13699 "parsing/parser.ml" +# 13677 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13711,14 +13689,14 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let params = -# 2311 "parsing/parser.mly" +# 2296 "parsing/parser.mly" ( [] ) -# 13717 "parsing/parser.ml" +# 13695 "parsing/parser.ml" in -# 2136 "parsing/parser.mly" +# 2121 "parsing/parser.mly" ( params ) -# 13722 "parsing/parser.ml" +# 13700 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13759,24 +13737,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 13763 "parsing/parser.ml" +# 13741 "parsing/parser.ml" in -# 1276 "parsing/parser.mly" +# 1254 "parsing/parser.mly" ( xs ) -# 13768 "parsing/parser.ml" +# 13746 "parsing/parser.ml" in -# 2313 "parsing/parser.mly" +# 2298 "parsing/parser.mly" ( params ) -# 13774 "parsing/parser.ml" +# 13752 "parsing/parser.ml" in -# 2136 "parsing/parser.mly" +# 2121 "parsing/parser.mly" ( params ) -# 13780 "parsing/parser.ml" +# 13758 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13799,9 +13777,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = -# 3013 "parsing/parser.mly" +# 2995 "parsing/parser.mly" ( _1 ) -# 13805 "parsing/parser.ml" +# 13783 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13841,9 +13819,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3015 "parsing/parser.mly" +# 2997 "parsing/parser.mly" ( mkexp_constraint ~loc:_sloc _3 _1 ) -# 13847 "parsing/parser.ml" +# 13825 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13873,9 +13851,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 3053 "parsing/parser.mly" +# 3035 "parsing/parser.mly" ( _2 ) -# 13879 "parsing/parser.ml" +# 13857 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13920,24 +13898,24 @@ module Tables = struct let _endpos = _endpos__4_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 3055 "parsing/parser.mly" +# 3037 "parsing/parser.mly" ( Pexp_constraint (_4, _2) ) -# 13926 "parsing/parser.ml" +# 13904 "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 -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 13935 "parsing/parser.ml" +# 13913 "parsing/parser.ml" in -# 3056 "parsing/parser.mly" +# 3038 "parsing/parser.mly" ( _1 ) -# 13941 "parsing/parser.ml" +# 13919 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -13970,12 +13948,12 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3059 "parsing/parser.mly" +# 3041 "parsing/parser.mly" ( let (l,o,p) = _1 in ghexp ~loc:_sloc (Pexp_fun(l, o, p, _2)) ) -# 13979 "parsing/parser.ml" +# 13957 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14026,17 +14004,17 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _3 = -# 2895 "parsing/parser.mly" +# 2877 "parsing/parser.mly" ( xs ) -# 14032 "parsing/parser.ml" +# 14010 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3064 "parsing/parser.mly" +# 3046 "parsing/parser.mly" ( mk_newtypes ~loc:_sloc _3 _5 ) -# 14040 "parsing/parser.ml" +# 14018 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14059,9 +14037,9 @@ module Tables = struct let _startpos = _startpos_ty_ in let _endpos = _endpos_ty_ in let _v : (Parsetree.core_type) = -# 3800 "parsing/parser.mly" +# 3781 "parsing/parser.mly" ( ty ) -# 14065 "parsing/parser.ml" +# 14043 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14084,9 +14062,9 @@ module Tables = struct let _startpos = _startpos_ty_ in let _endpos = _endpos_ty_ in let _v : (Parsetree.core_type) = -# 3802 "parsing/parser.mly" +# 3783 "parsing/parser.mly" ( ty ) -# 14090 "parsing/parser.ml" +# 14068 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14117,9 +14095,9 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Lexing.position * Parsetree.functor_parameter) = let _startpos = _startpos__1_ in -# 1530 "parsing/parser.mly" +# 1508 "parsing/parser.mly" ( _startpos, Unit ) -# 14123 "parsing/parser.ml" +# 14101 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14175,16 +14153,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 14181 "parsing/parser.ml" +# 14159 "parsing/parser.ml" in let _startpos = _startpos__1_ in -# 1533 "parsing/parser.mly" +# 1511 "parsing/parser.mly" ( _startpos, Named (x, mty) ) -# 14188 "parsing/parser.ml" +# 14166 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14201,9 +14179,9 @@ module Tables = struct let _endpos = _startpos in let _v : (string Asttypes.loc list * Parsetree.constructor_arguments * Parsetree.core_type option) = -# 3586 "parsing/parser.mly" +# 3567 "parsing/parser.mly" ( ([],Pcstr_tuple [],None) ) -# 14207 "parsing/parser.ml" +# 14185 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14234,9 +14212,9 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (string Asttypes.loc list * Parsetree.constructor_arguments * Parsetree.core_type option) = -# 3587 "parsing/parser.mly" +# 3568 "parsing/parser.mly" ( ([],_2,None) ) -# 14240 "parsing/parser.ml" +# 14218 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14281,9 +14259,9 @@ module Tables = struct let _endpos = _endpos__4_ in let _v : (string Asttypes.loc list * Parsetree.constructor_arguments * Parsetree.core_type option) = -# 3589 "parsing/parser.mly" +# 3570 "parsing/parser.mly" ( ([],_2,Some _4) ) -# 14287 "parsing/parser.ml" +# 14265 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14346,24 +14324,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 14350 "parsing/parser.ml" +# 14328 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 14355 "parsing/parser.ml" +# 14333 "parsing/parser.ml" in -# 3735 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 14361 "parsing/parser.ml" +# 14339 "parsing/parser.ml" in -# 3592 "parsing/parser.mly" +# 3573 "parsing/parser.mly" ( (_2,_4,Some _6) ) -# 14367 "parsing/parser.ml" +# 14345 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14394,9 +14372,9 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (string Asttypes.loc list * Parsetree.constructor_arguments * Parsetree.core_type option) = -# 3594 "parsing/parser.mly" +# 3575 "parsing/parser.mly" ( ([],Pcstr_tuple [],Some _2) ) -# 14400 "parsing/parser.ml" +# 14378 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14445,24 +14423,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 14449 "parsing/parser.ml" +# 14427 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 14454 "parsing/parser.ml" +# 14432 "parsing/parser.ml" in -# 3735 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 14460 "parsing/parser.ml" +# 14438 "parsing/parser.ml" in -# 3596 "parsing/parser.mly" +# 3577 "parsing/parser.mly" ( (_2,Pcstr_tuple [],Some _4) ) -# 14466 "parsing/parser.ml" +# 14444 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14511,9 +14489,9 @@ module Tables = struct Parsetree.attributes * Location.t * Docstrings.info) = let attrs = let _1 = _1_inlined2 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 14517 "parsing/parser.ml" +# 14495 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined2_ in @@ -14523,23 +14501,23 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 14529 "parsing/parser.ml" +# 14507 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3534 "parsing/parser.mly" +# 3515 "parsing/parser.mly" ( let vars, args, res = vars_args_res in let info = symbol_info _endpos in let loc = make_loc _sloc in cid, vars, args, res, attrs, loc, info ) -# 14543 "parsing/parser.ml" +# 14521 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14581,9 +14559,9 @@ module Tables = struct Parsetree.attributes * Location.t * Docstrings.info) = let attrs = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 14587 "parsing/parser.ml" +# 14565 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined1_ in @@ -14592,29 +14570,29 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 14598 "parsing/parser.ml" +# 14576 "parsing/parser.ml" in let _startpos_cid_ = _startpos__1_ in let _1 = -# 4200 "parsing/parser.mly" +# 4181 "parsing/parser.mly" ( () ) -# 14605 "parsing/parser.ml" +# 14583 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos_cid_ in let _sloc = (_symbolstartpos, _endpos) in -# 3534 "parsing/parser.mly" +# 3515 "parsing/parser.mly" ( let vars, args, res = vars_args_res in let info = symbol_info _endpos in let loc = make_loc _sloc in cid, vars, args, res, attrs, loc, info ) -# 14618 "parsing/parser.ml" +# 14596 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14685,9 +14663,9 @@ module Tables = struct 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 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 14691 "parsing/parser.ml" +# 14669 "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 @@ -14700,9 +14678,9 @@ module Tables = struct Parsetree.type_declaration) = let attrs2 = let _1 = _1_inlined4 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 14706 "parsing/parser.ml" +# 14684 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in @@ -14711,24 +14689,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 14715 "parsing/parser.ml" +# 14693 "parsing/parser.ml" in -# 1226 "parsing/parser.mly" +# 1204 "parsing/parser.mly" ( xs ) -# 14720 "parsing/parser.ml" +# 14698 "parsing/parser.ml" in -# 3424 "parsing/parser.mly" +# 3405 "parsing/parser.mly" ( _1 ) -# 14726 "parsing/parser.ml" +# 14704 "parsing/parser.ml" in let kind_priv_manifest = -# 3459 "parsing/parser.mly" +# 3440 "parsing/parser.mly" ( _2 ) -# 14732 "parsing/parser.ml" +# 14710 "parsing/parser.ml" in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in @@ -14736,29 +14714,29 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 14742 "parsing/parser.ml" +# 14720 "parsing/parser.ml" in let flag = -# 4220 "parsing/parser.mly" +# 4201 "parsing/parser.mly" ( Recursive ) -# 14748 "parsing/parser.ml" +# 14726 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 14755 "parsing/parser.ml" +# 14733 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3396 "parsing/parser.mly" +# 3377 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -14767,7 +14745,7 @@ module Tables = struct (flag, ext), Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ) -# 14771 "parsing/parser.ml" +# 14749 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14844,9 +14822,9 @@ module Tables = struct 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 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 14850 "parsing/parser.ml" +# 14828 "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 @@ -14860,9 +14838,9 @@ module Tables = struct Parsetree.type_declaration) = let attrs2 = let _1 = _1_inlined5 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 14866 "parsing/parser.ml" +# 14844 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined5_ in @@ -14871,24 +14849,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 14875 "parsing/parser.ml" +# 14853 "parsing/parser.ml" in -# 1226 "parsing/parser.mly" +# 1204 "parsing/parser.mly" ( xs ) -# 14880 "parsing/parser.ml" +# 14858 "parsing/parser.ml" in -# 3424 "parsing/parser.mly" +# 3405 "parsing/parser.mly" ( _1 ) -# 14886 "parsing/parser.ml" +# 14864 "parsing/parser.ml" in let kind_priv_manifest = -# 3459 "parsing/parser.mly" +# 3440 "parsing/parser.mly" ( _2 ) -# 14892 "parsing/parser.ml" +# 14870 "parsing/parser.ml" in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in @@ -14896,9 +14874,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 14902 "parsing/parser.ml" +# 14880 "parsing/parser.ml" in let flag = @@ -14907,24 +14885,24 @@ module Tables = struct let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in -# 4222 "parsing/parser.mly" +# 4203 "parsing/parser.mly" ( not_expecting _loc "nonrec flag" ) -# 14913 "parsing/parser.ml" +# 14891 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 14921 "parsing/parser.ml" +# 14899 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3396 "parsing/parser.mly" +# 3377 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -14933,7 +14911,7 @@ module Tables = struct (flag, ext), Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ) -# 14937 "parsing/parser.ml" +# 14915 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -14997,9 +14975,9 @@ module Tables = struct 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 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 15003 "parsing/parser.ml" +# 14981 "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 @@ -15012,9 +14990,9 @@ module Tables = struct Parsetree.type_declaration) = let attrs2 = let _1 = _1_inlined3 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 15018 "parsing/parser.ml" +# 14996 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -15023,18 +15001,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 15027 "parsing/parser.ml" +# 15005 "parsing/parser.ml" in -# 1226 "parsing/parser.mly" +# 1204 "parsing/parser.mly" ( xs ) -# 15032 "parsing/parser.ml" +# 15010 "parsing/parser.ml" in -# 3424 "parsing/parser.mly" +# 3405 "parsing/parser.mly" ( _1 ) -# 15038 "parsing/parser.ml" +# 15016 "parsing/parser.ml" in let id = @@ -15043,29 +15021,29 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 15049 "parsing/parser.ml" +# 15027 "parsing/parser.ml" in let flag = -# 4216 "parsing/parser.mly" +# 4197 "parsing/parser.mly" ( Recursive ) -# 15055 "parsing/parser.ml" +# 15033 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 15062 "parsing/parser.ml" +# 15040 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3396 "parsing/parser.mly" +# 3377 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -15074,7 +15052,7 @@ module Tables = struct (flag, ext), Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ) -# 15078 "parsing/parser.ml" +# 15056 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15144,9 +15122,9 @@ module Tables = struct 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 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 15150 "parsing/parser.ml" +# 15128 "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 @@ -15160,9 +15138,9 @@ module Tables = struct Parsetree.type_declaration) = let attrs2 = let _1 = _1_inlined4 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 15166 "parsing/parser.ml" +# 15144 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in @@ -15171,18 +15149,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 15175 "parsing/parser.ml" +# 15153 "parsing/parser.ml" in -# 1226 "parsing/parser.mly" +# 1204 "parsing/parser.mly" ( xs ) -# 15180 "parsing/parser.ml" +# 15158 "parsing/parser.ml" in -# 3424 "parsing/parser.mly" +# 3405 "parsing/parser.mly" ( _1 ) -# 15186 "parsing/parser.ml" +# 15164 "parsing/parser.ml" in let id = @@ -15191,29 +15169,29 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 15197 "parsing/parser.ml" +# 15175 "parsing/parser.ml" in let flag = -# 4217 "parsing/parser.mly" +# 4198 "parsing/parser.mly" ( Nonrecursive ) -# 15203 "parsing/parser.ml" +# 15181 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 15210 "parsing/parser.ml" +# 15188 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3396 "parsing/parser.mly" +# 3377 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -15222,7 +15200,7 @@ module Tables = struct (flag, ext), Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ) -# 15226 "parsing/parser.ml" +# 15204 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15241,17 +15219,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 1009 "parsing/parser.mly" +# 987 "parsing/parser.mly" (string) -# 15247 "parsing/parser.ml" +# 15225 "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) = -# 4059 "parsing/parser.mly" +# 4040 "parsing/parser.mly" ( _1 ) -# 15255 "parsing/parser.ml" +# 15233 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15270,17 +15248,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 15276 "parsing/parser.ml" +# 15254 "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) = -# 4060 "parsing/parser.mly" +# 4041 "parsing/parser.mly" ( _1 ) -# 15284 "parsing/parser.ml" +# 15262 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15310,9 +15288,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.structure) = -# 1397 "parsing/parser.mly" +# 1375 "parsing/parser.mly" ( _1 ) -# 15316 "parsing/parser.ml" +# 15294 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15335,9 +15313,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (bool) = -# 1776 "parsing/parser.mly" +# 1760 "parsing/parser.mly" ( false ) -# 15341 "parsing/parser.ml" +# 15319 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15367,9 +15345,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (bool) = -# 1778 "parsing/parser.mly" +# 1762 "parsing/parser.mly" ( true ) -# 15373 "parsing/parser.ml" +# 15351 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15385,9 +15363,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (string) = -# 4109 "parsing/parser.mly" +# 4090 "parsing/parser.mly" ( "" ) -# 15391 "parsing/parser.ml" +# 15369 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15417,9 +15395,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (string) = -# 4110 "parsing/parser.mly" +# 4091 "parsing/parser.mly" ( ";.." ) -# 15423 "parsing/parser.ml" +# 15401 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15449,9 +15427,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.signature) = -# 1404 "parsing/parser.mly" +# 1382 "parsing/parser.mly" ( _1 ) -# 15455 "parsing/parser.ml" +# 15433 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15495,9 +15473,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.extension) = -# 4410 "parsing/parser.mly" +# 4391 "parsing/parser.mly" ( (_2, _3) ) -# 15501 "parsing/parser.ml" +# 15479 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15516,9 +15494,9 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 1000 "parsing/parser.mly" +# 978 "parsing/parser.mly" (string * Location.t * string * Location.t * string option) -# 15522 "parsing/parser.ml" +# 15500 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -15527,9 +15505,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4412 "parsing/parser.mly" +# 4393 "parsing/parser.mly" ( mk_quotedext ~loc:_sloc _1 ) -# 15533 "parsing/parser.ml" +# 15511 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15575,9 +15553,9 @@ module Tables = struct let _1_inlined2 : (Parsetree.core_type) = Obj.magic _1_inlined2 in let _3 : unit = Obj.magic _3 in let _1_inlined1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 15581 "parsing/parser.ml" +# 15559 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _1 : (Asttypes.mutable_flag * Asttypes.global_flag) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -15586,34 +15564,34 @@ module Tables = struct let _v : (Parsetree.label_declaration) = let _5 = let _1 = _1_inlined3 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 15592 "parsing/parser.ml" +# 15570 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in -# 3753 "parsing/parser.mly" +# 3734 "parsing/parser.mly" ( _1 ) -# 15601 "parsing/parser.ml" +# 15579 "parsing/parser.ml" in let _2 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 4024 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( _1 ) -# 15609 "parsing/parser.ml" +# 15587 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 15617 "parsing/parser.ml" +# 15595 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_inlined1_ in @@ -15625,13 +15603,13 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 3619 "parsing/parser.mly" +# 3600 "parsing/parser.mly" ( let info = symbol_info _endpos in let mut, gbl = _1 in mkld_global_maybe gbl (Type.field _2 _4 ~mut ~attrs:_5 ~loc:(make_loc _sloc) ~info) (make_loc _loc__1_) ) -# 15635 "parsing/parser.ml" +# 15613 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15691,9 +15669,9 @@ module Tables = struct let _1_inlined2 : (Parsetree.core_type) = Obj.magic _1_inlined2 in let _3 : unit = Obj.magic _3 in let _1_inlined1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 15697 "parsing/parser.ml" +# 15675 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _1 : (Asttypes.mutable_flag * Asttypes.global_flag) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -15702,43 +15680,43 @@ module Tables = struct let _v : (Parsetree.label_declaration) = let _7 = let _1 = _1_inlined4 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 15708 "parsing/parser.ml" +# 15686 "parsing/parser.ml" in let _endpos__7_ = _endpos__1_inlined4_ in let _5 = let _1 = _1_inlined3 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 15717 "parsing/parser.ml" +# 15695 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in -# 3753 "parsing/parser.mly" +# 3734 "parsing/parser.mly" ( _1 ) -# 15726 "parsing/parser.ml" +# 15704 "parsing/parser.ml" in let _2 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 4024 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( _1 ) -# 15734 "parsing/parser.ml" +# 15712 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 15742 "parsing/parser.ml" +# 15720 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_inlined1_ in @@ -15750,7 +15728,7 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 3628 "parsing/parser.mly" +# 3609 "parsing/parser.mly" ( let info = match rhs_info _endpos__5_ with | Some _ as info_before_semi -> info_before_semi @@ -15760,7 +15738,7 @@ module Tables = struct mkld_global_maybe gbl (Type.field _2 _4 ~mut ~attrs:(_5 @ _7) ~loc:(make_loc _sloc) ~info) (make_loc _loc__1_) ) -# 15764 "parsing/parser.ml" +# 15742 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15783,9 +15761,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.label_declaration list) = -# 3613 "parsing/parser.mly" +# 3594 "parsing/parser.mly" ( [_1] ) -# 15789 "parsing/parser.ml" +# 15767 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15808,9 +15786,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.label_declaration list) = -# 3614 "parsing/parser.mly" +# 3595 "parsing/parser.mly" ( [_1] ) -# 15814 "parsing/parser.ml" +# 15792 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15840,9 +15818,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.label_declaration list) = -# 3615 "parsing/parser.mly" +# 3596 "parsing/parser.mly" ( _1 :: _2 ) -# 15846 "parsing/parser.ml" +# 15824 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15861,9 +15839,9 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 15867 "parsing/parser.ml" +# 15845 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -15874,24 +15852,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 15880 "parsing/parser.ml" +# 15858 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2522 "parsing/parser.mly" +# 2507 "parsing/parser.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) -# 15889 "parsing/parser.ml" +# 15867 "parsing/parser.ml" in -# 2509 "parsing/parser.mly" +# 2494 "parsing/parser.mly" ( x ) -# 15895 "parsing/parser.ml" +# 15873 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -15924,9 +15902,9 @@ module Tables = struct let cty : (Parsetree.core_type) = Obj.magic cty in let _2 : unit = Obj.magic _2 in let _1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 15930 "parsing/parser.ml" +# 15908 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -15937,18 +15915,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 15943 "parsing/parser.ml" +# 15921 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2522 "parsing/parser.mly" +# 2507 "parsing/parser.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) -# 15952 "parsing/parser.ml" +# 15930 "parsing/parser.ml" in let _startpos_x_ = _startpos__1_ in @@ -15956,11 +15934,11 @@ module Tables = struct let _symbolstartpos = _startpos_x_ in let _sloc = (_symbolstartpos, _endpos) in -# 2511 "parsing/parser.mly" +# 2496 "parsing/parser.mly" ( let lab, pat = x in lab, mkpat ~loc:_sloc (Ppat_constraint (pat, cty)) ) -# 15964 "parsing/parser.ml" +# 15942 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16007,9 +15985,9 @@ module Tables = struct let xs : (Asttypes.label Asttypes.loc list) = Obj.magic xs in let _2 : unit = Obj.magic _2 in let _1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 16013 "parsing/parser.ml" +# 15991 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -16021,24 +15999,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 16025 "parsing/parser.ml" +# 16003 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 16030 "parsing/parser.ml" +# 16008 "parsing/parser.ml" in -# 3735 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 16036 "parsing/parser.ml" +# 16014 "parsing/parser.ml" in -# 2515 "parsing/parser.mly" +# 2500 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 16042 "parsing/parser.ml" +# 16020 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_xs_) in @@ -16046,9 +16024,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 16052 "parsing/parser.ml" +# 16030 "parsing/parser.ml" in let _endpos_cty_ = _endpos_ty_ in @@ -16058,18 +16036,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 16064 "parsing/parser.ml" +# 16042 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2522 "parsing/parser.mly" +# 2507 "parsing/parser.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) -# 16073 "parsing/parser.ml" +# 16051 "parsing/parser.ml" in let _startpos_x_ = _startpos__1_ in @@ -16077,11 +16055,11 @@ module Tables = struct let _symbolstartpos = _startpos_x_ in let _sloc = (_symbolstartpos, _endpos) in -# 2516 "parsing/parser.mly" +# 2501 "parsing/parser.mly" ( let lab, pat = x in lab, mkpat ~loc:_sloc (Ppat_constraint (pat, cty)) ) -# 16085 "parsing/parser.ml" +# 16063 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16104,9 +16082,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4141 "parsing/parser.mly" +# 4122 "parsing/parser.mly" ( _1 ) -# 16110 "parsing/parser.ml" +# 16088 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16129,9 +16107,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.arg_label * Parsetree.expression) = -# 2878 "parsing/parser.mly" +# 2860 "parsing/parser.mly" ( (Nolabel, _1) ) -# 16135 "parsing/parser.ml" +# 16113 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16157,17 +16135,17 @@ module Tables = struct } = _menhir_stack in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1 : ( -# 942 "parsing/parser.mly" +# 920 "parsing/parser.mly" (string) -# 16163 "parsing/parser.ml" +# 16141 "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) = -# 2880 "parsing/parser.mly" +# 2862 "parsing/parser.mly" ( (Labelled _1, _2) ) -# 16171 "parsing/parser.ml" +# 16149 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16192,9 +16170,9 @@ module Tables = struct }; } = _menhir_stack in let label : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 16198 "parsing/parser.ml" +# 16176 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -16202,10 +16180,10 @@ module Tables = struct let _endpos = _endpos_label_ in let _v : (Asttypes.arg_label * Parsetree.expression) = let _loc_label_ = (_startpos_label_, _endpos_label_) in -# 2882 "parsing/parser.mly" +# 2864 "parsing/parser.mly" ( let loc = _loc_label_ in (Labelled label, mkexpvar ~loc label) ) -# 16209 "parsing/parser.ml" +# 16187 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16250,9 +16228,9 @@ module Tables = struct let _5 : unit = Obj.magic _5 in let ty : (Parsetree.core_type option * Parsetree.core_type option) = Obj.magic ty in let label : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 16256 "parsing/parser.ml" +# 16234 "parsing/parser.ml" ) = Obj.magic label in let _2 : unit = Obj.magic _2 in let _1 : unit = Obj.magic _1 in @@ -16262,10 +16240,10 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression) = let _endpos = _endpos__5_ in let _loc_label_ = (_startpos_label_, _endpos_label_) in -# 2885 "parsing/parser.mly" +# 2867 "parsing/parser.mly" ( (Labelled label, mkexp_constraint ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_label_ label) ty) ) -# 16269 "parsing/parser.ml" +# 16247 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16290,9 +16268,9 @@ module Tables = struct }; } = _menhir_stack in let label : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 16296 "parsing/parser.ml" +# 16274 "parsing/parser.ml" ) = Obj.magic label in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -16300,10 +16278,10 @@ module Tables = struct let _endpos = _endpos_label_ in let _v : (Asttypes.arg_label * Parsetree.expression) = let _loc_label_ = (_startpos_label_, _endpos_label_) in -# 2888 "parsing/parser.mly" +# 2870 "parsing/parser.mly" ( let loc = _loc_label_ in (Optional label, mkexpvar ~loc label) ) -# 16307 "parsing/parser.ml" +# 16285 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16329,17 +16307,17 @@ module Tables = struct } = _menhir_stack in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1 : ( -# 974 "parsing/parser.mly" +# 952 "parsing/parser.mly" (string) -# 16335 "parsing/parser.ml" +# 16313 "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) = -# 2891 "parsing/parser.mly" +# 2873 "parsing/parser.mly" ( (Optional _1, _2) ) -# 16343 "parsing/parser.ml" +# 16321 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16392,22 +16370,22 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _5 = let _1 = _1_inlined1 in -# 2505 "parsing/parser.mly" +# 2490 "parsing/parser.mly" ( _1 ) -# 16398 "parsing/parser.ml" +# 16376 "parsing/parser.ml" in let _3 = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 16404 "parsing/parser.ml" +# 16382 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__2_, _endpos__2_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2468 "parsing/parser.mly" +# 2453 "parsing/parser.mly" ( (Optional (fst _4), _5, mkpat_local_if _3 (snd _4) _loc__3_) ) -# 16411 "parsing/parser.ml" +# 16389 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16467,22 +16445,22 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _5 = let _1 = _1_inlined2 in -# 2505 "parsing/parser.mly" +# 2490 "parsing/parser.mly" ( _1 ) -# 16473 "parsing/parser.ml" +# 16451 "parsing/parser.ml" in let _3 = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 16479 "parsing/parser.ml" +# 16457 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2468 "parsing/parser.mly" +# 2453 "parsing/parser.mly" ( (Optional (fst _4), _5, mkpat_local_if _3 (snd _4) _loc__3_) ) -# 16486 "parsing/parser.ml" +# 16464 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16507,9 +16485,9 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 16513 "parsing/parser.ml" +# 16491 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -16522,24 +16500,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 16528 "parsing/parser.ml" +# 16506 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2522 "parsing/parser.mly" +# 2507 "parsing/parser.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) -# 16537 "parsing/parser.ml" +# 16515 "parsing/parser.ml" in -# 2470 "parsing/parser.mly" +# 2455 "parsing/parser.mly" ( (Optional (fst _2), None, snd _2) ) -# 16543 "parsing/parser.ml" +# 16521 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16586,9 +16564,9 @@ module Tables = struct let _4 : (Parsetree.pattern) = Obj.magic _4 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 974 "parsing/parser.mly" +# 952 "parsing/parser.mly" (string) -# 16592 "parsing/parser.ml" +# 16570 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -16596,22 +16574,22 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _5 = let _1 = _1_inlined1 in -# 2505 "parsing/parser.mly" +# 2490 "parsing/parser.mly" ( _1 ) -# 16602 "parsing/parser.ml" +# 16580 "parsing/parser.ml" in let _3 = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 16608 "parsing/parser.ml" +# 16586 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__2_, _endpos__2_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2472 "parsing/parser.mly" +# 2457 "parsing/parser.mly" ( (Optional _1, _5, mkpat_local_if _3 _4 _loc__3_) ) -# 16615 "parsing/parser.ml" +# 16593 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16665,9 +16643,9 @@ module Tables = struct let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 974 "parsing/parser.mly" +# 952 "parsing/parser.mly" (string) -# 16671 "parsing/parser.ml" +# 16649 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -16675,22 +16653,22 @@ module Tables = struct let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _5 = let _1 = _1_inlined2 in -# 2505 "parsing/parser.mly" +# 2490 "parsing/parser.mly" ( _1 ) -# 16681 "parsing/parser.ml" +# 16659 "parsing/parser.ml" in let _3 = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 16687 "parsing/parser.ml" +# 16665 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2472 "parsing/parser.mly" +# 2457 "parsing/parser.mly" ( (Optional _1, _5, mkpat_local_if _3 _4 _loc__3_) ) -# 16694 "parsing/parser.ml" +# 16672 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16716,17 +16694,17 @@ module Tables = struct } = _menhir_stack in let _2 : (Parsetree.pattern) = Obj.magic _2 in let _1 : ( -# 974 "parsing/parser.mly" +# 952 "parsing/parser.mly" (string) -# 16722 "parsing/parser.ml" +# 16700 "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) = -# 2474 "parsing/parser.mly" +# 2459 "parsing/parser.mly" ( (Optional _1, None, _2) ) -# 16730 "parsing/parser.ml" +# 16708 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16770,17 +16748,17 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _3 = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 16776 "parsing/parser.ml" +# 16754 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__2_, _endpos__2_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2476 "parsing/parser.mly" +# 2461 "parsing/parser.mly" ( (Labelled (fst _4), None, mkpat_local_if _3 (snd _4) _loc__3_) ) -# 16784 "parsing/parser.ml" +# 16762 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16831,17 +16809,17 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _3 = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 16837 "parsing/parser.ml" +# 16815 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2476 "parsing/parser.mly" +# 2461 "parsing/parser.mly" ( (Labelled (fst _4), None, mkpat_local_if _3 (snd _4) _loc__3_) ) -# 16845 "parsing/parser.ml" +# 16823 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16866,9 +16844,9 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 16872 "parsing/parser.ml" +# 16850 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -16881,24 +16859,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 16887 "parsing/parser.ml" +# 16865 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2522 "parsing/parser.mly" +# 2507 "parsing/parser.mly" ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) ) -# 16896 "parsing/parser.ml" +# 16874 "parsing/parser.ml" in -# 2479 "parsing/parser.mly" +# 2464 "parsing/parser.mly" ( (Labelled (fst _2), None, snd _2) ) -# 16902 "parsing/parser.ml" +# 16880 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16924,17 +16902,17 @@ module Tables = struct } = _menhir_stack in let _2 : (Parsetree.pattern) = Obj.magic _2 in let _1 : ( -# 942 "parsing/parser.mly" +# 920 "parsing/parser.mly" (string) -# 16930 "parsing/parser.ml" +# 16908 "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) = -# 2481 "parsing/parser.mly" +# 2466 "parsing/parser.mly" ( (Labelled _1, None, _2) ) -# 16938 "parsing/parser.ml" +# 16916 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -16981,18 +16959,18 @@ module Tables = struct let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 942 "parsing/parser.mly" +# 920 "parsing/parser.mly" (string) -# 16987 "parsing/parser.ml" +# 16965 "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 _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2483 "parsing/parser.mly" +# 2468 "parsing/parser.mly" ( (Labelled _1, None, mkpat_stack _4 (make_loc _loc__3_)) ) -# 16996 "parsing/parser.ml" +# 16974 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17015,9 +16993,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = -# 2485 "parsing/parser.mly" +# 2470 "parsing/parser.mly" ( (Nolabel, None, _1) ) -# 17021 "parsing/parser.ml" +# 16999 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17062,9 +17040,9 @@ module Tables = struct let _endpos = _endpos__4_ in let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _loc__2_ = (_startpos__2_, _endpos__2_) in -# 2487 "parsing/parser.mly" +# 2472 "parsing/parser.mly" ( (Nolabel, None, mkpat_stack _3 (make_loc _loc__2_)) ) -# 17068 "parsing/parser.ml" +# 17046 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17132,9 +17110,9 @@ module Tables = struct let pat : (Parsetree.pattern) = Obj.magic pat in let _2 : unit = Obj.magic _2 in let _1 : ( -# 942 "parsing/parser.mly" +# 920 "parsing/parser.mly" (string) -# 17138 "parsing/parser.ml" +# 17116 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -17149,24 +17127,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 17153 "parsing/parser.ml" +# 17131 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 17158 "parsing/parser.ml" +# 17136 "parsing/parser.ml" in -# 3735 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 17164 "parsing/parser.ml" +# 17142 "parsing/parser.ml" in -# 2538 "parsing/parser.mly" +# 2523 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 17170 "parsing/parser.ml" +# 17148 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_xs_) in @@ -17174,15 +17152,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 17180 "parsing/parser.ml" +# 17158 "parsing/parser.ml" in -# 2539 "parsing/parser.mly" +# 2524 "parsing/parser.mly" ( Ppat_constraint(pat, cty) ) -# 17186 "parsing/parser.ml" +# 17164 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_pat_) in @@ -17190,21 +17168,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 17196 "parsing/parser.ml" +# 17174 "parsing/parser.ml" in -# 2540 "parsing/parser.mly" +# 2525 "parsing/parser.mly" ( _1 ) -# 17202 "parsing/parser.ml" +# 17180 "parsing/parser.ml" in -# 2489 "parsing/parser.mly" +# 2474 "parsing/parser.mly" ( (Labelled _1, None, _3) ) -# 17208 "parsing/parser.ml" +# 17186 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17279,9 +17257,9 @@ module Tables = struct let _3 : unit = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 942 "parsing/parser.mly" +# 920 "parsing/parser.mly" (string) -# 17285 "parsing/parser.ml" +# 17263 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -17296,24 +17274,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 17300 "parsing/parser.ml" +# 17278 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 17305 "parsing/parser.ml" +# 17283 "parsing/parser.ml" in -# 3735 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 17311 "parsing/parser.ml" +# 17289 "parsing/parser.ml" in -# 2538 "parsing/parser.mly" +# 2523 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 17317 "parsing/parser.ml" +# 17295 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_xs_) in @@ -17321,15 +17299,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 17327 "parsing/parser.ml" +# 17305 "parsing/parser.ml" in -# 2539 "parsing/parser.mly" +# 2524 "parsing/parser.mly" ( Ppat_constraint(pat, cty) ) -# 17333 "parsing/parser.ml" +# 17311 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_pat_) in @@ -17337,22 +17315,22 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 17343 "parsing/parser.ml" +# 17321 "parsing/parser.ml" in -# 2540 "parsing/parser.mly" +# 2525 "parsing/parser.mly" ( _1 ) -# 17349 "parsing/parser.ml" +# 17327 "parsing/parser.ml" in let _loc__2_ = (_startpos__2_, _endpos__2_) in -# 2491 "parsing/parser.mly" +# 2476 "parsing/parser.mly" ( (Labelled _1, None, mkpat_stack _4 (make_loc _loc__2_)) ) -# 17356 "parsing/parser.ml" +# 17334 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17426,24 +17404,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 17430 "parsing/parser.ml" +# 17408 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 17435 "parsing/parser.ml" +# 17413 "parsing/parser.ml" in -# 3735 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 17441 "parsing/parser.ml" +# 17419 "parsing/parser.ml" in -# 2538 "parsing/parser.mly" +# 2523 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 17447 "parsing/parser.ml" +# 17425 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_xs_) in @@ -17451,15 +17429,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 17457 "parsing/parser.ml" +# 17435 "parsing/parser.ml" in -# 2539 "parsing/parser.mly" +# 2524 "parsing/parser.mly" ( Ppat_constraint(pat, cty) ) -# 17463 "parsing/parser.ml" +# 17441 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_pat_) in @@ -17467,21 +17445,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 17473 "parsing/parser.ml" +# 17451 "parsing/parser.ml" in -# 2540 "parsing/parser.mly" +# 2525 "parsing/parser.mly" ( _1 ) -# 17479 "parsing/parser.ml" +# 17457 "parsing/parser.ml" in -# 2493 "parsing/parser.mly" +# 2478 "parsing/parser.mly" ( (Nolabel, None, _2) ) -# 17485 "parsing/parser.ml" +# 17463 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17505,9 +17483,9 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.attribute) = let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3473 "parsing/parser.mly" +# 3454 "parsing/parser.mly" ( check_layout _loc__1_ _1 ) -# 17511 "parsing/parser.ml" +# 17489 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17530,9 +17508,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern * Parsetree.expression * bool) = -# 2950 "parsing/parser.mly" +# 2932 "parsing/parser.mly" ( let p,e = _1 in (p,e,false) ) -# 17536 "parsing/parser.ml" +# 17514 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17558,9 +17536,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in -# 2953 "parsing/parser.mly" +# 2935 "parsing/parser.mly" ( (mkpatvar ~loc:_loc _1, mkexpvar ~loc:_loc _1, true) ) -# 17564 "parsing/parser.ml" +# 17542 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17594,15 +17572,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2898 "parsing/parser.mly" +# 2880 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17600 "parsing/parser.ml" +# 17578 "parsing/parser.ml" in -# 2902 "parsing/parser.mly" +# 2884 "parsing/parser.mly" ( (_1, _2) ) -# 17606 "parsing/parser.ml" +# 17584 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17650,16 +17628,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2898 "parsing/parser.mly" +# 2880 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17656 "parsing/parser.ml" +# 17634 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_ in let _1 = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 17663 "parsing/parser.ml" +# 17641 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in let _endpos = _endpos__5_ in @@ -17670,7 +17648,7 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 2904 "parsing/parser.mly" +# 2886 "parsing/parser.mly" ( let v = _2 in (* PR#7344 *) let t = match _3 with @@ -17692,7 +17670,7 @@ module Tables = struct local_loc) in (pat, exp) ) -# 17696 "parsing/parser.ml" +# 17674 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17748,16 +17726,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2898 "parsing/parser.mly" +# 2880 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17754 "parsing/parser.ml" +# 17732 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_inlined1_ in let _1 = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 17761 "parsing/parser.ml" +# 17739 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = if _startpos__1_ != _endpos__1_ then @@ -17767,7 +17745,7 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 2904 "parsing/parser.mly" +# 2886 "parsing/parser.mly" ( let v = _2 in (* PR#7344 *) let t = match _3 with @@ -17789,7 +17767,7 @@ module Tables = struct local_loc) in (pat, exp) ) -# 17793 "parsing/parser.ml" +# 17771 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17860,24 +17838,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 17864 "parsing/parser.ml" +# 17842 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 17869 "parsing/parser.ml" +# 17847 "parsing/parser.ml" in -# 3735 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 17875 "parsing/parser.ml" +# 17853 "parsing/parser.ml" in -# 3739 "parsing/parser.mly" +# 3720 "parsing/parser.mly" ( Ptyp_poly(_1, _3) ) -# 17881 "parsing/parser.ml" +# 17859 "parsing/parser.ml" in let (_endpos__4_, _startpos__4_) = (_endpos__3_inlined1_, _startpos_xs_) in @@ -17886,16 +17864,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2898 "parsing/parser.mly" +# 2880 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 17892 "parsing/parser.ml" +# 17870 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_ in let _1 = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 17899 "parsing/parser.ml" +# 17877 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in let _endpos = _endpos__6_ in @@ -17907,7 +17885,7 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 2926 "parsing/parser.mly" +# 2908 "parsing/parser.mly" ( let patloc = (_startpos__2_, _endpos__4_) in let pat = mkpat_local_if _1 @@ -17917,7 +17895,7 @@ module Tables = struct in let exp = mkexp_local_if _1 ~loc:_sloc ~kwd_loc:(_loc__1_) _6 in (pat, exp) ) -# 17921 "parsing/parser.ml" +# 17899 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -17995,24 +17973,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 17999 "parsing/parser.ml" +# 17977 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 18004 "parsing/parser.ml" +# 17982 "parsing/parser.ml" in -# 3735 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 18010 "parsing/parser.ml" +# 17988 "parsing/parser.ml" in -# 3739 "parsing/parser.mly" +# 3720 "parsing/parser.mly" ( Ptyp_poly(_1, _3) ) -# 18016 "parsing/parser.ml" +# 17994 "parsing/parser.ml" in let (_endpos__4_, _startpos__4_) = (_endpos__3_inlined1_, _startpos_xs_) in @@ -18022,16 +18000,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2898 "parsing/parser.mly" +# 2880 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 18028 "parsing/parser.ml" +# 18006 "parsing/parser.ml" in let _startpos__2_ = _startpos__1_inlined1_ in let _1 = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 18035 "parsing/parser.ml" +# 18013 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = if _startpos__1_ != _endpos__1_ then @@ -18042,7 +18020,7 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 2926 "parsing/parser.mly" +# 2908 "parsing/parser.mly" ( let patloc = (_startpos__2_, _endpos__4_) in let pat = mkpat_local_if _1 @@ -18052,7 +18030,7 @@ module Tables = struct in let exp = mkexp_local_if _1 ~loc:_sloc ~kwd_loc:(_loc__1_) _6 in (pat, exp) ) -# 18056 "parsing/parser.ml" +# 18034 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18124,30 +18102,30 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__8_ in let _v : (Parsetree.pattern * Parsetree.expression) = let _4 = -# 2895 "parsing/parser.mly" +# 2877 "parsing/parser.mly" ( xs ) -# 18130 "parsing/parser.ml" +# 18108 "parsing/parser.ml" in let _1 = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2898 "parsing/parser.mly" +# 2880 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 18139 "parsing/parser.ml" +# 18117 "parsing/parser.ml" in let _endpos = _endpos__8_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2936 "parsing/parser.mly" +# 2918 "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) ) -# 18151 "parsing/parser.ml" +# 18129 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18184,9 +18162,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.pattern * Parsetree.expression) = -# 2941 "parsing/parser.mly" +# 2923 "parsing/parser.mly" ( (_1, _3) ) -# 18190 "parsing/parser.ml" +# 18168 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18237,10 +18215,10 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.pattern * Parsetree.expression) = -# 2943 "parsing/parser.mly" +# 2925 "parsing/parser.mly" ( let loc = (_startpos__1_, _endpos__3_) in (ghpat ~loc (Ppat_constraint(_1, _3)), _5) ) -# 18244 "parsing/parser.ml" +# 18222 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18282,9 +18260,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2898 "parsing/parser.mly" +# 2880 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 18288 "parsing/parser.ml" +# 18266 "parsing/parser.ml" in let _endpos = _endpos__3_ in @@ -18292,9 +18270,9 @@ module Tables = struct let _loc__1_ = (_startpos__1_, _endpos__1_) in let _sloc = (_symbolstartpos, _endpos) in -# 2946 "parsing/parser.mly" +# 2928 "parsing/parser.mly" ( (_2, mkexp_stack ~loc:_sloc ~kwd_loc:(_loc__1_) _3) ) -# 18298 "parsing/parser.ml" +# 18276 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18355,36 +18333,36 @@ module Tables = struct let attrs2 = let _1 = _1_inlined2 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 18361 "parsing/parser.ml" +# 18339 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 18370 "parsing/parser.ml" +# 18348 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2973 "parsing/parser.mly" +# 2955 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in mklbs ext rec_flag (mklb ~loc:_sloc true body attrs) ) -# 18382 "parsing/parser.ml" +# 18360 "parsing/parser.ml" in -# 2963 "parsing/parser.mly" +# 2945 "parsing/parser.mly" ( _1 ) -# 18388 "parsing/parser.ml" +# 18366 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18414,9 +18392,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (let_bindings) = -# 2964 "parsing/parser.mly" +# 2946 "parsing/parser.mly" ( addlb _1 _2 ) -# 18420 "parsing/parser.ml" +# 18398 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18470,41 +18448,41 @@ module Tables = struct let attrs2 = let _1 = _1_inlined2 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 18476 "parsing/parser.ml" +# 18454 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 18485 "parsing/parser.ml" +# 18463 "parsing/parser.ml" in let ext = -# 4396 "parsing/parser.mly" +# 4377 "parsing/parser.mly" ( None ) -# 18491 "parsing/parser.ml" +# 18469 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2973 "parsing/parser.mly" +# 2955 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in mklbs ext rec_flag (mklb ~loc:_sloc true body attrs) ) -# 18502 "parsing/parser.ml" +# 18480 "parsing/parser.ml" in -# 2963 "parsing/parser.mly" +# 2945 "parsing/parser.mly" ( _1 ) -# 18508 "parsing/parser.ml" +# 18486 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18572,18 +18550,18 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 18578 "parsing/parser.ml" +# 18556 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let attrs1 = let _1 = _1_inlined2 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 18587 "parsing/parser.ml" +# 18565 "parsing/parser.ml" in let ext = @@ -18592,27 +18570,27 @@ module Tables = struct let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in -# 4398 "parsing/parser.mly" +# 4379 "parsing/parser.mly" ( not_expecting _loc "extension" ) -# 18598 "parsing/parser.ml" +# 18576 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2973 "parsing/parser.mly" +# 2955 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in mklbs ext rec_flag (mklb ~loc:_sloc true body attrs) ) -# 18610 "parsing/parser.ml" +# 18588 "parsing/parser.ml" in -# 2963 "parsing/parser.mly" +# 2945 "parsing/parser.mly" ( _1 ) -# 18616 "parsing/parser.ml" +# 18594 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18642,9 +18620,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (let_bindings) = -# 2964 "parsing/parser.mly" +# 2946 "parsing/parser.mly" ( addlb _1 _2 ) -# 18648 "parsing/parser.ml" +# 18626 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18667,9 +18645,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = -# 2526 "parsing/parser.mly" +# 2511 "parsing/parser.mly" ( _1 ) -# 18673 "parsing/parser.ml" +# 18651 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18707,24 +18685,24 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 2528 "parsing/parser.mly" +# 2513 "parsing/parser.mly" ( Ppat_constraint(_1, _3) ) -# 18713 "parsing/parser.ml" +# 18691 "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 -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 18722 "parsing/parser.ml" +# 18700 "parsing/parser.ml" in -# 2529 "parsing/parser.mly" +# 2514 "parsing/parser.mly" ( _1 ) -# 18728 "parsing/parser.ml" +# 18706 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18784,24 +18762,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 18788 "parsing/parser.ml" +# 18766 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 18793 "parsing/parser.ml" +# 18771 "parsing/parser.ml" in -# 3735 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 18799 "parsing/parser.ml" +# 18777 "parsing/parser.ml" in -# 2538 "parsing/parser.mly" +# 2523 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 18805 "parsing/parser.ml" +# 18783 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_xs_) in @@ -18809,15 +18787,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 18815 "parsing/parser.ml" +# 18793 "parsing/parser.ml" in -# 2539 "parsing/parser.mly" +# 2524 "parsing/parser.mly" ( Ppat_constraint(pat, cty) ) -# 18821 "parsing/parser.ml" +# 18799 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_ty_, _startpos_pat_) in @@ -18825,21 +18803,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 18831 "parsing/parser.ml" +# 18809 "parsing/parser.ml" in -# 2540 "parsing/parser.mly" +# 2525 "parsing/parser.mly" ( _1 ) -# 18837 "parsing/parser.ml" +# 18815 "parsing/parser.ml" in -# 2531 "parsing/parser.mly" +# 2516 "parsing/parser.mly" ( _1 ) -# 18843 "parsing/parser.ml" +# 18821 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18873,15 +18851,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2898 "parsing/parser.mly" +# 2880 "parsing/parser.mly" ( mkpatvar ~loc:_sloc _1 ) -# 18879 "parsing/parser.ml" +# 18857 "parsing/parser.ml" in -# 2990 "parsing/parser.mly" +# 2972 "parsing/parser.mly" ( (pat, exp) ) -# 18885 "parsing/parser.ml" +# 18863 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18907,9 +18885,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in -# 2993 "parsing/parser.mly" +# 2975 "parsing/parser.mly" ( (mkpatvar ~loc:_loc _1, mkexpvar ~loc:_loc _1) ) -# 18913 "parsing/parser.ml" +# 18891 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -18960,10 +18938,10 @@ module Tables = struct let _startpos = _startpos_pat_ in let _endpos = _endpos_exp_ in let _v : (Parsetree.pattern * Parsetree.expression) = -# 2995 "parsing/parser.mly" +# 2977 "parsing/parser.mly" ( let loc = (_startpos_pat_, _endpos_typ_) in (ghpat ~loc (Ppat_constraint(pat, typ)), exp) ) -# 18967 "parsing/parser.ml" +# 18945 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19000,9 +18978,9 @@ module Tables = struct let _startpos = _startpos_pat_ in let _endpos = _endpos_exp_ in let _v : (Parsetree.pattern * Parsetree.expression) = -# 2998 "parsing/parser.mly" +# 2980 "parsing/parser.mly" ( (pat, exp) ) -# 19006 "parsing/parser.ml" +# 18984 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19025,10 +19003,10 @@ module Tables = struct let _startpos = _startpos_body_ in let _endpos = _endpos_body_ in let _v : (Parsetree.pattern * Parsetree.expression * Parsetree.binding_op list) = -# 3002 "parsing/parser.mly" +# 2984 "parsing/parser.mly" ( let let_pat, let_exp = body in let_pat, let_exp, [] ) -# 19032 "parsing/parser.ml" +# 19010 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19060,9 +19038,9 @@ module Tables = struct } = _menhir_stack in let body : (Parsetree.pattern * Parsetree.expression) = Obj.magic body in let _1 : ( -# 937 "parsing/parser.mly" +# 915 "parsing/parser.mly" (string) -# 19066 "parsing/parser.ml" +# 19044 "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 @@ -19073,22 +19051,22 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 19079 "parsing/parser.ml" +# 19057 "parsing/parser.ml" in let _endpos = _endpos_body_ in let _symbolstartpos = _startpos_bindings_ in let _sloc = (_symbolstartpos, _endpos) in -# 3005 "parsing/parser.mly" +# 2987 "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 ) -# 19092 "parsing/parser.ml" +# 19070 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19106,7 +19084,7 @@ module Tables = struct let _v : (Parsetree.class_declaration list) = # 211 "" ( [] ) -# 19110 "parsing/parser.ml" +# 19088 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19170,9 +19148,9 @@ module Tables = struct let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let body : (Parsetree.class_expr) = Obj.magic body in let _1_inlined2 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 19176 "parsing/parser.ml" +# 19154 "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 @@ -19185,9 +19163,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 19191 "parsing/parser.ml" +# 19169 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -19197,24 +19175,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 19203 "parsing/parser.ml" +# 19181 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 19211 "parsing/parser.ml" +# 19189 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2114 "parsing/parser.mly" +# 2099 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -19222,13 +19200,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Ci.mk id body ~virt ~params ~attrs ~loc ~text ~docs ) -# 19226 "parsing/parser.ml" +# 19204 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19232 "parsing/parser.ml" +# 19210 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19246,7 +19224,7 @@ module Tables = struct let _v : (Parsetree.class_description list) = # 211 "" ( [] ) -# 19250 "parsing/parser.ml" +# 19228 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19317,9 +19295,9 @@ module Tables = struct let cty : (Parsetree.class_type) = Obj.magic cty in let _6 : unit = Obj.magic _6 in let _1_inlined2 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 19323 "parsing/parser.ml" +# 19301 "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 @@ -19332,9 +19310,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 19338 "parsing/parser.ml" +# 19316 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -19344,24 +19322,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 19350 "parsing/parser.ml" +# 19328 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 19358 "parsing/parser.ml" +# 19336 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2405 "parsing/parser.mly" +# 2390 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -19369,13 +19347,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Ci.mk id cty ~virt ~params ~attrs ~loc ~text ~docs ) -# 19373 "parsing/parser.ml" +# 19351 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19379 "parsing/parser.ml" +# 19357 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19393,7 +19371,7 @@ module Tables = struct let _v : (Parsetree.class_type_declaration list) = # 211 "" ( [] ) -# 19397 "parsing/parser.ml" +# 19375 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19464,9 +19442,9 @@ module Tables = struct let csig : (Parsetree.class_type) = Obj.magic csig in let _6 : unit = Obj.magic _6 in let _1_inlined2 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 19470 "parsing/parser.ml" +# 19448 "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 @@ -19479,9 +19457,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 19485 "parsing/parser.ml" +# 19463 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -19491,24 +19469,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 19497 "parsing/parser.ml" +# 19475 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 19505 "parsing/parser.ml" +# 19483 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2444 "parsing/parser.mly" +# 2429 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -19516,13 +19494,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Ci.mk id csig ~virt ~params ~attrs ~loc ~text ~docs ) -# 19520 "parsing/parser.ml" +# 19498 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19526 "parsing/parser.ml" +# 19504 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19540,7 +19518,7 @@ module Tables = struct let _v : (Parsetree.module_binding list) = # 211 "" ( [] ) -# 19544 "parsing/parser.ml" +# 19522 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19601,9 +19579,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 19607 "parsing/parser.ml" +# 19585 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -19613,24 +19591,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 19619 "parsing/parser.ml" +# 19597 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 19627 "parsing/parser.ml" +# 19605 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1761 "parsing/parser.mly" +# 1745 "parsing/parser.mly" ( let loc = make_loc _sloc in let attrs = attrs1 @ attrs2 in @@ -19638,13 +19616,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Mb.mk name body ~attrs ~loc ~text ~docs ) -# 19642 "parsing/parser.ml" +# 19620 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19648 "parsing/parser.ml" +# 19626 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19662,7 +19640,7 @@ module Tables = struct let _v : (Parsetree.module_declaration list) = # 211 "" ( [] ) -# 19666 "parsing/parser.ml" +# 19644 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19730,9 +19708,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 19736 "parsing/parser.ml" +# 19714 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -19742,24 +19720,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 19748 "parsing/parser.ml" +# 19726 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 19756 "parsing/parser.ml" +# 19734 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2055 "parsing/parser.mly" +# 2040 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let docs = symbol_docs _sloc in @@ -19767,13 +19745,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Md.mk name mty ~attrs ~loc ~text ~docs ) -# 19771 "parsing/parser.ml" +# 19749 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19777 "parsing/parser.ml" +# 19755 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19791,7 +19769,7 @@ module Tables = struct let _v : (Parsetree.attributes) = # 211 "" ( [] ) -# 19795 "parsing/parser.ml" +# 19773 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19823,7 +19801,7 @@ module Tables = struct let _v : (Parsetree.attributes) = # 213 "" ( x :: xs ) -# 19827 "parsing/parser.ml" +# 19805 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19841,7 +19819,7 @@ module Tables = struct let _v : (Parsetree.type_declaration list) = # 211 "" ( [] ) -# 19845 "parsing/parser.ml" +# 19823 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -19906,9 +19884,9 @@ module Tables = struct 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 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 19912 "parsing/parser.ml" +# 19890 "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 @@ -19921,9 +19899,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 19927 "parsing/parser.ml" +# 19905 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -19932,18 +19910,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 19936 "parsing/parser.ml" +# 19914 "parsing/parser.ml" in -# 1226 "parsing/parser.mly" +# 1204 "parsing/parser.mly" ( xs ) -# 19941 "parsing/parser.ml" +# 19919 "parsing/parser.ml" in -# 3424 "parsing/parser.mly" +# 3405 "parsing/parser.mly" ( _1 ) -# 19947 "parsing/parser.ml" +# 19925 "parsing/parser.ml" in let id = @@ -19952,24 +19930,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 19958 "parsing/parser.ml" +# 19936 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 19966 "parsing/parser.ml" +# 19944 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3413 "parsing/parser.mly" +# 3394 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -19978,13 +19956,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ~text ) -# 19982 "parsing/parser.ml" +# 19960 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 19988 "parsing/parser.ml" +# 19966 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20002,7 +19980,7 @@ module Tables = struct let _v : (Parsetree.type_declaration list) = # 211 "" ( [] ) -# 20006 "parsing/parser.ml" +# 19984 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20074,9 +20052,9 @@ module Tables = struct 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 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 20080 "parsing/parser.ml" +# 20058 "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 @@ -20089,9 +20067,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined4 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 20095 "parsing/parser.ml" +# 20073 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in @@ -20100,24 +20078,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 20104 "parsing/parser.ml" +# 20082 "parsing/parser.ml" in -# 1226 "parsing/parser.mly" +# 1204 "parsing/parser.mly" ( xs ) -# 20109 "parsing/parser.ml" +# 20087 "parsing/parser.ml" in -# 3424 "parsing/parser.mly" +# 3405 "parsing/parser.mly" ( _1 ) -# 20115 "parsing/parser.ml" +# 20093 "parsing/parser.ml" in let kind_priv_manifest = -# 3459 "parsing/parser.mly" +# 3440 "parsing/parser.mly" ( _2 ) -# 20121 "parsing/parser.ml" +# 20099 "parsing/parser.ml" in let id = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in @@ -20125,24 +20103,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 20131 "parsing/parser.ml" +# 20109 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 20139 "parsing/parser.ml" +# 20117 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3413 "parsing/parser.mly" +# 3394 "parsing/parser.mly" ( let (kind, priv, manifest) = kind_priv_manifest in let docs = symbol_docs _sloc in @@ -20151,13 +20129,13 @@ module Tables = struct let text = symbol_text _symbolstartpos in Type.mk id ~params ~cstrs ~kind ~priv ?manifest ~attrs ~loc ~docs ~text ) -# 20155 "parsing/parser.ml" +# 20133 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20161 "parsing/parser.ml" +# 20139 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20175,7 +20153,7 @@ module Tables = struct let _v : (Parsetree.attributes) = # 211 "" ( [] ) -# 20179 "parsing/parser.ml" +# 20157 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20207,7 +20185,7 @@ module Tables = struct let _v : (Parsetree.attributes) = # 213 "" ( x :: xs ) -# 20211 "parsing/parser.ml" +# 20189 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20225,7 +20203,7 @@ module Tables = struct let _v : (Parsetree.signature_item list list) = # 211 "" ( [] ) -# 20229 "parsing/parser.ml" +# 20207 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20258,21 +20236,21 @@ module Tables = struct let _1 = let _startpos = _startpos__1_ in -# 1152 "parsing/parser.mly" +# 1130 "parsing/parser.mly" ( text_sig _startpos ) -# 20264 "parsing/parser.ml" +# 20242 "parsing/parser.ml" in -# 1911 "parsing/parser.mly" +# 1891 "parsing/parser.mly" ( _1 ) -# 20270 "parsing/parser.ml" +# 20248 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20276 "parsing/parser.ml" +# 20254 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20305,21 +20283,21 @@ module Tables = struct let _1 = let _startpos = _startpos__1_ in -# 1150 "parsing/parser.mly" +# 1128 "parsing/parser.mly" ( text_sig _startpos @ [_1] ) -# 20311 "parsing/parser.ml" +# 20289 "parsing/parser.ml" in -# 1911 "parsing/parser.mly" +# 1891 "parsing/parser.mly" ( _1 ) -# 20317 "parsing/parser.ml" +# 20295 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20323 "parsing/parser.ml" +# 20301 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20337,7 +20315,7 @@ module Tables = struct let _v : (Parsetree.structure_item list list) = # 211 "" ( [] ) -# 20341 "parsing/parser.ml" +# 20319 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20370,40 +20348,40 @@ module Tables = struct let _1 = let ys = let items = -# 1212 "parsing/parser.mly" +# 1190 "parsing/parser.mly" ( [] ) -# 20376 "parsing/parser.ml" +# 20354 "parsing/parser.ml" in -# 1641 "parsing/parser.mly" +# 1619 "parsing/parser.mly" ( items ) -# 20381 "parsing/parser.ml" +# 20359 "parsing/parser.ml" in let xs = let _startpos = _startpos__1_ in -# 1148 "parsing/parser.mly" +# 1126 "parsing/parser.mly" ( text_str _startpos ) -# 20389 "parsing/parser.ml" +# 20367 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 20395 "parsing/parser.ml" +# 20373 "parsing/parser.ml" in -# 1657 "parsing/parser.mly" +# 1635 "parsing/parser.mly" ( _1 ) -# 20401 "parsing/parser.ml" +# 20379 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20407 "parsing/parser.ml" +# 20385 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20455,70 +20433,70 @@ module Tables = struct let _1 = let _1 = let attrs = -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 20461 "parsing/parser.ml" +# 20439 "parsing/parser.ml" in -# 1648 "parsing/parser.mly" +# 1626 "parsing/parser.mly" ( mkstrexp e attrs ) -# 20466 "parsing/parser.ml" +# 20444 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in -# 1146 "parsing/parser.mly" +# 1124 "parsing/parser.mly" ( text_str _startpos @ [_1] ) -# 20474 "parsing/parser.ml" +# 20452 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1165 "parsing/parser.mly" +# 1143 "parsing/parser.mly" ( mark_rhs_docs _startpos _endpos; _1 ) -# 20484 "parsing/parser.ml" +# 20462 "parsing/parser.ml" in -# 1214 "parsing/parser.mly" +# 1192 "parsing/parser.mly" ( x ) -# 20490 "parsing/parser.ml" +# 20468 "parsing/parser.ml" in -# 1641 "parsing/parser.mly" +# 1619 "parsing/parser.mly" ( items ) -# 20496 "parsing/parser.ml" +# 20474 "parsing/parser.ml" in let xs = let _startpos = _startpos__1_ in -# 1148 "parsing/parser.mly" +# 1126 "parsing/parser.mly" ( text_str _startpos ) -# 20504 "parsing/parser.ml" +# 20482 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 20510 "parsing/parser.ml" +# 20488 "parsing/parser.ml" in -# 1657 "parsing/parser.mly" +# 1635 "parsing/parser.mly" ( _1 ) -# 20516 "parsing/parser.ml" +# 20494 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20522 "parsing/parser.ml" +# 20500 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20551,21 +20529,21 @@ module Tables = struct let _1 = let _startpos = _startpos__1_ in -# 1146 "parsing/parser.mly" +# 1124 "parsing/parser.mly" ( text_str _startpos @ [_1] ) -# 20557 "parsing/parser.ml" +# 20535 "parsing/parser.ml" in -# 1657 "parsing/parser.mly" +# 1635 "parsing/parser.mly" ( _1 ) -# 20563 "parsing/parser.ml" +# 20541 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20569 "parsing/parser.ml" +# 20547 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20583,7 +20561,7 @@ module Tables = struct let _v : (Parsetree.class_type_field list list) = # 211 "" ( [] ) -# 20587 "parsing/parser.ml" +# 20565 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20615,15 +20593,15 @@ module Tables = struct let _v : (Parsetree.class_type_field list list) = let x = let _startpos = _startpos__1_ in -# 1160 "parsing/parser.mly" +# 1138 "parsing/parser.mly" ( text_csig _startpos @ [_1] ) -# 20621 "parsing/parser.ml" +# 20599 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20627 "parsing/parser.ml" +# 20605 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20641,7 +20619,7 @@ module Tables = struct let _v : (Parsetree.class_field list list) = # 211 "" ( [] ) -# 20645 "parsing/parser.ml" +# 20623 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20673,15 +20651,15 @@ module Tables = struct let _v : (Parsetree.class_field list list) = let x = let _startpos = _startpos__1_ in -# 1158 "parsing/parser.mly" +# 1136 "parsing/parser.mly" ( text_cstr _startpos @ [_1] ) -# 20679 "parsing/parser.ml" +# 20657 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20685 "parsing/parser.ml" +# 20663 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20699,7 +20677,7 @@ module Tables = struct let _v : (Parsetree.structure_item list list) = # 211 "" ( [] ) -# 20703 "parsing/parser.ml" +# 20681 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20731,15 +20709,15 @@ module Tables = struct let _v : (Parsetree.structure_item list list) = let x = let _startpos = _startpos__1_ in -# 1146 "parsing/parser.mly" +# 1124 "parsing/parser.mly" ( text_str _startpos @ [_1] ) -# 20737 "parsing/parser.ml" +# 20715 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20743 "parsing/parser.ml" +# 20721 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20757,7 +20735,7 @@ module Tables = struct let _v : (Parsetree.toplevel_phrase list list) = # 211 "" ( [] ) -# 20761 "parsing/parser.ml" +# 20739 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20790,32 +20768,32 @@ module Tables = struct let _1 = let x = let _1 = -# 1212 "parsing/parser.mly" +# 1190 "parsing/parser.mly" ( [] ) -# 20796 "parsing/parser.ml" +# 20774 "parsing/parser.ml" in -# 1444 "parsing/parser.mly" +# 1422 "parsing/parser.mly" ( _1 ) -# 20801 "parsing/parser.ml" +# 20779 "parsing/parser.ml" in # 183 "" ( x ) -# 20807 "parsing/parser.ml" +# 20785 "parsing/parser.ml" in -# 1456 "parsing/parser.mly" +# 1434 "parsing/parser.mly" ( _1 ) -# 20813 "parsing/parser.ml" +# 20791 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20819 "parsing/parser.ml" +# 20797 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20867,58 +20845,58 @@ module Tables = struct let _1 = let _1 = let attrs = -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 20873 "parsing/parser.ml" +# 20851 "parsing/parser.ml" in -# 1648 "parsing/parser.mly" +# 1626 "parsing/parser.mly" ( mkstrexp e attrs ) -# 20878 "parsing/parser.ml" +# 20856 "parsing/parser.ml" in -# 1156 "parsing/parser.mly" +# 1134 "parsing/parser.mly" ( Ptop_def [_1] ) -# 20884 "parsing/parser.ml" +# 20862 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in -# 1154 "parsing/parser.mly" +# 1132 "parsing/parser.mly" ( text_def _startpos @ [_1] ) -# 20892 "parsing/parser.ml" +# 20870 "parsing/parser.ml" in -# 1214 "parsing/parser.mly" +# 1192 "parsing/parser.mly" ( x ) -# 20898 "parsing/parser.ml" +# 20876 "parsing/parser.ml" in -# 1444 "parsing/parser.mly" +# 1422 "parsing/parser.mly" ( _1 ) -# 20904 "parsing/parser.ml" +# 20882 "parsing/parser.ml" in # 183 "" ( x ) -# 20910 "parsing/parser.ml" +# 20888 "parsing/parser.ml" in -# 1456 "parsing/parser.mly" +# 1434 "parsing/parser.mly" ( _1 ) -# 20916 "parsing/parser.ml" +# 20894 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20922 "parsing/parser.ml" +# 20900 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -20950,27 +20928,27 @@ module Tables = struct let _v : (Parsetree.toplevel_phrase list list) = let x = let _1 = let _1 = -# 1156 "parsing/parser.mly" +# 1134 "parsing/parser.mly" ( Ptop_def [_1] ) -# 20956 "parsing/parser.ml" +# 20934 "parsing/parser.ml" in let _startpos = _startpos__1_ in -# 1154 "parsing/parser.mly" +# 1132 "parsing/parser.mly" ( text_def _startpos @ [_1] ) -# 20962 "parsing/parser.ml" +# 20940 "parsing/parser.ml" in -# 1456 "parsing/parser.mly" +# 1434 "parsing/parser.mly" ( _1 ) -# 20968 "parsing/parser.ml" +# 20946 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 20974 "parsing/parser.ml" +# 20952 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21005,29 +20983,29 @@ module Tables = struct let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1165 "parsing/parser.mly" +# 1143 "parsing/parser.mly" ( mark_rhs_docs _startpos _endpos; _1 ) -# 21012 "parsing/parser.ml" +# 20990 "parsing/parser.ml" in let _startpos = _startpos__1_ in -# 1154 "parsing/parser.mly" +# 1132 "parsing/parser.mly" ( text_def _startpos @ [_1] ) -# 21019 "parsing/parser.ml" +# 20997 "parsing/parser.ml" in -# 1456 "parsing/parser.mly" +# 1434 "parsing/parser.mly" ( _1 ) -# 21025 "parsing/parser.ml" +# 21003 "parsing/parser.ml" in # 213 "" ( x :: xs ) -# 21031 "parsing/parser.ml" +# 21009 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21066,7 +21044,7 @@ module Tables = struct let _v : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option) = let _2 = # 124 "" ( None ) -# 21070 "parsing/parser.ml" +# 21048 "parsing/parser.ml" in let x = let label = @@ -21074,9 +21052,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 21080 "parsing/parser.ml" +# 21058 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -21084,7 +21062,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 3299 "parsing/parser.mly" +# 3280 "parsing/parser.mly" ( let constraint_loc, label, pat = match opat with | None -> @@ -21098,13 +21076,13 @@ module Tables = struct in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) -# 21102 "parsing/parser.ml" +# 21080 "parsing/parser.ml" in -# 1381 "parsing/parser.mly" +# 1359 "parsing/parser.mly" ( [x], None ) -# 21108 "parsing/parser.ml" +# 21086 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21150,7 +21128,7 @@ module Tables = struct let _v : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option) = let _2 = # 126 "" ( Some x ) -# 21154 "parsing/parser.ml" +# 21132 "parsing/parser.ml" in let x = let label = @@ -21158,9 +21136,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 21164 "parsing/parser.ml" +# 21142 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -21168,7 +21146,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 3299 "parsing/parser.mly" +# 3280 "parsing/parser.mly" ( let constraint_loc, label, pat = match opat with | None -> @@ -21182,13 +21160,13 @@ module Tables = struct in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) -# 21186 "parsing/parser.ml" +# 21164 "parsing/parser.ml" in -# 1381 "parsing/parser.mly" +# 1359 "parsing/parser.mly" ( [x], None ) -# 21192 "parsing/parser.ml" +# 21170 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21251,9 +21229,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 21257 "parsing/parser.ml" +# 21235 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -21261,7 +21239,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 3299 "parsing/parser.mly" +# 3280 "parsing/parser.mly" ( let constraint_loc, label, pat = match opat with | None -> @@ -21275,13 +21253,13 @@ module Tables = struct in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) -# 21279 "parsing/parser.ml" +# 21257 "parsing/parser.ml" in -# 1383 "parsing/parser.mly" +# 1361 "parsing/parser.mly" ( [x], Some y ) -# 21285 "parsing/parser.ml" +# 21263 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21337,9 +21315,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 21343 "parsing/parser.ml" +# 21321 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -21347,7 +21325,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 3299 "parsing/parser.mly" +# 3280 "parsing/parser.mly" ( let constraint_loc, label, pat = match opat with | None -> @@ -21361,14 +21339,14 @@ module Tables = struct in label, mkpat_opt_constraint ~loc:constraint_loc pat octy ) -# 21365 "parsing/parser.ml" +# 21343 "parsing/parser.ml" in -# 1387 "parsing/parser.mly" +# 1365 "parsing/parser.mly" ( let xs, y = tail in x :: xs, y ) -# 21372 "parsing/parser.ml" +# 21350 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21391,9 +21369,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = -# 3027 "parsing/parser.mly" +# 3009 "parsing/parser.mly" ( _1 ) -# 21397 "parsing/parser.ml" +# 21375 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21433,9 +21411,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3029 "parsing/parser.mly" +# 3011 "parsing/parser.mly" ( wrap_exp_stack (mkexp_constraint ~loc:_sloc _3 _1) (make_loc _sloc) ) -# 21439 "parsing/parser.ml" +# 21417 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21465,9 +21443,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 3033 "parsing/parser.mly" +# 3015 "parsing/parser.mly" ( _2 ) -# 21471 "parsing/parser.ml" +# 21449 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21500,9 +21478,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3035 "parsing/parser.mly" +# 3017 "parsing/parser.mly" ( let (l, o, p) = _1 in ghexp ~loc:_sloc (Pexp_fun(l, o, p, _2)) ) -# 21506 "parsing/parser.ml" +# 21484 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21553,17 +21531,17 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _3 = -# 2895 "parsing/parser.mly" +# 2877 "parsing/parser.mly" ( xs ) -# 21559 "parsing/parser.ml" +# 21537 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3037 "parsing/parser.mly" +# 3019 "parsing/parser.mly" ( mk_newtypes ~loc:_sloc _3 _5 ) -# 21567 "parsing/parser.ml" +# 21545 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21600,9 +21578,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.case) = -# 3045 "parsing/parser.mly" +# 3027 "parsing/parser.mly" ( Exp.case _1 _3 ) -# 21606 "parsing/parser.ml" +# 21584 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21653,9 +21631,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.case) = -# 3047 "parsing/parser.mly" +# 3029 "parsing/parser.mly" ( Exp.case _1 ~guard:_3 _5 ) -# 21659 "parsing/parser.ml" +# 21637 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21693,9 +21671,9 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.case) = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3049 "parsing/parser.mly" +# 3031 "parsing/parser.mly" ( Exp.case _1 (Exp.unreachable ~loc:(make_loc _loc__3_) ()) ) -# 21699 "parsing/parser.ml" +# 21677 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21756,9 +21734,9 @@ module Tables = struct let _1_inlined1 : (Parsetree.core_type) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 21762 "parsing/parser.ml" +# 21740 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -21767,49 +21745,49 @@ module Tables = struct let _6 = let _1 = _1_inlined3 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 21773 "parsing/parser.ml" +# 21751 "parsing/parser.ml" in let _endpos__6_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 21782 "parsing/parser.ml" +# 21760 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _3 = let _1 = _1_inlined1 in -# 3753 "parsing/parser.mly" +# 3734 "parsing/parser.mly" ( _1 ) -# 21791 "parsing/parser.ml" +# 21769 "parsing/parser.ml" in let _1 = let _1 = -# 4024 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( _1 ) -# 21798 "parsing/parser.ml" +# 21776 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 21806 "parsing/parser.ml" +# 21784 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4009 "parsing/parser.mly" +# 3990 "parsing/parser.mly" ( let info = match rhs_info _endpos__4_ with | Some _ as info_before_semi -> info_before_semi @@ -21817,13 +21795,13 @@ module Tables = struct in let attrs = add_info_attrs info (_4 @ _6) in Of.tag ~loc:(make_loc _sloc) ~attrs _1 _3 ) -# 21821 "parsing/parser.ml" +# 21799 "parsing/parser.ml" in -# 3990 "parsing/parser.mly" +# 3971 "parsing/parser.mly" ( let (f, c) = tail in (head :: f, c) ) -# 21827 "parsing/parser.ml" +# 21805 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21864,15 +21842,15 @@ module Tables = struct let _symbolstartpos = _startpos_ty_ in let _sloc = (_symbolstartpos, _endpos) in -# 4020 "parsing/parser.mly" +# 4001 "parsing/parser.mly" ( Of.inherit_ ~loc:(make_loc _sloc) ty ) -# 21870 "parsing/parser.ml" +# 21848 "parsing/parser.ml" in -# 3990 "parsing/parser.mly" +# 3971 "parsing/parser.mly" ( let (f, c) = tail in (head :: f, c) ) -# 21876 "parsing/parser.ml" +# 21854 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -21926,9 +21904,9 @@ module Tables = struct let _1_inlined1 : (Parsetree.core_type) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 21932 "parsing/parser.ml" +# 21910 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -21937,49 +21915,49 @@ module Tables = struct let _6 = let _1 = _1_inlined3 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 21943 "parsing/parser.ml" +# 21921 "parsing/parser.ml" in let _endpos__6_ = _endpos__1_inlined3_ in let _4 = let _1 = _1_inlined2 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 21952 "parsing/parser.ml" +# 21930 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _3 = let _1 = _1_inlined1 in -# 3753 "parsing/parser.mly" +# 3734 "parsing/parser.mly" ( _1 ) -# 21961 "parsing/parser.ml" +# 21939 "parsing/parser.ml" in let _1 = let _1 = -# 4024 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( _1 ) -# 21968 "parsing/parser.ml" +# 21946 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 21976 "parsing/parser.ml" +# 21954 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4009 "parsing/parser.mly" +# 3990 "parsing/parser.mly" ( let info = match rhs_info _endpos__4_ with | Some _ as info_before_semi -> info_before_semi @@ -21987,13 +21965,13 @@ module Tables = struct in let attrs = add_info_attrs info (_4 @ _6) in Of.tag ~loc:(make_loc _sloc) ~attrs _1 _3 ) -# 21991 "parsing/parser.ml" +# 21969 "parsing/parser.ml" in -# 3993 "parsing/parser.mly" +# 3974 "parsing/parser.mly" ( [head], Closed ) -# 21997 "parsing/parser.ml" +# 21975 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22027,15 +22005,15 @@ module Tables = struct let _symbolstartpos = _startpos_ty_ in let _sloc = (_symbolstartpos, _endpos) in -# 4020 "parsing/parser.mly" +# 4001 "parsing/parser.mly" ( Of.inherit_ ~loc:(make_loc _sloc) ty ) -# 22033 "parsing/parser.ml" +# 22011 "parsing/parser.ml" in -# 3993 "parsing/parser.mly" +# 3974 "parsing/parser.mly" ( [head], Closed ) -# 22039 "parsing/parser.ml" +# 22017 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22075,9 +22053,9 @@ module Tables = struct let _1_inlined1 : (Parsetree.core_type) = Obj.magic _1_inlined1 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 22081 "parsing/parser.ml" +# 22059 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -22086,50 +22064,50 @@ module Tables = struct let _4 = let _1 = _1_inlined2 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 22092 "parsing/parser.ml" +# 22070 "parsing/parser.ml" in let _endpos__4_ = _endpos__1_inlined2_ in let _3 = let _1 = _1_inlined1 in -# 3753 "parsing/parser.mly" +# 3734 "parsing/parser.mly" ( _1 ) -# 22101 "parsing/parser.ml" +# 22079 "parsing/parser.ml" in let _1 = let _1 = -# 4024 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( _1 ) -# 22108 "parsing/parser.ml" +# 22086 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 22116 "parsing/parser.ml" +# 22094 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4002 "parsing/parser.mly" +# 3983 "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 ) -# 22127 "parsing/parser.ml" +# 22105 "parsing/parser.ml" in -# 3996 "parsing/parser.mly" +# 3977 "parsing/parser.mly" ( [head], Closed ) -# 22133 "parsing/parser.ml" +# 22111 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22156,15 +22134,15 @@ module Tables = struct let _symbolstartpos = _startpos_ty_ in let _sloc = (_symbolstartpos, _endpos) in -# 4020 "parsing/parser.mly" +# 4001 "parsing/parser.mly" ( Of.inherit_ ~loc:(make_loc _sloc) ty ) -# 22162 "parsing/parser.ml" +# 22140 "parsing/parser.ml" in -# 3996 "parsing/parser.mly" +# 3977 "parsing/parser.mly" ( [head], Closed ) -# 22168 "parsing/parser.ml" +# 22146 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22187,9 +22165,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.object_field list * Asttypes.closed_flag) = -# 3998 "parsing/parser.mly" +# 3979 "parsing/parser.mly" ( [], Open ) -# 22193 "parsing/parser.ml" +# 22171 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22234,9 +22212,9 @@ module Tables = struct let _1_inlined2 : (Parsetree.core_type) = Obj.magic _1_inlined2 in let _5 : unit = Obj.magic _5 in let _1_inlined1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 22240 "parsing/parser.ml" +# 22218 "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 @@ -22248,41 +22226,41 @@ module Tables = struct Parsetree.attributes) = let ty = let _1 = _1_inlined2 in -# 3749 "parsing/parser.mly" +# 3730 "parsing/parser.mly" ( _1 ) -# 22254 "parsing/parser.ml" +# 22232 "parsing/parser.ml" in let label = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 4024 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( _1 ) -# 22262 "parsing/parser.ml" +# 22240 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 22270 "parsing/parser.ml" +# 22248 "parsing/parser.ml" in let attrs = -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 22276 "parsing/parser.ml" +# 22254 "parsing/parser.ml" in let _1 = -# 4287 "parsing/parser.mly" +# 4268 "parsing/parser.mly" ( Fresh ) -# 22281 "parsing/parser.ml" +# 22259 "parsing/parser.ml" in -# 2252 "parsing/parser.mly" +# 2237 "parsing/parser.mly" ( (label, private_, Cfk_virtual ty), attrs ) -# 22286 "parsing/parser.ml" +# 22264 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22320,9 +22298,9 @@ module Tables = struct } = _menhir_stack in let _5 : (Parsetree.expression) = Obj.magic _5 in let _1_inlined1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 22326 "parsing/parser.ml" +# 22304 "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 @@ -22334,36 +22312,36 @@ module Tables = struct Parsetree.attributes) = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 4024 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( _1 ) -# 22340 "parsing/parser.ml" +# 22318 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 22348 "parsing/parser.ml" +# 22326 "parsing/parser.ml" in let _2 = -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 22354 "parsing/parser.ml" +# 22332 "parsing/parser.ml" in let _1 = -# 4290 "parsing/parser.mly" +# 4271 "parsing/parser.mly" ( Fresh ) -# 22359 "parsing/parser.ml" +# 22337 "parsing/parser.ml" in -# 2254 "parsing/parser.mly" +# 2239 "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 ) -# 22367 "parsing/parser.ml" +# 22345 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22407,9 +22385,9 @@ module Tables = struct } = _menhir_stack in let _5 : (Parsetree.expression) = Obj.magic _5 in let _1_inlined2 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 22413 "parsing/parser.ml" +# 22391 "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 @@ -22422,39 +22400,39 @@ module Tables = struct Parsetree.attributes) = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = -# 4024 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( _1 ) -# 22428 "parsing/parser.ml" +# 22406 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 22436 "parsing/parser.ml" +# 22414 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 22444 "parsing/parser.ml" +# 22422 "parsing/parser.ml" in let _1 = -# 4291 "parsing/parser.mly" +# 4272 "parsing/parser.mly" ( Override ) -# 22450 "parsing/parser.ml" +# 22428 "parsing/parser.ml" in -# 2254 "parsing/parser.mly" +# 2239 "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 ) -# 22458 "parsing/parser.ml" +# 22436 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22513,9 +22491,9 @@ module Tables = struct let _1_inlined2 : (Parsetree.core_type) = Obj.magic _1_inlined2 in let _5 : unit = Obj.magic _5 in let _1_inlined1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 22519 "parsing/parser.ml" +# 22497 "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 @@ -22527,45 +22505,45 @@ module Tables = struct Parsetree.attributes) = let _6 = let _1 = _1_inlined2 in -# 3749 "parsing/parser.mly" +# 3730 "parsing/parser.mly" ( _1 ) -# 22533 "parsing/parser.ml" +# 22511 "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 = -# 4024 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( _1 ) -# 22542 "parsing/parser.ml" +# 22520 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 22550 "parsing/parser.ml" +# 22528 "parsing/parser.ml" in let _2 = -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 22556 "parsing/parser.ml" +# 22534 "parsing/parser.ml" in let _1 = -# 4290 "parsing/parser.mly" +# 4271 "parsing/parser.mly" ( Fresh ) -# 22561 "parsing/parser.ml" +# 22539 "parsing/parser.ml" in -# 2260 "parsing/parser.mly" +# 2245 "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 ) -# 22569 "parsing/parser.ml" +# 22547 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22630,9 +22608,9 @@ module Tables = struct let _1_inlined3 : (Parsetree.core_type) = Obj.magic _1_inlined3 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 22636 "parsing/parser.ml" +# 22614 "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 @@ -22645,48 +22623,48 @@ module Tables = struct Parsetree.attributes) = let _6 = let _1 = _1_inlined3 in -# 3749 "parsing/parser.mly" +# 3730 "parsing/parser.mly" ( _1 ) -# 22651 "parsing/parser.ml" +# 22629 "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 = -# 4024 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( _1 ) -# 22660 "parsing/parser.ml" +# 22638 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 22668 "parsing/parser.ml" +# 22646 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 22676 "parsing/parser.ml" +# 22654 "parsing/parser.ml" in let _1 = -# 4291 "parsing/parser.mly" +# 4272 "parsing/parser.mly" ( Override ) -# 22682 "parsing/parser.ml" +# 22660 "parsing/parser.ml" in -# 2260 "parsing/parser.mly" +# 2245 "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 ) -# 22690 "parsing/parser.ml" +# 22668 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22766,9 +22744,9 @@ module Tables = struct let _6 : unit = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 22772 "parsing/parser.ml" +# 22750 "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 @@ -22778,38 +22756,38 @@ module Tables = struct let _v : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * Parsetree.class_field_kind) * Parsetree.attributes) = let _7 = -# 2895 "parsing/parser.mly" +# 2877 "parsing/parser.mly" ( xs ) -# 22784 "parsing/parser.ml" +# 22762 "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 = -# 4024 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( _1 ) -# 22792 "parsing/parser.ml" +# 22770 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 22800 "parsing/parser.ml" +# 22778 "parsing/parser.ml" in let _startpos__4_ = _startpos__1_inlined1_ in let _2 = -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 22807 "parsing/parser.ml" +# 22785 "parsing/parser.ml" in let (_endpos__2_, _startpos__2_) = (_endpos__1_, _startpos__1_) in let _1 = -# 4290 "parsing/parser.mly" +# 4271 "parsing/parser.mly" ( Fresh ) -# 22813 "parsing/parser.ml" +# 22791 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in let _endpos = _endpos__11_ in @@ -22825,7 +22803,7 @@ module Tables = struct _startpos__4_ in let _sloc = (_symbolstartpos, _endpos) in -# 2266 "parsing/parser.mly" +# 2251 "parsing/parser.mly" ( let poly_exp_loc = (_startpos__7_, _endpos__11_) in let poly_exp = let exp, poly = @@ -22836,7 +22814,7 @@ module Tables = struct ghexp ~loc:poly_exp_loc (Pexp_poly(exp, Some poly)) in (_4, _3, Cfk_concrete (_1, poly_exp)), _2 ) -# 22840 "parsing/parser.ml" +# 22818 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -22922,9 +22900,9 @@ module Tables = struct let _6 : unit = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 22928 "parsing/parser.ml" +# 22906 "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 @@ -22935,41 +22913,41 @@ module Tables = struct let _v : ((Asttypes.label Asttypes.loc * Asttypes.private_flag * Parsetree.class_field_kind) * Parsetree.attributes) = let _7 = -# 2895 "parsing/parser.mly" +# 2877 "parsing/parser.mly" ( xs ) -# 22941 "parsing/parser.ml" +# 22919 "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 = -# 4024 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( _1 ) -# 22949 "parsing/parser.ml" +# 22927 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 22957 "parsing/parser.ml" +# 22935 "parsing/parser.ml" in let _startpos__4_ = _startpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 22966 "parsing/parser.ml" +# 22944 "parsing/parser.ml" in let (_endpos__2_, _startpos__2_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let _1 = -# 4291 "parsing/parser.mly" +# 4272 "parsing/parser.mly" ( Override ) -# 22973 "parsing/parser.ml" +# 22951 "parsing/parser.ml" in let _endpos = _endpos__11_ in let _symbolstartpos = if _startpos__1_ != _endpos__1_ then @@ -22984,7 +22962,7 @@ module Tables = struct _startpos__4_ in let _sloc = (_symbolstartpos, _endpos) in -# 2266 "parsing/parser.mly" +# 2251 "parsing/parser.mly" ( let poly_exp_loc = (_startpos__7_, _endpos__11_) in let poly_exp = let exp, poly = @@ -22995,7 +22973,7 @@ module Tables = struct ghexp ~loc:poly_exp_loc (Pexp_poly(exp, Some poly)) in (_4, _3, Cfk_concrete (_1, poly_exp)), _2 ) -# 22999 "parsing/parser.ml" +# 22977 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23014,17 +22992,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 23020 "parsing/parser.ml" +# 22998 "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) = -# 4134 "parsing/parser.mly" +# 4115 "parsing/parser.mly" ( Lident _1 ) -# 23028 "parsing/parser.ml" +# 23006 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23055,9 +23033,9 @@ module Tables = struct }; } = _menhir_stack in let _3 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 23061 "parsing/parser.ml" +# 23039 "parsing/parser.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in @@ -23065,9 +23043,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 4135 "parsing/parser.mly" +# 4116 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 23071 "parsing/parser.ml" +# 23049 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23086,17 +23064,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 1009 "parsing/parser.mly" +# 987 "parsing/parser.mly" (string) -# 23092 "parsing/parser.ml" +# 23070 "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) = -# 4134 "parsing/parser.mly" +# 4115 "parsing/parser.mly" ( Lident _1 ) -# 23100 "parsing/parser.ml" +# 23078 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23127,9 +23105,9 @@ module Tables = struct }; } = _menhir_stack in let _3 : ( -# 1009 "parsing/parser.mly" +# 987 "parsing/parser.mly" (string) -# 23133 "parsing/parser.ml" +# 23111 "parsing/parser.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in @@ -23137,9 +23115,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 4135 "parsing/parser.mly" +# 4116 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 23143 "parsing/parser.ml" +# 23121 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23162,14 +23140,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = let _1 = -# 4172 "parsing/parser.mly" +# 4153 "parsing/parser.mly" ( _1 ) -# 23168 "parsing/parser.ml" +# 23146 "parsing/parser.ml" in -# 4134 "parsing/parser.mly" +# 4115 "parsing/parser.mly" ( Lident _1 ) -# 23173 "parsing/parser.ml" +# 23151 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23207,20 +23185,20 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Longident.t) = let _1 = let _1 = -# 4114 "parsing/parser.mly" +# 4095 "parsing/parser.mly" ( "::" ) -# 23213 "parsing/parser.ml" +# 23191 "parsing/parser.ml" in -# 4172 "parsing/parser.mly" +# 4153 "parsing/parser.mly" ( _1 ) -# 23218 "parsing/parser.ml" +# 23196 "parsing/parser.ml" in -# 4134 "parsing/parser.mly" +# 4115 "parsing/parser.mly" ( Lident _1 ) -# 23224 "parsing/parser.ml" +# 23202 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23243,14 +23221,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = let _1 = -# 4172 "parsing/parser.mly" +# 4153 "parsing/parser.mly" ( _1 ) -# 23249 "parsing/parser.ml" +# 23227 "parsing/parser.ml" in -# 4134 "parsing/parser.mly" +# 4115 "parsing/parser.mly" ( Lident _1 ) -# 23254 "parsing/parser.ml" +# 23232 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23289,15 +23267,15 @@ module Tables = struct let _v : (Longident.t) = let _3 = let _1 = _1_inlined1 in -# 4172 "parsing/parser.mly" +# 4153 "parsing/parser.mly" ( _1 ) -# 23295 "parsing/parser.ml" +# 23273 "parsing/parser.ml" in -# 4135 "parsing/parser.mly" +# 4116 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 23301 "parsing/parser.ml" +# 23279 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23349,20 +23327,20 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Longident.t) = let _3 = let _1 = -# 4114 "parsing/parser.mly" +# 4095 "parsing/parser.mly" ( "::" ) -# 23355 "parsing/parser.ml" +# 23333 "parsing/parser.ml" in -# 4172 "parsing/parser.mly" +# 4153 "parsing/parser.mly" ( _1 ) -# 23360 "parsing/parser.ml" +# 23338 "parsing/parser.ml" in -# 4135 "parsing/parser.mly" +# 4116 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 23366 "parsing/parser.ml" +# 23344 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23401,15 +23379,15 @@ module Tables = struct let _v : (Longident.t) = let _3 = let _1 = _1_inlined1 in -# 4172 "parsing/parser.mly" +# 4153 "parsing/parser.mly" ( _1 ) -# 23407 "parsing/parser.ml" +# 23385 "parsing/parser.ml" in -# 4135 "parsing/parser.mly" +# 4116 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 23413 "parsing/parser.ml" +# 23391 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23432,9 +23410,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4134 "parsing/parser.mly" +# 4115 "parsing/parser.mly" ( Lident _1 ) -# 23438 "parsing/parser.ml" +# 23416 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23471,9 +23449,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 4135 "parsing/parser.mly" +# 4116 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 23477 "parsing/parser.ml" +# 23455 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23492,17 +23470,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 23498 "parsing/parser.ml" +# 23476 "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) = -# 4134 "parsing/parser.mly" +# 4115 "parsing/parser.mly" ( Lident _1 ) -# 23506 "parsing/parser.ml" +# 23484 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23533,9 +23511,9 @@ module Tables = struct }; } = _menhir_stack in let _3 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 23539 "parsing/parser.ml" +# 23517 "parsing/parser.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in @@ -23543,9 +23521,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 4135 "parsing/parser.mly" +# 4116 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 23549 "parsing/parser.ml" +# 23527 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23564,17 +23542,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 1009 "parsing/parser.mly" +# 987 "parsing/parser.mly" (string) -# 23570 "parsing/parser.ml" +# 23548 "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) = -# 4134 "parsing/parser.mly" +# 4115 "parsing/parser.mly" ( Lident _1 ) -# 23578 "parsing/parser.ml" +# 23556 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23605,9 +23583,9 @@ module Tables = struct }; } = _menhir_stack in let _3 : ( -# 1009 "parsing/parser.mly" +# 987 "parsing/parser.mly" (string) -# 23611 "parsing/parser.ml" +# 23589 "parsing/parser.ml" ) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : (Longident.t) = Obj.magic _1 in @@ -23615,9 +23593,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 4135 "parsing/parser.mly" +# 4116 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 23621 "parsing/parser.ml" +# 23599 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23640,9 +23618,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4134 "parsing/parser.mly" +# 4115 "parsing/parser.mly" ( Lident _1 ) -# 23646 "parsing/parser.ml" +# 23624 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23679,9 +23657,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Longident.t) = -# 4135 "parsing/parser.mly" +# 4116 "parsing/parser.mly" ( Ldot(_1,_3) ) -# 23685 "parsing/parser.ml" +# 23663 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23704,9 +23682,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4150 "parsing/parser.mly" +# 4131 "parsing/parser.mly" ( _1 ) -# 23710 "parsing/parser.ml" +# 23688 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23753,9 +23731,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4152 "parsing/parser.mly" +# 4133 "parsing/parser.mly" ( lapply ~loc:_sloc _1 _3 ) -# 23759 "parsing/parser.ml" +# 23737 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23793,9 +23771,9 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Longident.t) = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 4154 "parsing/parser.mly" +# 4135 "parsing/parser.mly" ( expecting _loc__3_ "module path" ) -# 23799 "parsing/parser.ml" +# 23777 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23818,9 +23796,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4147 "parsing/parser.mly" +# 4128 "parsing/parser.mly" ( _1 ) -# 23824 "parsing/parser.ml" +# 23802 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23850,9 +23828,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos_me_ in let _v : (Parsetree.module_expr) = -# 1720 "parsing/parser.mly" +# 1704 "parsing/parser.mly" ( me ) -# 23856 "parsing/parser.ml" +# 23834 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23897,24 +23875,24 @@ module Tables = struct let _endpos = _endpos_me_ in let _v : (Parsetree.module_expr) = let _1 = let _1 = -# 1723 "parsing/parser.mly" +# 1707 "parsing/parser.mly" ( Pmod_constraint(me, mty) ) -# 23903 "parsing/parser.ml" +# 23881 "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 -# 1185 "parsing/parser.mly" +# 1163 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 23912 "parsing/parser.ml" +# 23890 "parsing/parser.ml" in -# 1727 "parsing/parser.mly" +# 1711 "parsing/parser.mly" ( _1 ) -# 23918 "parsing/parser.ml" +# 23896 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23945,25 +23923,25 @@ module Tables = struct let _endpos = _endpos_body_ in let _v : (Parsetree.module_expr) = let _1 = let _1 = -# 1725 "parsing/parser.mly" +# 1709 "parsing/parser.mly" ( let (_, arg) = arg_and_pos in Pmod_functor(arg, body) ) -# 23952 "parsing/parser.ml" +# 23930 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_body_, _startpos_arg_and_pos_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1185 "parsing/parser.mly" +# 1163 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 23961 "parsing/parser.ml" +# 23939 "parsing/parser.ml" in -# 1727 "parsing/parser.mly" +# 1711 "parsing/parser.mly" ( _1 ) -# 23967 "parsing/parser.ml" +# 23945 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -23993,9 +23971,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos_mty_ in let _v : (Parsetree.module_type) = -# 1981 "parsing/parser.mly" +# 1966 "parsing/parser.mly" ( mty ) -# 23999 "parsing/parser.ml" +# 23977 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24026,25 +24004,25 @@ module Tables = struct let _endpos = _endpos_body_ in let _v : (Parsetree.module_type) = let _1 = let _1 = -# 1984 "parsing/parser.mly" +# 1969 "parsing/parser.mly" ( let (_, arg) = arg_and_pos in Pmty_functor(arg, body) ) -# 24033 "parsing/parser.ml" +# 24011 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_body_, _startpos_arg_and_pos_) in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1187 "parsing/parser.mly" +# 1165 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) -# 24042 "parsing/parser.ml" +# 24020 "parsing/parser.ml" in -# 1987 "parsing/parser.mly" +# 1972 "parsing/parser.mly" ( _1 ) -# 24048 "parsing/parser.ml" +# 24026 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24090,18 +24068,18 @@ module Tables = struct let _v : (Parsetree.module_expr) = let attrs = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 24096 "parsing/parser.ml" +# 24074 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1556 "parsing/parser.mly" +# 1534 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_structure s) ) -# 24105 "parsing/parser.ml" +# 24083 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24147,17 +24125,17 @@ module Tables = struct let _v : (Parsetree.module_expr) = let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 24153 "parsing/parser.ml" +# 24131 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1558 "parsing/parser.mly" +# 1536 "parsing/parser.mly" ( unclosed "struct" _loc__1_ "end" _loc__4_ ) -# 24161 "parsing/parser.ml" +# 24139 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24210,30 +24188,30 @@ module Tables = struct let _v : (Parsetree.module_expr) = let args = let _1 = _1_inlined2 in -# 1522 "parsing/parser.mly" +# 1500 "parsing/parser.mly" ( _1 ) -# 24216 "parsing/parser.ml" +# 24194 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 24224 "parsing/parser.ml" +# 24202 "parsing/parser.ml" in let _endpos = _endpos_me_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1560 "parsing/parser.mly" +# 1538 "parsing/parser.mly" ( wrap_mod_attrs ~loc:_sloc attrs ( List.fold_left (fun acc (startpos, arg) -> mkmod ~loc:(startpos, _endpos) (Pmod_functor (arg, acc)) ) me args ) ) -# 24237 "parsing/parser.ml" +# 24215 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24256,9 +24234,9 @@ module Tables = struct let _startpos = _startpos_me_ in let _endpos = _endpos_me_ in let _v : (Parsetree.module_expr) = -# 1566 "parsing/parser.mly" +# 1544 "parsing/parser.mly" ( me ) -# 24262 "parsing/parser.ml" +# 24240 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24288,9 +24266,9 @@ module Tables = struct let _startpos = _startpos_me_ in let _endpos = _endpos_attr_ in let _v : (Parsetree.module_expr) = -# 1568 "parsing/parser.mly" +# 1546 "parsing/parser.mly" ( Mod.attr me attr ) -# 24294 "parsing/parser.ml" +# 24272 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24319,30 +24297,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 24325 "parsing/parser.ml" +# 24303 "parsing/parser.ml" in -# 1572 "parsing/parser.mly" +# 1550 "parsing/parser.mly" ( Pmod_ident x ) -# 24331 "parsing/parser.ml" +# 24309 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1185 "parsing/parser.mly" +# 1163 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 24340 "parsing/parser.ml" +# 24318 "parsing/parser.ml" in -# 1584 "parsing/parser.mly" +# 1562 "parsing/parser.mly" ( _1 ) -# 24346 "parsing/parser.ml" +# 24324 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24373,24 +24351,24 @@ module Tables = struct let _endpos = _endpos_me2_ in let _v : (Parsetree.module_expr) = let _1 = let _1 = -# 1575 "parsing/parser.mly" +# 1553 "parsing/parser.mly" ( Pmod_apply(me1, me2) ) -# 24379 "parsing/parser.ml" +# 24357 "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 -# 1185 "parsing/parser.mly" +# 1163 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 24388 "parsing/parser.ml" +# 24366 "parsing/parser.ml" in -# 1584 "parsing/parser.mly" +# 1562 "parsing/parser.mly" ( _1 ) -# 24394 "parsing/parser.ml" +# 24372 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24432,10 +24410,10 @@ module Tables = struct let _symbolstartpos = _startpos_me1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1578 "parsing/parser.mly" +# 1556 "parsing/parser.mly" ( (* TODO review mkmod location *) Pmod_apply(me1, mkmod ~loc:_sloc (Pmod_structure [])) ) -# 24439 "parsing/parser.ml" +# 24417 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__3_, _startpos_me1_) in @@ -24443,15 +24421,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1185 "parsing/parser.mly" +# 1163 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 24449 "parsing/parser.ml" +# 24427 "parsing/parser.ml" in -# 1584 "parsing/parser.mly" +# 1562 "parsing/parser.mly" ( _1 ) -# 24455 "parsing/parser.ml" +# 24433 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24475,24 +24453,24 @@ module Tables = struct let _endpos = _endpos_ex_ in let _v : (Parsetree.module_expr) = let _1 = let _1 = -# 1582 "parsing/parser.mly" +# 1560 "parsing/parser.mly" ( Pmod_extension ex ) -# 24481 "parsing/parser.ml" +# 24459 "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 -# 1185 "parsing/parser.mly" +# 1163 "parsing/parser.mly" ( mkmod ~loc:_sloc _1 ) -# 24490 "parsing/parser.ml" +# 24468 "parsing/parser.ml" in -# 1584 "parsing/parser.mly" +# 1562 "parsing/parser.mly" ( _1 ) -# 24496 "parsing/parser.ml" +# 24474 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24511,17 +24489,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let x : ( -# 1009 "parsing/parser.mly" +# 987 "parsing/parser.mly" (string) -# 24517 "parsing/parser.ml" +# 24495 "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) = -# 1539 "parsing/parser.mly" +# 1517 "parsing/parser.mly" ( Some x ) -# 24525 "parsing/parser.ml" +# 24503 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24544,9 +24522,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string option) = -# 1542 "parsing/parser.mly" +# 1520 "parsing/parser.mly" ( None ) -# 24550 "parsing/parser.ml" +# 24528 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24604,9 +24582,9 @@ module Tables = struct let _1_inlined3 : (Longident.t) = Obj.magic _1_inlined3 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( -# 1009 "parsing/parser.mly" +# 987 "parsing/parser.mly" (string) -# 24610 "parsing/parser.ml" +# 24588 "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 @@ -24617,9 +24595,9 @@ module Tables = struct let _v : (Parsetree.module_substitution * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined4 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 24623 "parsing/parser.ml" +# 24601 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in @@ -24629,9 +24607,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 24635 "parsing/parser.ml" +# 24613 "parsing/parser.ml" in let uid = @@ -24640,31 +24618,31 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 24646 "parsing/parser.ml" +# 24624 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 24654 "parsing/parser.ml" +# 24632 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2017 "parsing/parser.mly" +# 2002 "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 ) -# 24668 "parsing/parser.ml" +# 24646 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24715,9 +24693,9 @@ module Tables = struct let _6 : unit = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( -# 1009 "parsing/parser.mly" +# 987 "parsing/parser.mly" (string) -# 24721 "parsing/parser.ml" +# 24699 "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 @@ -24731,24 +24709,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 24737 "parsing/parser.ml" +# 24715 "parsing/parser.ml" in let _3 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 24745 "parsing/parser.ml" +# 24723 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in -# 2024 "parsing/parser.mly" +# 2009 "parsing/parser.mly" ( expecting _loc__6_ "module path" ) -# 24752 "parsing/parser.ml" +# 24730 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24794,18 +24772,18 @@ module Tables = struct let _v : (Parsetree.module_type) = let attrs = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 24800 "parsing/parser.ml" +# 24778 "parsing/parser.ml" in let _endpos = _endpos__4_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1864 "parsing/parser.mly" +# 1844 "parsing/parser.mly" ( mkmty ~loc:_sloc ~attrs (Pmty_signature s) ) -# 24809 "parsing/parser.ml" +# 24787 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24851,17 +24829,17 @@ module Tables = struct let _v : (Parsetree.module_type) = let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 24857 "parsing/parser.ml" +# 24835 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1866 "parsing/parser.mly" +# 1846 "parsing/parser.mly" ( unclosed "sig" _loc__1_ "end" _loc__4_ ) -# 24865 "parsing/parser.ml" +# 24843 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24914,30 +24892,30 @@ module Tables = struct let _v : (Parsetree.module_type) = let args = let _1 = _1_inlined2 in -# 1522 "parsing/parser.mly" +# 1500 "parsing/parser.mly" ( _1 ) -# 24920 "parsing/parser.ml" +# 24898 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 24928 "parsing/parser.ml" +# 24906 "parsing/parser.ml" in let _endpos = _endpos_mty_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1870 "parsing/parser.mly" +# 1850 "parsing/parser.mly" ( wrap_mty_attrs ~loc:_sloc attrs ( List.fold_left (fun acc (startpos, arg) -> mkmty ~loc:(startpos, _endpos) (Pmty_functor (arg, acc)) ) mty args ) ) -# 24941 "parsing/parser.ml" +# 24919 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -24990,18 +24968,18 @@ module Tables = struct let _v : (Parsetree.module_type) = let _4 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 24996 "parsing/parser.ml" +# 24974 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1876 "parsing/parser.mly" +# 1856 "parsing/parser.mly" ( mkmty ~loc:_sloc ~attrs:_4 (Pmty_typeof _5) ) -# 25005 "parsing/parser.ml" +# 24983 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25038,9 +25016,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.module_type) = -# 1878 "parsing/parser.mly" +# 1858 "parsing/parser.mly" ( _2 ) -# 25044 "parsing/parser.ml" +# 25022 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25079,9 +25057,9 @@ module Tables = struct let _v : (Parsetree.module_type) = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1880 "parsing/parser.mly" +# 1860 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 25085 "parsing/parser.ml" +# 25063 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25111,9 +25089,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.module_type) = -# 1882 "parsing/parser.mly" +# 1862 "parsing/parser.mly" ( Mty.attr _1 _2 ) -# 25117 "parsing/parser.ml" +# 25095 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25142,30 +25120,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 25148 "parsing/parser.ml" +# 25126 "parsing/parser.ml" in -# 1885 "parsing/parser.mly" +# 1865 "parsing/parser.mly" ( Pmty_ident _1 ) -# 25154 "parsing/parser.ml" +# 25132 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1187 "parsing/parser.mly" +# 1165 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) -# 25163 "parsing/parser.ml" +# 25141 "parsing/parser.ml" in -# 1896 "parsing/parser.mly" +# 1876 "parsing/parser.mly" ( _1 ) -# 25169 "parsing/parser.ml" +# 25147 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25203,24 +25181,24 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.module_type) = let _1 = let _1 = -# 1888 "parsing/parser.mly" +# 1868 "parsing/parser.mly" ( Pmty_functor(Named (mknoloc None, _1), _3) ) -# 25209 "parsing/parser.ml" +# 25187 "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 -# 1187 "parsing/parser.mly" +# 1165 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) -# 25218 "parsing/parser.ml" +# 25196 "parsing/parser.ml" in -# 1896 "parsing/parser.mly" +# 1876 "parsing/parser.mly" ( _1 ) -# 25224 "parsing/parser.ml" +# 25202 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25262,18 +25240,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 25266 "parsing/parser.ml" +# 25244 "parsing/parser.ml" in -# 1276 "parsing/parser.mly" +# 1254 "parsing/parser.mly" ( xs ) -# 25271 "parsing/parser.ml" +# 25249 "parsing/parser.ml" in -# 1890 "parsing/parser.mly" +# 1870 "parsing/parser.mly" ( Pmty_with(_1, _3) ) -# 25277 "parsing/parser.ml" +# 25255 "parsing/parser.ml" in let _endpos__1_ = _endpos_xs_ in @@ -25281,15 +25259,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1187 "parsing/parser.mly" +# 1165 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) -# 25287 "parsing/parser.ml" +# 25265 "parsing/parser.ml" in -# 1896 "parsing/parser.mly" +# 1876 "parsing/parser.mly" ( _1 ) -# 25293 "parsing/parser.ml" +# 25271 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25313,23 +25291,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.module_type) = let _1 = let _1 = -# 1894 "parsing/parser.mly" +# 1874 "parsing/parser.mly" ( Pmty_extension _1 ) -# 25319 "parsing/parser.ml" +# 25297 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1187 "parsing/parser.mly" +# 1165 "parsing/parser.mly" ( mkmty ~loc:_sloc _1 ) -# 25327 "parsing/parser.ml" +# 25305 "parsing/parser.ml" in -# 1896 "parsing/parser.mly" +# 1876 "parsing/parser.mly" ( _1 ) -# 25333 "parsing/parser.ml" +# 25311 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25396,9 +25374,9 @@ module Tables = struct let _v : (Parsetree.module_type_declaration * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 25402 "parsing/parser.ml" +# 25380 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -25408,31 +25386,31 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 25414 "parsing/parser.ml" +# 25392 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 25422 "parsing/parser.ml" +# 25400 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1810 "parsing/parser.mly" +# 1790 "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 ) -# 25436 "parsing/parser.ml" +# 25414 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25506,9 +25484,9 @@ module Tables = struct let _v : (Parsetree.module_type_declaration * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 25512 "parsing/parser.ml" +# 25490 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -25518,31 +25496,31 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 25524 "parsing/parser.ml" +# 25502 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 25532 "parsing/parser.ml" +# 25510 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2073 "parsing/parser.mly" +# 2058 "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 ) -# 25546 "parsing/parser.ml" +# 25524 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25565,9 +25543,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4157 "parsing/parser.mly" +# 4138 "parsing/parser.mly" ( _1 ) -# 25571 "parsing/parser.ml" +# 25549 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25583,9 +25561,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.mutable_flag) = -# 4238 "parsing/parser.mly" +# 4219 "parsing/parser.mly" ( Immutable ) -# 25589 "parsing/parser.ml" +# 25567 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25608,9 +25586,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag) = -# 4239 "parsing/parser.mly" +# 4220 "parsing/parser.mly" ( Mutable ) -# 25614 "parsing/parser.ml" +# 25592 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25626,9 +25604,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.mutable_flag * Asttypes.global_flag) = -# 4242 "parsing/parser.mly" +# 4223 "parsing/parser.mly" ( Immutable, Nothing ) -# 25632 "parsing/parser.ml" +# 25610 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25651,9 +25629,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag * Asttypes.global_flag) = -# 4243 "parsing/parser.mly" +# 4224 "parsing/parser.mly" ( Mutable, Nothing ) -# 25657 "parsing/parser.ml" +# 25635 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25676,9 +25654,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag * Asttypes.global_flag) = -# 4244 "parsing/parser.mly" +# 4225 "parsing/parser.mly" ( Immutable, Global ) -# 25682 "parsing/parser.ml" +# 25660 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25694,9 +25672,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 4256 "parsing/parser.mly" +# 4237 "parsing/parser.mly" ( Immutable, Concrete ) -# 25700 "parsing/parser.ml" +# 25678 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25719,9 +25697,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 4258 "parsing/parser.mly" +# 4239 "parsing/parser.mly" ( Mutable, Concrete ) -# 25725 "parsing/parser.ml" +# 25703 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25744,9 +25722,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 4260 "parsing/parser.mly" +# 4241 "parsing/parser.mly" ( Immutable, Virtual ) -# 25750 "parsing/parser.ml" +# 25728 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25776,9 +25754,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 4263 "parsing/parser.mly" +# 4244 "parsing/parser.mly" ( Mutable, Virtual ) -# 25782 "parsing/parser.ml" +# 25760 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25808,9 +25786,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = -# 4263 "parsing/parser.mly" +# 4244 "parsing/parser.mly" ( Mutable, Virtual ) -# 25814 "parsing/parser.ml" +# 25792 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25840,9 +25818,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.label) = -# 4209 "parsing/parser.mly" +# 4190 "parsing/parser.mly" ( _2 ) -# 25846 "parsing/parser.ml" +# 25824 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25861,9 +25839,9 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 25867 "parsing/parser.ml" +# 25845 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -25873,15 +25851,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 25879 "parsing/parser.ml" +# 25857 "parsing/parser.ml" in # 221 "" ( [ x ] ) -# 25885 "parsing/parser.ml" +# 25863 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25907,9 +25885,9 @@ module Tables = struct } = _menhir_stack in let xs : (string Asttypes.loc list) = Obj.magic xs in let _1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 25913 "parsing/parser.ml" +# 25891 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -25919,15 +25897,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 25925 "parsing/parser.ml" +# 25903 "parsing/parser.ml" in # 223 "" ( x :: xs ) -# 25931 "parsing/parser.ml" +# 25909 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25946,22 +25924,22 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let s : ( -# 996 "parsing/parser.mly" +# 974 "parsing/parser.mly" (string * Location.t * string option) -# 25952 "parsing/parser.ml" +# 25930 "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 = -# 4205 "parsing/parser.mly" +# 4186 "parsing/parser.mly" ( let body, _, _ = s in body ) -# 25960 "parsing/parser.ml" +# 25938 "parsing/parser.ml" in # 221 "" ( [ x ] ) -# 25965 "parsing/parser.ml" +# 25943 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -25987,22 +25965,22 @@ module Tables = struct } = _menhir_stack in let xs : (string list) = Obj.magic xs in let s : ( -# 996 "parsing/parser.mly" +# 974 "parsing/parser.mly" (string * Location.t * string option) -# 25993 "parsing/parser.ml" +# 25971 "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 = -# 4205 "parsing/parser.mly" +# 4186 "parsing/parser.mly" ( let body, _, _ = s in body ) -# 26001 "parsing/parser.ml" +# 25979 "parsing/parser.ml" in # 223 "" ( x :: xs ) -# 26006 "parsing/parser.ml" +# 25984 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26025,14 +26003,14 @@ module Tables = struct let _startpos = _startpos_ty_ in let _endpos = _endpos_ty_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = -# 4234 "parsing/parser.mly" +# 4215 "parsing/parser.mly" ( Public ) -# 26031 "parsing/parser.ml" +# 26009 "parsing/parser.ml" in -# 3433 "parsing/parser.mly" +# 3414 "parsing/parser.mly" ( (Ptype_abstract, priv, Some ty) ) -# 26036 "parsing/parser.ml" +# 26014 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26062,14 +26040,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos_ty_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = -# 4235 "parsing/parser.mly" +# 4216 "parsing/parser.mly" ( Private ) -# 26068 "parsing/parser.ml" +# 26046 "parsing/parser.ml" in -# 3433 "parsing/parser.mly" +# 3414 "parsing/parser.mly" ( (Ptype_abstract, priv, Some ty) ) -# 26073 "parsing/parser.ml" +# 26051 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26092,26 +26070,26 @@ module Tables = struct let _startpos = _startpos_cs_ in let _endpos = _endpos_cs_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = -# 4234 "parsing/parser.mly" +# 4215 "parsing/parser.mly" ( Public ) -# 26098 "parsing/parser.ml" +# 26076 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 26104 "parsing/parser.ml" +# 26082 "parsing/parser.ml" in -# 3449 "parsing/parser.mly" +# 3430 "parsing/parser.mly" ( _1 ) -# 26109 "parsing/parser.ml" +# 26087 "parsing/parser.ml" in -# 3437 "parsing/parser.mly" +# 3418 "parsing/parser.mly" ( (Ptype_variant cs, priv, oty) ) -# 26115 "parsing/parser.ml" +# 26093 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26141,26 +26119,26 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos_cs_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = -# 4235 "parsing/parser.mly" +# 4216 "parsing/parser.mly" ( Private ) -# 26147 "parsing/parser.ml" +# 26125 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 26153 "parsing/parser.ml" +# 26131 "parsing/parser.ml" in -# 3449 "parsing/parser.mly" +# 3430 "parsing/parser.mly" ( _1 ) -# 26158 "parsing/parser.ml" +# 26136 "parsing/parser.ml" in -# 3437 "parsing/parser.mly" +# 3418 "parsing/parser.mly" ( (Ptype_variant cs, priv, oty) ) -# 26164 "parsing/parser.ml" +# 26142 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26197,33 +26175,33 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_cs_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = -# 4234 "parsing/parser.mly" +# 4215 "parsing/parser.mly" ( Public ) -# 26203 "parsing/parser.ml" +# 26181 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 26210 "parsing/parser.ml" +# 26188 "parsing/parser.ml" in # 126 "" ( Some x ) -# 26215 "parsing/parser.ml" +# 26193 "parsing/parser.ml" in -# 3449 "parsing/parser.mly" +# 3430 "parsing/parser.mly" ( _1 ) -# 26221 "parsing/parser.ml" +# 26199 "parsing/parser.ml" in -# 3437 "parsing/parser.mly" +# 3418 "parsing/parser.mly" ( (Ptype_variant cs, priv, oty) ) -# 26227 "parsing/parser.ml" +# 26205 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26267,33 +26245,33 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_cs_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = -# 4235 "parsing/parser.mly" +# 4216 "parsing/parser.mly" ( Private ) -# 26273 "parsing/parser.ml" +# 26251 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 26280 "parsing/parser.ml" +# 26258 "parsing/parser.ml" in # 126 "" ( Some x ) -# 26285 "parsing/parser.ml" +# 26263 "parsing/parser.ml" in -# 3449 "parsing/parser.mly" +# 3430 "parsing/parser.mly" ( _1 ) -# 26291 "parsing/parser.ml" +# 26269 "parsing/parser.ml" in -# 3437 "parsing/parser.mly" +# 3418 "parsing/parser.mly" ( (Ptype_variant cs, priv, oty) ) -# 26297 "parsing/parser.ml" +# 26275 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26316,26 +26294,26 @@ module Tables = struct let _startpos = _startpos__3_ in let _endpos = _endpos__3_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = -# 4234 "parsing/parser.mly" +# 4215 "parsing/parser.mly" ( Public ) -# 26322 "parsing/parser.ml" +# 26300 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 26328 "parsing/parser.ml" +# 26306 "parsing/parser.ml" in -# 3449 "parsing/parser.mly" +# 3430 "parsing/parser.mly" ( _1 ) -# 26333 "parsing/parser.ml" +# 26311 "parsing/parser.ml" in -# 3441 "parsing/parser.mly" +# 3422 "parsing/parser.mly" ( (Ptype_open, priv, oty) ) -# 26339 "parsing/parser.ml" +# 26317 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26365,26 +26343,26 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = -# 4235 "parsing/parser.mly" +# 4216 "parsing/parser.mly" ( Private ) -# 26371 "parsing/parser.ml" +# 26349 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 26377 "parsing/parser.ml" +# 26355 "parsing/parser.ml" in -# 3449 "parsing/parser.mly" +# 3430 "parsing/parser.mly" ( _1 ) -# 26382 "parsing/parser.ml" +# 26360 "parsing/parser.ml" in -# 3441 "parsing/parser.mly" +# 3422 "parsing/parser.mly" ( (Ptype_open, priv, oty) ) -# 26388 "parsing/parser.ml" +# 26366 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26421,33 +26399,33 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos__3_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = -# 4234 "parsing/parser.mly" +# 4215 "parsing/parser.mly" ( Public ) -# 26427 "parsing/parser.ml" +# 26405 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 26434 "parsing/parser.ml" +# 26412 "parsing/parser.ml" in # 126 "" ( Some x ) -# 26439 "parsing/parser.ml" +# 26417 "parsing/parser.ml" in -# 3449 "parsing/parser.mly" +# 3430 "parsing/parser.mly" ( _1 ) -# 26445 "parsing/parser.ml" +# 26423 "parsing/parser.ml" in -# 3441 "parsing/parser.mly" +# 3422 "parsing/parser.mly" ( (Ptype_open, priv, oty) ) -# 26451 "parsing/parser.ml" +# 26429 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26491,33 +26469,33 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos__3_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = -# 4235 "parsing/parser.mly" +# 4216 "parsing/parser.mly" ( Private ) -# 26497 "parsing/parser.ml" +# 26475 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 26504 "parsing/parser.ml" +# 26482 "parsing/parser.ml" in # 126 "" ( Some x ) -# 26509 "parsing/parser.ml" +# 26487 "parsing/parser.ml" in -# 3449 "parsing/parser.mly" +# 3430 "parsing/parser.mly" ( _1 ) -# 26515 "parsing/parser.ml" +# 26493 "parsing/parser.ml" in -# 3441 "parsing/parser.mly" +# 3422 "parsing/parser.mly" ( (Ptype_open, priv, oty) ) -# 26521 "parsing/parser.ml" +# 26499 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26554,26 +26532,26 @@ module Tables = struct let _startpos = _startpos__3_ in let _endpos = _endpos__5_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = -# 4234 "parsing/parser.mly" +# 4215 "parsing/parser.mly" ( Public ) -# 26560 "parsing/parser.ml" +# 26538 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 26566 "parsing/parser.ml" +# 26544 "parsing/parser.ml" in -# 3449 "parsing/parser.mly" +# 3430 "parsing/parser.mly" ( _1 ) -# 26571 "parsing/parser.ml" +# 26549 "parsing/parser.ml" in -# 3445 "parsing/parser.mly" +# 3426 "parsing/parser.mly" ( (Ptype_record ls, priv, oty) ) -# 26577 "parsing/parser.ml" +# 26555 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26617,26 +26595,26 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = -# 4235 "parsing/parser.mly" +# 4216 "parsing/parser.mly" ( Private ) -# 26623 "parsing/parser.ml" +# 26601 "parsing/parser.ml" in let oty = let _1 = # 124 "" ( None ) -# 26629 "parsing/parser.ml" +# 26607 "parsing/parser.ml" in -# 3449 "parsing/parser.mly" +# 3430 "parsing/parser.mly" ( _1 ) -# 26634 "parsing/parser.ml" +# 26612 "parsing/parser.ml" in -# 3445 "parsing/parser.mly" +# 3426 "parsing/parser.mly" ( (Ptype_record ls, priv, oty) ) -# 26640 "parsing/parser.ml" +# 26618 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26687,33 +26665,33 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos__5_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = -# 4234 "parsing/parser.mly" +# 4215 "parsing/parser.mly" ( Public ) -# 26693 "parsing/parser.ml" +# 26671 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 26700 "parsing/parser.ml" +# 26678 "parsing/parser.ml" in # 126 "" ( Some x ) -# 26705 "parsing/parser.ml" +# 26683 "parsing/parser.ml" in -# 3449 "parsing/parser.mly" +# 3430 "parsing/parser.mly" ( _1 ) -# 26711 "parsing/parser.ml" +# 26689 "parsing/parser.ml" in -# 3445 "parsing/parser.mly" +# 3426 "parsing/parser.mly" ( (Ptype_record ls, priv, oty) ) -# 26717 "parsing/parser.ml" +# 26695 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26771,33 +26749,33 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos__5_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = -# 4235 "parsing/parser.mly" +# 4216 "parsing/parser.mly" ( Private ) -# 26777 "parsing/parser.ml" +# 26755 "parsing/parser.ml" in let oty = let _1 = let x = # 191 "" ( x ) -# 26784 "parsing/parser.ml" +# 26762 "parsing/parser.ml" in # 126 "" ( Some x ) -# 26789 "parsing/parser.ml" +# 26767 "parsing/parser.ml" in -# 3449 "parsing/parser.mly" +# 3430 "parsing/parser.mly" ( _1 ) -# 26795 "parsing/parser.ml" +# 26773 "parsing/parser.ml" in -# 3445 "parsing/parser.mly" +# 3426 "parsing/parser.mly" ( (Ptype_record ls, priv, oty) ) -# 26801 "parsing/parser.ml" +# 26779 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26850,37 +26828,37 @@ module Tables = struct let _v : (Parsetree.open_declaration * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined2 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 26856 "parsing/parser.ml" +# 26834 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined2_ in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 26865 "parsing/parser.ml" +# 26843 "parsing/parser.ml" in let override = -# 4290 "parsing/parser.mly" +# 4271 "parsing/parser.mly" ( Fresh ) -# 26871 "parsing/parser.ml" +# 26849 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1829 "parsing/parser.mly" +# 1809 "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 ) -# 26884 "parsing/parser.ml" +# 26862 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -26940,37 +26918,37 @@ module Tables = struct let _v : (Parsetree.open_declaration * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 26946 "parsing/parser.ml" +# 26924 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let attrs1 = let _1 = _1_inlined2 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 26955 "parsing/parser.ml" +# 26933 "parsing/parser.ml" in let override = -# 4291 "parsing/parser.mly" +# 4272 "parsing/parser.mly" ( Override ) -# 26961 "parsing/parser.ml" +# 26939 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1829 "parsing/parser.mly" +# 1809 "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 ) -# 26974 "parsing/parser.ml" +# 26952 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27023,9 +27001,9 @@ module Tables = struct let _v : (Parsetree.open_description * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 27029 "parsing/parser.ml" +# 27007 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -27035,36 +27013,36 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 27041 "parsing/parser.ml" +# 27019 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 27049 "parsing/parser.ml" +# 27027 "parsing/parser.ml" in let override = -# 4290 "parsing/parser.mly" +# 4271 "parsing/parser.mly" ( Fresh ) -# 27055 "parsing/parser.ml" +# 27033 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1844 "parsing/parser.mly" +# 1824 "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 ) -# 27068 "parsing/parser.ml" +# 27046 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27124,9 +27102,9 @@ module Tables = struct let _v : (Parsetree.open_description * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined4 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 27130 "parsing/parser.ml" +# 27108 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in @@ -27136,36 +27114,36 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 27142 "parsing/parser.ml" +# 27120 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined2 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 27150 "parsing/parser.ml" +# 27128 "parsing/parser.ml" in let override = -# 4291 "parsing/parser.mly" +# 4272 "parsing/parser.mly" ( Override ) -# 27156 "parsing/parser.ml" +# 27134 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1844 "parsing/parser.mly" +# 1824 "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 ) -# 27169 "parsing/parser.ml" +# 27147 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27184,17 +27162,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 981 "parsing/parser.mly" +# 959 "parsing/parser.mly" (string) -# 27190 "parsing/parser.ml" +# 27168 "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) = -# 4073 "parsing/parser.mly" +# 4054 "parsing/parser.mly" ( _1 ) -# 27198 "parsing/parser.ml" +# 27176 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27213,17 +27191,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 936 "parsing/parser.mly" +# 914 "parsing/parser.mly" (string) -# 27219 "parsing/parser.ml" +# 27197 "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) = -# 4074 "parsing/parser.mly" +# 4055 "parsing/parser.mly" ( _1 ) -# 27227 "parsing/parser.ml" +# 27205 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27242,17 +27220,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 937 "parsing/parser.mly" +# 915 "parsing/parser.mly" (string) -# 27248 "parsing/parser.ml" +# 27226 "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) = -# 4075 "parsing/parser.mly" +# 4056 "parsing/parser.mly" ( _1 ) -# 27256 "parsing/parser.ml" +# 27234 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27292,17 +27270,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 935 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 27298 "parsing/parser.ml" +# 27276 "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) = -# 4076 "parsing/parser.mly" +# 4057 "parsing/parser.mly" ( "."^ _1 ^"(" ^ _3 ^ ")" ) -# 27306 "parsing/parser.ml" +# 27284 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27349,17 +27327,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 935 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 27355 "parsing/parser.ml" +# 27333 "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) = -# 4077 "parsing/parser.mly" +# 4058 "parsing/parser.mly" ( "."^ _1 ^ "(" ^ _3 ^ ")<-" ) -# 27363 "parsing/parser.ml" +# 27341 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27399,17 +27377,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 935 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 27405 "parsing/parser.ml" +# 27383 "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) = -# 4078 "parsing/parser.mly" +# 4059 "parsing/parser.mly" ( "."^ _1 ^"[" ^ _3 ^ "]" ) -# 27413 "parsing/parser.ml" +# 27391 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27456,17 +27434,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 935 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 27462 "parsing/parser.ml" +# 27440 "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) = -# 4079 "parsing/parser.mly" +# 4060 "parsing/parser.mly" ( "."^ _1 ^ "[" ^ _3 ^ "]<-" ) -# 27470 "parsing/parser.ml" +# 27448 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27506,17 +27484,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 935 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 27512 "parsing/parser.ml" +# 27490 "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) = -# 4080 "parsing/parser.mly" +# 4061 "parsing/parser.mly" ( "."^ _1 ^"{" ^ _3 ^ "}" ) -# 27520 "parsing/parser.ml" +# 27498 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27563,17 +27541,17 @@ module Tables = struct let _3 : (string) = Obj.magic _3 in let _2 : unit = Obj.magic _2 in let _1 : ( -# 935 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 27569 "parsing/parser.ml" +# 27547 "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) = -# 4081 "parsing/parser.mly" +# 4062 "parsing/parser.mly" ( "."^ _1 ^ "{" ^ _3 ^ "}<-" ) -# 27577 "parsing/parser.ml" +# 27555 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27592,17 +27570,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 993 "parsing/parser.mly" +# 971 "parsing/parser.mly" (string) -# 27598 "parsing/parser.ml" +# 27576 "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) = -# 4082 "parsing/parser.mly" +# 4063 "parsing/parser.mly" ( _1 ) -# 27606 "parsing/parser.ml" +# 27584 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27625,9 +27603,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 4083 "parsing/parser.mly" +# 4064 "parsing/parser.mly" ( "!" ) -# 27631 "parsing/parser.ml" +# 27609 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27646,22 +27624,22 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( -# 930 "parsing/parser.mly" +# 908 "parsing/parser.mly" (string) -# 27652 "parsing/parser.ml" +# 27630 "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 = -# 4087 "parsing/parser.mly" +# 4068 "parsing/parser.mly" ( op ) -# 27660 "parsing/parser.ml" +# 27638 "parsing/parser.ml" in -# 4084 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( _1 ) -# 27665 "parsing/parser.ml" +# 27643 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27680,22 +27658,22 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( -# 931 "parsing/parser.mly" +# 909 "parsing/parser.mly" (string) -# 27686 "parsing/parser.ml" +# 27664 "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 = -# 4088 "parsing/parser.mly" +# 4069 "parsing/parser.mly" ( op ) -# 27694 "parsing/parser.ml" +# 27672 "parsing/parser.ml" in -# 4084 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( _1 ) -# 27699 "parsing/parser.ml" +# 27677 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27714,22 +27692,22 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( -# 932 "parsing/parser.mly" +# 910 "parsing/parser.mly" (string) -# 27720 "parsing/parser.ml" +# 27698 "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 = -# 4089 "parsing/parser.mly" +# 4070 "parsing/parser.mly" ( op ) -# 27728 "parsing/parser.ml" +# 27706 "parsing/parser.ml" in -# 4084 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( _1 ) -# 27733 "parsing/parser.ml" +# 27711 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27748,22 +27726,22 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( -# 933 "parsing/parser.mly" +# 911 "parsing/parser.mly" (string) -# 27754 "parsing/parser.ml" +# 27732 "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 = -# 4090 "parsing/parser.mly" +# 4071 "parsing/parser.mly" ( op ) -# 27762 "parsing/parser.ml" +# 27740 "parsing/parser.ml" in -# 4084 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( _1 ) -# 27767 "parsing/parser.ml" +# 27745 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27782,22 +27760,22 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let op : ( -# 934 "parsing/parser.mly" +# 912 "parsing/parser.mly" (string) -# 27788 "parsing/parser.ml" +# 27766 "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 = -# 4091 "parsing/parser.mly" +# 4072 "parsing/parser.mly" ( op ) -# 27796 "parsing/parser.ml" +# 27774 "parsing/parser.ml" in -# 4084 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( _1 ) -# 27801 "parsing/parser.ml" +# 27779 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27820,14 +27798,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4092 "parsing/parser.mly" +# 4073 "parsing/parser.mly" ("+") -# 27826 "parsing/parser.ml" +# 27804 "parsing/parser.ml" in -# 4084 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( _1 ) -# 27831 "parsing/parser.ml" +# 27809 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27850,14 +27828,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4093 "parsing/parser.mly" +# 4074 "parsing/parser.mly" ("+.") -# 27856 "parsing/parser.ml" +# 27834 "parsing/parser.ml" in -# 4084 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( _1 ) -# 27861 "parsing/parser.ml" +# 27839 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27880,14 +27858,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4094 "parsing/parser.mly" +# 4075 "parsing/parser.mly" ("+=") -# 27886 "parsing/parser.ml" +# 27864 "parsing/parser.ml" in -# 4084 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( _1 ) -# 27891 "parsing/parser.ml" +# 27869 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27910,14 +27888,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4095 "parsing/parser.mly" +# 4076 "parsing/parser.mly" ("-") -# 27916 "parsing/parser.ml" +# 27894 "parsing/parser.ml" in -# 4084 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( _1 ) -# 27921 "parsing/parser.ml" +# 27899 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27940,14 +27918,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4096 "parsing/parser.mly" +# 4077 "parsing/parser.mly" ("-.") -# 27946 "parsing/parser.ml" +# 27924 "parsing/parser.ml" in -# 4084 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( _1 ) -# 27951 "parsing/parser.ml" +# 27929 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -27970,14 +27948,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4097 "parsing/parser.mly" +# 4078 "parsing/parser.mly" ("*") -# 27976 "parsing/parser.ml" +# 27954 "parsing/parser.ml" in -# 4084 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( _1 ) -# 27981 "parsing/parser.ml" +# 27959 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28000,14 +27978,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4098 "parsing/parser.mly" +# 4079 "parsing/parser.mly" ("%") -# 28006 "parsing/parser.ml" +# 27984 "parsing/parser.ml" in -# 4084 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( _1 ) -# 28011 "parsing/parser.ml" +# 27989 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28030,14 +28008,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4099 "parsing/parser.mly" +# 4080 "parsing/parser.mly" ("=") -# 28036 "parsing/parser.ml" +# 28014 "parsing/parser.ml" in -# 4084 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( _1 ) -# 28041 "parsing/parser.ml" +# 28019 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28060,14 +28038,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4100 "parsing/parser.mly" +# 4081 "parsing/parser.mly" ("<") -# 28066 "parsing/parser.ml" +# 28044 "parsing/parser.ml" in -# 4084 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( _1 ) -# 28071 "parsing/parser.ml" +# 28049 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28090,14 +28068,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4101 "parsing/parser.mly" +# 4082 "parsing/parser.mly" (">") -# 28096 "parsing/parser.ml" +# 28074 "parsing/parser.ml" in -# 4084 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( _1 ) -# 28101 "parsing/parser.ml" +# 28079 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28120,14 +28098,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4102 "parsing/parser.mly" +# 4083 "parsing/parser.mly" ("or") -# 28126 "parsing/parser.ml" +# 28104 "parsing/parser.ml" in -# 4084 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( _1 ) -# 28131 "parsing/parser.ml" +# 28109 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28150,14 +28128,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4103 "parsing/parser.mly" +# 4084 "parsing/parser.mly" ("||") -# 28156 "parsing/parser.ml" +# 28134 "parsing/parser.ml" in -# 4084 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( _1 ) -# 28161 "parsing/parser.ml" +# 28139 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28180,14 +28158,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4104 "parsing/parser.mly" +# 4085 "parsing/parser.mly" ("&") -# 28186 "parsing/parser.ml" +# 28164 "parsing/parser.ml" in -# 4084 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( _1 ) -# 28191 "parsing/parser.ml" +# 28169 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28210,14 +28188,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4105 "parsing/parser.mly" +# 4086 "parsing/parser.mly" ("&&") -# 28216 "parsing/parser.ml" +# 28194 "parsing/parser.ml" in -# 4084 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( _1 ) -# 28221 "parsing/parser.ml" +# 28199 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28240,14 +28218,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = let _1 = -# 4106 "parsing/parser.mly" +# 4087 "parsing/parser.mly" (":=") -# 28246 "parsing/parser.ml" +# 28224 "parsing/parser.ml" in -# 4084 "parsing/parser.mly" +# 4065 "parsing/parser.mly" ( _1 ) -# 28251 "parsing/parser.ml" +# 28229 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28270,9 +28248,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (bool) = -# 3975 "parsing/parser.mly" +# 3956 "parsing/parser.mly" ( true ) -# 28276 "parsing/parser.ml" +# 28254 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28288,9 +28266,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (bool) = -# 3976 "parsing/parser.mly" +# 3957 "parsing/parser.mly" ( false ) -# 28294 "parsing/parser.ml" +# 28272 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28308,7 +28286,7 @@ module Tables = struct let _v : (unit option) = # 114 "" ( None ) -# 28312 "parsing/parser.ml" +# 28290 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28333,7 +28311,7 @@ module Tables = struct let _v : (unit option) = # 116 "" ( Some x ) -# 28337 "parsing/parser.ml" +# 28315 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28351,7 +28329,7 @@ module Tables = struct let _v : (unit option) = # 114 "" ( None ) -# 28355 "parsing/parser.ml" +# 28333 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28376,7 +28354,7 @@ module Tables = struct let _v : (unit option) = # 116 "" ( Some x ) -# 28380 "parsing/parser.ml" +# 28358 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28394,7 +28372,7 @@ module Tables = struct let _v : (string Asttypes.loc option) = # 114 "" ( None ) -# 28398 "parsing/parser.ml" +# 28376 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28419,9 +28397,9 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 28425 "parsing/parser.ml" +# 28403 "parsing/parser.ml" ) = Obj.magic _1_inlined1 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -28434,21 +28412,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 28440 "parsing/parser.ml" +# 28418 "parsing/parser.ml" in # 183 "" ( x ) -# 28446 "parsing/parser.ml" +# 28424 "parsing/parser.ml" in # 116 "" ( Some x ) -# 28452 "parsing/parser.ml" +# 28430 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28466,7 +28444,7 @@ module Tables = struct let _v : (Parsetree.core_type option) = # 114 "" ( None ) -# 28470 "parsing/parser.ml" +# 28448 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28498,12 +28476,12 @@ module Tables = struct let _v : (Parsetree.core_type option) = let x = # 183 "" ( x ) -# 28502 "parsing/parser.ml" +# 28480 "parsing/parser.ml" in # 116 "" ( Some x ) -# 28507 "parsing/parser.ml" +# 28485 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28521,7 +28499,7 @@ module Tables = struct let _v : (Parsetree.expression option) = # 114 "" ( None ) -# 28525 "parsing/parser.ml" +# 28503 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28553,12 +28531,12 @@ module Tables = struct let _v : (Parsetree.expression option) = let x = # 183 "" ( x ) -# 28557 "parsing/parser.ml" +# 28535 "parsing/parser.ml" in # 116 "" ( Some x ) -# 28562 "parsing/parser.ml" +# 28540 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28576,7 +28554,7 @@ module Tables = struct let _v : (Parsetree.module_type option) = # 114 "" ( None ) -# 28580 "parsing/parser.ml" +# 28558 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28608,12 +28586,12 @@ module Tables = struct let _v : (Parsetree.module_type option) = let x = # 183 "" ( x ) -# 28612 "parsing/parser.ml" +# 28590 "parsing/parser.ml" in # 116 "" ( Some x ) -# 28617 "parsing/parser.ml" +# 28595 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28631,7 +28609,7 @@ module Tables = struct let _v : (Parsetree.pattern option) = # 114 "" ( None ) -# 28635 "parsing/parser.ml" +# 28613 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28663,12 +28641,12 @@ module Tables = struct let _v : (Parsetree.pattern option) = let x = # 183 "" ( x ) -# 28667 "parsing/parser.ml" +# 28645 "parsing/parser.ml" in # 116 "" ( Some x ) -# 28672 "parsing/parser.ml" +# 28650 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28686,7 +28664,7 @@ module Tables = struct let _v : (Parsetree.expression option) = # 114 "" ( None ) -# 28690 "parsing/parser.ml" +# 28668 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28718,12 +28696,12 @@ module Tables = struct let _v : (Parsetree.expression option) = let x = # 183 "" ( x ) -# 28722 "parsing/parser.ml" +# 28700 "parsing/parser.ml" in # 116 "" ( Some x ) -# 28727 "parsing/parser.ml" +# 28705 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28741,7 +28719,7 @@ module Tables = struct let _v : ((Parsetree.core_type option * Parsetree.core_type option) option) = # 114 "" ( None ) -# 28745 "parsing/parser.ml" +# 28723 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28766,7 +28744,7 @@ module Tables = struct let _v : ((Parsetree.core_type option * Parsetree.core_type option) option) = # 116 "" ( Some x ) -# 28770 "parsing/parser.ml" +# 28748 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28785,17 +28763,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 974 "parsing/parser.mly" +# 952 "parsing/parser.mly" (string) -# 28791 "parsing/parser.ml" +# 28769 "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) = -# 4302 "parsing/parser.mly" +# 4283 "parsing/parser.mly" ( _1 ) -# 28799 "parsing/parser.ml" +# 28777 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28827,18 +28805,18 @@ module Tables = struct } = _menhir_stack in let _3 : unit = Obj.magic _3 in let _2 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 28833 "parsing/parser.ml" +# 28811 "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) = -# 4303 "parsing/parser.mly" +# 4284 "parsing/parser.mly" ( _2 ) -# 28842 "parsing/parser.ml" +# 28820 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28892,9 +28870,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1593 "parsing/parser.mly" +# 1571 "parsing/parser.mly" ( mkmod ~loc:_sloc (Pmod_constraint(me, mty)) ) -# 28898 "parsing/parser.ml" +# 28876 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28947,9 +28925,9 @@ module Tables = struct let _v : (Parsetree.module_expr) = let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1595 "parsing/parser.mly" +# 1573 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) -# 28953 "parsing/parser.ml" +# 28931 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -28986,9 +28964,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.module_expr) = -# 1598 "parsing/parser.mly" +# 1576 "parsing/parser.mly" ( me (* TODO consider reloc *) ) -# 28992 "parsing/parser.ml" +# 28970 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29027,9 +29005,9 @@ module Tables = struct let _v : (Parsetree.module_expr) = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1600 "parsing/parser.mly" +# 1578 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 29033 "parsing/parser.ml" +# 29011 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29080,25 +29058,25 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.module_expr) = let e = -# 1617 "parsing/parser.mly" +# 1595 "parsing/parser.mly" ( e ) -# 29086 "parsing/parser.ml" +# 29064 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 29093 "parsing/parser.ml" +# 29071 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1604 "parsing/parser.mly" +# 1582 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 29102 "parsing/parser.ml" +# 29080 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29169,11 +29147,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3950 "parsing/parser.mly" +# 3931 "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 ) -# 29177 "parsing/parser.ml" +# 29155 "parsing/parser.ml" in let _endpos_ty_ = _endpos__1_ in @@ -29181,26 +29159,26 @@ module Tables = struct let _startpos = _startpos_e_ in let _loc = (_startpos, _endpos) in -# 1619 "parsing/parser.mly" +# 1597 "parsing/parser.mly" ( ghexp ~loc:_loc (Pexp_constraint (e, ty)) ) -# 29187 "parsing/parser.ml" +# 29165 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 29195 "parsing/parser.ml" +# 29173 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1604 "parsing/parser.mly" +# 1582 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 29204 "parsing/parser.ml" +# 29182 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29286,11 +29264,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3950 "parsing/parser.mly" +# 3931 "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 ) -# 29294 "parsing/parser.ml" +# 29272 "parsing/parser.ml" in let _endpos_ty2_ = _endpos__1_inlined1_ in @@ -29299,37 +29277,37 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3950 "parsing/parser.mly" +# 3931 "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 ) -# 29307 "parsing/parser.ml" +# 29285 "parsing/parser.ml" in let _endpos = _endpos_ty2_ in let _startpos = _startpos_e_ in let _loc = (_startpos, _endpos) in -# 1621 "parsing/parser.mly" +# 1599 "parsing/parser.mly" ( ghexp ~loc:_loc (Pexp_coerce (e, Some ty1, ty2)) ) -# 29316 "parsing/parser.ml" +# 29294 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 29324 "parsing/parser.ml" +# 29302 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1604 "parsing/parser.mly" +# 1582 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 29333 "parsing/parser.ml" +# 29311 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29400,11 +29378,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3950 "parsing/parser.mly" +# 3931 "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 ) -# 29408 "parsing/parser.ml" +# 29386 "parsing/parser.ml" in let _endpos_ty2_ = _endpos__1_ in @@ -29412,26 +29390,26 @@ module Tables = struct let _startpos = _startpos_e_ in let _loc = (_startpos, _endpos) in -# 1623 "parsing/parser.mly" +# 1601 "parsing/parser.mly" ( ghexp ~loc:_loc (Pexp_coerce (e, None, ty2)) ) -# 29418 "parsing/parser.ml" +# 29396 "parsing/parser.ml" in let attrs = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 29426 "parsing/parser.ml" +# 29404 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1604 "parsing/parser.mly" +# 1582 "parsing/parser.mly" ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) ) -# 29435 "parsing/parser.ml" +# 29413 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29491,17 +29469,17 @@ module Tables = struct let _v : (Parsetree.module_expr) = let _3 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 29497 "parsing/parser.ml" +# 29475 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1606 "parsing/parser.mly" +# 1584 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__6_ ) -# 29505 "parsing/parser.ml" +# 29483 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29561,17 +29539,17 @@ module Tables = struct let _v : (Parsetree.module_expr) = let _3 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 29567 "parsing/parser.ml" +# 29545 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1608 "parsing/parser.mly" +# 1586 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__6_ ) -# 29575 "parsing/parser.ml" +# 29553 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29624,17 +29602,17 @@ module Tables = struct let _v : (Parsetree.module_expr) = let _3 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 29630 "parsing/parser.ml" +# 29608 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1610 "parsing/parser.mly" +# 1588 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) -# 29638 "parsing/parser.ml" +# 29616 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29657,9 +29635,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) = -# 3477 "parsing/parser.mly" +# 3458 "parsing/parser.mly" ( _1 ) -# 29663 "parsing/parser.ml" +# 29641 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29703,9 +29681,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) = -# 3479 "parsing/parser.mly" +# 3460 "parsing/parser.mly" ( {_2 with ptyp_attributes = [_4]}, _1 ) -# 29709 "parsing/parser.ml" +# 29687 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29735,9 +29713,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1512 "parsing/parser.mly" +# 1490 "parsing/parser.mly" ( _1 ) -# 29741 "parsing/parser.ml" +# 29719 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29767,9 +29745,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1497 "parsing/parser.mly" +# 1475 "parsing/parser.mly" ( _1 ) -# 29773 "parsing/parser.ml" +# 29751 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29799,9 +29777,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type) = -# 1472 "parsing/parser.mly" +# 1450 "parsing/parser.mly" ( _1 ) -# 29805 "parsing/parser.ml" +# 29783 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29831,9 +29809,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 1477 "parsing/parser.mly" +# 1455 "parsing/parser.mly" ( _1 ) -# 29837 "parsing/parser.ml" +# 29815 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29863,9 +29841,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1502 "parsing/parser.mly" +# 1480 "parsing/parser.mly" ( _1 ) -# 29869 "parsing/parser.ml" +# 29847 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29895,9 +29873,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1507 "parsing/parser.mly" +# 1485 "parsing/parser.mly" ( _1 ) -# 29901 "parsing/parser.ml" +# 29879 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29927,9 +29905,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.module_expr) = -# 1467 "parsing/parser.mly" +# 1445 "parsing/parser.mly" ( _1 ) -# 29933 "parsing/parser.ml" +# 29911 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29959,9 +29937,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.module_type) = -# 1462 "parsing/parser.mly" +# 1440 "parsing/parser.mly" ( _1 ) -# 29965 "parsing/parser.ml" +# 29943 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -29991,9 +29969,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1487 "parsing/parser.mly" +# 1465 "parsing/parser.mly" ( _1 ) -# 29997 "parsing/parser.ml" +# 29975 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30023,9 +30001,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.pattern) = -# 1482 "parsing/parser.mly" +# 1460 "parsing/parser.mly" ( _1 ) -# 30029 "parsing/parser.ml" +# 30007 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30055,9 +30033,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Longident.t) = -# 1492 "parsing/parser.mly" +# 1470 "parsing/parser.mly" ( _1 ) -# 30061 "parsing/parser.ml" +# 30039 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30099,15 +30077,15 @@ module Tables = struct let _loc__2_ = (_startpos__2_, _endpos__2_) in let _sloc = (_symbolstartpos, _endpos) in -# 3153 "parsing/parser.mly" +# 3135 "parsing/parser.mly" ( mkpat_cons ~loc:_sloc _loc__2_ (ghpat ~loc:_sloc (Ppat_tuple[_1;_3])) ) -# 30105 "parsing/parser.ml" +# 30083 "parsing/parser.ml" in -# 3141 "parsing/parser.mly" +# 3123 "parsing/parser.mly" ( _1 ) -# 30111 "parsing/parser.ml" +# 30089 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30137,14 +30115,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.pattern) = let _1 = -# 3155 "parsing/parser.mly" +# 3137 "parsing/parser.mly" ( Pat.attr _1 _2 ) -# 30143 "parsing/parser.ml" +# 30121 "parsing/parser.ml" in -# 3141 "parsing/parser.mly" +# 3123 "parsing/parser.mly" ( _1 ) -# 30148 "parsing/parser.ml" +# 30126 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30167,14 +30145,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = let _1 = -# 3157 "parsing/parser.mly" +# 3139 "parsing/parser.mly" ( _1 ) -# 30173 "parsing/parser.ml" +# 30151 "parsing/parser.ml" in -# 3141 "parsing/parser.mly" +# 3123 "parsing/parser.mly" ( _1 ) -# 30178 "parsing/parser.ml" +# 30156 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30219,15 +30197,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 30225 "parsing/parser.ml" +# 30203 "parsing/parser.ml" in -# 3160 "parsing/parser.mly" +# 3142 "parsing/parser.mly" ( Ppat_alias(_1, _3) ) -# 30231 "parsing/parser.ml" +# 30209 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -30235,21 +30213,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30241 "parsing/parser.ml" +# 30219 "parsing/parser.ml" in -# 3171 "parsing/parser.mly" +# 3153 "parsing/parser.mly" ( _1 ) -# 30247 "parsing/parser.ml" +# 30225 "parsing/parser.ml" in -# 3141 "parsing/parser.mly" +# 3123 "parsing/parser.mly" ( _1 ) -# 30253 "parsing/parser.ml" +# 30231 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30290,9 +30268,9 @@ module Tables = struct let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3162 "parsing/parser.mly" +# 3144 "parsing/parser.mly" ( expecting _loc__3_ "identifier" ) -# 30296 "parsing/parser.ml" +# 30274 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -30300,21 +30278,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30306 "parsing/parser.ml" +# 30284 "parsing/parser.ml" in -# 3171 "parsing/parser.mly" +# 3153 "parsing/parser.mly" ( _1 ) -# 30312 "parsing/parser.ml" +# 30290 "parsing/parser.ml" in -# 3141 "parsing/parser.mly" +# 3123 "parsing/parser.mly" ( _1 ) -# 30318 "parsing/parser.ml" +# 30296 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30339,29 +30317,29 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = -# 3164 "parsing/parser.mly" +# 3146 "parsing/parser.mly" ( Ppat_tuple(List.rev _1) ) -# 30345 "parsing/parser.ml" +# 30323 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30353 "parsing/parser.ml" +# 30331 "parsing/parser.ml" in -# 3171 "parsing/parser.mly" +# 3153 "parsing/parser.mly" ( _1 ) -# 30359 "parsing/parser.ml" +# 30337 "parsing/parser.ml" in -# 3141 "parsing/parser.mly" +# 3123 "parsing/parser.mly" ( _1 ) -# 30365 "parsing/parser.ml" +# 30343 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30402,9 +30380,9 @@ module Tables = struct let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3166 "parsing/parser.mly" +# 3148 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 30408 "parsing/parser.ml" +# 30386 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -30412,21 +30390,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30418 "parsing/parser.ml" +# 30396 "parsing/parser.ml" in -# 3171 "parsing/parser.mly" +# 3153 "parsing/parser.mly" ( _1 ) -# 30424 "parsing/parser.ml" +# 30402 "parsing/parser.ml" in -# 3141 "parsing/parser.mly" +# 3123 "parsing/parser.mly" ( _1 ) -# 30430 "parsing/parser.ml" +# 30408 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30465,30 +30443,30 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = -# 3168 "parsing/parser.mly" +# 3150 "parsing/parser.mly" ( Ppat_or(_1, _3) ) -# 30471 "parsing/parser.ml" +# 30449 "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 -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30480 "parsing/parser.ml" +# 30458 "parsing/parser.ml" in -# 3171 "parsing/parser.mly" +# 3153 "parsing/parser.mly" ( _1 ) -# 30486 "parsing/parser.ml" +# 30464 "parsing/parser.ml" in -# 3141 "parsing/parser.mly" +# 3123 "parsing/parser.mly" ( _1 ) -# 30492 "parsing/parser.ml" +# 30470 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30529,9 +30507,9 @@ module Tables = struct let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3170 "parsing/parser.mly" +# 3152 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 30535 "parsing/parser.ml" +# 30513 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -30539,21 +30517,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30545 "parsing/parser.ml" +# 30523 "parsing/parser.ml" in -# 3171 "parsing/parser.mly" +# 3153 "parsing/parser.mly" ( _1 ) -# 30551 "parsing/parser.ml" +# 30529 "parsing/parser.ml" in -# 3141 "parsing/parser.mly" +# 3123 "parsing/parser.mly" ( _1 ) -# 30557 "parsing/parser.ml" +# 30535 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30601,24 +30579,24 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 30607 "parsing/parser.ml" +# 30585 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 30613 "parsing/parser.ml" +# 30591 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3143 "parsing/parser.mly" +# 3125 "parsing/parser.mly" ( mkpat_attrs ~loc:_sloc (Ppat_exception _3) _2) -# 30622 "parsing/parser.ml" +# 30600 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30655,9 +30633,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.pattern list) = -# 3279 "parsing/parser.mly" +# 3260 "parsing/parser.mly" ( _3 :: _1 ) -# 30661 "parsing/parser.ml" +# 30639 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30694,9 +30672,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.pattern list) = -# 3280 "parsing/parser.mly" +# 3261 "parsing/parser.mly" ( [_3; _1] ) -# 30700 "parsing/parser.ml" +# 30678 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30734,9 +30712,9 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.pattern list) = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3281 "parsing/parser.mly" +# 3262 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 30740 "parsing/parser.ml" +# 30718 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30773,9 +30751,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.pattern list) = -# 3279 "parsing/parser.mly" +# 3260 "parsing/parser.mly" ( _3 :: _1 ) -# 30779 "parsing/parser.ml" +# 30757 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30812,9 +30790,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Parsetree.pattern list) = -# 3280 "parsing/parser.mly" +# 3261 "parsing/parser.mly" ( [_3; _1] ) -# 30818 "parsing/parser.ml" +# 30796 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30852,9 +30830,9 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.pattern list) = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3281 "parsing/parser.mly" +# 3262 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 30858 "parsing/parser.ml" +# 30836 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30877,9 +30855,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = -# 3176 "parsing/parser.mly" +# 3158 "parsing/parser.mly" ( _1 ) -# 30883 "parsing/parser.ml" +# 30861 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30915,15 +30893,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 30921 "parsing/parser.ml" +# 30899 "parsing/parser.ml" in -# 3179 "parsing/parser.mly" +# 3161 "parsing/parser.mly" ( Ppat_construct(_1, Some ([], _2)) ) -# 30927 "parsing/parser.ml" +# 30905 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -30931,15 +30909,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 30937 "parsing/parser.ml" +# 30915 "parsing/parser.ml" in -# 3185 "parsing/parser.mly" +# 3167 "parsing/parser.mly" ( _1 ) -# 30943 "parsing/parser.ml" +# 30921 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -30999,24 +30977,24 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let newtypes = -# 2895 "parsing/parser.mly" +# 2877 "parsing/parser.mly" ( xs ) -# 31005 "parsing/parser.ml" +# 30983 "parsing/parser.ml" in let constr = let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 31014 "parsing/parser.ml" +# 30992 "parsing/parser.ml" in -# 3182 "parsing/parser.mly" +# 3164 "parsing/parser.mly" ( Ppat_construct(constr, Some (newtypes, pat)) ) -# 31020 "parsing/parser.ml" +# 30998 "parsing/parser.ml" in let _endpos__1_ = _endpos_pat_ in @@ -31024,15 +31002,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31030 "parsing/parser.ml" +# 31008 "parsing/parser.ml" in -# 3185 "parsing/parser.mly" +# 3167 "parsing/parser.mly" ( _1 ) -# 31036 "parsing/parser.ml" +# 31014 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31063,24 +31041,24 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 3184 "parsing/parser.mly" +# 3166 "parsing/parser.mly" ( Ppat_variant(_1, Some _2) ) -# 31069 "parsing/parser.ml" +# 31047 "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 -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31078 "parsing/parser.ml" +# 31056 "parsing/parser.ml" in -# 3185 "parsing/parser.mly" +# 3167 "parsing/parser.mly" ( _1 ) -# 31084 "parsing/parser.ml" +# 31062 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31128,24 +31106,24 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 31134 "parsing/parser.ml" +# 31112 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 31140 "parsing/parser.ml" +# 31118 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3187 "parsing/parser.mly" +# 3169 "parsing/parser.mly" ( mkpat_attrs ~loc:_sloc (Ppat_lazy _3) _2) -# 31149 "parsing/parser.ml" +# 31127 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31187,15 +31165,15 @@ module Tables = struct let _loc__2_ = (_startpos__2_, _endpos__2_) in let _sloc = (_symbolstartpos, _endpos) in -# 3153 "parsing/parser.mly" +# 3135 "parsing/parser.mly" ( mkpat_cons ~loc:_sloc _loc__2_ (ghpat ~loc:_sloc (Ppat_tuple[_1;_3])) ) -# 31193 "parsing/parser.ml" +# 31171 "parsing/parser.ml" in -# 3148 "parsing/parser.mly" +# 3130 "parsing/parser.mly" ( _1 ) -# 31199 "parsing/parser.ml" +# 31177 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31225,14 +31203,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.pattern) = let _1 = -# 3155 "parsing/parser.mly" +# 3137 "parsing/parser.mly" ( Pat.attr _1 _2 ) -# 31231 "parsing/parser.ml" +# 31209 "parsing/parser.ml" in -# 3148 "parsing/parser.mly" +# 3130 "parsing/parser.mly" ( _1 ) -# 31236 "parsing/parser.ml" +# 31214 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31255,14 +31233,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = let _1 = -# 3157 "parsing/parser.mly" +# 3139 "parsing/parser.mly" ( _1 ) -# 31261 "parsing/parser.ml" +# 31239 "parsing/parser.ml" in -# 3148 "parsing/parser.mly" +# 3130 "parsing/parser.mly" ( _1 ) -# 31266 "parsing/parser.ml" +# 31244 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31307,15 +31285,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 31313 "parsing/parser.ml" +# 31291 "parsing/parser.ml" in -# 3160 "parsing/parser.mly" +# 3142 "parsing/parser.mly" ( Ppat_alias(_1, _3) ) -# 31319 "parsing/parser.ml" +# 31297 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -31323,21 +31301,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31329 "parsing/parser.ml" +# 31307 "parsing/parser.ml" in -# 3171 "parsing/parser.mly" +# 3153 "parsing/parser.mly" ( _1 ) -# 31335 "parsing/parser.ml" +# 31313 "parsing/parser.ml" in -# 3148 "parsing/parser.mly" +# 3130 "parsing/parser.mly" ( _1 ) -# 31341 "parsing/parser.ml" +# 31319 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31378,9 +31356,9 @@ module Tables = struct let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3162 "parsing/parser.mly" +# 3144 "parsing/parser.mly" ( expecting _loc__3_ "identifier" ) -# 31384 "parsing/parser.ml" +# 31362 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -31388,21 +31366,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31394 "parsing/parser.ml" +# 31372 "parsing/parser.ml" in -# 3171 "parsing/parser.mly" +# 3153 "parsing/parser.mly" ( _1 ) -# 31400 "parsing/parser.ml" +# 31378 "parsing/parser.ml" in -# 3148 "parsing/parser.mly" +# 3130 "parsing/parser.mly" ( _1 ) -# 31406 "parsing/parser.ml" +# 31384 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31427,29 +31405,29 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = -# 3164 "parsing/parser.mly" +# 3146 "parsing/parser.mly" ( Ppat_tuple(List.rev _1) ) -# 31433 "parsing/parser.ml" +# 31411 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31441 "parsing/parser.ml" +# 31419 "parsing/parser.ml" in -# 3171 "parsing/parser.mly" +# 3153 "parsing/parser.mly" ( _1 ) -# 31447 "parsing/parser.ml" +# 31425 "parsing/parser.ml" in -# 3148 "parsing/parser.mly" +# 3130 "parsing/parser.mly" ( _1 ) -# 31453 "parsing/parser.ml" +# 31431 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31490,9 +31468,9 @@ module Tables = struct let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3166 "parsing/parser.mly" +# 3148 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 31496 "parsing/parser.ml" +# 31474 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -31500,21 +31478,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31506 "parsing/parser.ml" +# 31484 "parsing/parser.ml" in -# 3171 "parsing/parser.mly" +# 3153 "parsing/parser.mly" ( _1 ) -# 31512 "parsing/parser.ml" +# 31490 "parsing/parser.ml" in -# 3148 "parsing/parser.mly" +# 3130 "parsing/parser.mly" ( _1 ) -# 31518 "parsing/parser.ml" +# 31496 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31553,30 +31531,30 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _1 = -# 3168 "parsing/parser.mly" +# 3150 "parsing/parser.mly" ( Ppat_or(_1, _3) ) -# 31559 "parsing/parser.ml" +# 31537 "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 -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31568 "parsing/parser.ml" +# 31546 "parsing/parser.ml" in -# 3171 "parsing/parser.mly" +# 3153 "parsing/parser.mly" ( _1 ) -# 31574 "parsing/parser.ml" +# 31552 "parsing/parser.ml" in -# 3148 "parsing/parser.mly" +# 3130 "parsing/parser.mly" ( _1 ) -# 31580 "parsing/parser.ml" +# 31558 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31617,9 +31595,9 @@ module Tables = struct let _1 = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3170 "parsing/parser.mly" +# 3152 "parsing/parser.mly" ( expecting _loc__3_ "pattern" ) -# 31623 "parsing/parser.ml" +# 31601 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -31627,21 +31605,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31633 "parsing/parser.ml" +# 31611 "parsing/parser.ml" in -# 3171 "parsing/parser.mly" +# 3153 "parsing/parser.mly" ( _1 ) -# 31639 "parsing/parser.ml" +# 31617 "parsing/parser.ml" in -# 3148 "parsing/parser.mly" +# 3130 "parsing/parser.mly" ( _1 ) -# 31645 "parsing/parser.ml" +# 31623 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31660,9 +31638,9 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 31666 "parsing/parser.ml" +# 31644 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -31674,30 +31652,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 31680 "parsing/parser.ml" +# 31658 "parsing/parser.ml" in -# 2498 "parsing/parser.mly" +# 2483 "parsing/parser.mly" ( Ppat_var _1 ) -# 31686 "parsing/parser.ml" +# 31664 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31695 "parsing/parser.ml" +# 31673 "parsing/parser.ml" in -# 2500 "parsing/parser.mly" +# 2485 "parsing/parser.mly" ( _1 ) -# 31701 "parsing/parser.ml" +# 31679 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31721,23 +31699,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 2499 "parsing/parser.mly" +# 2484 "parsing/parser.mly" ( Ppat_any ) -# 31727 "parsing/parser.ml" +# 31705 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 31735 "parsing/parser.ml" +# 31713 "parsing/parser.ml" in -# 2500 "parsing/parser.mly" +# 2485 "parsing/parser.mly" ( _1 ) -# 31741 "parsing/parser.ml" +# 31719 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31760,9 +31738,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.payload) = -# 4415 "parsing/parser.mly" +# 4396 "parsing/parser.mly" ( PStr _1 ) -# 31766 "parsing/parser.ml" +# 31744 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31792,9 +31770,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.payload) = -# 4416 "parsing/parser.mly" +# 4397 "parsing/parser.mly" ( PSig _2 ) -# 31798 "parsing/parser.ml" +# 31776 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31824,9 +31802,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.payload) = -# 4417 "parsing/parser.mly" +# 4398 "parsing/parser.mly" ( PTyp _2 ) -# 31830 "parsing/parser.ml" +# 31808 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31856,9 +31834,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.payload) = -# 4418 "parsing/parser.mly" +# 4399 "parsing/parser.mly" ( PPat (_2, None) ) -# 31862 "parsing/parser.ml" +# 31840 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31902,9 +31880,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.payload) = -# 4419 "parsing/parser.mly" +# 4400 "parsing/parser.mly" ( PPat (_2, Some _4) ) -# 31908 "parsing/parser.ml" +# 31886 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31927,9 +31905,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = -# 3743 "parsing/parser.mly" +# 3724 "parsing/parser.mly" ( _1 ) -# 31933 "parsing/parser.ml" +# 31911 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -31972,24 +31950,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 31976 "parsing/parser.ml" +# 31954 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 31981 "parsing/parser.ml" +# 31959 "parsing/parser.ml" in -# 3735 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 31987 "parsing/parser.ml" +# 31965 "parsing/parser.ml" in -# 3739 "parsing/parser.mly" +# 3720 "parsing/parser.mly" ( Ptyp_poly(_1, _3) ) -# 31993 "parsing/parser.ml" +# 31971 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__3_, _startpos_xs_) in @@ -31997,15 +31975,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 32003 "parsing/parser.ml" +# 31981 "parsing/parser.ml" in -# 3745 "parsing/parser.mly" +# 3726 "parsing/parser.mly" ( _1 ) -# 32009 "parsing/parser.ml" +# 31987 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32028,14 +32006,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = let _1 = -# 3774 "parsing/parser.mly" +# 3755 "parsing/parser.mly" ( _1 ) -# 32034 "parsing/parser.ml" +# 32012 "parsing/parser.ml" in -# 3743 "parsing/parser.mly" +# 3724 "parsing/parser.mly" ( _1 ) -# 32039 "parsing/parser.ml" +# 32017 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32074,33 +32052,33 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let _3 = -# 3774 "parsing/parser.mly" +# 3755 "parsing/parser.mly" ( _1 ) -# 32080 "parsing/parser.ml" +# 32058 "parsing/parser.ml" in let _1 = let _1 = let xs = # 253 "" ( List.rev xs ) -# 32087 "parsing/parser.ml" +# 32065 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 32092 "parsing/parser.ml" +# 32070 "parsing/parser.ml" in -# 3735 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 32098 "parsing/parser.ml" +# 32076 "parsing/parser.ml" in -# 3739 "parsing/parser.mly" +# 3720 "parsing/parser.mly" ( Ptyp_poly(_1, _3) ) -# 32104 "parsing/parser.ml" +# 32082 "parsing/parser.ml" in let _startpos__1_ = _startpos_xs_ in @@ -32108,15 +32086,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 32114 "parsing/parser.ml" +# 32092 "parsing/parser.ml" in -# 3745 "parsing/parser.mly" +# 3726 "parsing/parser.mly" ( _1 ) -# 32120 "parsing/parser.ml" +# 32098 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32163,9 +32141,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4376 "parsing/parser.mly" +# 4357 "parsing/parser.mly" ( mk_attr ~loc:(make_loc _sloc) _2 _3 ) -# 32169 "parsing/parser.ml" +# 32147 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32246,9 +32224,9 @@ module Tables = struct let _v : (Parsetree.value_description * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 32252 "parsing/parser.ml" +# 32230 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -32258,30 +32236,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 32264 "parsing/parser.ml" +# 32242 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 32272 "parsing/parser.ml" +# 32250 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3343 "parsing/parser.mly" +# 3324 "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 ) -# 32285 "parsing/parser.ml" +# 32263 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32297,14 +32275,14 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.private_flag) = let _1 = -# 4234 "parsing/parser.mly" +# 4215 "parsing/parser.mly" ( Public ) -# 32303 "parsing/parser.ml" +# 32281 "parsing/parser.ml" in -# 4231 "parsing/parser.mly" +# 4212 "parsing/parser.mly" ( _1 ) -# 32308 "parsing/parser.ml" +# 32286 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32327,14 +32305,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag) = let _1 = -# 4235 "parsing/parser.mly" +# 4216 "parsing/parser.mly" ( Private ) -# 32333 "parsing/parser.ml" +# 32311 "parsing/parser.ml" in -# 4231 "parsing/parser.mly" +# 4212 "parsing/parser.mly" ( _1 ) -# 32338 "parsing/parser.ml" +# 32316 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32350,9 +32328,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 4266 "parsing/parser.mly" +# 4247 "parsing/parser.mly" ( Public, Concrete ) -# 32356 "parsing/parser.ml" +# 32334 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32375,9 +32353,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 4267 "parsing/parser.mly" +# 4248 "parsing/parser.mly" ( Private, Concrete ) -# 32381 "parsing/parser.ml" +# 32359 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32400,9 +32378,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 4268 "parsing/parser.mly" +# 4249 "parsing/parser.mly" ( Public, Virtual ) -# 32406 "parsing/parser.ml" +# 32384 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32432,9 +32410,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 4269 "parsing/parser.mly" +# 4250 "parsing/parser.mly" ( Private, Virtual ) -# 32438 "parsing/parser.ml" +# 32416 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32464,9 +32442,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = -# 4270 "parsing/parser.mly" +# 4251 "parsing/parser.mly" ( Private, Virtual ) -# 32470 "parsing/parser.ml" +# 32448 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32482,9 +32460,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.rec_flag) = -# 4212 "parsing/parser.mly" +# 4193 "parsing/parser.mly" ( Nonrecursive ) -# 32488 "parsing/parser.ml" +# 32466 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32507,9 +32485,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.rec_flag) = -# 4213 "parsing/parser.mly" +# 4194 "parsing/parser.mly" ( Recursive ) -# 32513 "parsing/parser.ml" +# 32491 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32535,12 +32513,12 @@ module Tables = struct (Longident.t Asttypes.loc * Parsetree.expression) list) = let eo = # 124 "" ( None ) -# 32539 "parsing/parser.ml" +# 32517 "parsing/parser.ml" in -# 3073 "parsing/parser.mly" +# 3055 "parsing/parser.mly" ( eo, fields ) -# 32544 "parsing/parser.ml" +# 32522 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32581,18 +32559,18 @@ module Tables = struct let x = # 191 "" ( x ) -# 32585 "parsing/parser.ml" +# 32563 "parsing/parser.ml" in # 126 "" ( Some x ) -# 32590 "parsing/parser.ml" +# 32568 "parsing/parser.ml" in -# 3073 "parsing/parser.mly" +# 3055 "parsing/parser.mly" ( eo, fields ) -# 32596 "parsing/parser.ml" +# 32574 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32617,17 +32595,17 @@ module Tables = struct let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in let _v : (Parsetree.constructor_declaration list) = let x = -# 3543 "parsing/parser.mly" +# 3524 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Type.constructor cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32626 "parsing/parser.ml" +# 32604 "parsing/parser.ml" in -# 1354 "parsing/parser.mly" +# 1332 "parsing/parser.mly" ( [x] ) -# 32631 "parsing/parser.ml" +# 32609 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32652,17 +32630,17 @@ module Tables = struct let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in let _v : (Parsetree.constructor_declaration list) = let x = -# 3543 "parsing/parser.mly" +# 3524 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Type.constructor cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32661 "parsing/parser.ml" +# 32639 "parsing/parser.ml" in -# 1357 "parsing/parser.mly" +# 1335 "parsing/parser.mly" ( [x] ) -# 32666 "parsing/parser.ml" +# 32644 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32694,17 +32672,17 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_d_ in let _v : (Parsetree.constructor_declaration list) = let x = -# 3543 "parsing/parser.mly" +# 3524 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Type.constructor cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32703 "parsing/parser.ml" +# 32681 "parsing/parser.ml" in -# 1361 "parsing/parser.mly" +# 1339 "parsing/parser.mly" ( x :: xs ) -# 32708 "parsing/parser.ml" +# 32686 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32730,23 +32708,23 @@ module Tables = struct let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = let _1 = -# 3673 "parsing/parser.mly" +# 3654 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32739 "parsing/parser.ml" +# 32717 "parsing/parser.ml" in -# 3667 "parsing/parser.mly" +# 3648 "parsing/parser.mly" ( _1 ) -# 32744 "parsing/parser.ml" +# 32722 "parsing/parser.ml" in -# 1354 "parsing/parser.mly" +# 1332 "parsing/parser.mly" ( [x] ) -# 32750 "parsing/parser.ml" +# 32728 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32769,14 +32747,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.extension_constructor list) = let x = -# 3669 "parsing/parser.mly" +# 3650 "parsing/parser.mly" ( _1 ) -# 32775 "parsing/parser.ml" +# 32753 "parsing/parser.ml" in -# 1354 "parsing/parser.mly" +# 1332 "parsing/parser.mly" ( [x] ) -# 32780 "parsing/parser.ml" +# 32758 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32802,23 +32780,23 @@ module Tables = struct let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = let _1 = -# 3673 "parsing/parser.mly" +# 3654 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32811 "parsing/parser.ml" +# 32789 "parsing/parser.ml" in -# 3667 "parsing/parser.mly" +# 3648 "parsing/parser.mly" ( _1 ) -# 32816 "parsing/parser.ml" +# 32794 "parsing/parser.ml" in -# 1357 "parsing/parser.mly" +# 1335 "parsing/parser.mly" ( [x] ) -# 32822 "parsing/parser.ml" +# 32800 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32841,14 +32819,14 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.extension_constructor list) = let x = -# 3669 "parsing/parser.mly" +# 3650 "parsing/parser.mly" ( _1 ) -# 32847 "parsing/parser.ml" +# 32825 "parsing/parser.ml" in -# 1357 "parsing/parser.mly" +# 1335 "parsing/parser.mly" ( [x] ) -# 32852 "parsing/parser.ml" +# 32830 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32881,23 +32859,23 @@ module Tables = struct let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = let _1 = -# 3673 "parsing/parser.mly" +# 3654 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32890 "parsing/parser.ml" +# 32868 "parsing/parser.ml" in -# 3667 "parsing/parser.mly" +# 3648 "parsing/parser.mly" ( _1 ) -# 32895 "parsing/parser.ml" +# 32873 "parsing/parser.ml" in -# 1361 "parsing/parser.mly" +# 1339 "parsing/parser.mly" ( x :: xs ) -# 32901 "parsing/parser.ml" +# 32879 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32927,14 +32905,14 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos__1_ in let _v : (Parsetree.extension_constructor list) = let x = -# 3669 "parsing/parser.mly" +# 3650 "parsing/parser.mly" ( _1 ) -# 32933 "parsing/parser.ml" +# 32911 "parsing/parser.ml" in -# 1361 "parsing/parser.mly" +# 1339 "parsing/parser.mly" ( x :: xs ) -# 32938 "parsing/parser.ml" +# 32916 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32959,17 +32937,17 @@ module Tables = struct let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = -# 3673 "parsing/parser.mly" +# 3654 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 32968 "parsing/parser.ml" +# 32946 "parsing/parser.ml" in -# 1354 "parsing/parser.mly" +# 1332 "parsing/parser.mly" ( [x] ) -# 32973 "parsing/parser.ml" +# 32951 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -32994,17 +32972,17 @@ module Tables = struct let _startpos = _startpos_d_ in let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = -# 3673 "parsing/parser.mly" +# 3654 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 33003 "parsing/parser.ml" +# 32981 "parsing/parser.ml" in -# 1357 "parsing/parser.mly" +# 1335 "parsing/parser.mly" ( [x] ) -# 33008 "parsing/parser.ml" +# 32986 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33036,17 +33014,17 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_d_ in let _v : (Parsetree.extension_constructor list) = let x = -# 3673 "parsing/parser.mly" +# 3654 "parsing/parser.mly" ( let cid, vars, args, res, attrs, loc, info = d in Te.decl cid ~vars ~args ?res ~attrs ~loc ~info ) -# 33045 "parsing/parser.ml" +# 33023 "parsing/parser.ml" in -# 1361 "parsing/parser.mly" +# 1339 "parsing/parser.mly" ( x :: xs ) -# 33050 "parsing/parser.ml" +# 33028 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33062,9 +33040,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : ((Parsetree.core_type * Parsetree.core_type * Ast_helper.loc) list) = -# 1220 "parsing/parser.mly" +# 1198 "parsing/parser.mly" ( [] ) -# 33068 "parsing/parser.ml" +# 33046 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33121,21 +33099,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2367 "parsing/parser.mly" +# 2352 "parsing/parser.mly" ( _1, _3, make_loc _sloc ) -# 33127 "parsing/parser.ml" +# 33105 "parsing/parser.ml" in # 183 "" ( x ) -# 33133 "parsing/parser.ml" +# 33111 "parsing/parser.ml" in -# 1222 "parsing/parser.mly" +# 1200 "parsing/parser.mly" ( x :: xs ) -# 33139 "parsing/parser.ml" +# 33117 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33158,9 +33136,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (Jane_syntax.Comprehensions.clause list) = -# 1234 "parsing/parser.mly" +# 1212 "parsing/parser.mly" ( [ x ] ) -# 33164 "parsing/parser.ml" +# 33142 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33190,9 +33168,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Jane_syntax.Comprehensions.clause list) = -# 1236 "parsing/parser.mly" +# 1214 "parsing/parser.mly" ( x :: xs ) -# 33196 "parsing/parser.ml" +# 33174 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33215,9 +33193,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : ((Lexing.position * Parsetree.functor_parameter) list) = -# 1234 "parsing/parser.mly" +# 1212 "parsing/parser.mly" ( [ x ] ) -# 33221 "parsing/parser.ml" +# 33199 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33247,9 +33225,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : ((Lexing.position * Parsetree.functor_parameter) list) = -# 1236 "parsing/parser.mly" +# 1214 "parsing/parser.mly" ( x :: xs ) -# 33253 "parsing/parser.ml" +# 33231 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33272,9 +33250,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : ((Asttypes.arg_label * Parsetree.expression) list) = -# 1234 "parsing/parser.mly" +# 1212 "parsing/parser.mly" ( [ x ] ) -# 33278 "parsing/parser.ml" +# 33256 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33304,9 +33282,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : ((Asttypes.arg_label * Parsetree.expression) list) = -# 1236 "parsing/parser.mly" +# 1214 "parsing/parser.mly" ( x :: xs ) -# 33310 "parsing/parser.ml" +# 33288 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33329,9 +33307,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (Asttypes.label list) = -# 1234 "parsing/parser.mly" +# 1212 "parsing/parser.mly" ( [ x ] ) -# 33335 "parsing/parser.ml" +# 33313 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33361,9 +33339,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Asttypes.label list) = -# 1236 "parsing/parser.mly" +# 1214 "parsing/parser.mly" ( x :: xs ) -# 33367 "parsing/parser.ml" +# 33345 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33399,21 +33377,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 33405 "parsing/parser.ml" +# 33383 "parsing/parser.ml" in -# 3731 "parsing/parser.mly" +# 3712 "parsing/parser.mly" ( _2 ) -# 33411 "parsing/parser.ml" +# 33389 "parsing/parser.ml" in -# 1234 "parsing/parser.mly" +# 1212 "parsing/parser.mly" ( [ x ] ) -# 33417 "parsing/parser.ml" +# 33395 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33456,21 +33434,21 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 33462 "parsing/parser.ml" +# 33440 "parsing/parser.ml" in -# 3731 "parsing/parser.mly" +# 3712 "parsing/parser.mly" ( _2 ) -# 33468 "parsing/parser.ml" +# 33446 "parsing/parser.ml" in -# 1236 "parsing/parser.mly" +# 1214 "parsing/parser.mly" ( x :: xs ) -# 33474 "parsing/parser.ml" +# 33452 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33495,12 +33473,12 @@ module Tables = struct let _v : (Parsetree.case list) = let _1 = # 124 "" ( None ) -# 33499 "parsing/parser.ml" +# 33477 "parsing/parser.ml" in -# 1325 "parsing/parser.mly" +# 1303 "parsing/parser.mly" ( [x] ) -# 33504 "parsing/parser.ml" +# 33482 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33534,13 +33512,13 @@ module Tables = struct # 126 "" ( Some x ) -# 33538 "parsing/parser.ml" +# 33516 "parsing/parser.ml" in -# 1325 "parsing/parser.mly" +# 1303 "parsing/parser.mly" ( [x] ) -# 33544 "parsing/parser.ml" +# 33522 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33577,9 +33555,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.case list) = -# 1329 "parsing/parser.mly" +# 1307 "parsing/parser.mly" ( x :: xs ) -# 33583 "parsing/parser.ml" +# 33561 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33603,20 +33581,20 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.core_type list) = let xs = let x = -# 3774 "parsing/parser.mly" +# 3755 "parsing/parser.mly" ( _1 ) -# 33609 "parsing/parser.ml" +# 33587 "parsing/parser.ml" in -# 1260 "parsing/parser.mly" +# 1238 "parsing/parser.mly" ( [ x ] ) -# 33614 "parsing/parser.ml" +# 33592 "parsing/parser.ml" in -# 1268 "parsing/parser.mly" +# 1246 "parsing/parser.mly" ( xs ) -# 33620 "parsing/parser.ml" +# 33598 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33654,20 +33632,20 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.core_type list) = let xs = let x = -# 3774 "parsing/parser.mly" +# 3755 "parsing/parser.mly" ( _1 ) -# 33660 "parsing/parser.ml" +# 33638 "parsing/parser.ml" in -# 1264 "parsing/parser.mly" +# 1242 "parsing/parser.mly" ( x :: xs ) -# 33665 "parsing/parser.ml" +# 33643 "parsing/parser.ml" in -# 1268 "parsing/parser.mly" +# 1246 "parsing/parser.mly" ( xs ) -# 33671 "parsing/parser.ml" +# 33649 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33690,14 +33668,14 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (Jane_syntax.Comprehensions.clause_binding list) = let xs = -# 1260 "parsing/parser.mly" +# 1238 "parsing/parser.mly" ( [ x ] ) -# 33696 "parsing/parser.ml" +# 33674 "parsing/parser.ml" in -# 1268 "parsing/parser.mly" +# 1246 "parsing/parser.mly" ( xs ) -# 33701 "parsing/parser.ml" +# 33679 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33734,14 +33712,14 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Jane_syntax.Comprehensions.clause_binding list) = let xs = -# 1264 "parsing/parser.mly" +# 1242 "parsing/parser.mly" ( x :: xs ) -# 33740 "parsing/parser.ml" +# 33718 "parsing/parser.ml" in -# 1268 "parsing/parser.mly" +# 1246 "parsing/parser.mly" ( xs ) -# 33745 "parsing/parser.ml" +# 33723 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33764,14 +33742,14 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (Parsetree.with_constraint list) = let xs = -# 1260 "parsing/parser.mly" +# 1238 "parsing/parser.mly" ( [ x ] ) -# 33770 "parsing/parser.ml" +# 33748 "parsing/parser.ml" in -# 1268 "parsing/parser.mly" +# 1246 "parsing/parser.mly" ( xs ) -# 33775 "parsing/parser.ml" +# 33753 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33808,14 +33786,14 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.with_constraint list) = let xs = -# 1264 "parsing/parser.mly" +# 1242 "parsing/parser.mly" ( x :: xs ) -# 33814 "parsing/parser.ml" +# 33792 "parsing/parser.ml" in -# 1268 "parsing/parser.mly" +# 1246 "parsing/parser.mly" ( xs ) -# 33819 "parsing/parser.ml" +# 33797 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33838,14 +33816,14 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (Parsetree.row_field list) = let xs = -# 1260 "parsing/parser.mly" +# 1238 "parsing/parser.mly" ( [ x ] ) -# 33844 "parsing/parser.ml" +# 33822 "parsing/parser.ml" in -# 1268 "parsing/parser.mly" +# 1246 "parsing/parser.mly" ( xs ) -# 33849 "parsing/parser.ml" +# 33827 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33882,14 +33860,14 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.row_field list) = let xs = -# 1264 "parsing/parser.mly" +# 1242 "parsing/parser.mly" ( x :: xs ) -# 33888 "parsing/parser.ml" +# 33866 "parsing/parser.ml" in -# 1268 "parsing/parser.mly" +# 1246 "parsing/parser.mly" ( xs ) -# 33893 "parsing/parser.ml" +# 33871 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33912,14 +33890,14 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : (Parsetree.core_type list) = let xs = -# 1260 "parsing/parser.mly" +# 1238 "parsing/parser.mly" ( [ x ] ) -# 33918 "parsing/parser.ml" +# 33896 "parsing/parser.ml" in -# 1268 "parsing/parser.mly" +# 1246 "parsing/parser.mly" ( xs ) -# 33923 "parsing/parser.ml" +# 33901 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33956,14 +33934,14 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.core_type list) = let xs = -# 1264 "parsing/parser.mly" +# 1242 "parsing/parser.mly" ( x :: xs ) -# 33962 "parsing/parser.ml" +# 33940 "parsing/parser.ml" in -# 1268 "parsing/parser.mly" +# 1246 "parsing/parser.mly" ( xs ) -# 33967 "parsing/parser.ml" +# 33945 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -33986,14 +33964,14 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let xs = -# 1260 "parsing/parser.mly" +# 1238 "parsing/parser.mly" ( [ x ] ) -# 33992 "parsing/parser.ml" +# 33970 "parsing/parser.ml" in -# 1268 "parsing/parser.mly" +# 1246 "parsing/parser.mly" ( xs ) -# 33997 "parsing/parser.ml" +# 33975 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34030,14 +34008,14 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let xs = -# 1264 "parsing/parser.mly" +# 1242 "parsing/parser.mly" ( x :: xs ) -# 34036 "parsing/parser.ml" +# 34014 "parsing/parser.ml" in -# 1268 "parsing/parser.mly" +# 1246 "parsing/parser.mly" ( xs ) -# 34041 "parsing/parser.ml" +# 34019 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34060,14 +34038,14 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_x_ in let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let xs = -# 1260 "parsing/parser.mly" +# 1238 "parsing/parser.mly" ( [ x ] ) -# 34066 "parsing/parser.ml" +# 34044 "parsing/parser.ml" in -# 1268 "parsing/parser.mly" +# 1246 "parsing/parser.mly" ( xs ) -# 34071 "parsing/parser.ml" +# 34049 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34104,14 +34082,14 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let xs = -# 1264 "parsing/parser.mly" +# 1242 "parsing/parser.mly" ( x :: xs ) -# 34110 "parsing/parser.ml" +# 34088 "parsing/parser.ml" in -# 1268 "parsing/parser.mly" +# 1246 "parsing/parser.mly" ( xs ) -# 34115 "parsing/parser.ml" +# 34093 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34136,30 +34114,30 @@ module Tables = struct let _v : (Parsetree.core_type list) = let xs = let x = let gbl = -# 4247 "parsing/parser.mly" +# 4228 "parsing/parser.mly" ( Nothing ) -# 34142 "parsing/parser.ml" +# 34120 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__0_, _endpos__0_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3600 "parsing/parser.mly" +# 3581 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 34151 "parsing/parser.ml" +# 34129 "parsing/parser.ml" in -# 1260 "parsing/parser.mly" +# 1238 "parsing/parser.mly" ( [ x ] ) -# 34157 "parsing/parser.ml" +# 34135 "parsing/parser.ml" in -# 1268 "parsing/parser.mly" +# 1246 "parsing/parser.mly" ( xs ) -# 34163 "parsing/parser.ml" +# 34141 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34191,30 +34169,30 @@ module Tables = struct let _v : (Parsetree.core_type list) = let xs = let x = let gbl = -# 4248 "parsing/parser.mly" +# 4229 "parsing/parser.mly" ( Global ) -# 34197 "parsing/parser.ml" +# 34175 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3600 "parsing/parser.mly" +# 3581 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 34206 "parsing/parser.ml" +# 34184 "parsing/parser.ml" in -# 1260 "parsing/parser.mly" +# 1238 "parsing/parser.mly" ( [ x ] ) -# 34212 "parsing/parser.ml" +# 34190 "parsing/parser.ml" in -# 1268 "parsing/parser.mly" +# 1246 "parsing/parser.mly" ( xs ) -# 34218 "parsing/parser.ml" +# 34196 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34254,30 +34232,30 @@ module Tables = struct let x = let _endpos__0_ = _endpos__2_ in let gbl = -# 4247 "parsing/parser.mly" +# 4228 "parsing/parser.mly" ( Nothing ) -# 34260 "parsing/parser.ml" +# 34238 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__0_, _endpos__0_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3600 "parsing/parser.mly" +# 3581 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 34269 "parsing/parser.ml" +# 34247 "parsing/parser.ml" in -# 1264 "parsing/parser.mly" +# 1242 "parsing/parser.mly" ( x :: xs ) -# 34275 "parsing/parser.ml" +# 34253 "parsing/parser.ml" in -# 1268 "parsing/parser.mly" +# 1246 "parsing/parser.mly" ( xs ) -# 34281 "parsing/parser.ml" +# 34259 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34323,30 +34301,30 @@ module Tables = struct let _v : (Parsetree.core_type list) = let xs = let x = let gbl = -# 4248 "parsing/parser.mly" +# 4229 "parsing/parser.mly" ( Global ) -# 34329 "parsing/parser.ml" +# 34307 "parsing/parser.ml" in let (_endpos_gbl_, _startpos_gbl_) = (_endpos__1_, _startpos__1_) in let _loc_gbl_ = (_startpos_gbl_, _endpos_gbl_) in -# 3600 "parsing/parser.mly" +# 3581 "parsing/parser.mly" ( mkcty_global_maybe gbl cty (make_loc _loc_gbl_) ) -# 34338 "parsing/parser.ml" +# 34316 "parsing/parser.ml" in -# 1264 "parsing/parser.mly" +# 1242 "parsing/parser.mly" ( x :: xs ) -# 34344 "parsing/parser.ml" +# 34322 "parsing/parser.ml" in -# 1268 "parsing/parser.mly" +# 1246 "parsing/parser.mly" ( xs ) -# 34350 "parsing/parser.ml" +# 34328 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34383,9 +34361,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.core_type list) = -# 1291 "parsing/parser.mly" +# 1269 "parsing/parser.mly" ( x :: xs ) -# 34389 "parsing/parser.ml" +# 34367 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34422,9 +34400,9 @@ module Tables = struct let _startpos = _startpos_x1_ in let _endpos = _endpos_x2_ in let _v : (Parsetree.core_type list) = -# 1295 "parsing/parser.mly" +# 1273 "parsing/parser.mly" ( [ x2; x1 ] ) -# 34428 "parsing/parser.ml" +# 34406 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34461,9 +34439,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.expression list) = -# 1291 "parsing/parser.mly" +# 1269 "parsing/parser.mly" ( x :: xs ) -# 34467 "parsing/parser.ml" +# 34445 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34500,9 +34478,9 @@ module Tables = struct let _startpos = _startpos_x1_ in let _endpos = _endpos_x2_ in let _v : (Parsetree.expression list) = -# 1295 "parsing/parser.mly" +# 1273 "parsing/parser.mly" ( [ x2; x1 ] ) -# 34506 "parsing/parser.ml" +# 34484 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34539,9 +34517,9 @@ module Tables = struct let _startpos = _startpos_xs_ in let _endpos = _endpos_x_ in let _v : (Parsetree.core_type list) = -# 1291 "parsing/parser.mly" +# 1269 "parsing/parser.mly" ( x :: xs ) -# 34545 "parsing/parser.ml" +# 34523 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34578,9 +34556,9 @@ module Tables = struct let _startpos = _startpos_x1_ in let _endpos = _endpos_x2_ in let _v : (Parsetree.core_type list) = -# 1295 "parsing/parser.mly" +# 1273 "parsing/parser.mly" ( [ x2; x1 ] ) -# 34584 "parsing/parser.ml" +# 34562 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34603,9 +34581,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.row_field) = -# 3960 "parsing/parser.mly" +# 3941 "parsing/parser.mly" ( _1 ) -# 34609 "parsing/parser.ml" +# 34587 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34631,9 +34609,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3962 "parsing/parser.mly" +# 3943 "parsing/parser.mly" ( Rf.inherit_ ~loc:(make_loc _sloc) _1 ) -# 34637 "parsing/parser.ml" +# 34615 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34658,12 +34636,12 @@ module Tables = struct let _v : (Parsetree.expression list) = let _2 = # 124 "" ( None ) -# 34662 "parsing/parser.ml" +# 34640 "parsing/parser.ml" in -# 1312 "parsing/parser.mly" +# 1290 "parsing/parser.mly" ( [x] ) -# 34667 "parsing/parser.ml" +# 34645 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34697,13 +34675,13 @@ module Tables = struct # 126 "" ( Some x ) -# 34701 "parsing/parser.ml" +# 34679 "parsing/parser.ml" in -# 1312 "parsing/parser.mly" +# 1290 "parsing/parser.mly" ( [x] ) -# 34707 "parsing/parser.ml" +# 34685 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34740,9 +34718,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_xs_ in let _v : (Parsetree.expression list) = -# 1316 "parsing/parser.mly" +# 1294 "parsing/parser.mly" ( x :: xs ) -# 34746 "parsing/parser.ml" +# 34724 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34768,9 +34746,9 @@ module Tables = struct } = _menhir_stack in let oe : (Parsetree.expression option) = Obj.magic oe in let _1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 34774 "parsing/parser.ml" +# 34752 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -34778,26 +34756,26 @@ module Tables = struct let _v : ((Asttypes.label Asttypes.loc * Parsetree.expression) list) = let _2 = # 124 "" ( None ) -# 34782 "parsing/parser.ml" +# 34760 "parsing/parser.ml" in let x = let label = let _1 = -# 4024 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( _1 ) -# 34789 "parsing/parser.ml" +# 34767 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 34797 "parsing/parser.ml" +# 34775 "parsing/parser.ml" in -# 3096 "parsing/parser.mly" +# 3078 "parsing/parser.mly" ( let label, e = match oe with | None -> @@ -34807,13 +34785,13 @@ module Tables = struct label, e in label, e ) -# 34811 "parsing/parser.ml" +# 34789 "parsing/parser.ml" in -# 1312 "parsing/parser.mly" +# 1290 "parsing/parser.mly" ( [x] ) -# 34817 "parsing/parser.ml" +# 34795 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34846,9 +34824,9 @@ module Tables = struct let x : unit = Obj.magic x in let oe : (Parsetree.expression option) = Obj.magic oe in let _1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 34852 "parsing/parser.ml" +# 34830 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -34856,26 +34834,26 @@ module Tables = struct let _v : ((Asttypes.label Asttypes.loc * Parsetree.expression) list) = let _2 = # 126 "" ( Some x ) -# 34860 "parsing/parser.ml" +# 34838 "parsing/parser.ml" in let x = let label = let _1 = -# 4024 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( _1 ) -# 34867 "parsing/parser.ml" +# 34845 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 34875 "parsing/parser.ml" +# 34853 "parsing/parser.ml" in -# 3096 "parsing/parser.mly" +# 3078 "parsing/parser.mly" ( let label, e = match oe with | None -> @@ -34885,13 +34863,13 @@ module Tables = struct label, e in label, e ) -# 34889 "parsing/parser.ml" +# 34867 "parsing/parser.ml" in -# 1312 "parsing/parser.mly" +# 1290 "parsing/parser.mly" ( [x] ) -# 34895 "parsing/parser.ml" +# 34873 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34931,9 +34909,9 @@ module Tables = struct let _2 : unit = Obj.magic _2 in let oe : (Parsetree.expression option) = Obj.magic oe in let _1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 34937 "parsing/parser.ml" +# 34915 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -34941,21 +34919,21 @@ module Tables = struct let _v : ((Asttypes.label Asttypes.loc * Parsetree.expression) list) = let x = let label = let _1 = -# 4024 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( _1 ) -# 34947 "parsing/parser.ml" +# 34925 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 34955 "parsing/parser.ml" +# 34933 "parsing/parser.ml" in -# 3096 "parsing/parser.mly" +# 3078 "parsing/parser.mly" ( let label, e = match oe with | None -> @@ -34965,13 +34943,13 @@ module Tables = struct label, e in label, e ) -# 34969 "parsing/parser.ml" +# 34947 "parsing/parser.ml" in -# 1316 "parsing/parser.mly" +# 1294 "parsing/parser.mly" ( x :: xs ) -# 34975 "parsing/parser.ml" +# 34953 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -34996,12 +34974,12 @@ module Tables = struct let _v : (Parsetree.pattern list) = let _2 = # 124 "" ( None ) -# 35000 "parsing/parser.ml" +# 34978 "parsing/parser.ml" in -# 1312 "parsing/parser.mly" +# 1290 "parsing/parser.mly" ( [x] ) -# 35005 "parsing/parser.ml" +# 34983 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35035,13 +35013,13 @@ module Tables = struct # 126 "" ( Some x ) -# 35039 "parsing/parser.ml" +# 35017 "parsing/parser.ml" in -# 1312 "parsing/parser.mly" +# 1290 "parsing/parser.mly" ( [x] ) -# 35045 "parsing/parser.ml" +# 35023 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35078,9 +35056,9 @@ module Tables = struct let _startpos = _startpos_x_ in let _endpos = _endpos_xs_ in let _v : (Parsetree.pattern list) = -# 1316 "parsing/parser.mly" +# 1294 "parsing/parser.mly" ( x :: xs ) -# 35084 "parsing/parser.ml" +# 35062 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35119,7 +35097,7 @@ module Tables = struct let _v : ((Longident.t Asttypes.loc * Parsetree.expression) list) = let _2 = # 124 "" ( None ) -# 35123 "parsing/parser.ml" +# 35101 "parsing/parser.ml" in let x = let label = @@ -35127,9 +35105,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 35133 "parsing/parser.ml" +# 35111 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -35137,7 +35115,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 3079 "parsing/parser.mly" +# 3061 "parsing/parser.mly" ( let constraint_loc, label, e = match eo with | None -> @@ -35147,13 +35125,13 @@ module Tables = struct (_startpos_c_, _endpos), label, e in label, mkexp_opt_constraint ~loc:constraint_loc e c ) -# 35151 "parsing/parser.ml" +# 35129 "parsing/parser.ml" in -# 1312 "parsing/parser.mly" +# 1290 "parsing/parser.mly" ( [x] ) -# 35157 "parsing/parser.ml" +# 35135 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35199,7 +35177,7 @@ module Tables = struct let _v : ((Longident.t Asttypes.loc * Parsetree.expression) list) = let _2 = # 126 "" ( Some x ) -# 35203 "parsing/parser.ml" +# 35181 "parsing/parser.ml" in let x = let label = @@ -35207,9 +35185,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 35213 "parsing/parser.ml" +# 35191 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -35217,7 +35195,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 3079 "parsing/parser.mly" +# 3061 "parsing/parser.mly" ( let constraint_loc, label, e = match eo with | None -> @@ -35227,13 +35205,13 @@ module Tables = struct (_startpos_c_, _endpos), label, e in label, mkexp_opt_constraint ~loc:constraint_loc e c ) -# 35231 "parsing/parser.ml" +# 35209 "parsing/parser.ml" in -# 1312 "parsing/parser.mly" +# 1290 "parsing/parser.mly" ( [x] ) -# 35237 "parsing/parser.ml" +# 35215 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35289,9 +35267,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 35295 "parsing/parser.ml" +# 35273 "parsing/parser.ml" in let _startpos_label_ = _startpos__1_ in @@ -35299,7 +35277,7 @@ module Tables = struct let _symbolstartpos = _startpos_label_ in let _sloc = (_symbolstartpos, _endpos) in -# 3079 "parsing/parser.mly" +# 3061 "parsing/parser.mly" ( let constraint_loc, label, e = match eo with | None -> @@ -35309,13 +35287,13 @@ module Tables = struct (_startpos_c_, _endpos), label, e in label, mkexp_opt_constraint ~loc:constraint_loc e c ) -# 35313 "parsing/parser.ml" +# 35291 "parsing/parser.ml" in -# 1316 "parsing/parser.mly" +# 1294 "parsing/parser.mly" ( x :: xs ) -# 35319 "parsing/parser.ml" +# 35297 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35338,9 +35316,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = -# 2456 "parsing/parser.mly" +# 2441 "parsing/parser.mly" ( _1 ) -# 35344 "parsing/parser.ml" +# 35322 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35370,9 +35348,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 2457 "parsing/parser.mly" +# 2442 "parsing/parser.mly" ( _1 ) -# 35376 "parsing/parser.ml" +# 35354 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35410,24 +35388,24 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2459 "parsing/parser.mly" +# 2444 "parsing/parser.mly" ( Pexp_sequence(_1, _3) ) -# 35416 "parsing/parser.ml" +# 35394 "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 -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 35425 "parsing/parser.ml" +# 35403 "parsing/parser.ml" in -# 2460 "parsing/parser.mly" +# 2445 "parsing/parser.mly" ( _1 ) -# 35431 "parsing/parser.ml" +# 35409 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35481,11 +35459,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2462 "parsing/parser.mly" +# 2447 "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)) ) -# 35489 "parsing/parser.ml" +# 35467 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35553,18 +35531,18 @@ module Tables = struct let _v : (Parsetree.type_exception * string Asttypes.loc option) = let attrs = let _1 = _1_inlined4 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 35559 "parsing/parser.ml" +# 35537 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined4_ in let attrs2 = let _1 = _1_inlined3 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 35568 "parsing/parser.ml" +# 35546 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -35574,17 +35552,17 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 35580 "parsing/parser.ml" +# 35558 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 35588 "parsing/parser.ml" +# 35566 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in @@ -35592,14 +35570,14 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3573 "parsing/parser.mly" +# 3554 "parsing/parser.mly" ( let vars, args, res = vars_args_res in let loc = make_loc (_startpos, _endpos_attrs2_) in let docs = symbol_docs _sloc in Te.mk_exception ~attrs (Te.decl id ~vars ~args ?res ~attrs:(attrs1 @ attrs2) ~loc ~docs) , ext ) -# 35603 "parsing/parser.ml" +# 35581 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35625,21 +35603,21 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 35629 "parsing/parser.ml" +# 35607 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1135 "parsing/parser.mly" +# 1113 "parsing/parser.mly" ( extra_sig _startpos _endpos _1 ) -# 35637 "parsing/parser.ml" +# 35615 "parsing/parser.ml" in -# 1902 "parsing/parser.mly" +# 1882 "parsing/parser.mly" ( _1 ) -# 35643 "parsing/parser.ml" +# 35621 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35671,9 +35649,9 @@ module Tables = struct let _v : (Parsetree.signature_item) = let _2 = let _1 = _1_inlined1 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 35677 "parsing/parser.ml" +# 35655 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in @@ -35681,10 +35659,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1917 "parsing/parser.mly" +# 1897 "parsing/parser.mly" ( let docs = symbol_docs _sloc in mksig ~loc:_sloc (Psig_extension (_1, (add_docs_attrs docs _2))) ) -# 35688 "parsing/parser.ml" +# 35666 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35708,23 +35686,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1921 "parsing/parser.mly" +# 1901 "parsing/parser.mly" ( Psig_attribute _1 ) -# 35714 "parsing/parser.ml" +# 35692 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1183 "parsing/parser.mly" +# 1161 "parsing/parser.mly" ( mksig ~loc:_sloc _1 ) -# 35722 "parsing/parser.ml" +# 35700 "parsing/parser.ml" in -# 1923 "parsing/parser.mly" +# 1903 "parsing/parser.mly" ( _1 ) -# 35728 "parsing/parser.ml" +# 35706 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35748,23 +35726,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1926 "parsing/parser.mly" +# 1906 "parsing/parser.mly" ( psig_value _1 ) -# 35754 "parsing/parser.ml" +# 35732 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1200 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 35762 "parsing/parser.ml" +# 35740 "parsing/parser.ml" in -# 1961 "parsing/parser.mly" +# 1936 "parsing/parser.mly" ( _1 ) -# 35768 "parsing/parser.ml" +# 35746 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35788,23 +35766,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1928 "parsing/parser.mly" +# 1908 "parsing/parser.mly" ( psig_value _1 ) -# 35794 "parsing/parser.ml" +# 35772 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1200 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 35802 "parsing/parser.ml" +# 35780 "parsing/parser.ml" in -# 1961 "parsing/parser.mly" +# 1936 "parsing/parser.mly" ( _1 ) -# 35808 "parsing/parser.ml" +# 35786 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35839,26 +35817,26 @@ module Tables = struct let _1 = let _1 = let _1 = -# 1373 "parsing/parser.mly" +# 1351 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 35845 "parsing/parser.ml" +# 35823 "parsing/parser.ml" in -# 3379 "parsing/parser.mly" +# 3360 "parsing/parser.mly" ( _1 ) -# 35850 "parsing/parser.ml" +# 35828 "parsing/parser.ml" in -# 3362 "parsing/parser.mly" +# 3343 "parsing/parser.mly" ( _1 ) -# 35856 "parsing/parser.ml" +# 35834 "parsing/parser.ml" in -# 1930 "parsing/parser.mly" +# 1910 "parsing/parser.mly" ( psig_type _1 ) -# 35862 "parsing/parser.ml" +# 35840 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_bs_, _startpos_a_) in @@ -35866,15 +35844,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1200 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 35872 "parsing/parser.ml" +# 35850 "parsing/parser.ml" in -# 1961 "parsing/parser.mly" +# 1936 "parsing/parser.mly" ( _1 ) -# 35878 "parsing/parser.ml" +# 35856 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -35909,26 +35887,26 @@ module Tables = struct let _1 = let _1 = let _1 = -# 1373 "parsing/parser.mly" +# 1351 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 35915 "parsing/parser.ml" +# 35893 "parsing/parser.ml" in -# 3379 "parsing/parser.mly" +# 3360 "parsing/parser.mly" ( _1 ) -# 35920 "parsing/parser.ml" +# 35898 "parsing/parser.ml" in -# 3367 "parsing/parser.mly" +# 3348 "parsing/parser.mly" ( _1 ) -# 35926 "parsing/parser.ml" +# 35904 "parsing/parser.ml" in -# 1932 "parsing/parser.mly" +# 1912 "parsing/parser.mly" ( psig_typesubst _1 ) -# 35932 "parsing/parser.ml" +# 35910 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_bs_, _startpos_a_) in @@ -35936,15 +35914,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1200 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 35942 "parsing/parser.ml" +# 35920 "parsing/parser.ml" in -# 1961 "parsing/parser.mly" +# 1936 "parsing/parser.mly" ( _1 ) -# 35948 "parsing/parser.ml" +# 35926 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36029,16 +36007,16 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 36035 "parsing/parser.ml" +# 36013 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let cs = -# 1365 "parsing/parser.mly" +# 1343 "parsing/parser.mly" ( List.rev xs ) -# 36042 "parsing/parser.ml" +# 36020 "parsing/parser.ml" in let tid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in @@ -36046,46 +36024,46 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 36052 "parsing/parser.ml" +# 36030 "parsing/parser.ml" in let _4 = -# 4220 "parsing/parser.mly" +# 4201 "parsing/parser.mly" ( Recursive ) -# 36058 "parsing/parser.ml" +# 36036 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 36065 "parsing/parser.ml" +# 36043 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3660 "parsing/parser.mly" +# 3641 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) -# 36077 "parsing/parser.ml" +# 36055 "parsing/parser.ml" in -# 3647 "parsing/parser.mly" +# 3628 "parsing/parser.mly" ( _1 ) -# 36083 "parsing/parser.ml" +# 36061 "parsing/parser.ml" in -# 1934 "parsing/parser.mly" +# 1914 "parsing/parser.mly" ( psig_typext _1 ) -# 36089 "parsing/parser.ml" +# 36067 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in @@ -36093,15 +36071,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1200 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36099 "parsing/parser.ml" +# 36077 "parsing/parser.ml" in -# 1961 "parsing/parser.mly" +# 1936 "parsing/parser.mly" ( _1 ) -# 36105 "parsing/parser.ml" +# 36083 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36193,16 +36171,16 @@ module Tables = struct let attrs2 = let _1 = _1_inlined4 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 36199 "parsing/parser.ml" +# 36177 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in let cs = -# 1365 "parsing/parser.mly" +# 1343 "parsing/parser.mly" ( List.rev xs ) -# 36206 "parsing/parser.ml" +# 36184 "parsing/parser.ml" in let tid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in @@ -36210,9 +36188,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 36216 "parsing/parser.ml" +# 36194 "parsing/parser.ml" in let _4 = @@ -36221,41 +36199,41 @@ module Tables = struct let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in -# 4222 "parsing/parser.mly" +# 4203 "parsing/parser.mly" ( not_expecting _loc "nonrec flag" ) -# 36227 "parsing/parser.ml" +# 36205 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 36235 "parsing/parser.ml" +# 36213 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3660 "parsing/parser.mly" +# 3641 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) -# 36247 "parsing/parser.ml" +# 36225 "parsing/parser.ml" in -# 3647 "parsing/parser.mly" +# 3628 "parsing/parser.mly" ( _1 ) -# 36253 "parsing/parser.ml" +# 36231 "parsing/parser.ml" in -# 1934 "parsing/parser.mly" +# 1914 "parsing/parser.mly" ( psig_typext _1 ) -# 36259 "parsing/parser.ml" +# 36237 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined4_ in @@ -36263,15 +36241,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1200 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36269 "parsing/parser.ml" +# 36247 "parsing/parser.ml" in -# 1961 "parsing/parser.mly" +# 1936 "parsing/parser.mly" ( _1 ) -# 36275 "parsing/parser.ml" +# 36253 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36295,23 +36273,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1936 "parsing/parser.mly" +# 1916 "parsing/parser.mly" ( psig_exception _1 ) -# 36301 "parsing/parser.ml" +# 36279 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1200 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36309 "parsing/parser.ml" +# 36287 "parsing/parser.ml" in -# 1961 "parsing/parser.mly" +# 1936 "parsing/parser.mly" ( _1 ) -# 36315 "parsing/parser.ml" +# 36293 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36374,9 +36352,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 36380 "parsing/parser.ml" +# 36358 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -36386,37 +36364,37 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 36392 "parsing/parser.ml" +# 36370 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 36400 "parsing/parser.ml" +# 36378 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1970 "parsing/parser.mly" +# 1955 "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 ) -# 36414 "parsing/parser.ml" +# 36392 "parsing/parser.ml" in -# 1938 "parsing/parser.mly" +# 1918 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_module body, ext) ) -# 36420 "parsing/parser.ml" +# 36398 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in @@ -36424,15 +36402,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1200 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36430 "parsing/parser.ml" +# 36408 "parsing/parser.ml" in -# 1961 "parsing/parser.mly" +# 1936 "parsing/parser.mly" ( _1 ) -# 36436 "parsing/parser.ml" +# 36414 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36502,9 +36480,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined4 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 36508 "parsing/parser.ml" +# 36486 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in @@ -36515,9 +36493,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 36521 "parsing/parser.ml" +# 36499 "parsing/parser.ml" in let (_endpos_id_, _startpos_id_) = (_endpos__1_, _startpos__1_) in @@ -36525,9 +36503,9 @@ module Tables = struct let _symbolstartpos = _startpos_id_ in let _sloc = (_symbolstartpos, _endpos) in -# 2007 "parsing/parser.mly" +# 1992 "parsing/parser.mly" ( Mty.alias ~loc:(make_loc _sloc) id ) -# 36531 "parsing/parser.ml" +# 36509 "parsing/parser.ml" in let name = @@ -36536,37 +36514,37 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 36542 "parsing/parser.ml" +# 36520 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 36550 "parsing/parser.ml" +# 36528 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1998 "parsing/parser.mly" +# 1983 "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 ) -# 36564 "parsing/parser.ml" +# 36542 "parsing/parser.ml" in -# 1940 "parsing/parser.mly" +# 1920 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_module body, ext) ) -# 36570 "parsing/parser.ml" +# 36548 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined4_ in @@ -36574,15 +36552,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1200 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36580 "parsing/parser.ml" +# 36558 "parsing/parser.ml" in -# 1961 "parsing/parser.mly" +# 1936 "parsing/parser.mly" ( _1 ) -# 36586 "parsing/parser.ml" +# 36564 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36606,23 +36584,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1942 "parsing/parser.mly" +# 1922 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_modsubst body, ext) ) -# 36612 "parsing/parser.ml" +# 36590 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1200 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36620 "parsing/parser.ml" +# 36598 "parsing/parser.ml" in -# 1961 "parsing/parser.mly" +# 1936 "parsing/parser.mly" ( _1 ) -# 36626 "parsing/parser.ml" +# 36604 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36708,9 +36686,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 36714 "parsing/parser.ml" +# 36692 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -36720,49 +36698,49 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 36726 "parsing/parser.ml" +# 36704 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 36734 "parsing/parser.ml" +# 36712 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2041 "parsing/parser.mly" +# 2026 "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 ) -# 36748 "parsing/parser.ml" +# 36726 "parsing/parser.ml" in -# 1373 "parsing/parser.mly" +# 1351 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 36754 "parsing/parser.ml" +# 36732 "parsing/parser.ml" in -# 2030 "parsing/parser.mly" +# 2015 "parsing/parser.mly" ( _1 ) -# 36760 "parsing/parser.ml" +# 36738 "parsing/parser.ml" in -# 1944 "parsing/parser.mly" +# 1924 "parsing/parser.mly" ( let (ext, l) = _1 in (Psig_recmodule l, ext) ) -# 36766 "parsing/parser.ml" +# 36744 "parsing/parser.ml" in let _endpos__1_ = _endpos_bs_ in @@ -36770,15 +36748,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1200 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36776 "parsing/parser.ml" +# 36754 "parsing/parser.ml" in -# 1961 "parsing/parser.mly" +# 1936 "parsing/parser.mly" ( _1 ) -# 36782 "parsing/parser.ml" +# 36760 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36802,23 +36780,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1946 "parsing/parser.mly" +# 1926 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_modtype body, ext) ) -# 36808 "parsing/parser.ml" +# 36786 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1200 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36816 "parsing/parser.ml" +# 36794 "parsing/parser.ml" in -# 1961 "parsing/parser.mly" +# 1936 "parsing/parser.mly" ( _1 ) -# 36822 "parsing/parser.ml" +# 36800 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36842,23 +36820,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1948 "parsing/parser.mly" +# 1928 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_modtypesubst body, ext) ) -# 36848 "parsing/parser.ml" +# 36826 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1200 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36856 "parsing/parser.ml" +# 36834 "parsing/parser.ml" in -# 1961 "parsing/parser.mly" +# 1936 "parsing/parser.mly" ( _1 ) -# 36862 "parsing/parser.ml" +# 36840 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -36882,131 +36860,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1950 "parsing/parser.mly" +# 1930 "parsing/parser.mly" ( let (body, ext) = _1 in (Psig_open body, ext) ) -# 36888 "parsing/parser.ml" +# 36866 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1200 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 36896 "parsing/parser.ml" +# 36874 "parsing/parser.ml" in -# 1961 "parsing/parser.mly" - ( _1 ) -# 36902 "parsing/parser.ml" - in - { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = Obj.repr _v; - MenhirLib.EngineTypes.startp = _startpos; - MenhirLib.EngineTypes.endp = _endpos; - 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 = thing; - MenhirLib.EngineTypes.startp = _startpos_thing_; - MenhirLib.EngineTypes.endp = _endpos_thing_; - 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 = ext; - MenhirLib.EngineTypes.startp = _startpos_ext_; - MenhirLib.EngineTypes.endp = _endpos_ext_; - MenhirLib.EngineTypes.next = { - MenhirLib.EngineTypes.state = _menhir_s; - MenhirLib.EngineTypes.semv = is_functor; - MenhirLib.EngineTypes.startp = _startpos_is_functor_; - MenhirLib.EngineTypes.endp = _endpos_is_functor_; - MenhirLib.EngineTypes.next = _menhir_stack; - }; - }; - }; - }; - } = _menhir_stack in - let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in - let thing : (Parsetree.module_type) = Obj.magic thing in - let _1 : (Parsetree.attributes) = Obj.magic _1 in - let ext : (string Asttypes.loc option) = Obj.magic ext in - let is_functor : (bool) = Obj.magic is_functor in - let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in - let _startpos = _startpos_is_functor_ in - let _endpos = _endpos__1_inlined1_ in - let _v : (Parsetree.signature_item) = let _1 = - let _1 = - let _1 = - let attrs2 = - let _1 = _1_inlined1 in - -# 4385 "parsing/parser.mly" - ( _1 ) -# 36960 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined1_ in - let attrs1 = -# 4389 "parsing/parser.mly" - ( _1 ) -# 36967 "parsing/parser.ml" - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos_is_functor_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1789 "parsing/parser.mly" - ( - let attrs = attrs1 @ attrs2 in - let loc = make_loc _sloc in - let docs = symbol_docs _sloc in - let incl = Incl.mk thing ~attrs ~loc ~docs in - fun wrap jane_syntax_of -> - if is_functor then - jane_syntax_of ~loc:(make_loc _sloc) incl, ext - else - wrap (incl, ext) - ) -# 36985 "parsing/parser.ml" - - in - -# 1952 "parsing/parser.mly" - ( _1 psig_include - (fun ~loc incl -> - Jane_syntax.Include_functor.sig_item_of ~loc - (Ifsig_include_functor incl)) ) -# 36994 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_is_functor_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1200 "parsing/parser.mly" - ( wrap_mksig_ext ~loc:_sloc _1 ) -# 37004 "parsing/parser.ml" - - in - -# 1961 "parsing/parser.mly" +# 1936 "parsing/parser.mly" ( _1 ) -# 37010 "parsing/parser.ml" +# 36880 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37083,9 +36953,9 @@ module Tables = struct let cty : (Parsetree.class_type) = Obj.magic cty in let _7 : unit = Obj.magic _7 in let _1_inlined2 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 37089 "parsing/parser.ml" +# 36959 "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 @@ -37103,9 +36973,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 37109 "parsing/parser.ml" +# 36979 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -37115,24 +36985,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 37121 "parsing/parser.ml" +# 36991 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 37129 "parsing/parser.ml" +# 36999 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2388 "parsing/parser.mly" +# 2373 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -37140,25 +37010,25 @@ module Tables = struct ext, Ci.mk id cty ~virt ~params ~attrs ~loc ~docs ) -# 37144 "parsing/parser.ml" +# 37014 "parsing/parser.ml" in -# 1373 "parsing/parser.mly" +# 1351 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 37150 "parsing/parser.ml" +# 37020 "parsing/parser.ml" in -# 2376 "parsing/parser.mly" +# 2361 "parsing/parser.mly" ( _1 ) -# 37156 "parsing/parser.ml" +# 37026 "parsing/parser.ml" in -# 1957 "parsing/parser.mly" +# 1932 "parsing/parser.mly" ( let (ext, l) = _1 in (Psig_class l, ext) ) -# 37162 "parsing/parser.ml" +# 37032 "parsing/parser.ml" in let _endpos__1_ = _endpos_bs_ in @@ -37166,15 +37036,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1200 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 37172 "parsing/parser.ml" +# 37042 "parsing/parser.ml" in -# 1961 "parsing/parser.mly" +# 1936 "parsing/parser.mly" ( _1 ) -# 37178 "parsing/parser.ml" +# 37048 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37198,23 +37068,118 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.signature_item) = let _1 = let _1 = -# 1959 "parsing/parser.mly" +# 1934 "parsing/parser.mly" ( let (ext, l) = _1 in (Psig_class_type l, ext) ) -# 37204 "parsing/parser.ml" +# 37074 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1200 "parsing/parser.mly" +# 1178 "parsing/parser.mly" ( wrap_mksig_ext ~loc:_sloc _1 ) -# 37212 "parsing/parser.ml" +# 37082 "parsing/parser.ml" in -# 1961 "parsing/parser.mly" +# 1936 "parsing/parser.mly" + ( _1 ) +# 37088 "parsing/parser.ml" + in + { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = Obj.repr _v; + MenhirLib.EngineTypes.startp = _startpos; + MenhirLib.EngineTypes.endp = _endpos; + 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 = thing; + MenhirLib.EngineTypes.startp = _startpos_thing_; + MenhirLib.EngineTypes.endp = _endpos_thing_; + 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 = ext; + MenhirLib.EngineTypes.startp = _startpos_ext_; + MenhirLib.EngineTypes.endp = _endpos_ext_; + MenhirLib.EngineTypes.next = { + MenhirLib.EngineTypes.state = _menhir_s; + MenhirLib.EngineTypes.semv = is_functor; + MenhirLib.EngineTypes.startp = _startpos_is_functor_; + MenhirLib.EngineTypes.endp = _endpos_is_functor_; + MenhirLib.EngineTypes.next = _menhir_stack; + }; + }; + }; + }; + } = _menhir_stack in + let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in + let thing : (Parsetree.module_type) = Obj.magic thing in + let _1 : (Parsetree.attributes) = Obj.magic _1 in + let ext : (string Asttypes.loc option) = Obj.magic ext in + let is_functor : (bool) = Obj.magic is_functor in + let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in + let _startpos = _startpos_is_functor_ in + let _endpos = _endpos__1_inlined1_ in + let _v : (Parsetree.signature_item) = let _1 = + let attrs2 = + let _1 = _1_inlined1 in + +# 4366 "parsing/parser.mly" ( _1 ) -# 37218 "parsing/parser.ml" +# 37144 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined1_ in + let attrs1 = +# 4370 "parsing/parser.mly" + ( _1 ) +# 37151 "parsing/parser.ml" + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos_is_functor_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1773 "parsing/parser.mly" + ( + let attrs = attrs1 @ attrs2 in + let loc = make_loc _sloc in + let docs = symbol_docs _sloc in + let incl = Incl.mk thing ~attrs ~loc ~docs in + is_functor, incl, ext + ) +# 37165 "parsing/parser.ml" + + in + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_is_functor_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1938 "parsing/parser.mly" + ( let is_functor, incl, ext = _1 in + let item = + if is_functor + then Jane_syntax.Include_functor.sig_item_of ~loc:(make_loc _sloc) + (Ifsig_include_functor incl) + else mksig ~loc:_sloc (Psig_include incl) + in + wrap_sig_ext ~loc:_sloc item ext + ) +# 37183 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37237,9 +37202,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Constant.t) = -# 4041 "parsing/parser.mly" +# 4022 "parsing/parser.mly" ( _1 ) -# 37243 "parsing/parser.ml" +# 37208 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37264,19 +37229,19 @@ module Tables = struct }; } = _menhir_stack in let _2 : ( -# 940 "parsing/parser.mly" +# 918 "parsing/parser.mly" (string * char option) -# 37270 "parsing/parser.ml" +# 37235 "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 : (Constant.t) = -# 4042 "parsing/parser.mly" +# 4023 "parsing/parser.mly" ( let (n, m) = _2 in Constant.value (Pconst_integer("-" ^ n, m)) ) -# 37280 "parsing/parser.ml" +# 37245 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37301,19 +37266,19 @@ module Tables = struct }; } = _menhir_stack in let _2 : ( -# 917 "parsing/parser.mly" +# 895 "parsing/parser.mly" (string * char option) -# 37307 "parsing/parser.ml" +# 37272 "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 : (Constant.t) = -# 4044 "parsing/parser.mly" +# 4025 "parsing/parser.mly" ( let (f, m) = _2 in Constant.value (Pconst_float("-" ^ f, m)) ) -# 37317 "parsing/parser.ml" +# 37282 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37338,9 +37303,9 @@ module Tables = struct }; } = _menhir_stack in let _2 : ( -# 941 "parsing/parser.mly" +# 919 "parsing/parser.mly" (string * char option) -# 37344 "parsing/parser.ml" +# 37309 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -37351,9 +37316,9 @@ module Tables = struct let _loc__2_ = (_startpos__2_, _endpos__2_) in let _sloc = (_symbolstartpos, _endpos) in -# 4046 "parsing/parser.mly" +# 4027 "parsing/parser.mly" ( unboxed_int _sloc _loc__2_ Negative _2 ) -# 37357 "parsing/parser.ml" +# 37322 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37378,9 +37343,9 @@ module Tables = struct }; } = _menhir_stack in let _2 : ( -# 918 "parsing/parser.mly" +# 896 "parsing/parser.mly" (string * char option) -# 37384 "parsing/parser.ml" +# 37349 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -37390,9 +37355,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4047 "parsing/parser.mly" +# 4028 "parsing/parser.mly" ( unboxed_float _sloc Negative _2 ) -# 37396 "parsing/parser.ml" +# 37361 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37417,19 +37382,19 @@ module Tables = struct }; } = _menhir_stack in let _2 : ( -# 940 "parsing/parser.mly" +# 918 "parsing/parser.mly" (string * char option) -# 37423 "parsing/parser.ml" +# 37388 "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 : (Constant.t) = -# 4048 "parsing/parser.mly" +# 4029 "parsing/parser.mly" ( let (n, m) = _2 in Constant.value (Pconst_integer (n, m)) ) -# 37433 "parsing/parser.ml" +# 37398 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37454,19 +37419,19 @@ module Tables = struct }; } = _menhir_stack in let _2 : ( -# 917 "parsing/parser.mly" +# 895 "parsing/parser.mly" (string * char option) -# 37460 "parsing/parser.ml" +# 37425 "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 : (Constant.t) = -# 4050 "parsing/parser.mly" +# 4031 "parsing/parser.mly" ( let (f, m) = _2 in Constant.value (Pconst_float(f, m)) ) -# 37470 "parsing/parser.ml" +# 37435 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37491,9 +37456,9 @@ module Tables = struct }; } = _menhir_stack in let _2 : ( -# 941 "parsing/parser.mly" +# 919 "parsing/parser.mly" (string * char option) -# 37497 "parsing/parser.ml" +# 37462 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -37504,9 +37469,9 @@ module Tables = struct let _loc__2_ = (_startpos__2_, _endpos__2_) in let _sloc = (_symbolstartpos, _endpos) in -# 4052 "parsing/parser.mly" +# 4033 "parsing/parser.mly" ( unboxed_int _sloc _loc__2_ Positive _2 ) -# 37510 "parsing/parser.ml" +# 37475 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37531,9 +37496,9 @@ module Tables = struct }; } = _menhir_stack in let _2 : ( -# 918 "parsing/parser.mly" +# 896 "parsing/parser.mly" (string * char option) -# 37537 "parsing/parser.ml" +# 37502 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : unit = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -37543,9 +37508,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4053 "parsing/parser.mly" +# 4034 "parsing/parser.mly" ( unboxed_float _sloc Negative _2 ) -# 37549 "parsing/parser.ml" +# 37514 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37586,18 +37551,18 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 3291 "parsing/parser.mly" +# 3272 "parsing/parser.mly" ( let fields, closed = _1 in let closed = match closed with Some () -> Open | None -> Closed in fields, closed ) -# 37594 "parsing/parser.ml" +# 37559 "parsing/parser.ml" in -# 3255 "parsing/parser.mly" +# 3237 "parsing/parser.mly" ( let (fields, closed) = _2 in Ppat_record(fields, closed) ) -# 37601 "parsing/parser.ml" +# 37566 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37605,15 +37570,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37611 "parsing/parser.ml" +# 37576 "parsing/parser.ml" in -# 3269 "parsing/parser.mly" +# 3251 "parsing/parser.mly" ( _1 ) -# 37617 "parsing/parser.ml" +# 37582 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37654,19 +37619,19 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 3291 "parsing/parser.mly" +# 3272 "parsing/parser.mly" ( let fields, closed = _1 in let closed = match closed with Some () -> Open | None -> Closed in fields, closed ) -# 37662 "parsing/parser.ml" +# 37627 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3258 "parsing/parser.mly" +# 3240 "parsing/parser.mly" ( unclosed "{" _loc__1_ "}" _loc__3_ ) -# 37670 "parsing/parser.ml" +# 37635 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37674,15 +37639,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37680 "parsing/parser.ml" +# 37645 "parsing/parser.ml" in -# 3269 "parsing/parser.mly" +# 3251 "parsing/parser.mly" ( _1 ) -# 37686 "parsing/parser.ml" +# 37651 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37721,15 +37686,15 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _2 = -# 3285 "parsing/parser.mly" +# 3266 "parsing/parser.mly" ( ps ) -# 37727 "parsing/parser.ml" +# 37692 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3260 "parsing/parser.mly" +# 3242 "parsing/parser.mly" ( fst (mktailpat _loc__3_ _2) ) -# 37733 "parsing/parser.ml" +# 37698 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37737,15 +37702,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37743 "parsing/parser.ml" +# 37708 "parsing/parser.ml" in -# 3269 "parsing/parser.mly" +# 3251 "parsing/parser.mly" ( _1 ) -# 37749 "parsing/parser.ml" +# 37714 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37784,16 +37749,16 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _2 = -# 3285 "parsing/parser.mly" +# 3266 "parsing/parser.mly" ( ps ) -# 37790 "parsing/parser.ml" +# 37755 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3262 "parsing/parser.mly" +# 3244 "parsing/parser.mly" ( unclosed "[" _loc__1_ "]" _loc__3_ ) -# 37797 "parsing/parser.ml" +# 37762 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37801,15 +37766,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37807 "parsing/parser.ml" +# 37772 "parsing/parser.ml" in -# 3269 "parsing/parser.mly" +# 3251 "parsing/parser.mly" ( _1 ) -# 37813 "parsing/parser.ml" +# 37778 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37850,30 +37815,30 @@ module Tables = struct let _1 = let _1 = let _2 = -# 3285 "parsing/parser.mly" +# 3266 "parsing/parser.mly" ( ps ) -# 37856 "parsing/parser.ml" +# 37821 "parsing/parser.ml" in -# 2764 "parsing/parser.mly" +# 2746 "parsing/parser.mly" ( Generic_array.Simple.Literal _2 ) -# 37861 "parsing/parser.ml" +# 37826 "parsing/parser.ml" in -# 2788 "parsing/parser.mly" +# 2770 "parsing/parser.mly" ( _1 ) -# 37867 "parsing/parser.ml" +# 37832 "parsing/parser.ml" in -# 3264 "parsing/parser.mly" +# 3246 "parsing/parser.mly" ( Generic_array.Pattern.to_ast "[|" "|]" (fun elts -> Ppat_array elts) _1 ) -# 37877 "parsing/parser.ml" +# 37842 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37881,15 +37846,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37887 "parsing/parser.ml" +# 37852 "parsing/parser.ml" in -# 3269 "parsing/parser.mly" +# 3251 "parsing/parser.mly" ( _1 ) -# 37893 "parsing/parser.ml" +# 37858 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -37930,32 +37895,32 @@ module Tables = struct let _1 = let _1 = let _2 = -# 3285 "parsing/parser.mly" +# 3266 "parsing/parser.mly" ( ps ) -# 37936 "parsing/parser.ml" +# 37901 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2766 "parsing/parser.mly" +# 2748 "parsing/parser.mly" ( Generic_array.Simple.Unclosed(_loc__1_,_loc__3_) ) -# 37943 "parsing/parser.ml" +# 37908 "parsing/parser.ml" in -# 2788 "parsing/parser.mly" +# 2770 "parsing/parser.mly" ( _1 ) -# 37949 "parsing/parser.ml" +# 37914 "parsing/parser.ml" in -# 3264 "parsing/parser.mly" +# 3246 "parsing/parser.mly" ( Generic_array.Pattern.to_ast "[|" "|]" (fun elts -> Ppat_array elts) _1 ) -# 37959 "parsing/parser.ml" +# 37924 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -37963,15 +37928,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 37969 "parsing/parser.ml" +# 37934 "parsing/parser.ml" in -# 3269 "parsing/parser.mly" +# 3251 "parsing/parser.mly" ( _1 ) -# 37975 "parsing/parser.ml" +# 37940 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38004,24 +37969,24 @@ module Tables = struct let _1 = let _1 = let _1 = -# 2768 "parsing/parser.mly" +# 2750 "parsing/parser.mly" ( Generic_array.Simple.Literal [] ) -# 38010 "parsing/parser.ml" +# 37975 "parsing/parser.ml" in -# 2788 "parsing/parser.mly" +# 2770 "parsing/parser.mly" ( _1 ) -# 38015 "parsing/parser.ml" +# 37980 "parsing/parser.ml" in -# 3264 "parsing/parser.mly" +# 3246 "parsing/parser.mly" ( Generic_array.Pattern.to_ast "[|" "|]" (fun elts -> Ppat_array elts) _1 ) -# 38025 "parsing/parser.ml" +# 37990 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -38029,15 +37994,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 38035 "parsing/parser.ml" +# 38000 "parsing/parser.ml" in -# 3269 "parsing/parser.mly" +# 3251 "parsing/parser.mly" ( _1 ) -# 38041 "parsing/parser.ml" +# 38006 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38076,20 +38041,20 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _2 = -# 3285 "parsing/parser.mly" +# 3266 "parsing/parser.mly" ( ps ) -# 38082 "parsing/parser.ml" +# 38047 "parsing/parser.ml" in -# 2764 "parsing/parser.mly" +# 2746 "parsing/parser.mly" ( Generic_array.Simple.Literal _2 ) -# 38087 "parsing/parser.ml" +# 38052 "parsing/parser.ml" in -# 2788 "parsing/parser.mly" +# 2770 "parsing/parser.mly" ( _1 ) -# 38093 "parsing/parser.ml" +# 38058 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -38097,14 +38062,13 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3271 "parsing/parser.mly" - ( mkpat_jane_syntax ~loc:_sloc - (Generic_array.Pattern.to_ast - "[:" ":]" - (ppat_iarray _sloc) - _1) +# 3253 "parsing/parser.mly" + ( Generic_array.Pattern.to_ast + "[:" ":]" + (ppat_iarray _sloc) + _1 ) -# 38108 "parsing/parser.ml" +# 38072 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38143,22 +38107,22 @@ module Tables = struct let _v : (Parsetree.pattern) = let _1 = let _1 = let _2 = -# 3285 "parsing/parser.mly" +# 3266 "parsing/parser.mly" ( ps ) -# 38149 "parsing/parser.ml" +# 38113 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2766 "parsing/parser.mly" +# 2748 "parsing/parser.mly" ( Generic_array.Simple.Unclosed(_loc__1_,_loc__3_) ) -# 38156 "parsing/parser.ml" +# 38120 "parsing/parser.ml" in -# 2788 "parsing/parser.mly" +# 2770 "parsing/parser.mly" ( _1 ) -# 38162 "parsing/parser.ml" +# 38126 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -38166,14 +38130,13 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3271 "parsing/parser.mly" - ( mkpat_jane_syntax ~loc:_sloc - (Generic_array.Pattern.to_ast - "[:" ":]" - (ppat_iarray _sloc) - _1) +# 3253 "parsing/parser.mly" + ( Generic_array.Pattern.to_ast + "[:" ":]" + (ppat_iarray _sloc) + _1 ) -# 38177 "parsing/parser.ml" +# 38140 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38204,14 +38167,14 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 2768 "parsing/parser.mly" +# 2750 "parsing/parser.mly" ( Generic_array.Simple.Literal [] ) -# 38210 "parsing/parser.ml" +# 38173 "parsing/parser.ml" in -# 2788 "parsing/parser.mly" +# 2770 "parsing/parser.mly" ( _1 ) -# 38215 "parsing/parser.ml" +# 38178 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -38219,14 +38182,13 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3271 "parsing/parser.mly" - ( mkpat_jane_syntax ~loc:_sloc - (Generic_array.Pattern.to_ast - "[:" ":]" - (ppat_iarray _sloc) - _1) +# 3253 "parsing/parser.mly" + ( Generic_array.Pattern.to_ast + "[:" ":]" + (ppat_iarray _sloc) + _1 ) -# 38230 "parsing/parser.ml" +# 38192 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38266,9 +38228,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2655 "parsing/parser.mly" +# 2640 "parsing/parser.mly" ( reloc_exp ~loc:_sloc _2 ) -# 38272 "parsing/parser.ml" +# 38234 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38307,9 +38269,9 @@ module Tables = struct let _v : (Parsetree.expression) = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2657 "parsing/parser.mly" +# 2642 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 38313 "parsing/parser.ml" +# 38275 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38356,9 +38318,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2659 "parsing/parser.mly" +# 2644 "parsing/parser.mly" ( mkexp_constraint ~loc:_sloc _2 _3 ) -# 38362 "parsing/parser.ml" +# 38324 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38410,14 +38372,14 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2660 "parsing/parser.mly" +# 2645 "parsing/parser.mly" ( None ) -# 38416 "parsing/parser.ml" +# 38378 "parsing/parser.ml" in -# 2545 "parsing/parser.mly" +# 2530 "parsing/parser.mly" ( array, d, Paren, i, r ) -# 38421 "parsing/parser.ml" +# 38383 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38425,9 +38387,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2661 "parsing/parser.mly" +# 2646 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 38431 "parsing/parser.ml" +# 38393 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38479,14 +38441,14 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2660 "parsing/parser.mly" +# 2645 "parsing/parser.mly" ( None ) -# 38485 "parsing/parser.ml" +# 38447 "parsing/parser.ml" in -# 2547 "parsing/parser.mly" +# 2532 "parsing/parser.mly" ( array, d, Brace, i, r ) -# 38490 "parsing/parser.ml" +# 38452 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38494,9 +38456,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2661 "parsing/parser.mly" +# 2646 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 38500 "parsing/parser.ml" +# 38462 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38548,14 +38510,14 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2660 "parsing/parser.mly" +# 2645 "parsing/parser.mly" ( None ) -# 38554 "parsing/parser.ml" +# 38516 "parsing/parser.ml" in -# 2549 "parsing/parser.mly" +# 2534 "parsing/parser.mly" ( array, d, Bracket, i, r ) -# 38559 "parsing/parser.ml" +# 38521 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38563,9 +38525,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2661 "parsing/parser.mly" +# 2646 "parsing/parser.mly" ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 ) -# 38569 "parsing/parser.ml" +# 38531 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38611,9 +38573,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 935 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 38617 "parsing/parser.ml" +# 38579 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -38621,31 +38583,31 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2664 "parsing/parser.mly" +# 2649 "parsing/parser.mly" ( None ) -# 38627 "parsing/parser.ml" +# 38589 "parsing/parser.ml" in let i = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 38632 "parsing/parser.ml" +# 38594 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) -# 38638 "parsing/parser.ml" +# 38600 "parsing/parser.ml" in -# 2561 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1, _2 ) -# 38643 "parsing/parser.ml" +# 38605 "parsing/parser.ml" in -# 2545 "parsing/parser.mly" +# 2530 "parsing/parser.mly" ( array, d, Paren, i, r ) -# 38649 "parsing/parser.ml" +# 38611 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38653,9 +38615,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2665 "parsing/parser.mly" +# 2650 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 38659 "parsing/parser.ml" +# 38621 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38713,9 +38675,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 935 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 38719 "parsing/parser.ml" +# 38681 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -38725,39 +38687,39 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2664 "parsing/parser.mly" +# 2649 "parsing/parser.mly" ( None ) -# 38731 "parsing/parser.ml" +# 38693 "parsing/parser.ml" in let i = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 38736 "parsing/parser.ml" +# 38698 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = -# 2561 "parsing/parser.mly" +# 2546 "parsing/parser.mly" (_2) -# 38744 "parsing/parser.ml" +# 38706 "parsing/parser.ml" in # 126 "" ( Some x ) -# 38749 "parsing/parser.ml" +# 38711 "parsing/parser.ml" in -# 2561 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1, _2 ) -# 38755 "parsing/parser.ml" +# 38717 "parsing/parser.ml" in -# 2545 "parsing/parser.mly" +# 2530 "parsing/parser.mly" ( array, d, Paren, i, r ) -# 38761 "parsing/parser.ml" +# 38723 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38765,9 +38727,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2665 "parsing/parser.mly" +# 2650 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 38771 "parsing/parser.ml" +# 38733 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38813,9 +38775,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 935 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 38819 "parsing/parser.ml" +# 38781 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -38823,31 +38785,31 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2664 "parsing/parser.mly" +# 2649 "parsing/parser.mly" ( None ) -# 38829 "parsing/parser.ml" +# 38791 "parsing/parser.ml" in let i = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 38834 "parsing/parser.ml" +# 38796 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) -# 38840 "parsing/parser.ml" +# 38802 "parsing/parser.ml" in -# 2561 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1, _2 ) -# 38845 "parsing/parser.ml" +# 38807 "parsing/parser.ml" in -# 2547 "parsing/parser.mly" +# 2532 "parsing/parser.mly" ( array, d, Brace, i, r ) -# 38851 "parsing/parser.ml" +# 38813 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38855,9 +38817,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2665 "parsing/parser.mly" +# 2650 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 38861 "parsing/parser.ml" +# 38823 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -38915,9 +38877,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 935 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 38921 "parsing/parser.ml" +# 38883 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -38927,39 +38889,39 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2664 "parsing/parser.mly" +# 2649 "parsing/parser.mly" ( None ) -# 38933 "parsing/parser.ml" +# 38895 "parsing/parser.ml" in let i = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 38938 "parsing/parser.ml" +# 38900 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = -# 2561 "parsing/parser.mly" +# 2546 "parsing/parser.mly" (_2) -# 38946 "parsing/parser.ml" +# 38908 "parsing/parser.ml" in # 126 "" ( Some x ) -# 38951 "parsing/parser.ml" +# 38913 "parsing/parser.ml" in -# 2561 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1, _2 ) -# 38957 "parsing/parser.ml" +# 38919 "parsing/parser.ml" in -# 2547 "parsing/parser.mly" +# 2532 "parsing/parser.mly" ( array, d, Brace, i, r ) -# 38963 "parsing/parser.ml" +# 38925 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -38967,9 +38929,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2665 "parsing/parser.mly" +# 2650 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 38973 "parsing/parser.ml" +# 38935 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39015,9 +38977,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 935 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 39021 "parsing/parser.ml" +# 38983 "parsing/parser.ml" ) = Obj.magic _2 in let array : (Parsetree.expression) = Obj.magic array in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -39025,31 +38987,31 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2664 "parsing/parser.mly" +# 2649 "parsing/parser.mly" ( None ) -# 39031 "parsing/parser.ml" +# 38993 "parsing/parser.ml" in let i = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 39036 "parsing/parser.ml" +# 38998 "parsing/parser.ml" in let d = let _1 = # 124 "" ( None ) -# 39042 "parsing/parser.ml" +# 39004 "parsing/parser.ml" in -# 2561 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1, _2 ) -# 39047 "parsing/parser.ml" +# 39009 "parsing/parser.ml" in -# 2549 "parsing/parser.mly" +# 2534 "parsing/parser.mly" ( array, d, Bracket, i, r ) -# 39053 "parsing/parser.ml" +# 39015 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -39057,9 +39019,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2665 "parsing/parser.mly" +# 2650 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 39063 "parsing/parser.ml" +# 39025 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39117,9 +39079,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _3 : unit = Obj.magic _3 in let _2 : ( -# 935 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 39123 "parsing/parser.ml" +# 39085 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1 : unit = Obj.magic _1 in @@ -39129,39 +39091,39 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let r = -# 2664 "parsing/parser.mly" +# 2649 "parsing/parser.mly" ( None ) -# 39135 "parsing/parser.ml" +# 39097 "parsing/parser.ml" in let i = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 39140 "parsing/parser.ml" +# 39102 "parsing/parser.ml" in let d = let _1 = let _2 = _2_inlined1 in let x = -# 2561 "parsing/parser.mly" +# 2546 "parsing/parser.mly" (_2) -# 39148 "parsing/parser.ml" +# 39110 "parsing/parser.ml" in # 126 "" ( Some x ) -# 39153 "parsing/parser.ml" +# 39115 "parsing/parser.ml" in -# 2561 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1, _2 ) -# 39159 "parsing/parser.ml" +# 39121 "parsing/parser.ml" in -# 2549 "parsing/parser.mly" +# 2534 "parsing/parser.mly" ( array, d, Bracket, i, r ) -# 39165 "parsing/parser.ml" +# 39127 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in @@ -39169,9 +39131,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2665 "parsing/parser.mly" +# 2650 "parsing/parser.mly" ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 ) -# 39175 "parsing/parser.ml" +# 39137 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39225,15 +39187,15 @@ module Tables = struct let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2554 "parsing/parser.mly" +# 2539 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Paren _loc__e_ ) -# 39231 "parsing/parser.ml" +# 39193 "parsing/parser.ml" in -# 2666 "parsing/parser.mly" +# 2651 "parsing/parser.mly" ( _1 ) -# 39237 "parsing/parser.ml" +# 39199 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39287,15 +39249,15 @@ module Tables = struct let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2556 "parsing/parser.mly" +# 2541 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Brace _loc__e_ ) -# 39293 "parsing/parser.ml" +# 39255 "parsing/parser.ml" in -# 2666 "parsing/parser.mly" +# 2651 "parsing/parser.mly" ( _1 ) -# 39299 "parsing/parser.ml" +# 39261 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39349,15 +39311,15 @@ module Tables = struct let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2558 "parsing/parser.mly" +# 2543 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Bracket _loc__e_ ) -# 39355 "parsing/parser.ml" +# 39317 "parsing/parser.ml" in -# 2666 "parsing/parser.mly" +# 2651 "parsing/parser.mly" ( _1 ) -# 39361 "parsing/parser.ml" +# 39323 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39403,9 +39365,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 935 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 39409 "parsing/parser.ml" +# 39371 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -39413,34 +39375,34 @@ module Tables = struct let _endpos = _endpos__e_ in let _v : (Parsetree.expression) = let _1 = let _4 = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 39419 "parsing/parser.ml" +# 39381 "parsing/parser.ml" in let _2 = let _1 = # 124 "" ( None ) -# 39425 "parsing/parser.ml" +# 39387 "parsing/parser.ml" in -# 2561 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1, _2 ) -# 39430 "parsing/parser.ml" +# 39392 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2554 "parsing/parser.mly" +# 2539 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Paren _loc__e_ ) -# 39438 "parsing/parser.ml" +# 39400 "parsing/parser.ml" in -# 2667 "parsing/parser.mly" +# 2652 "parsing/parser.mly" ( _1 ) -# 39444 "parsing/parser.ml" +# 39406 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39498,9 +39460,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 935 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 39504 "parsing/parser.ml" +# 39466 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in @@ -39510,42 +39472,42 @@ module Tables = struct let _endpos = _endpos__e_ in let _v : (Parsetree.expression) = let _1 = let _4 = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 39516 "parsing/parser.ml" +# 39478 "parsing/parser.ml" in let _2 = let _1 = let _2 = _2_inlined1 in let x = -# 2561 "parsing/parser.mly" +# 2546 "parsing/parser.mly" (_2) -# 39524 "parsing/parser.ml" +# 39486 "parsing/parser.ml" in # 126 "" ( Some x ) -# 39529 "parsing/parser.ml" +# 39491 "parsing/parser.ml" in -# 2561 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1, _2 ) -# 39535 "parsing/parser.ml" +# 39497 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2554 "parsing/parser.mly" +# 2539 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Paren _loc__e_ ) -# 39543 "parsing/parser.ml" +# 39505 "parsing/parser.ml" in -# 2667 "parsing/parser.mly" +# 2652 "parsing/parser.mly" ( _1 ) -# 39549 "parsing/parser.ml" +# 39511 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39591,9 +39553,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 935 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 39597 "parsing/parser.ml" +# 39559 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -39601,34 +39563,34 @@ module Tables = struct let _endpos = _endpos__e_ in let _v : (Parsetree.expression) = let _1 = let _4 = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 39607 "parsing/parser.ml" +# 39569 "parsing/parser.ml" in let _2 = let _1 = # 124 "" ( None ) -# 39613 "parsing/parser.ml" +# 39575 "parsing/parser.ml" in -# 2561 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1, _2 ) -# 39618 "parsing/parser.ml" +# 39580 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2556 "parsing/parser.mly" +# 2541 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Brace _loc__e_ ) -# 39626 "parsing/parser.ml" +# 39588 "parsing/parser.ml" in -# 2667 "parsing/parser.mly" +# 2652 "parsing/parser.mly" ( _1 ) -# 39632 "parsing/parser.ml" +# 39594 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39686,9 +39648,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 935 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 39692 "parsing/parser.ml" +# 39654 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in @@ -39698,42 +39660,42 @@ module Tables = struct let _endpos = _endpos__e_ in let _v : (Parsetree.expression) = let _1 = let _4 = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 39704 "parsing/parser.ml" +# 39666 "parsing/parser.ml" in let _2 = let _1 = let _2 = _2_inlined1 in let x = -# 2561 "parsing/parser.mly" +# 2546 "parsing/parser.mly" (_2) -# 39712 "parsing/parser.ml" +# 39674 "parsing/parser.ml" in # 126 "" ( Some x ) -# 39717 "parsing/parser.ml" +# 39679 "parsing/parser.ml" in -# 2561 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1, _2 ) -# 39723 "parsing/parser.ml" +# 39685 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2556 "parsing/parser.mly" +# 2541 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Brace _loc__e_ ) -# 39731 "parsing/parser.ml" +# 39693 "parsing/parser.ml" in -# 2667 "parsing/parser.mly" +# 2652 "parsing/parser.mly" ( _1 ) -# 39737 "parsing/parser.ml" +# 39699 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39779,9 +39741,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 935 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 39785 "parsing/parser.ml" +# 39747 "parsing/parser.ml" ) = Obj.magic _2 in let _1 : (Parsetree.expression) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in @@ -39789,34 +39751,34 @@ module Tables = struct let _endpos = _endpos__e_ in let _v : (Parsetree.expression) = let _1 = let _4 = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 39795 "parsing/parser.ml" +# 39757 "parsing/parser.ml" in let _2 = let _1 = # 124 "" ( None ) -# 39801 "parsing/parser.ml" +# 39763 "parsing/parser.ml" in -# 2561 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1, _2 ) -# 39806 "parsing/parser.ml" +# 39768 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2558 "parsing/parser.mly" +# 2543 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Bracket _loc__e_ ) -# 39814 "parsing/parser.ml" +# 39776 "parsing/parser.ml" in -# 2667 "parsing/parser.mly" +# 2652 "parsing/parser.mly" ( _1 ) -# 39820 "parsing/parser.ml" +# 39782 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39874,9 +39836,9 @@ module Tables = struct let es : (Parsetree.expression list) = Obj.magic es in let _p : unit = Obj.magic _p in let _2 : ( -# 935 "parsing/parser.mly" +# 913 "parsing/parser.mly" (string) -# 39880 "parsing/parser.ml" +# 39842 "parsing/parser.ml" ) = Obj.magic _2 in let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in @@ -39886,42 +39848,42 @@ module Tables = struct let _endpos = _endpos__e_ in let _v : (Parsetree.expression) = let _1 = let _4 = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 39892 "parsing/parser.ml" +# 39854 "parsing/parser.ml" in let _2 = let _1 = let _2 = _2_inlined1 in let x = -# 2561 "parsing/parser.mly" +# 2546 "parsing/parser.mly" (_2) -# 39900 "parsing/parser.ml" +# 39862 "parsing/parser.ml" in # 126 "" ( Some x ) -# 39905 "parsing/parser.ml" +# 39867 "parsing/parser.ml" in -# 2561 "parsing/parser.mly" +# 2546 "parsing/parser.mly" ( _1, _2 ) -# 39911 "parsing/parser.ml" +# 39873 "parsing/parser.ml" in let _loc__p_ = (_startpos__p_, _endpos__p_) in let _loc__e_ = (_startpos__e_, _endpos__e_) in -# 2558 "parsing/parser.mly" +# 2543 "parsing/parser.mly" ( indexop_unclosed_error _loc__p_ Bracket _loc__e_ ) -# 39919 "parsing/parser.ml" +# 39881 "parsing/parser.ml" in -# 2667 "parsing/parser.mly" +# 2652 "parsing/parser.mly" ( _1 ) -# 39925 "parsing/parser.ml" +# 39887 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -39975,15 +39937,15 @@ module Tables = struct let attrs = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 39981 "parsing/parser.ml" +# 39943 "parsing/parser.ml" in -# 2692 "parsing/parser.mly" +# 2676 "parsing/parser.mly" ( e.pexp_desc, (ext, attrs @ e.pexp_attributes) ) -# 39987 "parsing/parser.ml" +# 39949 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -39991,10 +39953,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2669 "parsing/parser.mly" +# 2654 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 39998 "parsing/parser.ml" +# 39960 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40043,24 +40005,24 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 40049 "parsing/parser.ml" +# 40011 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 40055 "parsing/parser.ml" +# 40017 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2694 "parsing/parser.mly" +# 2678 "parsing/parser.mly" ( Pexp_construct (mkloc (Lident "()") (make_loc _sloc), None), _2 ) -# 40064 "parsing/parser.ml" +# 40026 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -40068,10 +40030,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2669 "parsing/parser.mly" +# 2654 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 40075 "parsing/parser.ml" +# 40037 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40127,23 +40089,23 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 40133 "parsing/parser.ml" +# 40095 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 40139 "parsing/parser.ml" +# 40101 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2696 "parsing/parser.mly" +# 2680 "parsing/parser.mly" ( unclosed "begin" _loc__1_ "end" _loc__4_ ) -# 40147 "parsing/parser.ml" +# 40109 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -40151,10 +40113,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2669 "parsing/parser.mly" +# 2654 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 40158 "parsing/parser.ml" +# 40120 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40204,9 +40166,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 40210 "parsing/parser.ml" +# 40172 "parsing/parser.ml" in let _2 = @@ -40214,21 +40176,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 40220 "parsing/parser.ml" +# 40182 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 40226 "parsing/parser.ml" +# 40188 "parsing/parser.ml" in -# 2698 "parsing/parser.mly" +# 2682 "parsing/parser.mly" ( Pexp_new(_3), _2 ) -# 40232 "parsing/parser.ml" +# 40194 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in @@ -40236,10 +40198,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2669 "parsing/parser.mly" +# 2654 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 40243 "parsing/parser.ml" +# 40205 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40302,21 +40264,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 40308 "parsing/parser.ml" +# 40270 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 40314 "parsing/parser.ml" +# 40276 "parsing/parser.ml" in -# 2700 "parsing/parser.mly" +# 2684 "parsing/parser.mly" ( Pexp_pack _4, _3 ) -# 40320 "parsing/parser.ml" +# 40282 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -40324,10 +40286,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2669 "parsing/parser.mly" +# 2654 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 40331 "parsing/parser.ml" +# 40293 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40405,11 +40367,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3950 "parsing/parser.mly" +# 3931 "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 ) -# 40413 "parsing/parser.ml" +# 40375 "parsing/parser.ml" in let _3 = @@ -40417,24 +40379,24 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 40423 "parsing/parser.ml" +# 40385 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 40429 "parsing/parser.ml" +# 40391 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2702 "parsing/parser.mly" +# 2686 "parsing/parser.mly" ( Pexp_constraint (ghexp ~loc:_sloc (Pexp_pack _4), _6), _3 ) -# 40438 "parsing/parser.ml" +# 40400 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -40442,10 +40404,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2669 "parsing/parser.mly" +# 2654 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 40449 "parsing/parser.ml" +# 40411 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40515,23 +40477,23 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 40521 "parsing/parser.ml" +# 40483 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 40527 "parsing/parser.ml" +# 40489 "parsing/parser.ml" in let _loc__6_ = (_startpos__6_, _endpos__6_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2704 "parsing/parser.mly" +# 2688 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__6_ ) -# 40535 "parsing/parser.ml" +# 40497 "parsing/parser.ml" in let _endpos__1_ = _endpos__6_ in @@ -40539,10 +40501,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2669 "parsing/parser.mly" +# 2654 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 40546 "parsing/parser.ml" +# 40508 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40607,27 +40569,27 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 40611 "parsing/parser.ml" +# 40573 "parsing/parser.ml" in -# 2204 "parsing/parser.mly" +# 2189 "parsing/parser.mly" ( _1 ) -# 40616 "parsing/parser.ml" +# 40578 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1136 "parsing/parser.mly" +# 1114 "parsing/parser.mly" ( extra_cstr _startpos _endpos _1 ) -# 40625 "parsing/parser.ml" +# 40587 "parsing/parser.ml" in -# 2191 "parsing/parser.mly" +# 2176 "parsing/parser.mly" ( Cstr.mk _1 _2 ) -# 40631 "parsing/parser.ml" +# 40593 "parsing/parser.ml" in let _2 = @@ -40635,21 +40597,21 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 40641 "parsing/parser.ml" +# 40603 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 40647 "parsing/parser.ml" +# 40609 "parsing/parser.ml" in -# 2706 "parsing/parser.mly" +# 2690 "parsing/parser.mly" ( Pexp_object _3, _2 ) -# 40653 "parsing/parser.ml" +# 40615 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -40657,10 +40619,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2669 "parsing/parser.mly" +# 2654 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 40664 "parsing/parser.ml" +# 40626 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40725,27 +40687,27 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 40729 "parsing/parser.ml" +# 40691 "parsing/parser.ml" in -# 2204 "parsing/parser.mly" +# 2189 "parsing/parser.mly" ( _1 ) -# 40734 "parsing/parser.ml" +# 40696 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1136 "parsing/parser.mly" +# 1114 "parsing/parser.mly" ( extra_cstr _startpos _endpos _1 ) -# 40743 "parsing/parser.ml" +# 40705 "parsing/parser.ml" in -# 2191 "parsing/parser.mly" +# 2176 "parsing/parser.mly" ( Cstr.mk _1 _2 ) -# 40749 "parsing/parser.ml" +# 40711 "parsing/parser.ml" in let _2 = @@ -40753,23 +40715,23 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 40759 "parsing/parser.ml" +# 40721 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 40765 "parsing/parser.ml" +# 40727 "parsing/parser.ml" in let _loc__4_ = (_startpos__4_, _endpos__4_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2708 "parsing/parser.mly" +# 2692 "parsing/parser.mly" ( unclosed "object" _loc__1_ "end" _loc__4_ ) -# 40773 "parsing/parser.ml" +# 40735 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -40777,10 +40739,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2669 "parsing/parser.mly" +# 2654 "parsing/parser.mly" ( let desc, attrs = _1 in mkexp_attrs ~loc:_sloc desc attrs ) -# 40784 "parsing/parser.ml" +# 40746 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40809,30 +40771,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 40815 "parsing/parser.ml" +# 40777 "parsing/parser.ml" in -# 2798 "parsing/parser.mly" +# 2780 "parsing/parser.mly" ( Pexp_ident (_1) ) -# 40821 "parsing/parser.ml" +# 40783 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40830 "parsing/parser.ml" +# 40792 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 40836 "parsing/parser.ml" +# 40798 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40861,30 +40823,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 40867 "parsing/parser.ml" +# 40829 "parsing/parser.ml" in -# 2800 "parsing/parser.mly" +# 2782 "parsing/parser.mly" ( Pexp_construct(_1, None) ) -# 40873 "parsing/parser.ml" +# 40835 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40882 "parsing/parser.ml" +# 40844 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 40888 "parsing/parser.ml" +# 40850 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40908,23 +40870,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2802 "parsing/parser.mly" +# 2784 "parsing/parser.mly" ( Pexp_variant(_1, None) ) -# 40914 "parsing/parser.ml" +# 40876 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40922 "parsing/parser.ml" +# 40884 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 40928 "parsing/parser.ml" +# 40890 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -40950,9 +40912,9 @@ module Tables = struct } = _menhir_stack in let _2 : (Parsetree.expression) = Obj.magic _2 in let _1 : ( -# 981 "parsing/parser.mly" +# 959 "parsing/parser.mly" (string) -# 40956 "parsing/parser.ml" +# 40918 "parsing/parser.ml" ) = Obj.magic _1 in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos__1_ in @@ -40964,15 +40926,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1169 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 40970 "parsing/parser.ml" +# 40932 "parsing/parser.ml" in -# 2804 "parsing/parser.mly" +# 2786 "parsing/parser.mly" ( Pexp_apply(_1, [Nolabel,_2]) ) -# 40976 "parsing/parser.ml" +# 40938 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -40980,15 +40942,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 40986 "parsing/parser.ml" +# 40948 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 40992 "parsing/parser.ml" +# 40954 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41021,23 +40983,23 @@ module Tables = struct let _1 = let _1 = let _1 = -# 2805 "parsing/parser.mly" +# 2787 "parsing/parser.mly" ("!") -# 41027 "parsing/parser.ml" +# 40989 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1169 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 41035 "parsing/parser.ml" +# 40997 "parsing/parser.ml" in -# 2806 "parsing/parser.mly" +# 2788 "parsing/parser.mly" ( Pexp_apply(_1, [Nolabel,_2]) ) -# 41041 "parsing/parser.ml" +# 41003 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -41045,15 +41007,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41051 "parsing/parser.ml" +# 41013 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 41057 "parsing/parser.ml" +# 41019 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41092,14 +41054,14 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _2 = -# 3091 "parsing/parser.mly" +# 3073 "parsing/parser.mly" ( xs ) -# 41098 "parsing/parser.ml" +# 41060 "parsing/parser.ml" in -# 2808 "parsing/parser.mly" +# 2790 "parsing/parser.mly" ( Pexp_override _2 ) -# 41103 "parsing/parser.ml" +# 41065 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -41107,15 +41069,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41113 "parsing/parser.ml" +# 41075 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 41119 "parsing/parser.ml" +# 41081 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41154,16 +41116,16 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _2 = -# 3091 "parsing/parser.mly" +# 3073 "parsing/parser.mly" ( xs ) -# 41160 "parsing/parser.ml" +# 41122 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2810 "parsing/parser.mly" +# 2792 "parsing/parser.mly" ( unclosed "{<" _loc__1_ ">}" _loc__3_ ) -# 41167 "parsing/parser.ml" +# 41129 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -41171,15 +41133,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41177 "parsing/parser.ml" +# 41139 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 41183 "parsing/parser.ml" +# 41145 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41210,24 +41172,24 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2812 "parsing/parser.mly" +# 2794 "parsing/parser.mly" ( Pexp_override [] ) -# 41216 "parsing/parser.ml" +# 41178 "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 -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41225 "parsing/parser.ml" +# 41187 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 41231 "parsing/parser.ml" +# 41193 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41271,15 +41233,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41277 "parsing/parser.ml" +# 41239 "parsing/parser.ml" in -# 2814 "parsing/parser.mly" +# 2796 "parsing/parser.mly" ( Pexp_field(_1, _3) ) -# 41283 "parsing/parser.ml" +# 41245 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -41287,15 +41249,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41293 "parsing/parser.ml" +# 41255 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 41299 "parsing/parser.ml" +# 41261 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41353,24 +41315,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41359 "parsing/parser.ml" +# 41321 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1853 "parsing/parser.mly" +# 1833 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 41368 "parsing/parser.ml" +# 41330 "parsing/parser.ml" in -# 2816 "parsing/parser.mly" +# 2798 "parsing/parser.mly" ( Pexp_open(od, _4) ) -# 41374 "parsing/parser.ml" +# 41336 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -41378,15 +41340,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41384 "parsing/parser.ml" +# 41346 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 41390 "parsing/parser.ml" +# 41352 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41439,9 +41401,9 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _4 = -# 3091 "parsing/parser.mly" +# 3073 "parsing/parser.mly" ( xs ) -# 41445 "parsing/parser.ml" +# 41407 "parsing/parser.ml" in let od = let _1 = @@ -41449,18 +41411,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41455 "parsing/parser.ml" +# 41417 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1853 "parsing/parser.mly" +# 1833 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 41464 "parsing/parser.ml" +# 41426 "parsing/parser.ml" in let _startpos_od_ = _startpos__1_ in @@ -41468,10 +41430,10 @@ module Tables = struct let _symbolstartpos = _startpos_od_ in let _sloc = (_symbolstartpos, _endpos) in -# 2818 "parsing/parser.mly" +# 2800 "parsing/parser.mly" ( (* TODO: review the location of Pexp_override *) Pexp_open(od, mkexp ~loc:_sloc (Pexp_override _4)) ) -# 41475 "parsing/parser.ml" +# 41437 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -41479,15 +41441,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41485 "parsing/parser.ml" +# 41447 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 41491 "parsing/parser.ml" +# 41453 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41540,16 +41502,16 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _4 = -# 3091 "parsing/parser.mly" +# 3073 "parsing/parser.mly" ( xs ) -# 41546 "parsing/parser.ml" +# 41508 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2821 "parsing/parser.mly" +# 2803 "parsing/parser.mly" ( unclosed "{<" _loc__3_ ">}" _loc__5_ ) -# 41553 "parsing/parser.ml" +# 41515 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -41557,15 +41519,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41563 "parsing/parser.ml" +# 41525 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 41569 "parsing/parser.ml" +# 41531 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41596,9 +41558,9 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined2 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 41602 "parsing/parser.ml" +# 41564 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : (Parsetree.expression) = Obj.magic _1 in @@ -41610,28 +41572,28 @@ module Tables = struct let _3 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = -# 4024 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( _1 ) -# 41616 "parsing/parser.ml" +# 41578 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41624 "parsing/parser.ml" +# 41586 "parsing/parser.ml" in let _2 = -# 2792 "parsing/parser.mly" +# 2774 "parsing/parser.mly" ( () ) -# 41630 "parsing/parser.ml" +# 41592 "parsing/parser.ml" in -# 2823 "parsing/parser.mly" +# 2805 "parsing/parser.mly" ( Pexp_send(_1, _3) ) -# 41635 "parsing/parser.ml" +# 41597 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined2_ in @@ -41639,15 +41601,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41645 "parsing/parser.ml" +# 41607 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 41651 "parsing/parser.ml" +# 41613 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41678,9 +41640,9 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined2 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 41684 "parsing/parser.ml" +# 41646 "parsing/parser.ml" ) = Obj.magic _1_inlined2 in let _1_inlined1 : unit = Obj.magic _1_inlined1 in let _1 : (Parsetree.expression) = Obj.magic _1 in @@ -41692,28 +41654,28 @@ module Tables = struct let _3 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = -# 4024 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( _1 ) -# 41698 "parsing/parser.ml" +# 41660 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41706 "parsing/parser.ml" +# 41668 "parsing/parser.ml" in let _2 = -# 2793 "parsing/parser.mly" +# 2775 "parsing/parser.mly" ( () ) -# 41712 "parsing/parser.ml" +# 41674 "parsing/parser.ml" in -# 2823 "parsing/parser.mly" +# 2805 "parsing/parser.mly" ( Pexp_send(_1, _3) ) -# 41717 "parsing/parser.ml" +# 41679 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined2_ in @@ -41721,15 +41683,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41727 "parsing/parser.ml" +# 41689 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 41733 "parsing/parser.ml" +# 41695 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41761,9 +41723,9 @@ module Tables = struct } = _menhir_stack in let _3 : (Parsetree.expression) = Obj.magic _3 in let _1_inlined1 : ( -# 993 "parsing/parser.mly" +# 971 "parsing/parser.mly" (string) -# 41767 "parsing/parser.ml" +# 41729 "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 @@ -41777,15 +41739,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1169 "parsing/parser.mly" +# 1147 "parsing/parser.mly" ( mkoperator ~loc:_sloc _1 ) -# 41783 "parsing/parser.ml" +# 41745 "parsing/parser.ml" in -# 2825 "parsing/parser.mly" +# 2807 "parsing/parser.mly" ( mkinfix _1 _2 _3 ) -# 41789 "parsing/parser.ml" +# 41751 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -41793,15 +41755,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41799 "parsing/parser.ml" +# 41761 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 41805 "parsing/parser.ml" +# 41767 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41825,23 +41787,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2827 "parsing/parser.mly" +# 2809 "parsing/parser.mly" ( Pexp_extension _1 ) -# 41831 "parsing/parser.ml" +# 41793 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41839 "parsing/parser.ml" +# 41801 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 41845 "parsing/parser.ml" +# 41807 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41889,18 +41851,18 @@ module Tables = struct let _3 = let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in let _1 = -# 2828 "parsing/parser.mly" +# 2810 "parsing/parser.mly" (Lident "()") -# 41895 "parsing/parser.ml" +# 41857 "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 -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41904 "parsing/parser.ml" +# 41866 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in @@ -41910,25 +41872,25 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 41916 "parsing/parser.ml" +# 41878 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1853 "parsing/parser.mly" +# 1833 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 41925 "parsing/parser.ml" +# 41887 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2829 "parsing/parser.mly" +# 2811 "parsing/parser.mly" ( Pexp_open(od, mkexp ~loc:(_loc__3_) (Pexp_construct(_3, None))) ) -# 41932 "parsing/parser.ml" +# 41894 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_inlined1_ in @@ -41936,15 +41898,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 41942 "parsing/parser.ml" +# 41904 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 41948 "parsing/parser.ml" +# 41910 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -41999,9 +41961,9 @@ module Tables = struct let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2831 "parsing/parser.mly" +# 2813 "parsing/parser.mly" ( unclosed "(" _loc__3_ ")" _loc__5_ ) -# 42005 "parsing/parser.ml" +# 41967 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -42009,15 +41971,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42015 "parsing/parser.ml" +# 41977 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 42021 "parsing/parser.ml" +# 41983 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42056,25 +42018,25 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2833 "parsing/parser.mly" +# 2815 "parsing/parser.mly" ( let (exten, fields) = _2 in Pexp_record(fields, exten) ) -# 42063 "parsing/parser.ml" +# 42025 "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 -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42072 "parsing/parser.ml" +# 42034 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 42078 "parsing/parser.ml" +# 42040 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42116,9 +42078,9 @@ module Tables = struct let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2836 "parsing/parser.mly" +# 2818 "parsing/parser.mly" ( unclosed "{" _loc__1_ "}" _loc__3_ ) -# 42122 "parsing/parser.ml" +# 42084 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -42126,15 +42088,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42132 "parsing/parser.ml" +# 42094 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 42138 "parsing/parser.ml" +# 42100 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42193,27 +42155,27 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 42199 "parsing/parser.ml" +# 42161 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1853 "parsing/parser.mly" +# 1833 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 42208 "parsing/parser.ml" +# 42170 "parsing/parser.ml" in let _endpos = _endpos__5_ in -# 2838 "parsing/parser.mly" +# 2820 "parsing/parser.mly" ( let (exten, fields) = _4 in Pexp_open(od, mkexp ~loc:(_startpos__3_, _endpos) (Pexp_record(fields, exten))) ) -# 42217 "parsing/parser.ml" +# 42179 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -42221,15 +42183,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42227 "parsing/parser.ml" +# 42189 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 42233 "parsing/parser.ml" +# 42195 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42285,9 +42247,9 @@ module Tables = struct let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2842 "parsing/parser.mly" +# 2824 "parsing/parser.mly" ( unclosed "{" _loc__3_ "}" _loc__5_ ) -# 42291 "parsing/parser.ml" +# 42253 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -42295,15 +42257,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42301 "parsing/parser.ml" +# 42263 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 42307 "parsing/parser.ml" +# 42269 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42344,30 +42306,30 @@ module Tables = struct let _1 = let _1 = let _2 = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 42350 "parsing/parser.ml" +# 42312 "parsing/parser.ml" in -# 2764 "parsing/parser.mly" +# 2746 "parsing/parser.mly" ( Generic_array.Simple.Literal _2 ) -# 42355 "parsing/parser.ml" +# 42317 "parsing/parser.ml" in -# 2773 "parsing/parser.mly" +# 2755 "parsing/parser.mly" ( Generic_array.Expression.Simple _1 ) -# 42361 "parsing/parser.ml" +# 42323 "parsing/parser.ml" in -# 2844 "parsing/parser.mly" +# 2826 "parsing/parser.mly" ( Generic_array.Expression.to_desc "[|" "|]" (fun elts -> Pexp_array elts) _1 ) -# 42371 "parsing/parser.ml" +# 42333 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -42375,15 +42337,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42381 "parsing/parser.ml" +# 42343 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 42387 "parsing/parser.ml" +# 42349 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42424,32 +42386,32 @@ module Tables = struct let _1 = let _1 = let _2 = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 42430 "parsing/parser.ml" +# 42392 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2766 "parsing/parser.mly" +# 2748 "parsing/parser.mly" ( Generic_array.Simple.Unclosed(_loc__1_,_loc__3_) ) -# 42437 "parsing/parser.ml" +# 42399 "parsing/parser.ml" in -# 2773 "parsing/parser.mly" +# 2755 "parsing/parser.mly" ( Generic_array.Expression.Simple _1 ) -# 42443 "parsing/parser.ml" +# 42405 "parsing/parser.ml" in -# 2844 "parsing/parser.mly" +# 2826 "parsing/parser.mly" ( Generic_array.Expression.to_desc "[|" "|]" (fun elts -> Pexp_array elts) _1 ) -# 42453 "parsing/parser.ml" +# 42415 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -42457,15 +42419,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42463 "parsing/parser.ml" +# 42425 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 42469 "parsing/parser.ml" +# 42431 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42498,24 +42460,24 @@ module Tables = struct let _1 = let _1 = let _1 = -# 2768 "parsing/parser.mly" +# 2750 "parsing/parser.mly" ( Generic_array.Simple.Literal [] ) -# 42504 "parsing/parser.ml" +# 42466 "parsing/parser.ml" in -# 2773 "parsing/parser.mly" +# 2755 "parsing/parser.mly" ( Generic_array.Expression.Simple _1 ) -# 42509 "parsing/parser.ml" +# 42471 "parsing/parser.ml" in -# 2844 "parsing/parser.mly" +# 2826 "parsing/parser.mly" ( Generic_array.Expression.to_desc "[|" "|]" (fun elts -> Pexp_array elts) _1 ) -# 42519 "parsing/parser.ml" +# 42481 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -42523,15 +42485,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42529 "parsing/parser.ml" +# 42491 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 42535 "parsing/parser.ml" +# 42497 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42585,9 +42547,9 @@ module Tables = struct let _1 = let _1 = let _4 = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 42591 "parsing/parser.ml" +# 42553 "parsing/parser.ml" in let od = let _1 = @@ -42595,36 +42557,36 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 42601 "parsing/parser.ml" +# 42563 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1853 "parsing/parser.mly" +# 1833 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 42610 "parsing/parser.ml" +# 42572 "parsing/parser.ml" in let _endpos = _endpos__5_ in -# 2775 "parsing/parser.mly" +# 2757 "parsing/parser.mly" ( Generic_array.Expression.Opened_literal(od, _startpos__3_, _endpos, _4) ) -# 42618 "parsing/parser.ml" +# 42580 "parsing/parser.ml" in -# 2844 "parsing/parser.mly" +# 2826 "parsing/parser.mly" ( Generic_array.Expression.to_desc "[|" "|]" (fun elts -> Pexp_array elts) _1 ) -# 42628 "parsing/parser.ml" +# 42590 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -42632,15 +42594,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42638 "parsing/parser.ml" +# 42600 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 42644 "parsing/parser.ml" +# 42606 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42692,37 +42654,37 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 42698 "parsing/parser.ml" +# 42660 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1853 "parsing/parser.mly" +# 1833 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 42707 "parsing/parser.ml" +# 42669 "parsing/parser.ml" in let _endpos = _endpos__4_ in -# 2778 "parsing/parser.mly" +# 2760 "parsing/parser.mly" ( (* TODO: review the location of Pexp_array *) Generic_array.Expression.Opened_literal(od, _startpos__3_, _endpos, []) ) -# 42716 "parsing/parser.ml" +# 42678 "parsing/parser.ml" in -# 2844 "parsing/parser.mly" +# 2826 "parsing/parser.mly" ( Generic_array.Expression.to_desc "[|" "|]" (fun elts -> Pexp_array elts) _1 ) -# 42726 "parsing/parser.ml" +# 42688 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -42730,15 +42692,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42736 "parsing/parser.ml" +# 42698 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 42742 "parsing/parser.ml" +# 42704 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42792,26 +42754,26 @@ module Tables = struct let _1 = let _1 = let _4 = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 42798 "parsing/parser.ml" +# 42760 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2783 "parsing/parser.mly" +# 2765 "parsing/parser.mly" ( Generic_array.Expression.Simple (Unclosed(_loc__3_, _loc__5_)) ) -# 42805 "parsing/parser.ml" +# 42767 "parsing/parser.ml" in -# 2844 "parsing/parser.mly" +# 2826 "parsing/parser.mly" ( Generic_array.Expression.to_desc "[|" "|]" (fun elts -> Pexp_array elts) _1 ) -# 42815 "parsing/parser.ml" +# 42777 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -42819,15 +42781,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42825 "parsing/parser.ml" +# 42787 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 42831 "parsing/parser.ml" +# 42793 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42866,15 +42828,15 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _2 = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 42872 "parsing/parser.ml" +# 42834 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2850 "parsing/parser.mly" +# 2832 "parsing/parser.mly" ( fst (mktailexp _loc__3_ _2) ) -# 42878 "parsing/parser.ml" +# 42840 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -42882,15 +42844,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42888 "parsing/parser.ml" +# 42850 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 42894 "parsing/parser.ml" +# 42856 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -42929,16 +42891,16 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _2 = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 42935 "parsing/parser.ml" +# 42897 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2852 "parsing/parser.mly" +# 2834 "parsing/parser.mly" ( unclosed "[" _loc__1_ "]" _loc__3_ ) -# 42942 "parsing/parser.ml" +# 42904 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -42946,15 +42908,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 42952 "parsing/parser.ml" +# 42914 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 42958 "parsing/parser.ml" +# 42920 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43021,24 +42983,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 43025 "parsing/parser.ml" +# 42987 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 43030 "parsing/parser.ml" +# 42992 "parsing/parser.ml" in -# 2743 "parsing/parser.mly" +# 2727 "parsing/parser.mly" ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 43036 "parsing/parser.ml" +# 42998 "parsing/parser.ml" in -# 2748 "parsing/parser.mly" +# 2732 "parsing/parser.mly" ( Jane_syntax.Comprehensions.Cexp_list_comprehension _1 ) -# 43042 "parsing/parser.ml" +# 43004 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -43046,11 +43008,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2757 "parsing/parser.mly" - ( mkexp_jane_syntax ~loc:_sloc - (Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1) - ) -# 43054 "parsing/parser.ml" +# 2741 "parsing/parser.mly" + ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) ~attrs:[] _1 ) +# 43014 "parsing/parser.ml" in let od = @@ -43059,24 +43019,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 43065 "parsing/parser.ml" +# 43025 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1853 "parsing/parser.mly" +# 1833 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 43074 "parsing/parser.ml" +# 43034 "parsing/parser.ml" in -# 2854 "parsing/parser.mly" +# 2836 "parsing/parser.mly" ( Pexp_open(od, _3) ) -# 43080 "parsing/parser.ml" +# 43040 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -43084,15 +43044,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 43090 "parsing/parser.ml" +# 43050 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 43096 "parsing/parser.ml" +# 43056 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43159,24 +43119,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 43163 "parsing/parser.ml" +# 43123 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 43168 "parsing/parser.ml" +# 43128 "parsing/parser.ml" in -# 2743 "parsing/parser.mly" +# 2727 "parsing/parser.mly" ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 43174 "parsing/parser.ml" +# 43134 "parsing/parser.ml" in -# 2750 "parsing/parser.mly" +# 2734 "parsing/parser.mly" ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Mutable, _1) ) -# 43180 "parsing/parser.ml" +# 43140 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -43184,11 +43144,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2757 "parsing/parser.mly" - ( mkexp_jane_syntax ~loc:_sloc - (Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1) - ) -# 43192 "parsing/parser.ml" +# 2741 "parsing/parser.mly" + ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) ~attrs:[] _1 ) +# 43150 "parsing/parser.ml" in let od = @@ -43197,24 +43155,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 43203 "parsing/parser.ml" +# 43161 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1853 "parsing/parser.mly" +# 1833 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 43212 "parsing/parser.ml" +# 43170 "parsing/parser.ml" in -# 2854 "parsing/parser.mly" +# 2836 "parsing/parser.mly" ( Pexp_open(od, _3) ) -# 43218 "parsing/parser.ml" +# 43176 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -43222,15 +43180,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 43228 "parsing/parser.ml" +# 43186 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 43234 "parsing/parser.ml" +# 43192 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43297,24 +43255,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 43301 "parsing/parser.ml" +# 43259 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 43306 "parsing/parser.ml" +# 43264 "parsing/parser.ml" in -# 2743 "parsing/parser.mly" +# 2727 "parsing/parser.mly" ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 43312 "parsing/parser.ml" +# 43270 "parsing/parser.ml" in -# 2752 "parsing/parser.mly" +# 2736 "parsing/parser.mly" ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Immutable, _1) ) -# 43318 "parsing/parser.ml" +# 43276 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -43322,11 +43280,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2757 "parsing/parser.mly" - ( mkexp_jane_syntax ~loc:_sloc - (Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1) - ) -# 43330 "parsing/parser.ml" +# 2741 "parsing/parser.mly" + ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) ~attrs:[] _1 ) +# 43286 "parsing/parser.ml" in let od = @@ -43335,24 +43291,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 43341 "parsing/parser.ml" +# 43297 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1853 "parsing/parser.mly" +# 1833 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 43350 "parsing/parser.ml" +# 43306 "parsing/parser.ml" in -# 2854 "parsing/parser.mly" +# 2836 "parsing/parser.mly" ( Pexp_open(od, _3) ) -# 43356 "parsing/parser.ml" +# 43312 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -43360,15 +43316,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 43366 "parsing/parser.ml" +# 43322 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 43372 "parsing/parser.ml" +# 43328 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43421,9 +43377,9 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _4 = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 43427 "parsing/parser.ml" +# 43383 "parsing/parser.ml" in let od = let _1 = @@ -43431,30 +43387,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 43437 "parsing/parser.ml" +# 43393 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1853 "parsing/parser.mly" +# 1833 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 43446 "parsing/parser.ml" +# 43402 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _loc__5_ = (_startpos__5_, _endpos__5_) in -# 2856 "parsing/parser.mly" +# 2838 "parsing/parser.mly" ( let list_exp = (* TODO: review the location of list_exp *) let tail_exp, _tail_loc = mktailexp _loc__5_ _4 in mkexp ~loc:(_startpos__3_, _endpos) tail_exp in Pexp_open(od, list_exp) ) -# 43458 "parsing/parser.ml" +# 43414 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -43462,15 +43418,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 43468 "parsing/parser.ml" +# 43424 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 43474 "parsing/parser.ml" +# 43430 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43518,18 +43474,18 @@ module Tables = struct let _3 = let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in let _1 = -# 2861 "parsing/parser.mly" +# 2843 "parsing/parser.mly" (Lident "[]") -# 43524 "parsing/parser.ml" +# 43480 "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 -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 43533 "parsing/parser.ml" +# 43489 "parsing/parser.ml" in let (_endpos__3_, _startpos__3_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in @@ -43539,25 +43495,25 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 43545 "parsing/parser.ml" +# 43501 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1853 "parsing/parser.mly" +# 1833 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 43554 "parsing/parser.ml" +# 43510 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2862 "parsing/parser.mly" +# 2844 "parsing/parser.mly" ( Pexp_open(od, mkexp ~loc:_loc__3_ (Pexp_construct(_3, None))) ) -# 43561 "parsing/parser.ml" +# 43517 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_inlined1_ in @@ -43565,15 +43521,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 43571 "parsing/parser.ml" +# 43527 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 43577 "parsing/parser.ml" +# 43533 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43626,16 +43582,16 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _4 = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 43632 "parsing/parser.ml" +# 43588 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2865 "parsing/parser.mly" +# 2847 "parsing/parser.mly" ( unclosed "[" _loc__3_ "]" _loc__5_ ) -# 43639 "parsing/parser.ml" +# 43595 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -43643,15 +43599,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 43649 "parsing/parser.ml" +# 43605 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 43655 "parsing/parser.ml" +# 43611 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43744,11 +43700,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3950 "parsing/parser.mly" +# 3931 "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 ) -# 43752 "parsing/parser.ml" +# 43708 "parsing/parser.ml" in let _5 = @@ -43756,15 +43712,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 43762 "parsing/parser.ml" +# 43718 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 43768 "parsing/parser.ml" +# 43724 "parsing/parser.ml" in let od = @@ -43773,18 +43729,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 43779 "parsing/parser.ml" +# 43735 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1853 "parsing/parser.mly" +# 1833 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 43788 "parsing/parser.ml" +# 43744 "parsing/parser.ml" in let _startpos_od_ = _startpos__1_ in @@ -43792,12 +43748,12 @@ module Tables = struct let _symbolstartpos = _startpos_od_ in let _sloc = (_symbolstartpos, _endpos) in -# 2868 "parsing/parser.mly" +# 2850 "parsing/parser.mly" ( let modexp = mkexp_attrs ~loc:(_startpos__3_, _endpos) (Pexp_constraint (ghexp ~loc:_sloc (Pexp_pack _6), _8)) _5 in Pexp_open(od, modexp) ) -# 43801 "parsing/parser.ml" +# 43757 "parsing/parser.ml" in let _endpos__1_ = _endpos__9_ in @@ -43805,15 +43761,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 43811 "parsing/parser.ml" +# 43767 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 43817 "parsing/parser.ml" +# 43773 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43898,23 +43854,23 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 43904 "parsing/parser.ml" +# 43860 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 43910 "parsing/parser.ml" +# 43866 "parsing/parser.ml" in let _loc__8_ = (_startpos__8_, _endpos__8_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2874 "parsing/parser.mly" +# 2856 "parsing/parser.mly" ( unclosed "(" _loc__3_ ")" _loc__8_ ) -# 43918 "parsing/parser.ml" +# 43874 "parsing/parser.ml" in let _endpos__1_ = _endpos__8_ in @@ -43922,15 +43878,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1175 "parsing/parser.mly" +# 1153 "parsing/parser.mly" ( mkexp ~loc:_sloc _1 ) -# 43928 "parsing/parser.ml" +# 43884 "parsing/parser.ml" in -# 2672 "parsing/parser.mly" +# 2657 "parsing/parser.mly" ( _1 ) -# 43934 "parsing/parser.ml" +# 43890 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -43969,20 +43925,20 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _2 = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 43975 "parsing/parser.ml" +# 43931 "parsing/parser.ml" in -# 2764 "parsing/parser.mly" +# 2746 "parsing/parser.mly" ( Generic_array.Simple.Literal _2 ) -# 43980 "parsing/parser.ml" +# 43936 "parsing/parser.ml" in -# 2773 "parsing/parser.mly" +# 2755 "parsing/parser.mly" ( Generic_array.Expression.Simple _1 ) -# 43986 "parsing/parser.ml" +# 43942 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -43990,18 +43946,17 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2677 "parsing/parser.mly" +# 2662 "parsing/parser.mly" ( Generic_array.Expression.to_expression "[:" ":]" ~loc:_sloc (fun ~loc elts -> Jane_syntax.Immutable_arrays.expr_of - ~loc:(make_loc loc) - (Iaexp_immutable_array elts) - |> mkexp_jane_syntax ~loc) + ~loc:(make_loc loc) ~attrs:[] + (Iaexp_immutable_array elts)) _1 ) -# 44005 "parsing/parser.ml" +# 43960 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44040,22 +43995,22 @@ module Tables = struct let _v : (Parsetree.expression) = let _1 = let _1 = let _2 = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 44046 "parsing/parser.ml" +# 44001 "parsing/parser.ml" in let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 2766 "parsing/parser.mly" +# 2748 "parsing/parser.mly" ( Generic_array.Simple.Unclosed(_loc__1_,_loc__3_) ) -# 44053 "parsing/parser.ml" +# 44008 "parsing/parser.ml" in -# 2773 "parsing/parser.mly" +# 2755 "parsing/parser.mly" ( Generic_array.Expression.Simple _1 ) -# 44059 "parsing/parser.ml" +# 44014 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -44063,18 +44018,17 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2677 "parsing/parser.mly" +# 2662 "parsing/parser.mly" ( Generic_array.Expression.to_expression "[:" ":]" ~loc:_sloc (fun ~loc elts -> Jane_syntax.Immutable_arrays.expr_of - ~loc:(make_loc loc) - (Iaexp_immutable_array elts) - |> mkexp_jane_syntax ~loc) + ~loc:(make_loc loc) ~attrs:[] + (Iaexp_immutable_array elts)) _1 ) -# 44078 "parsing/parser.ml" +# 44032 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44105,14 +44059,14 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = let _1 = let _1 = -# 2768 "parsing/parser.mly" +# 2750 "parsing/parser.mly" ( Generic_array.Simple.Literal [] ) -# 44111 "parsing/parser.ml" +# 44065 "parsing/parser.ml" in -# 2773 "parsing/parser.mly" +# 2755 "parsing/parser.mly" ( Generic_array.Expression.Simple _1 ) -# 44116 "parsing/parser.ml" +# 44070 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_ in @@ -44120,18 +44074,17 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2677 "parsing/parser.mly" +# 2662 "parsing/parser.mly" ( Generic_array.Expression.to_expression "[:" ":]" ~loc:_sloc (fun ~loc elts -> Jane_syntax.Immutable_arrays.expr_of - ~loc:(make_loc loc) - (Iaexp_immutable_array elts) - |> mkexp_jane_syntax ~loc) + ~loc:(make_loc loc) ~attrs:[] + (Iaexp_immutable_array elts)) _1 ) -# 44135 "parsing/parser.ml" +# 44088 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44183,9 +44136,9 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let _4 = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 44189 "parsing/parser.ml" +# 44142 "parsing/parser.ml" in let od = let _1 = @@ -44193,26 +44146,26 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 44199 "parsing/parser.ml" +# 44152 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1853 "parsing/parser.mly" +# 1833 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 44208 "parsing/parser.ml" +# 44161 "parsing/parser.ml" in let _endpos = _endpos__5_ in -# 2775 "parsing/parser.mly" +# 2757 "parsing/parser.mly" ( Generic_array.Expression.Opened_literal(od, _startpos__3_, _endpos, _4) ) -# 44216 "parsing/parser.ml" +# 44169 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -44220,18 +44173,17 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2677 "parsing/parser.mly" +# 2662 "parsing/parser.mly" ( Generic_array.Expression.to_expression "[:" ":]" ~loc:_sloc (fun ~loc elts -> Jane_syntax.Immutable_arrays.expr_of - ~loc:(make_loc loc) - (Iaexp_immutable_array elts) - |> mkexp_jane_syntax ~loc) + ~loc:(make_loc loc) ~attrs:[] + (Iaexp_immutable_array elts)) _1 ) -# 44235 "parsing/parser.ml" +# 44187 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44281,27 +44233,27 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 44287 "parsing/parser.ml" +# 44239 "parsing/parser.ml" in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 1853 "parsing/parser.mly" +# 1833 "parsing/parser.mly" ( let loc = make_loc _loc__1_ in let me = Mod.ident ~loc _1 in Opn.mk ~loc me ) -# 44296 "parsing/parser.ml" +# 44248 "parsing/parser.ml" in let _endpos = _endpos__4_ in -# 2778 "parsing/parser.mly" +# 2760 "parsing/parser.mly" ( (* TODO: review the location of Pexp_array *) Generic_array.Expression.Opened_literal(od, _startpos__3_, _endpos, []) ) -# 44305 "parsing/parser.ml" +# 44257 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -44309,18 +44261,17 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2677 "parsing/parser.mly" +# 2662 "parsing/parser.mly" ( Generic_array.Expression.to_expression "[:" ":]" ~loc:_sloc (fun ~loc elts -> Jane_syntax.Immutable_arrays.expr_of - ~loc:(make_loc loc) - (Iaexp_immutable_array elts) - |> mkexp_jane_syntax ~loc) + ~loc:(make_loc loc) ~attrs:[] + (Iaexp_immutable_array elts)) _1 ) -# 44324 "parsing/parser.ml" +# 44275 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44372,16 +44323,16 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _1 = let _4 = -# 3108 "parsing/parser.mly" +# 3090 "parsing/parser.mly" ( es ) -# 44378 "parsing/parser.ml" +# 44329 "parsing/parser.ml" in let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 2783 "parsing/parser.mly" +# 2765 "parsing/parser.mly" ( Generic_array.Expression.Simple (Unclosed(_loc__3_, _loc__5_)) ) -# 44385 "parsing/parser.ml" +# 44336 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -44389,18 +44340,17 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2677 "parsing/parser.mly" +# 2662 "parsing/parser.mly" ( Generic_array.Expression.to_expression "[:" ":]" ~loc:_sloc (fun ~loc elts -> Jane_syntax.Immutable_arrays.expr_of - ~loc:(make_loc loc) - (Iaexp_immutable_array elts) - |> mkexp_jane_syntax ~loc) + ~loc:(make_loc loc) ~attrs:[] + (Iaexp_immutable_array elts)) _1 ) -# 44404 "parsing/parser.ml" +# 44354 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44426,9 +44376,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2687 "parsing/parser.mly" +# 2671 "parsing/parser.mly" ( Constant.to_expression ~loc:_sloc _1 ) -# 44432 "parsing/parser.ml" +# 44382 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44478,24 +44428,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 44482 "parsing/parser.ml" +# 44432 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 44487 "parsing/parser.ml" +# 44437 "parsing/parser.ml" in -# 2743 "parsing/parser.mly" +# 2727 "parsing/parser.mly" ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 44493 "parsing/parser.ml" +# 44443 "parsing/parser.ml" in -# 2748 "parsing/parser.mly" +# 2732 "parsing/parser.mly" ( Jane_syntax.Comprehensions.Cexp_list_comprehension _1 ) -# 44499 "parsing/parser.ml" +# 44449 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -44503,17 +44453,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2757 "parsing/parser.mly" - ( mkexp_jane_syntax ~loc:_sloc - (Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1) - ) -# 44511 "parsing/parser.ml" +# 2741 "parsing/parser.mly" + ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) ~attrs:[] _1 ) +# 44459 "parsing/parser.ml" in -# 2688 "parsing/parser.mly" +# 2672 "parsing/parser.mly" ( _1 ) -# 44517 "parsing/parser.ml" +# 44465 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44563,24 +44511,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 44567 "parsing/parser.ml" +# 44515 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 44572 "parsing/parser.ml" +# 44520 "parsing/parser.ml" in -# 2743 "parsing/parser.mly" +# 2727 "parsing/parser.mly" ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 44578 "parsing/parser.ml" +# 44526 "parsing/parser.ml" in -# 2750 "parsing/parser.mly" +# 2734 "parsing/parser.mly" ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Mutable, _1) ) -# 44584 "parsing/parser.ml" +# 44532 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -44588,17 +44536,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2757 "parsing/parser.mly" - ( mkexp_jane_syntax ~loc:_sloc - (Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1) - ) -# 44596 "parsing/parser.ml" +# 2741 "parsing/parser.mly" + ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) ~attrs:[] _1 ) +# 44542 "parsing/parser.ml" in -# 2688 "parsing/parser.mly" +# 2672 "parsing/parser.mly" ( _1 ) -# 44602 "parsing/parser.ml" +# 44548 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44648,24 +44594,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 44652 "parsing/parser.ml" +# 44598 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 44657 "parsing/parser.ml" +# 44603 "parsing/parser.ml" in -# 2743 "parsing/parser.mly" +# 2727 "parsing/parser.mly" ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } ) -# 44663 "parsing/parser.ml" +# 44609 "parsing/parser.ml" in -# 2752 "parsing/parser.mly" +# 2736 "parsing/parser.mly" ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Immutable, _1) ) -# 44669 "parsing/parser.ml" +# 44615 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -44673,17 +44619,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2757 "parsing/parser.mly" - ( mkexp_jane_syntax ~loc:_sloc - (Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1) - ) -# 44681 "parsing/parser.ml" +# 2741 "parsing/parser.mly" + ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) ~attrs:[] _1 ) +# 44625 "parsing/parser.ml" in -# 2688 "parsing/parser.mly" +# 2672 "parsing/parser.mly" ( _1 ) -# 44687 "parsing/parser.ml" +# 44631 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44712,30 +44656,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 44718 "parsing/parser.ml" +# 44662 "parsing/parser.ml" in -# 3191 "parsing/parser.mly" +# 3173 "parsing/parser.mly" ( Ppat_var (_1) ) -# 44724 "parsing/parser.ml" +# 44668 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 44733 "parsing/parser.ml" +# 44677 "parsing/parser.ml" in -# 3192 "parsing/parser.mly" +# 3174 "parsing/parser.mly" ( _1 ) -# 44739 "parsing/parser.ml" +# 44683 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44758,9 +44702,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = -# 3193 "parsing/parser.mly" +# 3175 "parsing/parser.mly" ( _1 ) -# 44764 "parsing/parser.ml" +# 44708 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44800,9 +44744,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3198 "parsing/parser.mly" +# 3180 "parsing/parser.mly" ( reloc_pat ~loc:_sloc _2 ) -# 44806 "parsing/parser.ml" +# 44750 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44825,9 +44769,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = -# 3200 "parsing/parser.mly" +# 3182 "parsing/parser.mly" ( _1 ) -# 44831 "parsing/parser.ml" +# 44775 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44890,9 +44834,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 44896 "parsing/parser.ml" +# 44840 "parsing/parser.ml" in let _3 = @@ -44900,24 +44844,24 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 44906 "parsing/parser.ml" +# 44850 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 44912 "parsing/parser.ml" +# 44856 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3202 "parsing/parser.mly" +# 3184 "parsing/parser.mly" ( mkpat_attrs ~loc:_sloc (Ppat_unpack _4) _3 ) -# 44921 "parsing/parser.ml" +# 44865 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -44994,11 +44938,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3950 "parsing/parser.mly" +# 3931 "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 ) -# 45002 "parsing/parser.ml" +# 44946 "parsing/parser.ml" in let _4 = @@ -45007,9 +44951,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45013 "parsing/parser.ml" +# 44957 "parsing/parser.ml" in let (_endpos__4_, _startpos__4_) = (_endpos__1_inlined3_, _startpos__1_inlined3_) in @@ -45018,15 +44962,15 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 45024 "parsing/parser.ml" +# 44968 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 45030 "parsing/parser.ml" +# 44974 "parsing/parser.ml" in let _endpos = _endpos__7_ in @@ -45034,11 +44978,11 @@ module Tables = struct let _loc__4_ = (_startpos__4_, _endpos__4_) in let _sloc = (_symbolstartpos, _endpos) in -# 3204 "parsing/parser.mly" +# 3186 "parsing/parser.mly" ( mkpat_attrs ~loc:_sloc (Ppat_constraint(mkpat ~loc:_loc__4_ (Ppat_unpack _4), _6)) _3 ) -# 45042 "parsing/parser.ml" +# 44986 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45062,23 +45006,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 3213 "parsing/parser.mly" +# 3195 "parsing/parser.mly" ( Ppat_any ) -# 45068 "parsing/parser.ml" +# 45012 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45076 "parsing/parser.ml" +# 45020 "parsing/parser.ml" in -# 3208 "parsing/parser.mly" +# 3190 "parsing/parser.mly" ( _1 ) -# 45082 "parsing/parser.ml" +# 45026 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45119,12 +45063,12 @@ module Tables = struct let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3215 "parsing/parser.mly" +# 3197 "parsing/parser.mly" ( let where = "in a pattern interval" in Ppat_interval (Constant.assert_is_value _1 ~loc:_loc__1_ ~where, Constant.assert_is_value _3 ~loc:_loc__3_ ~where) ) -# 45128 "parsing/parser.ml" +# 45072 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -45132,15 +45076,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45138 "parsing/parser.ml" +# 45082 "parsing/parser.ml" in -# 3208 "parsing/parser.mly" +# 3190 "parsing/parser.mly" ( _1 ) -# 45144 "parsing/parser.ml" +# 45088 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45169,30 +45113,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45175 "parsing/parser.ml" +# 45119 "parsing/parser.ml" in -# 3220 "parsing/parser.mly" +# 3202 "parsing/parser.mly" ( Ppat_construct(_1, None) ) -# 45181 "parsing/parser.ml" +# 45125 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45190 "parsing/parser.ml" +# 45134 "parsing/parser.ml" in -# 3208 "parsing/parser.mly" +# 3190 "parsing/parser.mly" ( _1 ) -# 45196 "parsing/parser.ml" +# 45140 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45216,23 +45160,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 3222 "parsing/parser.mly" +# 3204 "parsing/parser.mly" ( Ppat_variant(_1, None) ) -# 45222 "parsing/parser.ml" +# 45166 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45230 "parsing/parser.ml" +# 45174 "parsing/parser.ml" in -# 3208 "parsing/parser.mly" +# 3190 "parsing/parser.mly" ( _1 ) -# 45236 "parsing/parser.ml" +# 45180 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45269,20 +45213,20 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45275 "parsing/parser.ml" +# 45219 "parsing/parser.ml" in let _1 = -# 2792 "parsing/parser.mly" +# 2774 "parsing/parser.mly" ( () ) -# 45281 "parsing/parser.ml" +# 45225 "parsing/parser.ml" in -# 3224 "parsing/parser.mly" +# 3206 "parsing/parser.mly" ( Ppat_type (_2) ) -# 45286 "parsing/parser.ml" +# 45230 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -45290,15 +45234,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45296 "parsing/parser.ml" +# 45240 "parsing/parser.ml" in -# 3208 "parsing/parser.mly" +# 3190 "parsing/parser.mly" ( _1 ) -# 45302 "parsing/parser.ml" +# 45246 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45335,20 +45279,20 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45341 "parsing/parser.ml" +# 45285 "parsing/parser.ml" in let _1 = -# 2793 "parsing/parser.mly" +# 2775 "parsing/parser.mly" ( () ) -# 45347 "parsing/parser.ml" +# 45291 "parsing/parser.ml" in -# 3224 "parsing/parser.mly" +# 3206 "parsing/parser.mly" ( Ppat_type (_2) ) -# 45352 "parsing/parser.ml" +# 45296 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -45356,15 +45300,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45362 "parsing/parser.ml" +# 45306 "parsing/parser.ml" in -# 3208 "parsing/parser.mly" +# 3190 "parsing/parser.mly" ( _1 ) -# 45368 "parsing/parser.ml" +# 45312 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45407,15 +45351,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45413 "parsing/parser.ml" +# 45357 "parsing/parser.ml" in -# 3226 "parsing/parser.mly" +# 3208 "parsing/parser.mly" ( Ppat_open(_1, _3) ) -# 45419 "parsing/parser.ml" +# 45363 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -45423,15 +45367,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45429 "parsing/parser.ml" +# 45373 "parsing/parser.ml" in -# 3208 "parsing/parser.mly" +# 3190 "parsing/parser.mly" ( _1 ) -# 45435 "parsing/parser.ml" +# 45379 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45479,18 +45423,18 @@ module Tables = struct let _3 = let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in let _1 = -# 3227 "parsing/parser.mly" +# 3209 "parsing/parser.mly" (Lident "[]") -# 45485 "parsing/parser.ml" +# 45429 "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 -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45494 "parsing/parser.ml" +# 45438 "parsing/parser.ml" in let _endpos__3_ = _endpos__2_inlined1_ in @@ -45499,18 +45443,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45505 "parsing/parser.ml" +# 45449 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3228 "parsing/parser.mly" +# 3210 "parsing/parser.mly" ( Ppat_open(_1, mkpat ~loc:_sloc (Ppat_construct(_3, None))) ) -# 45514 "parsing/parser.ml" +# 45458 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_inlined1_ in @@ -45518,15 +45462,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45524 "parsing/parser.ml" +# 45468 "parsing/parser.ml" in -# 3208 "parsing/parser.mly" +# 3190 "parsing/parser.mly" ( _1 ) -# 45530 "parsing/parser.ml" +# 45474 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45574,18 +45518,18 @@ module Tables = struct let _3 = let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in let _1 = -# 3229 "parsing/parser.mly" +# 3211 "parsing/parser.mly" (Lident "()") -# 45580 "parsing/parser.ml" +# 45524 "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 -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45589 "parsing/parser.ml" +# 45533 "parsing/parser.ml" in let _endpos__3_ = _endpos__2_inlined1_ in @@ -45594,18 +45538,18 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45600 "parsing/parser.ml" +# 45544 "parsing/parser.ml" in let _endpos = _endpos__3_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3230 "parsing/parser.mly" +# 3212 "parsing/parser.mly" ( Ppat_open(_1, mkpat ~loc:_sloc (Ppat_construct(_3, None))) ) -# 45609 "parsing/parser.ml" +# 45553 "parsing/parser.ml" in let _endpos__1_ = _endpos__2_inlined1_ in @@ -45613,15 +45557,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45619 "parsing/parser.ml" +# 45563 "parsing/parser.ml" in -# 3208 "parsing/parser.mly" +# 3190 "parsing/parser.mly" ( _1 ) -# 45625 "parsing/parser.ml" +# 45569 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45678,15 +45622,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 45684 "parsing/parser.ml" +# 45628 "parsing/parser.ml" in -# 3232 "parsing/parser.mly" +# 3214 "parsing/parser.mly" ( Ppat_open (_1, _4) ) -# 45690 "parsing/parser.ml" +# 45634 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -45694,15 +45638,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45700 "parsing/parser.ml" +# 45644 "parsing/parser.ml" in -# 3208 "parsing/parser.mly" +# 3190 "parsing/parser.mly" ( _1 ) -# 45706 "parsing/parser.ml" +# 45650 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45757,9 +45701,9 @@ module Tables = struct let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 3234 "parsing/parser.mly" +# 3216 "parsing/parser.mly" ( unclosed "(" _loc__3_ ")" _loc__5_ ) -# 45763 "parsing/parser.ml" +# 45707 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -45767,15 +45711,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45773 "parsing/parser.ml" +# 45717 "parsing/parser.ml" in -# 3208 "parsing/parser.mly" +# 3190 "parsing/parser.mly" ( _1 ) -# 45779 "parsing/parser.ml" +# 45723 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45822,9 +45766,9 @@ module Tables = struct let _1 = let _loc__4_ = (_startpos__4_, _endpos__4_) in -# 3236 "parsing/parser.mly" +# 3218 "parsing/parser.mly" ( expecting _loc__4_ "pattern" ) -# 45828 "parsing/parser.ml" +# 45772 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -45832,15 +45776,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45838 "parsing/parser.ml" +# 45782 "parsing/parser.ml" in -# 3208 "parsing/parser.mly" +# 3190 "parsing/parser.mly" ( _1 ) -# 45844 "parsing/parser.ml" +# 45788 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45881,9 +45825,9 @@ module Tables = struct let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3238 "parsing/parser.mly" +# 3220 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 45887 "parsing/parser.ml" +# 45831 "parsing/parser.ml" in let _endpos__1_ = _endpos__3_ in @@ -45891,15 +45835,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45897 "parsing/parser.ml" +# 45841 "parsing/parser.ml" in -# 3208 "parsing/parser.mly" +# 3190 "parsing/parser.mly" ( _1 ) -# 45903 "parsing/parser.ml" +# 45847 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -45951,24 +45895,24 @@ module Tables = struct let _endpos = _endpos__5_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 3240 "parsing/parser.mly" +# 3222 "parsing/parser.mly" ( Ppat_constraint(_2, _4) ) -# 45957 "parsing/parser.ml" +# 45901 "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 -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 45966 "parsing/parser.ml" +# 45910 "parsing/parser.ml" in -# 3208 "parsing/parser.mly" +# 3190 "parsing/parser.mly" ( _1 ) -# 45972 "parsing/parser.ml" +# 45916 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46023,9 +45967,9 @@ module Tables = struct let _loc__5_ = (_startpos__5_, _endpos__5_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3242 "parsing/parser.mly" +# 3224 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__5_ ) -# 46029 "parsing/parser.ml" +# 45973 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -46033,15 +45977,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 46039 "parsing/parser.ml" +# 45983 "parsing/parser.ml" in -# 3208 "parsing/parser.mly" +# 3190 "parsing/parser.mly" ( _1 ) -# 46045 "parsing/parser.ml" +# 45989 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46088,9 +46032,9 @@ module Tables = struct let _1 = let _loc__4_ = (_startpos__4_, _endpos__4_) in -# 3244 "parsing/parser.mly" +# 3226 "parsing/parser.mly" ( expecting _loc__4_ "type" ) -# 46094 "parsing/parser.ml" +# 46038 "parsing/parser.ml" in let _endpos__1_ = _endpos__4_ in @@ -46098,15 +46042,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 46104 "parsing/parser.ml" +# 46048 "parsing/parser.ml" in -# 3208 "parsing/parser.mly" +# 3190 "parsing/parser.mly" ( _1 ) -# 46110 "parsing/parser.ml" +# 46054 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46185,11 +46129,11 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3950 "parsing/parser.mly" +# 3931 "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 ) -# 46193 "parsing/parser.ml" +# 46137 "parsing/parser.ml" in let _3 = @@ -46197,23 +46141,23 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 46203 "parsing/parser.ml" +# 46147 "parsing/parser.ml" in -# 4402 "parsing/parser.mly" +# 4383 "parsing/parser.mly" ( _1, _2 ) -# 46209 "parsing/parser.ml" +# 46153 "parsing/parser.ml" in let _loc__7_ = (_startpos__7_, _endpos__7_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 3247 "parsing/parser.mly" +# 3229 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__7_ ) -# 46217 "parsing/parser.ml" +# 46161 "parsing/parser.ml" in let _endpos__1_ = _endpos__7_ in @@ -46221,15 +46165,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 46227 "parsing/parser.ml" +# 46171 "parsing/parser.ml" in -# 3208 "parsing/parser.mly" +# 3190 "parsing/parser.mly" ( _1 ) -# 46233 "parsing/parser.ml" +# 46177 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46253,23 +46197,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.pattern) = let _1 = let _1 = -# 3249 "parsing/parser.mly" +# 3231 "parsing/parser.mly" ( Ppat_extension _1 ) -# 46259 "parsing/parser.ml" +# 46203 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1177 "parsing/parser.mly" +# 1155 "parsing/parser.mly" ( mkpat ~loc:_sloc _1 ) -# 46267 "parsing/parser.ml" +# 46211 "parsing/parser.ml" in -# 3208 "parsing/parser.mly" +# 3190 "parsing/parser.mly" ( _1 ) -# 46273 "parsing/parser.ml" +# 46217 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46295,9 +46239,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3209 "parsing/parser.mly" +# 3191 "parsing/parser.mly" ( Constant.to_pattern _1 ~loc:_sloc ) -# 46301 "parsing/parser.ml" +# 46245 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46316,17 +46260,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 46322 "parsing/parser.ml" +# 46266 "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) = -# 4309 "parsing/parser.mly" +# 4290 "parsing/parser.mly" ( _1 ) -# 46330 "parsing/parser.ml" +# 46274 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46345,17 +46289,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 1009 "parsing/parser.mly" +# 987 "parsing/parser.mly" (string) -# 46351 "parsing/parser.ml" +# 46295 "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) = -# 4310 "parsing/parser.mly" +# 4291 "parsing/parser.mly" ( _1 ) -# 46359 "parsing/parser.ml" +# 46303 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46378,9 +46322,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4311 "parsing/parser.mly" +# 4292 "parsing/parser.mly" ( "and" ) -# 46384 "parsing/parser.ml" +# 46328 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46403,9 +46347,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4312 "parsing/parser.mly" +# 4293 "parsing/parser.mly" ( "as" ) -# 46409 "parsing/parser.ml" +# 46353 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46428,9 +46372,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4313 "parsing/parser.mly" +# 4294 "parsing/parser.mly" ( "assert" ) -# 46434 "parsing/parser.ml" +# 46378 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46453,9 +46397,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4314 "parsing/parser.mly" +# 4295 "parsing/parser.mly" ( "begin" ) -# 46459 "parsing/parser.ml" +# 46403 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46478,9 +46422,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4315 "parsing/parser.mly" +# 4296 "parsing/parser.mly" ( "class" ) -# 46484 "parsing/parser.ml" +# 46428 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46503,9 +46447,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4316 "parsing/parser.mly" +# 4297 "parsing/parser.mly" ( "constraint" ) -# 46509 "parsing/parser.ml" +# 46453 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46528,9 +46472,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4317 "parsing/parser.mly" +# 4298 "parsing/parser.mly" ( "do" ) -# 46534 "parsing/parser.ml" +# 46478 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46553,9 +46497,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4318 "parsing/parser.mly" +# 4299 "parsing/parser.mly" ( "done" ) -# 46559 "parsing/parser.ml" +# 46503 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46578,9 +46522,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4319 "parsing/parser.mly" +# 4300 "parsing/parser.mly" ( "downto" ) -# 46584 "parsing/parser.ml" +# 46528 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46603,9 +46547,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4320 "parsing/parser.mly" +# 4301 "parsing/parser.mly" ( "else" ) -# 46609 "parsing/parser.ml" +# 46553 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46628,9 +46572,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4321 "parsing/parser.mly" +# 4302 "parsing/parser.mly" ( "end" ) -# 46634 "parsing/parser.ml" +# 46578 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46653,9 +46597,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4322 "parsing/parser.mly" +# 4303 "parsing/parser.mly" ( "exception" ) -# 46659 "parsing/parser.ml" +# 46603 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46678,9 +46622,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4323 "parsing/parser.mly" +# 4304 "parsing/parser.mly" ( "external" ) -# 46684 "parsing/parser.ml" +# 46628 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46703,9 +46647,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4324 "parsing/parser.mly" +# 4305 "parsing/parser.mly" ( "false" ) -# 46709 "parsing/parser.ml" +# 46653 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46728,9 +46672,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4325 "parsing/parser.mly" +# 4306 "parsing/parser.mly" ( "for" ) -# 46734 "parsing/parser.ml" +# 46678 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46753,9 +46697,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4326 "parsing/parser.mly" +# 4307 "parsing/parser.mly" ( "fun" ) -# 46759 "parsing/parser.ml" +# 46703 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46778,9 +46722,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4327 "parsing/parser.mly" +# 4308 "parsing/parser.mly" ( "function" ) -# 46784 "parsing/parser.ml" +# 46728 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46803,9 +46747,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4328 "parsing/parser.mly" +# 4309 "parsing/parser.mly" ( "functor" ) -# 46809 "parsing/parser.ml" +# 46753 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46828,9 +46772,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4329 "parsing/parser.mly" +# 4310 "parsing/parser.mly" ( "if" ) -# 46834 "parsing/parser.ml" +# 46778 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46853,9 +46797,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4330 "parsing/parser.mly" +# 4311 "parsing/parser.mly" ( "in" ) -# 46859 "parsing/parser.ml" +# 46803 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46878,9 +46822,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4331 "parsing/parser.mly" +# 4312 "parsing/parser.mly" ( "include" ) -# 46884 "parsing/parser.ml" +# 46828 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46903,9 +46847,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4332 "parsing/parser.mly" +# 4313 "parsing/parser.mly" ( "inherit" ) -# 46909 "parsing/parser.ml" +# 46853 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46928,9 +46872,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4333 "parsing/parser.mly" +# 4314 "parsing/parser.mly" ( "initializer" ) -# 46934 "parsing/parser.ml" +# 46878 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46953,9 +46897,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4334 "parsing/parser.mly" +# 4315 "parsing/parser.mly" ( "lazy" ) -# 46959 "parsing/parser.ml" +# 46903 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -46978,9 +46922,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4335 "parsing/parser.mly" +# 4316 "parsing/parser.mly" ( "let" ) -# 46984 "parsing/parser.ml" +# 46928 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47003,9 +46947,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4336 "parsing/parser.mly" +# 4317 "parsing/parser.mly" ( "local_" ) -# 47009 "parsing/parser.ml" +# 46953 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47028,9 +46972,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4337 "parsing/parser.mly" +# 4318 "parsing/parser.mly" ( "match" ) -# 47034 "parsing/parser.ml" +# 46978 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47053,9 +46997,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4338 "parsing/parser.mly" +# 4319 "parsing/parser.mly" ( "method" ) -# 47059 "parsing/parser.ml" +# 47003 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47078,9 +47022,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4339 "parsing/parser.mly" +# 4320 "parsing/parser.mly" ( "module" ) -# 47084 "parsing/parser.ml" +# 47028 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47103,9 +47047,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4340 "parsing/parser.mly" +# 4321 "parsing/parser.mly" ( "mutable" ) -# 47109 "parsing/parser.ml" +# 47053 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47128,9 +47072,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4341 "parsing/parser.mly" +# 4322 "parsing/parser.mly" ( "new" ) -# 47134 "parsing/parser.ml" +# 47078 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47153,9 +47097,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4342 "parsing/parser.mly" +# 4323 "parsing/parser.mly" ( "nonrec" ) -# 47159 "parsing/parser.ml" +# 47103 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47178,9 +47122,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4343 "parsing/parser.mly" +# 4324 "parsing/parser.mly" ( "object" ) -# 47184 "parsing/parser.ml" +# 47128 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47203,9 +47147,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4344 "parsing/parser.mly" +# 4325 "parsing/parser.mly" ( "of" ) -# 47209 "parsing/parser.ml" +# 47153 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47228,9 +47172,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4345 "parsing/parser.mly" +# 4326 "parsing/parser.mly" ( "open" ) -# 47234 "parsing/parser.ml" +# 47178 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47253,9 +47197,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4346 "parsing/parser.mly" +# 4327 "parsing/parser.mly" ( "or" ) -# 47259 "parsing/parser.ml" +# 47203 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47278,9 +47222,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4347 "parsing/parser.mly" +# 4328 "parsing/parser.mly" ( "private" ) -# 47284 "parsing/parser.ml" +# 47228 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47303,9 +47247,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4348 "parsing/parser.mly" +# 4329 "parsing/parser.mly" ( "rec" ) -# 47309 "parsing/parser.ml" +# 47253 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47328,9 +47272,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4349 "parsing/parser.mly" +# 4330 "parsing/parser.mly" ( "sig" ) -# 47334 "parsing/parser.ml" +# 47278 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47353,9 +47297,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4350 "parsing/parser.mly" +# 4331 "parsing/parser.mly" ( "struct" ) -# 47359 "parsing/parser.ml" +# 47303 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47378,9 +47322,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4351 "parsing/parser.mly" +# 4332 "parsing/parser.mly" ( "then" ) -# 47384 "parsing/parser.ml" +# 47328 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47403,9 +47347,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4352 "parsing/parser.mly" +# 4333 "parsing/parser.mly" ( "to" ) -# 47409 "parsing/parser.ml" +# 47353 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47428,9 +47372,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4353 "parsing/parser.mly" +# 4334 "parsing/parser.mly" ( "true" ) -# 47434 "parsing/parser.ml" +# 47378 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47453,9 +47397,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4354 "parsing/parser.mly" +# 4335 "parsing/parser.mly" ( "try" ) -# 47459 "parsing/parser.ml" +# 47403 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47478,9 +47422,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4355 "parsing/parser.mly" +# 4336 "parsing/parser.mly" ( "type" ) -# 47484 "parsing/parser.ml" +# 47428 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47503,9 +47447,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4356 "parsing/parser.mly" +# 4337 "parsing/parser.mly" ( "val" ) -# 47509 "parsing/parser.ml" +# 47453 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47528,9 +47472,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4357 "parsing/parser.mly" +# 4338 "parsing/parser.mly" ( "virtual" ) -# 47534 "parsing/parser.ml" +# 47478 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47553,9 +47497,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4358 "parsing/parser.mly" +# 4339 "parsing/parser.mly" ( "when" ) -# 47559 "parsing/parser.ml" +# 47503 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47578,9 +47522,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4359 "parsing/parser.mly" +# 4340 "parsing/parser.mly" ( "while" ) -# 47584 "parsing/parser.ml" +# 47528 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47603,9 +47547,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4360 "parsing/parser.mly" +# 4341 "parsing/parser.mly" ( "with" ) -# 47609 "parsing/parser.ml" +# 47553 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47628,9 +47572,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.type_exception * string Asttypes.loc option) = -# 3550 "parsing/parser.mly" +# 3531 "parsing/parser.mly" ( _1 ) -# 47634 "parsing/parser.ml" +# 47578 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47704,18 +47648,18 @@ module Tables = struct let _v : (Parsetree.type_exception * string Asttypes.loc option) = let attrs = let _1 = _1_inlined5 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 47710 "parsing/parser.ml" +# 47654 "parsing/parser.ml" in let _endpos_attrs_ = _endpos__1_inlined5_ in let attrs2 = let _1 = _1_inlined4 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 47719 "parsing/parser.ml" +# 47663 "parsing/parser.ml" in let lid = @@ -47724,9 +47668,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 47730 "parsing/parser.ml" +# 47674 "parsing/parser.ml" in let id = @@ -47735,30 +47679,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 47741 "parsing/parser.ml" +# 47685 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 47749 "parsing/parser.ml" +# 47693 "parsing/parser.ml" in let _endpos = _endpos_attrs_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3559 "parsing/parser.mly" +# 3540 "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 ) -# 47762 "parsing/parser.ml" +# 47706 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47788,9 +47732,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.expression) = -# 3019 "parsing/parser.mly" +# 3001 "parsing/parser.mly" ( _2 ) -# 47794 "parsing/parser.ml" +# 47738 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47823,9 +47767,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3021 "parsing/parser.mly" +# 3003 "parsing/parser.mly" ( let (l, o, p) = _1 in ghexp ~loc:_sloc (Pexp_fun(l, o, p, _2)) ) -# 47829 "parsing/parser.ml" +# 47773 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47876,17 +47820,17 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__5_ in let _v : (Parsetree.expression) = let _3 = -# 2895 "parsing/parser.mly" +# 2877 "parsing/parser.mly" ( xs ) -# 47882 "parsing/parser.ml" +# 47826 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3023 "parsing/parser.mly" +# 3005 "parsing/parser.mly" ( mk_newtypes ~loc:_sloc _3 _5 ) -# 47890 "parsing/parser.ml" +# 47834 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -47968,24 +47912,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 47972 "parsing/parser.ml" +# 47916 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 47977 "parsing/parser.ml" +# 47921 "parsing/parser.ml" in -# 3735 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 47983 "parsing/parser.ml" +# 47927 "parsing/parser.ml" in -# 3847 "parsing/parser.mly" +# 3828 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 47989 "parsing/parser.ml" +# 47933 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -47993,40 +47937,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 47999 "parsing/parser.ml" +# 47943 "parsing/parser.ml" in -# 3849 "parsing/parser.mly" +# 3830 "parsing/parser.mly" ( _1 ) -# 48005 "parsing/parser.ml" +# 47949 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48012 "parsing/parser.ml" +# 47956 "parsing/parser.ml" in let local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 48018 "parsing/parser.ml" +# 47962 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos_label_, _endpos_label_) in let label = -# 3832 "parsing/parser.mly" +# 3813 "parsing/parser.mly" ( Optional label ) -# 48024 "parsing/parser.ml" +# 47968 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3812 "parsing/parser.mly" +# 3793 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48030 "parsing/parser.ml" +# 47974 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -48034,15 +47978,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48040 "parsing/parser.ml" +# 47984 "parsing/parser.ml" in -# 3814 "parsing/parser.mly" +# 3795 "parsing/parser.mly" ( _1 ) -# 48046 "parsing/parser.ml" +# 47990 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48089,33 +48033,33 @@ module Tables = struct let _1 = let domain = let _1 = -# 3851 "parsing/parser.mly" +# 3832 "parsing/parser.mly" ( ty ) -# 48095 "parsing/parser.ml" +# 48039 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48101 "parsing/parser.ml" +# 48045 "parsing/parser.ml" in let local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 48107 "parsing/parser.ml" +# 48051 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos_label_, _endpos_label_) in let label = -# 3832 "parsing/parser.mly" +# 3813 "parsing/parser.mly" ( Optional label ) -# 48113 "parsing/parser.ml" +# 48057 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3812 "parsing/parser.mly" +# 3793 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48119 "parsing/parser.ml" +# 48063 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -48123,15 +48067,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48129 "parsing/parser.ml" +# 48073 "parsing/parser.ml" in -# 3814 "parsing/parser.mly" +# 3795 "parsing/parser.mly" ( _1 ) -# 48135 "parsing/parser.ml" +# 48079 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48221,24 +48165,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 48225 "parsing/parser.ml" +# 48169 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 48230 "parsing/parser.ml" +# 48174 "parsing/parser.ml" in -# 3735 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 48236 "parsing/parser.ml" +# 48180 "parsing/parser.ml" in -# 3847 "parsing/parser.mly" +# 3828 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 48242 "parsing/parser.ml" +# 48186 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -48246,40 +48190,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48252 "parsing/parser.ml" +# 48196 "parsing/parser.ml" in -# 3849 "parsing/parser.mly" +# 3830 "parsing/parser.mly" ( _1 ) -# 48258 "parsing/parser.ml" +# 48202 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48265 "parsing/parser.ml" +# 48209 "parsing/parser.ml" in let local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 48271 "parsing/parser.ml" +# 48215 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3832 "parsing/parser.mly" +# 3813 "parsing/parser.mly" ( Optional label ) -# 48277 "parsing/parser.ml" +# 48221 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3812 "parsing/parser.mly" +# 3793 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48283 "parsing/parser.ml" +# 48227 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -48287,15 +48231,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48293 "parsing/parser.ml" +# 48237 "parsing/parser.ml" in -# 3814 "parsing/parser.mly" +# 3795 "parsing/parser.mly" ( _1 ) -# 48299 "parsing/parser.ml" +# 48243 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48349,33 +48293,33 @@ module Tables = struct let _1 = let domain = let _1 = -# 3851 "parsing/parser.mly" +# 3832 "parsing/parser.mly" ( ty ) -# 48355 "parsing/parser.ml" +# 48299 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48361 "parsing/parser.ml" +# 48305 "parsing/parser.ml" in let local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 48367 "parsing/parser.ml" +# 48311 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3832 "parsing/parser.mly" +# 3813 "parsing/parser.mly" ( Optional label ) -# 48373 "parsing/parser.ml" +# 48317 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3812 "parsing/parser.mly" +# 3793 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48379 "parsing/parser.ml" +# 48323 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -48383,15 +48327,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48389 "parsing/parser.ml" +# 48333 "parsing/parser.ml" in -# 3814 "parsing/parser.mly" +# 3795 "parsing/parser.mly" ( _1 ) -# 48395 "parsing/parser.ml" +# 48339 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48466,9 +48410,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 48472 "parsing/parser.ml" +# 48416 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -48484,24 +48428,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 48488 "parsing/parser.ml" +# 48432 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 48493 "parsing/parser.ml" +# 48437 "parsing/parser.ml" in -# 3735 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 48499 "parsing/parser.ml" +# 48443 "parsing/parser.ml" in -# 3847 "parsing/parser.mly" +# 3828 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 48505 "parsing/parser.ml" +# 48449 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -48509,40 +48453,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48515 "parsing/parser.ml" +# 48459 "parsing/parser.ml" in -# 3849 "parsing/parser.mly" +# 3830 "parsing/parser.mly" ( _1 ) -# 48521 "parsing/parser.ml" +# 48465 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48528 "parsing/parser.ml" +# 48472 "parsing/parser.ml" in let local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 48534 "parsing/parser.ml" +# 48478 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__2_, _endpos__2_) in let label = -# 3834 "parsing/parser.mly" +# 3815 "parsing/parser.mly" ( Labelled label ) -# 48540 "parsing/parser.ml" +# 48484 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3812 "parsing/parser.mly" +# 3793 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48546 "parsing/parser.ml" +# 48490 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -48550,15 +48494,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48556 "parsing/parser.ml" +# 48500 "parsing/parser.ml" in -# 3814 "parsing/parser.mly" +# 3795 "parsing/parser.mly" ( _1 ) -# 48562 "parsing/parser.ml" +# 48506 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48605,9 +48549,9 @@ module Tables = struct let ty : (Parsetree.core_type) = Obj.magic ty in let _2 : unit = Obj.magic _2 in let label : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 48611 "parsing/parser.ml" +# 48555 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -48616,33 +48560,33 @@ module Tables = struct let _1 = let domain = let _1 = -# 3851 "parsing/parser.mly" +# 3832 "parsing/parser.mly" ( ty ) -# 48622 "parsing/parser.ml" +# 48566 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48628 "parsing/parser.ml" +# 48572 "parsing/parser.ml" in let local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 48634 "parsing/parser.ml" +# 48578 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__2_, _endpos__2_) in let label = -# 3834 "parsing/parser.mly" +# 3815 "parsing/parser.mly" ( Labelled label ) -# 48640 "parsing/parser.ml" +# 48584 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3812 "parsing/parser.mly" +# 3793 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48646 "parsing/parser.ml" +# 48590 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -48650,15 +48594,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48656 "parsing/parser.ml" +# 48600 "parsing/parser.ml" in -# 3814 "parsing/parser.mly" +# 3795 "parsing/parser.mly" ( _1 ) -# 48662 "parsing/parser.ml" +# 48606 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48740,9 +48684,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 48746 "parsing/parser.ml" +# 48690 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -48759,24 +48703,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 48763 "parsing/parser.ml" +# 48707 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 48768 "parsing/parser.ml" +# 48712 "parsing/parser.ml" in -# 3735 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 48774 "parsing/parser.ml" +# 48718 "parsing/parser.ml" in -# 3847 "parsing/parser.mly" +# 3828 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 48780 "parsing/parser.ml" +# 48724 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -48784,40 +48728,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48790 "parsing/parser.ml" +# 48734 "parsing/parser.ml" in -# 3849 "parsing/parser.mly" +# 3830 "parsing/parser.mly" ( _1 ) -# 48796 "parsing/parser.ml" +# 48740 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48803 "parsing/parser.ml" +# 48747 "parsing/parser.ml" in let local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 48809 "parsing/parser.ml" +# 48753 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3834 "parsing/parser.mly" +# 3815 "parsing/parser.mly" ( Labelled label ) -# 48815 "parsing/parser.ml" +# 48759 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3812 "parsing/parser.mly" +# 3793 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48821 "parsing/parser.ml" +# 48765 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -48825,15 +48769,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48831 "parsing/parser.ml" +# 48775 "parsing/parser.ml" in -# 3814 "parsing/parser.mly" +# 3795 "parsing/parser.mly" ( _1 ) -# 48837 "parsing/parser.ml" +# 48781 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -48887,9 +48831,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 48893 "parsing/parser.ml" +# 48837 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -48898,33 +48842,33 @@ module Tables = struct let _1 = let domain = let _1 = -# 3851 "parsing/parser.mly" +# 3832 "parsing/parser.mly" ( ty ) -# 48904 "parsing/parser.ml" +# 48848 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 48910 "parsing/parser.ml" +# 48854 "parsing/parser.ml" in let local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 48916 "parsing/parser.ml" +# 48860 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3834 "parsing/parser.mly" +# 3815 "parsing/parser.mly" ( Labelled label ) -# 48922 "parsing/parser.ml" +# 48866 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3812 "parsing/parser.mly" +# 3793 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 48928 "parsing/parser.ml" +# 48872 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -48932,15 +48876,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 48938 "parsing/parser.ml" +# 48882 "parsing/parser.ml" in -# 3814 "parsing/parser.mly" +# 3795 "parsing/parser.mly" ( _1 ) -# 48944 "parsing/parser.ml" +# 48888 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49015,24 +48959,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 49019 "parsing/parser.ml" +# 48963 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 49024 "parsing/parser.ml" +# 48968 "parsing/parser.ml" in -# 3735 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 49030 "parsing/parser.ml" +# 48974 "parsing/parser.ml" in -# 3847 "parsing/parser.mly" +# 3828 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 49036 "parsing/parser.ml" +# 48980 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -49040,40 +48984,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49046 "parsing/parser.ml" +# 48990 "parsing/parser.ml" in -# 3849 "parsing/parser.mly" +# 3830 "parsing/parser.mly" ( _1 ) -# 49052 "parsing/parser.ml" +# 48996 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 49059 "parsing/parser.ml" +# 49003 "parsing/parser.ml" in let local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 49065 "parsing/parser.ml" +# 49009 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__0_, _endpos__0_) in let label = -# 3836 "parsing/parser.mly" +# 3817 "parsing/parser.mly" ( Nolabel ) -# 49071 "parsing/parser.ml" +# 49015 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3812 "parsing/parser.mly" +# 3793 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 49077 "parsing/parser.ml" +# 49021 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -49081,15 +49025,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49087 "parsing/parser.ml" +# 49031 "parsing/parser.ml" in -# 3814 "parsing/parser.mly" +# 3795 "parsing/parser.mly" ( _1 ) -# 49093 "parsing/parser.ml" +# 49037 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49129,33 +49073,33 @@ module Tables = struct let _1 = let domain = let _1 = -# 3851 "parsing/parser.mly" +# 3832 "parsing/parser.mly" ( ty ) -# 49135 "parsing/parser.ml" +# 49079 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 49141 "parsing/parser.ml" +# 49085 "parsing/parser.ml" in let local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 49147 "parsing/parser.ml" +# 49091 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__0_, _endpos__0_) in let label = -# 3836 "parsing/parser.mly" +# 3817 "parsing/parser.mly" ( Nolabel ) -# 49153 "parsing/parser.ml" +# 49097 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3812 "parsing/parser.mly" +# 3793 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 49159 "parsing/parser.ml" +# 49103 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_ty_) in @@ -49163,15 +49107,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49169 "parsing/parser.ml" +# 49113 "parsing/parser.ml" in -# 3814 "parsing/parser.mly" +# 3795 "parsing/parser.mly" ( _1 ) -# 49175 "parsing/parser.ml" +# 49119 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49254,24 +49198,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 49258 "parsing/parser.ml" +# 49202 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 49263 "parsing/parser.ml" +# 49207 "parsing/parser.ml" in -# 3735 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 49269 "parsing/parser.ml" +# 49213 "parsing/parser.ml" in -# 3847 "parsing/parser.mly" +# 3828 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 49275 "parsing/parser.ml" +# 49219 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -49279,40 +49223,40 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49285 "parsing/parser.ml" +# 49229 "parsing/parser.ml" in -# 3849 "parsing/parser.mly" +# 3830 "parsing/parser.mly" ( _1 ) -# 49291 "parsing/parser.ml" +# 49235 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 49298 "parsing/parser.ml" +# 49242 "parsing/parser.ml" in let local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 49304 "parsing/parser.ml" +# 49248 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3836 "parsing/parser.mly" +# 3817 "parsing/parser.mly" ( Nolabel ) -# 49310 "parsing/parser.ml" +# 49254 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3812 "parsing/parser.mly" +# 3793 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 49316 "parsing/parser.ml" +# 49260 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -49320,15 +49264,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49326 "parsing/parser.ml" +# 49270 "parsing/parser.ml" in -# 3814 "parsing/parser.mly" +# 3795 "parsing/parser.mly" ( _1 ) -# 49332 "parsing/parser.ml" +# 49276 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49375,33 +49319,33 @@ module Tables = struct let _1 = let domain = let _1 = -# 3851 "parsing/parser.mly" +# 3832 "parsing/parser.mly" ( ty ) -# 49381 "parsing/parser.ml" +# 49325 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 49387 "parsing/parser.ml" +# 49331 "parsing/parser.ml" in let local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 49393 "parsing/parser.ml" +# 49337 "parsing/parser.ml" in let (_endpos_local_, _startpos_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3836 "parsing/parser.mly" +# 3817 "parsing/parser.mly" ( Nolabel ) -# 49399 "parsing/parser.ml" +# 49343 "parsing/parser.ml" in let _loc_local_ = (_startpos_local_, _endpos_local_) in -# 3812 "parsing/parser.mly" +# 3793 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if local domain _loc_local_, codomain) ) -# 49405 "parsing/parser.ml" +# 49349 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -49409,15 +49353,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49415 "parsing/parser.ml" +# 49359 "parsing/parser.ml" in -# 3814 "parsing/parser.mly" +# 3795 "parsing/parser.mly" ( _1 ) -# 49421 "parsing/parser.ml" +# 49365 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49491,9 +49435,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 49497 "parsing/parser.ml" +# 49441 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = @@ -49505,24 +49449,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 49509 "parsing/parser.ml" +# 49453 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 49514 "parsing/parser.ml" +# 49458 "parsing/parser.ml" in -# 3735 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 49520 "parsing/parser.ml" +# 49464 "parsing/parser.ml" in -# 3847 "parsing/parser.mly" +# 3828 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 49526 "parsing/parser.ml" +# 49470 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -49530,45 +49474,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49536 "parsing/parser.ml" +# 49480 "parsing/parser.ml" in -# 3849 "parsing/parser.mly" +# 3830 "parsing/parser.mly" ( _1 ) -# 49542 "parsing/parser.ml" +# 49486 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 49549 "parsing/parser.ml" +# 49493 "parsing/parser.ml" in let arg_local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 49555 "parsing/parser.ml" +# 49499 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos_label_, _endpos_label_) in let label = -# 3832 "parsing/parser.mly" +# 3813 "parsing/parser.mly" ( Optional label ) -# 49561 "parsing/parser.ml" +# 49505 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3823 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 49572 "parsing/parser.ml" +# 49516 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -49576,15 +49520,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49582 "parsing/parser.ml" +# 49526 "parsing/parser.ml" in -# 3828 "parsing/parser.mly" +# 3809 "parsing/parser.mly" ( _1 ) -# 49588 "parsing/parser.ml" +# 49532 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49665,9 +49609,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 49671 "parsing/parser.ml" +# 49615 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let domain = @@ -49679,24 +49623,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 49683 "parsing/parser.ml" +# 49627 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 49688 "parsing/parser.ml" +# 49632 "parsing/parser.ml" in -# 3735 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 49694 "parsing/parser.ml" +# 49638 "parsing/parser.ml" in -# 3847 "parsing/parser.mly" +# 3828 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 49700 "parsing/parser.ml" +# 49644 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -49704,45 +49648,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49710 "parsing/parser.ml" +# 49654 "parsing/parser.ml" in -# 3849 "parsing/parser.mly" +# 3830 "parsing/parser.mly" ( _1 ) -# 49716 "parsing/parser.ml" +# 49660 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 49723 "parsing/parser.ml" +# 49667 "parsing/parser.ml" in let arg_local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 49729 "parsing/parser.ml" +# 49673 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos_label_, _endpos_label_) in let label = -# 3832 "parsing/parser.mly" +# 3813 "parsing/parser.mly" ( Optional label ) -# 49735 "parsing/parser.ml" +# 49679 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3823 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 49746 "parsing/parser.ml" +# 49690 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -49750,15 +49694,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49756 "parsing/parser.ml" +# 49700 "parsing/parser.ml" in -# 3828 "parsing/parser.mly" +# 3809 "parsing/parser.mly" ( _1 ) -# 49762 "parsing/parser.ml" +# 49706 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49804,45 +49748,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 49810 "parsing/parser.ml" +# 49754 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = let _1 = -# 3851 "parsing/parser.mly" +# 3832 "parsing/parser.mly" ( ty ) -# 49817 "parsing/parser.ml" +# 49761 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 49823 "parsing/parser.ml" +# 49767 "parsing/parser.ml" in let arg_local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 49829 "parsing/parser.ml" +# 49773 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos_label_, _endpos_label_) in let label = -# 3832 "parsing/parser.mly" +# 3813 "parsing/parser.mly" ( Optional label ) -# 49835 "parsing/parser.ml" +# 49779 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3823 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 49846 "parsing/parser.ml" +# 49790 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -49850,15 +49794,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49856 "parsing/parser.ml" +# 49800 "parsing/parser.ml" in -# 3828 "parsing/parser.mly" +# 3809 "parsing/parser.mly" ( _1 ) -# 49862 "parsing/parser.ml" +# 49806 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -49911,45 +49855,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 49917 "parsing/parser.ml" +# 49861 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_, _startpos__1_) in let domain = let _1 = -# 3851 "parsing/parser.mly" +# 3832 "parsing/parser.mly" ( ty ) -# 49924 "parsing/parser.ml" +# 49868 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 49930 "parsing/parser.ml" +# 49874 "parsing/parser.ml" in let arg_local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 49936 "parsing/parser.ml" +# 49880 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos_label_, _endpos_label_) in let label = -# 3832 "parsing/parser.mly" +# 3813 "parsing/parser.mly" ( Optional label ) -# 49942 "parsing/parser.ml" +# 49886 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3823 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 49953 "parsing/parser.ml" +# 49897 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -49957,15 +49901,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 49963 "parsing/parser.ml" +# 49907 "parsing/parser.ml" in -# 3828 "parsing/parser.mly" +# 3809 "parsing/parser.mly" ( _1 ) -# 49969 "parsing/parser.ml" +# 49913 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50046,9 +49990,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 50052 "parsing/parser.ml" +# 49996 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = @@ -50061,24 +50005,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 50065 "parsing/parser.ml" +# 50009 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 50070 "parsing/parser.ml" +# 50014 "parsing/parser.ml" in -# 3735 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 50076 "parsing/parser.ml" +# 50020 "parsing/parser.ml" in -# 3847 "parsing/parser.mly" +# 3828 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 50082 "parsing/parser.ml" +# 50026 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -50086,45 +50030,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50092 "parsing/parser.ml" +# 50036 "parsing/parser.ml" in -# 3849 "parsing/parser.mly" +# 3830 "parsing/parser.mly" ( _1 ) -# 50098 "parsing/parser.ml" +# 50042 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 50105 "parsing/parser.ml" +# 50049 "parsing/parser.ml" in let arg_local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 50111 "parsing/parser.ml" +# 50055 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3832 "parsing/parser.mly" +# 3813 "parsing/parser.mly" ( Optional label ) -# 50117 "parsing/parser.ml" +# 50061 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3823 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 50128 "parsing/parser.ml" +# 50072 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -50132,15 +50076,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50138 "parsing/parser.ml" +# 50082 "parsing/parser.ml" in -# 3828 "parsing/parser.mly" +# 3809 "parsing/parser.mly" ( _1 ) -# 50144 "parsing/parser.ml" +# 50088 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50228,9 +50172,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 50234 "parsing/parser.ml" +# 50178 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let domain = @@ -50243,24 +50187,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 50247 "parsing/parser.ml" +# 50191 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 50252 "parsing/parser.ml" +# 50196 "parsing/parser.ml" in -# 3735 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 50258 "parsing/parser.ml" +# 50202 "parsing/parser.ml" in -# 3847 "parsing/parser.mly" +# 3828 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 50264 "parsing/parser.ml" +# 50208 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -50268,45 +50212,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50274 "parsing/parser.ml" +# 50218 "parsing/parser.ml" in -# 3849 "parsing/parser.mly" +# 3830 "parsing/parser.mly" ( _1 ) -# 50280 "parsing/parser.ml" +# 50224 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 50287 "parsing/parser.ml" +# 50231 "parsing/parser.ml" in let arg_local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 50293 "parsing/parser.ml" +# 50237 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3832 "parsing/parser.mly" +# 3813 "parsing/parser.mly" ( Optional label ) -# 50299 "parsing/parser.ml" +# 50243 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3823 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 50310 "parsing/parser.ml" +# 50254 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -50314,15 +50258,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50320 "parsing/parser.ml" +# 50264 "parsing/parser.ml" in -# 3828 "parsing/parser.mly" +# 3809 "parsing/parser.mly" ( _1 ) -# 50326 "parsing/parser.ml" +# 50270 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50375,45 +50319,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 50381 "parsing/parser.ml" +# 50325 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = let _1 = -# 3851 "parsing/parser.mly" +# 3832 "parsing/parser.mly" ( ty ) -# 50388 "parsing/parser.ml" +# 50332 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 50394 "parsing/parser.ml" +# 50338 "parsing/parser.ml" in let arg_local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 50400 "parsing/parser.ml" +# 50344 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3832 "parsing/parser.mly" +# 3813 "parsing/parser.mly" ( Optional label ) -# 50406 "parsing/parser.ml" +# 50350 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3823 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 50417 "parsing/parser.ml" +# 50361 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -50421,15 +50365,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50427 "parsing/parser.ml" +# 50371 "parsing/parser.ml" in -# 3828 "parsing/parser.mly" +# 3809 "parsing/parser.mly" ( _1 ) -# 50433 "parsing/parser.ml" +# 50377 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50489,45 +50433,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 50495 "parsing/parser.ml" +# 50439 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let domain = let _1 = -# 3851 "parsing/parser.mly" +# 3832 "parsing/parser.mly" ( ty ) -# 50502 "parsing/parser.ml" +# 50446 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 50508 "parsing/parser.ml" +# 50452 "parsing/parser.ml" in let arg_local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 50514 "parsing/parser.ml" +# 50458 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3832 "parsing/parser.mly" +# 3813 "parsing/parser.mly" ( Optional label ) -# 50520 "parsing/parser.ml" +# 50464 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3823 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 50531 "parsing/parser.ml" +# 50475 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -50535,15 +50479,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50541 "parsing/parser.ml" +# 50485 "parsing/parser.ml" in -# 3828 "parsing/parser.mly" +# 3809 "parsing/parser.mly" ( _1 ) -# 50547 "parsing/parser.ml" +# 50491 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50618,9 +50562,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 50624 "parsing/parser.ml" +# 50568 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -50628,9 +50572,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 50634 "parsing/parser.ml" +# 50578 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = @@ -50642,24 +50586,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 50646 "parsing/parser.ml" +# 50590 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 50651 "parsing/parser.ml" +# 50595 "parsing/parser.ml" in -# 3735 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 50657 "parsing/parser.ml" +# 50601 "parsing/parser.ml" in -# 3847 "parsing/parser.mly" +# 3828 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 50663 "parsing/parser.ml" +# 50607 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -50667,45 +50611,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50673 "parsing/parser.ml" +# 50617 "parsing/parser.ml" in -# 3849 "parsing/parser.mly" +# 3830 "parsing/parser.mly" ( _1 ) -# 50679 "parsing/parser.ml" +# 50623 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 50686 "parsing/parser.ml" +# 50630 "parsing/parser.ml" in let arg_local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 50692 "parsing/parser.ml" +# 50636 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__2_, _endpos__2_) in let label = -# 3834 "parsing/parser.mly" +# 3815 "parsing/parser.mly" ( Labelled label ) -# 50698 "parsing/parser.ml" +# 50642 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3823 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 50709 "parsing/parser.ml" +# 50653 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -50713,15 +50657,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50719 "parsing/parser.ml" +# 50663 "parsing/parser.ml" in -# 3828 "parsing/parser.mly" +# 3809 "parsing/parser.mly" ( _1 ) -# 50725 "parsing/parser.ml" +# 50669 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50803,9 +50747,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 50809 "parsing/parser.ml" +# 50753 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -50813,9 +50757,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 50819 "parsing/parser.ml" +# 50763 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let domain = @@ -50827,24 +50771,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 50831 "parsing/parser.ml" +# 50775 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 50836 "parsing/parser.ml" +# 50780 "parsing/parser.ml" in -# 3735 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 50842 "parsing/parser.ml" +# 50786 "parsing/parser.ml" in -# 3847 "parsing/parser.mly" +# 3828 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 50848 "parsing/parser.ml" +# 50792 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -50852,45 +50796,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50858 "parsing/parser.ml" +# 50802 "parsing/parser.ml" in -# 3849 "parsing/parser.mly" +# 3830 "parsing/parser.mly" ( _1 ) -# 50864 "parsing/parser.ml" +# 50808 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 50871 "parsing/parser.ml" +# 50815 "parsing/parser.ml" in let arg_local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 50877 "parsing/parser.ml" +# 50821 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__2_, _endpos__2_) in let label = -# 3834 "parsing/parser.mly" +# 3815 "parsing/parser.mly" ( Labelled label ) -# 50883 "parsing/parser.ml" +# 50827 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3823 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 50894 "parsing/parser.ml" +# 50838 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -50898,15 +50842,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 50904 "parsing/parser.ml" +# 50848 "parsing/parser.ml" in -# 3828 "parsing/parser.mly" +# 3809 "parsing/parser.mly" ( _1 ) -# 50910 "parsing/parser.ml" +# 50854 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -50953,9 +50897,9 @@ module Tables = struct let ty : (Parsetree.core_type) = Obj.magic ty in let _2 : unit = Obj.magic _2 in let label : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 50959 "parsing/parser.ml" +# 50903 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -50963,45 +50907,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 50969 "parsing/parser.ml" +# 50913 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = let _1 = -# 3851 "parsing/parser.mly" +# 3832 "parsing/parser.mly" ( ty ) -# 50976 "parsing/parser.ml" +# 50920 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 50982 "parsing/parser.ml" +# 50926 "parsing/parser.ml" in let arg_local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 50988 "parsing/parser.ml" +# 50932 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__2_, _endpos__2_) in let label = -# 3834 "parsing/parser.mly" +# 3815 "parsing/parser.mly" ( Labelled label ) -# 50994 "parsing/parser.ml" +# 50938 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3823 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 51005 "parsing/parser.ml" +# 50949 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -51009,15 +50953,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51015 "parsing/parser.ml" +# 50959 "parsing/parser.ml" in -# 3828 "parsing/parser.mly" +# 3809 "parsing/parser.mly" ( _1 ) -# 51021 "parsing/parser.ml" +# 50965 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51071,9 +51015,9 @@ module Tables = struct let ty : (Parsetree.core_type) = Obj.magic ty in let _2 : unit = Obj.magic _2 in let label : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 51077 "parsing/parser.ml" +# 51021 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -51081,45 +51025,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 51087 "parsing/parser.ml" +# 51031 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_, _startpos__1_) in let domain = let _1 = -# 3851 "parsing/parser.mly" +# 3832 "parsing/parser.mly" ( ty ) -# 51094 "parsing/parser.ml" +# 51038 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 51100 "parsing/parser.ml" +# 51044 "parsing/parser.ml" in let arg_local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 51106 "parsing/parser.ml" +# 51050 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__2_, _endpos__2_) in let label = -# 3834 "parsing/parser.mly" +# 3815 "parsing/parser.mly" ( Labelled label ) -# 51112 "parsing/parser.ml" +# 51056 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3823 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 51123 "parsing/parser.ml" +# 51067 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -51127,15 +51071,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51133 "parsing/parser.ml" +# 51077 "parsing/parser.ml" in -# 3828 "parsing/parser.mly" +# 3809 "parsing/parser.mly" ( _1 ) -# 51139 "parsing/parser.ml" +# 51083 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51217,9 +51161,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 51223 "parsing/parser.ml" +# 51167 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -51227,9 +51171,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 51233 "parsing/parser.ml" +# 51177 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = @@ -51242,24 +51186,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 51246 "parsing/parser.ml" +# 51190 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 51251 "parsing/parser.ml" +# 51195 "parsing/parser.ml" in -# 3735 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 51257 "parsing/parser.ml" +# 51201 "parsing/parser.ml" in -# 3847 "parsing/parser.mly" +# 3828 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 51263 "parsing/parser.ml" +# 51207 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -51267,45 +51211,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51273 "parsing/parser.ml" +# 51217 "parsing/parser.ml" in -# 3849 "parsing/parser.mly" +# 3830 "parsing/parser.mly" ( _1 ) -# 51279 "parsing/parser.ml" +# 51223 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 51286 "parsing/parser.ml" +# 51230 "parsing/parser.ml" in let arg_local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 51292 "parsing/parser.ml" +# 51236 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3834 "parsing/parser.mly" +# 3815 "parsing/parser.mly" ( Labelled label ) -# 51298 "parsing/parser.ml" +# 51242 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3823 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 51309 "parsing/parser.ml" +# 51253 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -51313,15 +51257,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51319 "parsing/parser.ml" +# 51263 "parsing/parser.ml" in -# 3828 "parsing/parser.mly" +# 3809 "parsing/parser.mly" ( _1 ) -# 51325 "parsing/parser.ml" +# 51269 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51410,9 +51354,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 51416 "parsing/parser.ml" +# 51360 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -51420,9 +51364,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 51426 "parsing/parser.ml" +# 51370 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let domain = @@ -51435,24 +51379,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 51439 "parsing/parser.ml" +# 51383 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 51444 "parsing/parser.ml" +# 51388 "parsing/parser.ml" in -# 3735 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 51450 "parsing/parser.ml" +# 51394 "parsing/parser.ml" in -# 3847 "parsing/parser.mly" +# 3828 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 51456 "parsing/parser.ml" +# 51400 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -51460,45 +51404,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51466 "parsing/parser.ml" +# 51410 "parsing/parser.ml" in -# 3849 "parsing/parser.mly" +# 3830 "parsing/parser.mly" ( _1 ) -# 51472 "parsing/parser.ml" +# 51416 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 51479 "parsing/parser.ml" +# 51423 "parsing/parser.ml" in let arg_local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 51485 "parsing/parser.ml" +# 51429 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3834 "parsing/parser.mly" +# 3815 "parsing/parser.mly" ( Labelled label ) -# 51491 "parsing/parser.ml" +# 51435 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3823 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 51502 "parsing/parser.ml" +# 51446 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -51506,15 +51450,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51512 "parsing/parser.ml" +# 51456 "parsing/parser.ml" in -# 3828 "parsing/parser.mly" +# 3809 "parsing/parser.mly" ( _1 ) -# 51518 "parsing/parser.ml" +# 51462 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51568,9 +51512,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 51574 "parsing/parser.ml" +# 51518 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -51578,45 +51522,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 51584 "parsing/parser.ml" +# 51528 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = let _1 = -# 3851 "parsing/parser.mly" +# 3832 "parsing/parser.mly" ( ty ) -# 51591 "parsing/parser.ml" +# 51535 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 51597 "parsing/parser.ml" +# 51541 "parsing/parser.ml" in let arg_local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 51603 "parsing/parser.ml" +# 51547 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3834 "parsing/parser.mly" +# 3815 "parsing/parser.mly" ( Labelled label ) -# 51609 "parsing/parser.ml" +# 51553 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3823 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 51620 "parsing/parser.ml" +# 51564 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -51624,15 +51568,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51630 "parsing/parser.ml" +# 51574 "parsing/parser.ml" in -# 3828 "parsing/parser.mly" +# 3809 "parsing/parser.mly" ( _1 ) -# 51636 "parsing/parser.ml" +# 51580 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51693,9 +51637,9 @@ module Tables = struct let _1 : unit = Obj.magic _1 in let _2 : unit = Obj.magic _2 in let label : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 51699 "parsing/parser.ml" +# 51643 "parsing/parser.ml" ) = Obj.magic label in let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in let _startpos = _startpos_label_ in @@ -51703,45 +51647,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 51709 "parsing/parser.ml" +# 51653 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let domain = let _1 = -# 3851 "parsing/parser.mly" +# 3832 "parsing/parser.mly" ( ty ) -# 51716 "parsing/parser.ml" +# 51660 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 51722 "parsing/parser.ml" +# 51666 "parsing/parser.ml" in let arg_local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 51728 "parsing/parser.ml" +# 51672 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3834 "parsing/parser.mly" +# 3815 "parsing/parser.mly" ( Labelled label ) -# 51734 "parsing/parser.ml" +# 51678 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3823 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 51745 "parsing/parser.ml" +# 51689 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in @@ -51749,15 +51693,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51755 "parsing/parser.ml" +# 51699 "parsing/parser.ml" in -# 3828 "parsing/parser.mly" +# 3809 "parsing/parser.mly" ( _1 ) -# 51761 "parsing/parser.ml" +# 51705 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51824,9 +51768,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 51830 "parsing/parser.ml" +# 51774 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = @@ -51838,24 +51782,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 51842 "parsing/parser.ml" +# 51786 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 51847 "parsing/parser.ml" +# 51791 "parsing/parser.ml" in -# 3735 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 51853 "parsing/parser.ml" +# 51797 "parsing/parser.ml" in -# 3847 "parsing/parser.mly" +# 3828 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 51859 "parsing/parser.ml" +# 51803 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -51863,45 +51807,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51869 "parsing/parser.ml" +# 51813 "parsing/parser.ml" in -# 3849 "parsing/parser.mly" +# 3830 "parsing/parser.mly" ( _1 ) -# 51875 "parsing/parser.ml" +# 51819 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 51882 "parsing/parser.ml" +# 51826 "parsing/parser.ml" in let arg_local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 51888 "parsing/parser.ml" +# 51832 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__0_, _endpos__0_) in let label = -# 3836 "parsing/parser.mly" +# 3817 "parsing/parser.mly" ( Nolabel ) -# 51894 "parsing/parser.ml" +# 51838 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3823 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 51905 "parsing/parser.ml" +# 51849 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -51909,15 +51853,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 51915 "parsing/parser.ml" +# 51859 "parsing/parser.ml" in -# 3828 "parsing/parser.mly" +# 3809 "parsing/parser.mly" ( _1 ) -# 51921 "parsing/parser.ml" +# 51865 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -51991,9 +51935,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 51997 "parsing/parser.ml" +# 51941 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let domain = @@ -52005,24 +51949,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 52009 "parsing/parser.ml" +# 51953 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 52014 "parsing/parser.ml" +# 51958 "parsing/parser.ml" in -# 3735 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 52020 "parsing/parser.ml" +# 51964 "parsing/parser.ml" in -# 3847 "parsing/parser.mly" +# 3828 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 52026 "parsing/parser.ml" +# 51970 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -52030,45 +51974,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 52036 "parsing/parser.ml" +# 51980 "parsing/parser.ml" in -# 3849 "parsing/parser.mly" +# 3830 "parsing/parser.mly" ( _1 ) -# 52042 "parsing/parser.ml" +# 51986 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 52049 "parsing/parser.ml" +# 51993 "parsing/parser.ml" in let arg_local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 52055 "parsing/parser.ml" +# 51999 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__0_, _endpos__0_) in let label = -# 3836 "parsing/parser.mly" +# 3817 "parsing/parser.mly" ( Nolabel ) -# 52061 "parsing/parser.ml" +# 52005 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3823 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 52072 "parsing/parser.ml" +# 52016 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -52076,15 +52020,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 52082 "parsing/parser.ml" +# 52026 "parsing/parser.ml" in -# 3828 "parsing/parser.mly" +# 3809 "parsing/parser.mly" ( _1 ) -# 52088 "parsing/parser.ml" +# 52032 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52123,45 +52067,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 52129 "parsing/parser.ml" +# 52073 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = let _1 = -# 3851 "parsing/parser.mly" +# 3832 "parsing/parser.mly" ( ty ) -# 52136 "parsing/parser.ml" +# 52080 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 52142 "parsing/parser.ml" +# 52086 "parsing/parser.ml" in let arg_local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 52148 "parsing/parser.ml" +# 52092 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__0_, _endpos__0_) in let label = -# 3836 "parsing/parser.mly" +# 3817 "parsing/parser.mly" ( Nolabel ) -# 52154 "parsing/parser.ml" +# 52098 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3823 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 52165 "parsing/parser.ml" +# 52109 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_ty_) in @@ -52169,15 +52113,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 52175 "parsing/parser.ml" +# 52119 "parsing/parser.ml" in -# 3828 "parsing/parser.mly" +# 3809 "parsing/parser.mly" ( _1 ) -# 52181 "parsing/parser.ml" +# 52125 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52223,45 +52167,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 52229 "parsing/parser.ml" +# 52173 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_, _startpos__1_) in let domain = let _1 = -# 3851 "parsing/parser.mly" +# 3832 "parsing/parser.mly" ( ty ) -# 52236 "parsing/parser.ml" +# 52180 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 52242 "parsing/parser.ml" +# 52186 "parsing/parser.ml" in let arg_local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 52248 "parsing/parser.ml" +# 52192 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__0_, _endpos__0_) in let label = -# 3836 "parsing/parser.mly" +# 3817 "parsing/parser.mly" ( Nolabel ) -# 52254 "parsing/parser.ml" +# 52198 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3823 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 52265 "parsing/parser.ml" +# 52209 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_ty_) in @@ -52269,15 +52213,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 52275 "parsing/parser.ml" +# 52219 "parsing/parser.ml" in -# 3828 "parsing/parser.mly" +# 3809 "parsing/parser.mly" ( _1 ) -# 52281 "parsing/parser.ml" +# 52225 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52351,9 +52295,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 52357 "parsing/parser.ml" +# 52301 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = @@ -52366,24 +52310,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 52370 "parsing/parser.ml" +# 52314 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 52375 "parsing/parser.ml" +# 52319 "parsing/parser.ml" in -# 3735 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 52381 "parsing/parser.ml" +# 52325 "parsing/parser.ml" in -# 3847 "parsing/parser.mly" +# 3828 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 52387 "parsing/parser.ml" +# 52331 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -52391,45 +52335,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 52397 "parsing/parser.ml" +# 52341 "parsing/parser.ml" in -# 3849 "parsing/parser.mly" +# 3830 "parsing/parser.mly" ( _1 ) -# 52403 "parsing/parser.ml" +# 52347 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 52410 "parsing/parser.ml" +# 52354 "parsing/parser.ml" in let arg_local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 52416 "parsing/parser.ml" +# 52360 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3836 "parsing/parser.mly" +# 3817 "parsing/parser.mly" ( Nolabel ) -# 52422 "parsing/parser.ml" +# 52366 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3823 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 52433 "parsing/parser.ml" +# 52377 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -52437,15 +52381,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 52443 "parsing/parser.ml" +# 52387 "parsing/parser.ml" in -# 3828 "parsing/parser.mly" +# 3809 "parsing/parser.mly" ( _1 ) -# 52449 "parsing/parser.ml" +# 52393 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52526,9 +52470,9 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 52532 "parsing/parser.ml" +# 52476 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let domain = @@ -52541,24 +52485,24 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 52545 "parsing/parser.ml" +# 52489 "parsing/parser.ml" in -# 1244 "parsing/parser.mly" +# 1222 "parsing/parser.mly" ( xs ) -# 52550 "parsing/parser.ml" +# 52494 "parsing/parser.ml" in -# 3735 "parsing/parser.mly" +# 3716 "parsing/parser.mly" ( _1 ) -# 52556 "parsing/parser.ml" +# 52500 "parsing/parser.ml" in -# 3847 "parsing/parser.mly" +# 3828 "parsing/parser.mly" ( Ptyp_poly(vars, ty) ) -# 52562 "parsing/parser.ml" +# 52506 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in @@ -52566,45 +52510,45 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 52572 "parsing/parser.ml" +# 52516 "parsing/parser.ml" in -# 3849 "parsing/parser.mly" +# 3830 "parsing/parser.mly" ( _1 ) -# 52578 "parsing/parser.ml" +# 52522 "parsing/parser.ml" in let _endpos__1_ = _endpos__5_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 52585 "parsing/parser.ml" +# 52529 "parsing/parser.ml" in let arg_local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 52591 "parsing/parser.ml" +# 52535 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3836 "parsing/parser.mly" +# 3817 "parsing/parser.mly" ( Nolabel ) -# 52597 "parsing/parser.ml" +# 52541 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3823 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 52608 "parsing/parser.ml" +# 52552 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -52612,15 +52556,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 52618 "parsing/parser.ml" +# 52562 "parsing/parser.ml" in -# 3828 "parsing/parser.mly" +# 3809 "parsing/parser.mly" ( _1 ) -# 52624 "parsing/parser.ml" +# 52568 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52666,45 +52610,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3840 "parsing/parser.mly" +# 3821 "parsing/parser.mly" ( false ) -# 52672 "parsing/parser.ml" +# 52616 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__4_, _endpos__4_) in let domain = let _1 = -# 3851 "parsing/parser.mly" +# 3832 "parsing/parser.mly" ( ty ) -# 52679 "parsing/parser.ml" +# 52623 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 52685 "parsing/parser.ml" +# 52629 "parsing/parser.ml" in let arg_local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 52691 "parsing/parser.ml" +# 52635 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3836 "parsing/parser.mly" +# 3817 "parsing/parser.mly" ( Nolabel ) -# 52697 "parsing/parser.ml" +# 52641 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3823 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 52708 "parsing/parser.ml" +# 52652 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -52712,15 +52656,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 52718 "parsing/parser.ml" +# 52662 "parsing/parser.ml" in -# 3828 "parsing/parser.mly" +# 3809 "parsing/parser.mly" ( _1 ) -# 52724 "parsing/parser.ml" +# 52668 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52773,45 +52717,45 @@ module Tables = struct let _v : (Parsetree.core_type) = let _1 = let _1 = let ret_local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 52779 "parsing/parser.ml" +# 52723 "parsing/parser.ml" in let (_endpos_ret_local_, _startpos_ret_local_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let domain = let _1 = -# 3851 "parsing/parser.mly" +# 3832 "parsing/parser.mly" ( ty ) -# 52786 "parsing/parser.ml" +# 52730 "parsing/parser.ml" in let _endpos__1_ = _endpos_ty_ in -# 1140 "parsing/parser.mly" +# 1118 "parsing/parser.mly" ( extra_rhs_core_type _1 ~pos:_endpos__1_ ) -# 52792 "parsing/parser.ml" +# 52736 "parsing/parser.ml" in let arg_local = -# 3842 "parsing/parser.mly" +# 3823 "parsing/parser.mly" ( true ) -# 52798 "parsing/parser.ml" +# 52742 "parsing/parser.ml" in let (_endpos_arg_local_, _startpos_arg_local_) = (_endpos__1_, _startpos__1_) in let label = -# 3836 "parsing/parser.mly" +# 3817 "parsing/parser.mly" ( Nolabel ) -# 52804 "parsing/parser.ml" +# 52748 "parsing/parser.ml" in let _loc_ret_local_ = (_startpos_ret_local_, _endpos_ret_local_) in let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in let _loc_arg_local_ = (_startpos_arg_local_, _endpos_arg_local_) in -# 3823 "parsing/parser.mly" +# 3804 "parsing/parser.mly" ( Ptyp_arrow(label, mktyp_local_if arg_local domain _loc_arg_local_, mktyp_local_if ret_local (maybe_curry_typ codomain _loc_codomain_) _loc_ret_local_) ) -# 52815 "parsing/parser.ml" +# 52759 "parsing/parser.ml" in let _endpos__1_ = _endpos_codomain_ in @@ -52819,15 +52763,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 52825 "parsing/parser.ml" +# 52769 "parsing/parser.ml" in -# 3828 "parsing/parser.mly" +# 3809 "parsing/parser.mly" ( _1 ) -# 52831 "parsing/parser.ml" +# 52775 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52854,39 +52798,39 @@ module Tables = struct let ys = # 260 "" ( List.flatten xss ) -# 52858 "parsing/parser.ml" +# 52802 "parsing/parser.ml" in let xs = let items = -# 1212 "parsing/parser.mly" +# 1190 "parsing/parser.mly" ( [] ) -# 52864 "parsing/parser.ml" +# 52808 "parsing/parser.ml" in -# 1641 "parsing/parser.mly" +# 1619 "parsing/parser.mly" ( items ) -# 52869 "parsing/parser.ml" +# 52813 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 52875 "parsing/parser.ml" +# 52819 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1134 "parsing/parser.mly" +# 1112 "parsing/parser.mly" ( extra_str _startpos _endpos _1 ) -# 52884 "parsing/parser.ml" +# 52828 "parsing/parser.ml" in -# 1634 "parsing/parser.mly" +# 1612 "parsing/parser.mly" ( _1 ) -# 52890 "parsing/parser.ml" +# 52834 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -52927,7 +52871,7 @@ module Tables = struct let ys = # 260 "" ( List.flatten xss ) -# 52931 "parsing/parser.ml" +# 52875 "parsing/parser.ml" in let xs = let items = @@ -52935,65 +52879,65 @@ module Tables = struct let _1 = let _1 = let attrs = -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 52941 "parsing/parser.ml" +# 52885 "parsing/parser.ml" in -# 1648 "parsing/parser.mly" +# 1626 "parsing/parser.mly" ( mkstrexp e attrs ) -# 52946 "parsing/parser.ml" +# 52890 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in -# 1146 "parsing/parser.mly" +# 1124 "parsing/parser.mly" ( text_str _startpos @ [_1] ) -# 52954 "parsing/parser.ml" +# 52898 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1165 "parsing/parser.mly" +# 1143 "parsing/parser.mly" ( mark_rhs_docs _startpos _endpos; _1 ) -# 52964 "parsing/parser.ml" +# 52908 "parsing/parser.ml" in -# 1214 "parsing/parser.mly" +# 1192 "parsing/parser.mly" ( x ) -# 52970 "parsing/parser.ml" +# 52914 "parsing/parser.ml" in -# 1641 "parsing/parser.mly" +# 1619 "parsing/parser.mly" ( items ) -# 52976 "parsing/parser.ml" +# 52920 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 52982 "parsing/parser.ml" +# 52926 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_e_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1134 "parsing/parser.mly" +# 1112 "parsing/parser.mly" ( extra_str _startpos _endpos _1 ) -# 52991 "parsing/parser.ml" +# 52935 "parsing/parser.ml" in -# 1634 "parsing/parser.mly" +# 1612 "parsing/parser.mly" ( _1 ) -# 52997 "parsing/parser.ml" +# 52941 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53019,9 +52963,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1663 "parsing/parser.mly" +# 1641 "parsing/parser.mly" ( val_of_let_bindings ~loc:_sloc _1 ) -# 53025 "parsing/parser.ml" +# 52969 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53055,9 +52999,9 @@ module Tables = struct let _2 = let _1 = _1_inlined1 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 53061 "parsing/parser.ml" +# 53005 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in @@ -53065,10 +53009,10 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1666 "parsing/parser.mly" +# 1644 "parsing/parser.mly" ( let docs = symbol_docs _sloc in Pstr_extension (_1, add_docs_attrs docs _2) ) -# 53072 "parsing/parser.ml" +# 53016 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined1_ in @@ -53076,15 +53020,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1181 "parsing/parser.mly" +# 1159 "parsing/parser.mly" ( mkstr ~loc:_sloc _1 ) -# 53082 "parsing/parser.ml" +# 53026 "parsing/parser.ml" in -# 1700 "parsing/parser.mly" +# 1673 "parsing/parser.mly" ( _1 ) -# 53088 "parsing/parser.ml" +# 53032 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53108,23 +53052,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.structure_item) = let _1 = let _1 = -# 1669 "parsing/parser.mly" +# 1647 "parsing/parser.mly" ( Pstr_attribute _1 ) -# 53114 "parsing/parser.ml" +# 53058 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1181 "parsing/parser.mly" +# 1159 "parsing/parser.mly" ( mkstr ~loc:_sloc _1 ) -# 53122 "parsing/parser.ml" +# 53066 "parsing/parser.ml" in -# 1700 "parsing/parser.mly" +# 1673 "parsing/parser.mly" ( _1 ) -# 53128 "parsing/parser.ml" +# 53072 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53148,23 +53092,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.structure_item) = let _1 = let _1 = -# 1673 "parsing/parser.mly" +# 1651 "parsing/parser.mly" ( pstr_primitive _1 ) -# 53154 "parsing/parser.ml" +# 53098 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1198 "parsing/parser.mly" +# 1176 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53162 "parsing/parser.ml" +# 53106 "parsing/parser.ml" in -# 1700 "parsing/parser.mly" +# 1673 "parsing/parser.mly" ( _1 ) -# 53168 "parsing/parser.ml" +# 53112 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53188,23 +53132,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.structure_item) = let _1 = let _1 = -# 1675 "parsing/parser.mly" +# 1653 "parsing/parser.mly" ( pstr_primitive _1 ) -# 53194 "parsing/parser.ml" +# 53138 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1198 "parsing/parser.mly" +# 1176 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53202 "parsing/parser.ml" +# 53146 "parsing/parser.ml" in -# 1700 "parsing/parser.mly" +# 1673 "parsing/parser.mly" ( _1 ) -# 53208 "parsing/parser.ml" +# 53152 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53239,26 +53183,26 @@ module Tables = struct let _1 = let _1 = let _1 = -# 1373 "parsing/parser.mly" +# 1351 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 53245 "parsing/parser.ml" +# 53189 "parsing/parser.ml" in -# 3379 "parsing/parser.mly" +# 3360 "parsing/parser.mly" ( _1 ) -# 53250 "parsing/parser.ml" +# 53194 "parsing/parser.ml" in -# 3362 "parsing/parser.mly" +# 3343 "parsing/parser.mly" ( _1 ) -# 53256 "parsing/parser.ml" +# 53200 "parsing/parser.ml" in -# 1677 "parsing/parser.mly" +# 1655 "parsing/parser.mly" ( pstr_type _1 ) -# 53262 "parsing/parser.ml" +# 53206 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_bs_, _startpos_a_) in @@ -53266,15 +53210,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1198 "parsing/parser.mly" +# 1176 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53272 "parsing/parser.ml" +# 53216 "parsing/parser.ml" in -# 1700 "parsing/parser.mly" +# 1673 "parsing/parser.mly" ( _1 ) -# 53278 "parsing/parser.ml" +# 53222 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53359,16 +53303,16 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 53365 "parsing/parser.ml" +# 53309 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in let cs = -# 1365 "parsing/parser.mly" +# 1343 "parsing/parser.mly" ( List.rev xs ) -# 53372 "parsing/parser.ml" +# 53316 "parsing/parser.ml" in let tid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in @@ -53376,46 +53320,46 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 53382 "parsing/parser.ml" +# 53326 "parsing/parser.ml" in let _4 = -# 4220 "parsing/parser.mly" +# 4201 "parsing/parser.mly" ( Recursive ) -# 53388 "parsing/parser.ml" +# 53332 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 53395 "parsing/parser.ml" +# 53339 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3660 "parsing/parser.mly" +# 3641 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) -# 53407 "parsing/parser.ml" +# 53351 "parsing/parser.ml" in -# 3643 "parsing/parser.mly" +# 3624 "parsing/parser.mly" ( _1 ) -# 53413 "parsing/parser.ml" +# 53357 "parsing/parser.ml" in -# 1679 "parsing/parser.mly" +# 1657 "parsing/parser.mly" ( pstr_typext _1 ) -# 53419 "parsing/parser.ml" +# 53363 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in @@ -53423,15 +53367,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1198 "parsing/parser.mly" +# 1176 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53429 "parsing/parser.ml" +# 53373 "parsing/parser.ml" in -# 1700 "parsing/parser.mly" +# 1673 "parsing/parser.mly" ( _1 ) -# 53435 "parsing/parser.ml" +# 53379 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53523,16 +53467,16 @@ module Tables = struct let attrs2 = let _1 = _1_inlined4 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 53529 "parsing/parser.ml" +# 53473 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined4_ in let cs = -# 1365 "parsing/parser.mly" +# 1343 "parsing/parser.mly" ( List.rev xs ) -# 53536 "parsing/parser.ml" +# 53480 "parsing/parser.ml" in let tid = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in @@ -53540,9 +53484,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 53546 "parsing/parser.ml" +# 53490 "parsing/parser.ml" in let _4 = @@ -53551,41 +53495,41 @@ module Tables = struct let _startpos = _startpos__1_ in let _loc = (_startpos, _endpos) in -# 4222 "parsing/parser.mly" +# 4203 "parsing/parser.mly" ( not_expecting _loc "nonrec flag" ) -# 53557 "parsing/parser.ml" +# 53501 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 53565 "parsing/parser.ml" +# 53509 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3660 "parsing/parser.mly" +# 3641 "parsing/parser.mly" ( let docs = symbol_docs _sloc in let attrs = attrs1 @ attrs2 in Te.mk tid cs ~params ~priv ~attrs ~docs, ext ) -# 53577 "parsing/parser.ml" +# 53521 "parsing/parser.ml" in -# 3643 "parsing/parser.mly" +# 3624 "parsing/parser.mly" ( _1 ) -# 53583 "parsing/parser.ml" +# 53527 "parsing/parser.ml" in -# 1679 "parsing/parser.mly" +# 1657 "parsing/parser.mly" ( pstr_typext _1 ) -# 53589 "parsing/parser.ml" +# 53533 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined4_ in @@ -53593,15 +53537,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1198 "parsing/parser.mly" +# 1176 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53599 "parsing/parser.ml" +# 53543 "parsing/parser.ml" in -# 1700 "parsing/parser.mly" +# 1673 "parsing/parser.mly" ( _1 ) -# 53605 "parsing/parser.ml" +# 53549 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53625,23 +53569,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.structure_item) = let _1 = let _1 = -# 1681 "parsing/parser.mly" +# 1659 "parsing/parser.mly" ( pstr_exception _1 ) -# 53631 "parsing/parser.ml" +# 53575 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1198 "parsing/parser.mly" +# 1176 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53639 "parsing/parser.ml" +# 53583 "parsing/parser.ml" in -# 1700 "parsing/parser.mly" +# 1673 "parsing/parser.mly" ( _1 ) -# 53645 "parsing/parser.ml" +# 53589 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53704,9 +53648,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 53710 "parsing/parser.ml" +# 53654 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -53716,36 +53660,36 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 53722 "parsing/parser.ml" +# 53666 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 53730 "parsing/parser.ml" +# 53674 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1710 "parsing/parser.mly" +# 1694 "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 ) -# 53743 "parsing/parser.ml" +# 53687 "parsing/parser.ml" in -# 1683 "parsing/parser.mly" +# 1661 "parsing/parser.mly" ( _1 ) -# 53749 "parsing/parser.ml" +# 53693 "parsing/parser.ml" in let _endpos__1_ = _endpos__1_inlined3_ in @@ -53753,15 +53697,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1198 "parsing/parser.mly" +# 1176 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53759 "parsing/parser.ml" +# 53703 "parsing/parser.ml" in -# 1700 "parsing/parser.mly" +# 1673 "parsing/parser.mly" ( _1 ) -# 53765 "parsing/parser.ml" +# 53709 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53840,9 +53784,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 53846 "parsing/parser.ml" +# 53790 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -53852,24 +53796,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 53858 "parsing/parser.ml" +# 53802 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 53866 "parsing/parser.ml" +# 53810 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1745 "parsing/parser.mly" +# 1729 "parsing/parser.mly" ( let loc = make_loc _sloc in let attrs = attrs1 @ attrs2 in @@ -53877,25 +53821,25 @@ module Tables = struct ext, Mb.mk name body ~attrs ~loc ~docs ) -# 53881 "parsing/parser.ml" +# 53825 "parsing/parser.ml" in -# 1373 "parsing/parser.mly" +# 1351 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 53887 "parsing/parser.ml" +# 53831 "parsing/parser.ml" in -# 1733 "parsing/parser.mly" +# 1717 "parsing/parser.mly" ( _1 ) -# 53893 "parsing/parser.ml" +# 53837 "parsing/parser.ml" in -# 1685 "parsing/parser.mly" +# 1663 "parsing/parser.mly" ( pstr_recmodule _1 ) -# 53899 "parsing/parser.ml" +# 53843 "parsing/parser.ml" in let _endpos__1_ = _endpos_bs_ in @@ -53903,15 +53847,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1198 "parsing/parser.mly" +# 1176 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53909 "parsing/parser.ml" +# 53853 "parsing/parser.ml" in -# 1700 "parsing/parser.mly" +# 1673 "parsing/parser.mly" ( _1 ) -# 53915 "parsing/parser.ml" +# 53859 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53935,23 +53879,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.structure_item) = let _1 = let _1 = -# 1687 "parsing/parser.mly" +# 1665 "parsing/parser.mly" ( let (body, ext) = _1 in (Pstr_modtype body, ext) ) -# 53941 "parsing/parser.ml" +# 53885 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1198 "parsing/parser.mly" +# 1176 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53949 "parsing/parser.ml" +# 53893 "parsing/parser.ml" in -# 1700 "parsing/parser.mly" +# 1673 "parsing/parser.mly" ( _1 ) -# 53955 "parsing/parser.ml" +# 53899 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -53975,23 +53919,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.structure_item) = let _1 = let _1 = -# 1689 "parsing/parser.mly" +# 1667 "parsing/parser.mly" ( let (body, ext) = _1 in (Pstr_open body, ext) ) -# 53981 "parsing/parser.ml" +# 53925 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1198 "parsing/parser.mly" +# 1176 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 53989 "parsing/parser.ml" +# 53933 "parsing/parser.ml" in -# 1700 "parsing/parser.mly" +# 1673 "parsing/parser.mly" ( _1 ) -# 53995 "parsing/parser.ml" +# 53939 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54061,9 +54005,9 @@ module Tables = struct let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in let body : (Parsetree.class_expr) = Obj.magic body in let _1_inlined2 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 54067 "parsing/parser.ml" +# 54011 "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 @@ -54081,9 +54025,9 @@ module Tables = struct let attrs2 = let _1 = _1_inlined3 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 54087 "parsing/parser.ml" +# 54031 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -54093,24 +54037,24 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54099 "parsing/parser.ml" +# 54043 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 54107 "parsing/parser.ml" +# 54051 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 2098 "parsing/parser.mly" +# 2083 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in @@ -54118,25 +54062,25 @@ module Tables = struct ext, Ci.mk id body ~virt ~params ~attrs ~loc ~docs ) -# 54122 "parsing/parser.ml" +# 54066 "parsing/parser.ml" in -# 1373 "parsing/parser.mly" +# 1351 "parsing/parser.mly" ( let (x, b) = a in x, b :: bs ) -# 54128 "parsing/parser.ml" +# 54072 "parsing/parser.ml" in -# 2087 "parsing/parser.mly" +# 2072 "parsing/parser.mly" ( _1 ) -# 54134 "parsing/parser.ml" +# 54078 "parsing/parser.ml" in -# 1691 "parsing/parser.mly" +# 1669 "parsing/parser.mly" ( let (ext, l) = _1 in (Pstr_class l, ext) ) -# 54140 "parsing/parser.ml" +# 54084 "parsing/parser.ml" in let _endpos__1_ = _endpos_bs_ in @@ -54144,15 +54088,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1198 "parsing/parser.mly" +# 1176 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 54150 "parsing/parser.ml" +# 54094 "parsing/parser.ml" in -# 1700 "parsing/parser.mly" +# 1673 "parsing/parser.mly" ( _1 ) -# 54156 "parsing/parser.ml" +# 54100 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54176,23 +54120,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.structure_item) = let _1 = let _1 = -# 1693 "parsing/parser.mly" +# 1671 "parsing/parser.mly" ( let (ext, l) = _1 in (Pstr_class_type l, ext) ) -# 54182 "parsing/parser.ml" +# 54126 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1198 "parsing/parser.mly" +# 1176 "parsing/parser.mly" ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 54190 "parsing/parser.ml" +# 54134 "parsing/parser.ml" in -# 1700 "parsing/parser.mly" +# 1673 "parsing/parser.mly" ( _1 ) -# 54196 "parsing/parser.ml" +# 54140 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54243,64 +54187,51 @@ module Tables = struct let _startpos = _startpos_is_functor_ in let _endpos = _endpos__1_inlined1_ in let _v : (Parsetree.structure_item) = let _1 = - let _1 = - let _1 = - let attrs2 = - let _1 = _1_inlined1 in - -# 4385 "parsing/parser.mly" + let attrs2 = + let _1 = _1_inlined1 in + +# 4366 "parsing/parser.mly" ( _1 ) -# 54254 "parsing/parser.ml" - - in - let _endpos_attrs2_ = _endpos__1_inlined1_ in - let attrs1 = -# 4389 "parsing/parser.mly" +# 54196 "parsing/parser.ml" + + in + let _endpos_attrs2_ = _endpos__1_inlined1_ in + let attrs1 = +# 4370 "parsing/parser.mly" ( _1 ) -# 54261 "parsing/parser.ml" - in - let _endpos = _endpos_attrs2_ in - let _symbolstartpos = _startpos_is_functor_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1789 "parsing/parser.mly" +# 54203 "parsing/parser.ml" + in + let _endpos = _endpos_attrs2_ in + let _symbolstartpos = _startpos_is_functor_ in + let _sloc = (_symbolstartpos, _endpos) in + +# 1773 "parsing/parser.mly" ( let attrs = attrs1 @ attrs2 in let loc = make_loc _sloc in let docs = symbol_docs _sloc in let incl = Incl.mk thing ~attrs ~loc ~docs in - fun wrap jane_syntax_of -> - if is_functor then - jane_syntax_of ~loc:(make_loc _sloc) incl, ext - else - wrap (incl, ext) + is_functor, incl, ext ) -# 54279 "parsing/parser.ml" - - in - -# 1695 "parsing/parser.mly" - ( _1 pstr_include - (fun ~loc incl -> - Jane_syntax.Include_functor.str_item_of ~loc - (Ifstr_include_functor incl)) ) -# 54288 "parsing/parser.ml" - - in - let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_is_functor_) in - let _endpos = _endpos__1_ in - let _symbolstartpos = _startpos__1_ in - let _sloc = (_symbolstartpos, _endpos) in - -# 1198 "parsing/parser.mly" - ( wrap_mkstr_ext ~loc:_sloc _1 ) -# 54298 "parsing/parser.ml" +# 54217 "parsing/parser.ml" in + let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_is_functor_) in + let _endpos = _endpos__1_ in + let _symbolstartpos = _startpos__1_ in + let _sloc = (_symbolstartpos, _endpos) in -# 1700 "parsing/parser.mly" - ( _1 ) -# 54304 "parsing/parser.ml" +# 1675 "parsing/parser.mly" + ( let is_functor, incl, ext = _1 in + let item = + if is_functor + then Jane_syntax.Include_functor.str_item_of ~loc:(make_loc _sloc) + (Ifstr_include_functor incl) + else mkstr ~loc:_sloc (Pstr_include incl) + in + wrap_str_ext ~loc:_sloc item ext + ) +# 54235 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54323,9 +54254,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4294 "parsing/parser.mly" +# 4275 "parsing/parser.mly" ( "-" ) -# 54329 "parsing/parser.ml" +# 54260 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54348,9 +54279,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (string) = -# 4295 "parsing/parser.mly" +# 4276 "parsing/parser.mly" ( "-." ) -# 54354 "parsing/parser.ml" +# 54285 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54403,9 +54334,9 @@ module Tables = struct let _v : (Parsetree.row_field) = let _5 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 54409 "parsing/parser.ml" +# 54340 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined1_ in @@ -54414,18 +54345,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 54418 "parsing/parser.ml" +# 54349 "parsing/parser.ml" in -# 1276 "parsing/parser.mly" +# 1254 "parsing/parser.mly" ( xs ) -# 54423 "parsing/parser.ml" +# 54354 "parsing/parser.ml" in -# 3980 "parsing/parser.mly" +# 3961 "parsing/parser.mly" ( _1 ) -# 54429 "parsing/parser.ml" +# 54360 "parsing/parser.ml" in let _1 = @@ -54433,20 +54364,20 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54439 "parsing/parser.ml" +# 54370 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3966 "parsing/parser.mly" +# 3947 "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 ) -# 54450 "parsing/parser.ml" +# 54381 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54478,9 +54409,9 @@ module Tables = struct let _v : (Parsetree.row_field) = let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 54484 "parsing/parser.ml" +# 54415 "parsing/parser.ml" in let _endpos__2_ = _endpos__1_inlined1_ in @@ -54489,20 +54420,20 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54495 "parsing/parser.ml" +# 54426 "parsing/parser.ml" in let _endpos = _endpos__2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3970 "parsing/parser.mly" +# 3951 "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 [] ) -# 54506 "parsing/parser.ml" +# 54437 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54534,7 +54465,7 @@ module Tables = struct let _v : (Parsetree.toplevel_phrase) = let arg = # 124 "" ( None ) -# 54538 "parsing/parser.ml" +# 54469 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined1_ in let dir = @@ -54543,23 +54474,23 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54549 "parsing/parser.ml" +# 54480 "parsing/parser.ml" in let _1 = -# 2792 "parsing/parser.mly" +# 2774 "parsing/parser.mly" ( () ) -# 54555 "parsing/parser.ml" +# 54486 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4183 "parsing/parser.mly" +# 4164 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 54563 "parsing/parser.ml" +# 54494 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54590,9 +54521,9 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined2 : ( -# 996 "parsing/parser.mly" +# 974 "parsing/parser.mly" (string * Location.t * string option) -# 54596 "parsing/parser.ml" +# 54527 "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 @@ -54603,23 +54534,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = -# 4187 "parsing/parser.mly" +# 4168 "parsing/parser.mly" ( let (s, _, _) = _1 in Pdir_string s ) -# 54609 "parsing/parser.ml" +# 54540 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1203 "parsing/parser.mly" +# 1181 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 54617 "parsing/parser.ml" +# 54548 "parsing/parser.ml" in # 126 "" ( Some x ) -# 54623 "parsing/parser.ml" +# 54554 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -54629,23 +54560,23 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54635 "parsing/parser.ml" +# 54566 "parsing/parser.ml" in let _1 = -# 2792 "parsing/parser.mly" +# 2774 "parsing/parser.mly" ( () ) -# 54641 "parsing/parser.ml" +# 54572 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4183 "parsing/parser.mly" +# 4164 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 54649 "parsing/parser.ml" +# 54580 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54676,9 +54607,9 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined2 : ( -# 940 "parsing/parser.mly" +# 918 "parsing/parser.mly" (string * char option) -# 54682 "parsing/parser.ml" +# 54613 "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 @@ -54689,23 +54620,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = -# 4188 "parsing/parser.mly" +# 4169 "parsing/parser.mly" ( let (n, m) = _1 in Pdir_int (n ,m) ) -# 54695 "parsing/parser.ml" +# 54626 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1203 "parsing/parser.mly" +# 1181 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 54703 "parsing/parser.ml" +# 54634 "parsing/parser.ml" in # 126 "" ( Some x ) -# 54709 "parsing/parser.ml" +# 54640 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -54715,23 +54646,23 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54721 "parsing/parser.ml" +# 54652 "parsing/parser.ml" in let _1 = -# 2792 "parsing/parser.mly" +# 2774 "parsing/parser.mly" ( () ) -# 54727 "parsing/parser.ml" +# 54658 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4183 "parsing/parser.mly" +# 4164 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 54735 "parsing/parser.ml" +# 54666 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54771,23 +54702,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = -# 4189 "parsing/parser.mly" +# 4170 "parsing/parser.mly" ( Pdir_ident _1 ) -# 54777 "parsing/parser.ml" +# 54708 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1203 "parsing/parser.mly" +# 1181 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 54785 "parsing/parser.ml" +# 54716 "parsing/parser.ml" in # 126 "" ( Some x ) -# 54791 "parsing/parser.ml" +# 54722 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -54797,23 +54728,23 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54803 "parsing/parser.ml" +# 54734 "parsing/parser.ml" in let _1 = -# 2792 "parsing/parser.mly" +# 2774 "parsing/parser.mly" ( () ) -# 54809 "parsing/parser.ml" +# 54740 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4183 "parsing/parser.mly" +# 4164 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 54817 "parsing/parser.ml" +# 54748 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54853,23 +54784,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = -# 4190 "parsing/parser.mly" +# 4171 "parsing/parser.mly" ( Pdir_ident _1 ) -# 54859 "parsing/parser.ml" +# 54790 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1203 "parsing/parser.mly" +# 1181 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 54867 "parsing/parser.ml" +# 54798 "parsing/parser.ml" in # 126 "" ( Some x ) -# 54873 "parsing/parser.ml" +# 54804 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -54879,23 +54810,23 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54885 "parsing/parser.ml" +# 54816 "parsing/parser.ml" in let _1 = -# 2792 "parsing/parser.mly" +# 2774 "parsing/parser.mly" ( () ) -# 54891 "parsing/parser.ml" +# 54822 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4183 "parsing/parser.mly" +# 4164 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 54899 "parsing/parser.ml" +# 54830 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -54935,23 +54866,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let x = let _1 = -# 4191 "parsing/parser.mly" +# 4172 "parsing/parser.mly" ( Pdir_bool false ) -# 54941 "parsing/parser.ml" +# 54872 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1203 "parsing/parser.mly" +# 1181 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 54949 "parsing/parser.ml" +# 54880 "parsing/parser.ml" in # 126 "" ( Some x ) -# 54955 "parsing/parser.ml" +# 54886 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -54961,23 +54892,23 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 54967 "parsing/parser.ml" +# 54898 "parsing/parser.ml" in let _1 = -# 2792 "parsing/parser.mly" +# 2774 "parsing/parser.mly" ( () ) -# 54973 "parsing/parser.ml" +# 54904 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4183 "parsing/parser.mly" +# 4164 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 54981 "parsing/parser.ml" +# 54912 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55017,23 +54948,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let x = let _1 = -# 4192 "parsing/parser.mly" +# 4173 "parsing/parser.mly" ( Pdir_bool true ) -# 55023 "parsing/parser.ml" +# 54954 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1203 "parsing/parser.mly" +# 1181 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 55031 "parsing/parser.ml" +# 54962 "parsing/parser.ml" in # 126 "" ( Some x ) -# 55037 "parsing/parser.ml" +# 54968 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -55043,23 +54974,23 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 55049 "parsing/parser.ml" +# 54980 "parsing/parser.ml" in let _1 = -# 2792 "parsing/parser.mly" +# 2774 "parsing/parser.mly" ( () ) -# 55055 "parsing/parser.ml" +# 54986 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4183 "parsing/parser.mly" +# 4164 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 55063 "parsing/parser.ml" +# 54994 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55091,7 +55022,7 @@ module Tables = struct let _v : (Parsetree.toplevel_phrase) = let arg = # 124 "" ( None ) -# 55095 "parsing/parser.ml" +# 55026 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined1_ in let dir = @@ -55100,23 +55031,23 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 55106 "parsing/parser.ml" +# 55037 "parsing/parser.ml" in let _1 = -# 2793 "parsing/parser.mly" +# 2775 "parsing/parser.mly" ( () ) -# 55112 "parsing/parser.ml" +# 55043 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4183 "parsing/parser.mly" +# 4164 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 55120 "parsing/parser.ml" +# 55051 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55147,9 +55078,9 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined2 : ( -# 996 "parsing/parser.mly" +# 974 "parsing/parser.mly" (string * Location.t * string option) -# 55153 "parsing/parser.ml" +# 55084 "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 @@ -55160,23 +55091,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = -# 4187 "parsing/parser.mly" +# 4168 "parsing/parser.mly" ( let (s, _, _) = _1 in Pdir_string s ) -# 55166 "parsing/parser.ml" +# 55097 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1203 "parsing/parser.mly" +# 1181 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 55174 "parsing/parser.ml" +# 55105 "parsing/parser.ml" in # 126 "" ( Some x ) -# 55180 "parsing/parser.ml" +# 55111 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -55186,23 +55117,23 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 55192 "parsing/parser.ml" +# 55123 "parsing/parser.ml" in let _1 = -# 2793 "parsing/parser.mly" +# 2775 "parsing/parser.mly" ( () ) -# 55198 "parsing/parser.ml" +# 55129 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4183 "parsing/parser.mly" +# 4164 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 55206 "parsing/parser.ml" +# 55137 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55233,9 +55164,9 @@ module Tables = struct }; } = _menhir_stack in let _1_inlined2 : ( -# 940 "parsing/parser.mly" +# 918 "parsing/parser.mly" (string * char option) -# 55239 "parsing/parser.ml" +# 55170 "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 @@ -55246,23 +55177,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = -# 4188 "parsing/parser.mly" +# 4169 "parsing/parser.mly" ( let (n, m) = _1 in Pdir_int (n ,m) ) -# 55252 "parsing/parser.ml" +# 55183 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1203 "parsing/parser.mly" +# 1181 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 55260 "parsing/parser.ml" +# 55191 "parsing/parser.ml" in # 126 "" ( Some x ) -# 55266 "parsing/parser.ml" +# 55197 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -55272,23 +55203,23 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 55278 "parsing/parser.ml" +# 55209 "parsing/parser.ml" in let _1 = -# 2793 "parsing/parser.mly" +# 2775 "parsing/parser.mly" ( () ) -# 55284 "parsing/parser.ml" +# 55215 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4183 "parsing/parser.mly" +# 4164 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 55292 "parsing/parser.ml" +# 55223 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55328,23 +55259,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = -# 4189 "parsing/parser.mly" +# 4170 "parsing/parser.mly" ( Pdir_ident _1 ) -# 55334 "parsing/parser.ml" +# 55265 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1203 "parsing/parser.mly" +# 1181 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 55342 "parsing/parser.ml" +# 55273 "parsing/parser.ml" in # 126 "" ( Some x ) -# 55348 "parsing/parser.ml" +# 55279 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -55354,23 +55285,23 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 55360 "parsing/parser.ml" +# 55291 "parsing/parser.ml" in let _1 = -# 2793 "parsing/parser.mly" +# 2775 "parsing/parser.mly" ( () ) -# 55366 "parsing/parser.ml" +# 55297 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4183 "parsing/parser.mly" +# 4164 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 55374 "parsing/parser.ml" +# 55305 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55410,23 +55341,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let x = let _1 = -# 4190 "parsing/parser.mly" +# 4171 "parsing/parser.mly" ( Pdir_ident _1 ) -# 55416 "parsing/parser.ml" +# 55347 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1203 "parsing/parser.mly" +# 1181 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 55424 "parsing/parser.ml" +# 55355 "parsing/parser.ml" in # 126 "" ( Some x ) -# 55430 "parsing/parser.ml" +# 55361 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -55436,23 +55367,23 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 55442 "parsing/parser.ml" +# 55373 "parsing/parser.ml" in let _1 = -# 2793 "parsing/parser.mly" +# 2775 "parsing/parser.mly" ( () ) -# 55448 "parsing/parser.ml" +# 55379 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4183 "parsing/parser.mly" +# 4164 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 55456 "parsing/parser.ml" +# 55387 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55492,23 +55423,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let x = let _1 = -# 4191 "parsing/parser.mly" +# 4172 "parsing/parser.mly" ( Pdir_bool false ) -# 55498 "parsing/parser.ml" +# 55429 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1203 "parsing/parser.mly" +# 1181 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 55506 "parsing/parser.ml" +# 55437 "parsing/parser.ml" in # 126 "" ( Some x ) -# 55512 "parsing/parser.ml" +# 55443 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -55518,23 +55449,23 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 55524 "parsing/parser.ml" +# 55455 "parsing/parser.ml" in let _1 = -# 2793 "parsing/parser.mly" +# 2775 "parsing/parser.mly" ( () ) -# 55530 "parsing/parser.ml" +# 55461 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4183 "parsing/parser.mly" +# 4164 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 55538 "parsing/parser.ml" +# 55469 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55574,23 +55505,23 @@ module Tables = struct let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in let x = let _1 = -# 4192 "parsing/parser.mly" +# 4173 "parsing/parser.mly" ( Pdir_bool true ) -# 55580 "parsing/parser.ml" +# 55511 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1203 "parsing/parser.mly" +# 1181 "parsing/parser.mly" ( mk_directive_arg ~loc:_sloc _1 ) -# 55588 "parsing/parser.ml" +# 55519 "parsing/parser.ml" in # 126 "" ( Some x ) -# 55594 "parsing/parser.ml" +# 55525 "parsing/parser.ml" in let _endpos_arg_ = _endpos__1_inlined2_ in @@ -55600,23 +55531,23 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 55606 "parsing/parser.ml" +# 55537 "parsing/parser.ml" in let _1 = -# 2793 "parsing/parser.mly" +# 2775 "parsing/parser.mly" ( () ) -# 55612 "parsing/parser.ml" +# 55543 "parsing/parser.ml" in let _endpos = _endpos_arg_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 4183 "parsing/parser.mly" +# 4164 "parsing/parser.mly" ( mk_directive ~loc:_sloc dir arg ) -# 55620 "parsing/parser.ml" +# 55551 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55656,37 +55587,37 @@ module Tables = struct let _1 = let _1 = let attrs = -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 55662 "parsing/parser.ml" +# 55593 "parsing/parser.ml" in -# 1648 "parsing/parser.mly" +# 1626 "parsing/parser.mly" ( mkstrexp e attrs ) -# 55667 "parsing/parser.ml" +# 55598 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in -# 1146 "parsing/parser.mly" +# 1124 "parsing/parser.mly" ( text_str _startpos @ [_1] ) -# 55675 "parsing/parser.ml" +# 55606 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1134 "parsing/parser.mly" +# 1112 "parsing/parser.mly" ( extra_str _startpos _endpos _1 ) -# 55684 "parsing/parser.ml" +# 55615 "parsing/parser.ml" in -# 1413 "parsing/parser.mly" +# 1391 "parsing/parser.mly" ( Ptop_def _1 ) -# 55690 "parsing/parser.ml" +# 55621 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55719,21 +55650,21 @@ module Tables = struct let _1 = # 260 "" ( List.flatten xss ) -# 55723 "parsing/parser.ml" +# 55654 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1134 "parsing/parser.mly" +# 1112 "parsing/parser.mly" ( extra_str _startpos _endpos _1 ) -# 55731 "parsing/parser.ml" +# 55662 "parsing/parser.ml" in -# 1417 "parsing/parser.mly" +# 1395 "parsing/parser.mly" ( Ptop_def _1 ) -# 55737 "parsing/parser.ml" +# 55668 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55763,9 +55694,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.toplevel_phrase) = -# 1421 "parsing/parser.mly" +# 1399 "parsing/parser.mly" ( _1 ) -# 55769 "parsing/parser.ml" +# 55700 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55788,9 +55719,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Parsetree.toplevel_phrase) = -# 1424 "parsing/parser.mly" +# 1402 "parsing/parser.mly" ( raise End_of_file ) -# 55794 "parsing/parser.ml" +# 55725 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55813,9 +55744,9 @@ module Tables = struct let _startpos = _startpos_ty_ in let _endpos = _endpos_ty_ in let _v : (Parsetree.core_type) = -# 3861 "parsing/parser.mly" +# 3842 "parsing/parser.mly" ( ty ) -# 55819 "parsing/parser.ml" +# 55750 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55843,18 +55774,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 55847 "parsing/parser.ml" +# 55778 "parsing/parser.ml" in -# 1304 "parsing/parser.mly" +# 1282 "parsing/parser.mly" ( xs ) -# 55852 "parsing/parser.ml" +# 55783 "parsing/parser.ml" in -# 3864 "parsing/parser.mly" +# 3845 "parsing/parser.mly" ( Ptyp_tuple tys ) -# 55858 "parsing/parser.ml" +# 55789 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_xs_) in @@ -55862,15 +55793,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 55868 "parsing/parser.ml" +# 55799 "parsing/parser.ml" in -# 3866 "parsing/parser.mly" +# 3847 "parsing/parser.mly" ( _1 ) -# 55874 "parsing/parser.ml" +# 55805 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55900,9 +55831,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type option * Parsetree.core_type option) = -# 3111 "parsing/parser.mly" +# 3093 "parsing/parser.mly" ( (Some _2, None) ) -# 55906 "parsing/parser.ml" +# 55837 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55946,9 +55877,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__4_ in let _v : (Parsetree.core_type option * Parsetree.core_type option) = -# 3112 "parsing/parser.mly" +# 3094 "parsing/parser.mly" ( (Some _2, Some _4) ) -# 55952 "parsing/parser.ml" +# 55883 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -55978,9 +55909,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type option * Parsetree.core_type option) = -# 3113 "parsing/parser.mly" +# 3095 "parsing/parser.mly" ( (None, Some _2) ) -# 55984 "parsing/parser.ml" +# 55915 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56010,9 +55941,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type option * Parsetree.core_type option) = -# 3114 "parsing/parser.mly" +# 3096 "parsing/parser.mly" ( syntax_error() ) -# 56016 "parsing/parser.ml" +# 55947 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56042,9 +55973,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.core_type option * Parsetree.core_type option) = -# 3115 "parsing/parser.mly" +# 3097 "parsing/parser.mly" ( syntax_error() ) -# 56048 "parsing/parser.ml" +# 55979 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56060,9 +55991,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = -# 3453 "parsing/parser.mly" +# 3434 "parsing/parser.mly" ( (Ptype_abstract, Public, None) ) -# 56066 "parsing/parser.ml" +# 55997 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56092,9 +56023,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = -# 3455 "parsing/parser.mly" +# 3436 "parsing/parser.mly" ( _2 ) -# 56098 "parsing/parser.ml" +# 56029 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56117,9 +56048,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4144 "parsing/parser.mly" +# 4125 "parsing/parser.mly" ( _1 ) -# 56123 "parsing/parser.ml" +# 56054 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56158,15 +56089,15 @@ module Tables = struct let _v : (Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) = let _3 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 56164 "parsing/parser.ml" +# 56095 "parsing/parser.ml" in -# 3484 "parsing/parser.mly" +# 3465 "parsing/parser.mly" ( {_2 with ptyp_attributes = _3}, _1 ) -# 56170 "parsing/parser.ml" +# 56101 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56182,9 +56113,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = -# 3463 "parsing/parser.mly" +# 3444 "parsing/parser.mly" ( [] ) -# 56188 "parsing/parser.ml" +# 56119 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56207,9 +56138,9 @@ module Tables = struct let _startpos = _startpos_p_ in let _endpos = _endpos_p_ in let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = -# 3465 "parsing/parser.mly" +# 3446 "parsing/parser.mly" ( [p] ) -# 56213 "parsing/parser.ml" +# 56144 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56249,18 +56180,18 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 56253 "parsing/parser.ml" +# 56184 "parsing/parser.ml" in -# 1276 "parsing/parser.mly" +# 1254 "parsing/parser.mly" ( xs ) -# 56258 "parsing/parser.ml" +# 56189 "parsing/parser.ml" in -# 3469 "parsing/parser.mly" +# 3450 "parsing/parser.mly" ( ps ) -# 56264 "parsing/parser.ml" +# 56195 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56291,24 +56222,24 @@ module Tables = struct let _endpos = _endpos_tyvar_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3490 "parsing/parser.mly" +# 3471 "parsing/parser.mly" ( Ptyp_var tyvar ) -# 56297 "parsing/parser.ml" +# 56228 "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 -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 56306 "parsing/parser.ml" +# 56237 "parsing/parser.ml" in -# 3493 "parsing/parser.mly" +# 3474 "parsing/parser.mly" ( _1 ) -# 56312 "parsing/parser.ml" +# 56243 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56332,23 +56263,23 @@ module Tables = struct let _endpos = _endpos__1_ in let _v : (Parsetree.core_type) = let _1 = let _1 = -# 3492 "parsing/parser.mly" +# 3473 "parsing/parser.mly" ( Ptyp_any ) -# 56338 "parsing/parser.ml" +# 56269 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1179 "parsing/parser.mly" +# 1157 "parsing/parser.mly" ( mktyp ~loc:_sloc _1 ) -# 56346 "parsing/parser.ml" +# 56277 "parsing/parser.ml" in -# 3493 "parsing/parser.mly" +# 3474 "parsing/parser.mly" ( _1 ) -# 56352 "parsing/parser.ml" +# 56283 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56364,9 +56295,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3497 "parsing/parser.mly" +# 3478 "parsing/parser.mly" ( NoVariance, NoInjectivity ) -# 56370 "parsing/parser.ml" +# 56301 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56389,9 +56320,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3498 "parsing/parser.mly" +# 3479 "parsing/parser.mly" ( Covariant, NoInjectivity ) -# 56395 "parsing/parser.ml" +# 56326 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56414,9 +56345,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3499 "parsing/parser.mly" +# 3480 "parsing/parser.mly" ( Contravariant, NoInjectivity ) -# 56420 "parsing/parser.ml" +# 56351 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56439,9 +56370,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3500 "parsing/parser.mly" +# 3481 "parsing/parser.mly" ( NoVariance, Injective ) -# 56445 "parsing/parser.ml" +# 56376 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56471,9 +56402,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3501 "parsing/parser.mly" +# 3482 "parsing/parser.mly" ( Covariant, Injective ) -# 56477 "parsing/parser.ml" +# 56408 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56503,9 +56434,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3501 "parsing/parser.mly" +# 3482 "parsing/parser.mly" ( Covariant, Injective ) -# 56509 "parsing/parser.ml" +# 56440 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56535,9 +56466,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3502 "parsing/parser.mly" +# 3483 "parsing/parser.mly" ( Contravariant, Injective ) -# 56541 "parsing/parser.ml" +# 56472 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56567,9 +56498,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.variance * Asttypes.injectivity) = -# 3502 "parsing/parser.mly" +# 3483 "parsing/parser.mly" ( Contravariant, Injective ) -# 56573 "parsing/parser.ml" +# 56504 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56588,20 +56519,20 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 932 "parsing/parser.mly" +# 910 "parsing/parser.mly" (string) -# 56594 "parsing/parser.ml" +# 56525 "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 -# 3504 "parsing/parser.mly" +# 3485 "parsing/parser.mly" ( if _1 = "+!" then Covariant, Injective else if _1 = "-!" then Contravariant, Injective else expecting _loc__1_ "type_variance" ) -# 56605 "parsing/parser.ml" +# 56536 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56620,20 +56551,20 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 981 "parsing/parser.mly" +# 959 "parsing/parser.mly" (string) -# 56626 "parsing/parser.ml" +# 56557 "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 -# 3508 "parsing/parser.mly" +# 3489 "parsing/parser.mly" ( if _1 = "!+" then Covariant, Injective else if _1 = "!-" then Contravariant, Injective else expecting _loc__1_ "type_variance" ) -# 56637 "parsing/parser.ml" +# 56568 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56667,39 +56598,39 @@ module Tables = struct let ys = # 260 "" ( List.flatten xss ) -# 56671 "parsing/parser.ml" +# 56602 "parsing/parser.ml" in let xs = let _1 = -# 1212 "parsing/parser.mly" +# 1190 "parsing/parser.mly" ( [] ) -# 56677 "parsing/parser.ml" +# 56608 "parsing/parser.ml" in -# 1444 "parsing/parser.mly" +# 1422 "parsing/parser.mly" ( _1 ) -# 56682 "parsing/parser.ml" +# 56613 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 56688 "parsing/parser.ml" +# 56619 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1138 "parsing/parser.mly" +# 1116 "parsing/parser.mly" ( extra_def _startpos _endpos _1 ) -# 56697 "parsing/parser.ml" +# 56628 "parsing/parser.ml" in -# 1437 "parsing/parser.mly" +# 1415 "parsing/parser.mly" ( _1 ) -# 56703 "parsing/parser.ml" +# 56634 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56747,7 +56678,7 @@ module Tables = struct let ys = # 260 "" ( List.flatten xss ) -# 56751 "parsing/parser.ml" +# 56682 "parsing/parser.ml" in let xs = let _1 = @@ -56755,61 +56686,61 @@ module Tables = struct let _1 = let _1 = let attrs = -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 56761 "parsing/parser.ml" +# 56692 "parsing/parser.ml" in -# 1648 "parsing/parser.mly" +# 1626 "parsing/parser.mly" ( mkstrexp e attrs ) -# 56766 "parsing/parser.ml" +# 56697 "parsing/parser.ml" in -# 1156 "parsing/parser.mly" +# 1134 "parsing/parser.mly" ( Ptop_def [_1] ) -# 56772 "parsing/parser.ml" +# 56703 "parsing/parser.ml" in let _startpos__1_ = _startpos_e_ in let _startpos = _startpos__1_ in -# 1154 "parsing/parser.mly" +# 1132 "parsing/parser.mly" ( text_def _startpos @ [_1] ) -# 56780 "parsing/parser.ml" +# 56711 "parsing/parser.ml" in -# 1214 "parsing/parser.mly" +# 1192 "parsing/parser.mly" ( x ) -# 56786 "parsing/parser.ml" +# 56717 "parsing/parser.ml" in -# 1444 "parsing/parser.mly" +# 1422 "parsing/parser.mly" ( _1 ) -# 56792 "parsing/parser.ml" +# 56723 "parsing/parser.ml" in # 267 "" ( xs @ ys ) -# 56798 "parsing/parser.ml" +# 56729 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_e_) in let _endpos = _endpos__1_ in let _startpos = _startpos__1_ in -# 1138 "parsing/parser.mly" +# 1116 "parsing/parser.mly" ( extra_def _startpos _endpos _1 ) -# 56807 "parsing/parser.ml" +# 56738 "parsing/parser.ml" in -# 1437 "parsing/parser.mly" +# 1415 "parsing/parser.mly" ( _1 ) -# 56813 "parsing/parser.ml" +# 56744 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56846,9 +56777,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__3_ in let _v : (Asttypes.label) = -# 4063 "parsing/parser.mly" +# 4044 "parsing/parser.mly" ( _2 ) -# 56852 "parsing/parser.ml" +# 56783 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56887,9 +56818,9 @@ module Tables = struct let _v : (Asttypes.label) = let _loc__3_ = (_startpos__3_, _endpos__3_) in let _loc__1_ = (_startpos__1_, _endpos__1_) in -# 4064 "parsing/parser.mly" +# 4045 "parsing/parser.mly" ( unclosed "(" _loc__1_ ")" _loc__3_ ) -# 56893 "parsing/parser.ml" +# 56824 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56920,9 +56851,9 @@ module Tables = struct let _endpos = _endpos__2_ in let _v : (Asttypes.label) = let _loc__2_ = (_startpos__2_, _endpos__2_) in -# 4065 "parsing/parser.mly" +# 4046 "parsing/parser.mly" ( expecting _loc__2_ "operator" ) -# 56926 "parsing/parser.ml" +# 56857 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56960,9 +56891,9 @@ module Tables = struct let _endpos = _endpos__3_ in let _v : (Asttypes.label) = let _loc__3_ = (_startpos__3_, _endpos__3_) in -# 4066 "parsing/parser.mly" +# 4047 "parsing/parser.mly" ( expecting _loc__3_ "module-expr" ) -# 56966 "parsing/parser.ml" +# 56897 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -56981,17 +56912,17 @@ module Tables = struct MenhirLib.EngineTypes.next = _menhir_stack; } = _menhir_stack in let _1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 56987 "parsing/parser.ml" +# 56918 "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) = -# 4069 "parsing/parser.mly" +# 4050 "parsing/parser.mly" ( _1 ) -# 56995 "parsing/parser.ml" +# 56926 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57014,9 +56945,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.label) = -# 4070 "parsing/parser.mly" +# 4051 "parsing/parser.mly" ( _1 ) -# 57020 "parsing/parser.ml" +# 56951 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57039,9 +56970,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Longident.t) = -# 4138 "parsing/parser.mly" +# 4119 "parsing/parser.mly" ( _1 ) -# 57045 "parsing/parser.ml" +# 56976 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57086,9 +57017,9 @@ module Tables = struct let ty : (Parsetree.core_type) = Obj.magic ty in let _5 : unit = Obj.magic _5 in let _1_inlined1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 57092 "parsing/parser.ml" +# 57023 "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 @@ -57100,33 +57031,33 @@ module Tables = struct Parsetree.attributes) = let label = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 4024 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( _1 ) -# 57106 "parsing/parser.ml" +# 57037 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57114 "parsing/parser.ml" +# 57045 "parsing/parser.ml" in let attrs = -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 57120 "parsing/parser.ml" +# 57051 "parsing/parser.ml" in let _1 = -# 4287 "parsing/parser.mly" +# 4268 "parsing/parser.mly" ( Fresh ) -# 57125 "parsing/parser.ml" +# 57056 "parsing/parser.ml" in -# 2238 "parsing/parser.mly" +# 2223 "parsing/parser.mly" ( (label, mutable_, Cfk_virtual ty), attrs ) -# 57130 "parsing/parser.ml" +# 57061 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57171,9 +57102,9 @@ module Tables = struct let _6 : (Parsetree.expression) = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 57177 "parsing/parser.ml" +# 57108 "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 @@ -57185,33 +57116,33 @@ module Tables = struct Parsetree.attributes) = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 4024 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( _1 ) -# 57191 "parsing/parser.ml" +# 57122 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57199 "parsing/parser.ml" +# 57130 "parsing/parser.ml" in let _2 = -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 57205 "parsing/parser.ml" +# 57136 "parsing/parser.ml" in let _1 = -# 4290 "parsing/parser.mly" +# 4271 "parsing/parser.mly" ( Fresh ) -# 57210 "parsing/parser.ml" +# 57141 "parsing/parser.ml" in -# 2240 "parsing/parser.mly" +# 2225 "parsing/parser.mly" ( (_4, _3, Cfk_concrete (_1, _6)), _2 ) -# 57215 "parsing/parser.ml" +# 57146 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57262,9 +57193,9 @@ module Tables = struct let _6 : (Parsetree.expression) = Obj.magic _6 in let _5 : unit = Obj.magic _5 in let _1_inlined2 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 57268 "parsing/parser.ml" +# 57199 "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 @@ -57277,36 +57208,36 @@ module Tables = struct Parsetree.attributes) = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = -# 4024 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( _1 ) -# 57283 "parsing/parser.ml" +# 57214 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57291 "parsing/parser.ml" +# 57222 "parsing/parser.ml" in let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 57299 "parsing/parser.ml" +# 57230 "parsing/parser.ml" in let _1 = -# 4291 "parsing/parser.mly" +# 4272 "parsing/parser.mly" ( Override ) -# 57305 "parsing/parser.ml" +# 57236 "parsing/parser.ml" in -# 2240 "parsing/parser.mly" +# 2225 "parsing/parser.mly" ( (_4, _3, Cfk_concrete (_1, _6)), _2 ) -# 57310 "parsing/parser.ml" +# 57241 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57358,9 +57289,9 @@ module Tables = struct let _6 : unit = Obj.magic _6 in let _5 : (Parsetree.core_type option * Parsetree.core_type option) = Obj.magic _5 in let _1_inlined1 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 57364 "parsing/parser.ml" +# 57295 "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 @@ -57372,30 +57303,30 @@ module Tables = struct Parsetree.attributes) = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in let _1 = -# 4024 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( _1 ) -# 57378 "parsing/parser.ml" +# 57309 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57386 "parsing/parser.ml" +# 57317 "parsing/parser.ml" in let _startpos__4_ = _startpos__1_inlined1_ in let _2 = -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 57393 "parsing/parser.ml" +# 57324 "parsing/parser.ml" in let (_endpos__2_, _startpos__2_) = (_endpos__1_, _startpos__1_) in let _1 = -# 4290 "parsing/parser.mly" +# 4271 "parsing/parser.mly" ( Fresh ) -# 57399 "parsing/parser.ml" +# 57330 "parsing/parser.ml" in let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in let _endpos = _endpos__7_ in @@ -57411,11 +57342,11 @@ module Tables = struct _startpos__4_ in let _sloc = (_symbolstartpos, _endpos) in -# 2243 "parsing/parser.mly" +# 2228 "parsing/parser.mly" ( let e = mkexp_constraint ~loc:_sloc _7 _5 in (_4, _3, Cfk_concrete (_1, e)), _2 ) -# 57419 "parsing/parser.ml" +# 57350 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57473,9 +57404,9 @@ module Tables = struct let _6 : unit = Obj.magic _6 in let _5 : (Parsetree.core_type option * Parsetree.core_type option) = Obj.magic _5 in let _1_inlined2 : ( -# 956 "parsing/parser.mly" +# 934 "parsing/parser.mly" (string) -# 57479 "parsing/parser.ml" +# 57410 "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 @@ -57488,33 +57419,33 @@ module Tables = struct Parsetree.attributes) = let _4 = let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in let _1 = -# 4024 "parsing/parser.mly" +# 4005 "parsing/parser.mly" ( _1 ) -# 57494 "parsing/parser.ml" +# 57425 "parsing/parser.ml" in let _endpos = _endpos__1_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57502 "parsing/parser.ml" +# 57433 "parsing/parser.ml" in let _startpos__4_ = _startpos__1_inlined2_ in let _2 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 57511 "parsing/parser.ml" +# 57442 "parsing/parser.ml" in let (_endpos__2_, _startpos__2_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in let _1 = -# 4291 "parsing/parser.mly" +# 4272 "parsing/parser.mly" ( Override ) -# 57518 "parsing/parser.ml" +# 57449 "parsing/parser.ml" in let _endpos = _endpos__7_ in let _symbolstartpos = if _startpos__1_ != _endpos__1_ then @@ -57529,11 +57460,11 @@ module Tables = struct _startpos__4_ in let _sloc = (_symbolstartpos, _endpos) in -# 2243 "parsing/parser.mly" +# 2228 "parsing/parser.mly" ( let e = mkexp_constraint ~loc:_sloc _7 _5 in (_4, _3, Cfk_concrete (_1, e)), _2 ) -# 57537 "parsing/parser.ml" +# 57468 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57600,9 +57531,9 @@ module Tables = struct let _v : (Parsetree.value_description * string Asttypes.loc option) = let attrs2 = let _1 = _1_inlined3 in -# 4385 "parsing/parser.mly" +# 4366 "parsing/parser.mly" ( _1 ) -# 57606 "parsing/parser.ml" +# 57537 "parsing/parser.ml" in let _endpos_attrs2_ = _endpos__1_inlined3_ in @@ -57612,30 +57543,30 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57618 "parsing/parser.ml" +# 57549 "parsing/parser.ml" in let attrs1 = let _1 = _1_inlined1 in -# 4389 "parsing/parser.mly" +# 4370 "parsing/parser.mly" ( _1 ) -# 57626 "parsing/parser.ml" +# 57557 "parsing/parser.ml" in let _endpos = _endpos_attrs2_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3324 "parsing/parser.mly" +# 3305 "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 ) -# 57639 "parsing/parser.ml" +# 57570 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57651,9 +57582,9 @@ module Tables = struct let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in let _endpos = _startpos in let _v : (Asttypes.virtual_flag) = -# 4251 "parsing/parser.mly" +# 4232 "parsing/parser.mly" ( Concrete ) -# 57657 "parsing/parser.ml" +# 57588 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57676,9 +57607,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.virtual_flag) = -# 4252 "parsing/parser.mly" +# 4233 "parsing/parser.mly" ( Virtual ) -# 57682 "parsing/parser.ml" +# 57613 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57701,9 +57632,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.mutable_flag) = -# 4275 "parsing/parser.mly" +# 4256 "parsing/parser.mly" ( Immutable ) -# 57707 "parsing/parser.ml" +# 57638 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57733,9 +57664,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.mutable_flag) = -# 4276 "parsing/parser.mly" +# 4257 "parsing/parser.mly" ( Mutable ) -# 57739 "parsing/parser.ml" +# 57670 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57765,9 +57696,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.mutable_flag) = -# 4277 "parsing/parser.mly" +# 4258 "parsing/parser.mly" ( Mutable ) -# 57771 "parsing/parser.ml" +# 57702 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57790,9 +57721,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag) = -# 4282 "parsing/parser.mly" +# 4263 "parsing/parser.mly" ( Public ) -# 57796 "parsing/parser.ml" +# 57727 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57822,9 +57753,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag) = -# 4283 "parsing/parser.mly" +# 4264 "parsing/parser.mly" ( Private ) -# 57828 "parsing/parser.ml" +# 57759 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57854,9 +57785,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag) = -# 4284 "parsing/parser.mly" +# 4265 "parsing/parser.mly" ( Private ) -# 57860 "parsing/parser.ml" +# 57791 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -57918,27 +57849,27 @@ module Tables = struct let xs = # 253 "" ( List.rev xs ) -# 57922 "parsing/parser.ml" +# 57853 "parsing/parser.ml" in -# 1226 "parsing/parser.mly" +# 1204 "parsing/parser.mly" ( xs ) -# 57927 "parsing/parser.ml" +# 57858 "parsing/parser.ml" in -# 3424 "parsing/parser.mly" +# 3405 "parsing/parser.mly" ( _1 ) -# 57933 "parsing/parser.ml" +# 57864 "parsing/parser.ml" in let _endpos__6_ = _endpos_xs_ in let _5 = let _1 = _1_inlined2 in -# 3774 "parsing/parser.mly" +# 3755 "parsing/parser.mly" ( _1 ) -# 57942 "parsing/parser.ml" +# 57873 "parsing/parser.ml" in let _3 = @@ -57947,16 +57878,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 57953 "parsing/parser.ml" +# 57884 "parsing/parser.ml" in let _endpos = _endpos__6_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3693 "parsing/parser.mly" +# 3674 "parsing/parser.mly" ( let lident = loc_last _3 in Pwith_type (_3, @@ -57966,7 +57897,7 @@ module Tables = struct ~manifest:_5 ~priv:_4 ~loc:(make_loc _sloc))) ) -# 57970 "parsing/parser.ml" +# 57901 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -58019,9 +57950,9 @@ module Tables = struct let _v : (Parsetree.with_constraint) = let _5 = let _1 = _1_inlined2 in -# 3774 "parsing/parser.mly" +# 3755 "parsing/parser.mly" ( _1 ) -# 58025 "parsing/parser.ml" +# 57956 "parsing/parser.ml" in let _endpos__5_ = _endpos__1_inlined2_ in @@ -58031,16 +57962,16 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 58037 "parsing/parser.ml" +# 57968 "parsing/parser.ml" in let _endpos = _endpos__5_ in let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 3706 "parsing/parser.mly" +# 3687 "parsing/parser.mly" ( let lident = loc_last _3 in Pwith_typesubst (_3, @@ -58048,7 +57979,7 @@ module Tables = struct ~params:_2 ~manifest:_5 ~loc:(make_loc _sloc))) ) -# 58052 "parsing/parser.ml" +# 57983 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -58097,9 +58028,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 58103 "parsing/parser.ml" +# 58034 "parsing/parser.ml" in let _2 = @@ -58108,15 +58039,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 58114 "parsing/parser.ml" +# 58045 "parsing/parser.ml" in -# 3714 "parsing/parser.mly" +# 3695 "parsing/parser.mly" ( Pwith_module (_2, _4) ) -# 58120 "parsing/parser.ml" +# 58051 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -58165,9 +58096,9 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 58171 "parsing/parser.ml" +# 58102 "parsing/parser.ml" in let _2 = @@ -58176,15 +58107,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 58182 "parsing/parser.ml" +# 58113 "parsing/parser.ml" in -# 3716 "parsing/parser.mly" +# 3697 "parsing/parser.mly" ( Pwith_modsubst (_2, _4) ) -# 58188 "parsing/parser.ml" +# 58119 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -58240,15 +58171,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 58246 "parsing/parser.ml" +# 58177 "parsing/parser.ml" in -# 3718 "parsing/parser.mly" +# 3699 "parsing/parser.mly" ( Pwith_modtype (l, rhs) ) -# 58252 "parsing/parser.ml" +# 58183 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -58304,15 +58235,15 @@ module Tables = struct let _symbolstartpos = _startpos__1_ in let _sloc = (_symbolstartpos, _endpos) in -# 1142 "parsing/parser.mly" +# 1120 "parsing/parser.mly" ( mkrhs _1 _sloc ) -# 58310 "parsing/parser.ml" +# 58241 "parsing/parser.ml" in -# 3720 "parsing/parser.mly" +# 3701 "parsing/parser.mly" ( Pwith_modtypesubst (l, rhs) ) -# 58316 "parsing/parser.ml" +# 58247 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -58335,9 +58266,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__1_ in let _v : (Asttypes.private_flag) = -# 3723 "parsing/parser.mly" +# 3704 "parsing/parser.mly" ( Public ) -# 58341 "parsing/parser.ml" +# 58272 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -58367,9 +58298,9 @@ module Tables = struct let _startpos = _startpos__1_ in let _endpos = _endpos__2_ in let _v : (Asttypes.private_flag) = -# 3724 "parsing/parser.mly" +# 3705 "parsing/parser.mly" ( Private ) -# 58373 "parsing/parser.ml" +# 58304 "parsing/parser.ml" in { MenhirLib.EngineTypes.state = _menhir_s; @@ -58519,12 +58450,12 @@ module Incremental = struct end -# 4427 "parsing/parser.mly" +# 4408 "parsing/parser.mly" -# 58526 "parsing/parser.ml" +# 58457 "parsing/parser.ml" # 269 "" -# 58531 "parsing/parser.ml" +# 58462 "parsing/parser.ml" diff --git a/ocaml/parsing/ast_mapper.ml b/ocaml/parsing/ast_mapper.ml index 3746437be59..8935600296b 100644 --- a/ocaml/parsing/ast_mapper.ml +++ b/ocaml/parsing/ast_mapper.ml @@ -154,9 +154,10 @@ module T = struct match Jane_syntax.Core_type.of_ast typ with | Some (jtyp, attrs) -> begin let attrs = sub.attributes sub attrs in - Jane_syntax_parsing.Core_type.wrap_desc ~loc ~info:attrs @@ - match sub.typ_jane_syntax sub jtyp with - | _ -> . + let typ = match sub.typ_jane_syntax sub jtyp with + | _ -> . + in + { typ with ptyp_attributes = attrs @ typ.ptyp_attributes } end | None -> let attrs = sub.attributes sub attrs in @@ -254,16 +255,14 @@ module T = struct let name = map_loc sub pext_name in match Jane_syntax.Extension_constructor.of_ast ext with | Some (jext, attrs) -> begin - let attrs = sub.attributes sub attrs in - Jane_syntax_parsing.Extension_constructor.wrap_desc - ~loc ~info:(attrs, name) @@ + let _attrs = sub.attributes sub attrs in match sub.extension_constructor_jane_syntax sub jext with | _ -> . end | None -> let attrs = sub.attributes sub pext_attributes in Te.constructor ~loc ~attrs - (map_loc sub pext_name) + name (map_extension_constructor_kind sub pext_kind) end @@ -321,9 +320,8 @@ module MT = struct match Jane_syntax.Module_type.of_ast mty with | Some (jmty, attrs) -> begin let attrs = sub.attributes sub attrs in - Jane_syntax_parsing.Module_type.wrap_desc ~loc ~info:attrs @@ match sub.module_type_jane_syntax sub jmty with - | Jmty_strengthen smty -> Jane_syntax.Strengthen.mty_of ~loc smty + | Jmty_strengthen smty -> Jane_syntax.Strengthen.mty_of ~loc ~attrs smty end | None -> let attrs = sub.attributes sub attrs in @@ -373,7 +371,6 @@ module MT = struct let loc = sub.location sub loc in match Jane_syntax.Signature_item.of_ast sigi with | Some jsigi -> begin - Jane_syntax_parsing.Signature_item.wrap_desc ~loc ~info:() @@ match sub.signature_item_jane_syntax sub jsigi with | Jsig_include_functor incl -> Jane_syntax.Include_functor.sig_item_of ~loc incl @@ -453,7 +450,6 @@ module M = struct let loc = sub.location sub loc in match Jane_syntax.Structure_item.of_ast stri with | Some jstri -> begin - Jane_syntax_parsing.Structure_item.wrap_desc ~loc ~info:() @@ match sub.structure_item_jane_syntax sub jstri with | Jstr_include_functor incl -> Jane_syntax.Include_functor.str_item_of ~loc incl @@ -540,8 +536,8 @@ module E = struct match Jane_syntax.Expression.of_ast exp with | Some (jexp, attrs) -> begin let attrs = sub.attributes sub attrs in - Jane_syntax_parsing.Expression.wrap_desc ~loc ~info:attrs - (Jane_syntax.Expression.expr_of ~loc (sub.expr_jane_syntax sub jexp)) + Jane_syntax.Expression.expr_of ~loc ~attrs + (sub.expr_jane_syntax sub jexp) end | None -> let attrs = sub.attributes sub attrs in @@ -658,8 +654,7 @@ module P = struct match Jane_syntax.Pattern.of_ast pat with | Some (jpat, attrs) -> begin let attrs = sub.attributes sub attrs in - Jane_syntax_parsing.Pattern.wrap_desc ~loc ~info:attrs @@ - Jane_syntax.Pattern.pat_of ~loc (sub.pat_jane_syntax sub jpat) + Jane_syntax.Pattern.pat_of ~loc ~attrs (sub.pat_jane_syntax sub jpat) end | None -> let attrs = sub.attributes sub attrs in diff --git a/ocaml/parsing/jane_syntax.ml b/ocaml/parsing/jane_syntax.ml index 45e1eaad31f..3a43afb2c4f 100644 --- a/ocaml/parsing/jane_syntax.ml +++ b/ocaml/parsing/jane_syntax.ml @@ -41,8 +41,6 @@ open Jane_syntax_parsing future syntax features to remember to do this wrapping. *) -module With_attributes = With_attributes - (** List and array comprehensions *) module Comprehensions = struct let feature : Feature.t = Language_extension Comprehensions @@ -94,9 +92,7 @@ module Comprehensions = struct v} *) - let comprehension_expr names x = - Expression.wrap_desc ~info:[] ~loc:x.pexp_loc @@ - Expression.make_jane_syntax feature names x + let comprehension_expr names x = Expression.make_jane_syntax feature names x (** First, we define how to go from the nice AST to the OCaml AST; this is the [expr_of_...] family of expressions, culminating in @@ -143,9 +139,9 @@ module Comprehensions = struct clauses (comprehension_expr ["body"] body))) - let expr_of ~loc cexpr = + let expr_of ~loc ~attrs cexpr = (* See Note [Wrapping with make_entire_jane_syntax] *) - Expression.make_entire_jane_syntax ~loc feature (fun () -> + let expr = Expression.make_entire_jane_syntax ~loc feature (fun () -> match cexpr with | Cexp_list_comprehension comp -> expr_of_comprehension ~type_:["list"] comp @@ -157,6 +153,8 @@ module Comprehensions = struct | Immutable -> "immutable" ] comp) + in + { expr with pexp_attributes = expr.pexp_attributes @ attrs } (** Then, we define how to go from the OCaml AST to the nice AST; this is the [..._of_expr] family of expressions, culminating in @@ -286,22 +284,22 @@ module Immutable_arrays = struct let feature : Feature.t = Language_extension Immutable_arrays - let expr_of ~loc = function + let expr_of ~loc ~attrs = function | Iaexp_immutable_array elts -> (* See Note [Wrapping with make_entire_jane_syntax] *) Expression.make_entire_jane_syntax ~loc feature (fun () -> - Ast_helper.Exp.array elts) + Ast_helper.Exp.array ~attrs elts) (* Returns remaining unconsumed attributes *) let of_expr expr = match expr.pexp_desc with | Pexp_array elts -> Iaexp_immutable_array elts, expr.pexp_attributes | _ -> failwith "Malformed immutable array expression" - let pat_of ~loc = function + let pat_of ~loc ~attrs = function | Iapat_immutable_array elts -> (* See Note [Wrapping with make_entire_jane_syntax] *) Pattern.make_entire_jane_syntax ~loc feature (fun () -> - Ast_helper.Pat.array elts) + Ast_helper.Pat.array ~attrs elts) (* Returns remaining unconsumed attributes *) let of_pat pat = match pat.ppat_desc with @@ -351,10 +349,10 @@ module Strengthen = struct the [(module M)] is a [Pmty_alias]. This isn't syntax we can write, but [(module M)] can be the inferred type for [M], so this should be fine. *) - let mty_of ~loc { mty; mod_id } = + let mty_of ~loc ~attrs { mty; mod_id } = (* See Note [Wrapping with make_entire_jane_syntax] *) Module_type.make_entire_jane_syntax ~loc feature (fun () -> - Ast_helper.Mty.functor_ (Named (Location.mknoloc None, mty)) + Ast_helper.Mty.functor_ ~attrs (Named (Location.mknoloc None, mty)) (Ast_helper.Mty.alias mod_id)) (* Returns remaining unconsumed attributes *) @@ -404,15 +402,15 @@ module Unboxed_constants = struct | Float (x, suffix) -> Pconst_float (x, suffix) | Integer (x, suffix) -> Pconst_integer (x, Some suffix) - let expr_of ~loc t = + let expr_of ~loc ~attrs t = let constant = constant_of t in Expression.make_entire_jane_syntax ~loc feature (fun () -> - Ast_helper.Exp.constant constant) + Ast_helper.Exp.constant ~attrs constant) - let pat_of ~loc t = + let pat_of ~loc ~attrs t = let constant = constant_of t in Pattern.make_entire_jane_syntax ~loc feature (fun () -> - Ast_helper.Pat.constant constant) + Ast_helper.Pat.constant ~attrs constant) end (******************************************************************************) @@ -463,10 +461,10 @@ module Expression = struct let of_ast = Expression.make_of_ast ~of_ast_internal - let expr_of ~loc = function - | Jexp_comprehension x -> Comprehensions.expr_of ~loc x - | Jexp_immutable_array x -> Immutable_arrays.expr_of ~loc x - | Jexp_unboxed_constant x -> Unboxed_constants.expr_of ~loc x + let expr_of ~loc ~attrs = function + | Jexp_comprehension x -> Comprehensions.expr_of ~loc ~attrs x + | Jexp_immutable_array x -> Immutable_arrays.expr_of ~loc ~attrs x + | Jexp_unboxed_constant x -> Unboxed_constants.expr_of ~loc ~attrs x end module Pattern = struct @@ -485,9 +483,9 @@ module Pattern = struct let of_ast = Pattern.make_of_ast ~of_ast_internal - let pat_of ~loc = function - | Jpat_immutable_array x -> Immutable_arrays.pat_of ~loc x - | Jpat_unboxed_constant x -> Unboxed_constants.pat_of ~loc x + let pat_of ~loc ~attrs = function + | Jpat_immutable_array x -> Immutable_arrays.pat_of ~loc ~attrs x + | Jpat_unboxed_constant x -> Unboxed_constants.pat_of ~loc ~attrs x end module Module_type = struct diff --git a/ocaml/parsing/jane_syntax.mli b/ocaml/parsing/jane_syntax.mli index b9b9d07e350..ceaa6aa9f31 100644 --- a/ocaml/parsing/jane_syntax.mli +++ b/ocaml/parsing/jane_syntax.mli @@ -23,16 +23,6 @@ (*********************************************) (* Individual features *) -(** An AST desc together with its attributes, including the attributes that - signal that the AST should be interpreted as a Jane Syntax AST. -*) -module With_attributes : sig - type 'desc t = 'desc Jane_syntax_parsing.With_attributes.t = private - { jane_syntax_attributes : Parsetree.attributes - ; desc : 'desc - } -end - (** The ASTs for list and array comprehensions *) module Comprehensions : sig type iterator = @@ -72,7 +62,8 @@ module Comprehensions : sig (only allowed with [-extension immutable_arrays]) *) val expr_of : - loc:Location.t -> expression -> Parsetree.expression_desc With_attributes.t + loc:Location.t -> attrs:Parsetree.attributes -> + expression -> Parsetree.expression end (** The ASTs for immutable arrays. When we merge this upstream, we'll merge @@ -88,10 +79,11 @@ module Immutable_arrays : sig (** [: P1; ...; Pn :] **) val expr_of : - loc:Location.t -> expression -> Parsetree.expression_desc With_attributes.t - + loc:Location.t -> attrs:Parsetree.attributes -> + expression -> Parsetree.expression val pat_of : - loc:Location.t -> pattern -> Parsetree.pattern_desc With_attributes.t + loc:Location.t -> attrs:Parsetree.attributes -> + pattern -> Parsetree.pattern end (** The ASTs for [include functor]. When we merge this upstream, we'll merge @@ -104,10 +96,8 @@ module Include_functor : sig type structure_item = | Ifstr_include_functor of Parsetree.include_declaration - val sig_item_of : - loc:Location.t -> signature_item -> Parsetree.signature_item_desc - val str_item_of : - loc:Location.t -> structure_item -> Parsetree.structure_item_desc + val sig_item_of : loc:Location.t -> signature_item -> Parsetree.signature_item + val str_item_of : loc:Location.t -> structure_item -> Parsetree.structure_item end (** The ASTs for module type strengthening. *) @@ -116,9 +106,8 @@ module Strengthen : sig { mty : Parsetree.module_type; mod_id : Longident.t Location.loc } val mty_of : - loc:Location.t - -> module_type - -> Parsetree.module_type_desc With_attributes.t + loc:Location.t -> attrs:Parsetree.attributes -> + module_type -> Parsetree.module_type end (** The ASTs for unboxed literals, like #4.0 *) @@ -131,10 +120,12 @@ module Unboxed_constants : sig type pattern = t val expr_of : - loc:Location.t -> expression -> Parsetree.expression_desc With_attributes.t + loc:Location.t -> attrs:Parsetree.attributes -> + expression -> Parsetree.expression val pat_of : - loc:Location.t -> pattern -> Parsetree.pattern_desc With_attributes.t + loc:Location.t -> attrs:Parsetree.attributes -> + pattern -> Parsetree.pattern end (******************************************) @@ -244,7 +235,7 @@ module Expression : sig and type ast := Parsetree.expression val expr_of : - loc:Location.t -> t -> Parsetree.expression_desc With_attributes.t + loc:Location.t -> attrs:Parsetree.attributes -> t -> Parsetree.expression end (** Novel syntax in patterns *) @@ -258,7 +249,7 @@ module Pattern : sig and type ast := Parsetree.pattern val pat_of : - loc:Location.t -> t -> Parsetree.pattern_desc With_attributes.t + loc:Location.t -> attrs:Parsetree.attributes -> t -> Parsetree.pattern end (** Novel syntax in module types *) @@ -287,6 +278,7 @@ module Structure_item : sig include AST with type t := t and type ast := Parsetree.structure_item end +(** Novel syntax in extension constructors *) module Extension_constructor : sig type t = | diff --git a/ocaml/parsing/jane_syntax_parsing.ml b/ocaml/parsing/jane_syntax_parsing.ml index 151f914c852..88381fda17c 100644 --- a/ocaml/parsing/jane_syntax_parsing.ml +++ b/ocaml/parsing/jane_syntax_parsing.ml @@ -444,14 +444,6 @@ module type AST_syntactic_category = sig (** The AST type (e.g., [Parsetree.expression]) *) type ast - (** The "AST description" type, without the location and attributes (e.g., - [Parsetree.expression_desc]) *) - type ast_desc - - (** The bits stored in an [ast] but missing from an [ast_desc], other than - location *) - type ast_info - (** The name for this syntactic category in the plural form; used for error messages (e.g., "expressions") *) val plural : string @@ -460,12 +452,8 @@ module type AST_syntactic_category = sig [fun tm -> tm.pCAT_loc] for the appropriate syntactic category [CAT]. *) val location : ast -> Location.t - (** Turn an [ast_desc] into an [ast] by adding the appropriate metadata. When - creating [ast] nodes afresh to embed our novel syntax, the location should - be omitted; in this case, it will default to [!Ast_helper.default_loc], - which should be [ghost]. *) - val wrap_desc : - ?loc:Location.t -> info:ast_info -> ast_desc -> ast + (** Set the location of an AST node. *) + val with_location : ast -> Location.t -> ast end module type AST_internal = sig @@ -473,7 +461,7 @@ module type AST_internal = sig val embedding_syntax : Embedding_syntax.t - val make_jane_syntax : Embedded_name.t -> ast -> ast_desc + val make_jane_syntax : Embedded_name.t -> ast -> ast (** Given an AST node, check if it's a representation of a term from one of our novel syntactic features; if it is, split it back up into its name and @@ -506,13 +494,6 @@ let parse_embedding_exn ~loc ~payload ~name ~embedding_syntax = raise_error (Misnamed_embedding (err, name, embedding_syntax)) | None -> None -module With_attributes = struct - type 'desc t = - { jane_syntax_attributes : attributes - ; desc : 'desc - } -end - let find_and_remove_jane_syntax_attribute = let rec loop rest ~rev_prefix = match rest with @@ -543,31 +524,15 @@ module Make_with_attribute (AST_syntactic_category : sig include AST_syntactic_category - val prepend_attributes : attributes -> ast_info -> ast_info - val desc : ast -> ast_desc val attributes : ast -> attributes val with_attributes : ast -> attributes -> ast - end) : - AST_internal with type ast = AST_syntactic_category.ast - and type ast_desc = - AST_syntactic_category.ast_desc With_attributes.t - and type ast_info = AST_syntactic_category.ast_info + end) : AST_internal with type ast = AST_syntactic_category.ast = struct include AST_syntactic_category let embedding_syntax = Embedding_syntax.Attribute - type nonrec ast_desc = ast_desc With_attributes.t - - let wrap_desc ?loc ~info with_attributes = - let { desc; jane_syntax_attributes } : _ With_attributes.t = - with_attributes - in - let info = prepend_attributes jane_syntax_attributes info in - wrap_desc ?loc ~info desc - - let make_jane_syntax name ast : _ With_attributes.t = - let original_attributes = attributes ast in + let make_jane_syntax name ast = let attr = { attr_name = { txt = Embedded_name.to_string name @@ -577,7 +542,7 @@ module Make_with_attribute ; attr_payload = PStr [] } in - { desc = desc ast; jane_syntax_attributes = attr :: original_attributes } + with_attributes ast (attr :: attributes ast) let match_jane_syntax ast = match find_and_remove_jane_syntax_attribute (attributes ast) with @@ -585,19 +550,14 @@ module Make_with_attribute | Some (name, attrs) -> Some (name, with_attributes ast attrs) end -(* common case for [Make_with_attribute], when [ast_info] = [attributes] *) -let prepend_attributes_info attrs1 attrs2 = attrs1 @ attrs2 - (** For a syntactic category, produce translations into and out of our novel syntax, using extension nodes as the encoding. *) module Make_with_extension_node (AST_syntactic_category : sig include AST_syntactic_category - with type ast_info = unit (* [Make_with_extension_node] is for - categories without attributes. *) - (** How to construct an extension node for this AST (something of the + (** How to construct an extension node for this AST (something of the shape [[%name]]). Should just be [Ast_helper.CAT.extension] for the appropriate syntactic category [CAT]. (This means that [?loc] should default to [!Ast_helper.default_loc.].) *) @@ -608,7 +568,7 @@ module Make_with_extension_node appropriately-formed name and a body, combine them into the special syntactic form we use for novel syntactic features in this syntactic category. Partial inverse of [match_extension_use]. *) - val make_extension_use : extension_node:ast -> ast -> ast_desc + val make_extension_use : extension_node:ast -> ast -> ast (** Given an AST node, check if it's of the special syntactic form indicating that this is one of our novel syntactic features (as @@ -617,10 +577,7 @@ module Make_with_extension_node name/format of the extension or the possible body terms (for which see [AST.match_extension]). Partial inverse of [make_extension_use]. *) val match_extension_use : ast -> (extension * ast) option - end) : - AST_internal with type ast = AST_syntactic_category.ast - and type ast_desc = AST_syntactic_category.ast_desc - and type ast_info = unit = + end) : AST_internal with type ast = AST_syntactic_category.ast = struct include AST_syntactic_category @@ -654,20 +611,14 @@ end [[[%jane.FEATNAME] * BODY]]. *) module Type_AST_syntactic_category = struct type ast = core_type - type ast_desc = core_type_desc - type ast_info = attributes (* Missing [plural] *) - let prepend_attributes = prepend_attributes_info - let location typ = typ.ptyp_loc - - let wrap_desc ?loc ~info:attrs = Ast_helper.Typ.mk ?loc ~attrs + let with_location typ l = { typ with ptyp_loc = l } let attributes typ = typ.ptyp_attributes let with_attributes typ ptyp_attributes = { typ with ptyp_attributes } - let desc typ = typ.ptyp_desc end (** Types; embedded as [[[%jane.FEATNAME] * BODY]]. *) @@ -687,16 +638,11 @@ end) (** Expressions; embedded using an attribute on the expression. *) module Expression0 = Make_with_attribute (struct type ast = expression - type ast_desc = expression_desc - type ast_info = attributes let plural = "expressions" - let prepend_attributes = prepend_attributes_info let location expr = expr.pexp_loc + let with_location expr l = { expr with pexp_loc = l } - let wrap_desc ?loc ~info:attrs = Ast_helper.Exp.mk ?loc ~attrs - - let desc expr = expr.pexp_desc let attributes expr = expr.pexp_attributes let with_attributes expr pexp_attributes = { expr with pexp_attributes } end) @@ -704,16 +650,11 @@ end) (** Patterns; embedded using an attribute on the pattern. *) module Pattern0 = Make_with_attribute (struct type ast = pattern - type ast_desc = pattern_desc - type ast_info = attributes let plural = "patterns" - let prepend_attributes = prepend_attributes_info let location pat = pat.ppat_loc + let with_location pat l = { pat with ppat_loc = l } - let wrap_desc ?loc ~info:attrs = Ast_helper.Pat.mk ?loc ~attrs - - let desc pat = pat.ppat_desc let attributes pat = pat.ppat_attributes let with_attributes pat ppat_attributes = { pat with ppat_attributes } end) @@ -721,16 +662,11 @@ end) (** Module types; embedded using an attribute on the module type. *) module Module_type0 = Make_with_attribute (struct type ast = module_type - type ast_desc = module_type_desc - type ast_info = attributes let plural = "module types" - let prepend_attributes = prepend_attributes_info let location mty = mty.pmty_loc + let with_location mty l = { mty with pmty_loc = l } - let wrap_desc ?loc ~info:attrs = Ast_helper.Mty.mk ?loc ~attrs - - let desc mty = mty.pmty_desc let attributes mty = mty.pmty_attributes let with_attributes mty pmty_attributes = { mty with pmty_attributes } end) @@ -738,17 +674,11 @@ end) (** Extension constructors; embedded using an attribute. *) module Extension_constructor0 = Make_with_attribute (struct type ast = extension_constructor - type ast_desc = extension_constructor_kind - type ast_info = attributes * string Location.loc let plural = "extension constructors" - let prepend_attributes attrs1 (attrs2, name) = (attrs1 @ attrs2, name) let location ext = ext.pext_loc + let with_location ext l = { ext with pext_loc = l } - let wrap_desc ?loc ~info:(attrs, name) = - Ast_helper.Te.constructor ?loc ~attrs name - - let desc ext = ext.pext_kind let attributes ext = ext.pext_attributes let with_attributes ext pext_attributes = { ext with pext_attributes } end) @@ -759,21 +689,19 @@ end) *) module Signature_item0 = Make_with_extension_node (struct type ast = signature_item - type ast_desc = signature_item_desc - type ast_info = unit let plural = "signature items" let location sigi = sigi.psig_loc - - let wrap_desc ?loc ~info:() = Ast_helper.Sig.mk ?loc + let with_location sigi l = { sigi with psig_loc = l } let make_extension_node = Ast_helper.Sig.extension let make_extension_use ~extension_node sigi = - Psig_include { pincl_mod = Ast_helper.Mty.signature [extension_node; sigi] - ; pincl_loc = !Ast_helper.default_loc - ; pincl_attributes = [] } + Ast_helper.Sig.include_ + { pincl_mod = Ast_helper.Mty.signature [extension_node; sigi] + ; pincl_loc = !Ast_helper.default_loc + ; pincl_attributes = [] } let match_extension_use sigi = match sigi.psig_desc with @@ -796,21 +724,19 @@ end) *) module Structure_item0 = Make_with_extension_node (struct type ast = structure_item - type ast_desc = structure_item_desc - type ast_info = unit let plural = "structure items" let location stri = stri.pstr_loc - - let wrap_desc ?loc ~info:() = Ast_helper.Str.mk ?loc + let with_location stri l = { stri with pstr_loc = l } let make_extension_node = Ast_helper.Str.extension let make_extension_use ~extension_node stri = - Pstr_include { pincl_mod = Ast_helper.Mod.structure [extension_node; stri] - ; pincl_loc = !Ast_helper.default_loc - ; pincl_attributes = [] } + Ast_helper.Str.include_ + { pincl_mod = Ast_helper.Mod.structure [extension_node; stri] + ; pincl_loc = !Ast_helper.default_loc + ; pincl_attributes = [] } let match_extension_use stri = match stri.pstr_desc with @@ -832,22 +758,15 @@ end) module type AST = sig type ast - type ast_desc - type ast_info - val wrap_desc : - ?loc:Location.t -> info:ast_info -> ast_desc -> ast - val make_jane_syntax : Feature.t -> string list -> ast -> ast_desc + val make_jane_syntax : Feature.t -> string list -> ast -> ast val make_entire_jane_syntax : - loc:Location.t -> Feature.t -> (unit -> ast) -> ast_desc + loc:Location.t -> Feature.t -> (unit -> ast) -> ast val make_of_ast : of_ast_internal:(Feature.t -> ast -> 'a option) -> (ast -> 'a option) end -module Make_ast (AST : AST_internal) : AST with type ast = AST.ast - and type ast_desc = AST.ast_desc - and type ast_info = AST.ast_info - = struct +module Make_ast (AST : AST_internal) : AST with type ast = AST.ast = struct include AST let make_jane_syntax feature trailing_components ast = @@ -856,8 +775,10 @@ module Make_ast (AST : AST_internal) : AST with type ast = AST.ast ast let make_entire_jane_syntax ~loc feature ast = - make_jane_syntax feature [] - (Ast_helper.with_default_loc (Location.ghostify loc) ast) + AST.with_location + (make_jane_syntax feature [] + (Ast_helper.with_default_loc (Location.ghostify loc) ast)) + loc (** Generically lift our custom ASTs for our novel syntax from OCaml ASTs. *) let make_of_ast ~of_ast_internal = diff --git a/ocaml/parsing/jane_syntax_parsing.mli b/ocaml/parsing/jane_syntax_parsing.mli index 714af4dcd28..650f4a7e0fe 100644 --- a/ocaml/parsing/jane_syntax_parsing.mli +++ b/ocaml/parsing/jane_syntax_parsing.mli @@ -137,17 +137,6 @@ module Embedded_name : sig val pp_quoted_name : Format.formatter -> t -> unit end -(** An AST desc together with its attributes, including the attributes that - signal that the AST should be interpreted as a Jane Syntax AST. These are - produced only by [make_jane_syntax] and [make_entire_jane_syntax]. -*) -module With_attributes : sig - type 'desc t = private - { jane_syntax_attributes : Parsetree.attributes - ; desc : 'desc - } -end - (** Each syntactic category that contains novel syntactic features has a corresponding module of this module type. We're adding these lazily as we need them. When you add another one, make sure also to add special handling @@ -158,33 +147,15 @@ module type AST = sig (** The AST type (e.g., [Parsetree.expression]) *) type ast - (** The "AST description" type, without the location and - attributes (e.g., [Parsetree.expression_desc]) *) - type ast_desc - - (** Information which is part of the [ast] but missing from [ast_desc], other - than location. We need this to get from an [ast_desc] to an [ast]. *) - type ast_info - - (** Turn an [ast_desc] into an [ast] by adding the appropriate metadata. When - creating [ast] nodes afresh to embed our novel syntax, the location should - be omitted; in this case, it will default to [!Ast_helper.default_loc], - which should be [ghost]. *) - val wrap_desc - : ?loc:Location.t - -> info:ast_info - -> ast_desc - -> ast - (** Embed a term from one of our novel syntactic features in the AST using the - given name (the [Embedded_name.t]) and body (the [ast]). Any locations in + given name (in the [Feature.t]) and body (the [ast]). Any locations in the generated AST will be set to [!Ast_helper.default_loc], which should be [ghost]. *) val make_jane_syntax : Feature.t -> string list -> ast - -> ast_desc + -> ast (** As [make_jane_syntax], but specifically for the AST node corresponding to the entire piece of novel syntax (e.g., for a list comprehension, the @@ -196,7 +167,7 @@ module type AST = sig : loc:Location.t -> Feature.t -> (unit -> ast) - -> ast_desc + -> ast (** Build an [of_ast] function. The return value of this function should be used to implement [of_ast] in modules satisfying the signature @@ -224,45 +195,27 @@ end module Expression : AST with type ast = Parsetree.expression - and type ast_desc = Parsetree.expression_desc With_attributes.t - and type ast_info = Parsetree.attributes module Pattern : AST with type ast = Parsetree.pattern - and type ast_desc = Parsetree.pattern_desc With_attributes.t - and type ast_info = Parsetree.attributes module Module_type : AST with type ast = Parsetree.module_type - and type ast_desc = Parsetree.module_type_desc With_attributes.t - and type ast_info = Parsetree.attributes module Signature_item : AST with type ast = Parsetree.signature_item - and type ast_desc = Parsetree.signature_item_desc - and type ast_info = unit module Structure_item : AST with type ast = Parsetree.structure_item - and type ast_desc = Parsetree.structure_item_desc - and type ast_info = unit module Core_type : AST with type ast = Parsetree.core_type - and type ast_desc = Parsetree.core_type_desc With_attributes.t - and type ast_info = Parsetree.attributes module Constructor_argument : AST with type ast = Parsetree.core_type - and type ast_desc = Parsetree.core_type_desc With_attributes.t - and type ast_info = Parsetree.attributes module Extension_constructor : AST with type ast = Parsetree.extension_constructor - and type ast_desc = - Parsetree.extension_constructor_kind With_attributes.t - and type ast_info = Parsetree.attributes * string Location.loc - (* the [string Location.loc] is the name of the constructor *) (** Require that an extension is enabled for at least the provided level, or else throw an exception (of an abstract type) at the provided location diff --git a/ocaml/parsing/parser.mly b/ocaml/parsing/parser.mly index 6dd32703138..8b720c49161 100644 --- a/ocaml/parsing/parser.mly +++ b/ocaml/parsing/parser.mly @@ -64,8 +64,6 @@ 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) @@ -80,8 +78,6 @@ let psig_typesubst ((nr, ext), tys) = (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 @@ -354,7 +350,7 @@ end let ppat_iarray loc elts = Jane_syntax.Immutable_arrays.pat_of - ~loc:(make_loc loc) + ~loc:(make_loc loc) ~attrs:[] (Iapat_immutable_array elts) let expecting loc nonterm = @@ -767,20 +763,6 @@ let check_layout loc id = let loc = make_loc loc in Attr.mk ~loc (mkloc id loc) (PStr []) -(* Jane syntax *) - -let mkexp_jane_syntax - ~loc - { Jane_syntax_parsing.With_attributes.jane_syntax_attributes; desc } - = - mkexp_attrs ~loc desc (None, jane_syntax_attributes) - -let mkpat_jane_syntax - ~loc - { Jane_syntax_parsing.With_attributes.jane_syntax_attributes; desc } - = - mkpat_attrs ~loc desc (None, jane_syntax_attributes) - (* Unboxed literals *) (* CR layouts v2: The [unboxed_*] functions will both be improved and lose @@ -819,19 +801,15 @@ end = struct | Value const_value -> mkexp ~loc (Pexp_constant const_value) | Unboxed const_unboxed -> - mkexp_jane_syntax ~loc - (Jane_syntax.Unboxed_constants.expr_of - ~loc:(make_loc loc) - const_unboxed) + Jane_syntax.Unboxed_constants.expr_of + ~loc:(make_loc loc) ~attrs:[] const_unboxed let to_pattern ~loc : t -> pattern = function | Value const_value -> mkpat ~loc (Ppat_constant const_value) | Unboxed const_unboxed -> - mkpat_jane_syntax ~loc - (Jane_syntax.Unboxed_constants.pat_of - ~loc:(make_loc loc) - const_unboxed) + Jane_syntax.Unboxed_constants.pat_of + ~loc:(make_loc loc) ~attrs:[] const_unboxed let assert_is_value ~loc ~where : t -> Parsetree.constant = function | Value x -> x @@ -1691,13 +1669,19 @@ structure_item: { let (ext, l) = $1 in (Pstr_class l, ext) } | class_type_declarations { let (ext, l) = $1 in (Pstr_class_type l, ext) } - | include_statement(module_expr) - { $1 pstr_include - (fun ~loc incl -> - Jane_syntax.Include_functor.str_item_of ~loc - (Ifstr_include_functor incl)) } ) { $1 } + | include_statement(module_expr) + { let is_functor, incl, ext = $1 in + let item = + if is_functor + then Jane_syntax.Include_functor.str_item_of ~loc:(make_loc $sloc) + (Ifstr_include_functor incl) + else mkstr ~loc:$sloc (Pstr_include incl) + in + wrap_str_ext ~loc:$sloc item ext + } + ; (* A single module binding. *) @@ -1791,11 +1775,7 @@ include_maybe_functor: let loc = make_loc $sloc in let docs = symbol_docs $sloc in let incl = Incl.mk thing ~attrs ~loc ~docs in - fun wrap jane_syntax_of -> - if is_functor then - jane_syntax_of ~loc:(make_loc $sloc) incl, ext - else - wrap (incl, ext) + is_functor, incl, ext } ; @@ -1948,17 +1928,22 @@ signature_item: { let (body, ext) = $1 in (Psig_modtypesubst body, ext) } | open_description { let (body, ext) = $1 in (Psig_open body, ext) } - | include_statement(module_type) - { $1 psig_include - (fun ~loc incl -> - Jane_syntax.Include_functor.sig_item_of ~loc - (Ifsig_include_functor incl)) } | class_descriptions { let (ext, l) = $1 in (Psig_class l, ext) } | class_type_declarations { let (ext, l) = $1 in (Psig_class_type l, ext) } ) { $1 } + | include_statement(module_type) + { let is_functor, incl, ext = $1 in + let item = + if is_functor + then Jane_syntax.Include_functor.sig_item_of ~loc:(make_loc $sloc) + (Ifsig_include_functor incl) + else mksig ~loc:$sloc (Psig_include incl) + in + wrap_sig_ext ~loc:$sloc item ext + } (* A module declaration. *) %inline module_declaration: @@ -2679,9 +2664,8 @@ simple_expr: ~loc:$sloc (fun ~loc elts -> Jane_syntax.Immutable_arrays.expr_of - ~loc:(make_loc loc) - (Iaexp_immutable_array elts) - |> mkexp_jane_syntax ~loc) + ~loc:(make_loc loc) ~attrs:[] + (Iaexp_immutable_array elts)) $1 } | constant { Constant.to_expression ~loc:$sloc $1 } @@ -2754,9 +2738,7 @@ comprehension_clause: %inline comprehension_expr: comprehension_ext_expr - { mkexp_jane_syntax ~loc:$sloc - (Jane_syntax.Comprehensions.expr_of ~loc:(make_loc $sloc) $1) - } + { Jane_syntax.Comprehensions.expr_of ~loc:(make_loc $sloc) ~attrs:[] $1 } ; %inline array_simple(ARR_OPEN, ARR_CLOSE, contents_semi_list): @@ -3268,11 +3250,10 @@ simple_delimited_pattern: } ) { $1 } | array_patterns(LBRACKETCOLON, COLONRBRACKET) - { mkpat_jane_syntax ~loc:$sloc - (Generic_array.Pattern.to_ast - "[:" ":]" - (ppat_iarray $sloc) - $1) + { Generic_array.Pattern.to_ast + "[:" ":]" + (ppat_iarray $sloc) + $1 } pattern_comma_list(self): diff --git a/ocaml/typing/parmatch.ml b/ocaml/typing/parmatch.ml index d0cbdc74f4e..636fd7af047 100644 --- a/ocaml/typing/parmatch.ml +++ b/ocaml/typing/parmatch.ml @@ -1919,9 +1919,9 @@ module Conv = struct | Immutable -> let ppat = Jane_syntax.Immutable_arrays.pat_of - ~loc:pat.pat_loc (Iapat_immutable_array pats) + ~loc:pat.pat_loc ~attrs:[] (Iapat_immutable_array pats) in - ppat.desc, ppat.jane_syntax_attributes + ppat.ppat_desc, ppat.ppat_attributes in mkpat ~attrs ppat | Tpat_lazy p -> diff --git a/ocaml/typing/untypeast.ml b/ocaml/typing/untypeast.ml index 5ba687cd3d6..08fa37d8a0f 100644 --- a/ocaml/typing/untypeast.ml +++ b/ocaml/typing/untypeast.ml @@ -203,9 +203,11 @@ let structure_item sub item = | Tincl_structure -> Pstr_include pincl | Tincl_functor _ | Tincl_gen_functor _ -> - Jane_syntax.Include_functor.str_item_of - ~loc + let stri = + Jane_syntax.Include_functor.str_item_of ~loc (Jane_syntax.Include_functor.Ifstr_include_functor pincl) + in + stri.pstr_desc end | Tstr_attribute x -> Pstr_attribute x @@ -307,11 +309,9 @@ let pattern : type k . _ -> k T.general_pattern -> _ = fun sub pat -> Street internal expressions without needing to modify every case, which would open us up to more merge conflicts. *) - let add_jane_syntax_attributes - { Jane_syntax_parsing.With_attributes.desc; jane_syntax_attributes } - = - attrs := jane_syntax_attributes @ !attrs; - desc + let add_jane_syntax_attributes { ppat_attributes; ppat_desc; _ } = + attrs := ppat_attributes @ !attrs; + ppat_desc in let desc = match pat with @@ -382,7 +382,7 @@ let pattern : type k . _ -> k T.general_pattern -> _ = fun sub pat -> | Mutable -> Ppat_array pats | Immutable -> Jane_syntax.Immutable_arrays.pat_of - ~loc + ~loc ~attrs:[] (Iapat_immutable_array pats) |> add_jane_syntax_attributes end @@ -450,7 +450,7 @@ let comprehension sub comp_type comp = { body = sub.expr sub comp_body ; clauses = List.map clause comp_clauses } in - Jane_syntax.Comprehensions.expr_of (comp_type (comprehension comp)) + Jane_syntax.Comprehensions.expr_of ~attrs:[] (comp_type (comprehension comp)) let expression sub exp = let loc = sub.location sub exp.exp_loc in @@ -460,11 +460,9 @@ let expression sub exp = Street internal expressions without needing to modify every case, which would open us up to more merge conflicts. *) - let add_jane_syntax_attributes - { Jane_syntax_parsing.With_attributes.desc; jane_syntax_attributes } - = - attrs := jane_syntax_attributes @ !attrs; - desc + let add_jane_syntax_attributes { pexp_attributes; pexp_desc; _ } = + attrs := pexp_attributes @ !attrs; + pexp_desc in let desc = match exp.exp_desc with @@ -534,7 +532,7 @@ let expression sub exp = Pexp_array plist | Immutable -> Jane_syntax.Immutable_arrays.expr_of - ~loc (Iaexp_immutable_array plist) + ~loc ~attrs:[] (Iaexp_immutable_array plist) |> add_jane_syntax_attributes end | Texp_list_comprehension comp -> @@ -704,9 +702,11 @@ let signature_item sub item = | Tincl_structure -> Psig_include pincl | Tincl_functor _ | Tincl_gen_functor _ -> - Jane_syntax.Include_functor.sig_item_of - ~loc + let sigi = + Jane_syntax.Include_functor.sig_item_of ~loc (Jane_syntax.Include_functor.Ifsig_include_functor pincl) + in + sigi.psig_desc end | Tsig_class list -> Psig_class (List.map (sub.class_description sub) list)